[ photo 100_1591.JPG P4V5; (instant TINT); V0=B0207414741515677; V1=B0207645156647734; (V2 and V3 contain answer to TINT query); V4=B637527762/26; (allow ABEFGHIJLMNPQRSTUVZ); (D0 - TINT A, etc - currently permitted AB EFGHIJ LM PQRSTUV Z); (V5=TINT params); V1P11; J4P45#Z; ZERO; =V16P0; ZERO; SETAV1; 2; V0P11; =Q4; SHL16; SETAV3; OR; ZERO; NOT; CONT; =V5; JS20P45; JS51P10; SETAV2; =Q6; JSP31; J3; SET-33; =+C7; V4; JS10P3; J3; JS1; (TINT subroutine fails); J3; (EXIT 2 from TINT subroutine); V0P11; =Q4; EXIT1; 3; ZERO; SETAV0; J2; 1; =LINK; EXITAR6; $6; JP33; JP34; JP37; EXIT2; JP39; JP40; JP41; JP42; JP44; JP46; JP48; JP49; JP50; JP51; JP52; JP53; JP54; JP69; JP72; P5; (EDT subroutine); ZERO; =V19P0; (clear EDT indicator) JSP100; (deal with magnetic tapes) JSP105; (consolidate store store, etc.) JSP59; (deal with flex queue) JSP198; (deal with disc Q); JSP155; (deal with OUT 8 queue) JSP120; (initiate A-program input if opportune) JSP11; (deal with subprograms) V0P195; =V0P101; ZERO; =V0P195; (new disc -> new tapes); V4P23; J10#Z; JSP155; 10; K5; M0TOQ5; 2; ZERO; SHLD+4; =C5; DUP; SHL+1; J3>=Z; DUP; =TR; J9NTR; BUSYQ5; J3TR; J1; 9; V9P0M5; JS87P105; J3; 1; (clear PHU); V13P104M5; M5; SHL+12; SETB140000; OR; =K1; ERASE; CLOQ0; SETB140000; =K1; ERASE; 3; SHL+2; M5; SET3; J4=; NOT; NEG; =M5; J2; 4; =C6; ERASE; V7P0; 5; NOT; NEG; SET3; AND; DUP; =M5; V13P104M5; SHC-1; J6=Z; ERASE; ZERO; NOT; 8; =V14P0; EXIT1;