prog8/compiler/examples/test.p8

19 lines
249 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 {
sub start() -> () {
2018-09-11 22:51:48 +00:00
A = calcIt(12345, 99)
;A = 99/5 + lsb(12345)
_vm_write_num(A)
_vm_write_char($8d)
return
}
sub calcIt(length: XY, control: A) -> (Y) {
return control/5 +lsb(length)
}
}