main {

    sub start() {

        uword @shared slab1 = memory("slab 1", 2000, 0)
        uword @shared slab2 = memory("slab 1", 2000, 0)
        uword @shared slab3 = memory("other # slab", 2000, 64)

        uword total = slab1+slab2+slab3
        txt.print_uw(slab1)
        txt.nl()
        txt.print_uw(slab2)
        txt.nl()
        txt.print_uw(slab3)
        txt.nl()
        txt.print_uw(total)
        txt.nl()
    }
}

;    uword @shared global1 = 1234
;    str @shared globalstring = "irmen"
;
;    %asm {{
;        nop
;        nop
;        return
;    }}
;
;    romsub $ee33 = myromsub(ubyte arg1 @A) clobbers() -> ubyte @Y
;    romsub $ee44 = myromsubmulti(ubyte arg1 @A) clobbers() -> ubyte @Y, ubyte @X, ubyte @Pc
;
;    asmsub testasmsub(ubyte arg1 @A) clobbers(Y) -> uword @AX {
;        %asm {{
;            nop
;            return
;        }}
;    }
;
;    sub start() {
;        void myromsubmulti(44)
;        global1 = myromsub(44)
;        sys.wait(1)
;
;        cx16.r0 = 11111
;        cx16.r0L = 22
;        cx16.r0H = 33
;
;        %asm {{
;            nop
;            jump  main.start.a_label
;        }}
;a_label:
;
;        %asmbinary "LICENSE", 200, 513
;
;; TODO add proper memory SLAB support to IR+VM
;        uword @shared slab1 = memory("slab 1", 2000, 0)
;        uword @shared slab2 = memory("slab 1", 2000, 0)
;        uword @shared slab3 = memory("other # slab", 2000, 64)
;
;        &uword mapped = $c000
;        &ubyte[20] mappedarray = $c100
;
;        uword @shared zz
;        zz = slab1+slab2+slab3
;
;        uword @shared @zp qq = zz
;        uword @shared @zp qq2 = &zz
;
;        str @shared namestring = "irmen"
;        uword[] @shared wordarray1 = [1111,2222,3333,4444]
;        uword[4] @shared wordarray2 = 12345
;        uword[4] @shared wordzeroarray
;
;        qq=4242             ; TODO should generate symbol not allocated address????
;        mapped = 99         ; TODO wrong VMASM code generated... should generate mapped memory address?????
;        mappedarray[1]=99   ; TODO check code????
;
;        qq=global1
;        qq=other.global2
;        nested(11,22)
;        main.start.nested.nested2()
;
;        sub nested(ubyte a1, ubyte a2) {
;            qq++
;            txt.print("zzz")
;            nested2()
;
;            sub nested2() {
;                txt.print("zzz2")
;                qq++
;            }
;        }
;    }
;}
;
;other {
;
;    uword global2 = 9999
;
;}