; S3M and MOD player for MoonSound
DEVICE ZXSPECTRUM128
include "../_sdk/sys_h.asm"
include "playerdefs.asm"
TITLELENGTH = 64
MEMORYSTREAMMAXPAGES = 20
MEMORYSTREAMERRORMASK = 0
org PLAYERSTART
begin PLAYERHEADER
isfilesupported
;cde = file extension
;out: zf=1 if this player can handle the file and the sound hardware is available, zf=0 otherwise
ismoonsounddisabled=$+1
jr nosupportedfiles
call ismodfile
jr z,initplayvars
ld a,'s'
cp c
ret nz
ld hl,'3m'
sbc hl,de
ret nz
initplayvars
ld hl,0
ld (MUSICTITLEADDR),hl
ld hl,musicprogress+1
ld (MUSICPROGRESSADDR),hl
jp initprogress
nosupportedfiles
or 1
ret
playerinit
;hl = GPSETTINGS
;a = player page
;out: zf=1 if init is successful, hl=init message
ld (.settingsaddr),hl
ld de,GPSETTINGS.moonsoundstatus
add hl,de
ld a,(hl)
cp 2
ld hl,nodevicestr
ret nz
;init period lookup
OS_NEWPAGE
or a
ld hl,outofmemorystr
ret nz
ld a,e
push af
SETPGC000
;move period lookup table to its own page
ld hl,periodlookup
ld de,0xc000
ld bc,periodlookup_end-periodlookup
ldir
;start initing vars after the table was copied
pop af
ld (modperiodlookuppage),a
.settingsaddr=$+1
ld hl,0
ld a,(hl)
ld (modfilebufferpage),a
call setdefaultpanning
ld hl,initokstr
xor a
ld (ismoonsounddisabled),a
ret
setdefaultpanning
;hl = GPSETTINGS
push hl
pop ix
ld de,(ix+GPSETTINGS.moonmoddefaultpanning)
ld a,d
or e
ret z
ld b,4
ld hl,moddefaultpanning
.setpanningloop
ld a,(de)
sub 'A'
jr nc,$+4
add a,'A'-'0'-10
add a,10
and 15
ld (hl),a
inc hl
inc de
djnz .setpanningloop
ret
playerdeinit
modperiodlookuppage=$+1
ld e,0
OS_DELPAGE
ret
ismodfile
;cde = file extension
;out: zf=1 if .mod, zf=0 otherwise
ld a,'m'
cp c
ret nz
ld a,'o'
cp d
ret nz
ld a,'d'
cp e
ret
musicload
;cde = file extension
;hl = input file name
;out: zf=1 if the file is ready for playing, zf=0 otherwise
call ismodfile
ex de,hl
jr nz,.loads3m
call modload
ret nz
ld a,255
ld (isplayingmodfile),a
ld a,(modinfo.songlength)
jr .finalize
.loads3m
call s3mload
ret nz
xor a
ld (isplayingmodfile),a
ld a,(s3mheader.ordernum)
.finalize
call setprogressdelta
ld de,MODHEADERADDR
ld a,(de)
or a
jr z,.notitle
ld hl,titlestr
ld (MUSICTITLEADDR),hl
ld b,TITLELENGTH+1
.copytitleloop
ld a,(de)
ld (hl),a
inc de
inc hl
dec b
or a
jr nz,.copytitleloop
dec hl
.filltitleloop
ld (hl),' '
inc hl
djnz .filltitleloop
ld (hl),0
.notitle
xor a
ld (currentposition),a
ret
musicunload
ld a,(isplayingmodfile)
or a
jp nz,modunload
jp s3munload
musicplay
;out: zf=0 if still playing, zf=1 otherwise
ld a,(isplayingmodfile)
or a
jr nz,.playmod
call s3mplay
ld a,(s3mplayer.patterntableindex)
call updateprogress
ld a,(s3mplayer.patterntableindex)
jr .finalize
.playmod
call modplay
ld a,(modplayer.patterntableindex)
call updateprogress
ld a,(modplayer.patterntableindex)
.finalize
;check if the position is increasing monotonically
ld hl,currentposition
cp (hl)
ld (hl),a
ccf
sbc a
ret
include "../_sdk/file.asm"
include "common/memorystream.asm"
include "common/opl4.asm"
include "common/muldiv.asm"
include "moonmod/mod.asm"
include "moonmod/s3m.asm"
include "progress.asm"
playernamestr
db "MoonSound S3M/MOD Player",0
outofmemorystr
db "Out of memory!",0
initokstr
db "OK\r\n",0
nodevicestr
db "no device!\r\n",0
tempmemorystart = $
periodlookup
incbin "moonmod/periodlookup.bin"
periodlookup_end
end
titlestr equ tempmemorystart
currentposition equ titlestr+TITLELENGTH+1
modfilebufferpage equ currentposition+1
isplayingmodfile equ modfilebufferpage+1
modtempmemory equ isplayingmodfile+1
org modtempmemory
modinfo MODINFO
modwaveheaderbuffer = $
modplayer MODPLAYER
assert $ <= PLAYEREND ;ensure everything is within the player page
org modtempmemory
s3minfo S3MINFO
s3mwaveheaderbuffer = $
s3mplayer S3MPLAYER
assert $ <= PLAYEREND ;ensure everything is within the player page
org MODHEADERADDR
modheader MODHEADER
org S3MHEADERADDR
s3mheader S3MHEADER
assert MODWAVEHEADERBUFFERSIZE <= PLAYEREND-modwaveheaderbuffer
assert S3MWAVEHEADERBUFFERSIZE <= PLAYEREND-s3mwaveheaderbuffer
savebin "moonmod.bin",begin,end-begin