Node 102
This node ...
Source code
102 slots, h on stack
s0 00 begin drop ; i00 01 begin * drop 2/ 2/ or
full 03 hn over 3 and swap until s0
i! 06 begin ** drop 562F i! down a! ! ! dup ! h 2/ 2/ @ +
orig 0C n 2* 2* 2C9B2 .... ;
0s 0E hni 12 for 2* unext
i, 11 or push 1 + pop a 2/ until ** drop ;
1s 16 2* 2* 2* 2* 2* 2* 2* 2* i, ;
2s 19 2* 2* 2* i, ;
jump 1B n pop . + push ;
tok 1D hni a! over push a 1C or pop 3 and jump
0s ; 2* 1s ; 2s ; 3s dup 3 and until *
drop push full pop 0s ;
rw 2C hn full over 2/ 2/ !b ;
gw 2F hna 5616 ad down a! ! ! over ! @
-if - push full pop then
ad+ or @b tok full ;
h@ 3A hn over !b ;
h+- 3B hnm-h'n a! push a . + pop ; 3D
init right b! 0 2C9B2 .... rd-- ; 42
6 l 4 d 0 ether
s0 00 begin drop ; i00 01 begin * drop 2/ 2/ or
full 03 hn over 3 and swap until s0
i! 06 begin ** drop 562F i! down a! ! ! dup ! h 2/ 2/ @ +
orig 0C n 2* 2* 2C9B2 .... ;
0s 0E hni 12 for 2* unext
i, 11 or push 1 + pop a 2/ until ** drop ;
1s 16 2* 2* 2* 2* 2* 2* 2* 2* i, ;
2s 19 2* 2* 2* i, ;
jump 1B n pop . + push ;
tok 1D hni a! over push a 1C or pop 3 and jump
0s ; 2* 1s ; 2s ; 3s dup 3 and until *
drop push full pop 0s ;
rw 2C hn full over 2/ 2/ !b ;
gw 2F hna 5616 ad down a! ! ! over ! @
-if - push full pop then
ad+ or @b tok full ;
h@ 3A hn over !b ;
h+- 3B hnm-h'n a! push a . + pop ; 3D
init right b! 0 2C9B2 .... rd-- ; 42
6 l 4 d 0 ether
Definitions
- s0
- .
- i00
- .
- full
- .
- i!
- .
- orig
- .
- 0s
- .
- i,
- .
- 1s
- .
- 2s
- .
- jump
- .
- tok
- .
- 3s
- .
- rw
- .
- gw
- .
- ad+
- .
- h@
- .
- h+-
- .
- init
- Set register B, set initial memory pointer zero and initial instruction word (four nops) on stack, and execute from RIGHT and DOWN.