[ photo 100_1616.JPG
$51;  J52C6Z; M0M6Q; +; J51C6NZS;
52;   E20M4; J40#Z;
      (check C-block sum);
      M0M7; NEV; V9P0M5; SHL+5; =M7;
      M0M7; SHL+24; J53=Z;
      SET3; REV; JP121#Z;
53;   (dispose of input unit)
      ERASE; J47C7Z; C7; =M6; V0P26M6;
      DUP; SHL+17; J43<Z;
      ERASE; JSP123; J47;
43;   E5M7; J45>=Z;
      SET1; SHLC7; V17P104M5; OR;
      =V17P104M5; SHC-24; SHL+6; SETB43;
      OR; SHC+18; C7; =E5M7; JS13P58; J47;
45;   ERASE; V0P122; =E5M7; JSP135;
47;   JSP124; M0M6; M5; NEV; J44#Z; ZERO; NOT; =M0M6;
44;   (OUT 2 enters here)
      V9P0M5; SHL+5; =M6; M0M6;
      V33P104M5; SHLD+24; SHC+24; =M0M6;
      V41P104M5; DUP; J54<Z;
      M0M6N; SHL24; REV; SHLD24; =M0M6N;
54;   ERASE;
      =V33P104M5; V29P104M5;
      ZERO; =V29P104M5; SET2; JS94P105;
      ZERO; =V1P104M5; V3; =E7M6;       [ put today's date in prog's E7
      E3M6; E2M6; V89P104M5; NOT; NEG; DUP; J46>=Z; (jump if no JAC);
      REV; SHL-24; SHLD24; PERM; V19; SHLD6; SHC-6; REV; ERASE; PERM;
46;   ERASE; DUPD; =V37P104M5; =V41P104M5; SETB20002; SHL24; -; (removeCR);
      SHL+6; JSP55; OR; SHC-6;
      CAB; V24P0M5; SETB33; OR; REV;
      SHC-2; J48<Z; V0P57; SHC+12; V0P0;
      DUP; =V53P104M5;
      SHA-24; SET 30; +; FRB;   [ sic
      V23P0; SHL+1; OR; V3; SHL-18;
      SHLD+18; SHL-6; SHLD-12; SHL+6; SHLD-24;
      SETB20702; SHL+12; OR; SHLD18; SET5;
49;   JSP6;
      SET5; JS159P23; ZERO; JS157P23;
      ZERO; NOT; =V57P104M5;
65;   JS50P10;
      ZERO; =V57P104M5;
      V29P104M5; J11P15<Z; (job terminated);
64;   ZERO; JS6P29;
50;   J2P2; (forcible entry);
      EXIT1;
48;   (OUT 1 only);
      ERASE; ERASE; ERASE;
      V5P104M5; ROUNDH; M6M0HN;
      +; =M6M0HN; (time limit);
      V89P104M5; SHL30; J64<Z; (jump if in failure path);
      JS3P29; JS35P0; JS3P29; JS35P0; (erase ident);
      JS5P29; JS35P0; ERASE; J64; (erase link address);
3;    CAB; J4;

P121V0;      (CRNP failure-number given in N1)
      V0=P $CRNP$00;
      V0; OR; JS21P6;
20;   JSP124; M6TOQ7; V29P104M5;;
      M0M7; M5; NEV; J21#Z; ZERO; NOT; =M0M7;
21;   SET5; =V29P104M5;
      JSP55; SETB10520; NEV; JS1P26;
[ --- fold
      J1;
      ERASE; JSP135;
1;    SHC-2; J2>=Z;
      (CRNP failure in OUT 1)
      SET5; J1P15;
[ --- end of photo

2;    E2M7; =C7; J3C7Z;
      MANUALQ7; ZERO; =E2M7;