Node 005
This node ...
Source code
005 yellow search
org 303320 o, 20 ,
empty 0 , 22 ,
, 51 o, 28 ,
lit 252235 o, 31 ,
r 33 o, 3FFE6 19 ,
l 25 o, 3FFE0 1F ,
u 36 o, 3FFDE 21 ,
d 15 o, 3FFDC 23 ,
path 123521 o, 3FFDA 25 ,
init 272235 o, 3FFD1 2E ,
send 162715 o, 3FFCD 32 , 16
feed 16 -a 1D5 right @p !b ; @p ;
r 19 dup dup or nleg 1A feed !b 1 !b .
leg 1D 563D leg !b !b ;
l 1F 1 nleg ; u 21 2 nleg ; d 23 3 nleg ;
path 25 feed !b 13 !b dup or leap then
dup leg dup leg dup leg 1203F or; !b ;
init 2E 12032 ini far 30 a 5710 far !b !b ;
send 32 12039 send far ;
match 34 a 16 a! @+ drop @b
loop 37 as begin a -3 . + a! @+ over or while drop end
then @ -if - push ; then @p !b !b ; @p ; 40
init right b! r--- ; 43
3 l 5 d 0 ether
org 303320 o, 20 ,
empty 0 , 22 ,
, 51 o, 28 ,
lit 252235 o, 31 ,
r 33 o, 3FFE6 19 ,
l 25 o, 3FFE0 1F ,
u 36 o, 3FFDE 21 ,
d 15 o, 3FFDC 23 ,
path 123521 o, 3FFDA 25 ,
init 272235 o, 3FFD1 2E ,
send 162715 o, 3FFCD 32 , 16
feed 16 -a 1D5 right @p !b ; @p ;
r 19 dup dup or nleg 1A feed !b 1 !b .
leg 1D 563D leg !b !b ;
l 1F 1 nleg ; u 21 2 nleg ; d 23 3 nleg ;
path 25 feed !b 13 !b dup or leap then
dup leg dup leg dup leg 1203F or; !b ;
init 2E 12032 ini far 30 a 5710 far !b !b ;
send 32 12039 send far ;
match 34 a 16 a! @+ drop @b
loop 37 as begin a -3 . + a! @+ over or while drop end
then @ -if - push ; then @p !b !b ; @p ; 40
init right b! r--- ; 43
3 l 5 d 0 ether
Definitions
- feed
- .
- nleg
- .
- leg
- .
- far
- .
- match
- .
- loop
- .
- init
- Set register B, and return to multiport execution.