$page "Region structure definitions : Headers and Trailers"             00001000
<<  Begin : INCLREG >>                                                  00002000
                                                                        00003000
EQUATE HL = 24,                 << header length>>                      00004000
       HEADERLENGTH = 24,                                               00005000
       TRAILERLENGTH=4,                                                 00006000
       OVERHEAD=HEADERLENGTH+TRAILERLENGTH;                             00007000
                                                                        00008000
EQUATE sectorspermainmempage=1;  <<constants>>                          00008100
                                                                        00008200
<< previous trailer >>                                                  00009000
                                                                        00010000
EQUATE RBtoPTSSdisp =-HL-3,     << prev. trailer subregion size >>      00011000
       RBtoPTRASdisp =-HL-2,    << prev. trailer region state >>        00012000
       RBtoPTRSdisp =-HL-1;     << prev. trailer region size >>         00013000
                                                                        00014000
<< global region header >>                                              00015000
                                                                        00016000
EQUATE RBtoRASdisp = -HL,       << region assignment state >>           00017000
       RBtoRSdisp = -HL+1,      << region size >>                       00018000
       RBtoIOCNTdisp = -HL+2,   << on-going I/O count >>                00019000
       RBtoINITMSGdisp = -HL+3, << initiation message (flags) >>        00020000
       RBtoINITINFOdisp =-HL+4, << locn of disk req or move msg >>      00021000
       RBtoPLdisp = -HL+4,      << link to prior avbl region >>         00022000
       RBtoCOMPMSGdisp = -HL+5, << completion msg (flags) >>            00023000
       RBtoMPQLINKdisp =-HL+6,  << makepresent deferred queue >>        00024000
       RBtoNLdisp = -HL+6,      << link to next avbl region >>          00025000
       RBtoRPAGECNTdisp=-HL+7,  << release page count >>                00026000
       RBtoIOREQQdisp =-HL+8;   << I/O device request queue >>          00027000
                                                                        00028000
<< subregion header >>                                                  00029000
                                                                        00030000
EQUATE RBtoSASdisp = -HL+9,     <<subregion assignment state>>          00031000
       RBtoSSdisp = -HL+10,     << subregion size >>                    00032000
       RBtoSDdisp = -HL+11,     << subregion displacement >>            00033000
       RBtoWREQPdisp = -HL+12,  << write request pointer >>             00034000
       RBtoOBJIDENTdisp=-HL+13, << object identifier >>                 00035000
       RBtoPDdisp = -HL+15,     << previous cached domain address >>    00036000
       RBtoLKFZCNTdisp =-HL+15, << lock & freeze count >>               00037000
       RBtoWDIOFZCNTdisp=-HL+16,<< write disabled & I/O frozen cnt >>   00038000
       RBtoHODAdisp = -HL+17,   << LDEV & high disk addr >>             00039000
       RBtoLODAdisp = -HL+18,   << low order disk addr >>               00040000
       RBtoNDdisp = -HL+19,     << next cached domain address >>        00041000
       RBtoARRTIMEdisp =-HL+21, << time of arrival of obj/domain>>      00042000
       RBTOCACDADISP  = -HL+23;  << DISC ADDRESS CSL(8) >>              00042100
                                                                        00043000
<<relative equates>>                                                    00044000
                                                                        00045000
