prog8/examples/test.p8

%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()
;    }
;}
;