[ photo 100_1590.JPG
P1V34;      (dump Q4, Q6, Q7 and both nests);   [ missing from photo
      Q6; =V3P0; Q7; =V4P0; Q4;
      =V1P0; ZERO; =RC6; J2EN;
1;    =V0M6Q; J1NEN;
2;    ERASE; J2EN;
      M6; =V32; CM0TOQ6; LINK;
      J4EJ;
3;    LINK; =V16M6Q; J3NEJ;
4;    M6; =V33; =LINK; EXIT1;

P2V4;    (program fails - entered from subprog
      failure indicator in N1 react abolished);
      (final fail OUT 1 to V2/3 else JE4);

      V1=P $$FAILS;
      V2/3=P {nc}D{c}FAXFAILJOB--;
      V4=0; (V4 is fail SJNS flag);

      DUP;
      ZERO; =V20P0; DUP; SHL-9; J6#Z;
      ZERO; SHLD45; JS3P161;
      SHL36; SHL-12; REV; V23P0;
      SHL-2; REV; SHL-45; FRB; DUP;
      SHL+6; -; -; SETB131355; SHL+2;
      (nest now contains LNT pattern and 00 77 pattern); AND;
6;    V1; JSP55; SHC-6; OR;
      JS31P6;
      V0; J10#Z; (no JE4 allowed);
      V89P104M5;
3;    DUP; NEG; NOT; =V89P104M5; (count fails); (entry from TINT A+);
      SHL30; J1#Z; (shift JAC);
10;   JS11; (F/CPDAR/LINK to N1);
      V2; V3; JS13; J7P16; (OUT 1);
11;   SHL3;M5; OR; SHL16; V17P104M5; OR; SHL16;
      V34P1; V4; J15<Z; ERASE; JS5P29; JS35P0;
15;   OR; (N1 is LNT/CPDAR/LINK);
      ZERO; =V4;
      JS2P29; J12; EXIT1; (put in nest to 12 if nest already full);
12;   SET15; JS100P29; JS35P0; EXIT1; (pretend nest nearly full);
1;    (even restart); JS11;
      SET4; DUP; JS6P29; JS2; (insert 4 in SJNS);
      SHL+24; V5P104M5; +; V9P0M5;
      SHL+5; =M6; =M6M0HN; EXIT;
2;    SET15; JS101P29; JS35P0; EXIT1; (insert in SJNS even if full);
13;   SETAP104; SETAV0P104; DUP; =RM6; -; =c6;
      V9P0M5; DUP; SHL24; SHL-40; J1P45=Z; (chack enough room for copy);
      SHL5; =RM7; (address of E0);
$14;  M0M6Q; =E8M7Q; $J14C5NZS; (copy loop);
      EXIT1;

P3V0; (OUT subroutine);
      V0=B 7776037740000000;       (valid 0-10, 16-24);
      V19P0; =Q6; (used in OUT 9);
      ZERO; =V20P0; (clear OUT marker);
      V16P1; SETB57777; -; DUP; J1>=Z;
      SETB120000; SHC+1; -;
1;    =V16P1; (LINK has 3 syllables added);
      V32P1; J4=Z; V0P1; =C7; V0; JS10;J3;
6;    =LINK; EXITAR2;
3;   (illegal OUT); ERASE; SETB10; JP2;
4;    ZERO; J6;
10;   JS20P45;
      ZERO; SHLDC7; BITS; REV; J1P45>=Z;
11;
      SHC-1; STR; SETB60000; AND; +; EXIT2;
[ ------- missed a bit from the photo
$2;   JP15; JP16; JP17; JP18; JP19;
      JP20; JP21; JP21; JP23; JP24; JP61;
      JP63; J64P24;  JP196; JP194; JP192;  (16-20);
      JP191; JP193;      (21,22);
      JP187; J4P187; (OUT23,24 for POL input);