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