mirror of
https://github.com/irmen/prog8.git
synced 2024-08-20 05:29:02 +00:00
39 lines
482 B
Lua
39 lines
482 B
Lua
%import c64flt
|
|
%zeropage basicsafe
|
|
%option enable_floats
|
|
|
|
main {
|
|
|
|
ubyte abc
|
|
|
|
|
|
sub start() {
|
|
|
|
A=abc
|
|
ubyte zzz
|
|
|
|
repeat {
|
|
uword wvar
|
|
Y=abc
|
|
Y=zzz
|
|
wvar=99
|
|
} until 99
|
|
|
|
repeat {
|
|
uword wvar
|
|
Y=abc
|
|
Y=zzz
|
|
wvar=99
|
|
} until 99
|
|
|
|
if A>0 {
|
|
uword wvar
|
|
Y=abc
|
|
Y=zzz
|
|
wvar=99
|
|
}
|
|
|
|
|
|
}
|
|
}
|