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