Node 104
This node ...
Source code
104 words
yn 00 560E yn
d!! 02 nn down a! ! ! @ drop ;
begin * 560A con d!! 8
tok 09 n dup -42 . + -until *
begin ** drop over a! 562E tok ! ! ;
match 0F w-a up a! 12032 match ! ! @ ;
gw 13 w match -if ? begin end
then over a! 5600 gw ! ! dup 5639 tail d!! ;
gn 1B n 560B gn d!! 8 tok ;
yw 1F w 20299 swap over or until **
drop dup match -if drop 5616 yw d!! ; then 560E yn d!! drop ;
jump 2B n pop . + push ;
word 2D l @b jump
@b tok ; . .. @b yw ; @b yn ; @b gn ; @b gw ;
. .. rw dup l a! 12039 rw ! @ h up a! 1203D enter ! @b ! ! ; 3C
init right b! left 2D word dup push dup push dup push
dup push dup push dup push dup push dup push push ; 45
4 l 4 d 0 ether
yn 00 560E yn
d!! 02 nn down a! ! ! @ drop ;
begin * 560A con d!! 8
tok 09 n dup -42 . + -until *
begin ** drop over a! 562E tok ! ! ;
match 0F w-a up a! 12032 match ! ! @ ;
gw 13 w match -if ? begin end
then over a! 5600 gw ! ! dup 5639 tail d!! ;
gn 1B n 560B gn d!! 8 tok ;
yw 1F w 20299 swap over or until **
drop dup match -if drop 5616 yw d!! ; then 560E yn d!! drop ;
jump 2B n pop . + push ;
word 2D l @b jump
@b tok ; . .. @b yw ; @b yn ; @b gn ; @b gw ;
. .. rw dup l a! 12039 rw ! @ h up a! 1203D enter ! @b ! ! ; 3C
init right b! left 2D word dup push dup push dup push
dup push dup push dup push dup push dup push push ; 45
4 l 4 d 0 ether
Definitions
- yn
- .
- d!!
- .
- tok
- .
- match
- .
- gw
- .
- gn
- .
- yw
- .
- jump
- .
- word
- .
- init
- Set register B, leave LEFT address on stack, fill return stack with address of word, and return to multiport execution.