Node 600
This node ...
Source code
600 peer
row 00 32 yw !b pop pop dup push F or 2* 2* dup
F and over 2/ 2/ 2/ 2/ !b !b drop push ;
cell 0A @ 3 for dup 2/ 2/ 2/ 2/ next
3 and 38 gn !b !b 3 for F and !b next ;
ram 18 p 560E ram ! ! 15 for row cell cell cell cell
39 eol ! next ;
stk1 25 5 push stk2 27 begin cell next 39 eol !b ;
stk 2B p 561B stk ! ! stk1 3 push stk2 ;
peer 31 p 12013 peer !b dup push stk pop ram
a @b right a! ! a! ;
cs 38 30000 !b up b! ; 3C
init down a! io b! r--- ; 41
7 l 0 0 ether
row 00 32 yw !b pop pop dup push F or 2* 2* dup
F and over 2/ 2/ 2/ 2/ !b !b drop push ;
cell 0A @ 3 for dup 2/ 2/ 2/ 2/ next
3 and 38 gn !b !b 3 for F and !b next ;
ram 18 p 560E ram ! ! 15 for row cell cell cell cell
39 eol ! next ;
stk1 25 5 push stk2 27 begin cell next 39 eol !b ;
stk 2B p 561B stk ! ! stk1 3 push stk2 ;
peer 31 p 12013 peer !b dup push stk pop ram
a @b right a! ! a! ;
cs 38 30000 !b up b! ; 3C
init down a! io b! r--- ; 41
7 l 0 0 ether
Definitions
- row
- .
- cell
- .
- ram
- .
- stk1
- .
- stk2
- .
- stk
- .
- peer
- .
- cs
- .
- init
- Set registers A and B, and jump to RIGHT.