[ photo 100_1626.JPG
[ -------- fold
      V76P104M5; V72P104M5; V68P104M5; (store map);
      ZERO; ZERO; NOT; CONT; (pointer);
      Q0TOQ6;
7;    DUPD; AND; J5=Z; DC5; J8C5Z;
5;    SHC-1; DUP; DC6; J7>=Z;
      REVD; CAB; J7; (next word);

8;    ERASE; ERASE; ERASE; ERASE; C6; NEG;
      SHL41; STR; NEG; REV; SHL-40; OR;


      SHLD+40; Q7; OR; ZERO; NOT; CONT; =Q7; ERASE;

11;   IM0TOQ7; PMAQ7; (set seek);

      V2; V3; DUP; SHL12; SHL-12; =V0; =Q7;
      M7; I7; -; SET40; %I; ERASE; (no of sectors -1);
      SET95; Q7; SHL2; SHL-40; -;
      REV; MAX; ERASE; J14V; (smalltransfer);   [ sic
      NOT; NEG; (no of sectors in this transfer);
      SET40; xD; CONT; DUP; NEG; NOT; =M7; M+I7; (core addresses);
      SHL16; V3; +; SHC2; SHL10; SHC-12; =V3; (sector no =zero);
      Q7; =V1; V2; NOT; NEG; =V2; (area no incremented);
      J50;

4;    C7; REV; JSP103; J3; EXIT1;
3;    V1; V2; NEV; SHL12; SHL-44; J4P45=Z; (do split transfer);
      LINK; V100P196; (not split so suspend);

10;   SHL6; SETB16; OR; =C7; J11; (abs add);
14;   ERASE; ZERO; =RC7; (transfer in one);
15;   V3M7; DUP; =V1M7Q; NOT; J15#Z;
50;   JP198;

9;    =V0; EXIT1;
2;    ZERO; SETAV12; DUP; NOT; NEG; JSP8; (out put DISC on flex);
      V0; SETB16; =C7; (resetting dv no);
16;   DUP; JS4; ZERO; NOT; CONT; =V0; REV; ERASE;

      V1; DUP; SHL2; SHC10; SHL4; CAB; OR; SHC-16; =Q7;
      SHL1; J17<Z;

      PIAQ7; EXIT1;
17;   POAQ7; EXIT1;

P199V4;      (disc list and prog list);
      (V0= n/2/AV1P199);
      (prog list + disc list sector and ident);
      (wd 1 D0 is MT bit);
      (V1-4 are OUT 8 idents);





P200V5;            (phase 0);
      V0/1=P {C}LENGTH$0000$WDS;
      V2=P {C}DISC16D; (disc descriptor);
      V3/4=P {C}LAST$SEC$000000;
      V5=B 12121212120101;


      K4; ERASE; V2; =V14P26;
      V0P11; =Q4;
      JSP3211; (title);
      I4; =+C4; M+I4; (leave subprog for TINT);
[ ----- fold
      JSP300; I4; =+C4; M+I4; (date);
      JSP301; I4; =+C4; M+I4; (time);
      JSP299; I4; =+C4; M+I4; (prime disc);
      JSP302; I4; =+C4; M+I4; (OUT 8 reel no);
      JSP304; I4; =+C4; M+I4; (A progs);