[ 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;