[ photo 100_1628.JPG
      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);