[ photo 100_1618.JPG
P131;      (leaves 3 times M6 in N1)
      M6; DUP; SHL+1; +; EXIT1;

P132;      (check length of given mag tape identifier)
      SHL-42; SETB35; NEV; J4P45#Z; EXIT2;

P133;      (housekeeping for OUT involving
      peripheral transfer. Checks given parameters,
      copies to V45P104M5 and, with BA added, to Q7)
      DUP; =V45P104M5; =Q7;
      I7; DUP; M7; CAB; SIGN; OR;
      V9P0M5; SHL+24; SHL-38; M7; SHL-5;
      SIGN; OR; J4P45<Z; (fail)
      JSP128; EXIT2;

P134;      (hold up subprogram during program input.
      examine V29P104M5 for TINT A termination)
      V29P104M5; SHL+3; NOT; NEG; SHC-3;
      =V29P104M5; JS2P10; V29P104M5; DUP;
      SHL+3; SHL-3; =V29P104M5; SHL+1; J4P45<Z;
      EXIT2;

P135;      (dispose of program tape given in M6)
      SETB21000; J10P100;


P136;             (store new BA/NOL, check lock outs cleared from
                  old area, clear PHU , no LOon);
      =V9P0M5; DUP; SETB30000; AND;
      SETB140000; OR; =K1; REV;
      JS86P105; CLOQ7; J1P45;
P137;      (form N1 NEV N2, clear characters
      corresponding to - in N1)
      DUP; SET8; =C6;
1;    ZERO; SHLD+6; SETB36; MAX;
      SIGN; SHL-42; OR; DC6; J1C6NZ;
      PERM; NEV; AND; EXIT1;

P138;      (change bit in V17P104M5)
      SET1; SHLC6; V17P104M5; NEV; =V17P104M5;; EXIT1;

P139;      (given area in i7, m7, clears C7, leaves
      subprogram via exit1- no extra links
      saved, resume when area not locked
      out and OUT 8 subprogram dead)
      C0TOQ7; SET1; JS3P10;
1;    E1M4; JP139#Z;
      EXIT1;




P154;     DUMMY; (this is V-1P155);
P155V13;     (process OUT 8 queues, D.H.24/11/67 adapted for Oxford)

      V0=B 4006402401; (selection characters);
      V1=p $$$$HRS{c};
      V2=B 0377777777600300;
[ ---- fold
      V3=P +KOUTPUT;
      (V4=number of streams to go);
      V5=B 7477777777777777;
      V6=B 636462212; (STR 10,SHL-3);
      (V7-11 is director buffer);