{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS SHFSA)}}
====== MACROS SHFSA ======
(George Source)
22FL #
22^= #
23DW #
23YG # MACROS SHFSA IS FOR SHARED FILESTORE CODE GENERATION AND
24D6 # TESTING MACROS.
24XQ # IT CONTAINS THE FOLLOWING MACROS:
25CB #
25X2 #
26BL [??? FSHCODE SECT FILE FGN 1 DOC
26W= #
27*W [??? FSHCOMPS SECT FILE FGN 1 DOC
27TG #
28*6 [??? FSHSKIP SECT FILE FGN 1 DOC
28SQ #
29#B [??? CHAINSWOP SECT FILE FGN 1 DOC
29S2 #
2=?L [??? FSHTEST SECT FILE FGN 1 DOC
2=R= #
2?=W [??? FSHENTRY SECT FILE FGN 1 DOC
2?QG #
2#=6 #
2#PQ #
2*9B #
2*P2 #
2B8L [??? FSHCODE SECT FILE FGN 1 DOC
2BN= #MAC FSHCODE
2C7W #OPT FSHA=0
2CMG #OPT FSHB=0
2D76 #OPT FSHAORB=FSHA^FSHB
2DLQ #STR %A,A
2F6B #SKI
2FL2 (
2G5L #DEF MFSHCODEA=1
2GK= #UNS FSHA
2H4W (
2HJG #UNS FSHB
2J46 JBS %B,,BFSHB
2JHQ )
2K3B )
2KH2 #STR %A,B
2L2L #SKI
2LG= (
2L^W #DEF MFSHCODEB=1
2MFG #UNS FSHB
2M^6 (
2NDQ #UNS FSHA
2NYB JBC %B,,BFSHB
2PD2 )
2PXL )
2QC= #STR AORB,%A
2QWW #SKI
2RBG #DEF MFSHCDEAORB=1
2RW6 #OPT MFSHCDEAORB=0
2S*Q #OPT MFSHCODEA=0
2STB #OPT MFSHCODEB=0
2T*2 #UNS MFSHCODEA^MFSHCODEB^MFSHCDEAORB
2TSL #SKI
2W#= ! PARAMETER A NOT 'A', 'B' OR 'AORB'
2WRW #FRE MFSHCODEA,MFSHCODEB,MFSHCDEAORB
2X?G #UNS FSH%A
2XR6 #NOR
2Y=Q [??? FSHCOMPS SECT FILE FGN 1 DOC
2YQB #MAC FSHCOMPS
2^=2 #ALT FSHA=0
2^PL #ALT FSHB=0
329= #ALT FSHTEST=0
32NW #STR %A
338G #ALT FSH%A=1
33N6 #STR %B
347Q #ALT FSH%B=1
34MB #STR %C
3572 #ALT FSH%C=1
35LL #ALT FSHAORB=FSHA^FSHB
366= #NOR
36KW [??? FSHSKIP SECT FILE FGN 1 DOC
375G #MAC FSHSKIP
37K6 #OPT FSHA=0
384Q #OPT FSHB=0
38JB #DEF 20?=FSHA^FSHB$1
3942 #STR %A
39HL (
3=3= #STR %A,A
3=GW (
3?2G #STR %A,B
3?G6 ! PARAMETER A NOT 'A', 'B' OR NULL
3?^Q )
3#FB )
3#^2 #STR %A
3*DL (
3*Y= #DEF 20?=FSH%A<1$1^(FSHA&FSHB)
3BCW #SKI FSHA&FSHB
3BXG (
3CC6 #STR %B
3CWQ (
3DBB #STR %A,A
3DW2 #SKI
3F*L JBC %B,,BFSHB
3FT= #STR %A,B
3G#W #SKI
3GSG JBS %B,,BFSHB
3H#6 )
3HRQ )
3J?B )
3JR2 #SKI 20?
3K=L #NOR
3KQ= [??? CHAINSWOP SECT FILE FGN 1 DOC
3L9W # SWOPS OVER CHAINS ATTACHED TO TWO SPECIFIED CHAIN BASES
3LPG #MAC CHAINSWOP
3M96 LDN 1 %A
3MNQ LDX 3 %A+BPTR
3N8B LDN 4 %B
3NN2 CHAIN 1,4
3P7L LDN 1 %A
3PM= BXE 1 3,MCHEMPTY
3Q6W CHAIN 4,3
3QLG BRN MCHSWEND
3R66 MCHEMPTY
3RKQ DERINGD %B
3S5B STO 4 %B
3SK2 STO 4 %B+BPTR
3T4L MCHSWEND
3TJ= #NOR
3W3W [??? FSHTEST SECT FILE FGN 1 DOC
3WHG #MAC FSHTEST
3X36 # NOTE: FSHNOIPB IS NOT SET WITHIN THIS EDF!
3XGQ #
3Y2B FCMENDV
3YG2 #
3Y^L #
3^F= # THE FIXED CORE STATUS WORD FOR THE SHARED FILESTORE
3^YW # IPB LINK ROUTINES
42DG #
42Y6 FSHBSTATE +0
43CQ #
43XB FSHREPA +0
44C2 FSHREPB +0
44WL #
45B= #
45TW FSHINBPTR +0 [POINTER TO INPUT BUFFER IN MACHINE B
46*G #
46T6 #
47#Q BMISCB +BMISCB [ BASE OF 'B'S MISC CHAIN
47SB +BMISCB
48#2 #
48RL #
49?= BJOBQB +BJOBQB [BASE OF B'S JOB QUEUE
49QW +BJOBQB
4==G #
4=Q6 #
4?9Q CXBMI +BMISCB [POINTER TO BASE OF OTHER MISC CHAIN
4?PB CXBJO +BJOBQB [POINTER TO BASE OF OTHER JOB QUEUE
4#92 CXCFI +BFILE [POINTER TO BASE OF CURRENT FILE CHAI
4#NL #
4*8= #
4*MW BCHAINSWOPS +0 [NUMBER OF TIMES COORDINATOR CHANGES
4B7G # [THE MACHINES OVER
4BM6 #
4BR3 ...JBIGPROGCP +0
4BWY ...# [OTHER MC'S BIGPROGCP
4C2T ...#
4C6Q FCENDV
4CLB #
4D62 CXMEND
4DKL JBS SMCB,2,BFSHACTB [J IF ACTIVITY FOR MACHINE B
4F5= JBSC SWOPMCS,,BFSHB [J IF MACHINE RUNNING & INVERT BIT
4FJW BRN NOSWOPMCS [ACTIVITY IN CURRENTLY RUNNING M/C
4G4G SMCB
4GJ6 JBCS SWOPMCS,,BFSHB [J IF MACHINE A RUNNING & INVERT BIT
4H3Q BRN NOSWOPMCS [ACTIVITY IN CURRENTLY RUNNING M/C
4HHB SWOPMCS
4J32 CHAINSWOP BFILE,BIPL [SWOP OVER FILE CHAINS
4JGL CHAINSWOP BJOBQ,BJOBQB [SWOP OVER JOB QUEUE CHAINS
4K2= CHAIND BMISC,BMISCB [ RECHAIN APERI/APIA TO OTHER CHAIN
4KFW CHAINSWOP BMISC,BMISCB [ SWOP OVER MISCELL. CHAINS
4K^G LDX 3 FSHINPTR [SWOP OVER POINTERS
4LF6 LDX 4 FSHINBPTR [ TO TRANSFER
4LYQ STO 3 FSHINBPTR [ INPUT BUFFERS
4MDB STO 4 FSHINPTR
4MY2 LDX 3 FSHSTATE [SWOP OVER THE
4NCL LDX 4 FSHBSTATE [ FIXED CORE
4NX= STO 3 FSHBSTATE [ STATUS WORDS
4PBW STO 4 FSHSTATE
4PWG SWOPFSHIPS
4QB6 CALL 1 SWOPIPS [X1 WILL CONTAIN PTR TO START OF TABL
4QTQ +0+INSTPARAM
4R*B +JMANAGER0
4RT2 +1+INSTPARAM
4S#L +JMANAGER1
4SS= +2+INSTPARAM
4T?W +JMANAGER2
4TRG +3+INSTPARAM
4W?6 +JMANAGER3
4WQQ +4+INSTPARAM
4X=B +JMANAGER4
4XQ2 +5+INSTPARAM
4Y9L +JMANAGER5
4YP= +6+INSTPARAM
4^8W +JMANAGER6
4^NG +7+INSTPARAM
5286 +JMANAGER7
52MQ +COBJQUOTA
537B +JOBJQUOTA
53M2 +IMOPLIMIT
546L +JMOPLIMIT
54L= +BACKGROUND
555W +JBACKGROUND
55KG +IMOPCPI
5656 +JMOPCPI
56JQ +IK
574B +JWAITWEIGHT
57J2 +CPIRATIO
583L +JCPIRATIO
58H= +ASLOTTIME
592W +JSLOTTIME
59GG +AOBJCORES
5=26 +JCOREOBJECT
5=FQ +HOLDUP
5=^B +JHOLDUP
5?F2 +CHAPQUOTA
5?YL +JCHAPQUOTA
5#D= +BACKJOBS
5#XW +JBACKJOBS
5*CG +IMOPJOBS
5*X6 +JMOPJOBS
5BBQ +IMOPTOTAL
5BWB +JMOPTOTAL
5CB2 +CLUSBACKCP
5CTL +JCLUSBACKCP
5D*= +CLUSMOPCP
5DSW +JCLUSMOPCP
5F#G +BACKCP
5FS6 +JBACKCP
5G?Q +IMOPCP
5GRB +JMOPCP
5H?2 #77777777
5HQL SWOPIPS
5J== LDX 2 0(1) [NEXT PTR TO ENTRY IN IP TABLE
5JPW BNG 2 SWOPPEDIPS [J IF REACHED END OF TABLE
5K9G LDX 3 1(1) [PTR TO MATCHING ENTRY IN EXTENSION T
5KP6 LDX 4 0(2) [VALUE OF ORDINARY IP
5L8Q SMO IPEXTTAB
5LNB LDX 5 0(3) [VALUE OF CORRESPONDING EXTENSION TAB
5M82 STO 5 0(2)
5MML SMO IPEXTTAB
5N7= STO 4 0(3) [SWOP TWO VALUES FOR OTHER MACHINE
5NLW ADN 1 2 [PTR TO NEXT PAIR OF ENTRIES IN ABOVE
5P6G BRN SWOPIPS
5PL6 SWOPPEDIPS
5PP= ... LDX 4 BIGPROGCP [SWOP BIGPROGCP FOR LLS
5PSB ... LDX 5 JBIGPROGCP
5PXG ... STO 5 BIGPROGCP
5Q2L ... STO 4 JBIGPROGCP
5Q5Q LDN 0 1 [COUNT 1 CHANGE OF MACHINES
5QKB ADS 0 BCHAINSWOPS
5R52 NOSWOPMCS
5RJL CXEND
5S4= #
5SHW FCMEND
5T3G #
5TH6 ABITSFSHAB
5W2Q LDX 2 FX2
5WGB FSHCODE B,NOCHANGE
5X22 BS FPTR(2),BFSHACTB
5XFL NOCHANGE
5X^= BRN FSHGETACT+1
5YDW #
5YYG #
5^D6 #
5^XQ FCEND
62CB #
62X2 #
63BL #MEN COREALL
63W= #TRA FSHGETACT
64*W BRN ABITSFSHAB
64TG #END
65*6 #
65SQ #
66#B #NOR
66S2 [??? FSHENTRY SECT FILE FGN 1 DOC
67?L #MAC FSHENTRY
67R= #STR K,%A
68=W #SKI
68QG (
69=6 #UNS FSHA^FSHB
69PQ #SKI
6=9B SEGENTRY %A,(GEOERR)
6=P2 #UNS FSHA
6?8L (
6?N= #UNS FSHB
6#7W (
6#MG #STR %D
6*76 SEGENTRY %A,%D
6*LQ #STR %D
6B6B #SKI
6BL2 SEGENTRY %A,(GEOERR)
6C5L )
6CK= #UNS FSHB
6D4W #SKI
6DJG (
6F46 #STR %B
6FHQ SEGENTRY %A,%B
6G3B #STR %B
6GH2 #SKI
6H2L SEGENTRY %A,(GEOERR)
6HG= )
6H^W )
6JFG #UNS FSHB
6J^6 (
6KDQ #UNS FSHA
6KYB #SKI
6LD2 (
6LXL #STR %C
6MC= SEGENTRY %A,%C
6MWW #STR %C
6NBG #SKI
6NW6 SEGENTRY %A,(GEOERR)
6P*Q )
6PTB )
6Q*2 )
6QSL #STR K,%A
6R#= ! %A MUST BE THE ENTRY POINT
6RRW #NOR
^^^^ ...262071400003