mirror of
https://github.com/irmen/prog8.git
synced 2025-04-06 10:38:48 +00:00
update cx16/audioroutines example to use the new audio module
This commit is contained in:
Irmen de Jong
parent
24e0a69480
commit
b7ebd8c4a6
@ -6,7 +6,7 @@ clean:
|
||||
rm -f *.prg *.PRG *.asm *.vice-* *.BIN *.PAL *.zip *.7z
|
||||
|
||||
emu: benchmark.prg
|
||||
x16emu -run -prg $<
|
||||
x16emu -run -prg $< -warp
|
||||
|
||||
benchmark.prg: benchmark.p8 b_3d.p8 b_adpcm.p8 b_circles.p8 b_life.p8 b_mandelbrot.p8 b_maze.p8 b_queens.p8 b_textelite.p8
|
||||
p8compile $< -target cx16
|
||||
|
||||
@ -1,5 +1,11 @@
|
||||
%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
|
||||
|
||||
@ -114,7 +114,7 @@ class TestCompilerOnExamplesCx16: FunSpec({
|
||||
"sprites/dragon",
|
||||
"sprites/dragons",
|
||||
"amiga",
|
||||
"audio",
|
||||
"audioroutines",
|
||||
"automatons",
|
||||
"bdmusic",
|
||||
"bobs",
|
||||
|
||||
@ -945,6 +945,18 @@ Read the `psg source code <https://github.com/irmen/prog8/tree/master/compiler/r
|
||||
to see what's in there.
|
||||
|
||||
|
||||
audio (cx16 only)
|
||||
------------------
|
||||
Available for the Cx16 target.
|
||||
Contains stub routines for all of the kernal audio routines available in rom bank 10.
|
||||
The stubs use JSRFAR calls so you don't have to bother with selecting the correct rom bank in your own program code.
|
||||
See the cx16/audioroutines.p8 example on how to use them.
|
||||
|
||||
Read the `audio source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib/cx16/audio.p8>`_
|
||||
to see what's in there.
|
||||
|
||||
|
||||
|
||||
sprites (cx16 only)
|
||||
--------------------
|
||||
Available for the Cx16 target. Simple routines to manipulate sprites.
|
||||
|
||||
@ -1,123 +0,0 @@
|
||||
%import textio
|
||||
%zeropage basicsafe
|
||||
%option no_sysinit
|
||||
|
||||
main {
|
||||
sub start() {
|
||||
txt.print("\n\nsimple demonstration of the audio kernal routines.\n")
|
||||
txt.print("fm demo...\n")
|
||||
fm_demo()
|
||||
sys.wait(30)
|
||||
|
||||
txt.print("psg demo...\n")
|
||||
psg_demo()
|
||||
sys.wait(30)
|
||||
|
||||
txt.print("done!\n")
|
||||
}
|
||||
|
||||
sub psg_demo() {
|
||||
/*
|
||||
|
||||
10 PSGINIT
|
||||
20 PSGCHORD 15,"O3G>CE" : REM STARTS PLAYING A CHORD ON VOICES 15, 0, AND 1
|
||||
30 PSGPLAY 14,">C<DGB>CDE" : REM PLAYS A SERIES OF NOTES ON VOICE 14
|
||||
40 PSGCHORD 15,"RRR" : REM RELEASES CHORD ON VOICES 15, 0, AND 1
|
||||
50 PSGPLAY 14,"O4CAG>C<A" : REM PLAYS A SERIES OF NOTES ON VOICE 14
|
||||
60 PSGCHORD 0,"O3A>CF" : REM STARTS PLAYING A CHORD ON VOICES 0, 1, AND 2
|
||||
70 PSGPLAY 14,"L16FGAB->CDEF4" : REM PLAYS A SERIES OF NOTES ON VOICE
|
||||
80 PSGCHORD 0,"RRR" : REM RELEASES CHORD ON VOICES 0, 1, AND 2
|
||||
|
||||
*/
|
||||
|
||||
cx16.rombank(10)
|
||||
cx16.psg_init()
|
||||
|
||||
cx16.bas_playstringvoice(15)
|
||||
cx16.bas_psgchordstring(6, "o3g>ce")
|
||||
|
||||
cx16.bas_playstringvoice(14)
|
||||
cx16.bas_psgplaystring(10, ">c<dgb>cde")
|
||||
|
||||
cx16.bas_playstringvoice(15)
|
||||
cx16.bas_psgchordstring(3, "rrr")
|
||||
|
||||
cx16.bas_playstringvoice(14)
|
||||
cx16.bas_psgplaystring(9, "o4cag>c<a")
|
||||
|
||||
cx16.bas_playstringvoice(0)
|
||||
cx16.bas_psgchordstring(6, "o3a>cf")
|
||||
|
||||
cx16.bas_playstringvoice(14)
|
||||
cx16.bas_psgplaystring(14, "l16fgab->cdef4")
|
||||
|
||||
cx16.bas_playstringvoice(0)
|
||||
cx16.bas_psgchordstring(3, "rrr")
|
||||
|
||||
cx16.rombank(0)
|
||||
}
|
||||
|
||||
sub fm_demo() {
|
||||
/*
|
||||
10 FMINIT
|
||||
20 FMVIB 195,10
|
||||
30 FMINST 1,16:FMINST 2,16:FMINST 3,16 : REM ORGAN
|
||||
40 FMVOL 1,50:FMVOL 2,50:FMVOL 3,50 : REM MAKE ORGAN QUIETER
|
||||
50 FMINST 0,11 : REM VIBRAPHONE
|
||||
60 FMCHORD 1,"O3CG>E T90" : REM START SOME ORGAN CHORDS (CHANNELS 1,2,3)
|
||||
70 FMPLAY 0,"O4G4.A8G4E2." : REM PLAY MELODY (CHANNEL 0)
|
||||
80 FMPLAY 0,"O4G4.A8G4E2."
|
||||
90 FMCHORD 1,"O2G>DB" : REM SWITCH ORGAN CHORDS (CHANNELS 1,2,3)
|
||||
100 FMPLAY 0,"O5D2D4<B2" : REM PLAY MORE MELODY
|
||||
110 FMCHORD 1,"O2F" : REM SWITCH ONE OF THE ORGAN CHORD NOTES
|
||||
120 FMPLAY 0,"R4" : REM PAUSE FOR THE LENGTH OF ONE QUARTER NOTE
|
||||
130 FMCHORD 1,"O3CEG" : REM SWITCH ALL THREE CHORD NOTES
|
||||
140 FMPLAY 0,"O5C2C4<G2." : REM PLAY THE REST OF THE MELODY
|
||||
150 FMCHORD 1,"RRR" : REM RELEASE THE CHANNELS THAT ARE PLAYING THE CHORD
|
||||
*/
|
||||
|
||||
cx16.rombank(10)
|
||||
|
||||
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)
|
||||
|
||||
cx16.bas_playstringvoice(1)
|
||||
cx16.bas_fmchordstring(11, "o3cg>e t130")
|
||||
|
||||
cx16.bas_playstringvoice(0)
|
||||
cx16.bas_fmplaystring(12, "o4g4.a8g4e2.")
|
||||
cx16.bas_playstringvoice(0)
|
||||
cx16.bas_fmplaystring(12, "o4g4.a8g4e2.")
|
||||
|
||||
cx16.bas_playstringvoice(1)
|
||||
cx16.bas_fmchordstring(6, "o2g>db")
|
||||
|
||||
cx16.bas_playstringvoice(0)
|
||||
cx16.bas_fmplaystring(9, "o5d2d4<b2")
|
||||
|
||||
cx16.bas_playstringvoice(1)
|
||||
cx16.bas_fmchordstring(3, "o2f")
|
||||
|
||||
cx16.bas_playstringvoice(0)
|
||||
cx16.bas_fmplaystring(2, "r4")
|
||||
|
||||
cx16.bas_playstringvoice(1)
|
||||
cx16.bas_fmchordstring(5, "o3ceg")
|
||||
|
||||
cx16.bas_playstringvoice(0)
|
||||
cx16.bas_fmplaystring(10, "o5c2c4<g2.")
|
||||
|
||||
cx16.bas_playstringvoice(1)
|
||||
cx16.bas_fmchordstring(3, "rrr")
|
||||
|
||||
cx16.rombank(0)
|
||||
}
|
||||
|
||||
}
|
||||
122
examples/cx16/audioroutines.p8
Normal file
122
examples/cx16/audioroutines.p8
Normal file
@ -0,0 +1,122 @@
|
||||
%import textio
|
||||
%import audio
|
||||
%zeropage basicsafe
|
||||
%option no_sysinit
|
||||
|
||||
main {
|
||||
sub start() {
|
||||
txt.print("\n\nsimple demonstration of the audio kernal routines.\n")
|
||||
txt.print("fm demo...\n")
|
||||
fm_demo()
|
||||
sys.wait(30)
|
||||
|
||||
txt.print("psg demo...\n")
|
||||
psg_demo()
|
||||
sys.wait(30)
|
||||
|
||||
txt.print("done!\n")
|
||||
}
|
||||
|
||||
sub psg_demo() {
|
||||
/*
|
||||
|
||||
10 PSGINIT
|
||||
20 PSGCHORD 15,"O3G>CE" : REM STARTS PLAYING A CHORD ON VOICES 15, 0, AND 1
|
||||
30 PSGPLAY 14,">C<DGB>CDE" : REM PLAYS A SERIES OF NOTES ON VOICE 14
|
||||
40 PSGCHORD 15,"RRR" : REM RELEASES CHORD ON VOICES 15, 0, AND 1
|
||||
50 PSGPLAY 14,"O4CAG>C<A" : REM PLAYS A SERIES OF NOTES ON VOICE 14
|
||||
60 PSGCHORD 0,"O3A>CF" : REM STARTS PLAYING A CHORD ON VOICES 0, 1, AND 2
|
||||
70 PSGPLAY 14,"L16FGAB->CDEF4" : REM PLAYS A SERIES OF NOTES ON VOICE
|
||||
80 PSGCHORD 0,"RRR" : REM RELEASES CHORD ON VOICES 0, 1, AND 2
|
||||
|
||||
*/
|
||||
|
||||
; 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!
|
||||
|
||||
audio.psg_init()
|
||||
|
||||
audio.bas_playstringvoice(15)
|
||||
audio.bas_psgchordstring(6, "o3g>ce")
|
||||
|
||||
audio.bas_playstringvoice(14)
|
||||
audio.bas_psgplaystring(10, ">c<dgb>cde")
|
||||
|
||||
audio.bas_playstringvoice(15)
|
||||
audio.bas_psgchordstring(3, "rrr")
|
||||
|
||||
audio.bas_playstringvoice(14)
|
||||
audio.bas_psgplaystring(9, "o4cag>c<a")
|
||||
|
||||
audio.bas_playstringvoice(0)
|
||||
audio.bas_psgchordstring(6, "o3a>cf")
|
||||
|
||||
audio.bas_playstringvoice(14)
|
||||
audio.bas_psgplaystring(14, "l16fgab->cdef4")
|
||||
|
||||
audio.bas_playstringvoice(0)
|
||||
audio.bas_psgchordstring(3, "rrr")
|
||||
|
||||
}
|
||||
|
||||
sub fm_demo() {
|
||||
/*
|
||||
10 FMINIT
|
||||
20 FMVIB 195,10
|
||||
30 FMINST 1,16:FMINST 2,16:FMINST 3,16 : REM ORGAN
|
||||
40 FMVOL 1,50:FMVOL 2,50:FMVOL 3,50 : REM MAKE ORGAN QUIETER
|
||||
50 FMINST 0,11 : REM VIBRAPHONE
|
||||
60 FMCHORD 1,"O3CG>E T90" : REM START SOME ORGAN CHORDS (CHANNELS 1,2,3)
|
||||
70 FMPLAY 0,"O4G4.A8G4E2." : REM PLAY MELODY (CHANNEL 0)
|
||||
80 FMPLAY 0,"O4G4.A8G4E2."
|
||||
90 FMCHORD 1,"O2G>DB" : REM SWITCH ORGAN CHORDS (CHANNELS 1,2,3)
|
||||
100 FMPLAY 0,"O5D2D4<B2" : REM PLAY MORE MELODY
|
||||
110 FMCHORD 1,"O2F" : REM SWITCH ONE OF THE ORGAN CHORD NOTES
|
||||
120 FMPLAY 0,"R4" : REM PAUSE FOR THE LENGTH OF ONE QUARTER NOTE
|
||||
130 FMCHORD 1,"O3CEG" : REM SWITCH ALL THREE CHORD NOTES
|
||||
140 FMPLAY 0,"O5C2C4<G2." : REM PLAY THE REST OF THE MELODY
|
||||
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)
|
||||
|
||||
audio.bas_playstringvoice(1)
|
||||
audio.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.")
|
||||
|
||||
audio.bas_playstringvoice(1)
|
||||
audio.bas_fmchordstring(6, "o2g>db")
|
||||
|
||||
audio.bas_playstringvoice(0)
|
||||
audio.bas_fmplaystring(9, "o5d2d4<b2")
|
||||
|
||||
audio.bas_playstringvoice(1)
|
||||
audio.bas_fmchordstring(3, "o2f")
|
||||
|
||||
audio.bas_playstringvoice(0)
|
||||
audio.bas_fmplaystring(2, "r4")
|
||||
|
||||
audio.bas_playstringvoice(1)
|
||||
audio.bas_fmchordstring(5, "o3ceg")
|
||||
|
||||
audio.bas_playstringvoice(0)
|
||||
audio.bas_fmplaystring(10, "o5c2c4<g2.")
|
||||
|
||||
audio.bas_playstringvoice(1)
|
||||
audio.bas_fmchordstring(3, "rrr")
|
||||
}
|
||||
|
||||
}
|
||||
Loading…
x
Reference in New Issue
Block a user