mirror of
https://github.com/irmen/prog8.git
synced 2025-02-20 03:29:01 +00:00
84 lines
1.8 KiB
Lua
84 lines
1.8 KiB
Lua
%zpreserved 10,20
|
|
%zpreserved 30,40
|
|
|
|
main {
|
|
|
|
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)
|
|
|
|
%asm {{
|
|
nop
|
|
jump _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
|
|
; TODO 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
|
|
|
|
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
|
|
|
|
}
|