Preview
shining 8 present .... the 8 channel soundtracker 99 percent released by s8 on 4.11.1989 .... contact our headquarter under plk.057725 b 7630 lahr west germany our greets are shining in non order to: ...... paranomia deathstar headwave prime evil music steve the force hellas acme factories isf browbeat contex x factor cult complex the fire starters nato tarkus team beasty boys ecg ibb d tect beyond force avenger triangle amiga industries black monks argus bounty silver hawks phase 101 sharks alpha flight wintex byterapers supplex don of indy romano stet supreme rebels the silents esa kefrens brainstorm escape storm the web dark force the shiners are : romrunner ecr net. fletch trashcan sledge napalm exorcist devil this intro were done by romrunner *
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
sprite3:
dc.w $80d8,$b500
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
sprite4:
dc.w $80cc,$b500
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
sprite5:
dc.w $6010,$6100
dc.w $0001,$0001
dc.w $6460,$6500
dc.w $0001,$0000
dc.w $68c0,$6900
dc.w $0000,$0001
dc.w $6c50,$6d00
dc.w $0001,$0001
dc.w $70f0,$7100
dc.w $0001,$0000
dc.w $7440,$7500
dc.w $0000,$0001
dc.w $7890,$7900
dc.w $0001,$0001
dc.w $7c30,$7d00
dc.w $0001,$0000
dc.w $8020,$8100
dc.w $0001,$0000
dc.w $8460,$8500
dc.w $0000,$0001
dc.w $88a0,$8900
dc.w $0001,$0001
dc.w $8cc0,$8d00
dc.w $0001,$0000
dc.w $9060,$9100
dc.w $0000,$0001
dc.w $9410,$9500
dc.w $0001,$0001
dc.w $9830,$9900
dc.w $0000,$0001
dc.w $9cc0,$9d00
dc.w $0001,$0000
dc.w $a010,$a100
dc.w $0001,$0001
dc.w $a470,$a500
dc.w $0000,$0001
dc.w $a8e0,$a900
dc.w $0001,$0000
dc.w $ac20,$ad00
dc.w $0000,$0001
dc.w $b0a0,$b100
dc.w $0001,$0000
dc.w $b4f0,$b500
dc.w $0001,$0001
dc.w $b840,$b900
dc.w $0001,$0000
dc.w $bc70,$bd00
dc.w $0000,$0001
dc.w $c080,$c100
dc.w $0001,$0000
dc.w $c440,$c500
dc.w $0000,$0001
dc.w $c820,$c900
dc.w $0001,$0001
dc.w $cce0,$cd00
dc.w $0001,$0000
dc.w $d070,$d100
dc.w $0000,$0001
dc.w $d450,$d500
dc.w $0001,$0000
dc.w $d8b0,$d900
dc.w $0001,$0001
dc.w $dc30,$dd00
dc.w $0000,$0001
dc.w $e060,$e100
dc.w $0001,$0000
dc.w $e4b0,$e500
dc.w $0001,$0000
dc.w $e890,$e900
dc.w $0000,$0001
dc.w $ec10,$ed00
dc.w $0001,$0000
sprite6:
dc.w $6960,$7300
dc.w %0000000000000000,0000000000000000
dc.w %1110000000000000,0000000000000000
dc.w %1111110000000000,0000000000000000
dc.w %1111111110000000,0000000000000000
dc.w %1111111111110000,0000000000000000
dc.w %1111111111111110,0000000000000000
dc.w %1111111111110000,0000000000000000
dc.w %1111111110000000,0000000000000000
dc.w %1111110000000000,0000000000000000
dc.w %1110000000000000,0000000000000000
dc.w %0000000000000000,0000000000000000
blk.b 10,0
even
chartab:
dc.w $98c0,$f6c0,$0000,$0000,$0000,$0000,$0000,$f0e0,$0500,$0000
dc.w $0000,$0000,$d960,$050a,$e520,$0000,$9ea0,$a480,$aa60,$b040
dc.w $b620,$bc00,$c1e0,$c7c0,$cda0,$d380,$eb00,$df40,$0000,$0000
dc.w $0000,$0522,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$05e0,$0bc0,$11a0,$1780
dc.w $1d60,$2340,$2920,$2f00,$34e0,$3ac0,$40a0,$4680,$4c60,$5240
dc.w $5820,$5e00,$63e0,$69c0,$6fa0,$7580,$7b60,$8140,$8720,$8d00
dc.w $92e0,$98c0,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000
scrolltext:
dc.b " "
dc.b " shining'8 present proud the first sound erection "
dc.b "disk *"
even
charadr=$40000
chartab2:
dc.w $0524,$050e,$0000,$0512,$0000,$0000,$0000,$0000,$0500,$0502
dc.w $0504,$0506,$0508,$050a,$050c,$028e,$0290,$0292,$0294,$0296
dc.w $0298,$029a,$029c,$029e,$02a0,$02a2,$02a4,$02a6,$0000,$0000
dc.w $0000,$0522,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0002,$0004,$0006,$0008,$000a
dc.w $000c,$000e,$0010,$0012,$0014,$0016,$0018,$001a,$001c,$001e
dc.w $0020,$0022,$0024,$0026,$0280,$0282,$0284,$0286,$0288,$028a
dc.w $028c,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000
scrolltext2:
dc.b " yep ..... this is sound erection #1 of "
dc.b "shining 8 ...... all sounds were tracked by our "
dc.b "soundwizard .... trashcan .... and now "
dc.b "we send our greets (no order) to : "
dc.b "headwave (dave) prime evil music steve "
dc.b "the force (australia,israel (danny) on c64) "
dc.b " hellas acme factories isf browbeat (64) "
dc.b " contex (64) x-factory cult complex "
dc.b "the fire starters nato (64) tarkus team "
dc.b "beasty boys (sascha) ecg (64) ibb (enrico) "
dc.b "d-tect beyond force (64+amiga) avenger "
dc.b "triangle amiga industries black monks "
dc.b "angus bounty silver hawks phase 101 "
dc.b "sharks (64) alpha flight wintex "
dc.b "byterapers supplex don of indy romano "
dc.b "sted supreme (tim) rebels the silent "
dc.b "esa kefrens (pop) brainstorm (shadow) "
dc.b "escape storm the web dark force (ex-shining member)"
dc.b " and all other we forgot !!! "
dc.b " our actual memberlist : romrunner trashcan "
dc.b "ecr net. fletch napalm exorsist devil "
dc.b "sledge credits for this demo : "
dc.b " coding : romrunner big charset : sledge"
dc.b " sounds : trashcan ....."
dc.b " credits for the sounddisk intro : "
dc.b " coding : romrunner logo : exorsist "
dc.b " sound : trashcan equlizer : "
dc.b "napalm and a bit romrunner thats all for this time "
dc.b " ............ *"
charadr2=$53000
even
spritespeed:
dc.b 1,2,1,1,3,2,1,3,1,2,1
dc.b 3,2,2,3,1,1,3,2,1,1,2
dc.b 1,2,2,1,2,1,1,3,2,2,1
dc.b 2,1,1,1,2,3,1,2,1,2,1
loader:
*********************
* Daten-file loader *
* written by *
* romrunner / s8 *
*********************
; Thanx to Music-steve for the origonal.prg (as segment loader)
jsr mt_end
move.w #$4000,$dff09a
move.l oldirq,$6c ;restore interruptvectors
move.w #$c000,$dff09a
move.l execbase,a6
move.l gfxbase,a1
jsr closelibrary(a6) ;close graphicslibrary
move.l gfxbase,a0
add.l #$32,a0
move.w #$0080,$dff096
move.l oldcopper,(a0) ;restore old copper
move.w #$8080,$dff096
move.l execbase,a6
jsr permit(a6) ;multitasking is back
move.w #$8020,$dff096
movem.l (sp)+,d0-d7/a0-a6 ;pull registers from stack
moveq #$00,d0
******** Routine for DISK OPERATIONS **************
;execbase = 4
OpenLib = -408
CloseLib = -414
Open = -30
Close = -36
mode_old = 1005
mode_new = 1006
write = -48
read = -42
start:
movem.l a0-a6/d0-d7,-(sp)
move.l execbase,a6 ;open dos.library
lea dosname,a1
moveq #0,d0
jsr OpenLib(a6)
move.l d0,dosbase
beq end ;Fehler ?
bsr openfile
beq end
move.l #feld,d2
bsr readdata
move.l d0,d6
bsr closefile
end:
move.l execbase,a6
move.l dosbase,a1
jsr CloseLib(a6)
movem.l (sp)+,a0- star
dc.b "headwave (dave) dc.b "headwave (dave) prime evidc.b "headwave (dave) prime dc.b "paranomia deathstar "
dc.b "headwave prime evil music steve "
dc.b "the force "
dc.b " hellas acme factories isf browbeat "
dc.b " contex x-factor cult complex "
dc.b "the fire starters nato tarkus team "
dc.b "beasty boys ecg ibb "
dc.b "d-tect beyond force avenger "
dc.b "triangle amiga industries black monks "
dc.b "angus bounty silver hawks phase 101 "
dc.b "sharks alpha flight wintex "
dc.b "byterapers supplex don of indy romano "
dc.b "sted supreme rebels the silent "
dc.b "esa kefrens brainstorm "
dc.b "escape storm the web dark force "
dc.b " and all other we forgot !!! "
dc.b " our actual memberlist : romrunner trashcan "
dc.b "ecr net. fletch napalm exorsist devil "
dc.b "sledge credits for this demo : "
dc.b " coding : romrunner big charset : sledge"
dc.b " sounds : trashcan ....."
dc.b " credits for the sounddisk intro : "
dc.b " coding : romrunner logo : exorsist "
dc.b " sound : trashcan equlizer : "
dc.b "napalm and a bit romrunner thats all for this time "
dc.b " ............ *"
charadr2=$53000
even
spritespeed:
dc.b 1,2,1,1,3,2,1,3,1,2,1
dc.b 3,2,2,3,1,1,3,2,1,1,2
dc.b 1,2,2,1,2,1,1,3,2,2,1
dc.b 2,1,1,1,2,3,1,2,1,2,1
loader:
*********************
* Daten-file loader *
* written by *
* romrunner / s8 *
*********************
; Thanx to Music-steve for the origonal.prg (as segment loader)
jsr mt_end
move.w #$4000,$dff09a
move.l oldirq,$6c ;restore interruptvectors
move.w #$c000,$dff09a
move.l execbase,a6
move.l gfxbase,a1
jsr closelibrary(a6) ;close graphicslibrary
move.l gfxbase,a0
add.l #$32,a0
move.w #$0080,$dff096
move.l oldcopper,(a0) ;restore old copper
move.w #$8080,$dff096
move.l execbase,a6
jsr permit(a6) ;multitasking is back
move.w #$8020,$dff096
movem.l (sp)+,d0-d7/a0-a6 ;pull registers from stack
moveq #$00,d0
******** Routine for DISK OPERATIONS **************
;execbase = 4
OpenLib = -408
CloseLib = -414
Open = -30
Close = -36
mode_old = 1005
mode_new = 1006
write = -48
read = -42
start:
movem.l a0-a6/d0-d7,-(sp)
move.l execbase,a6 ;open dos.library
lea dosname,a1
moveq #0,d0
jsr OpenLib(a6)
move.l d0,dosbase
beq end ;Fehler ?
bsr openfile
beq end
move.l #feld,d2
bsr readdata
move.l d0,d6
bsr closefile
end:
move.l execbase,a6
move.l dosbase,a1
jsr CloseLib(a6)
movem.l (sp)+,a0-a6/d0-d7
jmp anfang
dosname:
dc.b 'dos.library',0,0
even
dosbase:
blk.l 1
filehd:
dc.l 0
filename1:
dc.b "modules/stylex1",0
filename2:
dc.b "modules/stylex2",0
filename3:
dc.b "modules/coll-as-saft",0
filename4:
dc.b "modules/melody2",0
filename5:
dc.b "modules/actionhouse",0
filename6:
dc.b "modules/ig",0
filename7:
dc.b "modules/invasion-of-sex",0
even
text:
dc.b "Dies ist ein Text fuer das Textfile",0
textende:
even
feld=$60000
even
*********** SUBROUTINES *********
openfile:
move.l #mode_old,d2
move.l $7fa00,d1
move.l dosbase,a6
jsr Open(a6)
move.l d0,filehd
rts
closefile:
move.l dosbase,a6
move.l filehd,d1
jsr close(a6)
rts
writedata:
move.l dosbase,a6
move.l filehd,d1
jsr write(a6)
rts
readdata:
move.l dosbase,a6
move.l filehd,d1
move.l #$ffffff,d3
jsr read(a6)
rts
,$dff096
move.l oldcopper,(a0) ;restore old copper
move.w #$8080,$dff096
move.l execbase,a6
jsr permit(a6) ;multitasking is back
move.w #$8020,$dff096
movem.l (sp)+,d0-d7/a0-a6 ;pull registers from stack
moveq #$00,d0
rts
newirq:
movem.l d0-d7/a0-a6,-(sp)
lea sprite5+1,a0
lea spritespeed+2,a1
move.b #35,d0
beweg:
move.b (a1)+,d1
beweg2:
add.b #1,(a0)
sub.b #1,d1
bne beweg2
add.w #8,a0
dbra d0,beweg
bsr mt_music
lea sprite1(pc),a0
cmp.b #00,merke1
beq weiter
move.b #$70,(a0)
weiter:
add.b #4,(a0)
cmp.b #$b8,(a0)
bne stand
move.b #$b4,(a0)
stand:
lea sprite2(pc),a0
cmp.b #00,merke2
beq weiter2
move.b #$70,(a0)
weiter2:
add.b #4,(a0)
cmp.b #$b8,(a0)
bne stand2
move.b #$b4,(a0)
stand2:
lea sprite3(pc),a0
cmp.b #00,merke3
beq weiter3
move.b #$70,(a0)
weiter3:
add.b #4,(a0)
cmp.b #$b8,(a0)
bne stand3
move.b #$b4,(a0)
stand3:
lea sprite4(pc),a0
cmp.b #00,merke4
beq weiter4
move.b #$70,(a0)
weiter4:
add.b #4,(a0)
cmp.b #$b8,(a0)
bne stand4
move.b #$b4,(a0)
stand4:
move.l #$50000,a0
move.l a0,a1
sub.w #1,a1
move.l a0,$dff050
move.l a1,$dff054
move.l #$00000000,$dff064
move.l #$ffffffff,$dff044
move.l #$e9f00000,$dff040
move.w #$0700,$dff058
btest:
btst #14,$dff002
bne btest
move.l #$51000,a0
move.l a0,a1
sub.w #1,a1
move.l a0,$dff050
move.l a1,$dff054
; move.l #$00000000,$dff064
; move.l #$ffffffff,$dff044
; move.l #$f9f00000,$dff040
move.w #$0700,$dff058
btest2:
btst #14,$dff002
bne btest2
move.l #$52000,a0
move.l a0,a1
sub.w #1,a1
move.l a0,$dff050
move.l a1,$dff054
; move.l #$00000000,$dff064
; move.l #$ffffffff,$dff044
; move.l #$f9f00000,$dff040
move.w #$0700,$dff058
btest3:
btst #14,$dff002
bne btest3
movem.l $7e000,a0-a6/d0-d6
add.w #1,d0
cmp.w #26,d0
bne endscroll
clr.w d0
cmp.b #"*",(a0)
bne text2
lea scrolltext,a0
move.w #$98c0,d3
jmp text3
text2:
move.b (a0),d2
sub.w #$20,d2
add.w d2,d2
lea chartab,a1
add.w d2,a1
move.w (a1),d3
text3:
move.l #$40000,a1
add.l d3,a1
move.l #$5002c,a2
move.w #62,d1
print:
move.l (a1)+,(a2)+
move.w (a1)+,(a2)+
move.b (a1),(a2)
add.w #2,a1
add.w #50,a2
dbra d1,print
move.l #$5102c,a2
move.w #62,d1
print2:
move.l (a1)+,(a2)+
move.w (a1)+,(a2)+
move.b (a1),(a2)
add.w #2,a1
add.w #50,a2
dbra d1,print2
move.l #$5202c,a2
move.w #62,d1
print3:
move.l (a1)+,(a2)+
move.w (a1)+,(a2)+
move.b (a1),(a2)
add.w #2,a1
add.w #50,a2
dbra d1,print3
add.w #1,a0
endscroll:
movem.l a0-a6/d0-d6,$7e000
move.l #$54000,a0
move.l a0,a1
sub.w #1,a1
move.l a0,$dff050
move.l a1,$dff054
; move.l #$00000000,$dff064
; move.l #$ffffffff,$dff044
move.l #$f9f00000,$dff040
move.w #$0200,$dff058
btst4: btst #14,$dff002
bne btst4
movem.l $7d000,a0-a6/d0-d6
add.w #1,d0
cmp.w #16,d0
bne endscroll2
clr.w d0
cmp.b #"*",(a0)
bne text2a
lea scrolltext2,a0
move.w #$0524,d3
jmp text3a
text2a:
move.b (a0),d2
sub.w #$20,d2
add.w d2,d2
lea chartab2,a1
add.w d2,a1
move.w (a1),d3
text3a:
lea charadr2,a1
add.w d3,a1
move.l #$5402c,a2
move.w #16,d1
printa:
move.w (a1),(a2)
add.w #40,a1
add.w #56,a2
dbra d1,printa
add.w #1,a0
endscroll2:
movem.l a0-a6/d0-d6,$7d000
lea farben+14,a0
move.l a0,a1
add.w #16,a1
move.w (a0),d0
move.w #70,d1
farbenscroll:
move.w (a1),(a0)
add.w #16,a1
add.w #16,a0
dbra d1,farbenscroll
move.w d0,(a0)
movem.l (sp)+,d0-d7/a0-a6
dc.w $4ef9 ;jump to old interrupt
oldirq:
dc.l 0
bitmap:
blk.w 4,0
r_bitmap:
blk.l 26,0
gfxbase:
dc.l 0
rastport:
blk.l 1,0
oldcopper:
dc.l 0
copper:
dc.w $0100,$4400
dc.w $008e,$3071
dc.w $0090,$40d4
dc.w $0092,$0032
dc.w $0094,$00d4
dc.w $0108,$000c
dc.w $010a,$000c
dc.w $0104,$0001
dc.w $0001,$fffe
dc.w $00e0,$0005
dc.w $00e2,$4000
dc.w $00e4,$0005
dc.w $00e6,$50e7
dc.w $00e8,$0005
dc.w $00ea,$d700-$1f5
dc.w $00ec,$0005
dc.w $00ee,$9c27-$e0
dc.w $00f0,$0000
dc.w $00f2,$0000
dc.w $00f4,$0000
dc.w $00f6,$0000
spritepointer:
dc.w $0120,$0000
dc.w $0122,$0000
dc.w $0124,$0000
dc.w $0126,$0000
dc.w $0128,$0000
dc.w $012a,$0000
dc.w $012c,$0000
dc.w $012e,$0000
dc.w $0130,$0000
dc.w $0132,$0000
dc.w $0134,$0000
dc.w $0136,$0000
dc.w $0138,$0000
dc.w $013a,$0000
dc.w $013c,$0000
dc.w $013e,$0000
bitplane2:
dc.w $3201,$fffe,$0182,$000f
dc.w $3301,$fffe,$0182,$000f
dc.w $3401,$fffe,$0182,$000e
dc.w $3501,$fffe,$0182,$000e
dc.w $3601,$fffe,$0182,$000d
dc.w $3701,$fffe,$0182,$000d
dc.w $3801,$fffe,$0182,$000c
dc.w $3901,$fffe,$0182,$000c
dc.w $3a01,$fffe,$0182,$000a
dc.w $3b01,$fffe,$0182,$000a
dc.w $3c01,$fffe,$0182,$0008
dc.w $3d01,$fffe,$0182,$0008
dc.w $4601,$fffe,$0182,$0000
farben:
dc.w $6101,$fffe,$01a6,$0000,$01ae,$0000,$0184,$0111
dc.w $6201,$fffe,$01a6,$0000,$01ae,$0000,$0184,$0111
dc.w $6301,$fffe,$01a6,$0000,$01ae,$0000,$0184,$0222
dc.w $6401,$fffe,$01a6,$0001,$01ae,$0111,$0184,$0222
dc.w $6501,$fffe,$01a6,$0002,$01ae,$0222,$0184,$0333
dc.w $6601,$fffe,$01a6,$0003,$01ae,$0333,$0184,$0333
dc.w $6701,$fffe,$01a6,$0004,$01ae,$0444,$0184,$0444
dc.w $6801,$fffe,$01a6,$0005,$01ae,$0555,$0184,$0444
dc.w $6901,$fffe,$01a6,$0006,$01ae,$0666,$0184,$0555
dc.w $6a01,$fffe,$01a6,$0007,$01ae,$0777,$0184,$0555
dc.w $6b01,$fffe,$01a6,$0008,$01ae,$0888,$0184,$0666
dc.w $6c01,$fffe,$01a6,$0009,$01ae,$0999,$0184,$0666
dc.w $6d01,$fffe,$01a6,$000a,$01ae,$0aaa,$0184,$0777
dc.w $6e01,$fffe,$01a6,$000b,$01ae,$0bbb,$0184,$0777
dc.w $6f01,$fffe,$01a6,$000c,$01ae,$0ccc,$0184,$0888
dc.w $7001,$fffe,$01a6,$000d,$01ae,$0ddd,$0184,$0888
dc.w $7101,$fffe,$01a6,$000e,$01ae,$0eee,$0184,$0999
dc.w $7201,$fffe,$01a6,$000f,$01ae,$0fff,$0184,$0999
dc.w $7301,$fffe,$01a6,$0000,$01ae,$0000,$0184,$0aaa
dc.w $7401,$fffe,$01a6,$0001,$01ae,$0111,$0184,$0aaa
dc.w $7501,$fffe,$01a6,$0002,$01ae,$0222,$0184,$0999
dc.w $7601,$fffe,$01a6,$0003,$01ae,$0333,$0184,$0999
dc.w $7701,$fffe,$01a6,$0004,$01ae,$0444,$0184,$0888
dc.w $7801,$fffe,$01a6,$0005,$01ae,$0555,$0184,$0888
dc.w $7901,$fffe,$01a6,$0006,$01ae,$0666,$0184,$0777
dc.w $7a01,$fffe,$01a6,$0007,$01ae,$0777,$0184,$0777
dc.w $7b01,$fffe,$01a6,$0008,$01ae,$0888,$0184,$0666
dc.w $7c01,$fffe,$01a6,$0009,$01ae,$0999,$0184,$0666
dc.w $7d01,$fffe,$01a6,$000a,$01ae,$0aaa,$0184,$0555
dc.w $7e01,$fffe,$01a6,$000b,$01ae,$0bbb,$0184,$0555
dc.w $7f01,$fffe,$01a6,$000c,$01ae,$0ccc,$0184,$0444
dc.w $8001,$fffe,$01a6,$000d,$01ae,$0ddd,$0184,$0444
dc.w $8101,$fffe,$01a6,$000e,$01ae,$0eee,$0184,$0333
dc.w $8201,$fffe,$01a6,$000f,$01ae,$0fff,$0184,$0333
dc.w $8301,$fffe,$01a6,$010f,$01ae,$0fef,$0184,$0222
dc.w $8401,$fffe,$01a6,$020f,$01ae,$0fdf,$0184,$0222
dc.w $8501,$fffe,$01a6,$030f,$01ae,$0fcf,$0184,$0111
dc.w $8601,$fffe,$01a6,$040f,$01ae,$0fbf,$0184,$0111
dc.w $8701,$fffe,$01a6,$050f,$01ae,$0faf,$0184,$0000
dc.w $8801,$fffe,$01a6,$060f,$01ae,$0f9f,$0184,$0000
dc.w $8901,$fffe,$01a6,$070f,$01ae,$0f8f,$0184,$0000
dc.w $8a01,$fffe,$01a6,$080f,$01ae,$0f7f,$0184,$0000
dc.w $8b01,$fffe,$01a6,$090f,$01ae,$0f6f,$0184,$0000
dc.w $8c01,$fffe,$01a6,$0a0f,$01ae,$0f5f,$0184,$0000
dc.w $8d01,$fffe,$01a6,$0b0f,$01ae,$0f4f,$0184,$0000
dc.w $8e01,$fffe,$01a6,$0c0f,$01ae,$0f3f,$0184,$0000
dc.w $8f01,$fffe,$01a6,$0d0f,$01ae,$0f2f,$0184,$0000
dc.w $9001,$fffe,$01a6,$0e0f,$01ae,$0f1f,$0184,$0000
dc.w $9101,$fffe,$01a6,$0f0f,$01ae,$0f0f,$0184,$0000
dc.w $9201,$fffe,$01a6,$0f0e,$01ae,$0e0f,$0184,$0000
dc.w $9301,$fffe,$01a6,$0f0d,$01ae,$0d0f,$0184,$0000
dc.w $9401,$fffe,$01a6,$0f0c,$01ae,$0c0f,$0184,$0000
dc.w $9501,$fffe,$01a6,$0f0b,$01ae,$0b0f,$0184,$0000
dc.w $9601,$fffe,$01a6,$0f0a,$01ae,$0a0f,$0184,$0000
dc.w $9701,$fffe,$01a6,$0f09,$01ae,$090f,$0184,$0000
dc.w $9801,$fffe,$01a6,$0f08,$01ae,$080f,$0184,$0000
dc.w $9901,$fffe,$01a6,$0f07,$01ae,$070f,$0184,$0000
dc.w $9a01,$fffe,$01a6,$0f06,$01ae,$060f,$0184,$0000
dc.w $9b01,$fffe,$01a6,$0f05,$01ae,$050f,$0184,$0000
dc.w $9c01,$fffe,$01a6,$0f04,$01ae,$040f,$0184,$0000
dc.w $9d01,$fffe,$01a6,$0f03,$01ae,$030f,$0184,$0000
dc.w $9e01,$fffe,$01a6,$0f02,$01ae,$020f,$0184,$0000
dc.w $9f01,$fffe,$01a6,$0f01,$01ae,$010f,$0184,$0000
dc.w $a001,$fffe,$01a6,$0f00,$01ae,$000f,$0184,$0000
dc.w $a101,$fffe,$01a6,$0f10,$01ae,$001e,$0184,$0000
dc.w $a201,$fffe,$01a6,$0f20,$01ae,$002d,$0184,$0000
dc.w $a301,$fffe,$01a6,$0f30,$01ae,$003c,$0184,$0000
dc.w $a401,$fffe,$01a6,$0f40,$01ae,$004b,$0184,$0000
dc.w $a501,$fffe,$01a6,$0f50,$01ae,$005a,$0184,$0000
dc.w $a601,$fffe,$01a6,$0f60,$01ae,$0069,$0184,$0000
dc.w $a701,$fffe,$01a6,$0f70,$01ae,$0078,$0184,$0000
dc.w $a801,$fffe,$01a6,$0f80,$01ae,$0087,$0184,$0000
dc.w $a901,$fffe,$01a6,$0f90,$01ae,$0096,$0184,$0000
dc.w $aa01,$fffe,$01a6,$0fa0,$01ae,$00a5,$0184,$0000
dc.w $ab01,$fffe,$01a6,$0fb0,$01ae,$00b4,$0184,$0000
dc.w $ac01,$fffe,$01a6,$0fc0,$01ae,$00c3,$0184,$0000
dc.w $ad01,$fffe,$01a6,$0fd0,$01ae,$00d2,$0184,$0000
dc.w $ae01,$fffe,$01a6,$0fe0,$01ae,$00e1,$0184,$0222
dc.w $af01,$fffe,$01a6,$0ff0,$01ae,$00f0,$0184,$0444
dc.w $b001,$fffe,$01a6,$0ef0,$01ae,$01f0,$0184,$0666
dc.w $b101,$fffe,$01a6,$0df0,$01ae,$02f0,$0184,$0888
dc.w $b201,$fffe,$01a6,$0cf0,$01ae,$03f0,$0184,$0aaa
dc.w $b301,$fffe,$0184,$0aaa
dc.w $b401,$fffe,$0184,$0aaa
dc.w $b501,$fffe,$0184,$0888
dc.w $b601,$fffe,$0184,$0777
dc.w $bf01,$fffe,$0184,$0005
dc.w $c001,$fffe,$0184,$0006
dc.w $c101,$fffe,$0184,$0007
dc.w $c201,$fffe,$0184,$0008
dc.w $c301,$fffe,$0184,$0009
dc.w $c401,$fffe,$0184,$000a
dc.w $c501,$fffe,$0184,$000b
dc.w $c601,$fffe,$0184,$000e
dc.w $ee01,$fffe
planepointer:
dc.w $0100,$5400
dc.w $00e0,$0005
dc.w $00e2,$0000
; dc.w $00e4,$0000
; dc.w $00e6,$0000
dc.w $00e8,$0005
dc.w $00ea,$1000
; dc.w $00ec,$0000
; dc.w $00ee,$0000
dc.w $00f0,$0005
dc.w $00f2,$2000
; dc.w $00f4,$0000
; dc.w $00f6,$0000
colors:
dc.w $0180,$0000
dc.w $0182,$0222
dc.w $0184,$0444
dc.w $0186,$0555
dc.w $0188,$0666
dc.w $018a,$0777
dc.w $018c,$0888
dc.w $018e,$0999
dc.w $0190,$0aaa
dc.w $0192,$0bbb
dc.w $0194,$0f00
dc.w $0196,$0000
dc.w $0198,$0000
dc.w $019a,$0000
dc.w $019c,$0000
dc.w $019e,$0000
dc.w $01a0,$0000
dc.w $01a2,$0000
dc.w $01a4,$000c
dc.w $01a6,$0fff
dc.w $01a8,$0000
dc.w $01aa,$000f
dc.w $01ac,$000c
dc.w $01ae,$0008
dc.w $01b0,$0000
dc.w $01b2,$0888
dc.w $01b4,$0aaa
dc.w $01b6,$0ccc
dc.w $ffff,$fffe
gfxname:
dc.b 'graphics.library',0
; -----------------------------------------------------
; ------- D.O.C SoundTracker V2.0 - playroutine -------
; -----------------------------------------------------
; ---- Improved and omptimized by Unknown of D.O.C ----
; --------- Based on the playroutine from TJC ---------
; -----------------------------------------------------
even
mt_init:lea mt_data,a0
add.l #$01d8,a0
move.l #$0080,d0
moveq #$00,d1
mt_init1:
move.l d1,d2
subq.w #1,d0
mt_init2:
move.b (a0)+,d1
cmp.b d2,d1
bgt.s mt_init1
dbf d0,mt_init2
addq.b #1,d2
mt_init3:
lea mt_data,a0
lea mt_sample1(pc),a1
asl.l #$08,d2
asl.l #$02,d2
add.l #$0258,d2
add.l a0,d2
moveq #$0e,d0
mt_init4:
move.l d2,(a1)+
moveq #$00,d1
move.w 42(a0),d1
asl.l #1,d1
add.l d1,d2
add.l #$1e,a0
dbf d0,mt_init4
lea mt_sample1(pc),a0
moveq #$00,d0
mt_clear:
move.l (a0,d0),a1
clr.l (a1)
addq.l #4,d0
cmp.l #$3c,d0
bne.s mt_clear
clr.w $dff0a8
clr.w $dff0b8
clr.w $dff0c8
clr.w $dff0d8
clr.l mt_partnrplay
clr.l mt_partnote
clr.l mt_partpoint
move.b mt_data+$1d6,mt_maxpart+1
rts
mt_end: clr.w $dff0a8
clr.w $dff0b8
clr.w $dff0c8
clr.w $dff0d8
move.w #$000f,$dff096
rts
mt_music:
addq.l #1,mt_counter
mt_cool:cmp.l #6,mt_counter
bne.s mt_notsix
clr.l mt_counter
bra mt_rout2
mt_notsix:
lea mt_aud1temp(pc),a6
tst.b 3(a6)
beq.s mt_arp1
lea $dff0a0,a5
bsr.s mt_arprout
mt_arp1:lea mt_aud2temp(pc),a6
tst.b 3(a6)
beq.s mt_arp2
lea $dff0b0,a5
bsr.s mt_arprout
mt_arp2:lea mt_aud3temp(pc),a6
tst.b 3(a6)
beq.s mt_arp3
lea $dff0c0,a5
bsr.s mt_arprout
mt_arp3:lea mt_aud4temp(pc),a6
tst.b 3(a6)
beq.s mt_arp4
lea $dff0d0,a5
bra.s mt_arprout
mt_arp4:rts
mt_arprout:
move.b 2(a6),d0
and.b #$0f,d0
tst.b d0
beq.s mt_arpegrt
cmp.b #1,d0
beq.s mt_portup
cmp.b #2,d0
beq.s mt_portdwn
rts
mt_portup:
moveq #$00,d0
move.b 3(a6),d0
sub.w d0,22(a6)
cmp.w #$71,22(a6)
bpl.s mt_ok1
move.w #$71,22(a6)
mt_ok1: move.w 22(a6),6(a5)
rts
mt_portdwn:
moveq #$00,d0
move.b 3(a6),d0
add.w d0,22(a6)
cmp.w #$358,22(a6)
bmi.s mt_ok2
move.w #$358,22(a6)
mt_ok2: move.w 22(a6),6(a5)
rts
mt_arpegrt:
cmp.l #1,mt_counter
beq.s mt_loop2
cmp.l #2,mt_counter
beq.s mt_loop3
cmp.l #3,mt_counter
beq.s mt_loop4
cmp.l #4,mt_counter
beq.s mt_loop2
cmp.l #5,mt_counter
beq.s mt_loop3
rts
mt_loop2:
moveq #$00,d0
move.b 3(a6),d0
lsr.b #4,d0
bra.s mt_cont
mt_loop3:
moveq #$00,d0
move.b 3(a6),d0
and.b #$0f,d0
bra.s mt_cont
mt_loop4:
move.w 16(a6),d2
bra.s mt_endpart
mt_cont:
asl.w #1,d0
moveq #$00,d1
move.w 16(a6),d1
lea mt_arpeggio(pc),a0
mt_loop5:
move.w (a0,d0),d2
cmp.w (a0),d1
beq.s mt_endpart
addq.l #2,a0
bra.s mt_loop5
mt_endpart:
move.w d2,6(a5)
rts
mt_rout2:
lea mt_data,a0
move.l a0,a3
add.l #$0c,a3
move.l a0,a2
add.l #$1d8,a2
add.l #$258,a0
move.l mt_partnrplay,d0
moveq #$00,d1
move.b (a2,d0),d1
asl.l #$08,d1
asl.l #$02,d1
add.l mt_partnote,d1
move.l d1,mt_partpoint
clr.w mt_dmacon
lea $dff0a0,a5
lea mt_aud1temp(pc),a6
bsr mt_playit
move.b d2,merke1
lea $dff0b0,a5
lea mt_aud2temp(pc),a6
bsr mt_playit
move.b d2,merke2
lea $dff0c0,a5
lea mt_aud3temp(pc),a6
bsr mt_playit
move.b d2,merke3
lea $dff0d0,a5
lea mt_aud4temp(pc),a6
bsr mt_playit
move.b d2,merke4
move.w #$01f4,d0
mt_rls: dbf d0,mt_rls
move.w #$8000,d0
or.w mt_dmacon,d0
move.w d0,$dff096
lea mt_aud4temp(pc),a6
cmp.w #1,14(a6)
bne.s mt_voice3
move.l 10(a6),$dff0d0
move.w #1,$dff0d4
mt_voice3:
lea mt_aud3temp(pc),a6
cmp.w #1,14(a6)
bne.s mt_voice2
move.l 10(a6),$dff0c0
move.w #1,$dff0c4
mt_voice2:
lea mt_aud2temp(pc),a6
cmp.w #1,14(a6)
bne.s mt_voice1
move.l 10(a6),$dff0b0
move.w #1,$dff0b4
mt_voice1:
lea mt_aud1temp(pc),a6
cmp.w #1,14(a6)
bne.s mt_voice0
move.l 10(a6),$dff0a0
move.w #1,$dff0a4
mt_voice0:
move.l mt_partnote,d0
add.l #$10,d0
move.l d0,mt_partnote
cmp.l #$400,d0
bne.s mt_stop
mt_higher:
clr.l mt_partnote
addq.l #1,mt_partnrplay
moveq #$00,d0
move.w mt_maxpart,d0
move.l mt_partnrplay,d1
cmp.l d0,d1
bne.s mt_stop
clr.l mt_partnrplay
mt_stop:tst.w mt_status
beq.s mt_stop2
clr.w mt_status
bra.s mt_higher
mt_stop2:
rts
mt_playit:
move.l (a0,d1),(a6)
addq.l #4,d1
moveq #$00,d2
move.b 2(a6),d2
and.b #$f0,d2
lsr.b #4,d2
tst.b d2
beq.s mt_nosamplechange
moveq #$00,d3
lea mt_samples(pc),a1
move.l d2,d4
asl.l #2,d2
mulu #$1e,d4
move.l (a1,d2),4(a6)
move.w (a3,d4),8(a6)
move.w 2(a3,d4),18(a6)
move.w 4(a3,d4),d3
tst.w d3
beq.s mt_displace
move.l 4(a6),d2
add.l d3,d2
move.l d2,4(a6)
move.l d2,10(a6)
move.w 6(a3,d4),8(a6)
move.w 6(a3,d4),14(a6)
move.w 18(a6),8(a5)
bra.s mt_nosamplechange
mt_displace:
move.l 4(a6),d2
add.l d3,d2
move.l d2,10(a6)
move.w 6(a3,d4),14(a6)
move.w 18(a6),8(a5)
mt_nosamplechange:
tst.w (a6)
beq.s mt_retrout
move.w (a6),16(a6)
move.w 20(a6),$dff096
move.l 4(a6),(a5)
move.w 8(a6),4(a5)
move.w (a6),6(a5)
move.w 20(a6),d0
or.w d0,mt_dmacon
mt_retrout:
tst.w (a6)
beq.s mt_nonewper
move.w (a6),22(a6)
mt_nonewper:
move.b 2(a6),d0
and.b #$0f,d0
cmp.b #11,d0
beq.s mt_posjmp
cmp.b #12,d0
beq.s mt_setvol
cmp.b #13,d0
beq.s mt_break
cmp.b #14,d0
beq.s mt_setfil
cmp.b #15,d0
beq.s mt_setspeed
rts
mt_posjmp:
not.w mt_status
moveq #$00,d0
move.b 3(a6),d0
subq.b #$01,d0
move.l d0,mt_partnrplay
rts
mt_setvol:
move.b 3(a6),8(a5)
rts
mt_break:
not.w mt_status
rts
mt_setfil:
moveq #$00,d0
move.b 3(a6),d0
and.b #$01,d0
rol.b #$01,d0
and.b #$fd,$bfe001
or.b d0,$bfe001
rts
mt_setspeed:
move.b 3(a6),d0
and.b #$0f,d0
beq.s mt_back
clr.l mt_counter
move.b d0,mt_cool+5
mt_back:rts
mt_aud1temp:
blk.w 10,0
dc.w $0001
blk.w 2,0
mt_aud2temp:
blk.w 10,0
dc.w $0002
blk.w 2,0
mt_aud3temp:
blk.w 10,0
dc.w $0004
blk.w 2,0
mt_aud4temp:
blk.w 10,0
dc.w $0008
blk.w 2,0
mt_partnote: dc.l 0
mt_partnrplay: dc.l 0
mt_counter: dc.l 0
mt_partpoint: dc.l 0
mt_samples:dc.l 0
mt_sample1:blk.l 15,0
mt_maxpart:dc.w $0000
mt_dmacon:dc.w $0000
mt_status:dc.w $0000
mt_arpeggio:
dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c
dc.w $023a,$021a,$01fc,$01e0,$01c5,$01ac,$0194,$017d
dc.w $0168,$0153,$0140,$012e,$011d,$010d,$00fe,$00f0
dc.w $00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097
dc.w $008f,$0087,$007f,$0078,$0071,$0000,$0000,$0000
mt_data=$60000
sprite1:
dc.w $803c,$b500
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
sprite2:
dc.w $8048,$b500
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
sprite3:
dc.w $80d8,$b500
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
sprite4:
dc.w $80cc,$b500
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
dc.w $ffff,$ffff
sprite5:
dc.w $6010,$6100
dc.w $0001,$0001
dc.w $6460,$6500
dc.w $0001,$0000
dc.w $68c0,$6900
dc.w $0000,$0001
dc.w $6c50,$6d00
dc.w $0001,$0001
dc.w $70f0,$7100
dc.w $0001,$0000
dc.w $7440,$7500
dc.w $0000,$0001
dc.w $7890,$7900
dc.w $0001,$0001
dc.w $7c30,$7d00
dc.w $0001,$0000
dc.w $8020,$8100
dc.w $0001,$0000
dc.w $8460,$8500
dc.w $0000,$0001
dc.w $88a0,$8900
dc.w $0001,$0001
dc.w $8cc0,$8d00
dc.w $0001,$0000
dc.w $9060,$9100
dc.w $0000,$0001
dc.w $9410,$9500
dc.w $0001,$0001
dc.w $9830,$9900
dc.w $0000,$0001
dc.w $9cc0,$9d00
dc.w $0001,$0000
dc.w $a010,$a100
dc.w $0001,$0001
dc.w $a470,$a500
dc.w $0000,$0001
dc.w $a8e0,$a900
dc.w $0001,$0000
dc.w $ac20,$ad00
dc.w $0000,$0001
dc.w $b0a0,$b100
dc.w $0001,$0000
dc.w $b4f0,$b500
dc.w $0001,$0001
dc.w $b840,$b900
dc.w $0001,$0000
dc.w $bc70,$bd00
dc.w $0000,$0001
dc.w $c080,$c100
dc.w $0001,$0000
dc.w $c440,$c500
dc.w $0000,$0001
dc.w $c820,$c900
dc.w $0001,$0001
dc.w $cce0,$cd00
dc.w $0001,$0000
dc.w $d070,$d100
dc.w $0000,$0001
dc.w $d450,$d500
dc.w $0001,$0000
dc.w $d8b0,$d900
dc.w $0001,$0001
dc.w $dc30,$dd00
dc.w $0000,$0001
dc.w $e060,$e100
dc.w $0001,$0000
dc.w $e4b0,$e500
dc.w $0001,$0000
dc.w $e890,$e900
dc.w $0000,$0001
dc.w $ec10,$ed00
dc.w $0001,$0000
sprite6:
dc.w $6960,$7300
dc.w %0000000000000000,0000000000000000
dc.w %1110000000000000,0000000000000000
dc.w %1111110000000000,0000000000000000
dc.w %1111111110000000,0000000000000000
dc.w %1111111111110000,0000000000000000
dc.w %1111111111111110,0000000000000000
dc.w %1111111111110000,0000000000000000
dc.w %1111111110000000,0000000000000000
dc.w %1111110000000000,0000000000000000
dc.w %1110000000000000,0000000000000000
dc.w %0000000000000000,0000000000000000
blk.b 10,0
even
chartab:
dc.w $98c0,$f6c0,$0000,$0000,$0000,$0000,$0000,$f0e0,$0500,$0000
dc.w $0000,$0000,$d960,$050a,$e520,$0000,$9ea0,$a480,$aa60,$b040
dc.w $b620,$bc00,$c1e0,$c7c0,$cda0,$d380,$eb00,$df40,$0000,$0000
dc.w $0000,$0522,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$05e0,$0bc0,$11a0,$1780
dc.w $1d60,$2340,$2920,$2f00,$34e0,$3ac0,$40a0,$4680,$4c60,$5240
dc.w $5820,$5e00,$63e0,$69c0,$6fa0,$7580,$7b60,$8140,$8720,$8d00
dc.w $92e0,$98c0,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0000,$0000,$0000