mirror of
https://github.com/irmen/prog8.git
synced 2024-12-24 16:29:21 +00:00
55 lines
965 B
Lua
55 lines
965 B
Lua
%import textio
|
|
%import math
|
|
%zeropage basicsafe
|
|
%option no_sysinit
|
|
|
|
main {
|
|
sub start() {
|
|
ubyte @shared pointer
|
|
const uword value = 255
|
|
|
|
if pointer>value {
|
|
cx16.r0L++
|
|
}
|
|
; if pointer>50000 {
|
|
; cx16.r0L++
|
|
; }
|
|
|
|
txt.bell()
|
|
}
|
|
}
|
|
|
|
|
|
/*main222 {
|
|
sub start() {
|
|
|
|
str name1 = "name1"
|
|
str name2 = "name2"
|
|
uword[] @split names = [name1, name2, "name3"]
|
|
uword[] addresses = [0,1,2]
|
|
names = [1111,2222,3333]
|
|
|
|
for cx16.r0 in names {
|
|
txt.print_uw(cx16.r0)
|
|
txt.spc()
|
|
}
|
|
txt.nl()
|
|
|
|
addresses = names
|
|
|
|
for cx16.r0 in addresses {
|
|
txt.print_uw(cx16.r0)
|
|
txt.spc()
|
|
}
|
|
txt.nl()
|
|
|
|
names = [9999,8888,7777]
|
|
names = addresses
|
|
for cx16.r0 in names {
|
|
txt.print_uw(cx16.r0)
|
|
txt.spc()
|
|
}
|
|
txt.nl()
|
|
}
|
|
}*/
|