mirror of
https://github.com/weiju/amiga-stuff
synced 2025-12-08 14:58:33 +00:00
24 lines
386 B
NASM
24 lines
386 B
NASM
init:
|
|
move #$ac,d7
|
|
|
|
mainloop:
|
|
wframe:
|
|
cmp.b #$ff,$dff006
|
|
bne wframe
|
|
|
|
add #1,d7
|
|
waitras1:
|
|
cmp.b $dff006,d7
|
|
bne waitras1
|
|
move.w #$fff,$dff180
|
|
|
|
waitras2:
|
|
cmp.b $dff006,d7
|
|
beq waitras2
|
|
move.w #$116,$dff180
|
|
|
|
btst #6,$bfe001
|
|
bne mainloop
|
|
rts
|
|
|