add decimal printer example program
This commit is contained in:
parent
58dbbc6d8f
commit
738b1da85b
1 changed files with 25 additions and 0 deletions
25
programs/decimal_printer.mbl
Normal file
25
programs/decimal_printer.mbl
Normal file
|
@ -0,0 +1,25 @@
|
||||||
|
(decimal printer)
|
||||||
|
o
|
||||||
|
1
|
||||||
|
2
|
||||||
|
3
|
||||||
|
4
|
||||||
|
5
|
||||||
|
6
|
||||||
|
o
|
||||||
|
(check if 0)
|
||||||
|
v B-=-#01 <
|
||||||
|
v * D-(div/10)
|
||||||
|
v B * <
|
||||||
|
o
|
||||||
|
v> * 1 ^
|
||||||
|
F -R0* B(next digit, %10)
|
||||||
|
*| # <-A vo(+48 = ascii)
|
||||||
|
| #84 <
|
||||||
|
| *-|
|
||||||
|
F +B * B
|
||||||
|
#< \F----
|
||||||
|
|
||||||
|
*-|
|
||||||
|
P-
|
||||||
|
B
|
Loading…
Reference in a new issue