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