[ photo 100_1603.JPG
12;   NOT; J103P120;
20;   (select level); ZERO; (try P first);
21;   DUP; JS1P56; J1P45; (no free level);
      V9P0M5; SHC3; SHL35; J31P45=Z; (OK); NOT; NEG; J21; (try next letter);
8;    ERASE; JSP38; V9P0M5; SHC3; SHL35; J4P45#Z; J2;
      (TINT Tx letter allowed giving fixed priority);


P53; (TINT U using Q);
      JS2; SET4; SETB60;
      =RM6; =C6;
1;    ZERO; M6; =RC7; JSP56; J3; (not present);
      V29P104M5; NOT; V25P104M5; AND; SHC-2; J3<Z; (jump if prog in but not OUT 1);
      V77P104M5; REV; J4=; (test for disc allocated);
      SHL32; SHL-33; JS1P161; SHL24; SETB4400; SHLD-24; M+I7;
4;    ERASE; V5P104M5; DUP; V9P104M5; +; JSP57; REV; JSP57;
      (this give NET instead of EL);          [ sic
      V23P0; DUP; V9P0M5; SHL38; SHL-33; FRB; REV; SHL-17; OR; SHL12;(BA);
      V41P104M5; DUP; PERM; SHLD-12; ERASE; REV;
      V37P104M5; SHL24; SHL-24; SHLD-12; (prog iden);
      SET4; =+M7;
3;    M5; SETB20; OR; SHL18; OR; (priority);
      SETB20700; M6; OR; SHL30; OR; M+I7; (letter);
      M7; JSP6; M+I6; DC6; J1C6NZ; EXIT2;
2;    JSP38; SET1; C7; EXIT3;

P54V0; (TINT V fro priotity swapping);    [sic
      (V0=PQRS weights);

      JS9P31; SETB37; NEV; J1#Z; ZERO; (V. sets all weights to 1);
2;    =V0; EXIT2;
1;    JSP38; JSP65;
3;    V13P104M5; JS9P64; SHL12; OR; SHC-12; NC7; SHCC7; J2;
P55;      (given priority, put corresponding prog.
      letter in N1);
      V13P104M5; SHL-16; SETB60; OR; EXIT1;

P56;      (given prog. letter in C7, put corresponding
      priority in M5);
      C7; SETB60; -; DUP; J1P45<Z;
1;
      DUP; SHL-2; J1P45#Z; SET4; =RC5;
      M-I5;
$2;   V14P104M5Q; SHL-46; J31P45=; J2C5NZS; J1P45;

P57V1;      (given time in seconds to 23 I.P., put time
      in characters, /---M--S, in N1)
      V0=B0612121201061201;
      V1=B1720202055202063;
      SHA-24; V0; REV; FRB; V1;
      OR; EXIT1;

P58V7;      (loof for tape with given identifier,
      if not found, type wanted query);
      V0=B0207674156644544;
      V1=B0042720000062307;
      V4= B062407777777734;
      JS20;
2;    (required tape not present)
      M5; J3<Z;
      (wanted by program)
[ ---------- fold
      JSP30;
      DUPD; V4; SETB77; OR; PERM;
      JSP55; JS14; V0; SET5; JSP6;
21;   REV;
5;    =E20M4; SET1; ZERO; NOT; STR; NEV;  [ end of photo
      CAB; JS2P10; JP58;