[ photo 100_1589.JPG
      DUMMY; (allow new set to settle down)
      =V28; LINK; ERASE; (remove dummy link)
      =V28; (store twice in case of reset)
      $=K1; ERASE; EXITD; (return to program)

35;   LINK; JS3P161; SHL12; SETB207; OR; SHC-12; JS10P6; J35NEJ;
36;   K4; ERASE; JSP59; J36;
4;    =M5; JSP1; ZERO; DUP; NOT; J9;

1;    DUP; SHL+25; REV;
      =Q5; J10<Z; (jump if NOUV); JSP1;
      J17;
10;   (NOUV dump); Q6; =V3; Q7; =V4; Q4; =V1; (dump Q);
      LINK; =V34P1; SET16; =RC6; Q6TOQ7;
      K7; SHL2; ZERO; SHLD5; REV; (nest count to N2)
      DUP; =V4P2; (SJNS count at top of V4P2);
      J34<Z; (jump on SJNS fail);
      V34P1; =V16P1M6Q; (LINK to V16P1);
34;   SHA-4; SHL-1; J51#Z; (if nest count >= 24 treat as nest U flow count =0);
$50;  J51EN;
      =V0P1M7Q; J50C7NZS; (dump nest);
      ERASE; ERASE; (18 erases);
51;   M7; =V32P1; (store nest count); (must be 0-16);
15;   ERASE; J15EN;
      V4P2; SHA-43; NOT; NEG; J52=Z; (SJNS underflow);
$13;  J52EJ;
      LINK; =V16P1M6Q; J13C6NZS;
52;   M6; =V33P1; (store JNS count);
16;   LINK; ERASE; J16NEJ; (clear JNS properly);
17;   Q5; V7; =M5; DUP; SHL-32; SHL+3; V5;
      *; SHA+1; V5P104M5; +; DUP;
      =V5P104M5; V9M5; SHL+5; =M6;
      M6M0HN; SIGN; SHL-1; NEG;
9;    =V13; ZERO; NOT; =V14; JSP30;
      SET7; =RC6;
$19;  ZERO; =V16M6Q; $J19C6NZS;
      JS2P60; ERASE;
      V17; SHL+2; V18; SHA+1; +;
      V13; +; NEG; V22; SETB76277;
      AND; OR; V21; SETB76377; AND;
      OR; DUP; ZERO; =V0P2; J20=Z;
      ZERO; =V13; JSP2; (program fails); ZERO;
20;   ERASE; V20; J29=Z; JSP3; (OUT);
21;   V4P23; J29#Z; JSP155; (MT OUT 8);
29;   V16; J22=Z; JSP4; (Flex);
22;   V19; J23=Z; JSP5; (EDT);
      V0P69; J23=Z; JSP73;
23;   JSP60; J21#Z;
      V32P1; DUP; =C6; =M6; I6=-1;
      SET-14865; (basic lp 0.886 msac); J25;
$24;  V-1P1M6Q; REV; SET302; (.018 msec); -;
25;   J24C6NZS;
      V33P1;DUP; =C6; =M6; J27;
$26;  V15P1M6Q; =LINK; SET352; (.021 msec); -;
27;   J26C6NZS;
      V1; =Q4; V3; =Q6; V4; =Q7;
      V7; V14; J28<Z;
      V14; JS30; (to pland dummy
      LINK and enter specified priority)
28;   REV; SET-1761; (path difference 0.105 msec)
      +; J32; (jo choose return priority)
      (end of inner loop of long path)