         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
$PAGE "Region structure definitions : Headers and Trailers"             00010000
<<  Begin : INCLREG >>                                                  00015000
                                                                        00020000
EQUATE HL = 24,                 << header length>>                      00025000
       HEADERLENGTH = 24,                                               00030000
       TRAILERLENGTH=4,                                                 00035000
       OVERHEAD=HEADERLENGTH+TRAILERLENGTH;                             00040000
                                                                        00045000
EQUATE sectorspermainmempage=1;  <<constants>>                          00050000
                                                                        00055000
<< previous trailer >>                                                  00060000
                                                                        00065000
EQUATE RBtoPTSSdisp =-HL-3,     << prev. trailer subregion size >>      00070000
       RBtoPTRASdisp =-HL-2,    << prev. trailer region state >>        00075000
       RBtoPTRSdisp =-HL-1;     << prev. trailer region size >>         00080000
                                                                        00085000
<< global region header >>                                              00090000
                                                                        00095000
EQUATE RBtoRASdisp = -HL,       << region assignment state >>           00100000
       RBtoRSdisp = -HL+1,      << region size >>                       00105000
       RBtoIOCNTdisp = -HL+2,   << on-going I/O count >>                00110000
       RBtoINITMSGdisp = -HL+3, << initiation message (flags) >>        00115000
       RBtoINITINFOdisp =-HL+4, << locn of disk req or move msg >>      00120000
       RBtoPLdisp = -HL+4,      << link to prior avbl region >>         00125000
       RBtoCOMPMSGdisp = -HL+5, << completion msg (flags) >>            00130000
       RBtoMPQLINKdisp =-HL+6,  << makepresent deferred queue >>        00135000
       RBtoNLdisp = -HL+6,      << link to next avbl region >>          00140000
       RBtoRPAGECNTdisp=-HL+7,  << release page count >>                00145000
                                                               <<06406>>00150000
       RBtoIOREQQdisp =-HL+8;   << I/O device request queue >>          00155000
                                                                        00160000
<< subregion header >>                                                  00165000
                                                                        00170000
EQUATE RBtoSASdisp = -HL+9,     <<subregion assignment state>>          00175000
       RBtoSSdisp = -HL+10,     << subregion size >>                    00180000
       RBtoSDdisp = -HL+11,     << subregion displacement >>            00185000
       RBtoWREQPdisp = -HL+12,  << write request pointer >>             00190000
       RBtoOBJIDENTdisp=-HL+13, << object identifier >>                 00195000
       RBtoPDdisp = -HL+15,     << previous cached domain address >>    00200000
       RBtoLKFZCNTdisp =-HL+15, << lock & freeze count >>               00205000
       RBtoWDIOFZCNTdisp=-HL+16,<< write disabled & I/O frozen cnt >>   00210000
       RBtoHODAdisp = -HL+17,   << LDEV & high disk addr >>             00215000
       RBtoLODAdisp = -HL+18,   << low order disk addr >>               00220000
       RBtoNDdisp = -HL+19,     << next cached domain address >>        00225000
       RBtoARRTIMEdisp =-HL+21, << time of arrival of obj/domai<<06406>>00230000
       RBTOCACDADISP  = -HL+23;  << DISC ADDRESS CSL(8) >>     <<06406>>00235000
                                                                        00240000
<<relative equates>>                                                    00245000
                                                                        00250000
