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

sa: ed now plays the music at least

Browse Source
This commit is contained in:
Vince Weaver 2018-06-04 12:24:03 -04:00
parent cac017e578
commit 95a085f759
3 changed files with 35 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
still_alive/duet.s
View File

@ -25,15 +25,15 @@
;.define EQU = ;.define EQU =
; These are all "Free" zero page locations ; These are all "Free" zero page locations
FREQ1 EQU $06 ;FREQ1 EQU $06
FREQ2 EQU $07 ;FREQ2 EQU $07
DURATION EQU $08 ;DURATION EQU $08
INSTRUMENT1 EQU $09 ;INSTRUMENT1 EQU $09
INSTRUMENT2 EQU $1D ;INSTRUMENT2 EQU $1D
MADDRL EQU $1E ;MADDRL EQU $1E
MADDRH EQU $1F ;MADDRH EQU $1F
LOC4E EQU $4E ;LOC4E EQU $4E
COUNT256 EQU $4F ;COUNT256 EQU $4F
play_ed: play_ed:
LDA #$01 ; 900: A9 01 ; 2 *!* LDA #$01 ; 900: A9 01 ; 2 *!*

10
still_alive/sa_ed.s
View File

@ -42,9 +42,18 @@ only_forty:
; sta LYRICSH ; sta LYRICSH
;MADDRL EQU 30
;MADDRH EQU 31
;================== ;==================
; load song ; load song
;================== ;==================
lda #<music_address
sta MADDRL
lda #>music_address
sta MADDRH
jsr play_ed
;================== ;==================
; loop forever ; loop forever
@ -81,5 +90,6 @@ lyrics:
;.incbin "SA.KR4" ;.incbin "SA.KR4"
music_address:
.incbin "SA.ED" .incbin "SA.ED"

16
still_alive/zp.inc
View File

@ -1,5 +1,21 @@
.define EQU = .define EQU =
;; Electric Duet addresses
; These are all "Free" zero page locations
FREQ1 EQU $06
FREQ2 EQU $07
DURATION EQU $08
INSTRUMENT1 EQU $09
INSTRUMENT2 EQU $1D
MADDRL EQU $1E
MADDRH EQU $1F
LOC4E EQU $4E
COUNT256 EQU $4F
;; LZ4 addresses
LZ4_SRC EQU $00 LZ4_SRC EQU $00
LZ4_DST EQU $02 LZ4_DST EQU $02
LZ4_END EQU $04 LZ4_END EQU $04