home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 4: Demo 1
/
almathera_demo1.bin
/
sourcecode
/
dexion
/
char.s
< prev
next >
Wrap
Text File
|
1995-03-17
|
721b
|
41 lines
run:
s:
move.b #$80,lab1+3
lea tabel,a6
lea tabel,a0
s1:
andi.b #64,$bfe001
beq s5
lab1:
cmp.b #$80,$dff006
bne s1
s2:
move.w farve,$dff182
add.b #1,lab1+3
move.w (a0)+,farve
add.w #$111,(a6)+
cmp.l #endtab,a0
bne s1
bra s
even
tabel:
dc.w $111,$222,$333,$444,$555,$666,$555,$444,$333,$222,$111
dc.w $010,$020,$030,$040,$050,$060,$070,$080,$060,$050,$040
dc.w $030,$020,$010,$000
dc.w $110,$220,$330,$440,$550,$660,$770,$880,$990,$aa0,$bb0
dc.w $aa0,$990,$880,$770,$660,$550,$440,$330,$220,$110,$000
dc.w $010,$020,$030,$040,$050,$060,$070,$080,$070,$060,$050
dc.w $040,$030,$020,$010,$000
dc.w $111,$222,$333,$444,$555,$666,$555,$444,$333,$222,$111,$000
endtab:
even
farve:
dc.w $0
even
tjekk:
dc.b $00
even
s5:
rts