* %GOTO XNPBSL ;                                     /*                 00050001
         MACRO                                                          00100001
         IEAPXNIP  &TRACE=NOMAP,&IPLDATA=NOMAP,&SYSGEN=(NO,DUM1,DUM2)   00150001
         AIF   ('&TRACE' NE 'MAP').XNPTRCX                              00200001
*                                                                       00250001
***  SYSTEM TRACE HEADER                                                00300001
TRHDR    DSECT                                                          00350001
TRPTR    DS    F                   - NEXT ENTRY ADDRESS                 00400001
TRBEG    DS    F                   - FIRST ENTRY ADDRESS                00450001
TREND    DS    F                   - END OF TABLE ADDRESS               00500001
TRSIZE   DS    0F                  - SIZE OF AREA USED FOR TRACE FUNCT  00510002
TRSBPOOL DS    XL1                  - SUBPOOL CONTAINING TRACE TABLE    00520002
TRLEN    DS    XL3                 - LENGTH OF TOTAL TRACE ARE AND HDR  00530002
TRSIZ    EQU   32                  - TRACE TABLE ENTRY SIZE             00550001
.XNPTRCX AIF   ('&IPLDATA' NE 'MAP').XNPIPLX                            00600001
*                                                                       00650001
***  IPLDATA - IPL PARAMETER AREA                                       00700001
IPLDATA  DSECT                                                          00750001
IPLDVSER DS    6C                  IPL UNIT - VOLUME SERIAL             00800001
IPLDVTOC DS    5C                           - VTOC CCHHR                00850001
IPLDNUCM DS    C                   NUCLEUS MEMBER ID                    00900001
IPLDNUCS DS    F                   SYS1.NUCLEUS DS - START CCHH         00950001
IPLDNUCE DS    F                                   - END CCHH           01000001
.XNPIPLX AIF   ('&SYSGEN(1)' EQ 'NO').XNPGENX                           01050001
*                                                                       01100001
***  SYSGEN PARAMETER LIST                                              01150001
         DC    H'0'                *  RESERVED  *                       01200001
NIPTRACE DC    H'&SYSGEN(1)'       NO. OF TRACE TABLE ENTRIES           01250001
.XNPGENX ANOP                                                           01300001
         MEND                      */                                   01350001
*%XNPBSL: ;                                                             01400001
*                                                                       01450001
*/*****    SYSTEM TRACE HEADER     *****/                               01500001
*  DECLARE 1 TRHDR BASED,                                               01550001
*        2 TRPTR FIXED(31),        /* NEXT ENTRY ADDRESS             */ 01600001
*        2 TRBEG FIXED(31),        /* FIRST ENTRY ADDRESS            */ 01650001
*        2 TREND FIXED(31),        /* END OF TABLE ADDRESS           */ 01700002
*        2 TRSIZE FIXED(31),       /* SIZE OF AREA ALLOCATED TO TRACE*/ 01710002
*          3 TRSBPOOL PTR(8),      /* SUBPOOL CONTAINING TRACE TABLE */ 01720002
*          3 TRLEN    PTR(24);     /* LENGTH OF TRACE TABLE AND HDR  */ 01730002
* %DECLARE TRSIZ CHAR ;                                                 01750001
* %TRSIZ = '''20''X' ;             /* TRACE TABLE ENTRY SIZE         */ 01800001
*                                                                       01850001
*/*****    IPLDATA - IPL PARAMETER AREA  *****/                         01900001
*  DECLARE 1 IPLDATA BASED,                                             01950001
*        2 IPLDVSER CHAR(6),       /* IPL UNIT - VOLUME SERIAL       */ 02000001
*        2 IPLDVTOC CHAR(5),       /*          - VTOC CCHHR          */ 02050001
*        2 IPLDNUCM CHAR(1),       /* NUCLEUS MEMBER ID              */ 02100001
*        2 IPLDNUCS FIXED(31),     /* SYS1.NUCLEUS DS - START CCHH   */ 02150001
*        2 IPLDNUCE FIXED(31);     /*                 - END CCHH     */ 02200001
*                                                                       02250001
*/*****    SYSGEN PARAMETER LIST   *****/                               02300001
*  DECLARE 1 GENLIST BASED(ADDR(TCBGRS)),                               02350001
*        2 *        FIXED(15),     /* * RESERVED *                   */ 02400001
*        2 NIPTRACE FIXED(15);     /* NO. OF TRACE TABLE ENTRIES     */ 02450001