etherforth_logo

Node 202

...

Source code

loader node 302 node 203 node 202
202 search
code 301516 o, 10016 ,
load 301215 o, 10024 ,
exit 412235 o, 10028 ,
pause 363416 o, 0 ,
l 25 o, 2DFF3 1200C ,
u 36 o, 2DFF1 1200E ,
d 15 o, 2DFEF 12010 ,
r 33 o, 2DFED 12012 ,
path 123521 o, 2DFE7 12018 ,
ether 211633 o, 2DFE4 1201B ,
reset 341635 o, 2DFCA 12035 ,
link 222724 o, 2DFC6 12039 , 18

20 org
r! 20 n down a! 49B2 @p ! ! ;
r@ 24 down a! 12000 r@ ! @ !b ;
match 28 a dup a! @+ drop @b
loop 2A as begin a -3 . + -if ? begin end
then a! @+ over or while drop end
then drop drop @ if -if down a! - ! @
then !b ; then drop
pause 199119 for . . unext 15555 ;
@p !b !b ; @p !b ; 3E

init right b! 18 r--- ; 42

6 l 3 d 0 ether

Definitions

r!
.
r@
.
match
.
loop
.
init
Set register B, place end of dictionary address on stack, and jump to RIGHT.

Description