Node 001
This node ...
Source code
001 place
call? 00 -a @p drop @p ; call! 01 a !p ; 1F ,
point 03 a 5600 point ! ! ;
place 05 n 5602 place ! ! ;
i@ 07 a-i 5604 i@ ! ! @ ;
i+ 0A j @b ja i@ or place ;
ers 0C 1200D ers ! 1F call! ;
h+- 10 n 563B h+- !b !b ;
comma 12 n place 4 h+- ;
i! 15 n-a push @b i dup point call? push ex
begin @b place next ;
call 1C 1F call! @b i @p over . 1F 149B2 ; ,
or if drop place pop zif drop ; then push ;
then aaix drop drop drop dup i@ right a!
5606 call- ! ! @ down a! place -4 h+- r-l- ;
tail 30 1C call call! ;
ini 32 @p !b @p . dup or dup . 2B624 a! orig ,
!b 12007 switch ! ;
get 37 -n 12004 pass !b @b ;
send 39 a 1201B send ! ! get ! ; 3D
init down a! left b! r-l- ; 42
7 l 5 d 0 ether
call? 00 -a @p drop @p ; call! 01 a !p ; 1F ,
point 03 a 5600 point ! ! ;
place 05 n 5602 place ! ! ;
i@ 07 a-i 5604 i@ ! ! @ ;
i+ 0A j @b ja i@ or place ;
ers 0C 1200D ers ! 1F call! ;
h+- 10 n 563B h+- !b !b ;
comma 12 n place 4 h+- ;
i! 15 n-a push @b i dup point call? push ex
begin @b place next ;
call 1C 1F call! @b i @p over . 1F 149B2 ; ,
or if drop place pop zif drop ; then push ;
then aaix drop drop drop dup i@ right a!
5606 call- ! ! @ down a! place -4 h+- r-l- ;
tail 30 1C call call! ;
ini 32 @p !b @p . dup or dup . 2B624 a! orig ,
!b 12007 switch ! ;
get 37 -n 12004 pass !b @b ;
send 39 a 1201B send ! ! get ! ; 3D
init down a! left b! r-l- ; 42
7 l 5 d 0 ether
Definitions
- call?
call! - .
- point
- .
- place
- .
- i@
- .
- i+
- .
- ers
- .
- h+-
- .
- comma
- .
- i!
- .
- call
- .
- tail
- .
- ini
- .
- get
- .
- send
- .
- init
- Set registers A and B, and execute from RIGHT and LEFT.