marble/programs/adder.mbl

26 lines
373 B
Text
Raw Permalink Normal View History

2024-09-30 21:12:41 +02:00
(print sum of 2 numbers)
o
2024-09-30 21:07:24 +02:00
> 1230 B
vo A-+
2024-09-30 21:07:24 +02:00
> 45898 B|
o --+
> * B
o
(check if 0)
1
v < B=- 0
v o * D- (div/10)
v B * <
v> * 1 o ^
F -R0 * 4 B
*| # < -A8 v
| # <
2024-09-30 21:12:41 +02:00
#-| v <
| *-|
F +B * ^
#< \F----
(ascii digit s)
(printed in)*-|
(reverse) P-
B