2018-09-24 20:34:12 +00:00
|
|
|
%option enable_floats
|
2018-08-16 21:10:28 +00:00
|
|
|
|
2018-09-15 22:59:12 +00:00
|
|
|
~ main {
|
2018-09-02 16:32:48 +00:00
|
|
|
|
2018-09-15 22:59:12 +00:00
|
|
|
sub start() -> () {
|
2018-09-11 22:51:48 +00:00
|
|
|
|
2018-09-23 00:04:45 +00:00
|
|
|
byte i=2
|
2018-09-24 20:34:12 +00:00
|
|
|
float f
|
|
|
|
word ww = $55aa
|
|
|
|
|
2018-09-24 21:38:33 +00:00
|
|
|
set_carry()
|
|
|
|
clear_carry()
|
|
|
|
set_irqd()
|
|
|
|
clear_irqd()
|
|
|
|
|
2018-09-24 20:34:12 +00:00
|
|
|
f=flt(i)
|
|
|
|
i = msb(ww)
|
|
|
|
i = lsb(ww)
|
|
|
|
lsl(i)
|
|
|
|
lsr(i)
|
|
|
|
rol(i)
|
|
|
|
ror(i)
|
|
|
|
rol2(i)
|
|
|
|
ror2(i)
|
|
|
|
|
|
|
|
|
2018-09-19 00:41:35 +00:00
|
|
|
|
2018-09-23 00:04:45 +00:00
|
|
|
while i<10 {
|
2018-09-22 00:38:53 +00:00
|
|
|
_vm_write_num(i)
|
2018-09-19 23:13:21 +00:00
|
|
|
_vm_write_char($8d)
|
2018-09-23 00:04:45 +00:00
|
|
|
i++
|
2018-09-19 00:41:35 +00:00
|
|
|
}
|
|
|
|
|
2018-09-22 00:38:53 +00:00
|
|
|
_vm_write_char($8d)
|
|
|
|
|
2018-09-23 00:04:45 +00:00
|
|
|
i=2
|
|
|
|
repeat {
|
2018-09-22 00:38:53 +00:00
|
|
|
_vm_write_num(i)
|
|
|
|
_vm_write_char($8d)
|
2018-09-23 00:04:45 +00:00
|
|
|
i++
|
|
|
|
} until i>10
|
2018-09-22 00:38:53 +00:00
|
|
|
|
2018-09-05 21:14:08 +00:00
|
|
|
}
|
2018-08-12 21:09:59 +00:00
|
|
|
}
|