From 381f7a301c51f81529921de6b23c92c0169ae7c6 Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Thu, 2 Nov 2023 15:34:39 -0400 Subject: [PATCH] second: ocean: try fixing reversing --- demos/second/part16_ocean/ocean.s | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/demos/second/part16_ocean/ocean.s b/demos/second/part16_ocean/ocean.s index 4e2a9c76..e0a8c8cc 100644 --- a/demos/second/part16_ocean/ocean.s +++ b/demos/second/part16_ocean/ocean.s @@ -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"