mirror of
https://github.com/irmen/prog8.git
synced 2024-11-25 04:31:20 +00:00
101 lines
2.2 KiB
Lua
101 lines
2.2 KiB
Lua
%import textio
|
|
%zeropage basicsafe
|
|
%option no_sysinit
|
|
|
|
main {
|
|
|
|
romsub @bank 0 $4000 = routine(uword argument @AY) -> ubyte @A
|
|
romsub @bank 15 $ffd2 = character_out(ubyte char @A)
|
|
|
|
sub start() {
|
|
sys.memcopy(&the_routine, $4000, 255)
|
|
|
|
cx16.r0L = routine($2233)
|
|
txt.print("result=")
|
|
txt.print_ub(cx16.r0L)
|
|
txt.nl()
|
|
cx16.r0L = routine($3344)
|
|
txt.print("result=")
|
|
txt.print_ub(cx16.r0L)
|
|
txt.nl()
|
|
|
|
character_out('!')
|
|
character_out('\n')
|
|
}
|
|
|
|
asmsub the_routine(uword arg @AY) -> ubyte @A {
|
|
%asm {{
|
|
sty P8ZP_SCRATCH_REG
|
|
clc
|
|
adc P8ZP_SCRATCH_REG
|
|
rts
|
|
}}
|
|
}
|
|
}
|
|
|
|
;main {
|
|
; sub start() {
|
|
; basic_area.routine1()
|
|
; hiram_area.routine2()
|
|
;
|
|
; ; copy the kernal area routine to actual kernal address space $f800
|
|
; sys.memcopy(&kernal_area.routine3, $f800, 255)
|
|
;
|
|
; ; how to call the routine using manual bank switching:
|
|
; ; c64.banks(%101) ; bank out kernal rom
|
|
; ; call($f800) ; call our routine
|
|
; ; c64.banks(%111) ; kernal back
|
|
;
|
|
; ; how to use prog8's automatic bank switching:
|
|
; romsub @bank %101 $f800 = kernal_routine()
|
|
;
|
|
; kernal_routine()
|
|
;
|
|
; txt.print("done!\n")
|
|
; }
|
|
;}
|
|
;
|
|
;kernal_area {
|
|
; ; this routine is actually copied to kernal address space first
|
|
; ; we cannot use CHROUT when the kernal is banked out so we write to the screen directly
|
|
; asmsub routine3() {
|
|
; %asm {{
|
|
; lda #<_message
|
|
; ldy #>_message
|
|
; sta $fe
|
|
; sty $ff
|
|
; ldy #0
|
|
;- lda ($fe),y
|
|
; beq +
|
|
; sta $0400+240,y
|
|
; iny
|
|
; bne -
|
|
;+ rts
|
|
;
|
|
;_message
|
|
; .enc 'screen'
|
|
; .text "hello from kernal area $f800",0
|
|
; .enc 'none'
|
|
; ; !notreached!
|
|
; }}
|
|
; }
|
|
;}
|
|
;
|
|
;
|
|
;basic_area $a000 {
|
|
; sub routine1() {
|
|
; txt.print("hello from basic rom area ")
|
|
; txt.print_uwhex(&routine1, true)
|
|
; txt.nl()
|
|
; }
|
|
;}
|
|
;
|
|
;hiram_area $ca00 {
|
|
; sub routine2() {
|
|
; txt.print("hello from hiram area ")
|
|
; txt.print_uwhex(&routine2, true)
|
|
; txt.nl()
|
|
; }
|
|
;}
|
|
;
|