mirror of
https://github.com/irmen/prog8.git
synced 2024-11-23 07:32:10 +00:00
79 lines
1.7 KiB
Lua
79 lines
1.7 KiB
Lua
%import textio
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
sub start () {
|
|
ubyte[4] @shared array = 10 to 20 step 3
|
|
ubyte[4] @shared array2 = 20 downto 10 step -3
|
|
byte[7] @shared array3 = 10 downto -10 step -3
|
|
|
|
ubyte xx
|
|
byte bb
|
|
|
|
cx16.r1=0
|
|
for cx16.r0 in 0 to 10 {
|
|
cx16.r1++
|
|
}
|
|
txt.print_uw(cx16.r1)
|
|
txt.nl()
|
|
txt.nl()
|
|
|
|
for xx in array {
|
|
txt.print_ub(xx)
|
|
txt.spc()
|
|
}
|
|
txt.nl()
|
|
for xx in array2 {
|
|
txt.print_ub(xx)
|
|
txt.spc()
|
|
}
|
|
txt.nl()
|
|
for bb in array3 {
|
|
txt.print_b(bb)
|
|
txt.spc()
|
|
}
|
|
txt.nl()
|
|
txt.nl()
|
|
|
|
|
|
for xx in 10 to 20 step 3 { ; TODO fix IR/VM code that wraps around instead of stopping at 19
|
|
txt.print_ub(xx)
|
|
txt.spc()
|
|
}
|
|
txt.nl()
|
|
|
|
for xx in 20 downto 10 step -3 { ; TODO fix IR/VM code that wraps around instead of stopping at 11
|
|
txt.print_ub(xx)
|
|
txt.spc()
|
|
}
|
|
txt.nl()
|
|
|
|
for bb in 10 downto -10 step -3 { ; TODO fix IR/VM code that wraps around instead of stopping at -8
|
|
txt.print_b(bb)
|
|
txt.spc()
|
|
}
|
|
|
|
txt.nl()
|
|
txt.nl()
|
|
ubyte ending = 20
|
|
|
|
for xx in 10 to ending step 3 {
|
|
txt.print_ub(xx)
|
|
txt.spc()
|
|
}
|
|
txt.nl()
|
|
ending =10
|
|
for xx in 20 downto ending step -3 {
|
|
txt.print_ub(xx)
|
|
txt.spc()
|
|
}
|
|
txt.nl()
|
|
|
|
byte endingb = -10
|
|
for bb in 10 downto endingb step -3 {
|
|
txt.print_b(bb)
|
|
txt.spc()
|
|
}
|
|
}
|
|
}
|