aboutsummaryrefslogtreecommitdiff
path: root/src-68k/sound
diff options
context:
space:
mode:
Diffstat (limited to 'src-68k/sound')
-rw-r--r--src-68k/sound/bgms.68k23
-rw-r--r--src-68k/sound/echo.68k245
-rw-r--r--src-68k/sound/list.68k85
-rw-r--r--src-68k/sound/sfxs.68k26
4 files changed, 379 insertions, 0 deletions
diff --git a/src-68k/sound/bgms.68k b/src-68k/sound/bgms.68k
new file mode 100644
index 0000000..7264048
--- /dev/null
+++ b/src-68k/sound/bgms.68k
@@ -0,0 +1,23 @@
+;****************************************************************************
+; BGM_Test
+; Generic BGM to test events
+;****************************************************************************
+
+BGM_Test:
+ dc.b $FF
+
+;****************************************************************************
+; BGM_Minion
+; "Evil's Minion"
+;****************************************************************************
+
+BGM_Minion:
+ incbin "data/music/minion.esf"
+
+;****************************************************************************
+; BGM_HoL
+; "Hall of Loneliness"
+;****************************************************************************
+
+BGM_HoL:
+ incbin "data/music/hol.esf"
diff --git a/src-68k/sound/echo.68k b/src-68k/sound/echo.68k
new file mode 100644
index 0000000..73eb82f
--- /dev/null
+++ b/src-68k/sound/echo.68k
@@ -0,0 +1,245 @@
+;****************************************************************************
+; Echo_Z80Request
+; Requests the Z80 bus
+;****************************************************************************
+
+Echo_Z80Request macro
+ move.w #$100, ($A11100) ; Request Z80 bus
+@Echo_WaitZ80\@:
+ btst.b #0, ($A11100) ; Did we get it yet?
+ bne.s @Echo_WaitZ80\@ ; Keep waiting
+ endm ; End of macro
+
+;****************************************************************************
+; Echo_Z80Release
+; Releases the Z80 bus
+;****************************************************************************
+
+Echo_Z80Release macro
+ move.w #$000, ($A11100) ; Release Z80 bus
+ endm ; End of macro
+
+;****************************************************************************
+; Echo_Z80Reset
+; Resets the Z80 and YM2612
+;****************************************************************************
+
+Echo_Z80Reset macro
+ move.w #$000, ($A11200) ; Assert reset line
+ rept $10 ; Wait until hardware resets
+ nop ; ...
+ endr ; ...
+ move.w #$100, ($A11200) ; Release reset line
+ endm ; End of macro
+
+;****************************************************************************
+; Echo_Init
+; Initializes Echo
+;
+; input a0.l ... Address of pointer list
+;****************************************************************************
+
+Echo_Init:
+ movem.l d0/a0-a1, -(sp) ; Save registers
+
+ Echo_Z80Reset ; May not work without this...
+ Echo_Z80Request ; We need the Z80 bus
+
+ move.b #$01, ($A01FFF) ; Command: load pointer list
+
+ move.l a0, d0 ; Easier to manipulate here
+ move.b d0, ($A01FFD) ; Store low address byte
+ lsr.l #7, d0 ; Get high address byte
+ lsr.b #1, d0 ; We skip one bit
+ bset.l #7, d0 ; Point into bank window
+ move.b d0, ($A01FFE) ; Store high address byte
+ lsr.w #8, d0 ; Get bank byte
+ move.w d0, d1 ; Parse 32X bit separately
+ lsr.w #1, d1 ; Put 32X bit in place
+ and.b #$7F, d0 ; Filter out unused bit from addresses
+ and.b #$80, d1 ; Filter out all but 32X bit
+ or.b d1, d0 ; Put everything together
+ move.b d0, ($A01FFC) ; Store bank byte
+
+ lea @Z80Program(pc), a0 ; Where Z80 program starts
+ lea ($A00000), a1 ; Where Z80 RAM starts
+ move.w #@Z80ProgSize-1, d0 ; Size of Z80 program (DBF adjusted)
+@LoadLoop: ; Go through all the program
+ move.b (a0)+, (a1)+ ; Copy byte into Z80 RAM
+ dbf d0, @LoadLoop ; Go for next byte
+
+ Echo_Z80Reset ; Now reset for real
+ Echo_Z80Release ; Let the Z80 go!
+
+ movem.l (sp)+, d0/a0-a1 ; Restore registers
+ rts ; End of subroutine
+
+;****************************************************************************
+; Echo Z80 program
+; It should be located wherever Echo_ProgFile was defined
+;****************************************************************************
+
+@Z80Program: incbin "\Echo_ProgFile"
+@Z80ProgSize equ *-@Z80Program
+ even
+
+;****************************************************************************
+; Echo_SendCommand
+; Sends an Echo command (no address parameter)
+;
+; input d0.b ... Echo command
+;****************************************************************************
+
+Echo_SendCommand:
+ move.w d1, -(sp) ; Save register
+
+ Echo_Z80Request ; We need the Z80 bus
+
+@Try:
+ tst.b ($A01FFF) ; Check if Echo is ready
+ beq.s @Ready ; Too busy?
+ Echo_Z80Release ; Let Echo continue
+ move.w #$FF, d1 ; Give it some time
+ dbf d1, * ; ...
+ Echo_Z80Request ; Get Z80 bus back
+ bra.s @Try ; Try again
+
+@Ready:
+ move.b d0, ($A01FFF) ; Write command ID
+ Echo_Z80Release ; We're done with the Z80 bus
+
+ move.w (sp)+, d1 ; Restore register
+ rts ; End of subroutine
+
+;****************************************************************************
+; Echo_SendCommandEx
+; Sends an Echo command (with address parameter)
+;
+; input d0.b ... Echo command
+; input a0.l ... Address parameter
+;****************************************************************************
+
+Echo_SendCommandEx:
+ movem.l d0-d1, -(sp) ; Save register
+
+ Echo_Z80Request ; We need the Z80 bus
+
+@Try:
+ tst.b ($A01FFF) ; Check if Echo is ready
+ beq.s @Ready ; Too busy?
+ Echo_Z80Release ; Let Echo continue
+ move.w #$FF, d1 ; Give it some time
+ dbf d1, * ; ...
+ Echo_Z80Request ; Get Z80 bus back
+ bra.s @Try ; Try again
+
+@Ready:
+ move.b d0, ($A01FFF) ; Write command ID
+
+ move.l a0, d0 ; Easier to manipulate here
+ move.b d0, ($A01FFD) ; Store low address byte
+ lsr.l #7, d0 ; Get high address byte
+ lsr.b #1, d0 ; We skip one bit
+ bset.l #7, d0 ; Point into bank window
+ move.b d0, ($A01FFE) ; Store high address byte
+
+ lsr.w #8, d0 ; Get bank byte
+ move.w d0, d1 ; Parse 32X bit separately
+ lsr.w #1, d1 ; Put 32X bit in place
+ and.b #$7F, d0 ; Filter out unused bit from addresses
+ and.b #$80, d1 ; Filter out all but 32X bit
+ or.b d1, d0 ; Put everything together
+ move.b d0, ($A01FFC) ; Store bank byte
+
+ Echo_Z80Release ; We're done with the Z80 bus
+
+ movem.l (sp)+, d0-d1 ; Restore register
+ rts ; End of subroutine
+
+;****************************************************************************
+; Echo_PlaySFX
+; Plays a SFX
+;
+; input a0.l ... Pointer to SFX data
+;****************************************************************************
+
+Echo_PlaySFX:
+ move.w d0, -(sp) ; Save register
+ move.b #$02, d0 ; Command $02 = play SFX
+ bsr Echo_SendCommandEx ; Send command to Echo
+ move.w (sp)+, d0 ; Restore register
+ rts ; End of subroutine
+
+;****************************************************************************
+; Echo_StopSFX
+; Stops SFX playback
+;****************************************************************************
+
+Echo_StopSFX:
+ move.w d0, -(sp) ; Save register
+ move.b #$03, d0 ; Command $03 = stop SFX
+ bsr Echo_SendCommand ; Send command to Echo
+ move.w (sp)+, d0 ; Restore register
+ rts ; End of subroutine
+
+;****************************************************************************
+; Echo_PlayBGM
+; Plays a BGM
+;
+; input a0.l ... Pointer to BGM data
+;****************************************************************************
+
+Echo_PlayBGM:
+ move.w d0, -(sp) ; Save register
+ move.b #$04, d0 ; Command $04 = play BGM
+ bsr Echo_SendCommandEx ; Send command to Echo
+ move.w (sp)+, d0 ; Restore register
+ rts ; End of subroutine
+
+;****************************************************************************
+; Echo_StopBGM
+; Stops BGM playback
+;****************************************************************************
+
+Echo_StopBGM:
+ move.w d0, -(sp) ; Save register
+ move.b #$05, d0 ; Command $05 = stop BGM
+ bsr Echo_SendCommand ; Send command to Echo
+ move.w (sp)+, d0 ; Restore register
+ rts ; End of subroutine
+
+;****************************************************************************
+; Echo_GetStatus
+; Gets the current status of Echo
+;
+; output d0.b ... Echo status
+; Bit #0: SFX is playing
+; Bit #1: BGM is playing
+;****************************************************************************
+
+Echo_GetStatus:
+ Echo_Z80Request ; We need the Z80 bus
+ move.b ($A01FF0), d0 ; Just get the status
+ Echo_Z80Release ; Let the Z80 go!
+ rts ; End of subroutine
+
+;****************************************************************************
+; Echo_ListEntry
+; Defines an entry in a pointer list
+;****************************************************************************
+
+Echo_ListEntry macro addr
+ dc.b $80|((addr)>>8&$7F) ; High byte of address
+ dc.b (addr)&$FF ; Low byte of address
+ dc.b ((addr)>>15&$7F)|((addr)>>16&$80) ; Bank number
+ endm
+
+;****************************************************************************
+; Echo_ListEnd
+; Ends a pointer list
+;****************************************************************************
+
+Echo_ListEnd macro
+ dc.b $00 ; End of list mark
+ even ; Just in case...
+ endm
diff --git a/src-68k/sound/list.68k b/src-68k/sound/list.68k
new file mode 100644
index 0000000..f871b0a
--- /dev/null
+++ b/src-68k/sound/list.68k
@@ -0,0 +1,85 @@
+;****************************************************************************
+; PointerList
+; Pointer list used by Echo
+;****************************************************************************
+
+PointerList:
+ Echo_ListEntry Instr_PSGFlat ; $00 [PSG] Flat PSG instrument
+ Echo_ListEntry Instr_DGuitar ; $01 [FM] Distortion guitar
+ Echo_ListEntry Instr_Snare ; $02 [PCM] Snare drum
+ Echo_ListEntry Instr_Kick ; $03 [PCM] Bass drum (kick)
+ Echo_ListEntry Instr_Strings ; $04 [FM] String ensemble
+ Echo_ListEntry Instr_Bass ; $05 [FM] Standard bass
+ Echo_ListEntry Instr_SoftPSG ; $06 [PSG] Soft PSG envelope
+ Echo_ListEntry Instr_PianoPSG ; $07 [PSG] Piano PSG instrument
+ Echo_ListEnd
+
+;****************************************************************************
+; Instrument $00 [PSG]
+; Flat PSG instrument (no envelope)
+;****************************************************************************
+
+Instr_PSGFlat:
+ dc.b $FE,$00,$FF
+
+;****************************************************************************
+; Instrument $01 [FM]
+; Distortion guitar
+;****************************************************************************
+
+Instr_DGuitar:
+ incbin "data/fm/dguitar.eif"
+
+;****************************************************************************
+; Instrument $02 [PCM]
+; Snare drum
+;****************************************************************************
+
+Instr_Snare:
+ incbin "data/pcm/snare.ewf"
+
+;****************************************************************************
+; Instrument $03 [PCM]
+; Bass drum
+;****************************************************************************
+
+Instr_Kick:
+ incbin "data/pcm/kick.ewf"
+
+;****************************************************************************
+; Instrument $04 [FM]
+; String ensemble
+;****************************************************************************
+
+Instr_Strings:
+ incbin "data/fm/string.eif"
+
+;****************************************************************************
+; Instrument $05 [FM]
+; Standard bass
+;****************************************************************************
+
+Instr_Bass:
+ incbin "data/fm/bass.eif"
+
+;****************************************************************************
+; Instrument $06 [PSG]
+; "Soft" PSG envelope
+;****************************************************************************
+
+Instr_SoftPSG:
+ dc.b $00,$01,$01,$02,$02,$02,$03,$03,$03,$03,$FE,$04,$FF
+
+;****************************************************************************
+; Instrument $07 [PSG]
+; Piano-like PSG instrument
+;****************************************************************************
+
+Instr_PianoPSG:
+ dc.b $00,$01,$02,$03,$04,$04,$05,$05
+ dc.b $06,$06,$07,$07,$08,$08,$08,$08
+ dc.b $09,$09,$09,$09,$0A,$0A,$0A,$0A
+ dc.b $0B,$0B,$0B,$0B,$0C,$0C,$0C,$0C
+ dc.b $0C,$0C,$0C,$0C,$0D,$0D,$0D,$0D
+ dc.b $0D,$0D,$0D,$0D,$0E,$0E,$0E,$0E
+ dc.b $0E,$0E,$0E,$0E,$FE,$0F,$FF
diff --git a/src-68k/sound/sfxs.68k b/src-68k/sound/sfxs.68k
new file mode 100644
index 0000000..ac969dc
--- /dev/null
+++ b/src-68k/sound/sfxs.68k
@@ -0,0 +1,26 @@
+;****************************************************************************
+; SFX_Test
+; Generic SFX to test events
+;****************************************************************************
+
+SFX_Test:
+ dc.b $E8,$E9,$EA
+ dc.b $28,$00,$48,$00
+ dc.b $29,$08,$49,$00
+ dc.b $2A,$08,$4A,$00
+
+ dc.b $08,12,$09,24,$0A,36, $FE,$10, $18,$19,$1A, $FE,$10
+ dc.b $08,12,$09,24,$0A,36, $FE,$10, $18,$19,$1A, $FE,$10
+ dc.b $08,14,$09,26,$0A,38, $FE,$10, $18,$19,$1A, $FE,$10
+
+ dc.b $FF
+
+;****************************************************************************
+; SFX_Beep
+; Beep SFX
+;****************************************************************************
+
+SFX_Beep:
+ dc.b $EA,$1A,$4A,$00,$2A,$00
+ dc.b $0A,2*36,$FE,4
+ dc.b $FF