Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-08-14 17:27:42 +00:00
Code Issues Projects Releases Wiki Activity

magamusic: lock for new values

Browse Source
This commit is contained in:
Vince Weaver
2018-10-27 00:25:20 -04:00
parent 02f0758c31
commit 97df405a11
2 changed files with 120 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
megamusic/falling_apple.s
View File

@@ -150,20 +150,21 @@ page1_loop: ; delay 115+(7 loop)+4 (bit)+4(extra)
; -1 (+1-2) from above
; -25 inc framecount
; -7 see if timeout
; -100 play_music
; -930 play_music
; -10 keypress
;================
; 4407
; 3577
jsr play_music ; 6+94
jsr play_music ; 6+924
; Try X=219 Y=4 cycles=4405R2
nop
; Try X=118 Y=6 cycles=3577
ldy #4 ; 2
faloop1:ldx #219 ; 2
ldy #6 ; 2
faloop1:ldx #118 ; 2
faloop2:dex ; 2
bne faloop2 ; 2nt/3
dey ; 2

113
megamusic/play_music.s
View File

@@ -1,13 +1,105 @@
; takes
; 3 + 80 + 11 = 94
; 3 + 80 + 82 + 88 + 80 + 82 + 88 + 80 + 82 + 88 + 80 + 80 + 11 = 924
play_music:
ldy MB_FRAME ; 3
;=======
; mal
lda mal00,Y ; 4
sta MB_VALUE ; 3
ldx #0 ; 2
jsr write_ay_both ; 6+65
;=========
; 80
; mah
lda mah00,Y ; 4
and #$f ; 2
sta MB_VALUE ; 3
ldx #1 ; 2
jsr write_ay_both ; 6+65
;========
; 82
lda mah00,Y ; 4
lsr ; 2
lsr ; 2
lsr ; 2
lsr ; 2
sta MB_VALUE ; 3
ldx #8 ; 2
jsr write_ay_both ; 6+65
;=======
; 88
; mbl
lda mbl00,Y ; 4
sta MB_VALUE ; 3
ldx #2 ; 2
jsr write_ay_both ; 6+65
;=======
; 80
; mbh
lda mbh00,Y ; 4
and #$f ; 2
sta MB_VALUE ; 3
ldx #3 ; 2
jsr write_ay_both ; 6+65
;=======
; 82
lda mbh00,Y ; 4
lsr ; 2
lsr ; 2
lsr ; 2
lsr ; 2
sta MB_VALUE ; 3
ldx #9 ; 2
jsr write_ay_both ; 6+65
;======
; 88
; mcl
lda mcl00,Y ; 4
sta MB_VALUE ; 3
ldx #4 ; 2
jsr write_ay_both ; 6+65
;======
; 80
; mch
lda mch00,Y ; 4
and #$f ; 2
sta MB_VALUE ; 3
ldx #5 ; 2
jsr write_ay_both ; 6+65
;=======
; 82
lda mch00,Y ; 4
lsr ; 2
lsr ; 2
lsr ; 2
lsr ; 2
sta MB_VALUE ; 3
ldx #10 ; 2
jsr write_ay_both ; 6+65
;========
; 88
; mnl
lda mnl00,Y ; 4
sta MB_VALUE ; 3
ldx #6 ; 2
jsr write_ay_both ; 6+65
;=======
; 80
; mnh
lda mnh00,Y ; 4
sta MB_VALUE ; 3
ldx #7 ; 2
jsr write_ay_both ; 6+65
;=======
; 80
inc MB_FRAME ; 5
@@ -19,3 +111,22 @@ mal00:
.incbin "music/mock.al.00"
mal02:
.incbin "music/mock.al.02"
mah00:
.incbin "music/mock.ah.00"
mbl00:
.incbin "music/mock.bl.00"
mbh00:
.incbin "music/mock.bh.00"
mcl00:
.incbin "music/mock.cl.00"
mch00:
.incbin "music/mock.ch.00"
mnl00:
.incbin "music/mock.nl.00"
mnh00:
.incbin "music/mock.nh.00"