17 22FL #SEG ACTPRI865 [RUTH PORTER: CENT 4 22KH ...[ 15 22PD ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1983 4 22T* ...[ 7 22_= #OPT K0ACTPRI=0 7 23DW #LIS K0ACTPRI 7 23YG 8HACTPRI 14 24D6 SEGENTRY K1ACTPRI,XK1 [APJOBSET 15 24XQ SEGENTRY K2ACTPRI,XK2 [AREALT ON 15 25CB SEGENTRY K3ACTPRI,XK3 [APREALT OFF 15 25X2 SEGENTRY K4ACTPRI,XK4 [APREALT HIGH 12 26BL ... FSHENTRY K5ACTPRI,WOOPS,,WOOPS 4 26W= [ 17 27*W [ THIS SEGMENT IMPLEMENTS THE AP-- FAMILY OF MACROS 14 27TG [ JOB-NO IN ACOMMUNE1,CURRENT JOB IF ZERO 17 28*6 [ REQUESTED ACT.PRIORITY IN ACOMMUNE2,DEFAULT IF ZERO 4 28SQ [ 13 29#B [ MEND POINTS FOR APJOBRESET R.T.MACRO 4 29S2 [ 9 2=?L SEGENTRY K90ACTPRI 14 2=R= XEXP +1 [ECPRESS 9 2?=W SEGENTRY K91ACTPRI 15 2?QG XHIPRI +0 [HIGH PRI RE 9 2#=6 SEGENTRY K92ACTPRI 14 2#PQ XRE +1 [RE ON 9 2*9B SEGENTRY K93ACTPRI 14 2*P2 XSYSI +1 [SYS ISS 9 2B8L SEGENTRY K94ACTPRI 14 2BN= XSYSS +1 [SYS STAR 9 2C7W SEGENTRY K95ACTPRI 15 2CMG XBC +2 [BACK CENT 9 2D76 SEGENTRY K96ACTPRI 15 2DLQ ZBR +2 [BACK REMOTE 9 2F6B SEGENTRY K97ACTPRI 14 2FL2 XMC +2 [MOP CENT 9 2G5L SEGENTRY K98ACTPRI 15 2GK= XMR +2 [MOP REMOTE 4 2H4W [ 4 2L2L XK3 10 2LG= STOZ ACOMMUNE1(2) 10 2L_W STOZ ACOMMUNE2(2) 7 2MFG NGNC 0 1 19 2M_6 XK1 LDN 5 0 [MARKER .......APJOBSET ENTRY 14 2NDQ LDX 7 ACOMMUNE1(2) [JOB NO 5 2NKD ...RESTART 15 2NQ6 ... BNZ 7 SEARCHQ [J IF NOT CURRENT JOB 8 2P3G ... FJOCA 3,2 8 2P#W ... BRN XCUR 5 2PL= ...SEARCHQ 18 2PXL FINDJOBQ 3,7,UPFSH [X3 -> REQD JOB BLOCK 10 2QC= XCUR LDX 6 ACOMMUNE2(2) 16 2QM4 ... ANDN 6 #37 [GET RID OF FIXED BIT IF SET 7 2QWW LDN 0 4 8 2RBG BXL 6 0,OK 7 2RW6 ... LDN 6 0 8 2S*Q OK FCAJO 2,3 9 2SFM ... LDX 0 ACRIT(2) 7 2SKJ ... ANDN 0 1 13 2SPF ... BNZ 0 XEND [J IF AP FIXED 8 2STB BNZ 6 SET 9 2T*2 LDX 6 XSYSI(1) 15 2TSL JBS SET,3,JBSISS [J IF SYS ISS 9 2W#= LDX 6 XSYSS(1) 16 2WRW JBS SET,3,JBSSTAR [J IF SYS STARTED 9 2X?G LDX 6 XEXP(1) 18 2XR6 ... JMBS SET,3,JBEXP,JBEXPREQ [J IF EXPRESSED 8 2Y=Q LDN 6 XBC 15 2YQB JBS REMO,3,JBOFFL [J IF BACK JOB 8 2_=2 LDN 6 XMC 10 2_PL REMO LDX 0 JSOURCE3(2) 15 329= BZE 0 SET1 [J IF CENTRAL 7 32NW ADN 6 1 7 338G SET1 SMO 6 16 33N6 LDX 6 0(1) [X6 HAS ACT PRI 16 33PX ... SEGENTRY K50ACTPRI [USES ASFNO ETC WHEN ON 6 33RN ...#UNS ICTON 12 33TF ...#SKI [IF ON CAN DO DIRECT 4 33X= ...( 16 33_3 ...SET BXL 6 6,SMALL [J IF LESS THAN MIN ACTPRI 7 342S ... LDX 6 6 4 344K ...) 6 346B ...#UNS ICTON 4 3487 ...( 10 349Y ...SET BXL 6 ASFNO,SMALL 9 34?P ... LDX 6 ASFNO1 4 34*G ...) 5 34BJ ...SMALL 9 34CL ... LDX 0 ACRIT(2) 8 34DN ... ANDN 0 #76 18 34FQ ... BZE 0 SETC [J IF NO COUNT IN FORCE 16 34GS ...[ COUNT IS IN FORCE SO THERE HAS BEEN AN APVSF UP 8 34HW ... LDCT 2 #200 8 34JY ... ORX 2 FX2 18 34L2 ... DCH 6 ACRIT(2) [STORE ACT PRI IN CHAR 1 15 34M4 ...[ APVSF DOWN WILL EVENTUALLY PUT IT IN CHAR 0 8 34N6 ... LDX 2 FX2 8 34P8 ... BRN SETJ 9 34Q= ...SETC DCH 6 ACRIT(2) 15 34R# ...SETJ DCH 6 ACOREP(3) [& IN JOBQ 15 34SJ ... BNZ 5 SETACTS [J IF APREALT 8 34_R ... SMO FX2 16 35#8 ... LDX 0 ACOMMUNE2 [GET FIXED BIT SETTING 8 35LL ANDN 0 #40 17 366= BZE 0 SETACTS [J IF NOT TO BE FIXED 7 36KW LDN 0 1 16 375G ORS 0 ACRIT(2) [SET FIXED MARKER 14 37K6 SETACTS [NOW LOOK AT OTHER ACTIVITIES 4 384Q [ 16 38JB [ X2-> CPAT,X3-> JOBQ,X6 HAS ACT PRI,X7 HAS JOB NO 4 3942 [ 9 39HL LDEX 0 JMISC(3) 17 3=3= BZE 0 XEND [J IF NO CORE IMAGE 15 3=GW FPCAJO 3 [X3 -> PCA 9 3?2G DCH 6 ACRIT(3) 12 3?G6 ROUND FINDACTF 3,,AOLPT,,XEND,FPTR 10 3?_Q BXU 7 JOBNO(3),XEND 15 3#FB DCH 6 ACRIT(3) [SET IN OLPA 8 3#_2 BRN ROUND 4 3*DL XEND 14 3*Y= BNZ 5 UP [J IF APREALT 7 3LPG UPPLUS 1 5 3M96 UPFSH 4 3PR7 ...UP 5 3QGK ... UP 4 3QLG [ 9 3R66 [ APREALT MACRO ENTRIES 4 3RKQ [ 14 3S5B XK2 LDX 6 XRE(1) [RE ON 8 3SK2 BRN XJOIN 13 3T4L XK4 LDX 6 XHIPRI(1) [HIGH 9 3TJ= XJOIN LDX 0 ACRIT(2) 7 3W3W ANDN 0 1 15 3WHG BNZ 0 UP [J IF FIXED 8 3X36 FJOCA 3,2 7 3XGQ LDN 5 1 16 3Y2B BRN SET [JOIN MAIN PATH 4 3YG2 [ 12 3Y_L [ UNANTICIPATED CLOSE DOWN ACTION 4 3_F= [ 4 44C2 #END 6 ____ ...417230630002