Node 106
This node ...
Source code
106 print
6* 00 2* 2* 2* 2* 2* 2* ;
fill 02 begin ! unext !b ;
s@ 03 -s @b up over or if drop ; then drop drop s@ ;
3plet 09 s@ -if eob 0B 39F3A eol eob b. ahead *
swap then 6* s@ -if drop 6* E7C eol eob or .. ahead *
swap then or 6* s@ -if drop 3A b. or ! pop zif then push eob ;
then or ! ; then then * ! pop zif ; then fill ;
print 1F 1202F head ! ! 200 ! 1 ! 199 for 3plet next ; 29
init right a! up b! ---u ; 2E
2 l 4 d 0 ether
6* 00 2* 2* 2* 2* 2* 2* ;
fill 02 begin ! unext !b ;
s@ 03 -s @b up over or if drop ; then drop drop s@ ;
3plet 09 s@ -if eob 0B 39F3A eol eob b. ahead *
swap then 6* s@ -if drop 6* E7C eol eob or .. ahead *
swap then or 6* s@ -if drop 3A b. or ! pop zif then push eob ;
then or ! ; then then * ! pop zif ; then fill ;
print 1F 1202F head ! ! 200 ! 1 ! 199 for 3plet next ; 29
init right a! up b! ---u ; 2E
2 l 4 d 0 ether
Definitions
- 6*
- .
- fill
- .
- s@
- .
- 3plet
- .
- eob
- .
- .
- init
- Set registers A and B, and jump to UP.