{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: ACTPRI867)}}
====== ACTPRI867 ======
(George Source)
**Macros used:** [[george:macro:BXL|BXL]], [[george:macro:BXU|BXU]], [[george:macro:FCAJO|FCAJO]], [[george:macro:FINDJOBQ|FINDJOBQ]], [[george:macro:FJOCA|FJOCA]], [[george:macro:FPCAJO|FPCAJO]], [[george:macro:FSHENTRY|FSHENTRY]], [[george:macro:JBS|JBS]], [[george:macro:JMBS|JMBS]], [[george:macro:RESTART|RESTART]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|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