[ photo 100_1623.JPG
      JS1P128; C0TOQ7; ZERO; JSP10; J99P23;

4;    ERASE;
1;    SETB540; (parameters wrong);
5;    JP2;
6;    SETB530; JP2;
3;    ERASE; ERASE;
2;    SETB550; JP2;  (parity);


P195V0;    (deallocate disc);
      JS3P29; JS35P0;
      ERASE; ERASE;
2;    V77P104M5; J4P45=Z;
5;    M0TOQ6; I6=+2; C4; SHL-1;
4;    V0P198M6Q; DUP; NOT; J3=Z;
      SHL-33; J4#; ERASE; JS4P10; J5;

3;    NOT; =V69P104M5; ERASE; ZERO; DUP;
      =V73P104M5; =V77P104M5;
1;    JS21P45; =V0; EXIT1;



P196V3; (OUT18 - allocate);

V0=Q 0/0/-1;
V1=Q -1/0/0; (black areas);
V2=Q -1/-1/128; (2*no of blocks)
V3=B 4162454163777777; (areas);
      JSP62; J9; DUP; JP195=Z; (deallocate if 0);
      DUP; J11<Z; (check negative);
      DUP; +; V2; =Q7; M7;+; NEG; NOT; SHL-8; J10#Z; (more than available);
      =E20M4;
      V77P104M5; J12#Z;
3;    SET4; =RC7;
      V2; DUP; SHL-1; E20M4; +; =RC6; V1; ZERO; (black blocks #0);
1;    V69P104M7; OR; PERM; V73P104M7; OR; PERM; V77P104M7Q;
      DUP; SHL-1; =+C6; OR; PERM; J1C7NZ; (form storage map);
      (C6=no allocated + reqd + blacks);

      Q6; STR; ERASE; SHL-32; DUP; NEG; NOT; SHL-7; J2=Z; (enough room left);
      (suspend);SET128; -; (no of areas needed);
      JS1P161; SHL30; JSP55; JS14P58; SHL-18; SHLD-30;
      ERASE; V3; REV; V0P58; JS30P6; (wanted by L dd areas);
      ERASE; ERASE; ERASE;
      ZERO; SET3; SHC-2; DUP; JS2P10; ERASE; ERASE; J3;

11;   ERASE;
10;   ERASE;
9;    SETB500;
      JP2; (allocation too big);

12;   SETB510; JP2; (ask twice);
2;    (disc free map in nest); ERASE; DUP; =Q6; V0; OR;
      JS3P29; JS35P0; (erase no of areas);

      CAB; ZERO; NOT; SHL-32; OR; PERM; (scrub off no of blocks);
      E20M4; =RC7; M5TOQ7; (Q7=n/1/priority);
[ ----------- fold
      ZERO; ZERO; NOT; CONT; (pointer);
      Q6; Q0TOQ6; J7=Z; SHL-16; (other start);

6;    REVD; CAB; (next word);
      Q0TOQ6;