dos33fsprogs/tfv/flying.s
2017-08-16 23:18:59 -04:00

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