Node 302
...
Source code
302 execute
r@ 00 n -if dup then !b ;
get 03 -n @p ! @ ; !p . . .
ret 05 15555 ; dup !b ! ;
leg 08 n @p ! ! @p 2* 2* @p . or .. ! ret ;
l 0C 1 leg ; u 0E 2 leg ;
d 10 3 leg ; r 12 0 leg ;
64*or 14 @p dup ! . 2* 2* 2* . ! @p ! ; or ..
path 18 -p 64*or 64*or get ;
ether 1B pth up a! a ! 1202F code !
1 l 2 u 0 path lit ! 4 ! 1203D fill !
0 ! 1 ! p ! 120A9 warm ! right a! ret ;
ctrl 2C up a! a ! 1202F code ! ! 0 ! ! right a! ret ;
reset 35 10035 1 u 1 l 0 path lit ctrl ;
link 39 -1 1 l 2 u 0 path lit ctrl ; 3D
init right a! down b! -1 -d-- ; 43
6 l 2 d 0 ether
r@ 00 n -if dup then !b ;
get 03 -n @p ! @ ; !p . . .
ret 05 15555 ; dup !b ! ;
leg 08 n @p ! ! @p 2* 2* @p . or .. ! ret ;
l 0C 1 leg ; u 0E 2 leg ;
d 10 3 leg ; r 12 0 leg ;
64*or 14 @p dup ! . 2* 2* 2* . ! @p ! ; or ..
path 18 -p 64*or 64*or get ;
ether 1B pth up a! a ! 1202F code !
1 l 2 u 0 path lit ! 4 ! 1203D fill !
0 ! 1 ! p ! 120A9 warm ! right a! ret ;
ctrl 2C up a! a ! 1202F code ! ! 0 ! ! right a! ret ;
reset 35 10035 1 u 1 l 0 path lit ctrl ;
link 39 -1 1 l 2 u 0 path lit ctrl ; 3D
init right a! down b! -1 -d-- ; 43
6 l 2 d 0 ether
Definitions
- r@
- .
- get
- .
- ret
- .
- leg
- .
- 64*or
- .
- pth
- .
- ctrl
- .
- init
- Set registers A and B, leave empty flag on stack, and jump to DOWN.