Node 201
This node ...
Source code
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
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.