mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-12 15:30:55 +00:00
46 lines
424 B
ArmAsm
46 lines
424 B
ArmAsm
|
|
||
|
|
flying_start:
|
||
|
|
|
||
|
|
jsr set_gr_page0
|
||
|
|
|
||
|
|
flying_loop:
|
||
|
|
jsr gr_copy_to_current
|
||
|
|
|
||
|
|
jsr put_sprite
|
||
|
|
|
||
|
|
jsr wait_until_keypressed
|
||
|
|
|
||
|
|
lda LASTKEY
|
||
|
|
|
||
|
|
cmp #('Q')
|
||
|
|
bne skipskip
|
||
|
|
rts
|
||
|
|
skipskip:
|
||
|
|
|
||
|
|
cmp #('I')
|
||
|
|
bne check_down
|
||
|
|
dec YPOS
|
||
|
|
dec YPOS
|
||
|
|
|
||
|
|
check_down:
|
||
|
|
cmp #('M')
|
||
|
|
bne check_left
|
||
|
|
inc YPOS
|
||
|
|
inc YPOS
|
||
|
|
|
||
|
|
check_left:
|
||
|
|
cmp #('J')
|
||
|
|
bne check_right
|
||
|
|
dec XPOS
|
||
|
|
|
||
|
|
check_right:
|
||
|
|
cmp #('K')
|
||
|
|
bne check_done
|
||
|
|
inc XPOS
|
||
|
|
|
||
|
|
check_done:
|
||
|
|
jmp flying_loop
|
||
|
|
|
||
|
|
|
||
|
|
|