etherforth_logo

Node 001

This node ...

Source code

code node 101 node 002 node 000 node 001
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

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.

Description