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

This commit is contained in:
Vince Weaver 2017-09-11 14:48:35 -04:00
parent 0486ef4bbd
commit d715ee1f10

View File

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