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

fireworks: add another click, not sure if worth it

Browse Source
This commit is contained in:
Vince Weaver 2018-09-12 15:30:14 -04:00
parent 6ef2122b57
commit 1fa0db0016
3 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fireworks/fireworks.s
View File

@ -390,11 +390,14 @@ restart:
eor #$C0 eor #$C0
sta sound1+2 sta sound1+2
lda sound2+2 lda sound2+2
eor #$C0 eor #$C0
sta sound2+2 sta sound2+2
lda sound3+2
eor #$C0
sta sound3+2
jmp setup_background jmp setup_background

9
fireworks/fw.s
View File

@ -450,7 +450,7 @@ not_done_with_launch2:
;====================================================================== ;======================================================================
; Start explosion near x_old, y_old ; Start explosion near x_old, y_old
;====================================================================== ;======================================================================
; cycles = 67+16+63+16+258+16 = 436 ; cycles = 67+16+63+16+258+20 = 440
; ;
start_explosion: start_explosion:
@ -528,7 +528,10 @@ exp_sub_done:
jsr hplot0 ; hplot(x_old,y_old); ; 6+244 jsr hplot0 ; hplot(x_old,y_old); ; 6+244
;============== ;==============
; 258 ; 258
; Spread the explosion ; Make sound and ready explosion
sound3:
bit SPEAKER ; 4
ldy #1 ; 2 ldy #1 ; 2
sty TEMPY ; save Y ; 3 sty TEMPY ; save Y ; 3
@ -540,7 +543,7 @@ exp_sub_done:
rts ; 6 rts ; 6
;============= ;=============
; 16 ; 20
;========================================================================== ;==========================================================================
; Continue Explosion ; Continue Explosion

11
fireworks/state_machine.s
View File

@ -62,21 +62,22 @@ Yloop2: dex ; 2
;================================= ;=================================
; and take 4504 cycles to do it ; and take 4504 cycles to do it
; we take 445 so waste 4059 ; we take 449 so waste 4055
action_start_explosion: action_start_explosion:
; Try X=30 Y=26 cycles=4057 R2 ; Try X=15 Y=50 cycles=4051 R4
nop
nop nop
ldy #26 ; 2 ldy #50 ; 2
Zloop1: ldx #30 ; 2 Zloop1: ldx #15 ; 2
Zloop2: dex ; 2 Zloop2: dex ; 2
bne Zloop2 ; 2nt/3 bne Zloop2 ; 2nt/3
dey ; 2 dey ; 2
bne Zloop1 ; 2nt/3 bne Zloop1 ; 2nt/3
jsr start_explosion ; 6+436 = 442 jsr start_explosion ; 6+440 = 446
jmp check_keyboard ; 3 jmp check_keyboard ; 3