Node 004
This node ...
Source code
004 yellow words, constants
12175 l , 121D5 r , 15D io , 12115 d , 141 data , 12145 u ,
cont 06 down a! ! ;
!n 08 n 5602 yn !b !b ;
con 0A n a! @
gn 0B n 5600 gn !b !b cont ;
yn 0E n !n cont ;
far 10 a pop drop !n 12004 pass 5604 yw !b !b cont ;
yw 16 n right a! 12034 match ! ! r---
run 1B a! @+ for @+ 5604 yw !b !b next cont ;
org 20 0 , 12024 orig ,
empty 22 4 , dup dup or . dup a! . .
12024 orig , 5604 pass , 1200C ers ,
, 28 7 , @p !b @b . over 2/ 2/ !p
5604 pass , 5603 point , 12004 pass ,
5604 pass , 5612 , , 12004 pass ,
lit 31 3 , !+ @p !b @p 561D tok , 8 @p , !b . . .
delay 36 250 for . . unext ;
tail 39 delay 3C run ; 3C 1 , 5604 pass , 12030 tail , 3F
init left b! rd-- ; 42
4 l 5 d 0 ether
12175 l , 121D5 r , 15D io , 12115 d , 141 data , 12145 u ,
cont 06 down a! ! ;
!n 08 n 5602 yn !b !b ;
con 0A n a! @
gn 0B n 5600 gn !b !b cont ;
yn 0E n !n cont ;
far 10 a pop drop !n 12004 pass 5604 yw !b !b cont ;
yw 16 n right a! 12034 match ! ! r---
run 1B a! @+ for @+ 5604 yw !b !b next cont ;
org 20 0 , 12024 orig ,
empty 22 4 , dup dup or . dup a! . .
12024 orig , 5604 pass , 1200C ers ,
, 28 7 , @p !b @b . over 2/ 2/ !p
5604 pass , 5603 point , 12004 pass ,
5604 pass , 5612 , , 12004 pass ,
lit 31 3 , !+ @p !b @p 561D tok , 8 @p , !b . . .
delay 36 250 for . . unext ;
tail 39 delay 3C run ; 3C 1 , 5604 pass , 12030 tail , 3F
init left b! rd-- ; 42
4 l 5 d 0 ether
Definitions
- cont
- .
- !n
- .
- con
- .
- gn
- .
- yn
- .
- far
- .
- yw
- .
- run
- .
- delay
- .
- tail
- .
- init
- Set register B, and return to multiport execution.