Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-07 08:30:20 +00:00
Code Issues Projects Releases Wiki Activity

xmas2023: continue scroll

Browse Source
This commit is contained in:
Vince Weaver 2023-12-23 11:36:23 -05:00
parent 1cf8a7bebc
commit b1b565a9bb
1 changed files with 89 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
demos/xmas_2023/fireplace.s
View File

@ -341,15 +341,25 @@ done_cycle_count:
cli ; enable sound
no_music:
;=========================
;=================================
;=================================
;=================================
; main fireplace loop
;=================================
;=================================
;=================================
lda #$DD
sta FIRE_COLOR
lda #0
sta FRAMEL
sta FRAMEH
new_loop:
; bring in wait_until_interrupt
; update frame count
inc FRAMEL ; 5
lda FRAMEL ; 3
@ -362,21 +372,29 @@ frame_noflo2:
lda #255
jsr wait
lda FIRE_COLOR ; 3
eor #$0D ; 2
sta FIRE_COLOR ; 3
sta $9A8+34 ; 4
sta $9A8+35 ; 4
jsr toggle_flame
lda KEYPRESS
bmi totally_done_fireplace
; wait for_pattern
; wait for_pattern / end
lda SOUND_STATUS
and #SOUND_MOCKINGBOARD
beq no_music2
lda #1
cmp current_pattern_smc+1
bcc totally_done_fireplace
beq totally_done_fireplace
jmp done_music2
no_music2:
lda FRAMEH
cmp #2
beq totally_done_fireplace
done_music2:
jmp new_loop
@ -386,11 +404,19 @@ totally_done_fireplace:
;=================================
;=================================
;=================================
; scroller
;=================================
;=================================
;=================================
lda #0
sta OFFSET
sta FRAMEL
sta FRAMEH
lda #<greets_raw_zx02
sta zx_src_l+1
@ -402,16 +428,70 @@ totally_done_fireplace:
bit FULLGR
do_scroll:
; update frame count
inc FRAMEL ; 5
lda FRAMEL ; 3
and #$3f ; 2
sta FRAMEL ; 3
bne frame_noflo3 ; 2/3
inc FRAMEH ; 5
frame_noflo3:
jsr toggle_flame
jsr scroll_loop
lda #128
jsr wait
lda KEYPRESS
bmi totally_done_scroll
; wait for_pattern / end
lda SOUND_STATUS
and #SOUND_MOCKINGBOARD
beq no_music3
lda #3
cmp current_pattern_smc+1
bcc totally_done_scroll
beq totally_done_scroll
jmp done_music3
no_music3:
lda FRAMEH
cmp #2
beq totally_done_fireplace
done_music3:
jmp do_scroll
done_scroll:
totally_done_scroll:
rts
;=========================
; toggle flame
;=========================
toggle_flame:
lda FIRE_COLOR ; 3
eor #$0D ; 2
sta FIRE_COLOR ; 3
sta $9A8+34 ; 4
sta $9A8+35 ; 4
rts
.include "gr_scroll.s"
greets_raw_zx02: