[ photo 100_1630.JPG
      SET4; =RC6; 
$6;   Y544M6;   $=V1P199M6Q; J6C6NZS;
      V0; =Q7; JS1P305; J2; SET32; =C6; I6=+2;
1;    JS5; SHL24; SHL-16; SETB77; SHLD-6; ERASE; =M0M6Q; (M tape bit and react count);
      J1C6NZ; ZERO; NOT; =V17P299; (disc prime is go);
      J12P303;

4;    LINK; ERASE; ERASE;
2;    Y547; Y546; Y545; Y544; V3; SET5; JSP6;
      V0; =Q7; MANUALQ7; JP3213; (repeat);
5;    M0M6; DUP; JSP119; J4; J4; J1P45; (check 070202);


P299V26;      (prime disc with M and R);
      (V0=initial system address);
      V1=Q B100000/AYZ0/AYZ255;
      V2= Q 0/AYZ0/AYZ0;
      V3=P +DISCTAP;
      V4=B07025502;
      V5/6=P {c}DISCTAP$NEEDED$;
      V7=P {c}$ZERO$$;
      V8/10=P {cn}DISCPRIME$FAILS$AFTER;
      V11/12=P {cn}DISCPRIME$ENDS;
      V13=-1;
      V14/15=P {nccc}-DIRECTORMAR;
      V16=0;
      (V17=prog start sector);
      V18=Q 32/2/AY544;
      V19=Q -32/2/AY608; (Q1 set for end fo prog list);   [ sic
      V20=0;      (OFORM and -1 for R);
      V21=B 07026202;      (R);
      V22=Q B100000/AYZ0/AYZ255;
      V23=Q B100000/AYZ256/AYZ511;       (buffer words for R transfers);
      V24=B 07026402;      (T);
      V25=0;      (blk count for libry);
      V26=P {c}IGNORE$;

      V0P26; =Q6; (look for DISCTAP);
1;    SETB10544; JS2P26; J30; ERASE; JSP131; =M7; V-17P101M7;
      DUP; V3; NEV; ZERO; =V13; J8=Z; J1#Z; ZERO;
8;    V0P26M6; DUP; SETB11; SHL18; -;
      SETB44; OR; DUP; =V0P26M6; SET1; JSP6; (claim DISCTAPE);
      REV; J3P306=Z; (OUT 8); V16; J9#Z; =V16; (thou shalt pass this way but once);
      C6TOQ7; SETAY544; =RM1; I1=+2;
      SETAYD0; =RM2;      (index count);
12;   V19; =Q1; V17; J2#Z;
      ZERO; JS3P10; J12; (wait till prog list in);
2;    IM0TOQ7; MFSKQ7; ZERO; JSP10; PARQ7; MLBQ7; ZERO; =TR;
3;    (read A block); V1; =Q6; IM6TOQ7; MFRQ7;
      ZERO; JSP10; I7; =M6; PARQ7; J100TR; MLBQ7;
      J101TR; M0M6; SHL-24; V21; J20=;
      V24; J20=;
      V4; NEV; J2#Z; ZERO;
      V20; J2#Z; (M after R);
      M0M6; =V45P104M5; M0M6N; =V49P104M5;
[ -- fold
      MFRQ7; (read B block);  ZERO; JSP10; PARQ7; J100TR; M0TOQ7; M+I7;
      E5M7; J2#Z; (reject MTPR);
      E2M7; V45P104M5; NEV; E3M7; V49P104M5; NEV; OR; J100#Z; (B and A differ);
      E2M7; DUP;SETB11; SHC-18; -; =E2M7; (M to D);