prog8/examples/test.p8

53 lines
1002 B
Plaintext
Raw Normal View History

%import textio
%zeropage basicsafe
%option no_sysinit
2022-11-29 19:09:10 +00:00
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")
}
}