mirror of
https://github.com/irmen/prog8.git
synced 2024-12-23 09:32:43 +00:00
51 lines
927 B
Lua
51 lines
927 B
Lua
%zeropage basicsafe
|
|
%option no_sysinit
|
|
|
|
main {
|
|
sub func() -> ubyte {
|
|
cx16.r0++
|
|
return cx16.r0L
|
|
}
|
|
|
|
sub start() {
|
|
bool[256] @shared cells
|
|
word starw
|
|
byte bb
|
|
uword uw
|
|
ubyte ub
|
|
|
|
starw = (240-64 as word) + func()
|
|
|
|
for starw in 50 downto 10 {
|
|
cx16.r0++
|
|
}
|
|
for starw in cx16.r0L downto 10 {
|
|
cx16.r0++
|
|
}
|
|
|
|
for ub in 0 to len(cells)-1 {
|
|
cx16.r0++
|
|
}
|
|
for ub in cx16.r0L to len(cells)-1 {
|
|
cx16.r0++
|
|
}
|
|
for bb in 50 downto 10 {
|
|
cx16.r0++
|
|
}
|
|
for bb in cx16.r0sL downto 10 {
|
|
cx16.r0++
|
|
}
|
|
|
|
for starw in 500 downto 10 {
|
|
cx16.r0++
|
|
}
|
|
for uw in 50 downto 10 {
|
|
cx16.r0++
|
|
}
|
|
for uw in 500 downto 10 {
|
|
cx16.r0++
|
|
}
|
|
}
|
|
}
|
|
|