prog8/compiler/examples/test.p8

42 lines
532 B
Plaintext
Raw Normal View History

%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
float f
word ww = $55aa
; P_carry(1) @todo function -> assignment
; P_irqd(1) @todo function -> assignment
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 {
_vm_write_num(i)
_vm_write_char($8d)
2018-09-23 00:04:45 +00:00
i++
2018-09-19 00:41:35 +00:00
}
_vm_write_char($8d)
2018-09-23 00:04:45 +00:00
i=2
repeat {
_vm_write_num(i)
_vm_write_char($8d)
2018-09-23 00:04:45 +00:00
i++
} until i>10
}
}