EQUATE PTSStoRBdisp = -RBtoPTSSdisp,                                    00255000
       PTRAStoRBdisp = -RBtoPTRASdisp,                                  00260000
       PTRStoRBdisp = -RBtoPTRSdisp,                                    00265000
       RAStoRBdisp = -RBtoRASdisp,                                      00270000
       RStoRBdisp = -RBtoRSdisp,                                        00275000
       INITMSGtoRBdisp = -RBtoINITMSGdisp,                              00280000
       PLtoRBdisp = -RBtoPLdisp,                                        00285000
       NLtoRBdisp = -RBtoNLdisp,                                        00290000
       PDtoRBdisp = -RBtoPDdisp,                                        00295000
       NDtoRBdisp = -RBtoNDdisp,                                        00300000
       SStoRSdisp = RBtoRSdisp-RBtoSSdisp,                              00305000
       RStoSSdisp = -SStoRSdisp,                                        00310000
       WREQPtoRBdisp = -RBtoWREQPdisp,                                  00315000
       OBJIDENTtoRBdisp = -RBtoOBJIDENTdisp,                            00320000
       RAStoRSdisp = RBtoRSdisp-RBtoRASdisp,                            00325000
       RAStoSASdisp = RBtoSASdisp-RBtoRASdisp,                          00330000
       RAStoIOCNTdisp = RBtoIOCNTdisp-RBtoRASdisp,                      00335000
       RAStoINITMSGdisp = RBtoINITMSGdisp-RBtoRASdisp,                  00340000
       RAStoCOMPMSGdisp = RBtoCOMPMSGdisp-RBtoRASdisp,                  00345000
       RAStoMPQLINKdisp = RBtoMPQLINKdisp-RBtoRASdisp,                  00350000
       RAStoRPAGECNTdisp = RBtoRPAGECNTdisp-RBtoRASdisp,                00355000
       RAStoIOREQQdisp = RBtoIOREQQdisp-RBtoRASdisp,                    00360000
       RAStoSSdisp = RBtoSSdisp-RBtoRASdisp,                            00365000
       RAStoSDdisp = RBtoSDdisp-RBtoRASdisp,                            00370000
       RAStoWREQPdisp = RBtoWREQPdisp-RBtoRASdisp,                      00375000
       RAStoOBJIDENTdisp = RBtoOBJIDENTdisp-RBtoRASdisp,                00380000
       RAStoLKFZCNTdisp = RBtoLKFZCNTdisp-RBtoRASdisp,                  00385000
       RAStoWDIOFZCNTdisp = RBtoWDIOFZCNTdisp-RBtoRASdisp,              00390000
       RAStoHODAdisp = RBtoHODAdisp-RBtoRASdisp,                        00395000
       RAStoLODAdisp = RBtoLODAdisp-RBtoRASdisp,                        00400000
       RAStoARRTIMEdisp = RBtoARRTIMEdisp-RBtoRASdisp,                  00405000
       RStoRASdisp = -RAStoRSdisp,                                      00410000
       INITMSGtoRASdisp = -RAStoINITMSGdisp,                            00415000
       SStoRASdisp = -RAStoSSdisp,                                      00420000
       LKFZCNTtoRASdisp = -RAStoLKFZCNTdisp,                            00425000
       WDIOFZCNTtoRASdisp = -RAStoWDIOFZCNTdisp,                        00430000
       HODAtoCOMPMSGdisp = RBtoCOMPMSGdisp-RBtoHODAdisp,                00435000
       HODAtoOBJIDENTdisp = RBtoOBJIDENTdisp-RBtoHODAdisp,              00440000
       HODATOCACDADISP = RBTOCACDADISP - RBTOHODADISP,                  00445000
       HODAtoWREQPdisp = RBtoWREQPdisp-RBtoHODAdisp,                    00450000
       HODAtoRSdisp = RBtoRSdisp-RBtoHODAdisp,                          00455000
       HODAtoSSdisp = RBtoSSdisp-RBtoHODAdisp,                          00460000
       PTRAStoRSdisp = RBtoRSdisp-RBtoPTRASdisp,                        00465000
       RStoPTRASdisp = -PTRAStoRSdisp,                                  00470000
       SStoPTRASdisp = RBtoPTRASdisp-RBtoSSdisp,                        00475000
       RStoSDdisp = RBtoSDdisp-RBtoRSdisp,                              00480000
       TRAStoTRSdisp = 1,                                               00485000
       TRAStoTSSdisp = -1,                                              00490000
       TRStoTRASdisp = -TRAStoTRSdisp,                                  00495000
       TRStoTSSdisp = TRAStoTSSdisp-TRAStoTRSdisp,                      00500000
       TSStoTRASdisp = -TRAStoTSSdisp,                                  00505000
       RAStoPTRASdisp = RBtoPTRASdisp-RBtoRASdisp,                      00510000
       RAStoPTSSdisp = RBtoPTSSdisp-RBtoRASdisp,                        00515000
       PLtoNLdisp = RBtoNLdisp-RBtoPLdisp,                              00520000
       PLtoRSdisp = RBtoRSdisp - RBtoPLdisp,                   <<06787>>00525000
       NLtoPLdisp = -PLtoNLdisp,                                        00530000
       PDtoNDdisp = RBtoNDdisp-RBtoPDdisp,                              00535000
       NDtoPDdisp = -PDtoNDdisp,                                        00540000
       NDtoHODAdisp = RBtoHODAdisp - RBtoNDdisp,                        00545000
       NDTOCACDADISP = RBTOCACDADISP - RBTONDDISP,                      00550000
       NDtoLODAdisp = RBtoLODAdisp - RBtoNDdisp,                        00555000
       NLtoRSdisp = RBtoRSdisp-RBtoNLdisp,                              00560000
       RStoPTRSdisp = RBtoPTRSdisp-RBtoRSdisp,                          00565000
       PTRStoRSdisp = -RStoPTRSdisp,                                    00570000
       OBJIDENTtoPTRASdisp = RBtoPTRASdisp-RBtoOBJIDENTdisp,            00575000
       OBJIDENTtoSASdisp = RBtoSASdisp-RBtoOBJIDENTdisp,                00580000
       OBJIDENTtoPTSSdisp = RBtoPTSSdisp-RBtoOBJIDENTdisp,              00585000
       OBJIDENTtoINITINFOdisp = RBtoINITINFOdisp-RBtoOBJIDENTdisp,      00590000
       OBJIDENTtoWREQPdisp = RBtoWREQPdisp-RBtoOBJIDENTdisp,            00595000
       WREQPtoOBJIDENTdisp = - OBJIDENTtoWREQPdisp,                     00600000
       WREQPtoRASdisp = RBtoRASdisp-RBtoWREQPdisp,             <<06406>>00605000
       OBJIDENTtoSDdisp = RBtoSDdisp-RBtoOBJIDENTdisp,                  00610000
       OBJIDENTtoSSdisp = RBtoSSdisp-RBtoOBJIDENTdisp,         <<06406>>00615000
       COMPMSGtoINITMSGdisp = RBtoINITMSGdisp-RBtoCOMPMSGdisp,          00620000
       COMPMSGtoIOREQQdisp = RBtoIOREQQdisp-RBtoCOMPMSGdisp,            00625000
       COMPMSGtoARRTIMEdisp = RBtoARRTIMEdisp-RBtoCOMPMSGdisp,          00630000
       INITMSGtoINITINFOdisp = RBtoINITINFOdisp-RBtoINITMSGdisp,        00635000
       RPAGECNTtoRSdisp = RBtoRSdisp-RBtoRPAGECNTdisp,                  00640000
       INITINFOtoHODAdisp = RBtoHODAdisp-RBtoINITINFOdisp,              00645000
       SStoOBJIDENTdisp = RBtoOBJIDENTdisp-RBtoSSdisp,                  00650000
       SStoSDdisp = RBtoSDdisp-RBtoSSdisp,                              00655000
       SAStoSDdisp = RBtoSDdisp-RBtoSASdisp,                            00660000
       SAStoRASdisp = RBtoRASdisp-RBtoSASdisp,                          00665000
       SDtoSSdisp = -SStoSDdisp,                                        00670000
       SDtoIOCNTdisp = RBtoIOCNTdisp-RBtoSDdisp,                        00675000
       SDtoRASdisp   = RBtoRASdisp-RBtoSDdisp,                          00680000
       IOCNTtoINITMSGdisp = RBtoINITMSGdisp-RBtoIOCNTdisp,              00685000
       RStoOBJIDENTdisp = RBtoOBJIDENTdisp-RBtoRSdisp,                  00690000
       RAStoPTRSdisp = RBtoPTRSdisp-RBtoRASdisp,                        00695000
       PTRStoRASdisp = -RAStoPTRSdisp;                                  00700000
                                                                        00705000
