prog8/examples/cx16/zsound/play-pcm.p8
2022-06-10 23:35:37 +02:00

46 lines
1.3 KiB
Lua

%import textio
%import cx16diskio
%zeropage basicsafe
%zpreserved $22,$26 ; zsound lib uses this region
;; Proof Of Concept ZCM player using a binary blob version of zsound library by ZeroByte relocated to something usable here.
; "issues": see play-zsm.p8
main $0830 {
zsound_lib:
; this has to be the first statement to make sure it loads at the specified module address $0830
%asmbinary "pcmplayer-0830.bin"
; note: jump table is offset by 2 from the load address (because of prg header)
romsub $0832 = pcm_init() clobbers(A)
romsub $0835 = pcm_trigger_digi(ubyte bank @A, uword song_address @XY)
romsub $0838 = pcm_play() clobbers(A, X, Y)
romsub $083b = pcm_stop() clobbers(A)
romsub $083e = pcm_set_volume(ubyte volume @A)
const ubyte digi_bank = 1
const uword digi_address = $a000
sub start() {
txt.print("zsound pcm digi demo program!\n")
if not cx16diskio.load_raw(8, "shoryuken.zcm", digi_bank, digi_address) {
txt.print("?can't load digi\n")
return
}
pcm_init()
txt.print("playing digi! hit enter to stop.\n")
pcm_trigger_digi(digi_bank, digi_address)
while cx16.joystick_get2(0)==$ffff {
sys.waitvsync()
pcm_play()
}
pcm_stop()
}
}