2024-11-03 20:52:04 +00:00
|
|
|
%import textio
|
|
|
|
|
%import diskio
|
|
|
|
|
|
|
|
|
|
%option no_sysinit
|
|
|
|
|
%zeropage basicsafe
|
|
|
|
|
|
|
|
|
|
main {
|
2024-11-06 21:14:53 +00:00
|
|
|
extsub @bank 4 $A000 = lib_routine1(ubyte value @A) clobbers(X) -> uword @AY
|
|
|
|
|
extsub @bank 5 $A000 = lib_routine2(ubyte value @A) clobbers(X) -> uword @AY
|
|
|
|
|
extsub @bank 10 $C09F = audio_init() -> bool @A
|
2024-11-03 20:52:04 +00:00
|
|
|
|
|
|
|
|
sub start() {
|
|
|
|
|
|
|
|
|
|
; load the example libraries in hiram banks 4 and 5
|
2024-11-05 22:56:58 +00:00
|
|
|
; in this example these are constants, but you can also specify
|
|
|
|
|
; a variable for the bank so you can vary the bank where the routine is loaded.
|
2024-11-03 20:52:04 +00:00
|
|
|
cx16.rambank(4)
|
|
|
|
|
void diskio.load("library1.prg", $a000)
|
|
|
|
|
cx16.rambank(5)
|
|
|
|
|
void diskio.load("library2.prg", $a000)
|
|
|
|
|
|
|
|
|
|
cx16.rambank(1)
|
|
|
|
|
|
|
|
|
|
; call a routine from the Audio rom bank:
|
|
|
|
|
bool success = audio_init()
|
|
|
|
|
|
|
|
|
|
; call hiram banked loaded routines:
|
|
|
|
|
cx16.r0 = lib_routine1(11)
|
|
|
|
|
txt.print_uw(cx16.r0)
|
|
|
|
|
txt.nl()
|
|
|
|
|
|
|
|
|
|
cx16.r0 = lib_routine2(99)
|
|
|
|
|
txt.print_uw(cx16.r0)
|
|
|
|
|
txt.nl()
|
|
|
|
|
}
|
|
|
|
|
}
|
