etherforth_logo

Node 003

This node ...

Source code

code node 103 node 004 node 002 node 003
003 flow
gn 00 n @p !b !b ; @p !+ ..
yn 02 n @p !b !b ; @p ..
yw 04 n !b ;
'ahead 'leap 'zif 05 n' 561B 'if ! ! ;
'till '-till 07 n' 5617 'end ! ! ;
'for 09 1D push 562E tok ! ! 12005 full ! ;
'then 0E 12005 full ! @p . !p !p . . ! @ 2/ 2/ p
@ ph dup 2/ 2/ pha 5626 rslv !b !b over !b h !b @b
-if ? begin end then !b ;
'when 1A 6 if 561B 'if ! !
'swap 1E -1 swap 562E tok ! ! ;
'-when 22 7 -if 561B 'if ! ! 'swap ;
'else 26 2 jump 'ahead 'swap 'then ;
jump 2A n-n' F and dup pop . + push ;
high 2E n jump 'then ; 'else ; 'ahead ; 'leap ;
'when ; 'zif ; 'till ; '-till ; 'for ; '-when ; 39

init right b! down a! -dl- ; 3E

5 l 5 d 0 ether

Definitions

gn
.
yn
.
yw
.
'ahead
'leap
'zif
.


'till
'-till
.

'for
.
'then
.
'when
.
'swap
.
'-when
.
'else
.
jump
.
high
.
init
Set registers A and B, and return to multiport execution.

Description