[ photo 100_1597.JPG
7;    SETB34; NEV; J9=Z; J3C5Z;
      SET6; =+C5; M0M6; J5;
8;    SETB730; JP2; (invalid char ;);
9;    V45P104M5; J8>=Z; J8C5NZ; J8C6Z;
      I7; =M6; V24P0M5; SETB17; OR; =M0M6; JS3P29; JS35P0;
      M+I4; I4; =+C4; SETB10; JS93P105; (hold up);
      ZERO; I7; M7; JSP8; SETB10; JS94P105; J99;


P24;      (OUT 9);
      V0P0;

1;    =V0P1; Q6; J23P45;
64;   (OUT 17, originally P64);
      V5P104M5; DUP; V9P104M5; +; JS1;
      JS2P29; J65; EXIT1;
65;   SETB40; JP2; (fail nest full when OUT17 obeyed);

P25;   (decide whether prog. is A or B, given pr. in M5);
      M5; SHA+1; NOT; NEG; DUP; SHL+1;
      +; =C6; V0P104; SHCC6; J4P45<Z; EXIT2;

P26V15;      (look for unit of given type, status
      and prog. letter);
      V0=Q16/-1/16;
      V1=-1; V2=-1; V3=-1; V4=-1; V5=-1;
      V6=-1; V7=-1; V8=-1; V9=-1; V10=-1;
      V11=-1; V12=-1; V13=-1; V14=-1; V15=-1;

1;    V0; =Q6;
2;    SHC-3; DUP; J3<Z; SET6; SHLD+6;
      SHL-3; OR; J4;
3;    SHL+6;
4;    V-1M6Q; J3P45C6Z;
      ZERO; SHLD+21; SHL-3; SHLD+21; SHL-12;
      SHLD-12; ERASE; SHL-30; J4#;
      EXIT2;

P27;      (given allocated unit number in C6, M6, change
      status to U if N1=0, otherwise to P);
      J1=Z;
3;    V0P26M6; SHC-24; SHL+6; SETB60; OR;
      SHC18;
6;    DUP; SHL12; JS21P6; J9;
1;    MANUALQ6; JS4;
5;    SETB65;
8;    V0P26M6; SHL-6; SHC-18; SHL6; OR; SHC18;
      DUP; SHC-20; J9<Z; (if W);
7;    DUP; JS10P6;
9;    =V0P26M6; EXIT1;
4;    (set A prog in try);
      V0P120; J4P45>=Z; (not if prog in going on);
      ZERO; DUP; NOT; CONT; =V0P120; EXIT1;

P28;      (look for unit of given type pre-allocated
      to given program.  If found, change status to A);
      DUP; SHL+9; SETB600; OR; V13P104M5; SHL-46;
      OR; JS1P26; EXIT1; V0P26M6; SETB17; SHL+18;
      -; (P becomes A); =V0P26M6; J31P45;

P29;      (fetch, store, erase or clear nest, or
      fetch, store or clear SJNS or given program);
1;    SET1; J10;