Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-26 00:29:29 +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 =
; 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
;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
play_ed:
LDA #$01 ; 900: A9 01 ; 2 *!*

10
still_alive/sa_ed.s
View File

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

16
still_alive/zp.inc
View File

@ -1,5 +1,21 @@
.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_DST EQU $02
LZ4_END EQU $04