MACRO                                                          00001000
         BBOX  &SECT                                                    00002000
         AIF   ('&SECT' EQ 'CSECT').CSECT                               00003000
BBOXADR  DSECT                    DSECT FOR ONE ENTRY IN BOUNDARY       00004000
REALORP  DS    XL4                ORIGIN OF REAL PARTITION              00005000
REALNDP  DS    XL4                END OF REAL PARTITION + 1             00006000
VIRTORP  DS    XL4                ORIGIN OF VIRTUAL PARTITION           00007000
VIRTENDP DS    XL4                END OF VIRTUAL PARTITION + 1          00008000
*                                                                       00009000
*        EQUATES FOR FIRST ENTRY IN BBOX                                00010000
*                                                                       00011000
ALTSDAR  EQU   REALORP            ADDR OF ALTERNATE AREA                00012000
MINREALP EQU   REALNDP            NO PAGE FRAMES IN MIN. REAL PART      00013000
MPGEPOOL EQU   REALNDP+2          NO PAGE FRAMES IN MAIN PAGE POOL      00014000
ORIGVIRT EQU   VIRTORP            ORIGIN OF VIRTUAL STORAGE             00015000
FINVIRT  EQU   VIRTENDP           END OF VIRTUAL STORAGE +1             00016000
         EJECT                                                          00017000
         AGO   .END                                                     00018000
.CSECT   ANOP                                                           00019000
BBOX     DS    0D                 BOUNDARY BOX                          00020000
         ENTRY BBOX                                                     00021000
BDSBOX   DC    A(0)               END ADDRESS OF REAL STOR              00022000
         DC    XL2'00'            NO PAGE FRAMES IN MIN. REAL PART      00023000
         DC    XL2'00'            NO PAGE FRAMES IN MAIN PAGE POOL      00024000
         DC    A(0)               ORIGIN OF VIRTUAL PARTITION           00025000
         DC    A(0)               END OF VIRTUAL PARTITION + 1          00026000
*                                                                       00027000
*        BEGINNING OF BACKGROUND BBOX                                   00028000
*                                                                       00029000
         DC    A(0)               ORIGIN OF REAL PARTITION              00030000
         DC    A(0)               END OF REAL PARTITION + 1             00031000
         DC    A(0)               ORIGIN OF VIRTUAL PARTITION           00032000
         DC    A(0)               END OF VIRTUAL PARTITION + 1          00033000
.END     ANOP                                                           00034000
         MEND                                                           00035000