[ photo 100_1615.JPG
      JSP126; JSP102; PIAQ7; ZERO; JSP10;
      PARQ7; J29TR;            [ sic
29;   PMCQ7; PMFQ7; J25TR;
      V29P104M5; SHL+3; J105>=Z;
      I7; =M6; M0M6; V45P104M5;
      JSP137; M0M6N; V49P104M5; JSP137; OR;
      J23#Z;
30;   (read B-block)
      ZERO; NOT; =E20M4;
      JSP102; PIAQ7; ZERO; JSP10;
      PARQ7; J31NTR;
131;  SET4; JSP121;
31;   I7; =M6; E2M6; V45P104M5; JSP137;
      E3M6; V49P104M5; JSP137; OR; J32=Z;
      SET5; JP121;
32;   (check and assign store requirement)
      M0M6N; SHL+24; SHL-24; (req); V1P104M5; (limit)
      DUP; PERM; J60=Z;
      DUP; J33=Z;
37;   DUP; CAB; SIGN; J34<=Z;
63;   ERASE;
39;   SET6; JP121;
60;   REV; ERASE; DUP; J61=Z;
      V0P45; V0P117; -; REV; J37;
61;   (zero limit and req); Q7; =V1P104M5;
62;   ERASE; V1P101; JSP117; ZERO; DUMMY; DUMMY;
      SHL-32; SHL+9; V9P0M5; +; DUP; =V9P0M5;
      SHL+24; SHL-38; NOT; NEG; SHL+5;
      FRB; V4; OR; =V14;
      V24P0M5; JSP55; OR; =V11;
      ZERO; SETAV11; SETAV15; JSP8;
      SETAV15; =Q6; JS11P32; (read ans from V15);
      ERASE; DUP; DUMMY; (no size means full store);
      DUP; CAB; SIGN; J62>Z;
      V1P104M5; =Q7; I7; =M6; DUP; J63<=Z;
      ZERO;
33;   ERASE; DUP; M0M6N;
      OR; =M0M6N;
34;   NEG; NOT; SHL-5;
35;   DUP; V9P0M5; SHL+24; SHL-38;
      SIGN; J38<=Z;
      Q7; JSP117; J36;
      SHL-32; SHL+9; V9P0M5; +;
      =V9P0M5; =Q7; J35;
36;   REV; =V1P104M5;
      SET1; ZERO; CAB; JSP134; J39;
      V1P104M5; J35;
38;   V9P0M5; SHC-24; SHL+10; OR; SHC+14;
      =V9P0M5; ZERO;
40;   (check filler word);
      =V1P104M5; M0M7; =Q6;
      IM6TOQ7; SET6; I7; SIGN; M7; I7;
      SIGN; NOT; AND; M7; SIGN; M7; I7;
      SHL+5; =M6; M0M6N; SHL+24; SHL-24;
      SIGN; AND; J41<Z;
      SET7; JP121;
41;
      E20M4; J141C6NZ; ZERO; =E20M4;
141;  DUP; J143>=Z; ERASE;
      JSP128;
[ --- fold
      JSP102; PIAQ7; ZERO; JSP10;
      PARQ7; J42NTR;
142;  SET8; JP121;
143;  C0TOQ7; Q7; REV; JSP128; JS3P10; J142; (C block from disc);
42;   M7; I7; DUP; =RM6; -; =C6; V1P104M5;