etherforth_logo

Node 102

This node ...

Source code

compiler node 103 node 002 node 102
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

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.

Description