[ photo 100_1605.JPG
$1;   STR; V16P0M6; OR; =V16P0M6Q;
      SHL+1; J1C6NZS;
      ERASE; OR; =TR; J8NTR;
      JSP64; (test priorities);
      (flex or clock); ZERO; NOT;
      K5; SHL-1; SET4; =RC6;
7;    SHL+6; STR; V0; AND; V9P104M6;
      +; =V9P104M6Q; J7C6NZ;
      ERASE; JS10; V0P26; =Q6;
3;    SETB10544; JS2P26;
      J4;
      ERASE; PMBQ6; J3TR;
      (L, not on BT); SETB4000; JS10P100; J3;
4;    V0P26; =Q6;
5;    SETB10654; JS2P26;
      J6;
      ERASE; PMBQ6; J5NTR;
      (U, on BT); SETB32000; JS10P100; J5;
8;    V16P0;
6;    V19P0; OR; E7; =Q6; EXIT1;
10;   (test whether any main subprogram held up by
      lockout or busy unit can be resuledm.  If so,)
      (or if priority change or store move impending,
      set EDT marker);
      Q7; SET4; =RC6; I6=+2;
11;   V3;P11M6Q; J12>Z;
13;   J11C6NZ;
      V19P0; V0P105; OR;
14;   =V19P0; =Q7; EXIT1;
12;  V11P11M6; DUP; =Q7; J13<Z;
      J15C7Z; BUSYQ7; J16;
15;   TLOQ7;
16;   J13TR; ZERO; NOT; J14;

P61;      (OUT 10);
      ZERO; =V45P104M5; JS3P29; J4;
      V32P1; SHL-1; J4=Z;
      V0P1; DUP; J2=Z;
      DUP; JSP122;J5; J3#Z;
5;    DUP; JSP132; J3; V1P1; DUP;
      JSP122; J5; ERASE; J3#Z;
2;    V1P1; J3#Z;
7;    ZERO; NOT; SHL-3;
6;    REV; JSP58;
      JSP138;
      C6; JSP131; =M6; V-18P101M6;
      JS3P29; J35P0;
      V45P104M5; J8#Z;JS3P29; J35P0;
      JS2P29; J35P0;
      J10;
8;    ERASE;
10;   JS2P29; J35P0;
      EXIT1;
3;    ERASE;
4;    SETB110; JP2;

P62;      (initial housekeeping for OUTs 2,4,8.
      Erase OUT no., check at least 1 other item
      in programs nest);
      JS3P29; J35P0;
      V32P1; J4P45<=Z;
[ ---- fold
      V0P1; DUP; EXIT2;

P63; (OUT 16);
      SETB14; J20P23;      (seet OUT 16 flag);    [ sic