etherforth_logo

Node 201

This node ...

Source code

compiler node 301 node 101 node 201
201 init
36 words for init code

24 org
loop 24 n @p !b !b @p @p push . . begin @+ !b unext . !b ;
point 28 a @p !b !b ; @p a! . .
place 2A n @p !b !b ; @p !+ . .
head 2C up a! a dup point f place 1202F c place
3 u 0 0 path lit ph place ;
i@ 34 a @p !b !b . @p a! @ !p @b ! ;
ers 37 128A9 warm dup dup or point
63 for dup place next up a! ; 40

init up a! down b! ---u ; 45

7 l 3 d 0 ether

Definitions

loop
.
point
.
place
.
head
.
i@
.
ers
.
init
Set registers A and B, and jump to UP.

Description