[ photo 100_1622.JPG
      JS41P6; J20P121; (silent CRNP);

2;    M-I7; M0M7; SHL6; SHL-30; =E20M4; Q0TOQ7;
      JSP139; SET7; E20M4; JSP126; (B block);
      JS5; J131P120; J31P120; (parity - OK);

3;    (sector no in N1); J4C6Z; (test filler word);
5;    DUP; M7; I7; -; SET40; %I; ERASE; +; NOT; NEG; =E20M4;
4;    JS3P197; (abs add to Q);
      =E21M4; SET1; JS51P10;
      E21M4; =Q7; JSP128; SET1; JSP10;
      ZERO; V77P104M5; SHLD-1; SHL1; =V77P104M5; J4P45<Z; (parity);
      EXIT2;

P191V1;      (OUT 21 fetch secotr of sub index);   [ sic
      (V0=length/-/first sector);
      V1=0; (first free sector);

      V0; J1P24;
1;    V1; J1P24;         (fetch first free sector);



P192; (OUT 20 - test disc parity);
      Q7; =V19P0;
      JS3P29; (erase OUT no); JS35P0; Q0TOQ7;
1;    JSP139; (suspend till transfer ended);
      Q4; V0P198; NEV; SHL-33; J1=Z; (split transfer in progress);
      V77P104M5; DUP; SHC-1; J1P45>=Z; (jump if no parity);
      NEG; NOT; =V77P104M5; (clear parity);
      V1P104M5; DUP; SHC1; J1P45<Z;
      SHC-2; =V1P104M5; EXIT1;


P193V0;
      V0=P UPDATE$$;

      JSP62; J1P194; J5>=Z;
      V41P104M5; V0; NEV; SHL-12; J4P194#Z;
5;
      JSP133; J1P194; JS3P29; JS35P0; (check I/L/H allowing read only);
      V77P104M5; SHC-1; J2P194<Z; (parity);
      JS1P29; J6P194; =V49P104M5; (sectort number);
      JSP139;
      JS1P128; V49P104M5; JS3P197; J99P194; (do abs sector transfer);

P194;  (OUT 19 - disc transfer);

      JSP62; J1; ERASE;
      JSP133; J1; JS3P29; JS35P0; (deal with I/L/H);
      V0P1;

      V77P104M5; SHL32; SHC-33; STR; J3#Z; (parity);
      SET384; xD; CONT; (no of sectors claimed);
      REV; DUP; SHL24; SHL-24; REV; SHL-24; (N1=l,N2=s);
      SET384; xD; CONT; +; (start sector); DUP; =V49P104M5;
      M7; I7; -; SET40; %I; ERASE; +;
      SIGN; J1<=Z; (check with top sector claimed);
[ ----------- fold
      JS3P29; J6;

      JSP139; (suspend);
      JS1P128;
      V49P104M5; JSP197; (transfer to Q);
99;   JS50P10; I4; =+C4; M+I4; (change subprog);