*  %     /*                                                             00050002
         MACRO                                                          00100002
&NAME    PGLOAD &FORM,&LA=,&A=,&ECB=,&EA=,&RELEASE=                     00150002
&NAME IHBPSINR &FORM,TYPE=LOAD,LA=&LA,A=&A,ECB=&ECB,EA=&EA,            X00200002
               RELEASE=&RELEASE                                         00250002
         MEND                                                           00300002
*        */                                                             00350002
*   PGLOAD: MACRO                                                       01850002
*    KEYS(A,                       /* VIRTUAL ADDR OF PAGE TO BE FIXED  02150002
*                                     (R FORM ONLY)                  */ 02450002
*         LA,                      /* ADDR OF FIRST ENTRY OF A VIRTUAL  02750002
*                                     SUBAREA LIST(L FORM ONLY       */ 03050002
*         EA,                      /* END ADDR+1 OF A VIRTUAL AREA TO   03350002
*                                     BE FIXED                       */ 03650002
*         ECB,                     /* ADDR OF EVENT CONTROL BLOCK    */ 03950002
*         RELEASE,                 /* RELEASE(Y)-CONTENTS OF ENTIRE     04250002
*                                          VIRTUAL PAGE DISCARDED       04550002
*                                     RELEASE(N)-CONTENTS OF PAGE       04850002
*                                          REMAIN INTACT (DEFAULT)   */ 05150002
*         RTCD);                   /* RETURN CODE FROM SVC           */ 05450002
*    ANS('?'||MACLABEL||'PGLOADP '||MACLIST||MACKEYS||';');             05500002
*%END;                                                                  82550002