EQUATE PTSStoRBdisp = -RBtoPTSSdisp,                                    00046000
       PTRAStoRBdisp = -RBtoPTRASdisp,                                  00047000
       PTRStoRBdisp = -RBtoPTRSdisp,                                    00048000
       RAStoRBdisp = -RBtoRASdisp,                                      00049000
       RStoRBdisp = -RBtoRSdisp,                                        00050000
       INITMSGtoRBdisp = -RBtoINITMSGdisp,                              00051000
       PLtoRBdisp = -RBtoPLdisp,                                        00052000
       NLtoRBdisp = -RBtoNLdisp,                                        00053000
       PDtoRBdisp = -RBtoPDdisp,                                        00053100
       NDtoRBdisp = -RBtoNDdisp,                                        00053190
       SStoRSdisp = RBtoRSdisp-RBtoSSdisp,                              00054000
       RStoSSdisp = -SStoRSdisp,                                        00055000
       WREQPtoRBdisp = -RBtoWREQPdisp,                                  00056000
       OBJIDENTtoRBdisp = -RBtoOBJIDENTdisp,                            00057000
       RAStoRSdisp = RBtoRSdisp-RBtoRASdisp,                            00058000
       RAStoSASdisp = RBtoSASdisp-RBtoRASdisp,                          00058100
       RAStoIOCNTdisp = RBtoIOCNTdisp-RBtoRASdisp,                      00059000
       RAStoINITMSGdisp = RBtoINITMSGdisp-RBtoRASdisp,                  00060000
       RAStoCOMPMSGdisp = RBtoCOMPMSGdisp-RBtoRASdisp,                  00061000
       RAStoMPQLINKdisp = RBtoMPQLINKdisp-RBtoRASdisp,                  00062000
       RAStoRPAGECNTdisp = RBtoRPAGECNTdisp-RBtoRASdisp,                00063000
       RAStoIOREQQdisp = RBtoIOREQQdisp-RBtoRASdisp,                    00064000
       RAStoSSdisp = RBtoSSdisp-RBtoRASdisp,                            00065000
       RAStoSDdisp = RBtoSDdisp-RBtoRASdisp,                            00066000
       RAStoWREQPdisp = RBtoWREQPdisp-RBtoRASdisp,                      00067000
       RAStoOBJIDENTdisp = RBtoOBJIDENTdisp-RBtoRASdisp,                00068000
       RAStoLKFZCNTdisp = RBtoLKFZCNTdisp-RBtoRASdisp,                  00069000
       RAStoWDIOFZCNTdisp = RBtoWDIOFZCNTdisp-RBtoRASdisp,              00070000
       RAStoHODAdisp = RBtoHODAdisp-RBtoRASdisp,                        00071000
       RAStoLODAdisp = RBtoLODAdisp-RBtoRASdisp,                        00072000
       RAStoARRTIMEdisp = RBtoARRTIMEdisp-RBtoRASdisp,                  00072100
       RStoRASdisp = -RAStoRSdisp,                                      00073000
       INITMSGtoRASdisp = -RAStoINITMSGdisp,                            00074000
       SStoRASdisp = -RAStoSSdisp,                                      00075000
       LKFZCNTtoRASdisp = -RAStoLKFZCNTdisp,                            00076000
       WDIOFZCNTtoRASdisp = -RAStoWDIOFZCNTdisp,                        00077000
       HODAtoCOMPMSGdisp = RBtoCOMPMSGdisp-RBtoHODAdisp,                00078000
       HODAtoOBJIDENTdisp = RBtoOBJIDENTdisp-RBtoHODAdisp,              00079000
       HODATOCACDADISP = RBTOCACDADISP - RBTOHODADISP,                  00079500
       HODAtoWREQPdisp = RBtoWREQPdisp-RBtoHODAdisp,                    00080000
       HODAtoRSdisp = RBtoRSdisp-RBtoHODAdisp,                          00080100
       HODAtoSSdisp = RBtoSSdisp-RBtoHODAdisp,                          00080190
       PTRAStoRSdisp = RBtoRSdisp-RBtoPTRASdisp,                        00081000
       RStoPTRASdisp = -PTRAStoRSdisp,                                  00082000
       SStoPTRASdisp = RBtoPTRASdisp-RBtoSSdisp,                        00083000
       RStoSDdisp = RBtoSDdisp-RBtoRSdisp,                              00084000
       TRAStoTRSdisp = 1,                                               00085000
       TRAStoTSSdisp = -1,                                              00086000
       TRStoTRASdisp = -TRAStoTRSdisp,                                  00087000
       TRStoTSSdisp = TRAStoTSSdisp-TRAStoTRSdisp,                      00088000
       TSStoTRASdisp = -TRAStoTSSdisp,                                  00089000
       RAStoPTRASdisp = RBtoPTRASdisp-RBtoRASdisp,                      00090000
       RAStoPTSSdisp = RBtoPTSSdisp-RBtoRASdisp,                        00091000
       PLtoNLdisp = RBtoNLdisp-RBtoPLdisp,                              00092000
       PLtoRSdisp = RBtoRSdisp - RBtoPLdisp,                            00092100
       NLtoPLdisp = -PLtoNLdisp,                                        00093000
       PDtoNDdisp = RBtoNDdisp-RBtoPDdisp,                              00093100
       NDtoPDdisp = -PDtoNDdisp,                                        00093190
       NDtoHODAdisp = RBtoHODAdisp - RBtoNDdisp,                        00093200
       NDTOCACDADISP = RBTOCACDADISP - RBTONDDISP,                      00093250
       NDtoLODAdisp = RBtoLODAdisp - RBtoNDdisp,                        00093280
       NLtoRSdisp = RBtoRSdisp-RBtoNLdisp,                              00094000
       RStoPTRSdisp = RBtoPTRSdisp-RBtoRSdisp,                          00095000
       PTRStoRSdisp = -RStoPTRSdisp,                                    00096000
       OBJIDENTtoPTRASdisp = RBtoPTRASdisp-RBtoOBJIDENTdisp,            00097000
       OBJIDENTtoSASdisp = RBtoSASdisp-RBtoOBJIDENTdisp,                00097100
       OBJIDENTtoPTSSdisp = RBtoPTSSdisp-RBtoOBJIDENTdisp,              00098000
       OBJIDENTtoINITINFOdisp = RBtoINITINFOdisp-RBtoOBJIDENTdisp,      00099000
       OBJIDENTtoWREQPdisp = RBtoWREQPdisp-RBtoOBJIDENTdisp,            00099100
       WREQPtoOBJIDENTdisp = - OBJIDENTtoWREQPdisp,                     00099200
       WREQPtoRASdisp = RBtoRASdisp-RBtoWREQPdisp,                      00099300
       OBJIDENTtoSDdisp = RBtoSDdisp-RBtoOBJIDENTdisp,                  00100000
       OBJIDENTtoSSdisp = RBtoSSdisp-RBtoOBJIDENTdisp,                  00100100
       COMPMSGtoINITMSGdisp = RBtoINITMSGdisp-RBtoCOMPMSGdisp,          00101000
       COMPMSGtoIOREQQdisp = RBtoIOREQQdisp-RBtoCOMPMSGdisp,            00102000
       COMPMSGtoARRTIMEdisp = RBtoARRTIMEdisp-RBtoCOMPMSGdisp,          00103000
       INITMSGtoINITINFOdisp = RBtoINITINFOdisp-RBtoINITMSGdisp,        00104000
       RPAGECNTtoRSdisp = RBtoRSdisp-RBtoRPAGECNTdisp,                  00105000
       INITINFOtoHODAdisp = RBtoHODAdisp-RBtoINITINFOdisp,              00106000
       SStoOBJIDENTdisp = RBtoOBJIDENTdisp-RBtoSSdisp,                  00107000
       SStoSDdisp = RBtoSDdisp-RBtoSSdisp,                              00108000
       SAStoSDdisp = RBtoSDdisp-RBtoSASdisp,                            00108100
       SAStoRASdisp = RBtoRASdisp-RBtoSASdisp,                          00108110
       SDtoSSdisp = -SStoSDdisp,                                        00109000
       SDtoIOCNTdisp = RBtoIOCNTdisp-RBtoSDdisp,                        00110000
       SDtoRASdisp   = RBtoRASdisp-RBtoSDdisp,                          00110100
       IOCNTtoINITMSGdisp = RBtoINITMSGdisp-RBtoIOCNTdisp,              00111000
       RStoOBJIDENTdisp = RBtoOBJIDENTdisp-RBtoRSdisp,                  00112000
       RAStoPTRSdisp = RBtoPTRSdisp-RBtoRASdisp,                        00113000
       PTRStoRASdisp = -RAStoPTRSdisp;                                  00114000
                                                                        00115000
