mirror of
https://github.com/irmen/prog8.git
synced 2024-07-25 13:29:03 +00:00
67 lines
2.2 KiB
Lua
67 lines
2.2 KiB
Lua
%import textio
|
|
%import cx16diskio
|
|
%zeropage basicsafe
|
|
%zpreserved $22,$28 ; zsound lib uses this region
|
|
|
|
|
|
;; Proof Of Concept ZSM player using a binary blob version of zsound library by ZeroByte relocated to something usable here.
|
|
|
|
|
|
main $0830 {
|
|
; TODO: don't like to have *main* at a set start address, but otherwise the compiler puts it at the front, overwriting another module that we wanted there
|
|
|
|
zsound_lib:
|
|
; this has to be the first statement to make sure it loads at the specified module address $0830
|
|
%asmbinary "zsmplayer-0830.bin"
|
|
|
|
; note: jump table is offset by 2 from the load address (because of prg header)
|
|
romsub $0832 = zsm_init() clobbers(A)
|
|
romsub $0835 = zsm_play() clobbers(A, X, Y)
|
|
romsub $0838 = zsm_playIRQ() clobbers(A, X, Y)
|
|
romsub $083b = zsm_start(ubyte bank @A, uword song_address @XY) clobbers(A, X, Y) -> ubyte @Pc
|
|
romsub $083e = zsm_stop()
|
|
romsub $0841 = zsm_setspeed(uword hz @XY) clobbers(A, X, Y)
|
|
romsub $0844 = zsm_setloop(ubyte count @A)
|
|
romsub $0847 = zsm_forceloop(ubyte count @A)
|
|
romsub $084a = zsm_noloop()
|
|
romsub $084d = zsm_setcallback(uword address @XY)
|
|
romsub $0850 = zsm_clearcallback() clobbers(A)
|
|
romsub $0853 = zsm_get_music_speed() clobbers(A) -> uword @XY
|
|
|
|
const ubyte song_bank = 1
|
|
const uword song_address = $a000
|
|
|
|
sub start() {
|
|
txt.print("zsound demo program!\n")
|
|
|
|
if not cx16diskio.load_raw(8, "colony.zsm", song_bank, song_address) {
|
|
txt.print("?can't load song\n")
|
|
return
|
|
}
|
|
cx16.rambank(1) ; ram bank to default
|
|
|
|
zsm_init()
|
|
zsm_setcallback(&end_of_song_cb)
|
|
if zsm_start(song_bank, song_address)==0 {
|
|
txt.print("music speed: ")
|
|
txt.print_uw(zsm_get_music_speed())
|
|
txt.print(" hz\nplaying song! hit enter to stop.\n")
|
|
|
|
; for IRQ based playback instead: cx16.set_irq(&zsm_playIRQ, true)
|
|
while cx16.joystick_get2(0)==$ffff {
|
|
sys.waitvsync()
|
|
zsm_play()
|
|
}
|
|
zsm_stop()
|
|
} else {
|
|
txt.print("?song start error\n")
|
|
}
|
|
|
|
; TODO set Vera back to sane state?
|
|
}
|
|
|
|
sub end_of_song_cb() {
|
|
txt.print("end of song!\n")
|
|
}
|
|
}
|