Node 002
This node ...
Source code
002 stack, address
green nums 0 , 0 , 0 , 0 , yellow on stack
pass 04 n left b! !b down b! ;
s1 08 300 and if drop - !b ; then drop FF and !b ;
s2 0E 3F8 and if drop - !b ; then drop 7 and !b ;
jump 14 pop . + push ;
ad 16 a dup 1B2 or over @b h dup push
2/ 2/ a . + 1 . + or pop 3 and jump
s0 drop !b ; s1 ; s2 ; s3 drop - !b ;
orig 24 n 560C orig !b !b ;
rslv 26 a right b! @b ap ad @b left b!
560A i+ !b !b drop !b down b! ;
i! 2F n @b nh 2/ 2/ na left b! a dup
5615 i! !b !b push 0 a! !b begin !b @+ unext
drop a down b! !b dup dup or a! ;
h+- 3B m 563B h+- !b !b ;
leg 3D n push 2* 2* pop or ;
or; 3F or ; 40
init down b! 0 a! rdl- ; 45
6 l 5 d 0 ether
green nums 0 , 0 , 0 , 0 , yellow on stack
pass 04 n left b! !b down b! ;
s1 08 300 and if drop - !b ; then drop FF and !b ;
s2 0E 3F8 and if drop - !b ; then drop 7 and !b ;
jump 14 pop . + push ;
ad 16 a dup 1B2 or over @b h dup push
2/ 2/ a . + 1 . + or pop 3 and jump
s0 drop !b ; s1 ; s2 ; s3 drop - !b ;
orig 24 n 560C orig !b !b ;
rslv 26 a right b! @b ap ad @b left b!
560A i+ !b !b drop !b down b! ;
i! 2F n @b nh 2/ 2/ na left b! a dup
5615 i! !b !b push 0 a! !b begin !b @+ unext
drop a down b! !b dup dup or a! ;
h+- 3B m 563B h+- !b !b ;
leg 3D n push 2* 2* pop or ;
or; 3F or ; 40
init down b! 0 a! rdl- ; 45
6 l 5 d 0 ether
Definitions
- pass
- .
- s1
- .
- s2
- .
- jump
- .
- ad
- .
- orig
- .
- rslv
- .
- i!
- .
- h+-
- .
- leg
- .
- or;
- .
- init
- Set registers A and B, and return to multiport execution.