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

second: ocean: try fixing reversing

Browse Source
This commit is contained in:
Vince Weaver 2023-11-02 15:34:39 -04:00
parent 0975e18d7b
commit 381f7a301c
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
demos/second/part16_ocean/ocean.s
View File

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