[ photo 100_1617.JPG
3;    V0P26M6; =Q6;
4;    M0M6Q; ERASE; J10C6Z;
      JSP125; J4;
      JS1P27; (make unit U); J4;
10;   (clear BA/NOL, PHU, etc.);
      ZERO; =V37P104M5; ZERO; =V41P104M5;
      ZERO; =V33P104M5; V9P0M5; DUP; JS95P105; DUP;
      SETB147777; SHL+3; SHL-3; NOT; AND; JSP136;
      V0P104; SHCC6; SHL+4; NC6; SHL-4;
      SHCC6; =V0P104; EXIT1;

P122V1;      (check given word as mag tape identifier)
      V0=B3252326532563253;
      V1=B377727377777777/43;
      DUP; SETB77; AND;
1;    =C7; DUP; J1P45=Z;
2;    V1; ZERO; SHLDC7; REV; ERASE;
      SHLD+27; SHLD+6; DUP; J1<Z;
      ERASE; ERASE; V0; EXIT2;

P123;      (dispose of program input PTR, given in C7)
      C7; =M6; V0P26M6; DUP; SHL+24;
      SHL-42; SETB65; NEV; J1#Z;
      MANUALQ7; SHL-6; SHL+6;
1;    =V0P26M6;
      JSP124; ZERO; =E2M6; EXIT1;

P124;      (set AV0P52 or AV0P120 in M6 if program begin
    input to priority given by M5 is B or A
    respectively)
    V29P104M5; SHC-1; J1<Z;
    SETAV0P129; J2;
1;    SETAV0P52;
2;    =M6; EXIT1;

P125;      (given unit number in M6, chack if valid
      and owned by priority in M5)
      V0P26M6; JSP55; NEV; SHC+1; SHL+41; J4P45#Z;
      EXIT2;

P126;      (given priority no. in M5, set base address in
      I7 and base address+7 in M7)
      I0TOQ7; SET7; =M7; JP128;

P127;      (check given word for D0=1 and D1-11 all the same
      I.E. parameter in flex queue)
      DUP; J1>=Z;
      DUP; SHL1; SHA-44; J4P45=Z; (now D1-5 not D1-11);
1;    EXIT2;

P128;    (add base address of priority in M5 to I7 and M7)
      V9P0M5; SHL+38; SHL-33; DUP;
      =+I7; =+M7; EXIT1;
1;    V45P104M5;
2;    =Q7; JP128;
3;    E20M4; J2;

P129;    (look for item corresponding to Q7 in flex queue)
[ --- fold
      SETAV0P6; =RM6;
1;    M0M6Q; JSP127;
      J2; (parameters)
      ERASE; J1;
2;    DUP; Q7; NEV; SHL+16; J1P45=Z; (in queue)
3;    NOT; J1#Z;
      EXIT2; (not in queue)