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
                                                                        00043000
<<relative equates>>                                                    00044000
                                                                        00045000
EQUATE                                                                  00046000
       NLtoRBdisp = -RBtoNLdisp,                                        00053000
       PLtoRBdisp = -RBtoPLdisp,                                        00054000
       TRAStoTSSdisp = -1,                                              00055000
       RAStoSSdisp = RBtoSSdisp-RBtoRASdisp,                            00056000
       SStoPTRASdisp = RBtoPTRASdisp-RBtoSSdisp,                        00057000
       PLtoNLdisp = RBtoNLdisp-RBtoPLdisp,                              00058000
       NLtoPLdisp=-PLtoNLdisp,                                          00058100
       NLtoRSdisp=RBtoRSdisp-RBtoNLdisp;                                00058200
DEFINE                                                                  00059000
                                                                        00060000
       <<Region Assignment State Flags>>                                00061000
                                                                        00062000
       RegAssignedFlag = (0:1)#,                                        00063000
       RegReservedFlag = (1:1)#,                                        00064000
       RegAvailableFlag = (2:1)#,                                       00065000
       RegClearedFlag = (3:1)#,                                         00066000
       SizeChangePndgFlag = (4:1)#,                                     00067000
       RegNonMoveFlags = (5:3)#,                                        00068000
       RegLkdFlag = (5:1)#,                                             00069000
       RegFzFlag = (6:1)#;                                              00070000
