mirror of
https://github.com/irmen/prog8.git
synced 2024-07-29 10:29:37 +00:00
45 lines
505 B
Lua
45 lines
505 B
Lua
%option enable_floats
|
|
|
|
~ main {
|
|
|
|
sub start() -> () {
|
|
|
|
byte i=2
|
|
float f
|
|
word ww = $55aa
|
|
|
|
set_carry()
|
|
clear_carry()
|
|
set_irqd()
|
|
clear_irqd()
|
|
|
|
f=flt(i)
|
|
i = msb(ww)
|
|
i = lsb(ww)
|
|
lsl(i)
|
|
lsr(i)
|
|
rol(i)
|
|
ror(i)
|
|
rol2(i)
|
|
ror2(i)
|
|
|
|
|
|
|
|
while i<10 {
|
|
_vm_write_num(i)
|
|
_vm_write_char($8d)
|
|
i++
|
|
}
|
|
|
|
_vm_write_char($8d)
|
|
|
|
i=2
|
|
repeat {
|
|
_vm_write_num(i)
|
|
_vm_write_char($8d)
|
|
i++
|
|
} until i>10
|
|
|
|
}
|
|
}
|