second: ocean: try fixing reversing

This commit is contained in:
Vince Weaver 2023-11-02 15:34:39 -04:00
parent 0975e18d7b
commit 381f7a301c

View File

@ -65,6 +65,7 @@ ocean_loop:
bit PAGE1 bit PAGE1
restart_ocean:
direction_smc: direction_smc:
inc COUNT inc COUNT
@ -74,15 +75,15 @@ direction_smc:
cmp #32 cmp #32
bne no_count_oflo bne no_count_oflo
lda #6 lda #6 ; reset to 6
sta COUNT sta COUNT
no_count_oflo: no_count_oflo:
lda #75 ; really 76, finish one early lda #75 ; really 76, finish one early
jsr wait_for_pattern jsr wait_for_pattern
bcs done_ocean bcs done_ocean ; bge
jmp ocean_loop jmp ocean_loop ; loop
; here done one early ; here done one early
@ -91,7 +92,7 @@ no_count_oflo:
done_ocean: done_ocean:
lda #$C6 ; INC =$E6, DEC=$C6 lda #$C6 ; INC =$E6, DEC=$C6
sta direction_smc sta direction_smc
rts jmp restart_ocean
; here once we've gone backwards to end ; here once we've gone backwards to end
@ -106,7 +107,7 @@ really_done_ocean:
rts rts
.include "../wait_keypress.s" .include "../wait_keypress.s"
.include "../zx02_optim.s" ; .include "../zx02_optim.s"
.include "../irq_wait.s" .include "../irq_wait.s"