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

second: ocean: more work on ending

Browse Source 
was more trouble than worth and still doesn't look all that great
This commit is contained in:
Vince Weaver 2023-11-02 15:58:13 -04:00
parent 381f7a301c
commit a69e21353b
1 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,8 +14,9 @@ ocean_start:
;=====================
; in case we re-run for some reason
lda #$E6 ; INC =$E6, DEC=$C6
sta direction_smc
; lda #$E6 ; INC =$E6, DEC=$C6
; sta direction_smc
; sta direction2_smc
;===================
; Load graphics
@ -47,6 +48,7 @@ ocean_loop:
bit PAGE2
direction2_smc:
inc COUNT
; right logo
@ -70,7 +72,7 @@ direction_smc:
inc COUNT
lda COUNT
beq ocean_zero
beq really_done_ocean
cmp #32
bne no_count_oflo
@ -79,6 +81,7 @@ direction_smc:
sta COUNT
no_count_oflo:
end_smc:
lda #75 ; really 76, finish one early
jsr wait_for_pattern
bcs done_ocean ; bge
@ -90,24 +93,35 @@ no_count_oflo:
; reverse flow so we back out
done_ocean:
lda #76
sta end_smc+1
lda #$C6 ; INC =$E6, DEC=$C6
sta direction_smc
jmp restart_ocean
sta direction2_smc
lda #6
sta COUNT
jmp ocean_loop
; here once we've gone backwards to end
ocean_zero:
really_done_ocean:
lda #0
jsr hgr_page1_clearscreen
jsr hgr_page2_clearscreen
lda #76
jsr wait_for_pattern
bcs really_done_ocean
jmp ocean_zero
really_done_ocean:
rts
.include "../wait_keypress.s"
; .include "../zx02_optim.s"
.include "../hgr_clear_screen.s"
.include "../irq_wait.s"