Node 101
This node ...
Source code
101 send
point 00 a 5628 point ! ! ;
place 02 n 562A place ! ! ;
i@ 04 a 5634 i@ ! ! @ !b ;
switch 07 0 a! 2 for @+ drop !+ unext a! ;
ers 0D 12037 ers ! ;
loop 0F a 5624 loop ! ! ;
set 11 a @p ! ! ; @p a! . .
loader 13 @p place dup or a! .
@p place @p push . . 63 place
@p place ; begin @p !+ unext .
send 1B switch 1202C head ! @b a dup push
69 . + n place @b pt place loader 0 point 63 loop
init down point pop dup push loop 0 set
7BB2 @+ !b . . begin dup ! unext drop up set ; 33
init up a! down b! up 5634 i@ 562A place 5628 point
up 4A0E @p a! @ !p 58B2 @p !+ . . 4AB2 @p a! . .
dup dup drop drop -d-- ; 43
7 l 4 d 0 ether
point 00 a 5628 point ! ! ;
place 02 n 562A place ! ! ;
i@ 04 a 5634 i@ ! ! @ !b ;
switch 07 0 a! 2 for @+ drop !+ unext a! ;
ers 0D 12037 ers ! ;
loop 0F a 5624 loop ! ! ;
set 11 a @p ! ! ; @p a! . .
loader 13 @p place dup or a! .
@p place @p push . . 63 place
@p place ; begin @p !+ unext .
send 1B switch 1202C head ! @b a dup push
69 . + n place @b pt place loader 0 point 63 loop
init down point pop dup push loop 0 set
7BB2 @+ !b . . begin dup ! unext drop up set ; 33
init up a! down b! up 5634 i@ 562A place 5628 point
up 4A0E @p a! @ !p 58B2 @p !+ . . 4AB2 @p a! . .
dup dup drop drop -d-- ; 43
7 l 4 d 0 ether
Definitions
- point
- .
- place
- .
- i@
- .
- switch
- .
- ers
- .
- loop
- .
- set
- .
- loader
- .
- send
- .
- init
- Set registers A and B, preset stack, and jump to DOWN.