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