[ photo 100_1632.JPG
[ -- there is no photo 100_1631
      ERASE; SET7; =+M7;


4;    M0M7; =Q6; IM6TOQ7; V2; =+Q7;
      MFRQ7; Q6; =E20M4; ZERO; JSP10; PARQ7; J100TR;
      E20M4; =Q6; J4C6NZ; (prog in core);
      C7; =E20M4;
      YZ7; SHL16; SHL-32; SHL16; M6; OR; DUP; =YZ7; =Q5; (filler word);
      YZ0; SHL24; J6=Z; (no check sum);
      M5; I5; DUP; =RM5; -; =C5; ZERO;
$7;   YZ0M5Q; $+; J7C5NZS; YZ0M5; NEV; J100#Z; (check sum);
6;    M0TOQ5; V0; V1; DUP; =Q7; REV; JS3P197; ZERO; ZERO; CAB; JS2P10;
      V0; =V17; (preserve prog start sector);
      V0; NOT; NEG; DUP; YZ7; V2; +; =Q7;
      M7; I7; -; SET40; %I; ERASE; NOT; NEG; +; =V0;
      DC7; JS3P197; ZERO; ZERO; C0TOQ7;
      Q7; ZERO; NOT; CONT; JS2P10;
      V77P104M5; SHC-1; J100<Z; E20M4; =C7;
      V18; =Q6; (prog is on disc so search list);
5;    C6; V49P104M5; M0M6N; JSP137; V45P104M5; M0M6Q; JSP137;
      SHL24; OR; J10=Z; NEG; NOT; =C6; J5C6NZ; (not on list);
      M1TOQ6; V49P104M5; =M0M1QN; J11; (add to end of list);
10;   ERASE; M-I6; V49P104M5; =M0M6N; (modify list to entry from tape);
11;   V45P104M5; SHL24; V17; SHLD-18; ERASE; SETB37; SHLD-6; ERASE; =M0M6; J2; (insert sector);
9;    DUP; =V0P26M6; ZERO; NOT; NEG; JSP6; J1; (retrace);

21;
20;   V20; J22<Z;
      ZERO; NOT; =V20; (set flag for R);
22;   ERASE; M0M6; SHL24; V0; SHLD24; =M0M2Q; ERASE;
      M0M6N; =M0M2Q; (form index entry);     (sec/IIII - IIIIIIII);
      ZERO; =V25;
      V1; DUP; =V22; SETB256; DUP; SHL16; OR; +; =V23; J25;
26;   V23; V22; =V23; =V22; (swap for double buffering);
25;   V0; DUP; SET7; +;
      =V0; V23; =Q6; C7TOQ6; NC7; Q6; JS27; J2; (sun chack);   [ sic
      REV; JS3P197; =Q6;       (write up block and restore Q6);
      MFRQ6; Q6; =E20M4; ZERO; ZERO; V22; JS2P10;
      E20M4; =Q7; ZERO; JSP10;
      V77P104M5; SHC-1; J100<Z; PARQ7; J100TR; (parity);
      MLBQ7; J3TR;      (jump at end of tape);
      J26;

27;   SETB254; =RC6; I7; =M6; ZERO; DUP;
$28;  M0M6Q; STR; +D;
$     J28C6NZS;
      M0M6; SHL-32; STR; +D; (blk no); SHL16;
      V25; DUP; NOT; NEG; =V25; SHLD-16; ERASE;
      M0M6Q; NEV; REV; M0M6; NEV; OR; J20#Z; EXIT2;
29;   NC7; C7; M-I2; M-I2; SET2; =+C2; M0M2N; M0M2;
      SHLD24; V26; JS30P6; =C7; EXIT1;

24;   (end of tape I R read);
      NC2; C2; SHL32; V0; OR; =V0P161; (set up first sector of index);
      C7; =E20M4;
      M-I2; M2TOQ7; SETAYD0; =I7; NC7;      (set up write index);
      V0; DUP;
      M7; I7; -; SET40; %I; ERASE; NOT; NEG; +; =V0;
      JS3P197;       (write index);
      V0; =V1P191;
      ZERO; ZERO; C0TOQ7; Q7; ZERO; NOT; CONT; JS2P10;