diff --git a/compiler/res/prog8lib/cx16/audio.p8 b/compiler/res/prog8lib/cx16/audio.p8 deleted file mode 100644 index 116224e77..000000000 --- a/compiler/res/prog8lib/cx16/audio.p8 +++ /dev/null @@ -1,459 +0,0 @@ -%import syslib - -; Stubs for the audio routines in rom bank 10 -; They use JSRFAR to select the correct bank, so user code doesn't have to bother. -; -; The stubs here still use the romsub definitions of the routines from syslib, but those are -; just the jump addresses and are unaware of the kernal bank. Wrapping in JSRFAR fixes this. - -audio { - const ubyte rom_bank = $0a - asmsub audio_init() clobbers(A,X,Y) -> bool @Pc { ; (re)initialize both vera PSG and YM audio chips - %asm{{ - jsr cx16.JSRFAR - .word cx16.audio_init - .byte p8c_rom_bank - rts - }} - } - asmsub bas_fmfreq(ubyte channel @A, uword freq @XY, bool noretrigger @Pc) clobbers(A,X,Y) -> bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.bas_fmfreq - .byte p8c_rom_bank - rts - }} - } - asmsub bas_fmnote(ubyte channel @A, ubyte note @X, ubyte fracsemitone @Y, bool noretrigger @Pc) clobbers(A,X,Y) -> bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.bas_fmnote - .byte p8c_rom_bank - rts - }} - } - asmsub bas_fmplaystring(ubyte length @A, str string @XY) clobbers(A,X,Y){ - %asm{{ - jsr cx16.JSRFAR - .word cx16.bas_fmplaystring - .byte p8c_rom_bank - rts - }} - } - asmsub bas_fmvib(ubyte speed @A, ubyte depth @X) clobbers(A,X,Y) -> bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.bas_fmvib - .byte p8c_rom_bank - rts - }} - } - asmsub bas_playstringvoice(ubyte channel @A) clobbers(Y){ - %asm{{ - jsr cx16.JSRFAR - .word cx16.bas_playstringvoice - .byte p8c_rom_bank - rts - }} - } - asmsub bas_psgfreq(ubyte voice @A, uword freq @XY) clobbers(A,X,Y) -> bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.bas_psgfreq - .byte p8c_rom_bank - rts - }} - } - asmsub bas_psgnote(ubyte voice @A, ubyte note @X, ubyte fracsemitone @Y) clobbers(A,X,Y) -> bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.bas_psgnote - .byte p8c_rom_bank - rts - }} - } - asmsub bas_psgwav(ubyte voice @A, ubyte waveform @X) clobbers(A,X,Y) -> bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.bas_psgwav - .byte p8c_rom_bank - rts - }} - } - asmsub bas_psgplaystring(ubyte length @A, str string @XY) clobbers(A,X,Y){ - %asm{{ - jsr cx16.JSRFAR - .word cx16.bas_psgplaystring - .byte p8c_rom_bank - rts - }} - } - asmsub bas_fmchordstring(ubyte length @A, str string @XY) clobbers(A,X,Y){ - %asm{{ - jsr cx16.JSRFAR - .word cx16.bas_fmchordstring - .byte p8c_rom_bank - rts - }} - } - asmsub bas_psgchordstring(ubyte length @A, str string @XY) clobbers(A,X,Y){ - %asm{{ - jsr cx16.JSRFAR - .word cx16.bas_psgchordstring - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_bas2fm(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_bas2fm - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_bas2midi(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_bas2midi - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_bas2psg(ubyte note @X, ubyte fracsemitone @Y) clobbers(A) -> uword @XY, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_bas2psg - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_fm2bas(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_fm2bas - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_fm2midi(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_fm2midi - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_fm2psg(ubyte note @X, ubyte fracsemitone @Y) clobbers(A) -> uword @XY, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_fm2psg - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_freq2bas(uword freqHz @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_freq2bas - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_freq2fm(uword freqHz @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_freq2fm - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_freq2midi(uword freqHz @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_freq2midi - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_freq2psg(uword freqHz @XY) clobbers(A) -> uword @XY, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_freq2psg - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_midi2bas(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_midi2bas - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_midi2fm(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_midi2fm - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_midi2psg(ubyte note @X, ubyte fracsemitone @Y) clobbers(A) -> uword @XY, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_midi2psg - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_psg2bas(uword freq @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_psg2bas - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_psg2fm(uword freq @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_psg2fm - .byte p8c_rom_bank - rts - }} - } - asmsub notecon_psg2midi(uword freq @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.notecon_psg2midi - .byte p8c_rom_bank - rts - }} - } - asmsub psg_init() clobbers(A,X,Y) { ; (re)init Vera PSG - %asm{{ - jsr cx16.JSRFAR - .word cx16.psg_init - .byte p8c_rom_bank - rts - }} - } - asmsub psg_playfreq(ubyte voice @A, uword freq @XY) clobbers(A,X,Y){ - %asm{{ - jsr cx16.JSRFAR - .word cx16.psg_playfreq - .byte p8c_rom_bank - rts - }} - } - asmsub psg_read(ubyte offset @X, bool cookedVol @Pc) clobbers(Y) -> ubyte @A{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.psg_read - .byte p8c_rom_bank - rts - }} - } - asmsub psg_setatten(ubyte voice @A, ubyte attenuation @X) clobbers(A,X,Y){ - %asm{{ - jsr cx16.JSRFAR - .word cx16.psg_setatten - .byte p8c_rom_bank - rts - }} - } - asmsub psg_setfreq(ubyte voice @A, uword freq @XY) clobbers(A,X,Y){ - %asm{{ - jsr cx16.JSRFAR - .word cx16.psg_setfreq - .byte p8c_rom_bank - rts - }} - } - asmsub psg_setpan(ubyte voice @A, ubyte panning @X) clobbers(A,X,Y){ - %asm{{ - jsr cx16.JSRFAR - .word cx16.psg_setpan - .byte p8c_rom_bank - rts - }} - } - asmsub psg_setvol(ubyte voice @A, ubyte volume @X) clobbers(A,X,Y){ - %asm{{ - jsr cx16.JSRFAR - .word cx16.psg_setvol - .byte p8c_rom_bank - rts - }} - } - asmsub psg_write(ubyte value @A, ubyte offset @X) clobbers(Y){ - %asm{{ - jsr cx16.JSRFAR - .word cx16.psg_write - .byte p8c_rom_bank - rts - }} - } - asmsub psg_write_fast(ubyte value @A, ubyte offset @X) clobbers(Y){ - %asm{{ - jsr cx16.JSRFAR - .word cx16.psg_write_fast - .byte p8c_rom_bank - rts - }} - } - asmsub psg_getatten(ubyte voice @A) clobbers(Y) -> ubyte @X{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.psg_getatten - .byte p8c_rom_bank - rts - }} - } - asmsub psg_getpan(ubyte voice @A) clobbers(Y) -> ubyte @X{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.psg_getpan - .byte p8c_rom_bank - rts - }} - } - asmsub ym_init() clobbers(A,X,Y) -> bool @Pc { ; (re)init YM chip - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_init - .byte p8c_rom_bank - rts - }} - } - asmsub ym_loaddefpatches() clobbers(A,X,Y) -> bool @Pc { ; load default YM patches - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_loaddefpatches - .byte p8c_rom_bank - rts - }} - } - asmsub ym_loadpatch(ubyte channel @A, uword patchOrAddress @XY, bool what @Pc) clobbers(A,X,Y){ - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_loadpatch - .byte p8c_rom_bank - rts - }} - } - asmsub ym_loadpatchlfn(ubyte channel @A, ubyte lfn @X) clobbers(X,Y) -> ubyte @A, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_loadpatchlfn - .byte p8c_rom_bank - rts - }} - } - asmsub ym_playdrum(ubyte channel @A, ubyte note @X) clobbers(A,X,Y) -> bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_playdrum - .byte p8c_rom_bank - rts - }} - } - asmsub ym_playnote(ubyte channel @A, ubyte kc @X, ubyte kf @Y, bool notrigger @Pc) clobbers(A,X,Y) -> bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_playnote - .byte p8c_rom_bank - rts - }} - } - asmsub ym_setatten(ubyte channel @A, ubyte attenuation @X) clobbers(Y) -> bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_setatten - .byte p8c_rom_bank - rts - }} - } - asmsub ym_setdrum(ubyte channel @A, ubyte note @X) clobbers(A,X,Y) -> bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_setdrum - .byte p8c_rom_bank - rts - }} - } - asmsub ym_setnote(ubyte channel @A, ubyte kc @X, ubyte kf @Y) clobbers(A,X,Y) -> bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_setnote - .byte p8c_rom_bank - rts - }} - } - asmsub ym_setpan(ubyte channel @A, ubyte panning @X) clobbers(A,X,Y) -> bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_setpan - .byte p8c_rom_bank - rts - }} - } - asmsub ym_read(ubyte register @X, bool cooked @Pc) clobbers(Y) -> ubyte @A, bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_read - .byte p8c_rom_bank - rts - }} - } - asmsub ym_release(ubyte channel @A) clobbers(A,X,Y) -> bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_release - .byte p8c_rom_bank - rts - }} - } - asmsub ym_trigger(ubyte channel @A, bool noRelease @Pc) clobbers(A,X,Y) -> bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_trigger - .byte p8c_rom_bank - rts - }} - } - asmsub ym_write(ubyte value @A, ubyte register @X) clobbers(Y) -> bool @Pc{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_write - .byte p8c_rom_bank - rts - }} - } - asmsub ym_getatten(ubyte channel @A) clobbers(Y) -> ubyte @X{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_getatten - .byte p8c_rom_bank - rts - }} - } - asmsub ym_getpan(ubyte channel @A) clobbers(Y) -> ubyte @X{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_getpan - .byte p8c_rom_bank - rts - }} - } - asmsub ym_get_chip_type() clobbers(X) -> ubyte @A{ - %asm{{ - jsr cx16.JSRFAR - .word cx16.ym_get_chip_type - .byte p8c_rom_bank - rts - }} - } -} diff --git a/compiler/res/prog8lib/cx16/syslib.p8 b/compiler/res/prog8lib/cx16/syslib.p8 index 28e79344d..08bc0da4d 100644 --- a/compiler/res/prog8lib/cx16/syslib.p8 +++ b/compiler/res/prog8lib/cx16/syslib.p8 @@ -483,63 +483,63 @@ romsub $C006 = x16edit_loadfile_options(ubyte firstbank @X, ubyte lastbank @Y, s uword filenameLengthAndOptions @R1, uword tabstopAndWordwrap @R2, uword disknumberAndColors @R3, uword headerAndStatusColors @R4) clobbers(A,X,Y) -; Audio (rom bank 10 - you have to activate this bank manually first! Or use the stubs in the audio module. Or use callfar/JSRFAR manually.) -romsub $C09F = audio_init() clobbers(A,X,Y) -> bool @Pc ; (re)initialize both vera PSG and YM audio chips -romsub $C000 = bas_fmfreq(ubyte channel @A, uword freq @XY, bool noretrigger @Pc) clobbers(A,X,Y) -> bool @Pc -romsub $C003 = bas_fmnote(ubyte channel @A, ubyte note @X, ubyte fracsemitone @Y, bool noretrigger @Pc) clobbers(A,X,Y) -> bool @Pc -romsub $C006 = bas_fmplaystring(ubyte length @A, str string @XY) clobbers(A,X,Y) -romsub $C009 = bas_fmvib(ubyte speed @A, ubyte depth @X) clobbers(A,X,Y) -> bool @Pc -romsub $C00C = bas_playstringvoice(ubyte channel @A) clobbers(Y) -romsub $C00F = bas_psgfreq(ubyte voice @A, uword freq @XY) clobbers(A,X,Y) -> bool @Pc -romsub $C012 = bas_psgnote(ubyte voice @A, ubyte note @X, ubyte fracsemitone @Y) clobbers(A,X,Y) -> bool @Pc -romsub $C015 = bas_psgwav(ubyte voice @A, ubyte waveform @X) clobbers(A,X,Y) -> bool @Pc -romsub $C018 = bas_psgplaystring(ubyte length @A, str string @XY) clobbers(A,X,Y) -romsub $C08D = bas_fmchordstring(ubyte length @A, str string @XY) clobbers(A,X,Y) -romsub $C090 = bas_psgchordstring(ubyte length @A, str string @XY) clobbers(A,X,Y) -romsub $C01B = notecon_bas2fm(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc -romsub $C01E = notecon_bas2midi(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc -romsub $C021 = notecon_bas2psg(ubyte note @X, ubyte fracsemitone @Y) clobbers(A) -> uword @XY, bool @Pc -romsub $C024 = notecon_fm2bas(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc -romsub $C027 = notecon_fm2midi(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc -romsub $C02A = notecon_fm2psg(ubyte note @X, ubyte fracsemitone @Y) clobbers(A) -> uword @XY, bool @Pc -romsub $C02D = notecon_freq2bas(uword freqHz @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc -romsub $C030 = notecon_freq2fm(uword freqHz @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc -romsub $C033 = notecon_freq2midi(uword freqHz @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc -romsub $C036 = notecon_freq2psg(uword freqHz @XY) clobbers(A) -> uword @XY, bool @Pc -romsub $C039 = notecon_midi2bas(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc -romsub $C03C = notecon_midi2fm(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc -romsub $C03F = notecon_midi2psg(ubyte note @X, ubyte fracsemitone @Y) clobbers(A) -> uword @XY, bool @Pc -romsub $C042 = notecon_psg2bas(uword freq @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc -romsub $C045 = notecon_psg2fm(uword freq @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc -romsub $C048 = notecon_psg2midi(uword freq @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc -romsub $C04B = psg_init() clobbers(A,X,Y) ; (re)init Vera PSG -romsub $C04E = psg_playfreq(ubyte voice @A, uword freq @XY) clobbers(A,X,Y) -romsub $C051 = psg_read(ubyte offset @X, bool cookedVol @Pc) clobbers(Y) -> ubyte @A -romsub $C054 = psg_setatten(ubyte voice @A, ubyte attenuation @X) clobbers(A,X,Y) -romsub $C057 = psg_setfreq(ubyte voice @A, uword freq @XY) clobbers(A,X,Y) -romsub $C05A = psg_setpan(ubyte voice @A, ubyte panning @X) clobbers(A,X,Y) -romsub $C05D = psg_setvol(ubyte voice @A, ubyte volume @X) clobbers(A,X,Y) -romsub $C060 = psg_write(ubyte value @A, ubyte offset @X) clobbers(Y) -romsub $C0A2 = psg_write_fast(ubyte value @A, ubyte offset @X) clobbers(Y) -romsub $C093 = psg_getatten(ubyte voice @A) clobbers(Y) -> ubyte @X -romsub $C096 = psg_getpan(ubyte voice @A) clobbers(Y) -> ubyte @X -romsub $C063 = ym_init() clobbers(A,X,Y) -> bool @Pc ; (re)init YM chip -romsub $C066 = ym_loaddefpatches() clobbers(A,X,Y) -> bool @Pc ; load default YM patches -romsub $C069 = ym_loadpatch(ubyte channel @A, uword patchOrAddress @XY, bool what @Pc) clobbers(A,X,Y) -romsub $C06C = ym_loadpatchlfn(ubyte channel @A, ubyte lfn @X) clobbers(X,Y) -> ubyte @A, bool @Pc -romsub $C06F = ym_playdrum(ubyte channel @A, ubyte note @X) clobbers(A,X,Y) -> bool @Pc -romsub $C072 = ym_playnote(ubyte channel @A, ubyte kc @X, ubyte kf @Y, bool notrigger @Pc) clobbers(A,X,Y) -> bool @Pc -romsub $C075 = ym_setatten(ubyte channel @A, ubyte attenuation @X) clobbers(Y) -> bool @Pc -romsub $C078 = ym_setdrum(ubyte channel @A, ubyte note @X) clobbers(A,X,Y) -> bool @Pc -romsub $C07B = ym_setnote(ubyte channel @A, ubyte kc @X, ubyte kf @Y) clobbers(A,X,Y) -> bool @Pc -romsub $C07E = ym_setpan(ubyte channel @A, ubyte panning @X) clobbers(A,X,Y) -> bool @Pc -romsub $C081 = ym_read(ubyte register @X, bool cooked @Pc) clobbers(Y) -> ubyte @A, bool @Pc -romsub $C084 = ym_release(ubyte channel @A) clobbers(A,X,Y) -> bool @Pc -romsub $C087 = ym_trigger(ubyte channel @A, bool noRelease @Pc) clobbers(A,X,Y) -> bool @Pc -romsub $C08A = ym_write(ubyte value @A, ubyte register @X) clobbers(Y) -> bool @Pc -romsub $C099 = ym_getatten(ubyte channel @A) clobbers(Y) -> ubyte @X -romsub $C09C = ym_getpan(ubyte channel @A) clobbers(Y) -> ubyte @X -romsub $C0A5 = ym_get_chip_type() clobbers(X) -> ubyte @A +; Audio (rom bank 10) +romsub @rombank 10 $C09F = audio_init() clobbers(A,X,Y) -> bool @Pc ; (re)initialize both vera PSG and YM audio chips +romsub @rombank 10 $C000 = bas_fmfreq(ubyte channel @A, uword freq @XY, bool noretrigger @Pc) clobbers(A,X,Y) -> bool @Pc +romsub @rombank 10 $C003 = bas_fmnote(ubyte channel @A, ubyte note @X, ubyte fracsemitone @Y, bool noretrigger @Pc) clobbers(A,X,Y) -> bool @Pc +romsub @rombank 10 $C006 = bas_fmplaystring(ubyte length @A, str string @XY) clobbers(A,X,Y) +romsub @rombank 10 $C009 = bas_fmvib(ubyte speed @A, ubyte depth @X) clobbers(A,X,Y) -> bool @Pc +romsub @rombank 10 $C00C = bas_playstringvoice(ubyte channel @A) clobbers(Y) +romsub @rombank 10 $C00F = bas_psgfreq(ubyte voice @A, uword freq @XY) clobbers(A,X,Y) -> bool @Pc +romsub @rombank 10 $C012 = bas_psgnote(ubyte voice @A, ubyte note @X, ubyte fracsemitone @Y) clobbers(A,X,Y) -> bool @Pc +romsub @rombank 10 $C015 = bas_psgwav(ubyte voice @A, ubyte waveform @X) clobbers(A,X,Y) -> bool @Pc +romsub @rombank 10 $C018 = bas_psgplaystring(ubyte length @A, str string @XY) clobbers(A,X,Y) +romsub @rombank 10 $C08D = bas_fmchordstring(ubyte length @A, str string @XY) clobbers(A,X,Y) +romsub @rombank 10 $C090 = bas_psgchordstring(ubyte length @A, str string @XY) clobbers(A,X,Y) +romsub @rombank 10 $C01B = notecon_bas2fm(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc +romsub @rombank 10 $C01E = notecon_bas2midi(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc +romsub @rombank 10 $C021 = notecon_bas2psg(ubyte note @X, ubyte fracsemitone @Y) clobbers(A) -> uword @XY, bool @Pc +romsub @rombank 10 $C024 = notecon_fm2bas(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc +romsub @rombank 10 $C027 = notecon_fm2midi(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc +romsub @rombank 10 $C02A = notecon_fm2psg(ubyte note @X, ubyte fracsemitone @Y) clobbers(A) -> uword @XY, bool @Pc +romsub @rombank 10 $C02D = notecon_freq2bas(uword freqHz @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc +romsub @rombank 10 $C030 = notecon_freq2fm(uword freqHz @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc +romsub @rombank 10 $C033 = notecon_freq2midi(uword freqHz @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc +romsub @rombank 10 $C036 = notecon_freq2psg(uword freqHz @XY) clobbers(A) -> uword @XY, bool @Pc +romsub @rombank 10 $C039 = notecon_midi2bas(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc +romsub @rombank 10 $C03C = notecon_midi2fm(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc +romsub @rombank 10 $C03F = notecon_midi2psg(ubyte note @X, ubyte fracsemitone @Y) clobbers(A) -> uword @XY, bool @Pc +romsub @rombank 10 $C042 = notecon_psg2bas(uword freq @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc +romsub @rombank 10 $C045 = notecon_psg2fm(uword freq @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc +romsub @rombank 10 $C048 = notecon_psg2midi(uword freq @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc +romsub @rombank 10 $C04B = psg_init() clobbers(A,X,Y) ; (re)init Vera PSG +romsub @rombank 10 $C04E = psg_playfreq(ubyte voice @A, uword freq @XY) clobbers(A,X,Y) +romsub @rombank 10 $C051 = psg_read(ubyte offset @X, bool cookedVol @Pc) clobbers(Y) -> ubyte @A +romsub @rombank 10 $C054 = psg_setatten(ubyte voice @A, ubyte attenuation @X) clobbers(A,X,Y) +romsub @rombank 10 $C057 = psg_setfreq(ubyte voice @A, uword freq @XY) clobbers(A,X,Y) +romsub @rombank 10 $C05A = psg_setpan(ubyte voice @A, ubyte panning @X) clobbers(A,X,Y) +romsub @rombank 10 $C05D = psg_setvol(ubyte voice @A, ubyte volume @X) clobbers(A,X,Y) +romsub @rombank 10 $C060 = psg_write(ubyte value @A, ubyte offset @X) clobbers(Y) +romsub @rombank 10 $C0A2 = psg_write_fast(ubyte value @A, ubyte offset @X) clobbers(Y) +romsub @rombank 10 $C093 = psg_getatten(ubyte voice @A) clobbers(Y) -> ubyte @X +romsub @rombank 10 $C096 = psg_getpan(ubyte voice @A) clobbers(Y) -> ubyte @X +romsub @rombank 10 $C063 = ym_init() clobbers(A,X,Y) -> bool @Pc ; (re)init YM chip +romsub @rombank 10 $C066 = ym_loaddefpatches() clobbers(A,X,Y) -> bool @Pc ; load default YM patches +romsub @rombank 10 $C069 = ym_loadpatch(ubyte channel @A, uword patchOrAddress @XY, bool what @Pc) clobbers(A,X,Y) +romsub @rombank 10 $C06C = ym_loadpatchlfn(ubyte channel @A, ubyte lfn @X) clobbers(X,Y) -> ubyte @A, bool @Pc +romsub @rombank 10 $C06F = ym_playdrum(ubyte channel @A, ubyte note @X) clobbers(A,X,Y) -> bool @Pc +romsub @rombank 10 $C072 = ym_playnote(ubyte channel @A, ubyte kc @X, ubyte kf @Y, bool notrigger @Pc) clobbers(A,X,Y) -> bool @Pc +romsub @rombank 10 $C075 = ym_setatten(ubyte channel @A, ubyte attenuation @X) clobbers(Y) -> bool @Pc +romsub @rombank 10 $C078 = ym_setdrum(ubyte channel @A, ubyte note @X) clobbers(A,X,Y) -> bool @Pc +romsub @rombank 10 $C07B = ym_setnote(ubyte channel @A, ubyte kc @X, ubyte kf @Y) clobbers(A,X,Y) -> bool @Pc +romsub @rombank 10 $C07E = ym_setpan(ubyte channel @A, ubyte panning @X) clobbers(A,X,Y) -> bool @Pc +romsub @rombank 10 $C081 = ym_read(ubyte register @X, bool cooked @Pc) clobbers(Y) -> ubyte @A, bool @Pc +romsub @rombank 10 $C084 = ym_release(ubyte channel @A) clobbers(A,X,Y) -> bool @Pc +romsub @rombank 10 $C087 = ym_trigger(ubyte channel @A, bool noRelease @Pc) clobbers(A,X,Y) -> bool @Pc +romsub @rombank 10 $C08A = ym_write(ubyte value @A, ubyte register @X) clobbers(Y) -> bool @Pc +romsub @rombank 10 $C099 = ym_getatten(ubyte channel @A) clobbers(Y) -> ubyte @X +romsub @rombank 10 $C09C = ym_getpan(ubyte channel @A) clobbers(Y) -> ubyte @X +romsub @rombank 10 $C0A5 = ym_get_chip_type() clobbers(X) -> ubyte @A ; extapi call numbers const ubyte EXTAPI_clear_status = $01 diff --git a/docs/import-all-cx16.p8 b/docs/import-all-cx16.p8 index 6149ce77d..e722d8bf9 100644 --- a/docs/import-all-cx16.p8 +++ b/docs/import-all-cx16.p8 @@ -1,6 +1,5 @@ ; all library modules for the cx16 compiler target -%import audio %import anyall %import buffers %import bmx diff --git a/docs/source/libraries.rst b/docs/source/libraries.rst index 51b9bec59..184ae45a8 100644 --- a/docs/source/libraries.rst +++ b/docs/source/libraries.rst @@ -955,18 +955,6 @@ Read the `psg source code `_ -to see what's in there. - - - sprites (cx16 only) -------------------- Available for the Cx16 target. Simple routines to manipulate sprites. diff --git a/docs/source/todo.rst b/docs/source/todo.rst index ee27eda01..666d48f2a 100644 --- a/docs/source/todo.rst +++ b/docs/source/todo.rst @@ -1,8 +1,6 @@ TODO ==== -get rid of audio.p8 module , rewrite audio romsubs , rewrite audio example to use syslib routines - add docs for @rombank @rambank on romsubs. Add promo in docs that prog8 does automatic bank switching when calling such a romsub (on cx16 and c128) rename 'romsub' to 'extsub' ? diff --git a/examples/cx16/audioroutines.p8 b/examples/cx16/audioroutines.p8 index 888ec76ad..3e0bc347d 100644 --- a/examples/cx16/audioroutines.p8 +++ b/examples/cx16/audioroutines.p8 @@ -1,5 +1,4 @@ %import textio -%import audio %zeropage basicsafe %option no_sysinit @@ -31,32 +30,28 @@ main { */ - ; Note: the audio module contains stubs for every kernal audio call, - ; they use JSRFAR to automatically switch to the correct ROM bank (and back). - ; So we don't have to switch rom banks ourselves to access the audio routines in bank 10! + cx16.psg_init() - audio.psg_init() + cx16.bas_playstringvoice(15) + cx16.bas_psgchordstring(6, "o3g>ce") - audio.bas_playstringvoice(15) - audio.bas_psgchordstring(6, "o3g>ce") + cx16.bas_playstringvoice(14) + cx16.bas_psgplaystring(10, ">ccde") - audio.bas_playstringvoice(14) - audio.bas_psgplaystring(10, ">ccde") + cx16.bas_playstringvoice(15) + cx16.bas_psgchordstring(3, "rrr") - audio.bas_playstringvoice(15) - audio.bas_psgchordstring(3, "rrr") + cx16.bas_playstringvoice(14) + cx16.bas_psgplaystring(9, "o4cag>cccf") - audio.bas_playstringvoice(0) - audio.bas_psgchordstring(6, "o3a>cf") + cx16.bas_playstringvoice(14) + cx16.bas_psgplaystring(14, "l16fgab->cdef4") - audio.bas_playstringvoice(14) - audio.bas_psgplaystring(14, "l16fgab->cdef4") - - audio.bas_playstringvoice(0) - audio.bas_psgchordstring(3, "rrr") + cx16.bas_playstringvoice(0) + cx16.bas_psgchordstring(3, "rrr") } @@ -79,44 +74,44 @@ main { 150 FMCHORD 1,"RRR" : REM RELEASE THE CHANNELS THAT ARE PLAYING THE CHORD */ - void audio.ym_init() - void audio.bas_fmvib(195, 10) - audio.ym_loadpatch(1,16,true) - audio.ym_loadpatch(2,16,true) - audio.ym_loadpatch(3,16,true) - void audio.ym_setatten(1,64-50) - void audio.ym_setatten(2,64-50) - void audio.ym_setatten(3,64-50) - audio.ym_loadpatch(0,11,true) + void cx16.ym_init() + void cx16.bas_fmvib(195, 10) + cx16.ym_loadpatch(1,16,true) + cx16.ym_loadpatch(2,16,true) + cx16.ym_loadpatch(3,16,true) + void cx16.ym_setatten(1,64-50) + void cx16.ym_setatten(2,64-50) + void cx16.ym_setatten(3,64-50) + cx16.ym_loadpatch(0,11,true) - audio.bas_playstringvoice(1) - audio.bas_fmchordstring(11, "o3cg>e t130") + cx16.bas_playstringvoice(1) + cx16.bas_fmchordstring(11, "o3cg>e t130") - audio.bas_playstringvoice(0) - audio.bas_fmplaystring(12, "o4g4.a8g4e2.") - audio.bas_playstringvoice(0) - audio.bas_fmplaystring(12, "o4g4.a8g4e2.") + cx16.bas_playstringvoice(0) + cx16.bas_fmplaystring(12, "o4g4.a8g4e2.") + cx16.bas_playstringvoice(0) + cx16.bas_fmplaystring(12, "o4g4.a8g4e2.") - audio.bas_playstringvoice(1) - audio.bas_fmchordstring(6, "o2g>db") + cx16.bas_playstringvoice(1) + cx16.bas_fmchordstring(6, "o2g>db") - audio.bas_playstringvoice(0) - audio.bas_fmplaystring(9, "o5d2d4