prog8/examples/test.p8

%import textio
%zeropage basicsafe

main {

    sub start() {

        str string1 = "irmen"
        str string2 = "hello"

        uword xx = $f000
        word ww

        ubyte[] arr = [1,2,3]
        arr = ~ arr
        cx16.r0 = ~cx16.r0
        ww = -cx16.r0
        cx16.r0 = not cx16.r0


;        ubyte[] array = [1,2,3,4]
;        ubyte ix
;
;        ubyte a = array[1] + array[ix]
;        a = array[ix] + array[ix]
;        a = array[ix+1] + array[ix]
;        uword multiple=0
;        a = array[lsb(multiple)] + array[ix]


;        str filename = "titlescreen.bin"
;        ubyte success = cx16.vload(filename, 8, 0, $0000)
;        if success {
;            txt.print("load ok")
;            cx16.VERA_DC_HSCALE = 64
;            cx16.VERA_DC_VSCALE = 64
;            cx16.VERA_L1_CONFIG = %00011111     ; 256c bitmap mode
;            cx16.VERA_L1_MAPBASE = 0
;            cx16.VERA_L1_TILEBASE = 0
;        } else {
;            txt.print("load fail")
;        }
    }
}