Node 000
This node ...
Source code
000 tail
32* 00 n-m 2* 2* 2* 2* 2* ;
off? 02 n-nf dup 12000 or 3E000 and ;
call- 06 i dup 1F00 or 2 for off? if drop 32* swap next
then drop in drop 8 zif or !b ;
then begin 32* next or !b ; 15
init right b! r--- ; 18
8 l 5 d 0 ether
32* 00 n-m 2* 2* 2* 2* 2* ;
off? 02 n-nf dup 12000 or 3E000 and ;
call- 06 i dup 1F00 or 2 for off? if drop 32* swap next
then drop in drop 8 zif or !b ;
then begin 32* next or !b ; 15
init right b! r--- ; 18
8 l 5 d 0 ether
Definitions
- 32*
- .
- off?
- .
- call-
- .
- init
- Set register B, and jump to RIGHT.