[ photo 100_1600.JPG
      SHL-1; J1P45#Z;
1;    J2#Z;
      M7; =V1P120; V0P120; J3;
2;    M7; =V1P52; V0P52;
3;    DUP; =M7; J4<Z;
      V29P104M7; DUP; NOT; SHL-46; SHL+47;
      SHL-2; NOT; AND; SHL+3;
      STR; ERASE;
5;    SHL-3; =V29P104M7;
4;    EXIT2;

P38; (fetch program letter);
      JSP31; J1; JSP56;
1;    LINK; ERASE; EXIT1;
P39V0; (TING G and G+);

      V0=B3272324532623257;
      JSP65; DUP;
      C7; SETB37; NEV; J6=Z; ERASE; (allow TIN Gnn);
      JSP32; J3P45; DUP; SHL-4; J3P45#Z; REV;  (allow TIN Gnn/mm);
6;    NEG; NOT; DUP; =RM6; -; DUP; =C6; J4P45<=Z;
1;    V1P26M6Q; DUP; J4<Z; DUP; SHL+24;
      SHL-42; SETB54; NEV; J3#Z; (jimp if
      status not L); M6; JSP131; =M6;
      V-16P101M6; V-17P101M6; CAB; =M6; DUP;
      J2#Z; ERASE; V0;
2;    CAB; SET3; J5;
3;    SET1;
5;    JSP6; ZERO;
4;    ERASE; J1C6NZ; EXIT2;

p40;      (TINT M - type wanted list);
      ZERO; NOT; =V0P101; (set new L tapes);
      V0P52; JS1; J35P0; V0P120;
1;    DUP; =M7; J4P37<Z; V29P104M7; SHC2; SHL1; J5P37;
      (types prog tape req too);



P41;      (TINT I - even and odd restarts);
      JSP38;
      V29P104M5; J4P45#Z;
      JSP65; (allowing TINT Ipn);
      SHL+47; DUP; J2#Z; (jump if odd restart)
      JSP30; ZERO; =M0M4; (clear SHUL);
      SET1; JS94P105; (clear HUR);
2;    SHL-1; SHL-33; SET4; OR; (4/0 or 4/3);
      J6P29; (store inSJNS);


P42V1;      (J J+ JE Jdd);
      V1=-1;      (end tape warning);
      JS9P31; SETB45; J4=; (test for JE);
      SETB35; NEV; J3#Z;
      SET-6; =V0; (to allow 16384 words for NJC);
3;    JS10P32; J2;
1;    =V4P155; EXIT2;
2;    ERASE; V3P23; SHL-32; J4P45=Z; (no N tape);
      JS21P45; J1;
4;    V1P23; SHL-32; J1P45=Z; (again if no old tape);
      =V1; JS20P45; EXIT2;

[ ------------

P44V0;      (TINT L - change type of unit);
      V0=B 0206520200002072; (skeleton
      descriptor shifted cyclically down 33);