DEFINE                                                                  00710000
                                                                        00715000
       <<Region Assignment State Flags>>                                00720000
                                                                        00725000
       RegAssignedFlag = (0:1)#,                                        00730000
       RegReservedFlag = (1:1)#,                                        00735000
       RegAvailableFlag = (2:1)#,                                       00740000
       RegClearedFlag = (3:1)#,                                         00745000
       SizeChangePndgFlag = (4:1)#,                                     00750000
       RegNonMoveFlags = (5:3)#,                                        00755000
       RegLkdFlag = (5:1)#,                                             00760000
       RegFzFlag = (6:1)#,                                              00765000
       RegIOFzFlag = (7:1)#,                                            00770000
        REGMAPFLAG = (8:1)#,                                   <<*7704>>00775000
       BlkdLkMigIPFlag = (15:1)#, <<blocked lock migration in progress>>00780000
                                                                        00785000
       <<Subregion Assignment State Flags>>                             00790000
                                                                        00795000
       RegCachedFlag = (0:1)#, <<cached disc domain flag>>              00800000
       RegRefFlag = (1:1)#,  <<referenced flag for cached domains>>     00805000
       RegRocFlag =(2:1)#, <<recoverable cache domain>>                 00810000
       RegFetchIOStatus = (13:3)#, <<iostatus of object fetch>>         00815000
                                                                        00820000
       <<Initiation Message Flags>>                                     00825000
                                                                        00830000
       InitMsgToggleSwitch = (0:1)#,                                    00835000
       MsgExtDisabledFlag = (1:1)#,                                     00840000
       MsgOngoingIODisabled = (2:1)#,                                   00845000
       QueueReadReqFlag = (3:1)#,                                       00850000
       IncMoveReqFlag = (4:1)#,                                         00855000
       ExpReqFlag = (5:1)#,                                             00860000
       GarbCollFlag = (6:1)#,                                           00865000
       InitMsgAbortedFlag = (7:1)#,                                     00870000
       InitMsgRelResPagesFlag = (8:1)#,                                 00875000
       InitMsgStartCompFlag = (9:1)#,                                   00880000
                                                                        00885000
       <<Completion Message Flags>>                                     00890000
                                                                        00895000
       CompMsgToggleSwitch = (0:1)#,                                    00900000
       CompMsgModFlag = (1:1)#,                                         00905000
       CompMsgBlkdLkFlag = (2:1)#,                                      00910000
       CompMsgIOWakeFlag = (4:1)#,                                      00915000
       MsgValidYetFlag = (15:1)#,                                       00920000
                                                                        00925000
       <<Freeze, Lock, Iofreeze Count Fields>>                          00930000
                                                                        00935000
       FzCntField = (0:8)#,                                             00940000
       LkCntField = (8:8)#,                                             00945000
       IOFzCntField = (8:8)#,                                           00950000
                                                                        00955000
       <<Disc Address Fields>>                                          00960000
                                                                        00965000
       RegHODAField = (8:8)#,                                           00970000
       RegLDEVField = (0:8)#,                                           00975000
                                                                        00980000
       <<subregion displacement valid flag>>                            00985000
                                                                        00990000
       SDValidFlag = (0:1)#;                                            00995000
                                                                        01000000
EQUATE RegIOFzBit = 7,                                                  01005000
       RegLkdBit = 5,                                                   01010000
       RegFzBit = 6,                                                    01015000
        REGMAPBIT = 8,                                         <<*7704>>01020000
       CompMsgIOWakeBit = 4;                                            01025000
                                                                        01030000
EQUATE CompletedFlag = 6,                                               01035000
       CurrentFlag = 10;                                                01040000
                                                                        01045000
EQUATE RegAvailableCode = %20000,                                       01050000
       RegReservedCode = %40000,                                        01055000
       RegAssignedCode = %100000,                                       01060000
       LastTRASAddr = %177776;                                          01065000
                                                                        01070000
<<   End : INCLREG   >>                                                 01075000
