[ 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;
155;  DUP; V3M6; DUP; CAB; SHL-16;