mirror of
https://github.com/irmen/prog8.git
synced 2024-12-01 15:52:54 +00:00
35 lines
852 B
Plaintext
35 lines
852 B
Plaintext
|
%import textio
|
||
|
|
%import diskio
|
||
|
|
|
||
|
|
%option no_sysinit
|
||
|
|
%zeropage basicsafe
|
||
|
|
|
||
|
|
main {
|
||
|
|
romsub @bank 4 $A000 = lib_routine1(ubyte value @A) clobbers(X) -> uword @AY
|
||
|
|
romsub @bank 5 $A000 = lib_routine2(ubyte value @A) clobbers(X) -> uword @AY
|
||
|
|
romsub @bank 10 $C09F = audio_init() -> bool @A
|
||
|
|
|
||
|
|
sub start() {
|
||
|
|
|
||
|
|
; load the example libraries in hiram banks 4 and 5
|
||
|
|
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()
|
||
|
|
}
|
||
|
|
}
|