Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-09-10 08:54:51 +00:00
Code Issues Projects Releases Wiki Activity

ds: add frame playing in crate_update_type1

Browse Source
This commit is contained in:
Vince Weaver 2019-11-13 23:21:59 -05:00
parent 5b7901d1c9
commit 95b7bb3338
2 changed files with 29 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
demosplash/create_update_type1.s
View File

@ -20,6 +20,8 @@ create_update_type1:
sta OUTL ; 3 sta OUTL ; 3
lda #>UPDATE_START ; 2 lda #>UPDATE_START ; 2
sta OUTH ; 3 sta OUTH ; 3
lda #19
sta FORCE_MUSIC
;=========== ;===========
; 12 ; 12
create_update_outer_loop: create_update_outer_loop:
@ -50,6 +52,21 @@ create_update_inner_loop:
adc #0 ; 2 adc #0 ; 2
sta OUTH ; 3 sta OUTH ; 3
dec FORCE_MUSIC
bne no_force_music
lda #19
sta FORCE_MUSIC
txa
pha
jsr play_frame_compressed
pla
tax
no_force_music:
dex ; 2 dex ; 2
bne create_update_outer_loop ; 3 bne create_update_outer_loop ; 3
;=========== ;===========

23
demosplash/zp.inc
View File

@ -11,17 +11,17 @@ DELTA = $08
;; Zero page monitor routines addresses ;; Zero page monitor routines addresses
WNDLFT = $20 WNDLFT = $20
WNDWDTH = $21 WNDWDTH = $21
WNDTOP = $22 WNDTOP = $22
WNDBTM = $23 WNDBTM = $23
CH = $24 CH = $24
CV = $25 CV = $25
GBASL = $26 GBASL = $26
GBASH = $27 GBASH = $27
BASL = $28 BASL = $28
BASH = $29 BASH = $29
H2 = $2C H2 = $2C
V2 = $2D V2 = $2D
MASK = $2E MASK = $2E
COLOR_MASK = $2F COLOR_MASK = $2F
@ -101,6 +101,7 @@ KEYPTRL = $90
KEYPTRH = $91 KEYPTRH = $91
KEY_COUNTDOWN = $92 KEY_COUNTDOWN = $92
KEYPTR = $93 KEYPTR = $93
FORCE_MUSIC = $94
; have to be consecutive ; have to be consecutive
DOOR_STATUS = $B0 DOOR_STATUS = $B0