Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-26 01:31:07 +00:00
Code Issues Projects Releases Wiki Activity

tfv: make code loop forever, rather than waiting for keypress

Browse Source
This commit is contained in:
Vince Weaver 2017-09-11 14:48:35 -04:00
parent 0486ef4bbd
commit d715ee1f10
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tfv/tfv_flying.s
View File

@ -69,8 +69,7 @@ flying_start:
flying_loop:
jsr wait_until_keypressed
jsr get_key ;;wait_until_keypressed
lda LASTKEY
@ -81,8 +80,11 @@ skipskip:
cmp #('I')
bne check_down
; UP PRESSED
lda SHIPY
cmp #16
cmp #17
bcc check_down ; bgt
dec SHIPY
dec SHIPY
@ -92,6 +94,9 @@ check_down:
cmp #('M')
bne check_left
lda SHIPY
; DOWN PRESSED
cmp #28
bcs check_left ; ble
inc SHIPY
@ -101,12 +106,18 @@ check_down:
check_left:
cmp #('J')
bne check_right
; LEFT PRESSED
inc TURNING
dec ANGLE
check_right:
cmp #('K')
bne check_done
; RIGHT PRESSED
dec TURNING
inc ANGLE
@ -265,9 +276,9 @@ screeny_loop:
asl
sta TEMP_I
clc
sec
lda SCREEN_Y
adc #-8
sbc #8
lsr
clc
adc TEMP_I