Node 304
unpack
Source code
304 load
reach 00 cp a ! 1202F code ! ! ! ;
source 03 n 5633 read 10001 2 r 1 d 0 path lit reach ! ! ;
code 09 n 561D code 101 0 d 0 0 path lit reach ! ! @ !b ;
flush 10 zif ; then begin @ unext ;
12/ 13 2/ 2/ 2/ 2/ 2/ 2/
6/ 15 2/ 2/ 2/ 2/ 2/ 2/
0/ 17 3F and 3C eob over or if drop !b ;
then - -1 !b pop flush ;
upck 1E 255 for @ dup 12/ dup 6/ 0/ next ;
block 26 n source upck ;
load 28 n left b! 5626 parse !b !b ;
ok 2C dup or - up b! !b ; 2F
init right a! up b! --lu ; 34
4 l 2 d 0 ether
reach 00 cp a ! 1202F code ! ! ! ;
source 03 n 5633 read 10001 2 r 1 d 0 path lit reach ! ! ;
code 09 n 561D code 101 0 d 0 0 path lit reach ! ! @ !b ;
flush 10 zif ; then begin @ unext ;
12/ 13 2/ 2/ 2/ 2/ 2/ 2/
6/ 15 2/ 2/ 2/ 2/ 2/ 2/
0/ 17 3F and 3C eob over or if drop !b ;
then - -1 !b pop flush ;
upck 1E 255 for @ dup 12/ dup 6/ 0/ next ;
block 26 n source upck ;
load 28 n left b! 5626 parse !b !b ;
ok 2C dup or - up b! !b ; 2F
init right a! up b! --lu ; 34
4 l 2 d 0 ether
Definitions
- reach
- .
- source
- .
- code
- .
- flush
- .
- 12/, 6/, 0/
- .
- upck
- .
- block
- .
- load
- .
- ok
- .
- init
- Set registers A and B, and jump to LEFT and UP.