mirror of
https://github.com/irmen/prog8.git
synced 2024-07-26 05:29:15 +00:00
53 lines
1002 B
Lua
53 lines
1002 B
Lua
%import textio
|
|
%zeropage basicsafe
|
|
%option no_sysinit
|
|
|
|
main {
|
|
ubyte @requirezp zpvar = 10
|
|
ubyte @zp zpvar2 = 20
|
|
uword empty
|
|
ubyte[10] bssarray
|
|
uword[10] bsswordarray
|
|
ubyte[10] nonbssarray = 99
|
|
str name="irmen"
|
|
|
|
sub start() {
|
|
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")
|
|
}
|
|
}
|