(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