mirror of
https://github.com/irmen/prog8.git
synced 2024-10-07 00:55:33 +00:00
55 lines
1.0 KiB
Lua
55 lines
1.0 KiB
Lua
%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")
|
|
}
|
|
}
|