prog8/examples/test.p8

%zeropage basicsafe
%option enable_floats

%import c64flt


~ main {

    sub start() {

    ubyte[3] array1
    ubyte[3] array2
    ubyte[3] array3

    str string1="hello"
    str string2="bye"

    uword pointer = &array1
    uword pointer2
    uword pointer3
    byte bt

    pointer2 = &array2
    pointer3 = &string1

    ; uword[4] pointers = [&array1, &array2, &string1, &string2]   ; @todo make it possible to initialize array with pointers


    ptrsubasm("moet werken")
    pointersub("moet werken")
    myprintasm(string1)
    myprintasm(string2)
    myprintasm("moet werken3")
    myprintasm("moet werken3")
    myprintasm("moet werken4")

    c64scr.print("this print must work\n")
    c64.CHROUT('\n')

    ptrsubasm(&array1)
    ptrsubasm(&array2)
    ptrsubasm(&string1)
    ptrsubasm(&string2)
    pointersub(&array1)
    pointersub(&array2)
    pointersub(&string1)
    pointersub(&string2)

    }

    sub pointersub(uword arg) {
        c64scr.print_uwhex(1, arg)
        c64.CHROUT('\n')
    }

    asmsub ptrsubasm(uword arg @ AY) -> clobbers() -> () {
        %asm {{
            sec
            jsr  c64scr.print_uwhex
            lda  #13
            jmp  c64.CHROUT
        }}
    }

    asmsub myprintasm(str arg @ AY) -> clobbers() -> () {
        %asm {{
            sec
            jsr  c64scr.print_uwhex
            lda  #13
            jmp  c64.CHROUT
        }}
    }

}