[ photo 100_1612.JPG V9P0M7; OR; =V9P0M7; NEG; V9P0M6; SHL3; SHL-3; OR; 92; (ex P112 P112; (store new BA/NOL in V9P0M6, set V0P105 if new BA/NOL differs from previous one) ); DUP; V9P0M6; NEV; V0P105; OR; =V0P105; =V9P0M6; EXIT1; 93; (ex P113 P113; (set HU bits in priotity hold-up word); ); V25P104M5; OR; J73; 94; (ex P114 P114; (clear HU bits from priority hold-up word) ); NOT; V25P104M5; AND; 73; DUP; =V25P104M5; JP14=Z; JP13; 95; (ex p115 P115; (given BA/NOL, set priority no. in M6, 6 times priority no. in C6) ); SHL+34; SHL-46; DUP; =M6; DUP; SHL+1; +; SHL+1; =C6; EXIT1; P116V3; (form table of BA/NOLs in order ot decreasing base address); SET4; =RC6; V0P45; SHL-5; 1; SHL+36; ZERO; =V0M6; SET4; =RC7; 2; V9P0M7Q; SHL+36; DUP; V0M6; SHL+36; SIGN; J3<=Z; REV; DUP; PERM; SIGN; J4>=Z; V8P0M7; =V0M6; ZERO; 3; ERASE; 4; J2C7NZ; ERASE; V0M6Q; J1C6NZ; J1P45; P117V0; (set in N1 parameters for space between B and A programs, as C=no. or words, I,M= first and last addresses) JSP116; SET4; =RC7; V0P45; 1; V0P116M7; DUP; JS95P105; J2=Z; V0P116M7Q; V0P104; SHLC6; SHL+2; J3