Amiga Dunyasi - Sayi 21 (Subat 1992).pdf - Retro Dergi
Amiga Dunyasi - Sayi 21 (Subat 1992).pdf - Retro Dergi
Amiga Dunyasi - Sayi 21 (Subat 1992).pdf - Retro Dergi
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
DERLEYİCİLER<br />
move.l #$a00,d7<br />
CLP:<br />
clr.l (a0)+<br />
dbf d7,CLP<br />
rts<br />
Key:<br />
clr.l d0<br />
move.b $bfec01,d0<br />
cmp.b #$67,d0<br />
beq.s Up<br />
cmp.b #$65,d0<br />
beq.s Down<br />
cmp.b #$63,d0<br />
beq.s ColorFwd<br />
cmp.b #$61,d0<br />
beq.L ColorRwd<br />
rts<br />
Up:<br />
lea Copper+52.a0<br />
cmp.w #$2007,(a0)<br />
bne.s MoveUp<br />
rts<br />
Down:<br />
lea Copper+52,a0<br />
cmp.w #$e(K)7,(a0)<br />
bne.s MoveDown<br />
rts<br />
MoveUp:<br />
lea Copper+52,a0<br />
move.l #16,d7<br />
UpLoop:<br />
sub. w #$0400,(a0)<br />
add.l #8,a0<br />
dbf d7,UpLoop<br />
rts<br />
MoveDown:<br />
lea Copper+52,a0<br />
move.l #16, , d7<br />
DownLoop:<br />
add. w #$0400,(a0)<br />
add.l #8,a0<br />
dbf d7.DownLoop<br />
rts<br />
ColorFwd:<br />
add.l #1,ColNum<br />
move.l ColNum,d0<br />
cmp.b" #4,d0<br />
ble.s Fwd<br />
move.l #4,ColNum<br />
Fwd:<br />
lea ColTab,a0<br />
move.l ColNum,d0<br />
mulu #32.d0<br />
add.l d0,a0<br />
lea Copper+58,a1<br />
move.l #I5,d7<br />
FLoop:<br />
move.w (a0)+,(a1)<br />
add.l #8,al<br />
dbf d7, FLoop<br />
rts<br />
ColorRwd:<br />
sub.l #1,ColNum<br />
move.l ColNum,d0<br />
cmp.b #0,d0<br />
bge.s Rwd<br />
move.l #0.ColNum<br />
Rwd:<br />
lea ColTab,a0<br />
move.l ColNum,d0<br />
mulu #32,d0<br />
Tuş<br />
add.l<br />
lea<br />
move.l<br />
RLoop:<br />
move, w<br />
add.l<br />
dbf<br />
rts<br />
d0,a0<br />
Copper+58,a1<br />
#15,d7<br />
(a0)+,(a1)<br />
#8,a1<br />
d7,RLoop<br />
; >» Turn datalar burada sonra ...
Change language