[ photo 100_1606.JPG


P64V7; (R/EL ratios  atc);
      V0=0; (time fo last entry);        [ sic
      V1=0; (TIME FOR ALST RESET);       [ sic
      (V2/5= scaled half ratios);
      (V6 swap impending);
      V6=0; (dump for Q6);
      V7=0; (dump for Q7);

      Q7;
      SET4; =RC6; V6; J10#Z; (to clear swaps);
      V0P0; DUP; V0;
      SHL-26; J12=Z; (not yet);
1;
      JS2; V81P104M6; -; (R/EL since last T );
      DUP; SHL24; REV; NOT; NEG;
      %; V13P104M6; JS9; SHL-36; =V7; (C7=scale factor);
      NC7; DC7; =V2M6Q; J1C6NZ;
      V1; -; SHL-30; J7=Z; (reset);
      SET4; =RC6;
8;    JS2; V2M6; SHL-3; =V85P104M6; (hangover from last minute);
      =V81P104M6Q; V3M6Q; +; REV; MAX; ERASE; J5NV;
      V0P0; =V1; (reset time);
7;    SET3; =RC7; VR;
3;    CM7TOQ6; V85p104M7; V2M7Q; +;
4;    V86P104M6; V3M6Q; +; REV; MAX; ERASE; J5NV;
11;   J4C6NZ;
      ERASE; J3C7NZ; V0P0; =V0; ZERO;
12;   ERASE; =Q7; EXIT1;
9;    SHL-46; DUP; SHL1; +; SHL2; =C7; V0P54; SHCC7; EXIT1;
5;    ERASE; Q6; =V6; Q7; =V7; M-I7; (set swap preserve Q7 Q7);
      JS91P105; =Q7; J20P45;
2;    V5P104M6; DUP; V9P104M6; +; SHLD6; SHL-24; SHLD-24; J1P45;
$10;  V9P0M6; SHL3; SHL-3; =V9P0M6Q; J10C6NZS;
      ZERO; =V0P105; Q4; Q5; V6; JS100P105; (clear swap);
      VR; ZERO; =V6; (swap cleared not done);
      =Q6; =Q5; =Q4; V7; =Q7; V1M7; J1; (carry on after point cleared);

P65;      (fetch trunk no check <B20);
      JSP32; J1; DUP; SHL-4; J4P45=Z;
1;    LINK; J3P45;
P69V1; (TINT W);
V0=0; (marker);
V1=P WEGDON.{em};

      V2P4; V1; NEV; J4P45#Z;
      ZERO; NOT; DUP; =V0; =V4P155; (set marker and TINT J);
      EXIT2;
P72V4;      (TINT Z, tape labelling 23/6/66);
      V0=B0207645617514434;
      (V1/4= answer to TN/ID);

      JSP65; SET-56; =+C7;
      DUP; =C6; =M6; ZERO; V0P26M6; SHL24; SHLD-30;
      SHL-12; SETB54; NEV; OR; J4P45#Z; (test for N to mean leave unaltered);
      J4C7Z; (if ZDDZ);JS72P58;
      JS22P58; Q6; =E20M4; ZERO; NOT;
      SETAV0; SETAV4; JSP8; E20M4; =Q6; V1; DUP; SHL-36;
      SETB5617; NEV; SET-42; =C5; J1#Z; SHL+48;
      SET6; =+C5; ZERO; NOT; =+M5;
1;    V5M5; V4M5; DUP; V3M5; SHLDC5; ERASE; PERM; SHLDC5; ERASE;
[ ----- fold
2;    JSP131; SETAV-18P101; +; =RI7; C6TOQ7; M+I7;
      =E2M7; =M0M7N; DUP; J3=Z; =M0M7; ZERO;
3;    ERASE; SET2; =+M7; MWQ7; SETB32000; JS10P100; EXIT2;
4;    (label zero,leave T.S.N. unchanged);
      (noods no subprig, useful when Director requests OUT 8 tape);
      ZERO; ZERO; ZERO; J2;