mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 23:54:33 +00:00
sa: ed now plays the music at least
This commit is contained in:
parent
cac017e578
commit
95a085f759
@ -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 *!*
|
||||||
|
@ -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"
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user