Node 204
This node ...
Source code
204 green search
r--- 555555 o, 1D5 ,
-d-- 155555 o, 115 ,
--l- 552555 o, 175 ,
---u 555536 o, 145 ,
space for 21 definitions
32 org
match 32 a dup a! @+ drop @b
loop 34 as begin a -3 . + -if !b drop ;
then a! @+ over or while drop end
then drop drop @ !b ;
enter 3D a-a' a! @b !+ @b !+ a ; 3F
init up b! 8 r--u ; 43
4 l 3 d 0 ether
r--- 555555 o, 1D5 ,
-d-- 155555 o, 115 ,
--l- 552555 o, 175 ,
---u 555536 o, 145 ,
space for 21 definitions
32 org
match 32 a dup a! @+ drop @b
loop 34 as begin a -3 . + -if !b drop ;
then a! @+ over or while drop end
then drop drop @ !b ;
enter 3D a-a' a! @b !+ @b !+ a ; 3F
init up b! 8 r--u ; 43
4 l 3 d 0 ether
Definitions
- match
- .
- loop
- .
- enter
- .
- init
- Set register B, leave address of the first available cell of the dictionary on stack, and return to multiport execution.