Subversion Repositories NedoOS

; 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 ix,memorystreampages
        call opl4initwave
        ret nz
;init period lookup
        OS_NEWPAGE
        or a
        ld hl,outofmemorystr
        ret nz
        ld a,e
        push af
        SETPGC000
;       call modinitperiodlookup
;load the table from disk, modinitperiodlookup is very slow on ATM2
        ld hl,modperiodopl4
        ld de,0xc000
        ld bc,modperiodopl4_end-modperiodopl4
        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 hl,titlestr
        ld (MUSICTITLEADDR),hl
        ld de,0xc000
        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
        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/opl4utils.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

tempmemorystart = $
modperiodopl4
        incbin "moonmod/modperiodopl4.bin"
modperiodopl4_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 MEMORYSTREAMMAXPAGES >= 9
        assert MODWAVEHEADERBUFFERSIZE <= PLAYEREND-modwaveheaderbuffer
        assert S3MWAVEHEADERBUFFERSIZE <= PLAYEREND-s3mwaveheaderbuffer

        savebin "moonmod.bin",begin,end-begin