prog8/examples/test.p8

%import textio
%import test_stack
%import string
%zeropage dontuse

main {

    sub start() {

    string.copy()

        ubyte @shared dummy
        word b1 = 1111
        byte b2 = 22
        word b3 = 3333
        dummy++
        labelz()
        labelz(1)
        printz(1)
        printz(1,2,3,4,5,6)
        func(-b1,-b2,-b3 , 3, 4, 5)

labelz:

    }

    sub printz(word a1, byte a2, word a3) {
        txt.print_w(a1)
        txt.spc()
        txt.print_b(a2)
        txt.spc()
        txt.print_w(a3)
        txt.nl()
    }
    asmsub func(word a1 @XY, byte a2 @A, word a3 @R0) {
        %asm {{
            stx  printz.a1
            sty  printz.a1+1
            sta  printz.a2
            lda  cx16.r0
            sta  printz.a3
            lda  cx16.r0+1
            sta  printz.a3+1
            jmp  printz
        }}
    }
}