Node 003
This node ...
Source code
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
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.