[ photo 100_1624.JPG
      M7; SET4; +; SET12; %I; =M7; ERASE; (current address??);

7;    DUPD; AND; J5#Z; DUP; =+Q6; DC7; J8C7Z; (add bit);

5;    SHC-1; DUP; J7>=Z; (cycle words);
8;    Q6; =V69P104M7; J6C7NZ; (allocate);
      V77P104M5; E20M4; SHL+1; OR; =V77P104M5; (no of areas);
100;  ERASE; J12P45;



P197; (transfer to disc Q);
(C4=subprog, Q7=core,M1=disc addr);    [ SIC

      ZERO; (logical address);
4;    SET1; =RC6; I6=+2;
      REV; SET96; %I; REV; SHL24; OR; REV;
1;    V0P198M6Q; NOT; J1#Z; (look for end);
      J2C6NZ; ZERO; JS21P45;
      CONT; =V-2P198M6Q; (Q now not empty);

2;    C4; SHLD1; REV; ERASE; SHL7; SHLD24; =V-2P198M6; (search);
      SHL16; C7; SHL-47; SHLD-2; (read/write);
      ERASE; C4TOQ7; Q7; OR;
      ZERO; NOT; DUP; =V0P196M6; (end fo Q marker);
      CONT; =V-1P198M6; EXIT1;

3;    ZERO; NOT; J4; (abs address);


(disc Q    A search   0/     /subprog//*   position);
(disc Q    B transfer 1/W/sec/subprog//lowcore//highcore);
(W == Q read / 1 write);  (* ==programmer disc address / 1 absolute add);


P198V13;      (deal with disc Q);
V0=-1; V2=-1;
(V stores are the Q);
(V11=repeat count);
      V12=P {CN}DISC{S};
      (V13 is dump far ans);

      SETB16; =RC7; (unit no);
      BUSYQ7; J4P45TR;

      V0; DUP; NOT; J1P45=Z; (Q empty);
      STR; J16=Z; SHL-33; =M5; (jump iflast ransfer search);  [ sic
      PARQ7; J1NTR;

      M5; J35P0=Z;
      V11; DUP; NEG; NOT; =V11; J2#Z; (repeat on parity);
      V76P104M5;
      ZERO; NOT; NEG; OR; =V77P104M5; (set parity marker);
1;    V2; DUP; NOT; J9=Z;
      SET5; =V11; (5 repeats);
      V3; JS4; =Q7; =C7;
      DUP; SHL-32; DUP; =M4; SHL-1; =M5; (new priority);
      V11P11M4; STR; ERASE; =V11P11M4; (clear QD transfer);
      PMHQ7; (set LO);
      DUP; SHL16; J10<Z; (logical addressing);
      SHC-2; DUP; NOT; NEG; =C5;