prog8/examples/test.p8

%import textio
%import floats

main {
    sub score() -> ubyte {
        cx16.r15++
        return 5
    }

    sub start() {
        float @shared total = 0
        ubyte bb = 5

        cx16.r0 = 5
        total += cx16.r0 as float
        total += score() as float
        uword ww = 5
        total += ww as float
        total += bb as float
        float result = score() as float
        total += result
    }
}


;%import textio
;%zeropage basicsafe
;%option no_sysinit
;
;main {
;
;    sub start() {
;        ; TODO ALSO TEST AS GLOBALS
;        ubyte @requirezp zpvar = 10
;        ubyte @zp zpvar2 = 20
;        uword empty
;        ubyte[10] bssarray
;        uword[10] bsswordarray
;        ubyte[10] nonbssarray = 99
;        str name="irmen"
;
;        txt.print("10 ")
;        txt.print_ub(zpvar)
;        txt.nl()
;        zpvar++
;
;        txt.print("20 ")
;        txt.print_ub(zpvar2)
;        txt.nl()
;        zpvar2++
;
;        txt.print("0 ")
;        txt.print_uw(empty)
;        txt.nl()
;        empty++
;
;        txt.print("0 ")
;        txt.print_ub(bssarray[1])
;        txt.nl()
;        bssarray[1]++
;
;        txt.print("0 ")
;        txt.print_uw(bsswordarray[1])
;        txt.nl()
;        bsswordarray[1]++
;
;        txt.print("99 ")
;        txt.print_ub(nonbssarray[1])
;        txt.nl()
;        nonbssarray[1]++
;
;        txt.print("r ")
;        txt.chrout(name[1])
;        txt.nl()
;        name[1] = (name[1] as ubyte +1)
;
;        txt.print("try running again.\n")
;    }
;}