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