[ photo 100_1613.JPG
P119;      (given first word of program name, checks it
      for 0702--02 and extracts third character)
      ZERO; SHLD+16; SHC-6; SHLD-42; REV;
      SETB070202; NEV; J1P45#Z; EXIT3;

P120V19;       (Pprog input and general
      program input procedures)
      V0=-1; (A input priority no.)
      (V1=A program tape number
      V2=A PIU
      V3=date)
      V4=B20202020200734;
      (V5=A unit preallocation
      V6=A store preassignment)
      V7=P {cn}PROG$T;
      V8=B4160450062546100;
      V9=B3560516500000000;
      V10=B0202063607070000;
      V12=B63645762450041;
      V13=B6641515441425445;
      V16=B0741006062574734;
      (V17= answer to APROG);
      V18=P {nc}D{cssss};
      V19=P -----JAC;

      V0P104; SHL-24; SET4; =C4;
      V0; STR; DUP; PERM; NOT; OR; J3P45#Z; =V0; (only try if V0=1..0);
2;    (examine priorities 3-0 in order)
      J1P45C4Z;
      DC4; SHC-6; DUP; SHL+4; J2>=Z;
      DUP; SHL+3; J1P45<Z;
      DUP; SHL+2; J2<Z;
      ERASE; C4;
      (N1=lowest unoccupied A priority. None
      lower occupied by A programs)
      =M5; JSP30; JS4P10;
      (now in priority subprogram)
      (check store availability)
      JSP117; EXIT1;
      =Q7; M7; NOT; NEG; V6;
      -; DUP; I7; SIGN; J1P45<Z;
      V6; DUP; =V1P104M5;
      SHLD-5; NEG; NOT; SHL+14; OR;
      (check peripheral unit availability)
      SETB654; =M7; ZERO; V5; DUP; J3=Z;
6;    M7; SETB11000; +; SETB67654;
      AND; =M7; SHC-1; STR; J6=Z;
      M7; JS1P26; J3P45>=Z;
      ERASE; REV; SET1; SHLC6; OR;
      REV; DUP; J6#Z;
      ERASE; DUP; PERM; JSP55; =RC6; SHL-1;
9;    M+I6; SHC-1; STR; J9=Z;
      SET-5; SHL+16; C6; OR; V0P26M6;
      +; DUP; =V0P26M6; SHL+12;
      JS21P6; DUP; J9#Z; PERM;
4;    SET4; JSP118; =V21P104M5;
102;  ERASE;
100;  V24P0M5; JS10P6; ZERO; SETAV16; DUP; NOT; NEG;
[ ---- fold
      JSP8; (ask A prog); SETAV17; =Q6;
      JSP31; J100; C7; SETB56; J101=;
      SETB60; NEV; J104#Z; JSP48; J100; J20P121;
104;  CI0TOQ6;
      JSP32; J102; (prog no in N1); DUP; SHL-5; J102#Z;