2023-05-22 16:17:35 +02:00
|
|
|
IFEQ FW_VBL_MUSIC_IRQ
|
|
|
|
fail "FW_VBL_MUSIC_IRQ must be enabled"
|
|
|
|
ENDC
|
|
|
|
|
|
|
|
fw_MusicInit:
|
|
|
|
PUTMSG 10,<"Music-Init %p %p">,a0,a1
|
|
|
|
bsr.s LSP_MusicInit
|
|
|
|
moveq.l #-1,d0
|
|
|
|
move.w d0,fw_MusicFrameCount(a6)
|
2024-09-15 17:43:33 +02:00
|
|
|
lea fw_MusicPlay(pc),a0
|
|
|
|
move.l a0,fw_MusicTickRoutine(a6)
|
2023-05-22 16:17:35 +02:00
|
|
|
PUTMSG 10,<"Music-Init done">
|
|
|
|
rts
|
|
|
|
|
|
|
|
fw_MusicPlay:
|
|
|
|
PUSHM a4
|
|
|
|
bsr.s LSP_MusicPlayTick
|
|
|
|
POPM
|
|
|
|
rts
|
|
|
|
|
|
|
|
fw_MusicStop:
|
2024-09-15 17:43:33 +02:00
|
|
|
clr.l fw_MusicTickRoutine(a6)
|
2023-05-22 16:17:35 +02:00
|
|
|
move.w #DMAF_AUDIO,dmacon(a5)
|
|
|
|
; unsupported right now
|
|
|
|
rts
|
|
|
|
|
|
|
|
;--------------------------------------------------------------------
|
|
|
|
; sets the position if supported
|
|
|
|
; d0.w = new position
|
2024-09-15 17:43:33 +02:00
|
|
|
IFNE DEBUG_DETAIL
|
|
|
|
fw_MusicSetPosition EQU LSP_MusicSetPos
|
|
|
|
ELSE
|
2023-05-22 16:17:35 +02:00
|
|
|
fw_MusicSetPosition:
|
2024-09-15 17:43:33 +02:00
|
|
|
rts
|
|
|
|
ENDC
|
2023-05-22 16:17:35 +02:00
|
|
|
|
2024-09-15 17:43:33 +02:00
|
|
|
include "musicplayers/lightspeedplayer.asm"
|