[ photo 100_1602.JPG
      ERASE; DUP; SET4; =C6; SETB61; =M0M6QN;
8;    ZERO; SHLD16; SETB1777; JS11; J8C6NZ;
      SHLD3; SETB4220; OR; =M0M6QN; ZERO;
      SHLD24; V23P0; REV; JS2;161; =M0M6QN;
      SHC21; V23P0; REV; JS2P161; SHL6; SET2; OR; JS10; J6C5NZ;
      SETB177702; JS10; EXIT1;
10;   =M0M6QN;
      M6TOQ7; POAQ7; SET-3; Q5; =E20M4; JSP10; PARQ7; ZERO; =TR;
      E20M4; =Q5; SETAV0; =RM6; EXIT1;
11;   REV; JS1P161; SHL18; OR; SHC-6; =M0M6QN; EXIT1;

P48;       (TINT P-alter a unit prealloaction)
      ZERO; (type 2 device no longer automatically preallocated);
1;    JSP32; J2;
      DUP; J3P45=Z;
      DUP; SETB177710; AND; J3P45#Z;
      ZERO; SHLD+44; SHAD+3; -; NOT;
      =C5; SET1; SHLC5; OR; J1;
2;    JS4P27; ERASE; =V5P120; EXIT2;


P49V0;       (TINT Q - store available);
      V0=B67576244630041;
      V13P120; V0; SHLD+6; JSP117; ZERO; DUMMY; DUMMY;
      SHL-32; JS1P161; SHL18; SETB207; SHLD-12; ERASE;
      JS30P6; EXIT2;

P50;      (TINT r - resume program);
      JSP38; SET4; JS94P105; EXIT2;

P51;      (TINT S - suspend program);
      JSP38; SET4; JS93P105; EXIT2;

P52V4;      (TINT T - input a program)
      V0=-1; (B input priority no.)
      (V1=b program tape number
      V2 = B program input marker);
      V4=B565742605165/35; (NOBPIU)
      JS20; J4P45; (select highest level);
2;    V0; J4P45>=Z;
      JSP31; EXIT1;
      C7; SETB54; J10=; SETB70; J8=;    (test for L and X);
      SETB60; NEV; =V2; ZERO; NOT; J11;
10;   ERASE; JSP32; J1P45;
      DUP; SHL-5; J1P45#Z; NOT; =V2; (length of Q is now 32);
      C7; SETB60; NEV;
11;   JS11P32; ERASE; ZERO; DUMMY; (no size specified set zero);
      VR; MAX; ERASE; =V1P104M5; J1P45NV;
      JSP117; J1P45; REV; J13#Z;
      SETB2654; JSP26; J1P45; JSP55;
      V0P26M6; OR; =V0P26M6; JSP27;
13;   SHL+16; SHL-37; SET5; JSP118;
      JSP30; ZERO; NOT;
7;    =V3;
3;    SET-2; ZERO; ZERO; JSP134;
      (now in priority subprogram); J5;
      ZERO; =V21P104M5; V2; DUP; J12<Z; ERASE;
      SETB2654; JS1P26; J6;
      (PTR obtained); ERASE;
      V0P26M6; JSP55; OR; V2; J4#Z;
      SET5; SHL+18; -;
[ ---------- fold
4;    =V0P26M6; J11P120;
5;    ZERO; =V2; ZERO; JP121;
6;    V3; J3=Z;
      V4; JSP55; OR; JS21P6; ZERO; J7;