[ photo 100_1588.JPG -- checked by BP
ST   ;  TL ;     [ Oxford University time sharing director 12/2/69
MTPR;
V28;
YD1023;
YZ8191;
RESTART; JP200; JP200;
PROGRAM;
      V5=1.048576723;
      V8=Q4/-453/0; (increment .027 msec);
      V10=1/35;
      V11=2/35;
      V12=3/35;
      V14=-1;
      V15=B0207464151546300;
      V23=B1010101010101010;
      V24=B0204777777072000;
      V25=B0204047777072100;
      V26=B0204040477072200;
      V27=B0204040404072300;
      (V28=director/program marker)

      V28; J35=Z;
      ZERO; =V28; K4; Q5; =V2;
      V7; =M5; SET3; J11NTR;
      SHC-2;
11;   J12NV;
      SHC-1;
12;      =V1P104M5; DUP; SETB101; SHL+19;
      REV; SHC+1; SHL+21; J2#Z;
      OR; (no RFIs so insert D22,28); ZERO;
2;    NOT; AND; (remove D22,28)
      DUP; SHC+1; SHL+15; J1#Z;
      (jump if any RFI other then PR or LOV)
      V5; *; DUP; =V6; V5P104M5; +;
      DUP; =V5P104M5; M5; REV;
      V9M5; SHL+5; =M5; M5M0HN; SIGN;
      J4>Z; (jump if time limit exceeded)
      SET-10570; (basic SP 0.630 msec)
32;   V8;=Q5; =M5; V0P104; K5; OR; SHL-1;
$5;   SHL+6; DUP; J6*GEZ; (jump if hold-up
       digit not present); DC5; M+I5; J5C5NZS;
      (no program can be entered); =V14; (D0=1)
      ERASE; JSP1;JS10P60; (test whether a
      subprogram can be resumed); J23;
6;    =LINK; (plant dummy LINK)
      SET4; C5; -; M5; PERM; (N1= new priority,
       N2= old priority, N3= path correction)
30;   REV; =M5; K7; SHC+7; NOT; NEG; SHC-7;
      =V13P104M5; (preserve adjusted NS counters)
      DUP; =V7; =M5; (new prioity number)
      V5P104M5; +; V6; -; =V5P104M5; (run time)
      VR; V1P104M5; SHA+1; =TR;
      V17P104M5; =K2; ERASE; (CPDAR);
[ ---- fold
      V9M5; V13P104M5; V2; =Q5; DUP; =K3;
      DUMMY; DUMMY; DUMMY; DUMMY; DUMMY;

[ photo 100_1589.JPG
      DUMMY; (allow new set to settle down)
      =V28; LINK; ERASE; (remove dummy link)
      =V28; (store twice in case of reset)
      $=K1; ERASE; EXITD; (return to program)

35;   LINK; JS3P161; SHL12; SETB207; OR; SHC-12; JS10P6; J35NEJ;
36;   K4; ERASE; JSP59; J36;
4;    =M5; JSP1; ZERO; DUP; NOT; J9;

1;    DUP; SHL+25; REV;
      =Q5; J10<Z; (jump if NOUV); JSP1;
      J17;
10;   (NOUV dump); Q6; =V3; Q7; =V4; Q4; =V1; (dump Q);
      LINK; =V34P1; SET16; =RC6; Q6TOQ7;
      K7; SHL2; ZERO; SHLD5; REV; (nest count to N2)
      DUP; =V4P2; (SJNS count at top of V4P2);
      J34<Z; (jump on SJNS fail);
      V34P1; =V16P1M6Q; (LINK to V16P1);
34;   SHA-4; SHL-1; J51#Z; (if nest count >= 24 treat as nest U flow count =0);
$50;  J51EN;
      =V0P1M7Q; J50C7NZS; (dump nest);
      ERASE; ERASE; (18 erases);
51;   M7; =V32P1; (store nest count); (must be 0-16);
15;   ERASE; J15NEN;
      V4P2; SHA-43; NOT; NEG; J52=Z; (SJNS underflow);
$13;  J52EJ;
      LINK; =V16P1M6Q; J13C6NZS;
52;   M6; =V33P1; (store JNS count);
16;   LINK; ERASE; J16NEJ; (clear JNS properly);
17;   Q5; V7; =M5; DUP; SHL-32; SHL+31; V5;
      *; SHA+1; V5P104M5; +; DUP;
      =V5P104M5; V9M5; SHL+5; =M6;
      M6M0HN; SIGN; SHA-1; NEG;
9;    =V13; ZERO; NOT; =V14; JSP30;
      SET7; =RC6;
$19;  ZERO; =V16M6Q; $J19C6NZS;
      JS2P60; ERASE;
      V17; SHA+2; V18; SHA+1; +;
      V13; +; NEG; V22; SETB76277;
      AND; OR; V21; SETB76377; AND;
      OR; DUP; ZERO; =V0P2; J20=Z;
      ZERO; =V13; JSP2; (program fails); ZERO;
20;   ERASE; V20; J29=Z; JSP3; (OUT);
21;   V4P23; J29#Z; JSP155; (MT OUT 8);
29;   V16; J22=Z; JSP4; (Flex);
22;   V19; J23=Z; JSP5; (EDT);
      V0P69; J23=Z; JSP73;
23;   JSP60; J21#Z;
      V32P1; DUP; =C6; =M6; I6=-1;
      SET-14865; (basic lp 0.886 msac); J25;
$24;  V-1P1M6Q; REV; SET302; (.018 msec); -;
25;   J24C6NZS;
      V33P1;DUP; =C6; =M6; J27;
$26;  V15P1M6Q; =LINK; SET352; (.021 msec); -;
27;   J26C6NZS;
      V1; =Q4; V3; =Q6; V4; =Q7;
      V7; V14; J28<Z;
      V14; JS30; (to plant dummy
      LINK and enter specified priority)
28;   REV; SET-1761; (path difference 0.105 msec)
      +; J32; (to choose return priority)
      (end of inner loop of long path)


[ photo 100_1590.JPG
P1V34;      (dump Q4, Q6, Q7 and both nests);   [ missing from photo
      Q6; =V3P0; Q7; =V4P0; Q4;
      =V1P0; ZERO; =RC6; J2EN;
1;    =V0M6Q; J1NEN;
2;    ERASE; J2NEN;
      M6; =V32; CM0TOQ6; LINK;
      J4EJ;
3;    LINK; =V16M6Q; J3NEJ;
4;    M6; =V33; =LINK; EXIT1;

P2V4;    (program fails - entered from subprog
      failure indicator in N1 react abolished);
      (final fail OUT 1 to V2/3 else JE4);

      V1=P $$$FAILS;
      V2/3=P {nc}D{c}FAXFAILJOB--;
      V4=0; (V4 is fail SJNS flag);

      DUP;
      ZERO; =V20P0; DUP; SHL-9; J6#Z;
      ZERO; SHLD45; JS3P161;
      SHL36; SHL-12; REV; V23P0;
      SHL-2; REV; SHL-45; FRB; DUP;
      SHL+6; -; -; SETB131355; SHL+2;
      (nest now contains LNT pattern and 00 77 pattern); AND;
6;    V1; JSP55; SHC-6; OR;
      JS31P6;
      V0; J10#Z; (no JE4 allowed);
      V89P104M5;
3;    DUP; NEG; NOT; =V89P104M5; (count fails); (entry from TINT A+);
      SHL30; J1#Z; (shift off JAC);
10;   JS11; (F/CPDAR/LINK to N1);
      V2; V3; JS13; J7P16; (OUT 1);
11;   SHL3;M5; OR; SHL16; V17P104M5; OR; SHL16;
      V34P1; V4; J15<Z; ERASE; JS5P29; JS35P0;
15;   OR; (N1 is LNT/CPDAR/LINK);
      ZERO; =V4;
      JS2P29; J12; EXIT1; (put in nest to 12 if nest already full);
12;   SET15; JS100P29; JS35P0; EXIT1; (pretend nest nearly full);
1;    (even restart); JS11;
      SET4; DUP; JS6P29; JS2; (insert 4 in SJNS);
      SHL+24; V5P104M5; +; V9P0M5;
      SHL+5; =M6; =M6M0HN; EXIT1;
2;    SET15; JS101P29; JS35P0; EXIT1; (insert in SJNS even if full);
13;   SETAP104; SETAV0P104; DUP; =RM6; -; =C6;
      V9P0M5; DUP; SHL24; SHL-40; J1P45=Z; (check enough room for copy);
      SHL5; =RM7; (address of E0);
$14;  M0M6Q; =E8M7Q; $J14C5NZS; (copy loop);
      EXIT1;

P3V0; (OUT subroutine);
      V0=B 7776037740000000;       (valid 0-10, 16-24);
      V19P0; =Q6; (used in OUT 9);
      ZERO; =V20P0; (clear OUT marker);
      V16P1; SETB57777; -; DUP; J1>=Z;
      SETB120000; SHC+1; -;
1;    =V16P1; (LINK has 3 syllables added);
      V32P1; J4=Z; V0P1; =C7; V0; JS10;J3;
6;    =LINK; EXITAR2;
3;   (illegal OUT); ERASE; SETB10; JP2;
4;    ZERO; J6;
10;   JS20P45;
[ ======================================== end of Bill P's checkl
      ZERO; SHLDC7; BITS; REV; J1P45>=Z;
11;
      SHC-1; STR; SETB60000; AND; +; EXIT2;
[ ------- missed a bit from the photo
$2;   JP15; JP16; JP17; JP18; JP19;
      JP20; JP21; JP21; JP23; JP24; JP61;
      JP63; J64P24;  JP196; JP194; JP192;  (16-20);
      JP191; JP193;      (21,22);
      JP187; J4P187; (OUT23,24 for POL input);


[ photo 100_1591.JPG
P4V5;            (instant TINT);
      V0=B0207414741515677;
      V1=B0207645156647734;
      (V2 and V3 contain answer to TINT query);
      V4=B637527762/26; (allow ABEFGHIJLMNPQRSTUVZ);
      (D0 - TINT A, etc - currently permitted AB EFGHIJ LM PQRSTUV  Z);
      (V5=TINT params);

      V1P11; J4P45#Z;
      ZERO; =V16P0; ZERO; SETAV1;
2;    V0P11; =Q4; SHL16; SETAV3; OR; ZERO; NOT; CONT; =V5;
      JS20P45; JS51P10; SETAV2;
      =Q6; JSP31; J3;

      SET-33; =+C7;
      V4; JS10P3; J3; JS1;
      (TINT subroutine fails); J3;
      (EXIT 2 from TINT subroutine);
      V0P11; =Q4; EXIT1;
3;    ZERO; SETAV0; J2;
1;    =LINK; EXITAR6;

$6;   JP33; JP34;
      JP37; EXIT2; JP39; JP40; JP41;
      JP42; JP44;
      JP46;
      JP48; JP49;
      JP50; JP51; JP52; JP53; JP54;
      JP69; JP72;

P5;      (EDT subroutine);
      ZERO; =V19P0; (clear EDT indicator)
      JSP100; (deal with magnetic tapes)
      JSP105; (consolidate store store, etc.)
      JSP59; (deal with flex queue)
      JSP198; (deal with disc Q);
      JSP155; (deal with OUT 8 queue)
      JSP120; (initiate A-program input if opportune)
      JSP11; (deal with subprograms)
      V0P195; =V0P101; ZERO; =V0P195; (new disc -> new tapes);
      V4P23; J10#Z; JSP155;
10;   K5; M0TOQ5;
2;    ZERO; SHLD+4; =C5; DUP; SHL+1; J3>=Z;
      DUP; =TR; J9NTR;
      BUSYQ5; J3TR; J1;
9;    V9P0M5; JS87P105; J3;
1;    (clear PHU);
      V13P104M5; M5; SHL+12; SETB140000; OR;
      =K1; ERASE; CLOQ0; SETB140000; =K1; ERASE;
3;    SHL+2; M5; SET3; J4=;
      NOT; NEG; =M5; J2;
4;    =C6; ERASE; V7P0;
5;    NOT; NEG; SET3; AND; DUP;
      =M5; V13P104M5; SHC-1; J6<Z;
      DC6; J5C6NZ;
      J1P45;
6;    DUP; SHA+1; DUP; SHA+1; +; =C6;
      V0P104; SHL+5; SHLC6; J8>=Z;
      ERASE; ZERO; NOT;
8;    =V14P0; EXIT1;
[ photo 100_1592.JPG

P6V64;    (put N2-Nx in flex queue, x-1 given
      in N1.  If flex queue overflows enter P59
      to make room);
      V1=-1;
      V56=-1; (for OUT 8);
      SETAP6; SETAV1P6; -; =RC7;
1;    V1M7Q; NOT; J1#Z;
3;    J2C7Z;
      (queue not full);
      REV; =V0M7; ZERO; NOT; =V1M7Q;
      NEG; NOT; DUP; J3#Z;
      J22P45;
2;    (queue full); JSP59; JSP60; ERASE;
      JP6;
41;   V24P0M5;
40;   SET4; JP6;
31;   V24P0M5;
30;   SET3; JP6;
21;   V24P0M5;
20;   SET2; JP6;
10;   SET1; JP6;

P8;      (put query parameters in flex queue
      and enter 2P10);
      REV; SHL+16; OR; ZERO; NOT;
      CONT; C4; SHL+32; OR; DUP;
      JS10P6; ZERO; REV; J2P10;

P10;      (normal entry test BUSYQ7, if busy or if
      entry at 2, put SHUL, SHUP, and SHUL$
      into SHU list. Exit to level x+1 lower,
      x fiven in N1 (or N3 for entry 2));
      ZERO; =TR; J1C7Z;
      BUSYQ7;
1;    TLOQ7; J1P45NTR;
3;    ZERO; Q7;
2;    =E10M4; LINK; OR; =M0M4;
      C4; SHL-1; J5<=Z;
      SET1; JS93P105;
5;    DUP; STR; NEV; =C7;
      ZERO; J7C7Z;
$6;   SHL+16; LINK; OR; DC7; J6C7NZS;
7;    =E30M4; J4P45>=Z;
      EXIT2;
4;    ZERO; ZERO; ZERO; J2;
50;   ZERO;
51;   ZERO; ZERO; ZERO; NOT; CONT; J2;

P11V40;      (Deal with hold-ups in SHU list in
      due order);
      V0=Q0/1/AV11;
      V0; =Q4;
3;    M0M4; DUP; J1#Z; (jump f this SHU
      is in use);
11;   ERASE;
7;    M+I4; C4; DUP; SET9; SIGN;
      J1P45>=Z;
      NOT; NEG; =C4; J3;
1;    E10M4; REV; J4<Z;
      DUP; =TR; J11TR;
      =Q7; J6C7Z; BUSYQ7;
6;    TLOQ7; J13TR;
[ ----- missed bit
8;    JS2; (to enter subprogram)
      J7; J7; (after leaving subprogram)
2;    C4; DUP; SHL-1; NEG; NOT;
[ photo 100_1593.JPG
      =M5; SHC-1; J14<=Z;
      SET1; JS94P105;
14;   E30M4;
5;    DUP; J12=Z;
      DUP; =LINK; SHL-16; J5;
12;   M0M4; =LINK; =M0M4; EXIT1;
4;    DUP; SHL-42; SETB40; NEV; J10=Z;
      V0P101; J11=Z;
      E20M4; REV; J8;
10;   SHL+9;SETB654; OR; JS1P26; J7;
      ERASE; J8;
13;   J7C7Z; C7; V0P21; NEV; J7#Z;
      JS20P45; J7;

P13;      (set program HU bit in V0P104);
      SET1; M5; V14P0; NEV; J1#Z;
      ZERO; NOT; =V14P0;
1;    M5; NOT; SHL+1; DUP; SHL+1;
      +; =C5; SHCC5; V0P104; REV; DUP; J2<Z; OR; J3;
2;    AND;
3;    =V0P104; EXIT1;

P14;      (clear program HU bit from V0P104);
      SET-2; J1P13;

P15V1;      (OUT 0);
      V0=B0700455644630020;
      V1=B0707624156174554;
      ZERO;
1;    SET5;
2;    ZERO; NOT; CONT; DUP; =V29P104M5;
      SHC-1; J3>=Z;
      ZERO; =V21P104M5;
3;    =V1P104M5;; JS4P29; DUMMY; DUMMY; DUMMY;
      JS7P29; DUMMY; DUMMY; DUMMY;
      SET1; =V17P104M5;;
      SET2; JS93P105; V0P26; =Q6;
4;    M0M6Q; ERASE; J5C6Z;
      JSP125; J4;
      CTQ6; V0P26M6; SHL+17; J6>=Z;
      SETB52000; JS10P100; J4;
6;    V21P104M5; JSP27; J4;
5;    E1M4; J10#Z; (jump of subprog already set up);
      SETAP23; =E1M4; ZERO; =E11M4; ZERO; =E31M4;
10;   JS4P10;
      V29P104M5; J10<Z;
11;   ZERO; JS3P54; (clear R/EL weights);
      DUMMY; DUMMY; DUMMY;
      ZERO; =V81P104M5;
      ZERO; =V85P104M5; (clear hangover);
      V0P0; V53P104M5; -; JSP57; (true lapse)
      DUP; =V53P104M5; (for jab acc);
      V9P104M5; V5P104M5; +; JSP57; (N.E.T.)
      DUP; =V57P104M5; (for jab acc);
      V5P104M5; ZERO; =V5P104M5; JSP57;
      ZERO; =V9P104M5;
      DUP; =V61P104M5; (for job acc);
      V1; V24P0M5; SETB33; OR;
      V0; V1P104M5;; OR;
      V41P104M5;; V37P104M5; SHLD+24;
[ - missed bit
      V24P0M5;
      SET9; JSP6;
      SET4; JS159P23; ZERO; JS157P23;
      JS50P10; (suspend until JAC on tape);
      ZERO; =V57P104M5;
      V29P104M5; SHC-4; J10P121>=Z; V9P0M5; DUP;
      SHC+24; SHL+10; V45P104M5; J44P120; (allow 1 restart to OUT 2);

      P16; (OUT 1)          [ sic
      JS3P29;

[ photo 100_1594.JPG
      J35P0;
      V32P1; SHL-1; J2#Z;
      SETB50; JP2;
2;    V0P1; JSP119;
3;    SETB60; JP2;
      ERASE;
      V0P1; V1P1; (prog);
7;    (entry from fails); =V49P104M5; =V45P104M5;
      V9P0M5; JS95P105;
      SET3; V0P104; SHLC6; SHL+2; J4<Z;
      NEG; NOT;
4;    =V29P104M5; SET2; JS93P105;
      V9P0M5; JS86P105;
5;    JSP139;
      JSP124; V45P104M5; SHL-30; SETB70244; NEV; J6=Z;
      M0M6; J5>=Z; M5; =M0M6;
6;    V9P0M5; SHL24; SHL-38; NOT; NEG;
      SHL+5; =V1P104M5;; J22P120;

P17;      (OUT 2);
      JSP62; J2;
      V9P0M5; SHL+5; =RM6; M0M6Q; =V33P104M5;
      ERASE; =M6M0H;
      M6M0H; J2<=Z;
      M0M6N; JSP119;
      SETB200; J3;
      ERASE; V9P0M5; SHC+24; ZERO; SHLD+10;
      M0M6; SHL+24; DUP; J5#Z;
      ERASE; DUP; NOT;
      NEG; SHL+5; M0M6; OR;
      =M0M6; J6;
5;    NEG; NOT; SHL-29;
      VR; MAX; ERASE; J6V;
      ERASE; ERASE; SETB220; J3;
6;    =V45P104M5; SHC14; JS95P105;
      SET2; SET9; V0P104; SHLC6;
      SHL+2; J2P15<Z;
      NEG; NOT; J2P15;
2;    SETB210;
3;    SET6; =V0P2; JP2;

P18;      (OUT 3)
      V5P104M5; J1P24;

P19;      (OUT 4);
      JSP62; J6;
      JSP122; J5; J4#Z;
5;    ZERO; NOT; =V45P104M5;; J7P61; (to OUT 10 routine);
4;    ERASE;
6;    SETB70; JP2;

P20V1;      (OUT5)
      V0=B416741516463;
      V1=B64716045002020;

      JSP62; J2;
      SHL-6; J1#Z;
      SHC-4; STR; =Q7; SHC+4; DUP; J1=Z;
      DUP; ZERO; SHLD+44; SHAD+3; -; =C5;
      JSP25; J3;
[ --------- gap
      (B program); V21P104M5; SHCC5; NC5; DUP;
      Q7; CONT; SHCC5; =V21P104M5; J1<Z;
3;    JSP28; J4;
      (P unit found); ERASE;
5;    JSP138; V0P26M6; SHL12; JS21P6; C6; JS3P29; J35P0;
      J10P61;
4;    (no P units); JSP25; J1;
      (B program); DUP; SHL+9; SETB654; OR;
      JS1P26; J7;

[ photo 100_1595.JPG
      ERASE; ERASE;
6;    (U unit found); V0P26M6; SETB24; SHL+18;
      -; JSP55; OR; =V0P26M6; J5;
7;    (no U units); DUP; ZERO; SHLD+45; SHL+3;
      SHLD+3; V1; OR; V0; JSP55; SHC-6; OR;
      JS31P6;
      NOT; STR; NEV; DUP; PERM; OR;
      ZERO; PERM; JS2P10; J6;
1;    ERASE;
2;    SETB20; JP2;

P21V0;      (OUT 6);
      JSP62; J2;
      SHL-4; J1#Z;
      DUP; J1=Z;
      DUP; =C7; =M6;
      V17P104M5; SET1; SHLC7; AND; J2=Z;
      V0P26M6; SHL+17; J3>=Z;
      (mag tape); SETB32000; JS10P100; C7TOQ6;
7;    JSP138;
6;    JS3P29; J35P0;
      EXIT1;
3;    (not mag tape); IM0TOQ7;
      C7; =V0;
      ZERO; JSP10; ZERO; =V0;
      PARQ7; ZERO; =TR; C7; =M6; JSP25; J4;
      (B program); V0P26M6; SHL-24; SETB607;
      AND; ZERO; SHLD+45; SHL-4; SHLD+3;
      -; =C6; V21P104M5; SHCC6; NC6; STR;
      REV; SHCC6; =V21P104M5;;
5;    C7TOQ6; JSP27; J7;
4;    ZERO; NOT; J5;
1;    ERASE;
2;    SETB30; JP2;


P23V4;      (OUT 8 by D.Holdsworth);
      V0=0; V1=AV0;      (L queue);
      V2=0; V3=AV2;      (N queue);
      V4=-1; (MT OUT 8 O flag);

      J1;

99;   V29P104M5; J98>=Z;
      JS2P195; (deallocate disc);
82;   V57P104M5; DUP; J86=Z;
      STR; ERASE;
83;   SET45; FLOAT; FIX; ROUND; JS80; J82; (close streams);
86;   (no more streams open);
      SETB10; JS94P105; (clear hold up);
      V29P104M5; STR; ERASE; =V29P104M5; (clear term marker);
88;   ERASE;
98;   M-I4; DC4; M-I4; DC4; EXIT1; (return to main subprogram);

80;   (close stream - coded stream in N1);
      DUP; SET3; JS159; REV;
[ ------ fold
      JS157; =C7; V57P104M5; SETB177776; SHCC7; AND; DUP; STR; ERASE;
      ZERO; SIGN; NEG; AND; =V57P104M5; J50P10; (top bit of V57 preserver);

156;  (add to Q) ; C5;
157;  SHL4; C4; OR; SHC-16; OR;
      V57P104M5; STR; SHL1; =M6; ERASE;
      V2M6; V4; ZERO; MAX; SIGN; AND; =V4;
      DUP; V3M6; DUP; CAB; SHL-16;

[ photo 100_1596.JPG
      SHLD-16; ERASE; SHC16; DUP;
      =V3M6; =M6; ZERO; =M0M6; =M6; =M0M6; EXIT1;

158;  (check str no and put coded str in N1);
      C7; DUP; SETB177710; AND; SHL-3; NEG; NOT; J1P45#Z; (invalid);
      SHC-4; ZERO; SHAD+3; OR; EXIT2;

159;  SETAV65P104; M5; +; SHL16; OR; EXIT1;

15;   ERASE;
16;   SETB770; JP2; (invalid parameters in N1);
17;   ERASE; SETB710; JP2; (attempt to close unopened stream);
18;   SETB740; JP2; (invalid stream no);
19;   M0M7; V2P155; NEV; SHL-16; J21=Z; (check for gap page ch);
      M-I4; DC4; SETB720; JP2; (invalid last char);

1;    ZERO;        (OUT 8 flag);
20;   =V61P104M5; JSP62; J16; =Q7;
      M7; I7; J27#; C7; NEV; J15#Z; ERASE; (clase stream);
      JS158; J16; =Q7;
      JS1P139; M7; DUP; NOT; =C7; (wait for 2nd sub prog);
      V57P104M5; SHCC7; J17>=Z; M+I4;I4; =+C4; (check str open);
      JS3P29; JS35P0; JS80; J99;

27;   ERASE; JSP133; J16; (check parameters);
29;   C0TOQ7; JS1P139; JSP102; (wait for last transfer or P105);
      I7; =RM6; M0M6; =C7; J13C7Z; (jump if stream 0);
      V61P104M5; J18#Z; (disallow non zero streams on OUT 16);
      JS158; J18; DUP; =C5; I4; DUP; =+C4; M+I4; (switch to 2nd subprog);
      SHLC5; V57P104M5; DUPD; OR; =V57P104M5; AND; J28#Z; (stream not open);
      ZERO; JS159; (open stream); JS156;

28;   SHC-4; J21>=Z; (jump if punch str);
      M0M7; SHL42; ABS; SHL-43; NEG; NOT; J19#Z; (check last char);
21;   ZERO; NOT;
22;   C0TOQ7; Q7; REV; CONT;JS156; JS3P29; JS35P0;
      PMHQ7; ZERO; ZERO; Q7; ZERO; NOT; CONT; JS2P10; J99; (lock out transfer area);

14;   ZERO; JS3P10; I7; =RM6;
13;   V56P6; NOT; J14#Z; (wait if transfer will not go in Q);
      M7; I7; -; SET5; MAX; ERASE; =C6; (truncate at 5 words);
3;    J4C6Z; SET-42; =C5; M0M6QN;
5;    SHLC5; SETB77; AND;
      SET2; J6=; SET4; J6=; (check for CR and TAB);
      SETB75; J7#; (EM); ERASE;
4;    V45P104M5; J8<Z; (if query); I6=-1; M6; I7; -; =C6; C6TOQ5;
2;    J12C6Z; M0M6Q; SET8; =C7;
11;   JSP127; J10; J2;
10;   SHC6; DC7; J11C7NZ; ERASE; DC5; J2;

12;   V24P0M5; SETB17; V61P104M5; +; OR;
      IM7TOQ6;
      C5; NOT; NEG; JSP6; (message to Q);
      IM6TOQ7;
      V61P104M5;; J24#Z; (OUT 16);
      JS3P29; JS35P0; EXIT1;

24;   C0TOQ5; M+I4; I4; =+C4; ZERO; J22; (OUT 16 to tape 2nd subprog);
[ ----------- fold

6;    M0M6; SETB77; NC5; SHLC5; NC5; OR; =M0M6; (replace by B77);
[ photo 100_1597.JPG
7;    SETB34; NEV; J9=Z; J3C5Z;
      SET6; =+C5; M0M6; J5;
8;    SETB730; JP2; (invalid char ;);
9;    V45P104M5; J8>=Z; J8C5NZ; J8C6Z;
      I7; =M6; V24P0M5; SETB17; OR; =M0M6; JS3P29; JS35P0;
      M+I4; I4; =+C4; SETB10; JS93P105; (hold up);
      ZERO; I7; M7; JSP8; SETB10; JS94P105; J99;


P24;      (OUT 9);
      V0P0;

1;    =V0P1; Q6; J23P45;
64;   (OUT 17, originally P64);
      V5P104M5; DUP; V9P104M5; +; JS1;
      JS2P29; J65; EXIT1;
65;   SETB40; JP2; (fail nest full when OUT17 obeyed);

P25;   (decide whether prog. is A or B, given pr. in M5);
      M5; SHA+1; NOT; NEG; DUP; SHL+1;
      +; =C6; V0P104; SHCC6; J4P45<Z; EXIT2;

P26V15;      (look for unit of given type, status
      and prog. letter);
      V0=Q16/-1/16;
      V1=-1; V2=-1; V3=-1; V4=-1; V5=-1;
      V6=-1; V7=-1; V8=-1; V9=-1; V10=-1;
      V11=-1; V12=-1; V13=-1; V14=-1; V15=-1;

1;    V0; =Q6;
2;    SHC-3; DUP; J3<Z; SET6; SHLD+6;
      SHL-3; OR; J4;
3;    SHL+6;
4;    V-1M6Q; J3P45C6Z;
      ZERO; SHLD+21; SHL-3; SHLD+21; SHL-12;
      SHLD-12; ERASE; SHL-30; J4#;
      EXIT2;

P27;      (given allocated unit number in C6, M6, change
      status to U if N1=0, otherwise to P);
      J1=Z;
3;    V0P26M6; SHC-24; SHL+6; SETB60; OR;
      SHC18;
6;    DUP; SHL12; JS21P6; J9;
1;    MANUALQ6; JS4;
5;    SETB65;
8;    V0P26M6; SHL-6; SHC-18; SHL6; OR; SHC18;
      DUP; SHC-20; J9<Z; (if W);
7;    DUP; JS10P6;
9;    =V0P26M6; EXIT1;
4;    (set A prog in try);
      V0P120; J4P45>=Z; (not if prog in going on);
      ZERO; DUP; NOT; CONT; =V0P120; EXIT1;

P28;      (look for unit of given type pre-allocated
      to given program.  If found, change status to A);
      DUP; SHL+9; SETB600; OR; V13P104M5; SHL-46;
      OR; JS1P26; EXIT1; V0P26M6; SETB17; SHL+18;
      -; (P becomes A); =V0P26M6; J31P45;

P29;      (fetch, store, erase or clear nest, or
      fetch, store or clear SJNS or given program);
1;    SET1; J10;
[ photo 100_1598.JPG
2;    =E5; SET2; J10;
3;    SET3; J10;
4;    SET4; J10;
5;    SET5; J10;
6;    =E5; SET6; J10;
7;    SET7;
10;   M5; V7P0; J11#; (jump if outnest
      needed); ERASE;
      SET1; J12#; ERASE; V0P1; V32P1;
      DUP; J3P45=Z;
13;   NEG; NOT; DUP; J15=Z; DUP;
      =RC6;
$16;  V1P1M6; =V0P1M6Q; J16C6NZS;
15;   =V32P1; EXIT2;
12;   SET2; J17#; ERASE; V32P1; DUP;
      SHL-4; J1P45#Z;
100;  DUP; DUP; NOT; (entry used by P2);
      NEG; =V32P1; =C6; =M6; J19C6Z;
      I6=-1;
$20;  V-1P1M6; =V0P1M6Q; J20C6NZS;
19;   E5; =V0P1; EXIT2;
17;   SET3; J21#; ERASE; V32P1; DUP;
      J1P45=Z; J13;
21;   SET4; J22#; ERASE; ZERO; =V32P1;
      EXIT2;
22;   SET5; J23#; ERASE; V16P1; V33P1;
      DUP; J3P45=Z; NEG; NOT; DUP;
      J24=Z; DUP; SET15; MAX; ERASE;
      VR; =RC6;
$25;  V17P1M6; =V16P1M6Q; J25C6NZS;
24;   =V33P1; EXIT2;
23;   SET6; NEV; J39#Z; V33P1; DUP;
      SHL-4; J1P45#Z;
101;  DUP; (entry from P2 to forcibly insert in SJNS);
      DUP; NOT; NEG; =V33P1; =C6;
      =M6; J26C6Z; I6=-1;
$27;  V15P1M6; =V16P1M6Q; J27C6NZS;
26;   E5; =V16P1; EXIT2;
39;   ZERO; =V33P1; EXIT2;
11;   ERASE; =E4; ZERO; DUP; =LINK;
      SET1; SHL+41; K7; +; =E3;
      ZERO; V13P104M5; DUP; =E6; =K3;
      DUMMY; DUMMY; DUMMY; DUMMY; DUMMY;
      DUMMY; ERASE; ERASE; ERASE; LINK;
      ERASE; E4;
      SET1; J28#; ERASE; E6; SHL+2;
      SHL-45; J29=Z;
32;   =E5; ZERO; NOT; NEG; J30;
29;   ZERO; NOT; J30;
28;   SET2; J31#; ERASE; E6; SHL+2;
      SHL-43; SET18; -; J29>Z; E5;
34;   ZERO; J30;
31;   SET3; J33#; ERASE; E6; SHL+2;
      SHL-45; J29=Z; ERASE; J34;
33;   SET4; J35#; ERASE;
36;   ERASE; J36NEN; J34;
35;   SET5; J37#; ERASE; E6; SHL+7;
      SHL-44; J29=Z; LINK; J32;
37;   SET6; NEV; J40#Z; E6; SHL+7; SHL-43; SET16; -;
      J29>Z; E5; =LINK; ZERO;
30;   SET1; SHL+41; ZERO; =LINK; K7;
      +; E3; =K3; DUMMY; DUMMY;
      DUMMY; DUMMY; DUMMY; DUMMY; ERASE;
      LINK; ERASE; =V13P104M5; DUP; J1P45<Z;
      J38=Z; E5;
38;   EXIT2;
[ ------- fold
40;   LINK; ERASE; J40NEJ; J34;

P30;      (set Q4 = 2p+2/1/AV1P11+2p+2, for
      entry to P10);
[ photo 100_1599.JPG
      M5; NOT; NEG; SHL+1; DUP;
      =RC4; SETAV1P11; +; =M4; EXIT1;

P31;      (fetch char result in C7); (amended Jan 68);
8;    JS9; (fetch char);
      =C7; SET6;
      =+C6; ZERO; NOT; SHLC6; J2#Z;
      C0TOQ6; SET1; =+M6;
2;    V1P122; ZERO; SHLDC7; SHLD-15; ERASE;
      J3>=Z; I6; J4#Z; EXIT2; (I6 is shift indicator);
3;    C7; SET7; -; DUP; NEG; SHL-1; J1P45#Z; (jump if not shift char);
      =I6; J8; (store shift  case shift is zero  CN is 1);
9;    M0M6; SHLC6; SHL-42;
4;    EXIT1;

P32;      (fetch number, result in N1);
      SETB77600;
1;    =Q7; ZERO;
5;    DUP; J3<Z; M7; BITS; xD;
      CONT; SETB20; -;
3;    C7; +;
4;    JSP31; J2; M7;
      SHL+17; SHLC7; J5<Z;
      C7; SET10; SIGN; J6>=Z;
      ERASE; ZERO; NOT; EXIT1;
2;    C7; SETB75; NEV; J4P45=Z;
6;    DUP; J4<Z;
      EXIT2;
10;   SETB77740; J1; (read decimal);

11;   (fetch store size);
      V0P45; V0P117; -; (whole store);
      JS10P32; EXIT1; (none types);
      DUP; SHL-5; J12#Z; SHL10; (if less that 32 shift 10);
12;   NEG; NOT; SHL-5; NOT; NEG; SHL5; (roound up);   [sic
      EXIT2;

P33;      (TINT A - terminate program);
      JSP38;
      V29P104M5; DUP; J1=Z;
      DUP; SET1; OR; =V29P104M5; EXIT2;
1;    ERASE;
3;    JSP31;

      EXIT1; SET4; JS94P105;
      JSP30; ZERO; NOT; ZERO; C7; JS2P10;
      (now in priority subprogram)
      SET4; M7; SETB35; NEV; J1P15#Z;
      ERASE; SETB74177; ZERO; J3P2;

P34;      (IINT B - read integer to E0);
      JSP38;
      JSP32; J1P45;
      V9P0M5; DUP; SHL+36; J3P45=Z;
      SHL+6; NOT; NEG; =M6;
      V29P104M5; J1=Z;
      =V33P104M5; EXIT2;
1;    SHL+24; =M0M6H; EXIT2;


P37;      (TINT E - nominate program tape)
[ ------------ fold
      JSP65; =M7;
      SETB12054; V0P26M7; SHL+15; SHL-33;
      NEV; J4P45#Z;
      V7; SETB41; -; DUP;
[ photo 100_1600.JPG
      SHL-1; J1P45#Z;
1;    J2#Z;
      M7; =V1P120; V0P120; J3;
2;    M7; =V1P52; V0P52;
3;    DUP; =M7; J4<Z;
      V29P104M7; DUP; NOT; SHL-46; SHL+47;
      SHL-2; NOT; AND; SHL+3;
      STR; ERASE;
5;    SHL-3; =V29P104M7;
4;    EXIT2;

P38; (fetch program letter);
      JSP31; J1; JSP56;
1;    LINK; ERASE; EXIT1;
P39V0; (TING G and G+);

      V0=B3272324532623257;
      JSP65; DUP;
      C7; SETB37; NEV; J6=Z; ERASE; (allow TIN Gnn);
      JSP32; J3P45; DUP; SHL-4; J3P45#Z; REV;  (allow TIN Gnn/mm);
6;    NEG; NOT; DUP; =RM6; -; DUP; =C6; J4P45<=Z;
1;    V1P26M6Q; DUP; J4<Z; DUP; SHL+24;
      SHL-42; SETB54; NEV; J3#Z; (jimp if
      status not L); M6; JSP131; =M6;
      V-16P101M6; V-17P101M6; CAB; =M6; DUP;
      J2#Z; ERASE; V0;
2;    CAB; SET3; J5;
3;    SET1;
5;    JSP6; ZERO;
4;    ERASE; J1C6NZ; EXIT2;

p40;      (TINT M - type wanted list);
      ZERO; NOT; =V0P101; (set new L tapes);
      V0P52; JS1; J35P0; V0P120;
1;    DUP; =M7; J4P37<Z; V29P104M7; SHC2; SHL1; J5P37;
      (types prog tape req too);



P41;      (TINT I - even and odd restarts);
      JSP38;
      V29P104M5; J4P45#Z;
      JSP65; (allowing TINT Ipn);
      SHL+47; DUP; J2#Z; (jump if odd restart)
      JSP30; ZERO; =M0M4; (clear SHUL);
      SET1; JS94P105; (clear HUR);
2;    SHL-1; SHL-33; SET4; OR; (4/0 or 4/3);
      J6P29; (store inSJNS);


P42V1;      (J J+ JE Jdd);
      V1=-1;      (end tape warning);
      JS9P31; SETB45; J4=; (test for JE);
      SETB35; NEV; J3#Z;
      SET-6; =V0; (to allow 16384 words for NJC);
3;    JS10P32; J2;
1;    =V4P155; EXIT2;
2;    ERASE; V3P23; SHL-32; J4P45=Z; (no N tape);
      JS21P45; J1;
4;    V1P23; SHL-32; J1P45=Z; (again if no old tape);
      =V1; JS20P45; EXIT2;

[ ------------

P44V0;      (TINT L - change type of unit);
      V0=B 0206520200002072; (skeleton
      descriptor shifted cyclically down 33);
[ photo 100_1601.JPG
      JSP65; DUP; J1P45=Z;
      DUP; =M5; V0P26M5; DUP; J2<Z;
      DUP; SHL+42; J3P45#Z;
      SHL+24; SHL-42; SETB54; J6#;
      (L); ERASE; V1P52; J8#;
      ZERO; =V1P52;
8;    V1P120; J7#;
      ZERO; =V1P120; J7;
6;    SETB65;  J3P45#;
2;    ERASE;
7;    SHC-6; JSP32; J3P45;
      DUP; SHC-4; J4>=Z;
      SETB10; J3P45#;
      M5; SET7; SIGN; J3P45<Z;
4;    DUP; J3P45<Z; DUP; SHL-6; J3P45#Z;
      DUP; J5#Z; ERASE; ZERO; NOT; J1;
5;    SHC-6; V0; SHLD+3; SHC+3; SHLD+3;
      REV; ERASE; SHC+9; SHLD+3; SHC+3;
      SHLD3; SHC6; DUP; JS10P6;
      JS4P27;
1;    =V0P26M5; J31P45;

p45V0;
      V0=0; (m/c size);
31;   ERASE;
30;   EXIT2;
12;   ERASE;
3;    ERASE;
1;    ERASE;
4;    EXIT1;

21;   ZERO; NOT;
20;   ZERO;
22;   NOT;
23;   =V19P0; EXIT1;

P46V16;   (TINT N for daves disector);   [ sic

      V0=1;
      V15=B 0410100104101001;
      V16=P 000$000$;

      JS72P58; JSP32; J1; DUP; =RM5; JSP32; JSP45;
      DUP; =C5; +; V0P45; -; J4P45>Z;
      JS2; JS5; J12;
1;    JS2; ERASE; SETAP0; SETAV0P0; ZERO; JS4;
      SETAP11; SETAV0P11; SET11; JS4;
      SETAP104; SETAV0P104; SET104; JS4;
      SETAP187; SETAV0P187; SET187; JS4;
12;   C7; =M6; JS5P27; EXIT2;
2;    SETB3654; JS1P26; J3; ERASE;
      V0P26M6; SETB24; SHL18; -; SETB44; OR; DUP; =V0P26M6;
      SET1; JSP6; C6TOQ7; SETAV0;
      DUP; =RM6; NOT; NEG; =I7; EXIT1;
3;    LINK; J3P45;
4;    JS1P161; SHL24; SETB60; OR; SHC-6; =M0M6QN;
      DUP; =RM5; -; =C5;
5;    V0; DUP; NOT; NEG; =V0; JS1P161; SHL18; SETB20756; OR; DUP;
      Q7; REV; SHC-18; SET1; JSP6; =Q7; SHC-6; SHL-6; JS10;
      M5; =V14;
[ ---------- fold
6;    V23P0; M5; DUP; SETB45; JS11;
      JS2P161; SHL18; SETB42; OR; SHC-6; =M0M6QN;
      M5; V14; -; SETB66; JS11;
      M0M5Q; DUP; SET3; =C6;
7;    ZERO; SHLD16; V15; REV; FRB; V16; OR; =M0M6QN; J7C6NZ;
[ 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;
[ 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;
[ photo 100_1604.JPG
3;    (wanted by Director)
      =V6; =V7; SETAV2P1; =RM1; I4; =C4;
6;    V7; V6; SETB44; JS14; =V1; =V2; =V3;
      SET1; SETAV0; SETAV5; JSP8;
      V5; SHL-42; SETB56; J8#;
      C0TOQ6; J1P45;
8;    SETB71; NEV; J6#Z;
      V7; V6; JS20; (check whether required tape
      arrived during query); J2;
14;   V1; SHC+24; SHL+6; OR; SHC+18;
      REV; DUP; J9#Z;
      ERASE; V0P39;
9;    REV; EXIT1;
20;   V0P26; =Q6;
1;    SETB10544; JS2P26; EXIT1; ERASE; DUPD;
      M6; JSP131; =M6; V-16P101M6; V-17P101M6;
      CAB; =M6; CAB; NEV; PERM;
      NEV; OR; J1#Z; ERASE; ERASE; LINK; ERASE;
22;   V0P26M6; SET9; SHL18; -; M5; J11<Z;
      JSP55; OR;
13;   J6P27;
11;   SETB44; OR; J7P27;
72;   SETAV2P11; =RM4; I4; =C4; M0M4; J4P45=Z; J1P38;
      (set up subprog 1 if not active other wise return to main loop);

P59;      (check top item in flex queue, if query
      check answer ends correctly. if so, or
      if not query, remove top item from flex queue,
      type top item of flex queue);
      BUSYQ0; J4P45TR;
1;    V0P6; ZERO; SHLD+6; SETB40; NEV;
      J7#Z; PARQ0; J6TR; ZERO; SHLD+10;
      REV; =Q7; I7; C7; DUP;
      NOT; NEG; =RM7; -; =C7;
2;    SET8; J3C7NZ; =TR;
6;    ERASE; J10;
3;    =C5; =M0M7Q;
4;    ZERO; SHLD+6; SETB75; J5=; DC5;
      SETB37; SIGN; SHC-1; NOT; =TR;
      J4C5NZ; ERASE; J2;
5;    ERASE; ERASE; J6NTR; =M7;
      ZERO; =V11P11M7; ZERO;
7;    ERASE; V5P4; DUP; J16=Z; (no TINT);
      ZERO; V1P6; SHAD-43; REV; ERASE; ABS; NEG; NOT; J17=Z; (02 or 77);
16;   ERASE; SETAV0P6; =RM7;
8;    M0M7N; DUP; NOT; J9=Z;
      =M0M7Q; J8;
9;    J15C7Z; =M0M7;
10;   V0P6; (new top word); JSP127; J1;
      ERASE; SETAV0P6; DUP; SHL+16; OR;
12;   =Q7; POBQ7; EXIT1;
11;   SHL+16; SHL-16; Q6; REV; JSP103;
      J13; REV; =Q6; J12;
13;   ERASE; =Q6; EXIT1;
15;   NOT; =V0P6; EXIT1;
17;   DUP; =V0P6; ZERO; =V5P4; J11; (TINT to top of Q-concel TINT);

P60V0;      (deal with RFIR, read time, N.E.T.,
      and tape loading/unloading)
      K4; DUP; SHL+29; J35P0<Z;
2;    DUP; SHL-32; SHL+32; STR; V5P0; DUP;
      PERM; AND; DUP; =V0; V0P0; +;
      =V0P0; +; =V6P0; DUP; SHL+23; DUP;
      Q6; =E7; SET7; =RC6;
[ photo 100_1605.JPG
$1;   STR; V16P0M6; OR; =V16P0M6Q;
      SHL+1; J1C6NZS;
      ERASE; OR; =TR; J8NTR;
      JSP64; (test priorities);
      (flex or clock); ZERO; NOT;
      K5; SHL-1; SET4; =RC6;
7;    SHL+6; STR; V0; AND; V9P104M6;
      +; =V9P104M6Q; J7C6NZ;
      ERASE; JS10; V0P26; =Q6;
3;    SETB10544; JS2P26;
      J4;
      ERASE; PMBQ6; J3TR;
      (L, not on BT); SETB4000; JS10P100; J3;
4;    V0P26; =Q6;
5;    SETB10654; JS2P26;
      J6;
      ERASE; PMBQ6; J5NTR;
      (U, on BT); SETB32000; JS10P100; J5;
8;    V16P0;
6;    V19P0; OR; E7; =Q6; EXIT1;
10;   (test whether any main subprogram held up by
      lockout or busy unit can be resuledm.  If so,)
      (or if priority change or store move impending,
      set EDT marker);
      Q7; SET4; =RC6; I6=+2;
11;   V3;P11M6Q; J12>Z;
13;   J11C6NZ;
      V19P0; V0P105; OR;
14;   =V19P0; =Q7; EXIT1;
12;  V11P11M6; DUP; =Q7; J13<Z;
      J15C7Z; BUSYQ7; J16;
15;   TLOQ7;
16;   J13TR; ZERO; NOT; J14;

P61;      (OUT 10);
      ZERO; =V45P104M5; JS3P29; J4;
      V32P1; SHL-1; J4=Z;
      V0P1; DUP; J2=Z;
      DUP; JSP122;J5; J3#Z;
5;    DUP; JSP132; J3; V1P1; DUP;
      JSP122; J5; ERASE; J3#Z;
2;    V1P1; J3#Z;
7;    ZERO; NOT; SHL-3;
6;    REV; JSP58;
      JSP138;
      C6; JSP131; =M6; V-18P101M6;
      JS3P29; J35P0;
      V45P104M5; J8#Z;JS3P29; J35P0;
      JS2P29; J35P0;
      J10;
8;    ERASE;
10;   JS2P29; J35P0;
      EXIT1;
3;    ERASE;
4;    SETB110; JP2;

P62;      (initial housekeeping for OUTs 2,4,8.
      Erase OUT no., check at least 1 other item
      in programs nest);
      JS3P29; J35P0;
      V32P1; J4P45<=Z;
[ ---- fold
      V0P1; DUP; EXIT2;

P63; (OUT 16);
      SETB14; J20P23;      (seet OUT 16 flag);    [ sic

[ photo 100_1606.JPG


P64V7; (R/EL ratios  atc);
      V0=0; (time fo last entry);        [ sic
      V1=0; (TIME FOR ALST RESET);       [ sic
      (V2/5= scaled half ratios);
      (V6 swap impending);
      V6=0; (dump for Q6);
      V7=0; (dump for Q7);

      Q7;
      SET4; =RC6; V6; J10#Z; (to clear swaps);
      V0P0; DUP; V0;
      SHL-26; J12=Z; (not yet);
1;
      JS2; V81P104M6; -; (R/EL since last T );
      DUP; SHL24; REV; NOT; NEG;
      %; V13P104M6; JS9; SHL-36; =V7; (C7=scale factor);
      NC7; DC7; =V2M6Q; J1C6NZ;
      V1; -; SHL-30; J7=Z; (reset);
      SET4; =RC6;
8;    JS2; V2M6; SHL-3; =V85P104M6; (hangover from last minute);
      =V81P104M6Q; V3M6Q; +; REV; MAX; ERASE; J5NV;
      V0P0; =V1; (reset time);
7;    SET3; =RC7; VR;
3;    CM7TOQ6; V85p104M7; V2M7Q; +;
4;    V86P104M6; V3M6Q; +; REV; MAX; ERASE; J5NV;
11;   J4C6NZ;
      ERASE; J3C7NZ; V0P0; =V0; ZERO;
12;   ERASE; =Q7; EXIT1;
9;    SHL-46; DUP; SHL1; +; SHL2; =C7; V0P54; SHCC7; EXIT1;
5;    ERASE; Q6; =V6; Q7; =V7; M-I7; (set swap preserve Q7 Q7);
      JS91P105; =Q7; J20P45;
2;    V5P104M6; DUP; V9P104M6; +; SHLD6; SHL-24; SHLD-24; J1P45;
$10;  V9P0M6; SHL3; SHL-3; =V9P0M6Q; J10C6NZS;
      ZERO; =V0P105; Q4; Q5; V6; JS100P105; (clear swap);
      VR; ZERO; =V6; (swap cleared not done);
      =Q6; =Q5; =Q4; V7; =Q7; V1M7; J1; (carry on after point cleared);

P65;      (fetch trunk no check <B20);
      JSP32; J1; DUP; SHL-4; J4P45=Z;
1;    LINK; J3P45;
P69V1; (TINT W);
V0=0; (marker);
V1=P WEGDON.{em};

      V2P4; V1; NEV; J4P45#Z;
      ZERO; NOT; DUP; =V0; =V4P155; (set marker and TINT J);
      EXIT2;
P72V4;      (TINT Z, tape labelling 23/6/66);
      V0=B0207645617514434;
      (V1/4= answer to TN/ID);

      JSP65; SET-56; =+C7;
      DUP; =C6; =M6; ZERO; V0P26M6; SHL24; SHLD-30;
      SHL-12; SETB54; NEV; OR; J4P45#Z; (test for N to mean leave unaltered);
      J4C7Z; (if ZDDZ);JS72P58;
      JS22P58; Q6; =E20M4; ZERO; NOT;
      SETAV0; SETAV4; JSP8; E20M4; =Q6; V1; DUP; SHL-36;
      SETB5617; NEV; SET-42; =C5; J1#Z; SHL+48;
      SET6; =+C5; ZERO; NOT; =+M5;
1;    V5M5; V4M5; DUP; V3M5; SHLDC5; ERASE; PERM; SHLDC5; ERASE;
[ ----- fold
2;    JSP131; SETAV-18P101; +; =RI7; C6TOQ7; M+I7;
      =E2M7; =M0M7N; DUP; J3=Z; =M0M7; ZERO;
3;    ERASE; SET2; =+M7; MWQ7; SETB32000; JS10P100; EXIT2;
4;    (label zero,leave T.S.N. unchanged);
      (noods no subprig, useful when Director requests OUT 8 tape);
      ZERO; ZERO; ZERO; J2;

[ photo 100_1607.JPG

P73V0; (swap to EG);
      V0 = Q b16/8000/8079;
      BUSYQ0; J4P45TR;
      V9P0; V10P0; OR; V11P0; OR; V12P0; OR; SHCC3; SHL35; J4P45#Z;
      V0P100; J4P45#Z; (W tapes);
      V3P23; V1P23; OR; SHL-32; J2=Z; (jump when no OUT 8 tape);
      ZERO; NOT; =V4P155; JP5; (deallocate OUT 8 tape again);
2;    ZERO; DUP; =V1P52; =V1P120;
      (wait until flex not busy and no prog running);
      ZERO; =V0P69; (clear WEG marker);
      V0; =Q7; PMAQ7; PICQ7; (swap prog to core);
1;    BUSYQ7; K4; ERASE; J1TR; (disc not busy);
      V3P120; V0P199; SETAV0P26; LINK; ZERO;
      JE8000;

P100V9;    (deal with W mag tapes)
      (V0#Z for W tapes)
      (V1-9 = brick indicators for trunk 7-17);
      V0; J4P45=Z;
      V0P26; =Q6; ZERO;
1;    =V0;
2;    SETB10674; JS2P26;
      EXIT1;
      =TR;
3;    BUSYQ6; J5TR;
      PARQ6; V-6M6; J11NTR;
      DUP; SET1; SHL+23; OR; =V-6M6;
11;   FIX; NOT; SHLD-1; =LINK; J4<Z;
      EXITAP101;
4;    EXIT1AP101;
5;    ZERO; NOT; J1;
6;    SETAV-6U; =M7; M6M7H;
      SHC+9; SHL+1; SHC-10; STAND;
      DUP; =M6M7H; J3#Z;
      J2;
10;   SET31; FLOAT; =V-6M6; SETB67; JS8P27; JS21P45;
12;   =V0; EXIT1;

P101V30;   (W mag tape bricks Maurices mod);
      (V0 NZ if there are new L tapes)
      V1=B0112121212120101;
      V2=B0020202020204254;
      (V3-29=label blocks of units 7-17)
      V30=B0007604162516471;
      J2; J2; (now entry 1 does not count blocks);
      J3; J4;
      J5; J6;


2;    (skip back to BT);
      PMBQ6; J6P100TR; ZERO;
      (this has replaced 3 lines of entry 1);
12;   =Q7; C6TOQ7; PMEQ7; J5P100;
3;    (read label block)
      JSP131; SETAV-18; +; =RI7; M+I7;
      C6TOQ7; PMBQ6; J31NTR;
      ZERO; NOT; DUP; =M0M7; DUP; =M0M7N;
      SET2; =+M7; =M0M7; PIBQ7; J5P100;
31;   PMEQ7; M0M7N; JSP122;
[ ---------- fold
      J32;
      J35;
32;   M0M7N; JSP132;
      J33;
      E2M7; DUP; J34#Z;
      NOT;
[ --- end of photo
34;   JSP124;
      J6P100;
[ photo 100_1608.JPG
35;   =M0M7N;
33;   ZERO; NOT; SHLD-3;=E2M7; J6P100;
4;    (W becomes U)
      C6; V1P120; J41#;
      ZERO; =V1P120;
41;   V1P52; NEV; J42#Z;
      ZERO; =V1P52;
42;   ZERO; NOT; NEG; DUP; NOT; (SETB177776);
43;   SHA+18; V0P26M6; +; =V0P26M6;
      DUP; J46=Z; J2P100<Z; V0P26M6; SET1; J45;
46;   ERASE; JSP131; =M7; V-18M7; JSP122;
      V-18M7;
      (mod starts here);
      V-17M7; DUP; J4#Z; ERASE; V0P39;
44;   DUP; V0P26M6; SET3; CAB;
      JSP132; J45; V-16M7;
      REV; REVD; CAB; NOT; NEG;
45;   JSP6; V-6P100M6; SHL+24; J2P100>=Z;
      V30; JS10P6; J2P100;
5;    (W becomes L);
      ZERO;
51;   ZERO; NOT; =V0; SETB177765; J43;
6;    (W becomes L, nothing typed)
      ZERO; NOT; J51;

P102;      (hold up subprogram until peripheral transfer
      in programs area can be obeyed. Parameters
      given in Q7)
      SET1; JSP10;
2;    Q7; JSP103; J1;
      =Q7; EXIT1;
1;    SET1; ZERO; CAB; JS2P10;
      J2;

P103;      (chack parameters in N1 before peripheral
      transfer which may involve programs area)
      SET4; =RC6;
1;    J2C6NZ; EXIT2;
2;    V9P0M6Q; JS86P105; DUP; JS88P105;
      J1;
      V8P0M6; DUP; SHL-24; J1P45#Z;
3;    SETB30000; AND; SETB140000; OR; =K1;
      ERASE; EXIT2;

P104V92;
      V0=B01010101/23; (HUR);
      (V1 onwards= constants associated with
      priorities, in groups of 4)
      (V1-4= overflow and TR record, etc.
       V5-8= run time
       V9-12= PHU time)
      V13=B0141/11;   (NS counters, etc.);
      V14=B2141/11;
      V15=B4141/11;
      V16=B6141/11;
      V17=1; V18=1; V19=1; V20=1;    (CPDAR);
      (V21-24 = A program unit pre-allocation.
       For B programs, records types to be
[ ------ fold
       pre-allocated on deallocation by OUT 6)
      V25=2; V26=2; V27=2; V28=2;  (hold-ups);
      V29=5; V30=5; V31=5; V32=5;  (APM);
      (V33-36= dump for E0
       V37-44= current program name
      V45-52=new program name, transfer
      parameters, OUT4/10 marker, ec. used
      only by main subprogram.
      V53-56=program start time
[ ------- end of photo
      V57-60=streams used by program
      V61-V4 is OUT 8 OUT16 flag                [ sic
      V65-68 is work space used by OUT 8 for D transfers);
[ photo 100_1609.JPG
      (V69-72 =disc map 1);
      (V63-76 =disc map 2);
      (V77-80 =disc map 3/no of sectors/parity);
      (V81-84=run and el times - half words);
      (V85-88 = hangovers);
      (V89-92 = no of REACTs allowed);
      (V89 etc also hold JAC info format JJJJJ em rr);


P105V1;      (Consolidate core and swap priorities
      upgrades A riorities automatically if needed)
      V1=Q 4/10/AV3P11; (used at 14;);
      V0; J1=Z;
6;    ZERO; =V0; SET4; =RC5;
2;    V9P0M5;
3;    DUP; SHL+38; J5=Z;
      DUP; JS87; J4;
      (test for store move)
      DUP; SHL+14; SHL-38; J5=Z;
      (move program in store);
      Q7TOQ4; I4=-1; DUP; SHL+14; SHL-38;
      SHL+5; I7; -;
      DUP; =M6; J7>=Z;
      I7; =M4; I4=+1;
$7;   M0M4; =M6M4Q; $J7C4NZS;
      (alter value of base address);
      ZERO; REV; SHC-24; SHLD-10;
      SHC+24; SHLD-38; ERASE;
      (altyer affected parameters in OUT 8 Q)
      (OUT 8 Q not processed);
      SETAV-1P198; =RM4; (disc queue);
60;   M0M4QN; NOT; J61=Z;
      M0M4; J60>=Z;
      M0M4; JS89; =M0M4; J60;
61;
      (alter affected parameters in flex Q)
      SETAV0P6; =RM4;
8;    M0M4; NOT; J9=Z;
      M0M4; JSP127; JS89; =M0M4Q; J8;
9;    (alter affected SHUPs)
      SET10; =RC4;
10;   V1P11M4Q; J11<=Z;
      V10P11M4; DUP; J18<=Z; JS89;
18;   =V10P11M4;
11;   J10C4NZ;
5;    (test for priority swop)
      DUP; SHL-45; J4=Z;
      DUP; SHA-45; M5; +; =M4;
      V9P0M4; JS87; J4;
      (alter BA/NOLs of swopped priorities)
      SETB30000; NOT; SHL+3; SHL-3; DUP;
      V9P0M4; AND; M5; SHL+12; OR;
      PERM; AND; M4; SHL+12; OR;
      =V9P0M4;
[ ---- fold
      (alter tab words)
      V24P0M5; SHL-8; SHL+2; M4;
      OR; SHL+6; =V24P0M5; =V24P0M4;
      (swop bits in V0P104)
      M4; DUP; SHL+1; +; SHL+1;
      =C4; M5; M4; -; DUP;
      SHL+1; +; SHL+1; =C7;
      V0P104; SHCC4; ZERO; SHLD+6; NC4;
      REV; SHL-6; SHCC7; REV; SHLD+6;
[ photo 100_1610.JPG
      NC7; SHC-6; SHLD-6; SHL+6; REV;
      SHCC7; OR; SHCC4; =V0P104;
      (swop V-stores of P104)
      SETAP104; SETAV1P104; DUP; =M6;
      -; SHL-2; =C6; SET4; =I6;
$12;  M4M6; M5M6; =M4M6; =M4M6Q; J12C6NZS;
      (alter if needed recorded priorities
      of interrupted program, A and B input)
      V7P0; JS90; =V7P0;
      V0P120; JS90; =V0P120;
      V0P52; JS90; =V0P52;
      (alter subprogram numbers in OUT 8 Q)
      SETAV0P198; =RM6; (disc queue);
105;  M0M6; NOT; J106=Z; JS62; =M0M6Q; J105;
62;   M0M6;
64;   SHC12; ZERO; SHLD3; NEG; NOT; JS90; NOT; NEG; OR;
      SHC-15; EXIT1;
67;   ZERO; SHLD16;
      SETAV65P104; DUP; PERM; -; JS90; +; (alter address in OUT 8 Q)
      OR; EXIT1; (not this routine leves new Q entry in M part);   [ sic
68;   =M6; M0M6N; SHC-16; JS67; =M0M6N; (alter end of queue);
65;   M0M6; J4P45=Z; JS62; (new entry in nest)
      SHC16; JS67; DUP; SHC16; =M0M6; =M6; J65; (new entry restored);
106;  SETAV0P23; JS68; SETAV2P23; JS68; (deal with OUT 8 Qs);
63;   SETAV0P6; =RM6;
15;   M0M6; JSP127; J16; J17;
16;   JS64;
17;   DUP; =M0M6Q; NOT; J15#Z;
      (swop SHU stores);
      M4; SHL+1; =M4; M5; SHL+1; =M7;
      V1; =Q6;
14;   M7M6; M4M6; =M7M6; =M4M6;
      M7M6N; M4M6N; =M7M6N; =M4M6QN; J14C6NZ;
      ZERO; =V6P64; (swap done);
      J3;
4;    =V9P0M5Q; J2C5NZ;
1;    (set up A priority swops)
      SET4; =RC6; Q0TOQ5; V0P104;
21;   DUP; SHL+2; DUP; SHL+2; NOT;
      OR; J20<Z;
      V9P0M6; SHA-45; M6; +; DUP;
      SHL+1; +; SHL+1; =C7;
      V0P104; SHLC7; SHL+2; DUP; SHL+2;
      NOT; OR; J20<Z;
      DUP; SHL+3; C5; NEV; J19<Z;
      J22C5Z;
      C0TOQ5; JS91; J20;
22;   M6TOQ7; DC5;
19;   V9P0M6; SHL+3; SHL-3; =V9P0M6;
20;   SHL+6; M0M6Q; ERASE; J21C6NZ;     [ sic
      ERASE; JSP116;
      (set up A program move)
      SET4; =RC7; V0P45; SHL-5;
41;   =I6; J40C7Z;
      V0P116M7Q; DUP; JS95; J40=Z;
      V0P104; SHLC6; SHL+2; J40<Z;
[ ----fold
      ZERO; V9P0M6; SHLD-10; SHL+34; SHL-38;
      NOT; I6; +;
      REV; SHL-38; J41=;
      V9P0M6; SHC+14; SHL+10; OR; SHC+24;
      JS92;
40;   (set up B program move)
      SET4; =RC7; I7=-1;
      V0P117; SHL-5;
[ photo 100_1611.JPG
42;   =I6;
44;   J43C7Z;
      V3P116M7Q; DUP; JS95; J44=Z;
      V0P104; SHLC6; SHL+3; J43<Z;
      V9P0M6; SHC-10; ZERO; SHLD+10;
      I6; J45#;
      REV; SHL+24; SHL-38; NOT; -;
      J42;
45;   OR; SHC+14; SHL+10; I6;
      OR; SHC24; JS92;
43;   V0; J6#Z;
100;  SET4; =RC4; (used ny P64);
50;   M4TOQ5; SETB20; V9P0M4Q; SHL-24; J51#Z;
      JS94; J52;
51;   JS93; ZERO; NOT; =V0;
52;   J50C4NZ;
      EXIT1;



      (labels 80 + n were P100+n);
      (internal labels use 70; onwards);

      (this routine used to be P106);
86;   (given BA/NOL,setC7 = no of words occupied,
      I7,M7= first and last addresses occupied)
      DUP; SHL+38; SHL-33; DUP; J70#Z;
      =Q7; J1P45;
70;   DUP; =I7; =M7; SHL24; SHL-38;
      NOT; NEG; SHL+5; DUP; =C7;
      NEG; NOT; =+M7; EXIT1;

87; (ex P 107
P107;      (given BA/NOL, set up Q7 as in P106, and
      test lock-out on programs area)
                  );
      ZERO; =TR; JS86; TLOQ7; J4P45TR; EXIT2;

88;      (ex P108
P108;      (given transfer parameters, test for I >= I7 and
      M <= M7)
                  );
      ZERO; REV; SHLD-16; SHL+32; SHLD-32;
      I7; SIGN; M7; CAB; SIGN;
      OR; J4P45<Z; EXIT2;

89;      (ex P109
P109;      (given transfer parameters, add M6 to I and
      M if transfer lies in area given by I7-M7)
                  );
      DUP; JS88; EXIT1;
      M6; SHL+32; DUP; CAB; SHC+16;
      +; SHC+16; +; SHC+16; EXIT1;

90;      (ex P110
P110;      (replace N1 by M4 or M5 if N1=m5 or M4 respectively)
                  );
      M5; J71#;
[ ----fold
      ERASE; M4; EXIT1;
71;   M4; J72#; ERASE; M5;
72;   EXIT1;

91;      (ex P111
P111;      (set up swop of priorities given in m6, m7)
                  );
      M6; M7; -; SHL+45; DUP;
[ photo 100_1612.JPG
      V9P0M7; OR; =V9P0M7; NEG; V9P0M6;
            SHL3; SHL-3; OR;

92;      (ex P112
P112;      (store new BA/NOL in V9P0M6, set V0P105 if new
      BA/NOL differs from previous one)
                  );
      DUP; V9P0M6; NEV; V0P105; OR;
      =V0P105; =V9P0M6; EXIT1;

93;      (ex P113
P113;      (set HU bits in priotity hold-up word);
                  );
      V25P104M5; OR; J73;

94;      (ex P114
P114;      (clear HU bits from priority hold-up word)
                  );
      NOT; V25P104M5; AND;
73;   DUP; =V25P104M5; JP14=Z;
      JP13;

95;    (ex p115
P115;    (given BA/NOL, set priority no. in M6, 6 times
      priority no. in C6)
                  );
      SHL+34; SHL-46; DUP; =M6; DUP;
      SHL+1; +; SHL+1; =C6; EXIT1;

P116V3;      (form table of BA/NOLs in order ot decreasing
      base address);
      SET4; =RC6; V0P45; SHL-5;
1;    SHL+36; ZERO; =V0M6;
      SET4; =RC7;
2;    V9P0M7Q; SHL+36; DUP; V0M6; SHL+36;
      SIGN; J3<=Z;
      REV; DUP; PERM; SIGN; J4>=Z;
      V8P0M7; =V0M6; ZERO;
3;    ERASE;
4;    J2C7NZ;
      ERASE; V0M6Q; J1C6NZ; J1P45;

P117V0;      (set in N1 parameters for space between B and
      A programs, as C=no. or words, I,M= first and
      last addresses)
      JSP116; SET4; =RC7; V0P45;
1;    V0P116M7; DUP; JS95P105; J2=Z;
      V0P116M7Q; V0P104; SHLC6; SHL+2; J3<Z;
      REV; ERASE; SHL+38; SHL-33; J1C7NZ;
2;    V0; J4;
3;    DUP; SHL-14; +; SHL+38;
      SHL-33; SET32; +;
4;    DUP; =I7; NEG; REV; DUP;
      NEG; NOT; =M7; +; =C7;
      J4P45C7Z;
      Q7; EXIT2;

P118;      (given N1=4 for A-program or 5
[ ----- fold
      for B, and BA/NOL, sets parameters
      prior to reading in new program)
      DUP; =V29P104M5; SHA-1; JSP124;
      M5; DUP; =M0M6; NOT; SHL+1;
      DUP; SHL+1; +; +; =C5;
      SET1; SHCC5; V0P104; OR; =V0P104;
      V9P0M5; OR; =V9P0M5; EXIT;

[ 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;
[ photo 100_1614.JPG
103;  NOT; NEG; NOT; NEG; (skip OUT 8 print);
106;  SHL1; =M7; V2P199M7; =V49P104M5;
      ZERO; NOT; =V41P104M5; (no time limit overwriting);
      V1P199M7; STR; SETB11; SHC-18; AND; (MT bit);
      V18; OR; REV; DUP; SHL-42; =V89P104M5; (REACT no from prog list);
      SHL24; SHL-24; OR; =V45P104M5; J22;
101;  ERASE; SETB2660; JSP55; NEV; JS1P26; J100;
      ERASE;
11;   (TINT T enters here for call tape);
      C6; =V2; V29P104M5; SHC-6; V9; +;
      V0P26M6; SHL30; SHL-30; OR; JS21P6;
      (read A-block);
      C6TOQ7; JSP126; JSP102;
      PIBQ7; ZERO; JSP10;
      PARQ7; J14NTR;
      SET1; JP121;
14;   I7; =M6; M0M6N; =V49P104M5;
      M0M6; DUP; =V45P104M5; JSP119;
16;   SET2; JP121;
      Q7; (perserve);
      ZERO; NOT; DUP; =V41P104M5; (no T); NEG; (one REACT);
      M6; NOT; NEG; NOT; NEG; =Q6; (E2);
18;   JSP31; DUMMY; ZERO;
12;   ERASE; (C7 is ~ ; +);
1;    C7; SETB33; J5=; SETB34; J7=;
      SETB35; NEV; J8=Z; (special are ~ ; +);
24;   =V89P104M5; =Q7; (A block accepted so store JAC and REACT);
      SETB60; NEV; J30=Z; JSP123;
22;   (program to be read from mag tape.
      progs specified by number and OUT1 enter here);
      V45P104M5; SHL-30; SETB70244; JP190=;
      SETB70255;NEV; J16#Z; (CRNP if not M);
      JSP124; M0M6N; DUP; =M6;
      =C7; J21C7NZ;
19;   V49P104M5; V45P104M5; SHL+24; SHL-6;
      V29P104M5; SET1; DUPD; SHL+45; OR;
      =V29P104M5; AND; SETB1741; +;
      SHLD-12; ERASE; JSP55; SHLD-6; ERASE;
      V8; V7; JS40P6;
20;   JS4P10;
      V29P104M5;; SHL+2; J22>=Z;
      V29P104M5; SHL+1; J20>=Z;
      SET9; JP121;

5;    (~); JS10P32; DUMMY; DUMMY; DUMMY; =V41P104M5; J12;   [ note ~ is subscript 10
7;    (;) ERASE; JS10P32; DUMMY; REV;
55;   REV;
15;   SHLD-18; ERASE; SHC16; J1;
8;    (+); ZERO; SET6; =C5;
17;   JSP31; J13; SHL6; C7; OR; DUP; SHL42; J10>=Z;
      DC5; J17C5NZ;
10;   SHL-6;
13;   SHL6; DUP; J13>=Z; J55;
25;   (program not on tape);
      C7; =M6; JSP135;
      JSP124; ZERO; =M0M6N; J19;
105;  C7; =M6; JSP135;J22; ( abandon search);
21;   V29P104M5; SHL+3; ZERO; NOT; CONT; SHL-3; =V29P104M5;
      V0P26M6; SHL+24; SHL-42; SETB43; NEV;
      J19=Z;
      ZERO; V0P26M6; SHL+24; SHLD-30; SHL-12;
[ --- fold
      SETB54; NEV; OR; J20#Z;
      V0P26M6; JSP55; OR; =V0P26M6;
23;   IM0TOQ7; PMAQ7; ZERO; JSP10;
      PARQ7; J28TR;                [ sic
28;   PMFQ7; J25TR;
[ - end of photo
      PMCQ7; J23NTR;
[ photo 100_1615.JPG
      JSP126; JSP102; PIAQ7; ZERO; JSP10;
      PARQ7; J29TR;            [ sic
29;   PMCQ7; PMFQ7; J25TR;
      V29P104M5; SHL+3; J105>=Z;
      I7; =M6; M0M6; V45P104M5;
      JSP137; M0M6N; V49P104M5; JSP137; OR;
      J23#Z;
30;   (read B-block)
      ZERO; NOT; =E20M4;
      JSP102; PIAQ7; ZERO; JSP10;
      PARQ7; J31NTR;
131;  SET4; JSP121;
31;   I7; =M6; E2M6; V45P104M5; JSP137;
      E3M6; V49P104M5; JSP137; OR; J32=Z;
      SET5; JP121;
32;   (check and assign store requirement)
      M0M6N; SHL+24; SHL-24; (req); V1P104M5; (limit)
      DUP; PERM; J60=Z;
      DUP; J33=Z;
37;   DUP; CAB; SIGN; J34<=Z;
63;   ERASE;
39;   SET6; JP121;
60;   REV; ERASE; DUP; J61=Z;
      V0P45; V0P117; -; REV; J37;
61;   (zero limit and req); Q7; =V1P104M5;
62;   ERASE; V1P101; JSP117; ZERO; DUMMY; DUMMY;
      SHL-32; SHL+9; V9P0M5; +; DUP; =V9P0M5;
      SHL+24; SHL-38; NOT; NEG; SHL+5;
      FRB; V4; OR; =V14;
      V24P0M5; JSP55; OR; =V11;
      ZERO; SETAV11; SETAV15; JSP8;
      SETAV15; =Q6; JS11P32; (read ans from V15);
      ERASE; DUP; DUMMY; (no size means full store);
      DUP; CAB; SIGN; J62>Z;
      V1P104M5; =Q7; I7; =M6; DUP; J63<=Z;
      ZERO;
33;   ERASE; DUP; M0M6N;
      OR; =M0M6N;
34;   NEG; NOT; SHL-5;
35;   DUP; V9P0M5; SHL+24; SHL-38;
      SIGN; J38<=Z;
      Q7; JSP117; J36;
      SHL-32; SHL+9; V9P0M5; +;
      =V9P0M5; =Q7; J35;
36;   REV; =V1P104M5;
      SET1; ZERO; CAB; JSP134; J39;
      V1P104M5; J35;
38;   V9P0M5; SHC-24; SHL+10; OR; SHC+14;
      =V9P0M5; ZERO;
40;   (check filler word);
      =V1P104M5; M0M7; =Q6;
      IM6TOQ7; SET6; I7; SIGN; M7; I7;
      SIGN; NOT; AND; M7; SIGN; M7; I7;
      SHL+5; =M6; M0M6N; SHL+24; SHL-24;
      SIGN; AND; J41<Z;
      SET7; JP121;
41;
      E20M4; J141C6NZ; ZERO; =E20M4;
141;  DUP; J143>=Z; ERASE;
      JSP128;
[ --- fold
      JSP102; PIAQ7; ZERO; JSP10;
      PARQ7; J42NTR;
142;  SET8; JP121;
143;  C0TOQ7; Q7; REV; JSP128; JS3P10; J142; (C block from disc);
42;   M7; I7; DUP; =RM6; -; =C6; V1P104M5;
[ 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;
[ photo 100_1617.JPG
3;    V0P26M6; =Q6;
4;    M0M6Q; ERASE; J10C6Z;
      JSP125; J4;
      JS1P27; (make unit U); J4;
10;   (clear BA/NOL, PHU, etc.);
      ZERO; =V37P104M5; ZERO; =V41P104M5;
      ZERO; =V33P104M5; V9P0M5; DUP; JS95P105; DUP;
      SETB147777; SHL+3; SHL-3; NOT; AND; JSP136;
      V0P104; SHCC6; SHL+4; NC6; SHL-4;
      SHCC6; =V0P104; EXIT1;

P122V1;      (check given word as mag tape identifier)
      V0=B3252326532563253;
      V1=B377727377777777/43;
      DUP; SETB77; AND;
1;    =C7; DUP; J1P45=Z;
2;    V1; ZERO; SHLDC7; REV; ERASE;
      SHLD+27; SHLD+6; DUP; J1<Z;
      ERASE; ERASE; V0; EXIT2;

P123;      (dispose of program input PTR, given in C7)
      C7; =M6; V0P26M6; DUP; SHL+24;
      SHL-42; SETB65; NEV; J1#Z;
      MANUALQ7; SHL-6; SHL+6;
1;    =V0P26M6;
      JSP124; ZERO; =E2M6; EXIT1;

P124;      (set AV0P52 or AV0P120 in M6 if program begin
    input to priority given by M5 is B or A
    respectively)
    V29P104M5; SHC-1; J1<Z;
    SETAV0P129; J2;
1;    SETAV0P52;
2;    =M6; EXIT1;

P125;      (given unit number in M6, chack if valid
      and owned by priority in M5)
      V0P26M6; JSP55; NEV; SHC+1; SHL+41; J4P45#Z;
      EXIT2;

P126;      (given priority no. in M5, set base address in
      I7 and base address+7 in M7)
      I0TOQ7; SET7; =M7; JP128;

P127;      (check given word for D0=1 and D1-11 all the same
      I.E. parameter in flex queue)
      DUP; J1>=Z;
      DUP; SHL1; SHA-44; J4P45=Z; (now D1-5 not D1-11);
1;    EXIT2;

P128;    (add base address of priority in M5 to I7 and M7)
      V9P0M5; SHL+38; SHL-33; DUP;
      =+I7; =+M7; EXIT1;
1;    V45P104M5;
2;    =Q7; JP128;
3;    E20M4; J2;

P129;    (look for item corresponding to Q7 in flex queue)
[ --- fold
      SETAV0P6; =RM6;
1;    M0M6Q; JSP127;
      J2; (parameters)
      ERASE; J1;
2;    DUP; Q7; NEV; SHL+16; J1P45=Z; (in queue)
3;    NOT; J1#Z;
      EXIT2; (not in queue)

[ 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);
[ photo 100_1619.JPG
      V12=P PRINTEND;  (ident of last OUT 8 tape);
      V13=P 00H00M00;

      ZERO;
      ZERO; NOT; =V4P23;
93;   =TR; Q0TOQ4; V1P23; =Q7; (L queue); J99C7Z; (jump if no L tape);
      BUSYQ7; J100TR; (L tape busy);
      V0P23; DUP; J101=Z; (if Q empty nothing to do);
      JS1; J100; (process queue and go on to N tape);


99;   (no L tape); V4; J100>=Z; (jump if no TINT J);
      JSP161; SET9; =RC6; SET3; =I6; SHC6; NEG; NOT; SHC-6;
      (N1 = second half of current tape ident);
$98;  V5P101M6Q; J96=;
97;   J98C6NZS; J91; (look for last tape still loaded);
96;   V3; V1P101M6; NEV; J97#Z; (first half of tape ident);
      C6; NEG; =M6; V15P26M6; SHL24; SHL-42; (status ;letter);
      SETB65; NEV; J90#Z; (not unloaded or relabelled);

91;   (switch); SET4; =RC5; V0P161; NOT; NEG; =V0P161;
      V-1; =V4;
95;   V57P104M5; DUP; ZERO; SIGN; NEG; CONT; =V57P104M5Q;
      J95C5NZ; (set top bit of V57P104M5 one);       [ sic - or shouLd it be 0ne?
      V2P23; DUP; =V0P23;
      V3P23; REV; J92#Z; (Q empty);
      SETAV0P23; SHLD-16; ERASE; SHC16;
92;   =V1P23; ZERO; =V2P23; SETAV2P23; =V3P23; J93;

162;  SETB7777;       (programmer transfer);
163;  V2P161; CAB; JS2P161; SHL12; OR; SHL6; C5;
      OR; SHL6; V12P104M5; SHL-46; SHL3; NEG; =C6;
      V0; SHLC6; SETB77; AND; OR; EXIT1; (form first word of block);

90;   ERASE;
100;  (deal with N tape);
      V3P23; SET2; =M4; =Q7; J102C7Z; (jump if no N tape);
      BUSY Q7; J4P45TR; (N ttape busy);
      V2P23; DUP; J1P45=Z; (if queue empty);
1;    METQ7; J112TR; (jump if EOT met);
      V1P42; J113>=Z; (software ETW);
7;    PARQ7; ZERO; =TR; DUP; =Q6; DUP; J11<Z; (if programmer transfer);

      SETAV7; DUP; =I7; =M7; TLOQ7; J1P45TR; (if V7 locked out);
11;   DUP; STR; ERASE; ZERO; SHLD12; =C5; (C5 is coded stream);
      IM6TOQ7; SHL-44; DUP; =M6; SHL-1; DUP; =M5;
      SHL12; SETB120000; +; =K1; ERASE; (set CPL);
      M7; SET2; J12=; SHL-1; J2#Z;
      (three stream header blocks so); DUP; NOT; NEG; J3;

2;    V11P11M6; STR; REV; =V11P11M6; (clear queued transfer);
12;   ERASE; I7; =RM6; M0M6;
      DUP; J3#Z;
      V1P23M4; SETAV0P23; M4; +; SHLD-16; ERASE; SHC16; =V1P23M4; (reset empty queue);
3;    =V0P23M4; (update queue);
      J6>=Z; M7; I7; -;
16;   JS162;
9;    =M0M6;       (first word);
4;    MWQ7;
5;    EXIT1;

[ ---- fold
6;    (Director transfer);
      M7; DUP; SHL-4; J60#Z; (OUT 16);
      SETAV7; DUP; =I7; =RM6; JS11P3; JS35P0; =LINK; EXITAR8;

[ --- end of photo
60;   I7; -; SETB7752; JS163; J9; (J type);
[ photo 100_1620.JPG

$8;   J20; J21; J22; J23; J24; J25;

23;   (stream terminator);
      SETB7772; M4; J33=Z; V4; NEG; NOT; =V4;
33;   V2; =M0M6QN; SET1; REV;
      JS163; =V7; M6TOQ7; MLWQ7; EXIT1;
20;   (header block); (one);
      SETB7741; J33;

21;   (header block 2); V3P120; (date);
      V8P0M5; SHL5; =M4; E3M4; E2M4;
      SHLD24; =M0M6QN; (idnet first 8);     [ sic
      V88P104M5; NOT; NEG; ZERO; SHLD18; CAB; OR; =M0M6QN; (iii$jjj);
      SHL-36; SHL30; SHLD6; =M0M6QN; (jj$$$$d);
      SET2; OR;
31;   =M0M6QN; Q6; NEG;
34;   JS162;
10;   =V7;
32;   M6TOQ7; J4;

35;   V0P57; SHC12; V0P0; SHA-24; FRB; V13; OR; (ddHddMdd);
      V8P0M5; SHL24; SHL-38; NOT; NEG; SHL5; JS1P161;
      SHL12; SETB6744; OR; (dddddWd); SHL6;
      EXIT1;

22;   JS35;
      C5; SHLD-3; SHL4; V6; OR; SHLD3; SHL6; (STR$$);
      JS36; J34;

25;   SETB7763; JS35;
70;   V40P104M5; V36P104M5; SHLD12;
      SET2; SHL-12; -; =M0M6QN; SHL-12;
      JS36;
38;   REV; JS163; J10;
36;   SHLD12; =M0M6QN; SHL-12; SHLD12; =M0M6QN; SETB6302; OR;
37;   =M0M6QN; C6; NEG; EXIT1;

24;   SETB7745;
      V60P104M5; =M0M6QN;
      V56P104M5; =M0M6QN;
      V52P104M5; JS37; J38;


101;  (L queue empty); ERASE; SET4; =RC6; V0P52; NOT; (B prog input);
75;   V57P104M6Q; OR; J75C6NZ; (streams open); J100<Z; (not yet);
      V0P69; J107#Z; (suppress printing if TINT WEGDON);
      JS20P52; J100; (select highest priority);
77;   Q7; JSP117; J90; (store in N1);
      V0P42; =C7; (-5 for JAC);
      SHL-40; SHLC7; J90=Z; (check 256 or 8192 wds);
      JSP30; I7; SHL-5; SET5; JSP118;
      NC7; SET256; SHLC7; =V1P104M5; JSP126;
      V0P16; =M0M7N;       (insert reel no);
      C7; ZERO; SIGN; JS106P120; =Q7; M0TOQ4;

107;  SETAV5; DUP; =I7; =M7; MLWQ7;
      ZERO; =V0P42;
      V1P23M4; SHL32; SHC16; =V1P23M4; C7; =M6; JP135;

102;  (no N tape); V2P23; J4P45=Z; I7; J4P45<Z;
[ ---- fold
      (Q not empty and claim not in progress);
      JS72P58; I7=-1; Q7; =V3P23;
      ZERO; NOT; =M5;
105;  ZERO;
104;  ZERO; NOT; SHL-3; REV; JSP58; J105C6Z; (look for PRINTEND);
[ --- end of photo
      ZERO;
[ photo 100_1621.JPG
50;   C6; DUP; SHL1; +;
      SETAV-17P101; +; DUP; =RM7; V3; =M0M7Q; C6TOQ7;
      V0P161; NOT; NEG; JS1P161; (last tape);
      SHC6; NEG; NOT; SHC-6; =M0M7;
      NEG; NOT; =I7; POBQ7; JSP10; (label tape);
      SET256; =M7; MWIPEQ7; I0TOQ7; V3P23; =M7; Q7; =V3P23; EXIT1;

113;  (JE sim ETW);               [ sic this this is TINT JE
      M4; J7#Z; (ignore if dealing with new tape);
      ZERO; NOT; =V1P42;     (clear ETW marker);
112;  (end tape on OUT 8 tape);
      Q4; REV; JS7; JS110; =Q4; V0P23M4; DUP; J112#Z; (empty Q);
      NOT; =RM5;
108;  V58P104M5Q; DUP; J111=Z; STR; ERASE; SET46; FLOAT;
109;  DUP; FIX; =C5; ERASE; SET3; =M7; JS6;
      JS110; SHC9; SHL1; SHC-10; STAND; DUP;
      J109#Z; =V57P104M5; ZERO;
111;  ERASE; M5; SHL-1; SHL-1; J108=Z;
      M4; J4P45=Z; V-1; V1P23; SHL-32; J91=Z; =V4; J107;

110;  JSP60; ERASE; BUSYQ7; J110TR; EXIT1;
      (wait till unit not busy);



P161V2;      (V0=reel no of mag tape)
      V1=B1212121212121212;
      V2=B1010101010101010;
      V0;
1;    V1; REV;
2;    FRB; V2; SHL+1; OR; EXIT1;
3;    V2; REV; J2;

P187V5;      (PIT 23 and 24);
      (copy V stores of P187 to and from program);
      (OUT 23 is prog to Director);

      V0=Q 5/1/AV1;
      (V1 to V5 are Director store);

      JS3;
1;    =Q6; =Q7;
$2;   M0M6Q; =M0M7Q; $J2C6NZS; EXIT1; (copy loop);
4;    JS3; REV; J1;
3;    (check nest and set N1 as 5/1/prog address);
      (N2 is 5/1/Director V stores);
      JSP62; J6; SHL32; SHL-37;
      V9P0M5;SHL24; SHL-38; SIGN; J5>=Z;
      JS2P128; V0; DUP; SHL-16; SHL16; M7; OR; J3P29;
5;    ERASE;
6;    LINK; ERASE; SETB570; JP2;


P190V1; (read prog from disc);

V0= P $NOT;
V1= P $ON$DISC;

      ERASE;
[ --------------- fold
            V0P199; =Q7; (n/2/AV0P200 - start of directory);

1;    M0M7; V45P104M5; JSP137; SHL24;
      M0M7QN; V49P104M5;; JSP137; OR; J2=Z; J1C7NZ; (search dir);

      V1; V0; V49P104M5; SHLD-24; V45P104M5; SHL24; OR;
[ photo 100_1622.JPG
      JS41P6; J20P121; (silent CRNP);

2;    M-I7; M0M7; SHL6; SHL-30; =E20M4; Q0TOQ7;
      JSP139; SET7; E20M4; JSP126; (B block);
      JS5; J131P120; J31P120; (parity - OK);

3;    (sector no in N1); J4C6Z; (test filler word);
5;    DUP; M7; I7; -; SET40; %I; ERASE; +; NOT; NEG; =E20M4;
4;    JS3P197; (abs add to Q);
      =E21M4; SET1; JS51P10;
      E21M4; =Q7; JSP128; SET1; JSP10;
      ZERO; V77P104M5; SHLD-1; SHL1; =V77P104M5; J4P45<Z; (parity);
      EXIT2;

P191V1;      (OUT 21 fetch secotr of sub index);   [ sic
      (V0=length/-/first sector);
      V1=0; (first free sector);

      V0; J1P24;
1;    V1; J1P24;         (fetch first free sector);



P192; (OUT 20 - test disc parity);
      Q7; =V19P0;
      JS3P29; (erase OUT no); JS35P0; Q0TOQ7;
1;    JSP139; (suspend till transfer ended);
      Q4; V0P198; NEV; SHL-33; J1=Z; (split transfer in progress);
      V77P104M5; DUP; SHC-1; J1P45>=Z; (jump if no parity);
      NEG; NOT; =V77P104M5; (clear parity);
      V1P104M5; DUP; SHC1; J1P45<Z;
      SHC-2; =V1P104M5; EXIT1;


P193V0;
      V0=P UPDATE$$;

      JSP62; J1P194; J5>=Z;
      V41P104M5; V0; NEV; SHL-12; J4P194#Z;
5;
      JSP133; J1P194; JS3P29; JS35P0; (check I/L/H allowing read only);
      V77P104M5; SHC-1; J2P194<Z; (parity);
      JS1P29; J6P194; =V49P104M5; (sectort number);
      JSP139;
      JS1P128; V49P104M5; JS3P197; J99P194; (do abs sector transfer);

P194;  (OUT 19 - disc transfer);

      JSP62; J1; ERASE;
      JSP133; J1; JS3P29; JS35P0; (deal with I/L/H);
      V0P1;

      V77P104M5; SHL32; SHC-33; STR; J3#Z; (parity);
      SET384; xD; CONT; (no of sectors claimed);
      REV; DUP; SHL24; SHL-24; REV; SHL-24; (N1=l,N2=s);
      SET384; xD; CONT; +; (start sector); DUP; =V49P104M5;
      M7; I7; -; SET40; %I; ERASE; +;
      SIGN; J1<=Z; (check with top sector claimed);
[ ----------- fold
      JS3P29; J6;

      JSP139; (suspend);
      JS1P128;
      V49P104M5; JSP197; (transfer to Q);
99;   JS50P10; I4; =+C4; M+I4; (change subprog);
[ photo 100_1623.JPG
      JS1P128; C0TOQ7; ZERO; JSP10; J99P23;

4;    ERASE;
1;    SETB540; (parameters wrong);
5;    JP2;
6;    SETB530; JP2;
3;    ERASE; ERASE;
2;    SETB550; JP2;  (parity);


P195V0;    (deallocate disc);
      JS3P29; JS35P0;
      ERASE; ERASE;
2;    V77P104M5; J4P45=Z;
5;    M0TOQ6; I6=+2; C4; SHL-1;
4;    V0P198M6Q; DUP; NOT; J3=Z;
      SHL-33; J4#; ERASE; JS4P10; J5;

3;    NOT; =V69P104M5; ERASE; ZERO; DUP;
      =V73P104M5; =V77P104M5;
1;    JS21P45; =V0; EXIT1;



P196V3; (OUT18 - allocate);

V0=Q 0/0/-1;
V1=Q -1/0/0; (black areas);
V2=Q -1/-1/128; (2*no of blocks)
V3=B 4162454163777777; (areas);
      JSP62; J9; DUP; JP195=Z; (deallocate if 0);
      DUP; J11<Z; (check negative);
      DUP; +; V2; =Q7; M7;+; NEG; NOT; SHL-8; J10#Z; (more than available);
      =E20M4;
      V77P104M5; J12#Z;
3;    SET4; =RC7;
      V2; DUP; SHL-1; E20M4; +; =RC6; V1; ZERO; (black blocks #0);
1;    V69P104M7; OR; PERM; V73P104M7; OR; PERM; V77P104M7Q;
      DUP; SHL-1; =+C6; OR; PERM; J1C7NZ; (form storage map);
      (C6=no allocated + reqd + blacks);

      Q6; STR; ERASE; SHL-32; DUP; NEG; NOT; SHL-7; J2=Z; (enough room left);
      (suspend);SET128; -; (no of areas needed);
      JS1P161; SHL30; JSP55; JS14P58; SHL-18; SHLD-30;
      ERASE; V3; REV; V0P58; JS30P6; (wanted by L dd areas);
      ERASE; ERASE; ERASE;
      ZERO; SET3; SHC-2; DUP; JS2P10; ERASE; ERASE; J3;

11;   ERASE;
10;   ERASE;
9;    SETB500;
      JP2; (allocation too big);

12;   SETB510; JP2; (ask twice);
2;    (disc free map in nest); ERASE; DUP; =Q6; V0; OR;
      JS3P29; JS35P0; (erase no of areas);

      CAB; ZERO; NOT; SHL-32; OR; PERM; (scrub off no of blocks);
      E20M4; =RC7; M5TOQ7; (Q7=n/1/priority);
[ ----------- fold
      ZERO; ZERO; NOT; CONT; (pointer);
      Q6; Q0TOQ6; J7=Z; SHL-16; (other start);

6;    REVD; CAB; (next word);
      Q0TOQ6;
[ photo 100_1624.JPG
      M7; SET4; +; SET12; %I; =M7; ERASE; (current address??);

7;    DUPD; AND; J5#Z; DUP; =+Q6; DC7; J8C7Z; (add bit);

5;    SHC-1; DUP; J7>=Z; (cycle words);
8;    Q6; =V69P104M7; J6C7NZ; (allocate);
      V77P104M5; E20M4; SHL+1; OR; =V77P104M5; (no of areas);
100;  ERASE; J12P45;



P197; (transfer to disc Q);
(C4=subprog, Q7=core,M1=disc addr);    [ SIC

      ZERO; (logical address);
4;    SET1; =RC6; I6=+2;
      REV; SET96; %I; REV; SHL24; OR; REV;
1;    V0P198M6Q; NOT; J1#Z; (look for end);
      J2C6NZ; ZERO; JS21P45;
      CONT; =V-2P198M6Q; (Q now not empty);

2;    C4; SHLD1; REV; ERASE; SHL7; SHLD24; =V-2P198M6; (search);
      SHL16; C7; SHL-47; SHLD-2; (read/write);
      ERASE; C4TOQ7; Q7; OR;
      ZERO; NOT; DUP; =V0P196M6; (end fo Q marker);
      CONT; =V-1P198M6; EXIT1;

3;    ZERO; NOT; J4; (abs address);


(disc Q    A search   0/     /subprog//*   position);
(disc Q    B transfer 1/W/sec/subprog//lowcore//highcore);
(W == Q read / 1 write);  (* ==programmer disc address / 1 absolute add);


P198V13;      (deal with disc Q);
V0=-1; V2=-1;
(V stores are the Q);
(V11=repeat count);
      V12=P {CN}DISC{S};
      (V13 is dump far ans);

      SETB16; =RC7; (unit no);
      BUSYQ7; J4P45TR;

      V0; DUP; NOT; J1P45=Z; (Q empty);
      STR; J16=Z; SHL-33; =M5; (jump iflast ransfer search);  [ sic
      PARQ7; J1NTR;

      M5; J35P0=Z;
      V11; DUP; NEG; NOT; =V11; J2#Z; (repeat on parity);
      V76P104M5;
      ZERO; NOT; NEG; OR; =V77P104M5; (set parity marker);
1;    V2; DUP; NOT; J9=Z;
      SET5; =V11; (5 repeats);
      V3; JS4; =Q7; =C7;
      DUP; SHL-32; DUP; =M4; SHL-1; =M5; (new priority);
      V11P11M4; STR; ERASE; =V11P11M4; (clear QD transfer);
      PMHQ7; (set LO);
      DUP; SHL16; J10<Z; (logical addressing);
      SHC-2; DUP; NOT; NEG; =C5;
[ photo 100_1625.JPG

[ This photo is a duplicate of 1624
[ photo 100_1626.JPG -- checked by BAW
[ -------- fold
      V76P104M5; V72P104M5; V68P104M5; (store map);
      ZERO; ZERO; NOT; CONT; (pointer);
      Q0TOQ6;
7;    DUPD; AND; J5=Z; DC5; J8C5Z;
5;    SHC-1; DUP; DC6; J7>=Z;
      REVD; CAB; J7; (next word);

8;    ERASE; ERASE; ERASE; ERASE; C6; NEG;
      SHL41; STR; NEG; REV; SHL-40; OR;


      SHLD+40; Q7; OR; ZERO; NOT; CONT; =Q7; ERASE;

11;   IM0TOQ7; PMAQ7; (set seek);

      VR; V3; DUP; SHL12; SHL-12; =V0; =Q7;
      M7; I7; -; SET40; %I; ERASE; (no of sectors -1);
      SET95; Q7; SHL2; SHL-40; -;
      REV; MAX; ERASE; J14V; (smalltransfer);   [ sic
      NOT; NEG; (no of sectors in this transfer);
      SET40; xD; CONT; DUP; NEG; NOT; =M7; M+I7; (core addresses);
      SHL16; V3; +; SHC2; SHL10; SHC-12; =V3; (sector no =zero);
      Q7; =V1; V2; NOT; NEG; =V2; (area no incremented);
      J50;

4;    C7; REV; JSP103; J3; EXIT1;
3;    V1; V2; NEV; SHL12; SHL-44; J4P45=Z; (do split transfer);
      LINK; V100P196; (not split so suspend);

10;   SHL6; SETB16; OR; =C7; J11; (abs add);
14;   ERASE; ZERO; =RC7; (transfer in one);
15;   V3M7; DUP; =V1M7Q; NOT; J15#Z;
50;   JP198;

9;    =V0; EXIT1;
2;    ZERO; SETAV12; DUP; NOT; NEG; JSP8; (out put DISC on flex);
      V0; SETB16; =C7; (resetting dv no);
16;   DUP; JS4; ZERO; NOT; CONT; =V0; REV; ERASE;

      V1; DUP; SHL2; SHC10; SHL4; CAB; OR; SHC-16; =Q7;
      SHL1; J17<Z;

      PIAQ7; EXIT1;
17;   POAQ7; EXIT1;

P199V4;      (disc list and prog list);
      (V0= n/2/AV1P199);
      (prog list + disc list sector and ident);
      (wd 1 D0 is MT bit);
      (V1-4 are OUT 8 idents);



P200V5;            (phase 0);
      V0/1=P {C}LENGTH$0000$WDS;
      V2=P {C}DISC16D; (disc descriptor);
      V3/4=P {C}LAST$SEC$000000;
      V5=B 12121212120101;


      K4; ERASE; V2; =V14P26;
      V0P11; =Q4;
      JSP3211; (title);
      I4; =+C4; M+I4; (leave subprog for TINT);
[ ----- fold
      JSP300; I4; =+C4; M+I4; (date);
      JSP301; I4; =+C4; M+I4; (time);
      JSP299; I4; =+C4; M+I4; (prime disc);
      JSP302; I4; =+C4; M+I4; (OUT 8 reel no);
      JSP304; I4; =+C4; M+I4; (A progs);



[ photo 100_1627.JPG -- checked by BAW
      JSP303; I4; =+C4; M+I4; (PTin);
      JSP306; I4; =+C4; M+I4; (OUT 8 claimer);
1;    JSP60; JS4P60; JSP100;      JSP59;      JSP198;      JSP11;
      ZERO; =V0P101;
      V16P0; J4=Z; JSP400;
4;    ERASE; J4NEN;
      SET8; =RC4; ZERO;
$2;   V1P11M4Q; $OR; J2C4NZS; J1#Z; (wait till OK to go);
      M1; SETAY544; -; =RC4; SETAV0P200; =M4;
      M4TOQ6; CI1TOQ6; NC6; Q6; =V0P199;
      SETAY544; =RM5; M4; C4; +; NEG; NOT;
      SHL-5; NOT; NEG; SHL5; DUP; =V0P117;
      V5; REV; FRB; SHL6; V1; OR; V0; JS20P6;
      (Director size);
      V2P161; V0P299; JS2P161; SHL12; SHL-12; V4; OR; V3; JS20P6;
      JSP49; JS35P0; (print store available);
$3;   M0M5Q; =M0M4Q; (shift disc directory);
      $J3C4NZS; J23P0; (enter Director);
P3211V4; (title);
      V0/2=p {cn}UNIVERSITY$OF$OXFORD$-;
      V3/4=p $DISC$DIRECTOR{cc};

      V4; V3; V2; V1; V0; SET5; JP6;
P300V6;
      V0/1=p {cnnn}DATE$$D/M/Y{q};
      V4=B7473575675735756;
      V5=B1212011212011212;
      V6=P 00/00/00;
      ZERO; SETAV0; SETAV3; JSP8;
      SETAV2; =Q6; JS10P32; J1;
      DUP; J1=Z; =I5; JS10P32; J1;
      DUP; =C5; SET13; SIGN; JP300>=Z; JP300C5Z; JS10P32; J1;
      DUP; SET100; SIGN; J1>Z; DUP; SET68; SIGN; J1<Z;
      DUP; =M5; V4; REV; SHL46; J2#Z; SHC24;
2;    SHCC5; SHCC5; SHL-46;
      SET28; +; I5; SIGN; JP300<Z;
      I5; SET100; xD; CONT; C5; +; SET100; xD; CONT;
      M5; +; V5; REV; FRB; V6; +; =V3P120;
      JSP3212; JP300; EXIT1;

1;    ERASE; JP300;
P301V2;
      V0/1=P {cn}TIME$HRS/MINS{q};
      ZERO; SETAV0; SETAV2; JSP8;
      SETAV2; =Q6; JS10P32; J1;
      DUP; SET24; SIGN; J1>=Z; SET3600; xD; CONT; =Q5;
      JS10P32; J1;
      DUP; SET60; SIGN; J1>=Z;
      SET60; xD; CONT; Q5; +; SHL24; =V0P0; EXIT1;
1;    ERASE; JP301;
P302V5;      (OUT reel no and stream count);   [ sic
      V0/1=p {cn}OUT$8$REEL$NO{q};
      V3/4=p {cnn}STREAM$COUNT{q};
      ZERO; SETAV0; SETAV2; JSP8;
      SETAV2; =Q6; JS10P32; JP302<Z; =V0P161;
1;    ZERO; SETAV3; SETAV5; JSP8;
      SETAV5; =Q6; JS10P32; J1<Z; DUP; =V-1P155; =V4P155;
      EXIT1;

p303V10;
      V0=Q 1/AY1/AY31;
      V1=P {cn}FAIL{cd};
[ ------ fold
      V2=b 776/8;
      V3=B 37003700177400;
[ photo 100_1628.JPG -- checked by BAW
      V4=P U00{scn}00;
      V7/8 = P USER$AREAS{EM};
      V9/10=P {nc}P{c}DIRE----SWAP;
      V1; =Y0; JSP305; J2; JSP32; J2<=Z; =V0P299;
1;    V1; =Y0; JSP305; J2;
4;    JSP32; J5; =C7;
      V2; V3; SHLDC7; REV; ERASE; J2>=Z;
      V4; C7; SHLD-3; SHL3; OR; SHC21; =V5;
7;    JSP32; J8; =C7; ZERO; NOT;
9;    =V6; C7; SHL-4; J2#Z; SET7;
      V5; C7; SHLD-3; SHL3; OR; SHC9; C7; =M7; DUP; =V0P26M7;
      SHL17; J10<Z; ERASE; SET1;
10;   C7; SIGN; J2>Z; V6; J7#Z; J1P303;
8;    DUP; =C7; J1P303<Z; ZERO; J9;
6;    JSP305; J2;
      JS10P32; J2;
      DUP; SHL12; =V0P45; NEG; NOT; SHL-3; J2#Z;
      JSP305; J2; SET3; =RC5; (black blocks);
11;   JS10P32; J3; =V0P196M5Q; J11C5NZ;
      ZERO; NOT;
3;    J2>Z; V0P196; BITS; V1P196; BITS; +;
      V2P196; SHL-16; DUP; BITS; CAB; +; (no of blacks);
      DUP; SET128; REV; -; JS1P161;
      SHL30; SETB207; OR; SHC-12; V8; V7; CAB;
      SET3; JSP6;
      SHC-15; OR; SHC16; =V2P196; (inserted in Director);
      JP3213;
12;   JSP305; J2; (A block);
      Y1; V9; JSP137; Y2; V10; JSP137; OR; J2#Z; (chack ident);
      V0; =Q7; SET7; =M7; M+I7; PIAQ7;  JS2P305; J2; (B block);
      M0M7; =Q6; M-I6; I7TOQ6; M+I6; IM6TOQ7; PIAQ7; (C block);
      JS2P305; J2; SET B16; =C7; ZERO; JSP10; (wait for disc);
      PMAQ7; POCQ7; (dump dirswap); EXIT1;
2;    Y5; Y4; Y3; Y2; Y1; Y0; SET6; JSP6;
      SET1; =C7; MANUALQ7; J36P0;
5;    J6<Z; J1P303;
P304V8;
      V0=P {cn}APROG{q};
      V4=P {cn}TYPES{q};
      V7=P {cn}STORE{q};
      ZERO; =V3;
16;   ZERO; SETAV0; SETAV2; JSP8;
      V1; SHL-42; SETB65; J1=; SETB56; NEV; J4P45=Z;
      ZERO; =TR; SETAV1; =Q6;

17;   JSP32; J18; ZERO; NOT; =TR; DUP; SHL-2; J19=Z; J16#Z;
19;   SHA1; DUP; SHA1; +; SET43; REV;
      V3; NOT; NEG; =V3; -; =C5; SET1; SHLC5;
      V0P104; OR; =V0P104; J17;
18;   J16>=Z; J16NTR;
20;   ZERO; SETAV4; SETAV6; JSP8;
      SETAV5; =Q6; JSP48; J20;
25;   ZERO; SETAV7; DUP; NOT; NEG; JSP8;
      SETAV8; =Q6; JS10P32; J25<Z;
      SHL-5; SHL5; DUP; =V6P120; V3; xD; CONT; V0P45;
      V0P117; -; -; J25>Z; EXIT1;
1;    (usual details);
      ERASE; ZERO; NOT; NEG; SHL37; V0P104; OR; =V0P104;
      ZERO; NOT; =V5P120;
      V0P45; V0P117; -; -; J16>Z; EXIT1;
P305;
      V0P303; =Q7;
1;    PIBQ7;
[ -------- fold
2;    SET1; JSP10; I7; =Q6; PARQ7; J4P45TR; EXIT2;

P306V0; (claim and label OUT 8 tape);
[ ------ from image 1678
      V0=0;
      JP299;
3;    V0; J9P299#Z; =V0; (this way once only);
[ photo 100_1629.JPG -- checked by BAW
      C6TOQ7;
1;    V5P11; C7TOQ6; J2=Z; ZERO; JS3P10; J1; (wait till OUT 8 REEL typed);
2;    SET1; JS50P155; ZERO; JSP10; (label)
      ZERO; NOT; =Y64;
      SETAY64; DUP; SHL16; OR; =Q6; IM6TOQ7; MLWQ7;
      ZERO; JSP10; EXIT1; (LB written);


P400V5; (TINT for phase 0);
      V0=P {cn}AGAIN{d};
      V1=P {cn}TINT{dq};
      (V2,3 have ans);
      V4=B 036122002/26; (valid EFGHLNQZ);
      (TINT params);

      V1P11; J4P45#Z;
      ZERO; =V16P0; (clear TINT marker); SETAV1;
2;    V0P11; =Q4; SHL16; SETAV3; OR; ZERO; NOT; CONT; =V5P4;
      JS20P45; JS50P10; SETAV2; =Q6;
      JSP31; J3; SET-33; =+C7;
      V4; JS10P3; J3; JS1; J3; (fails);
      V0P11; =Q4; EXIT1; (TINT accepted);
3;    SETAV0; J2; (inserting AGAIN);
1;    =LINK; EXITAR6;

$6;   JP37; EXIT2; JP39; JP40;
      JP44; JP46; JP49; JP72;


P3212V11;          (check day);
      V0=B 0702435045435300;
      (V1= first part of day of week);
      V2=B4406410671070734;
      (V3= answer);
      V4=Q 0/AV0/AV3;
      V5=B0763060665065606;
      V6=B0755060657065606;
      V7=B0764066506450663;
      V8=B6706064544564563;
      V9=B6406065065066263;
      V10=B0746060662065106;
      V11=B6306064164650662;
      I5; C5; M5; JSP3214; =M3; V5M3; =V1;
1;    SET1; SETAV0; SETAV3; JSP8;
      V3; SHL-42; SETB56; J3P45=; SETB71; NEV; J1#Z;
      JSP3215; EXIT2;
P3214V0;            (find day of week);
      V0=B 3407156335633463;
      I0TOQ6; DUP; REVD; NEG; NOT; DUP;
      NEG; NOT; J1>Z; I6=-1;
1;    SHL2; =C6; V0; SHLC6; BITS; -;
      ZERO; CAB; SHLD-2; REV;
      J2#Z; I6; +;
2;    +; +; SET7; %I; REV; ERASE; EXIT1;


P3213V5;      (read prog idents);
      (fail job   OUT8    prog list);
      V0=Q 1/AY544/AY607; (standard);
      V1=Q 1/AY544/AY547; (OUT 8 idents);
      V2=P $$FAXOUT;
[ --fold
      V3=P {c}IDENTS{c};
      V4=Q 1/AY544/AY545;
      V5=P FAXFAILJ;

      V4; =Q7; JS1P305; J2;
      JS5; M0M6QN; REV; SHLD-24; ERASE;
      V5; NEV; J2#Z; (fail if not FAILJOB);
[ --- from image 1678
      Y544; =V2P2; Y545; =V3P2;
      V1; =Q7; JS1P305; J2; SET2; =Q6; I6=+2;
3;    JS5; SHL24; SHL-1; SETB37; SHLD-6; ERASE; DUP; =M0M6;
      M0M6QN; NEV; SHLD24; SHLD-60; ERASE; V2; NEV; J2#Z; J3C6NZ;
[ photo 100_1630.JPG -- checked by BAW
      SET4; =RC6; 
$6;   Y544M6;   $=V1P199M6Q; J6C6NZS;
      V0; =Q7; JS1P305; J2; SET32; =C6; I6=+2;
1;    JS5; SHL24; SHL-18; SETB77; SHLD-6; ERASE; =M0M6Q; (M tape bit and react count);
      J1C6NZ; ZERO; NOT; =V17P299; (disc prime is go);
      J12P303;

4;    LINK; ERASE; ERASE;
2;    Y547; Y546; Y545; Y544; V3; SET5; JSP6;
      V0; =Q7; MANUALQ7; JP3213; (repeat);
5;    M0M6; DUP; JSP119; J4; J4; J1P45; (check 070202);


P299V26;      (prime disc with M and R);
      (V0=initial system address);
      V1=Q B100000/AYZ0/AYZ255;
      V2= Q 0/AYZ0/AYZ0;
      V3=P +DISCTAP;
      V4=B07025502;
      V5/6=P {c}DISCTAP$NEEDED$;
      V7=P {c}$ZERO$$;
      V8/10=P {cn}DISCPRIME$FAILS$AFTER;
      V11/12=P {cn}DISCPRIME$ENDS;
      V13=-1;
      V14/15=P {nccc}-DIRECTORMAR;
      V16=0;
      (V17=prog start sector);
      V18=Q 32/2/AY544;
      V19=Q -32/2/AY608; (Q1 set for end fo prog list);   [ sic
      V20=0;      (OFORM and -1 for R);
      V21=B 07026202;      (R);
      V22=Q B100000/AYZ0/AYZ255;
      V23=Q B100000/AYZ256/AYZ511;       (buffer words for R transfers);
      V24=B 07026402;      (T);
      V25=0;      (blk count for libry);
      V26=P {c}IGNORE$;

      V0P26; =Q6; (look for DISCTAP);
1;    SETB10544; JS2P26; J30; ERASE; JSP131; =M7; V-17P101M7;
      DUP; V3; NEV; ZERO; =V13; J8=Z; J1#Z; ZERO;
8;    V0P26M6; DUP; SETB11; SHL18; -;
      SETB44; OR; DUP; =V0P26M6; SET1; JSP6; (claim DISCTAPE);
      REV; J3P306=Z; (OUT 8); V16; J9#Z; =V16; (thou shalt pass this way but once);
      C6TOQ7; SETAY544; =RM1; I1=+2;
      SETAYD0; =RM2;      (index count);
12;   V19; =Q1; V17; J2#Z;
      ZERO; JS3P10; J12; (wait till prog list in);
2;    IM0TOQ7; MFSKQ7; ZERO; JSP10; PARQ7; MLBQ7; ZERO; =TR;
3;    (read A block); V1; =Q6; IM6TOQ7; MFRQ7;
      ZERO; JSP10; I7; =M6; PARQ7; J100TR; MLBQ7;
      J101TR; M0M6; SHL-24; V21; J20=;
      V24; J20=;
      V4; NEV; J2#Z; ZERO;
      V20; J2#Z; (M after R);
      M0M6; =V45P104M5; M0M6N; =V49P104M5;
[ -- fold
      MFRQ7; (read B block);  ZERO; JSP10; PARQ7; J100TR; M0TOQ7; M+I7;
      E5M7; J2#Z; (reject MTPR);
      E2M7; V45P104M5; NEV; E3M7; V49P104M5; NEV; OR; J100#Z; (B and A differ);
      E2M7; DUP;SETB11; SHC-18; -; =E2M7; (M to D);
[ photo 100_1632.JPG -- checked by BAW
[ -- there is no photo 100_1631
      ERASE; SET7; =+M7;


4;    M0M7; =Q6; IM6TOQ7; V2; =+Q7;
      MFRQ7; Q6; =E20M4; ZERO; JSP10; PARQ7; J100TR;
      E20M4; =Q6; J4C6NZ; (prog in core);
      C7; =E20M4;
      YZ7; SHL16; SHL-32; SHL16; M6; OR; DUP; =YZ7; =Q5; (filler word);
      YZ0; SHL24; J6=Z; (no check sum);
      M5; I5; DUP; =RM5; -; =C5; ZERO;
$7;   YZ0M5Q; $+; J7C5NZS; YZ0M5; NEV; J100#Z; (check sum);
6;    M0TOQ5; V0; V1; DUP; =Q7; REV; JS3P197; ZERO; ZERO; CAB; JS2P10;
      V0; =V17; (preserve prog start sector);
      V0; NOT; NEG; DUP; YZ7; V2; +; =Q7;
      M7; I7; -; SET40; %I; ERASE; NOT; NEG; +; =V0;
      DC7; JS3P197; ZERO; ZERO; C0TOQ7;
      Q7; ZERO; NOT; CONT; JS2P10;
      V77P104M5; SHC-1; J100<Z; E20M4; =C7;
      V18; =Q6; (prog is on disc so search list);
5;    C6; V49P104M5; M0M6N; JSP137; V45P104M5; M0M6Q; JSP137;
      SHL24; OR; J10=Z; NEG; NOT; =C6; J5C6NZ; (not on list);
      M1TOQ6; V49P104M5; =M0M1QN; J11; (add to end of list);
10;   ERASE; M-I6; V49P104M5; =M0M6N; (modify list to entry from tape);
11;   V45P104M5; SHL24; V17; SHLD-18; ERASE; SETB37; SHLD-6; ERASE; =M0M6; J2; (insert sector);
9;    DUP; =V0P26M6; ZERO; NOT; NEG; JSP6; J1; (retrace);

21;
20;   V20; J22<Z;
      ZERO; NOT; =V20; (set flag for R);
22;   ERASE; M0M6; SHL24; V0; SHLD24; =M0M2Q; ERASE;
      M0M6N; =M0M2Q; (form index entry);     (sec/IIII - IIIIIIII);
      ZERO; =V25;
      V1; DUP; =V22; SETB256; DUP; SHL16; OR; +; =V23; J25;
26;   V23; V22; =V23; =V22; (swap for double buffering);
25;   V0; DUP; SET7; +;
      =V0; V23; =Q6; C7TOQ6; NC7; Q6; JS27; J2; (sun chack);   [ sic
      REV; JS3P197; =Q6;       (write up block and restore Q6);
      MFRQ6; Q6; =E20M4; ZERO; ZERO; V22; JS2P10;
      E20M4; =Q7; ZERO; JSP10;
      V77P104M5; SHC-1; J100<Z; PARQ7; J100TR; (parity);
      MLBQ7; J3TR;      (jump at end of tape);
      J26;

27;   SETB254; =RC6; I7; =M6; ZERO; DUP;
$28;  M0M6Q; STR; +D;
$     J28C6NZS;
      M0M6; SHL-32; STR; +D; (blk no); SHL16;
      V25; DUP; NOT; NEG; =V25; SHLD-16; ERASE;
      M0M6Q; NEV; REV; M0M6; NEV; OR; J20#Z; EXIT2;
29;   NC7; C7; M-I2; M-I2; SET2; =+C2; M0M2N; M0M2;
      SHLD24; V26; JS30P6; =C7; EXIT1;

24;   (end of tape I R read);
      NC2; C2; SHL32; V0; OR; =V0P161; (set up first sector of index);
      C7; =E20M4;
      M-I2; M2TOQ7; SETAYD0; =I7; NC7;      (set up write index);
      V0; DUP;
      M7; I7; -; SET40; %I; ERASE; NOT; NEG; +; =V0;
      JS3P197;       (write index);
      V0; =V1P191;
      ZERO; ZERO; C0TOQ7; Q7; ZERO; NOT; CONT; JS2P10;

[ photo 100_1633.JPG
      E20M4; =C7;
      V77P104M5; SHC-1; J100<Z; J103;

30;   (disc tape not L);
      V0P100; V13; OR; J31#Z;
      V6; V16; J32#Z; V5; J33;
34;   V9; V8; J30P6;    (fail);
32;   V0P306; J34#Z; V7;
33;   JS20P6; ZERO; NOT; =V13;
31;   ZERO; SET3; SHC-2; DUP; JS2P10; ERASE; ERASE;
      JP299; (go back to look again);
100;  M-I1; M0M1N; M0M1; SET1; =+C1;
      SHLD+24; ZERO; =V77P104M5;  V10; V9; V8; SET5;
102;  C7; =M6; SETB21000; JS10P100; JP6;
101;  V20; J24#Z;
103;  V12; V11; SET2; J102;
P3215;
      EXIT1;

      FINISH;

[ early finish for proof reading

P45;  1; 2; 3; 4; 12; 20; 21; 22; 23; 31;  MRWDQ0;
P104V100;  MRWDQ0;
     FINISH; )))     FINISH; )))
||||
@@@@