DEFINE                                                                  00116000
                                                                        00117000
       <<Region Assignment State Flags>>                                00118000
                                                                        00119000
       RegAssignedFlag = (0:1)#,                                        00120000
       RegReservedFlag = (1:1)#,                                        00121000
       RegAvailableFlag = (2:1)#,                                       00122000
       RegClearedFlag = (3:1)#,                                         00123000
       SizeChangePndgFlag = (4:1)#,                                     00124000
       RegNonMoveFlags = (5:3)#,                                        00125000
       RegLkdFlag = (5:1)#,                                             00126000
       RegFzFlag = (6:1)#,                                              00127000
       RegIOFzFlag = (7:1)#,                                            00128000
       BlkdLkMigIPFlag = (15:1)#, <<blocked lock migration in progress>>00129000
                                                                        00130000
       <<Subregion Assignment State Flags>>                             00131000
                                                                        00132000
       RegCachedFlag = (0:1)#, <<cached disc domain flag>>              00133000
       RegRefFlag = (1:1)#,  <<referenced flag for cached domains>>     00134000
       RegRocFlag =(2:1)#, <<recoverable cache domain>>                 00135000
       RegFetchIOStatus = (13:3)#, <<iostatus of object fetch>>         00135100
                                                                        00136000
       <<Initiation Message Flags>>                                     00137000
                                                                        00138000
       InitMsgToggleSwitch = (0:1)#,                                    00139000
       MsgExtDisabledFlag = (1:1)#,                                     00140000
       MsgOngoingIODisabled = (2:1)#,                                   00141000
       QueueReadReqFlag = (3:1)#,                                       00142000
       IncMoveReqFlag = (4:1)#,                                         00143000
       ExpReqFlag = (5:1)#,                                             00144000
       GarbCollFlag = (6:1)#,                                           00145000
       InitMsgAbortedFlag = (7:1)#,                                     00146000
       InitMsgRelResPagesFlag = (8:1)#,                                 00147000
       InitMsgStartCompFlag = (9:1)#,                                   00147100
                                                                        00148000
       <<Completion Message Flags>>                                     00149000
                                                                        00150000
       CompMsgToggleSwitch = (0:1)#,                                    00151000
       CompMsgModFlag = (1:1)#,                                         00152000
       CompMsgBlkdLkFlag = (2:1)#,                                      00153000
       CompMsgIOWakeFlag = (4:1)#,                                      00154000
       MsgValidYetFlag = (15:1)#,                                       00155000
                                                                        00156000
       <<Freeze, Lock, Iofreeze Count Fields>>                          00157000
                                                                        00158000
       FzCntField = (0:8)#,                                             00159000
       LkCntField = (8:8)#,                                             00160000
       IOFzCntField = (8:8)#,                                           00161000
                                                                        00162000
       <<Disc Address Fields>>                                          00163000
                                                                        00164000
       RegHODAField = (8:8)#,                                           00165000
       RegLDEVField = (0:8)#,                                           00166000
                                                                        00167000
       <<subregion displacement valid flag>>                            00168000
                                                                        00169000
       SDValidFlag = (0:1)#;                                            00170000
                                                                        00171000
EQUATE RegIOFzBit = 7,                                                  00172000
       RegLkdBit = 5,                                                   00173000
       RegFzBit = 6,                                                    00174000
       CompMsgIOWakeBit = 4;                                            00175000
                                                                        00176000
EQUATE CompletedFlag = 6,                                               00177000
       CurrentFlag = 10;                                                00178000
                                                                        00179000
EQUATE RegAvailableCode = %20000,                                       00180000
       RegReservedCode = %40000,                                        00181000
       RegAssignedCode = %100000,                                       00182000
       LastTRASAddr = %177776;                                          00183000
                                                                        00184000
<<   End : INCLREG   >>                                                 00185000
