Node 205
unpack
Source code
205 unpack
flush 00 zif ok? 01 a down a! dup dup or - ! a! ;
then begin @ unext ok? ;
reach 06 c 1 r 0 d 0 path lit a ! 1202F code ! ! ! ;
12/ 0A 2/ 2/ 2/ 2/ 2/ 2/
6/ 0C 2/ 2/ 2/ 2/ 2/ 2/
0/ 0E 3F and 3C eob over or
if drop 1000 delay for . . . unext !b ;
then drop !b pop pop flush ;
upck 18 @ dup 12/ dup 6/ 0/ .. ;
code 1D n right a! 8 49B2 @p ! ! left a!
32 yw !b dup dup or empty !b
10001 reach 5633 read ! n ! 255 for upck next 2E
init left a! up b! -d-- ; 33
3 l 3 d 0 ether
flush 00 zif ok? 01 a down a! dup dup or - ! a! ;
then begin @ unext ok? ;
reach 06 c 1 r 0 d 0 path lit a ! 1202F code ! ! ! ;
12/ 0A 2/ 2/ 2/ 2/ 2/ 2/
6/ 0C 2/ 2/ 2/ 2/ 2/ 2/
0/ 0E 3F and 3C eob over or
if drop 1000 delay for . . . unext !b ;
then drop !b pop pop flush ;
upck 18 @ dup 12/ dup 6/ 0/ .. ;
code 1D n right a! 8 49B2 @p ! ! left a!
32 yw !b dup dup or empty !b
10001 reach 5633 read ! n ! 255 for upck next 2E
init left a! up b! -d-- ; 33
3 l 3 d 0 ether
Definitions
- flush
- .
- ok?
- .
- 12/, 6/, 0/
- .
- upck
- .
- code
- .
- init
- Set registers A and B, and jump to DOWN.