Node 303
...
Source code
303 stack, parse
blk 00 -b @p drop @p ; blk! 01 b !p ; 0 ,
ptr 03 -p @p drop @p ; ptr! 04 p !p ; 0 ,
tag? 06 s-sn 1 ptr + ptr! 30 over over and or ;
num 0C x-nt dup or begin @b tag? while drop
push dup 2* 2* . + 2* pop . + end then ;
word 14 x-t drop begin @b tag? while drop
5600 word ! ! end then push push
12003 match ! rd-- pop pop ;
skip 1F ptr push zif ; then begin @b drop unext ;
flush 23 begin @b -if drop ; then drop end
parse 26 b 0 ptr!
cont 28 b dup blk! 5626 block !b !b skip
sym 2C begin @b tag? while drop drop end then
tag 2F t0 drop -if drop 12029 fin ! -d-- ;
then 32 yw over or if drop 36 yd over or
if drop drop sym ; then drop num tag ;
then drop word tag ; 3F
init down a! left b! --l- ; 44
5 l 2 d 0 ether
blk 00 -b @p drop @p ; blk! 01 b !p ; 0 ,
ptr 03 -p @p drop @p ; ptr! 04 p !p ; 0 ,
tag? 06 s-sn 1 ptr + ptr! 30 over over and or ;
num 0C x-nt dup or begin @b tag? while drop
push dup 2* 2* . + 2* pop . + end then ;
word 14 x-t drop begin @b tag? while drop
5600 word ! ! end then push push
12003 match ! rd-- pop pop ;
skip 1F ptr push zif ; then begin @b drop unext ;
flush 23 begin @b -if drop ; then drop end
parse 26 b 0 ptr!
cont 28 b dup blk! 5626 block !b !b skip
sym 2C begin @b tag? while drop drop end then
tag 2F t0 drop -if drop 12029 fin ! -d-- ;
then 32 yw over or if drop 36 yd over or
if drop drop sym ; then drop num tag ;
then drop word tag ; 3F
init down a! left b! --l- ; 44
5 l 2 d 0 ether
Definitions
- blk, blk!
- .
- ptr, ptr!
- .
- tag?
- .
- num
- .
- word
- .
- skip
- .
- flush
- .
- parse
- .
- cont
- .
- sym
- .
- tag
- .
- init
- Set registers A and B, and jump to LEFT.