         TITLE 'IEEPRTN2 - STC FREE REGION ROUTINE                   '  00001000
IEEPRTN2 CSECT ,                                                   0001 00002000
@MAINENT DS    0H                                                  0001 00003000
         USING *,@15                                               0001 00004000
         B     @PROLOG                                             0001 00005000
         DC    AL1(16)                                             0001 00006000
         DC    C'IEEPRTN2  73.193'                                 0001 00007000
         DROP  @15                                                      00008000
@PROLOG  BALR  @10,0                                               0001 00009000
@PSTART  DS    0H                                                  0001 00010000
         USING @PSTART,@10                                         0001 00011000
         LR    @12,@01                                             0001 00012000
         L     @00,@SIZDATD                                        0001 00013000
         GETMAIN R,LV=(0)                                               00014000
         LR    @09,@01                                             0001 00015000
         USING @DATD,@09                                           0001 00016000
         LR    @01,@12                                             0001 00017000
         ST    @13,@SA00001+4                                      0001 00018000
         LR    @13,@09                                             0001 00019000
         MVC   @PC00001(4),0(@01)                                  0001 00020000
*                                      SAVED BY RESTART FLIH MDC078  */ 00021000
*                                                                  0017 00022000
*   /*****************************************************************/ 00023000
*   /*                                                               */ 00024000
*   /* SET UP BASED VARIABLES                                        */ 00025000
*   /*                                                               */ 00026000
*   /*****************************************************************/ 00027000
*                                                                  0017 00028000
*   ASCBPTR=R1;                     /* ADDRESS THE ASCB              */ 00029000
         LR    ASCBPTR,R1                                          0017 00030000
*   CSCBPTR=ASCBCSCB;               /* THE CSCB IS BASED ON A POINTER   00031000
*                                      IN THE ASCB                   */ 00032000
*                                                                  0018 00033000
         L     @15,ASCBCSCB(,ASCBPTR)                              0018 00034000
         LR    CSCBPTR,@15                                         0018 00035000
*   /*****************************************************************/ 00036000
*   /*                                                               */ 00037000
*   /* CLEAR ASCBJBNS FIELD IN THE ASCB                              */ 00038000
*   /*                                                               */ 00039000
*   /*****************************************************************/ 00040000
*                                                                  0019 00041000
*   ASCBJBNS=''B;                                                  0019 00042000
*                                                                  0019 00043000
         SR    @12,@12                                             0019 00044000
         ST    @12,ASCBJBNS(,ASCBPTR)                              0019 00045000
*   /*****************************************************************/ 00046000
*   /*                                                               */ 00047000
*   /* TEST FOR A CSCB-IF THERE IS ONE TURN ON THE CHDL AND CHFC BITS*/ 00048000
*   /* IN THE CSCB (THESE BITS TELL MGCR THAT THE CSCB IS TO BE      */ 00049000
*   /* FREED.) CLEAR THE ASCBCSCB FIELD IN THE ASCB AND ISSUE MGCR TO*/ 00050000
*   /* FREE THE CSCB                                                 */ 00051000
*   /*                                                               */ 00052000
*   /*****************************************************************/ 00053000
*                                                                  0020 00054000
*   IF ASCBCSCB^=ZERO THEN          /* TEST FOR A CSCB               */ 00055000
         LTR   @15,@15                                             0020 00056000
         BZ    @RF00020                                            0020 00057000
*     DO;                           /* IF YES THEN PREPARE TO FREE IT*/ 00058000
*       CHDL='1'B;                  /* SET DELETE FROM CSCB CHAIN BIT*/ 00059000
*       CHFC='1'B;                  /* SET FREE THIS CSCB AREA BIT   */ 00060000
*                                                                  0023 00061000
         OI    CHDL(CSCBPTR),B'00000110'                           0023 00062000
*       /*************************************************************/ 00063000
*       /*                                                           */ 00064000
*       /* USE SETLOCK TO CLEAR ACSBCSCB FIELD IN THE ASCB           */ 00065000
*       /*                                                           */ 00066000
*       /*************************************************************/ 00067000
*                                                                  0024 00068000
*       DO;                         /* SETLOCK (OBTAIN) MODE(UNCOND)    00069000
*                                      TYPE(LOCAL) REGS(SAVE)      0024 00070000
*                                      RELATED(ASCB,IEEPRTN2(LOOP))  */ 00071000
*         RFY                                                      0025 00072000
*          (GPR11P,                                                0025 00073000
*           GPR12P,                                                0025 00074000
*           GPR13P,                                                0025 00075000
*           GPR14P)RSTD;                                           0025 00076000
*         RFY                                                      0026 00077000
*           GPR15P RSTD;                                           0026 00078000
*         GPR15P=GPR13P;            /* ADDRESS OF REGISTER SAVE AREA.*/ 00079000
         LR    GPR15P,GPR13P                                       0027 00080000
*         GEN(STM GPR11P,GPR14P,0(GPR15P));/* SAVE REGISTERS.        */ 00081000
         STM GPR11P,GPR14P,0(GPR15P)                                    00082000
*         GPR13P=PSALITA;           /* ADDRESS OF LOCK INTERFACE   0029 00083000
*                                      TABLE.                        */ 00084000
         L     GPR13P,PSALITA                                      0029 00085000
*         GEN(LM GPR11P,GPR13P,576(GPR13P));/* LOAD LOCKWORD, CLHT 0030 00086000
*                                      AND ENTRY ADRS.               */ 00087000
         LM GPR11P,GPR13P,576(GPR13P)                                   00088000
*         GEN(BALR GPR14P,GPR13P);  /* BALR TO SETLOCK RTN.          */ 00089000
         BALR GPR14P,GPR13P                                             00090000
*         GEN(ST GPR13P,16(GPR15P));/* SAVE RETURN CODE IN SAVE AREA.*/ 00091000
         ST GPR13P,16(GPR15P)                                           00092000
*         GEN(LM GPR11P,GPR15P,0(GPR15P));/* RESTORE REGS. - PUT   0033 00093000
*                                      RETURN CODE IN 15.            */ 00094000
         LM GPR11P,GPR15P,0(GPR15P)                                     00095000
*         RFY                                                      0034 00096000
*           GPR15P UNRSTD;                                         0034 00097000
*         RFY                                                      0035 00098000
*          (GPR11P,                                                0035 00099000
*           GPR12P,                                                0035 00100000
*           GPR13P,                                                0035 00101000
*           GPR14P)UNRSTD;                                         0035 00102000
*       END;                        /* SETLOCK (OBTAIN) MODE(UNCOND)    00103000
*                                      TYPE(LOCAL) REGS(SAVE)      0036 00104000
*                                      RELATED(ASCB,IEEPRTN2(LOOP))  */ 00105000
*       DO;                         /* SETLOCK (OBTAIN) MODE(UNCOND)    00106000
*                                      TYPE(CMS) REGS(SAVE)        0037 00107000
*                                      RELATED(ASCB,IEEPRTN2(LOOP))  */ 00108000
*         RFY                                                      0038 00109000
*          (GPR11P,                                                0038 00110000
*           GPR12P,                                                0038 00111000
*           GPR13P,                                                0038 00112000
*           GPR14P)RSTD;                                           0038 00113000
*         RFY                                                      0039 00114000
*           GPR15P RSTD;                                           0039 00115000
*         GPR15P=GPR13P;            /* ADDRESS OF REGISTER SAVE AREA.*/ 00116000
         LR    GPR15P,GPR13P                                       0040 00117000
*         GEN(STM GPR11P,GPR14P,0(GPR15P));/* SAVE REGISTERS.        */ 00118000
         STM GPR11P,GPR14P,0(GPR15P)                                    00119000
*         GPR13P=PSALITA;           /* ADDRESS OF LOCK INTERFACE   0042 00120000
*                                      TABLE.                        */ 00121000
         L     GPR13P,PSALITA                                      0042 00122000
*         GEN(LM GPR11P,GPR13P,540(GPR13P));/* LOAD LOCKWORD, CLHT 0043 00123000
*                                      AND ENTRY ADRS.               */ 00124000
         LM GPR11P,GPR13P,540(GPR13P)                                   00125000
*         GEN(BALR GPR14P,GPR13P);  /* BALR TO SETLOCK RTN.          */ 00126000
         BALR GPR14P,GPR13P                                             00127000
*         GEN(ST GPR13P,16(GPR15P));/* SAVE RETURN CODE IN SAVE AREA.*/ 00128000
         ST GPR13P,16(GPR15P)                                           00129000
*         GEN(LM GPR11P,GPR15P,0(GPR15P));/* RESTORE REGS. - PUT   0046 00130000
*                                      RETURN CODE IN 15.            */ 00131000
         LM GPR11P,GPR15P,0(GPR15P)                                     00132000
*         RFY                                                      0047 00133000
*           GPR15P UNRSTD;                                         0047 00134000
*         RFY                                                      0048 00135000
*          (GPR11P,                                                0048 00136000
*           GPR12P,                                                0048 00137000
*           GPR13P,                                                0048 00138000
*           GPR14P)UNRSTD;                                         0048 00139000
*       END;                        /* SETLOCK (OBTAIN) MODE(UNCOND)    00140000
*                                      TYPE(CMS) REGS(SAVE)        0049 00141000
*                                      RELATED(ASCB,IEEPRTN2(LOOP))  */ 00142000
*       ASCBCSCB=''B;                                              0050 00143000
         SR    @15,@15                                             0050 00144000
         ST    @15,ASCBCSCB(,ASCBPTR)                              0050 00145000
*       DO;                         /* SETLOCK (RELEASE) TYPE(CMS) 0051 00146000
*                                      REGS(SAVE)                  0051 00147000
*                                      RELATED(ASCB,IEEPRTN2(LOOP))  */ 00148000
*         RFY                                                      0052 00149000
*          (GPR11P,                                                0052 00150000
*           GPR12P,                                                0052 00151000
*           GPR13P,                                                0052 00152000
*           GPR14P)RSTD;                                           0052 00153000
*         RFY                                                      0053 00154000
*           GPR15P RSTD;                                           0053 00155000
*         GPR15P=GPR13P;            /* ADDRESS OF REGISTER SAVE AREA.*/ 00156000
         LR    GPR15P,GPR13P                                       0054 00157000
*         GEN(STM GPR11P,GPR14P,0(GPR15P));/* SAVE REGISTERS.        */ 00158000
         STM GPR11P,GPR14P,0(GPR15P)                                    00159000
*         GPR13P=PSALITA;           /* ADDRESS OF LOCK INTERFACE   0056 00160000
*                                      TABLE.                        */ 00161000
         L     GPR13P,PSALITA                                      0056 00162000
*         GEN(LM GPR11P,GPR13P,552(GPR13P));/* LOAD LOCKWORD, CLHT 0057 00163000
*                                      AND ENTRY ADRS.               */ 00164000
         LM GPR11P,GPR13P,552(GPR13P)                                   00165000
*         GEN(BALR GPR14P,GPR13P);  /* BALR TO SETLOCK RTN.          */ 00166000
         BALR GPR14P,GPR13P                                             00167000
*         GEN(ST GPR13P,16(GPR15P));/* SAVE RETURN CODE IN SAVE AREA.*/ 00168000
         ST GPR13P,16(GPR15P)                                           00169000
*         GEN(LM GPR11P,GPR15P,0(GPR15P));/* RESTORE REGS. - PUT   0060 00170000
*                                      RETURN CODE IN 15.            */ 00171000
         LM GPR11P,GPR15P,0(GPR15P)                                     00172000
*         RFY                                                      0061 00173000
*           GPR15P UNRSTD;                                         0061 00174000
*         RFY                                                      0062 00175000
*          (GPR11P,                                                0062 00176000
*           GPR12P,                                                0062 00177000
*           GPR13P,                                                0062 00178000
*           GPR14P)UNRSTD;                                         0062 00179000
*       END;                        /* SETLOCK (RELEASE) TYPE(CMS) 0063 00180000
*                                      REGS(SAVE)                  0063 00181000
*                                      RELATED(ASCB,IEEPRTN2(LOOP))  */ 00182000
*       DO;                         /* SETLOCK (RELEASE) TYPE(LOCAL)    00183000
*                                      REGS(SAVE)                  0064 00184000
*                                      RELATED(ASCB,IEEPRTN2(LOOP))  */ 00185000
*         RFY                                                      0065 00186000
*          (GPR11P,                                                0065 00187000
*           GPR12P,                                                0065 00188000
*           GPR13P,                                                0065 00189000
*           GPR14P)RSTD;                                           0065 00190000
*         RFY                                                      0066 00191000
*           GPR15P RSTD;                                           0066 00192000
*         GPR15P=GPR13P;            /* ADDRESS OF REGISTER SAVE AREA.*/ 00193000
         LR    GPR15P,GPR13P                                       0067 00194000
*         GEN(STM GPR11P,GPR14P,0(GPR15P));/* SAVE REGISTERS.        */ 00195000
         STM GPR11P,GPR14P,0(GPR15P)                                    00196000
*         GPR13P=PSALITA;           /* ADDRESS OF LOCK INTERFACE   0069 00197000
*                                      TABLE.                        */ 00198000
         L     GPR13P,PSALITA                                      0069 00199000
*         GEN(LM GPR11P,GPR13P,588(GPR13P));/* LOAD LOCKWORD, CLHT 0070 00200000
*                                      AND ENTRY ADRS.               */ 00201000
         LM GPR11P,GPR13P,588(GPR13P)                                   00202000
*         GEN(BALR GPR14P,GPR13P);  /* BALR TO SETLOCK RTN.          */ 00203000
         BALR GPR14P,GPR13P                                             00204000
*         GEN(ST GPR13P,16(GPR15P));/* SAVE RETURN CODE IN SAVE AREA.*/ 00205000
         ST GPR13P,16(GPR15P)                                           00206000
*         GEN(LM GPR11P,GPR15P,0(GPR15P));/* RESTORE REGS. - PUT   0073 00207000
*                                      RETURN CODE IN 15.            */ 00208000
         LM GPR11P,GPR15P,0(GPR15P)                                     00209000
*         RFY                                                      0074 00210000
*           GPR15P UNRSTD;                                         0074 00211000
*         RFY                                                      0075 00212000
*          (GPR11P,                                                0075 00213000
*           GPR12P,                                                0075 00214000
*           GPR13P,                                                0075 00215000
*           GPR14P)UNRSTD;                                         0075 00216000
*       END;                        /* SETLOCK (RELEASE) TYPE(LOCAL)    00217000
*                                      REGS(SAVE)                  0076 00218000
*                                      RELATED(ASCB,IEEPRTN2(LOOP))  */ 00219000
*                                                                  0076 00220000
*       /*************************************************************/ 00221000
*       /*                                                           */ 00222000
*       /* FREE THE CSCB USING MGCR                                  */ 00223000
*       /*                                                           */ 00224000
*       /*************************************************************/ 00225000
*                                                                  0077 00226000
*       R1=CSCBPTR;                 /* SET THE CSCB PTR              */ 00227000
         LR    R1,CSCBPTR                                          0077 00228000
*       GEN(MGCR (1),CHAIN);        /* FREE THE CSCB                 */ 00229000
         MGCR (1),CHAIN                                                 00230000
*     END;                                                         0079 00231000
*   R14=ADDR(CVTEXIT);              /* SET UP TO ISSUE SVC 3         */ 00232000
@RF00020 L     R14,CVTPTR                                          0080 00233000
         LA    R14,CVTEXIT(,R14)                                   0080 00234000
*   RETURN;                         /* RETURN TO RCT                 */ 00235000
@EL00001 L     @13,4(,@13)                                         0081 00236000
@EF00001 L     @00,@SIZDATD                                        0081 00237000
         LR    @01,@09                                             0081 00238000
         FREEMAIN R,LV=(0),A=(1)                                        00239000
@ER00001 BR    @14                                                 0081 00240000
*   DCL                                                            0082 00241000
*     PATCHLOC FIXED(31)STATIC;                                    0082 00242000
*   GEN DATA DEFS(PATCHLOC);                                       0083 00243000
*   DECLARE                         /* GENERAL PURPOSE REGISTERS     */ 00244000
*     GPR00P PTR(31)REG(0),                                        0084 00245000
*     GPR01P PTR(31)REG(1),                                        0084 00246000
*     GPR11P PTR(31)REG(11),                                       0084 00247000
*     GPR12P PTR(31)REG(12),                                       0084 00248000
*     GPR13P PTR(31)REG(13),                                       0084 00249000
*     GPR14P PTR(31)REG(14),                                       0084 00250000
*     GPR15P PTR(31)REG(15);                                       0084 00251000
*   DECLARE                         /* COMMON VARIABLES              */ 00252000
*     I256C CHAR(256)BASED,                                        0085 00253000
*     I031F FIXED(31)BASED,                                        0085 00254000
*     I031P PTR(31)BASED,                                          0085 00255000
*     I015F FIXED(15)BASED,                                        0085 00256000
*     I015P PTR(15)BASED,                                          0085 00257000
*     I008P PTR(8)BASED,                                           0085 00258000
*     I001C CHAR(1)BASED;                                          0085 00259000
*   END IEEPRTN2                                                   0086 00260000
*                                                                  0086 00261000
*/* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM.     */ 00262000
*/*%INCLUDE SYSLIB  (CVT     )                                       */ 00263000
*/*%INCLUDE SYSLIB  (IKJTCB  )                                       */ 00264000
*/*%INCLUDE SYSLIB  (IEECHAIN)                                       */ 00265000
*/*%INCLUDE SYSLIB  (IHAASCB )                                       */ 00266000
*/*%INCLUDE SYSLIB  (IHAPSA  )                                       */ 00267000
*                                                                  0086 00268000
*       ;                                                          0086 00269000
         B     @EL00001                                            0086 00270000
@DATA    DS    0H                                                       00271000
@DATD    DSECT                                                          00272000
         DS    0F                                                       00273000
@SA00001 DS    18F                                                      00274000
@PC00001 DS    1F                                                       00275000
IEEPRTN2 CSECT                                                          00276000
         DS    0F                                                       00277000
@DATD    DSECT                                                          00278000
         DS    0D                                                       00279000
R0INPUT  DS    CL4                                                      00280000
         ORG   R0INPUT                                                  00281000
SPNUM    DS    FL1                                                      00282000
SPLEN    DS    FL3                                                      00283000
         ORG   R0INPUT+4                                                00284000
IEEPRTN2 CSECT                                                          00285000
         DS    0F                                                       00286000
@SIZDATD DC    AL1(230)                                                 00287000
         DC    AL3(@ENDDATD-@DATD)                                      00288000
         DS    0D                                                       00289000
IEEPRTN2 CSECT                                                          00290000
         DS   0H                                                        00291000
PATCHLOC DC ((@DATA-@PSTART)/20)X'00'                                   00292000
@DATD    DSECT                                                          00293000
         ORG   *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA                00294000
@ENDDATD EQU   *                                                        00295000
IEEPRTN2 CSECT                                                          00296000
@00      EQU   00                      EQUATES FOR REGISTERS 0-15       00297000
@01      EQU   01                                                       00298000
@02      EQU   02                                                       00299000
@03      EQU   03                                                       00300000
@04      EQU   04                                                       00301000
@05      EQU   05                                                       00302000
@06      EQU   06                                                       00303000
@07      EQU   07                                                       00304000
@08      EQU   08                                                       00305000
@09      EQU   09                                                       00306000
@10      EQU   10                                                       00307000
@11      EQU   11                                                       00308000
@12      EQU   12                                                       00309000
@13      EQU   13                                                       00310000
@14      EQU   14                                                       00311000
@15      EQU   15                                                       00312000
ASCBPTR  EQU   @02                                                      00313000
CSCBPTR  EQU   @03                                                      00314000
R0       EQU   @00                                                      00315000
R1       EQU   @01                                                      00316000
R14      EQU   @14                                                      00317000
GPR11P   EQU   @11                                                      00318000
GPR12P   EQU   @12                                                      00319000
GPR13P   EQU   @13                                                      00320000
GPR14P   EQU   @14                                                      00321000
GPR15P   EQU   @15                                                      00322000
GPR00P   EQU   @00                                                      00323000
GPR01P   EQU   @01                                                      00324000
CVTPTR   EQU   16                                                       00325000
PSA      EQU   0                                                        00326000
FLCRNPSW EQU   PSA                                                      00327000
FLCROPSW EQU   PSA+8                                                    00328000
FLCICCW2 EQU   PSA+16                                                   00329000
PSAEEPSW EQU   PSA+132                                                  00330000
PSAESPSW EQU   PSA+136                                                  00331000
FLCSVILC EQU   PSAESPSW+1                                               00332000
PSAEPPSW EQU   PSA+140                                                  00333000
FLCPIILC EQU   PSAEPPSW+1                                               00334000
FLCPICOD EQU   PSAEPPSW+2                                               00335000
PSAPICOD EQU   FLCPICOD+1                                               00336000
FLCTEA   EQU   PSAEPPSW+4                                               00337000
FLCPER   EQU   PSA+152                                                  00338000
FLCMCLA  EQU   PSA+168                                                  00339000
FLCIOEL  EQU   FLCMCLA+4                                                00340000
FLCIOA   EQU   FLCMCLA+16                                               00341000
FLCFSA   EQU   FLCMCLA+80                                               00342000
PSASUPER EQU   PSA+552                                                  00343000
PSASUP1  EQU   PSASUPER                                                 00344000
PSASUP2  EQU   PSASUPER+1                                               00345000
PSASUP3  EQU   PSASUPER+2                                               00346000
PSASUP4  EQU   PSASUPER+3                                               00347000
PSACLHT  EQU   PSA+640                                                  00348000
PSALKSA  EQU   PSA+696                                                  00349000
PSAHLHI  EQU   PSA+760                                                  00350000
PSALITA  EQU   PSA+764                                                  00351000
PSADSSFL EQU   PSA+836                                                  00352000
PSADSSF1 EQU   PSADSSFL                                                 00353000
PSADSSF3 EQU   PSADSSFL+2                                               00354000
PSADSSF4 EQU   PSADSSFL+3                                               00355000
PSARSVT  EQU   PSA+896                                                  00356000
TCBASCB  EQU   0                                                        00357000
TCBPTR   EQU   TCBASCB+4                                                00358000
CVTMAP   EQU   0                                                        00359000
CVTTCBP  EQU   CVTMAP                                                   00360000
CVTDAR   EQU   CVTMAP+72                                                00361000
CVTFLGS1 EQU   CVTDAR                                                   00362000
CVTEXIT  EQU   CVTMAP+80                                                00363000
CVTDCB   EQU   CVTMAP+116                                               00364000
CVTOPTA  EQU   CVTMAP+182                                               00365000
CVTOPTB  EQU   CVTMAP+183                                               00366000
CVTTSCVT EQU   CVTMAP+228                                               00367000
CVTTSFLG EQU   CVTTSCVT                                                 00368000
CVTGTF   EQU   CVTMAP+236                                               00369000
CVTGTFST EQU   CVTGTF                                                   00370000
CVTGTFS  EQU   CVTGTFST                                                 00371000
CVTSTATE EQU   CVTGTFST                                                 00372000
CVTTMODE EQU   CVTGTFST                                                 00373000
CVTFORM  EQU   CVTGTFST                                                 00374000
CVTUSR   EQU   CVTGTFST                                                 00375000
CVTAQAVT EQU   CVTMAP+240                                               00376000
CVTTCMFG EQU   CVTAQAVT                                                 00377000
CVTVOLM2 EQU   CVTMAP+244                                               00378000
CVTTATA  EQU   CVTVOLM2                                                 00379000
CVTTSKS  EQU   CVTTATA                                                  00380000
CVTVOLF2 EQU   CVTTSKS                                                  00381000
CVTTAT   EQU   CVTTATA+1                                                00382000
CVTATER  EQU   CVTMAP+248                                               00383000
CVTEXT1  EQU   CVTMAP+252                                               00384000
CVTPURG  EQU   CVTMAP+260                                               00385000
CVTQMSG  EQU   CVTMAP+268                                               00386000
CVTDMSR  EQU   CVTMAP+272                                               00387000
CVTAPF   EQU   CVTMAP+324                                               00388000
CVTEXT2  EQU   CVTMAP+328                                               00389000
CVTHJES  EQU   CVTMAP+332                                               00390000
CVTPGSIA EQU   CVTMAP+348                                               00391000
CVTA1F1  EQU   CVTMAP+356                                               00392000
CVTSYSK  EQU   CVTMAP+357                                               00393000
CVTVOLM1 EQU   CVTMAP+380                                               00394000
CVTVOLF1 EQU   CVTVOLM1                                                 00395000
CVTATMCT EQU   CVTMAP+388                                               00396000
CVTXTNT1 EQU   0                                                        00397000
CVTXTNT2 EQU   0                                                        00398000
CVTDSSV  EQU   CVTXTNT2                                                 00399000
CVTRSV90 EQU   CVTXTNT2+5                                               00400000
CVTQID   EQU   CVTXTNT2+24                                              00401000
CVTRV400 EQU   CVTXTNT2+52                                              00402000
CVTRV409 EQU   CVTXTNT2+53                                              00403000
CVTATCVT EQU   CVTXTNT2+64                                              00404000
CVTRV429 EQU   CVTXTNT2+84                                              00405000
CVTRV438 EQU   CVTXTNT2+85                                              00406000
CVTRV457 EQU   CVTXTNT2+112                                             00407000
CVTRV466 EQU   CVTXTNT2+113                                             00408000
CVTFIX   EQU   0                                                        00409000
CVTRELNO EQU   CVTFIX+252                                               00410000
TCBFIX   EQU   0                                                        00411000
TCBFRS   EQU   TCBFIX                                                   00412000
TCB      EQU   0                                                        00413000
TCBPIE   EQU   TCB+4                                                    00414000
TCBPMASK EQU   TCBPIE                                                   00415000
TCBCMP   EQU   TCB+16                                                   00416000
TCBCMPF  EQU   TCBCMP                                                   00417000
TCBCPP   EQU   TCBCMPF                                                  00418000
TCBSTCC  EQU   TCBCMPF                                                  00419000
TCBCDBL  EQU   TCBCMPF                                                  00420000
TCBCWTO  EQU   TCBCMPF                                                  00421000
TCBCIND  EQU   TCBCMPF                                                  00422000
TCBCMSG  EQU   TCBCMPF                                                  00423000
TCBTRN   EQU   TCB+20                                                   00424000
TCBABF   EQU   TCBTRN                                                   00425000
TCBMSS   EQU   TCB+24                                                   00426000
TCBPKF   EQU   TCB+28                                                   00427000
TCBFLGS  EQU   TCB+29                                                   00428000
TCBFLGS1 EQU   TCBFLGS                                                  00429000
TCBFLGS2 EQU   TCBFLGS+1                                                00430000
TCBFLGS3 EQU   TCBFLGS+2                                                00431000
TCBFLGS4 EQU   TCBFLGS+3                                                00432000
TCBFLGS5 EQU   TCBFLGS+4                                                00433000
TCBABWF  EQU   TCBFLGS5                                                 00434000
TCBJPQ   EQU   TCB+44                                                   00435000
TCBPURGE EQU   TCBJPQ                                                   00436000
TCBGRS   EQU   TCB+48                                                   00437000
TCBFSA   EQU   TCB+112                                                  00438000
TCBTME   EQU   TCB+120                                                  00439000
TCBJSTCB EQU   TCB+124                                                  00440000
TCBTSFLG EQU   TCB+148                                                  00441000
TCBTSTSK EQU   TCBTSFLG                                                 00442000
TCBSTAB  EQU   TCB+160                                                  00443000
TCBNSTAE EQU   TCBSTAB                                                  00444000
TCBTCT   EQU   TCB+164                                                  00445000
TCBTCTGF EQU   TCBTCT                                                   00446000
TCBSCNDY EQU   TCB+172                                                  00447000
TCBNDSP  EQU   TCBSCNDY                                                 00448000
TCBNDSP1 EQU   TCBNDSP+1                                                00449000
TCBNDSP2 EQU   TCBNDSP+2                                                00450000
TCBNDSP3 EQU   TCBNDSP+3                                                00451000
TCBJSCB  EQU   TCB+180                                                  00452000
TCBRECDE EQU   TCBJSCB                                                  00453000
TCBEXT1  EQU   TCB+196                                                  00454000
TCBBITS  EQU   TCB+200                                                  00455000
TCBNDSP4 EQU   TCBBITS                                                  00456000
TCBNDSP5 EQU   TCBBITS+1                                                00457000
TCBFLGS6 EQU   TCBBITS+2                                                00458000
TCBFLGS7 EQU   TCBBITS+3                                                00459000
TCBDAR   EQU   TCB+204                                                  00460000
TCBDARC  EQU   TCBDAR                                                   00461000
TCBEXT2  EQU   TCB+208                                                  00462000
TCBFOE   EQU   TCB+244                                                  00463000
TCBESTAE EQU   TCB+264                                                  00464000
TCBESTRM EQU   TCBESTAE+1                                               00465000
TCBFBYT1 EQU   TCB+276                                                  00466000
TCBFBYT2 EQU   TCB+277                                                  00467000
TCBRV124 EQU   TCB+278                                                  00468000
TCBRV133 EQU   TCB+279                                                  00469000
TCBXTNT2 EQU   0                                                        00470000
TCBGTF   EQU   TCBXTNT2                                                 00471000
TCBTFLG  EQU   TCBGTF                                                   00472000
TCBRV146 EQU   TCBXTNT2+28                                              00473000
TCBRV155 EQU   TCBXTNT2+29                                              00474000
TCBRV164 EQU   TCBXTNT2+30                                              00475000
TCBRV173 EQU   TCBXTNT2+31                                              00476000
CHAIN    EQU   0                                                        00477000
CHFLG    EQU   CHAIN+4                                                  00478000
CHSTS    EQU   CHFLG+2                                                  00479000
CHDL     EQU   CHSTS                                                    00480000
CHFC     EQU   CHSTS                                                    00481000
CHACT    EQU   CHFLG+3                                                  00482000
CHKEY    EQU   CHAIN+8                                                  00483000
CHPKE    EQU   CHAIN+28                                                 00484000
CHTJID   EQU   CHAIN+30                                                 00485000
CHACT1   EQU   CHAIN+35                                                 00486000
CHASM    EQU   CHAIN+40                                                 00487000
CHCIBP   EQU   CHASM+4                                                  00488000
CHRGNSZ  EQU   CHASM+8                                                  00489000
CHSHORT  EQU   CHASM+24                                                 00490000
CHSWT    EQU   CHSHORT                                                  00491000
ASCB     EQU   0                                                        00492000
ASCBCSCB EQU   ASCB+56                                                  00493000
ASCBFW1  EQU   ASCB+100                                                 00494000
ASCBRCTF EQU   ASCBFW1+2                                                00495000
ASCBFLG1 EQU   ASCBFW1+3                                                00496000
ASCBDSP1 EQU   ASCB+114                                                 00497000
ASCBFLG2 EQU   ASCB+115                                                 00498000
ASCBJBNS EQU   ASCB+176                                                 00499000
I001C    EQU   0                                                        00500000
I008P    EQU   0                                                        00501000
I015F    EQU   0                                                        00502000
I015P    EQU   0                                                        00503000
I031F    EQU   0                                                        00504000
I031P    EQU   0                                                        00505000
I256C    EQU   0                                                        00506000
DUMMY    EQU   0                                                        00507000
CVTS01   EQU   CVTPGSIA                                                 00508000
CVTLPDIA EQU   CVTS01+12                                                00509000
CVTDIRST EQU   CVTLPDIA                                                 00510000
CVTSLIDA EQU   CVTS01+24                                                00511000
CVTCTLFG EQU   CVTS01+50                                                00512000
CVTRV100 EQU   CVTS01+116                                               00513000
CVTRV109 EQU   CVTS01+117                                               00514000
CVTRV118 EQU   CVTS01+118                                               00515000
CVTRV127 EQU   CVTS01+119                                               00516000
CVTRV210 EQU   CVTS01+424                                               00517000
CVTRV219 EQU   CVTS01+425                                               00518000
CVTRV228 EQU   CVTS01+426                                               00519000
CVTRV237 EQU   CVTS01+427                                               00520000
CVTMFRTR EQU   CVTS01+452                                               00521000
CVTRV262 EQU   CVTS01+468                                               00522000
CVTRV271 EQU   CVTS01+469                                               00523000
CVTRV280 EQU   CVTS01+470                                               00524000
CVTRV289 EQU   CVTS01+471                                               00525000
CVTGSDA  EQU   CVTS01+600                                               00526000
CHAINS01 EQU   CHASM                                                    00527000
CHTYPE   EQU   CHAINS01+124                                             00528000
CHTRSTAT EQU   CHAINS01+125                                             00529000
CHCSYSO  EQU   CHAINS01+134                                             00530000
PSARSVTE EQU   PSARSVT                                                  00531000
FLC      EQU   PSA                                                      00532000
         AGO   .@UNREFD                START UNREFERENCED COMPONENTS    00533000
PSARSAV  EQU   PSARSVTE+60                                              00534000
PSARSTK  EQU   PSARSVTE+56                                              00535000
PSAESAV3 EQU   PSARSVTE+52                                              00536000
PSAESTK3 EQU   PSARSVTE+48                                              00537000
PSAESAV2 EQU   PSARSVTE+44                                              00538000
PSAESTK2 EQU   PSARSVTE+40                                              00539000
PSAESAV1 EQU   PSARSVTE+36                                              00540000
PSAESTK1 EQU   PSARSVTE+32                                              00541000
PSAPSAV  EQU   PSARSVTE+28                                              00542000
PSAPSTK  EQU   PSARSVTE+24                                              00543000
PSAMSAV  EQU   PSARSVTE+20                                              00544000
PSAMSTK  EQU   PSARSVTE+16                                              00545000
PSASSAV  EQU   PSARSVTE+12                                              00546000
PSASSTK  EQU   PSARSVTE+8                                               00547000
PSANSTK  EQU   PSARSVTE+4                                               00548000
PSACSTK  EQU   PSARSVTE                                                 00549000
CHLAST   EQU   CHAINS01+136                                             00550000
CHSPA    EQU   CHAINS01+135                                             00551000
CHUSERID EQU   CHCSYSO                                                  00552000
CHJB     EQU   CHCSYSO                                                  00553000
CHDUMP   EQU   CHCSYSO                                                  00554000
CHQUE    EQU   CHCSYSO                                                  00555000
CHHOLD   EQU   CHCSYSO                                                  00556000
CHOUT    EQU   CHCSYSO                                                  00557000
CHINN    EQU   CHCSYSO                                                  00558000
CHALL    EQU   CHCSYSO                                                  00559000
CHINC    EQU   CHAINS01+132                                             00560000
CHPEND   EQU   CHAINS01+128                                             00561000
CHARID   EQU   CHAINS01+127                                             00562000
CHCNID   EQU   CHAINS01+126                                             00563000
@NM00011 EQU   CHTRSTAT                                                 00564000
CHTSL    EQU   CHTRSTAT                                                 00565000
CHTS     EQU   CHTRSTAT                                                 00566000
CHINITL  EQU   CHTRSTAT                                                 00567000
CHINIT   EQU   CHTRSTAT                                                 00568000
CHJOBSL  EQU   CHTRSTAT                                                 00569000
CHJOBS   EQU   CHTRSTAT                                                 00570000
CHDEF    EQU   CHTYPE                                                   00571000
CHHIAR   EQU   CHTYPE                                                   00572000
CHARSV29 EQU   CHTYPE                                                   00573000
CHARSV28 EQU   CHTYPE                                                   00574000
CHARSV27 EQU   CHTYPE                                                   00575000
CHARSV26 EQU   CHTYPE                                                   00576000
CHARSV25 EQU   CHTYPE                                                   00577000
CHDSTAT  EQU   CHTYPE                                                   00578000
CHBUF    EQU   CHAINS01                                                 00579000
CVTTPIO  EQU   CVTS01+608                                               00580000
CVTADV   EQU   CVTS01+604                                               00581000
CVTGSDAB EQU   CVTGSDA                                                  00582000
CVTQV3   EQU   CVTS01+596                                               00583000
CVTQV2   EQU   CVTS01+592                                               00584000
CVTQV1   EQU   CVTS01+588                                               00585000
CVTRPT   EQU   CVTS01+584                                               00586000
CVTSSRB  EQU   CVTS01+580                                               00587000
CVTCSDRL EQU   CVTS01+576                                               00588000
CVTEXP1  EQU   CVTS01+572                                               00589000
CVTRMPMT EQU   CVTS01+568                                               00590000
CVTRMPTT EQU   CVTS01+564                                               00591000
CVTVPSA  EQU   CVTS01+560                                               00592000
CVTVSTOP EQU   CVTS01+556                                               00593000
CVTGTFR8 EQU   CVTS01+552                                               00594000
CVTQUIT  EQU   CVTS01+548                                               00595000
CVTVACR  EQU   CVTS01+544                                               00596000
CVTWTCB  EQU   CVTS01+540                                               00597000
CVTSTPRS EQU   CVTS01+536                                               00598000
CVT0PT02 EQU   CVTS01+532                                               00599000
CVTDARCM EQU   CVTS01+528                                               00600000
CVTIRECM EQU   CVTS01+524                                               00601000
CVTJRECM EQU   CVTS01+520                                               00602000
CVTVEMS0 EQU   CVTS01+516                                               00603000
CVTSPFRR EQU   CVTS01+512                                               00604000
CVTRLSTG EQU   CVTS01+508                                               00605000
CVT0TC0A EQU   CVTS01+504                                               00606000
CVTGMBR  EQU   CVTS01+500                                               00607000
CVTLFRM  EQU   CVTS01+496                                               00608000
CVTRMBR  EQU   CVTS01+492                                               00609000
CVTVIOP  EQU   CVTS01+488                                               00610000
CVTRV307 EQU   CVTS01+486                                               00611000
CVTRV306 EQU   CVTS01+484                                               00612000
CVTRV305 EQU   CVTS01+482                                               00613000
CVTRV304 EQU   CVTS01+480                                               00614000
CVTRV303 EQU   CVTS01+478                                               00615000
CVTRV302 EQU   CVTS01+476                                               00616000
CVTRV301 EQU   CVTS01+475                                               00617000
CVTRV300 EQU   CVTS01+474                                               00618000
CVTRV299 EQU   CVTS01+473                                               00619000
CVTRV298 EQU   CVTS01+472                                               00620000
CVTRV297 EQU   CVTRV289                                                 00621000
CVTRV296 EQU   CVTRV289                                                 00622000
CVTRV295 EQU   CVTRV289                                                 00623000
CVTRV294 EQU   CVTRV289                                                 00624000
CVTRV293 EQU   CVTRV289                                                 00625000
CVTRV292 EQU   CVTRV289                                                 00626000
CVTRV291 EQU   CVTRV289                                                 00627000
CVTRV290 EQU   CVTRV289                                                 00628000
CVTRV288 EQU   CVTRV280                                                 00629000
CVTRV287 EQU   CVTRV280                                                 00630000
CVTRV286 EQU   CVTRV280                                                 00631000
CVTRV285 EQU   CVTRV280                                                 00632000
CVTRV284 EQU   CVTRV280                                                 00633000
CVTRV283 EQU   CVTRV280                                                 00634000
CVTRV282 EQU   CVTRV280                                                 00635000
CVTRV281 EQU   CVTRV280                                                 00636000
CVTRV279 EQU   CVTRV271                                                 00637000
CVTRV278 EQU   CVTRV271                                                 00638000
CVTRV277 EQU   CVTRV271                                                 00639000
CVTRV276 EQU   CVTRV271                                                 00640000
CVTRV275 EQU   CVTRV271                                                 00641000
CVTRV274 EQU   CVTRV271                                                 00642000
CVTRV273 EQU   CVTRV271                                                 00643000
CVTRV272 EQU   CVTRV271                                                 00644000
CVTRV270 EQU   CVTRV262                                                 00645000
CVTRV269 EQU   CVTRV262                                                 00646000
CVTRV268 EQU   CVTRV262                                                 00647000
CVTRV267 EQU   CVTRV262                                                 00648000
CVTRV266 EQU   CVTRV262                                                 00649000
CVTRV265 EQU   CVTRV262                                                 00650000
CVTRV264 EQU   CVTRV262                                                 00651000
CVTRV263 EQU   CVTRV262                                                 00652000
CVTVFP   EQU   CVTS01+464                                               00653000
CVTVSI   EQU   CVTS01+460                                               00654000
CVTVPSIB EQU   CVTS01+456                                               00655000
CVTMFACT EQU   CVTMFRTR                                                 00656000
CVTMFCTL EQU   CVTS01+448                                               00657000
CVTPVBP  EQU   CVTS01+444                                               00658000
CVTPWI   EQU   CVTS01+440                                               00659000
CVTRV254 EQU   CVTS01+438                                               00660000
CVTRV253 EQU   CVTS01+436                                               00661000
CVTRV252 EQU   CVTS01+434                                               00662000
CVTRV251 EQU   CVTS01+433                                               00663000
CVTRV250 EQU   CVTS01+432                                               00664000
CVTRV249 EQU   CVTS01+431                                               00665000
CVTRV248 EQU   CVTS01+430                                               00666000
CVTRV247 EQU   CVTS01+429                                               00667000
CVTRV246 EQU   CVTS01+428                                               00668000
CVTRV245 EQU   CVTRV237                                                 00669000
CVTRV244 EQU   CVTRV237                                                 00670000
CVTRV243 EQU   CVTRV237                                                 00671000
CVTRV242 EQU   CVTRV237                                                 00672000
CVTRV241 EQU   CVTRV237                                                 00673000
CVTRV240 EQU   CVTRV237                                                 00674000
CVTRV239 EQU   CVTRV237                                                 00675000
CVTRV238 EQU   CVTRV237                                                 00676000
CVTRV236 EQU   CVTRV228                                                 00677000
CVTRV235 EQU   CVTRV228                                                 00678000
CVTRV234 EQU   CVTRV228                                                 00679000
CVTRV233 EQU   CVTRV228                                                 00680000
CVTRV232 EQU   CVTRV228                                                 00681000
CVTRV231 EQU   CVTRV228                                                 00682000
CVTRV230 EQU   CVTRV228                                                 00683000
CVTRV229 EQU   CVTRV228                                                 00684000
CVTRV227 EQU   CVTRV219                                                 00685000
CVTRV226 EQU   CVTRV219                                                 00686000
CVTRV225 EQU   CVTRV219                                                 00687000
CVTRV224 EQU   CVTRV219                                                 00688000
CVTRV223 EQU   CVTRV219                                                 00689000
CVTRV222 EQU   CVTRV219                                                 00690000
CVTRV221 EQU   CVTRV219                                                 00691000
CVTRV220 EQU   CVTRV219                                                 00692000
CVTRV218 EQU   CVTRV210                                                 00693000
CVTRV217 EQU   CVTRV210                                                 00694000
CVTRV216 EQU   CVTRV210                                                 00695000
CVTRV215 EQU   CVTRV210                                                 00696000
CVTRV214 EQU   CVTRV210                                                 00697000
CVTRV213 EQU   CVTRV210                                                 00698000
CVTRV212 EQU   CVTRV210                                                 00699000
CVTRV211 EQU   CVTRV210                                                 00700000
CVTLCCAT EQU   CVTS01+420                                               00701000
CVTPCCAT EQU   CVTS01+416                                               00702000
CVTIPCRP EQU   CVTS01+412                                               00703000
CVTIPCRI EQU   CVTS01+408                                               00704000
CVTIPCDS EQU   CVTS01+404                                               00705000
CVTAIDVT EQU   CVTS01+400                                               00706000
CVTSSAP  EQU   CVTS01+396                                               00707000
CVTRV202 EQU   CVTS01+394                                               00708000
CVTRV201 EQU   CVTS01+392                                               00709000
CVTRV200 EQU   CVTS01+390                                               00710000
CVTRV199 EQU   CVTS01+388                                               00711000
CVTRV198 EQU   CVTS01+386                                               00712000
CVTRV197 EQU   CVTS01+384                                               00713000
CVTRV196 EQU   CVTS01+383                                               00714000
CVTRV195 EQU   CVTS01+382                                               00715000
CVTRV194 EQU   CVTS01+381                                               00716000
CVTRV193 EQU   CVTS01+380                                               00717000
CVT044R2 EQU   CVTS01+376                                               00718000
CVTFETCH EQU   CVTS01+372                                               00719000
CVTRSTWD EQU   CVTS01+368                                               00720000
CVTSPOST EQU   CVTS01+364                                               00721000
CVTIOBP  EQU   CVTS01+360                                               00722000
CVTASMVT EQU   CVTS01+356                                               00723000
CVTRECRQ EQU   CVTS01+352                                               00724000
CVTWSAC  EQU   CVTS01+348                                               00725000
CVTWSAG  EQU   CVTS01+344                                               00726000
CVTWSAL  EQU   CVTS01+340                                               00727000
CVTSPSA  EQU   CVTS01+336                                               00728000
CVTGLMN  EQU   CVTS01+332                                               00729000
CVTVEAC0 EQU   CVTS01+328                                               00730000
CVT062R1 EQU   CVTS01+324                                               00731000
CVTRPOST EQU   CVTS01+320                                               00732000
CVTDQIQE EQU   CVTS01+316                                               00733000
CVTCSD   EQU   CVTS01+312                                               00734000
CVTLKRMA EQU   CVTS01+308                                               00735000
CVTRSPIE EQU   CVTS01+304                                               00736000
CVTRENQ  EQU   CVTS01+300                                               00737000
CVTLQCB  EQU   CVTS01+296                                               00738000
CVTFQCB  EQU   CVTS01+292                                               00739000
CVTQCS01 EQU   CVTS01+288                                               00740000
CVTAPFT  EQU   CVTS01+284                                               00741000
CVTPARRL EQU   CVTS01+280                                               00742000
CVTVWAIT EQU   CVTS01+276                                               00743000
CVTGSPL  EQU   CVTS01+272                                               00744000
CVTLSMQ  EQU   CVTS01+268                                               00745000
CVTGSMQ  EQU   CVTS01+264                                               00746000
CVTEXPRO EQU   CVTS01+260                                               00747000
CVTOPCTP EQU   CVTS01+256                                               00748000
CVTSIC   EQU   CVTS01+252                                               00749000
CVTTPIOS EQU   CVTS01+248                                               00750000
CVTRTMS  EQU   CVTS01+244                                               00751000
CVTSDBF  EQU   CVTS01+240                                               00752000
CVTSCBP  EQU   CVTS01+236                                               00753000
CVTSDMP  EQU   CVTS01+232                                               00754000
CVTSV60  EQU   CVTS01+228                                               00755000
CVTRTMCT EQU   CVTS01+224                                               00756000
CVTASCBL EQU   CVTS01+220                                               00757000
CVTASCBH EQU   CVTS01+216                                               00758000
CVTGDA   EQU   CVTS01+212                                               00759000
CVTASVT  EQU   CVTS01+208                                               00760000
CVTVVMDI EQU   CVTS01+204                                               00761000
CVTAQTOP EQU   CVTS01+200                                               00762000
CVTIOSCS EQU   CVTS01+196                                               00763000
CVTSDRM  EQU   CVTS01+192                                               00764000
CVTOPTE  EQU   CVTS01+188                                               00765000
CVTSTXU  EQU   CVTS01+184                                               00766000
CVTQUIS  EQU   CVTS01+180                                               00767000
CVTQREC  EQU   CVTS01+176                                               00768000
CVTS1EE  EQU   CVTS01+172                                               00769000
CVTFRAS  EQU   CVTS01+168                                               00770000
CVTQSAS  EQU   CVTS01+164                                               00771000
CVTCRAS  EQU   CVTS01+160                                               00772000
CVTCRMN  EQU   CVTS01+156                                               00773000
CVTDELCP EQU   CVTS01+152                                               00774000
CVTFRECL EQU   CVTS01+148                                               00775000
CVTGETCL EQU   CVTS01+144                                               00776000
CVTBLDCP EQU   CVTS01+140                                               00777000
CVTAUTHL EQU   CVTS01+136                                               00778000
CVTRV146 EQU   CVTS01+134                                               00779000
CVTRV145 EQU   CVTS01+132                                               00780000
CVTRV144 EQU   CVTS01+130                                               00781000
CVTMAXMP EQU   CVTS01+128                                               00782000
CVTRV142 EQU   CVTS01+126                                               00783000
CVTRV141 EQU   CVTS01+125                                               00784000
CVTRV140 EQU   CVTS01+124                                               00785000
CVTRV139 EQU   CVTS01+123                                               00786000
CVTDSSAC EQU   CVTS01+122                                               00787000
CVTRV513 EQU   CVTS01+121                                               00788000
CVTIOSPL EQU   CVTS01+120                                               00789000
CVTRV135 EQU   CVTRV127                                                 00790000
CVTRV134 EQU   CVTRV127                                                 00791000
CVTRV133 EQU   CVTRV127                                                 00792000
CVTRV132 EQU   CVTRV127                                                 00793000
CVTRV131 EQU   CVTRV127                                                 00794000
CVTRV130 EQU   CVTRV127                                                 00795000
CVTRV129 EQU   CVTRV127                                                 00796000
CVTRV128 EQU   CVTRV127                                                 00797000
CVTRV126 EQU   CVTRV118                                                 00798000
CVTRV125 EQU   CVTRV118                                                 00799000
CVTRV124 EQU   CVTRV118                                                 00800000
CVTRV123 EQU   CVTRV118                                                 00801000
CVTRV122 EQU   CVTRV118                                                 00802000
CVTRV121 EQU   CVTRV118                                                 00803000
CVTRV120 EQU   CVTRV118                                                 00804000
CVTRV119 EQU   CVTRV118                                                 00805000
CVTRV117 EQU   CVTRV109                                                 00806000
CVTRV116 EQU   CVTRV109                                                 00807000
CVTRV115 EQU   CVTRV109                                                 00808000
CVTRV114 EQU   CVTRV109                                                 00809000
CVTRV113 EQU   CVTRV109                                                 00810000
CVTRV112 EQU   CVTRV109                                                 00811000
CVTRV111 EQU   CVTRV109                                                 00812000
CVTRV110 EQU   CVTRV109                                                 00813000
CVTRV108 EQU   CVTRV100                                                 00814000
CVTRV107 EQU   CVTRV100                                                 00815000
CVTRV106 EQU   CVTRV100                                                 00816000
CVTRV105 EQU   CVTRV100                                                 00817000
CVTRV104 EQU   CVTRV100                                                 00818000
CVTRV103 EQU   CVTRV100                                                 00819000
CVTRV102 EQU   CVTRV100                                                 00820000
CVTRV101 EQU   CVTRV100                                                 00821000
CVTCSPIE EQU   CVTS01+112                                               00822000
CVTSMFEX EQU   CVTS01+108                                               00823000
CVTOLT0A EQU   CVTS01+104                                               00824000
CVTSRBRT EQU   CVTS01+100                                               00825000
CVTRSV82 EQU   CVTS01+98                                                00826000
CVTRSV81 EQU   CVTS01+96                                                00827000
CVTSYSWT EQU   CVTS01+92                                                00828000
CVTRV327 EQU   CVTS01+88                                                00829000
CVTRV326 EQU   CVTS01+84                                                00830000
CVTRV325 EQU   CVTS01+80                                                00831000
CVTRV324 EQU   CVTS01+76                                                00832000
CVT0VL01 EQU   CVTS01+72                                                00833000
CVTSHRVM EQU   CVTS01+68                                                00834000
CVTRV332 EQU   CVTS01+64                                                00835000
CVTTAS   EQU   CVTS01+60                                                00836000
CVTRSCN  EQU   CVTS01+56                                                00837000
CVTTRAC2 EQU   CVTS01+54                                                00838000
CVTTRACE EQU   CVTS01+52                                                00839000
CVTAPG   EQU   CVTS01+51                                                00840000
CVTSDTRC EQU   CVTCTLFG                                                 00841000
CVTGTRCE EQU   CVTCTLFG                                                 00842000
CVTNOMP  EQU   CVTCTLFG                                                 00843000
CVTRSV79 EQU   CVTCTLFG                                                 00844000
CVTDSTAT EQU   CVTCTLFG                                                 00845000
CVTRSV78 EQU   CVTCTLFG                                                 00846000
CVTRV333 EQU   CVTCTLFG                                                 00847000
CVTRV323 EQU   CVTCTLFG                                                 00848000
CVTSPVLK EQU   CVTS01+49                                                00849000
CVTRSV77 EQU   CVTS01+48                                                00850000
CVTRV331 EQU   CVTS01+44                                                00851000
CVTRV330 EQU   CVTS01+40                                                00852000
CVTRV329 EQU   CVTS01+36                                                00853000
CVTRV328 EQU   CVTS01+32                                                00854000
CVTRV322 EQU   CVTS01+28                                                00855000
CVTSLID  EQU   CVTSLIDA+1                                               00856000
CVTSYLK  EQU   CVTSLIDA                                                 00857000
CVTRV321 EQU   CVTS01+20                                                00858000
CVTRV320 EQU   CVTS01+16                                                00859000
CVTLPDIR EQU   CVTLPDIA+1                                               00860000
CVTRSV69 EQU   CVTDIRST                                                 00861000
CVTRSV68 EQU   CVTDIRST                                                 00862000
CVTRSV67 EQU   CVTDIRST                                                 00863000
CVTRSV66 EQU   CVTDIRST                                                 00864000
CVTRSV65 EQU   CVTDIRST                                                 00865000
CVTRSV64 EQU   CVTDIRST                                                 00866000
CVTRSV63 EQU   CVTDIRST                                                 00867000
CVTDICOM EQU   CVTDIRST                                                 00868000
CVTPVTP  EQU   CVTS01+8                                                 00869000
CVTLPDSR EQU   CVTS01+4                                                 00870000
CVTRSVA2 EQU   CVTS01                                                   00871000
ASCBEND  EQU   ASCB+208                                                 00872000
ASCBSRBT EQU   ASCB+200                                                 00873000
ASCBSWTL EQU   ASCB+196                                                 00874000
ASCBRS14 EQU   ASCB+195                                                 00875000
ASCBSMCT EQU   ASCB+194                                                 00876000
ASCBRS12 EQU   ASCB+192                                                 00877000
ASCBPCTT EQU   ASCB+188                                                 00878000
ASCBVGTT EQU   ASCB+184                                                 00879000
ASCBLGCB EQU   ASCB+180                                                 00880000
ASCBJBNI EQU   ASCB+172                                                 00881000
ASCBMCC  EQU   ASCB+168                                                 00882000
ASCBRTWA EQU   ASCB+164                                                 00883000
ASCBIQEA EQU   ASCB+160                                                 00884000
ASCBXMPQ EQU   ASCB+156                                                 00885000
ASCBRS01 EQU   ASCB+154                                                 00886000
ASCBFMCT EQU   ASCB+152                                                 00887000
ASCBOUXB EQU   ASCB+148                                                 00888000
ASCBOUCB EQU   ASCB+144                                                 00889000
ASCBMECB EQU   ASCB+140                                                 00890000
ASCBQECB EQU   ASCB+136                                                 00891000
ASCBCMSB EQU   ASCB+132                                                 00892000
ASCBCMSF EQU   ASCB+128                                                 00893000
ASCBTCBS EQU   ASCB+124                                                 00894000
ASCBNVSC EQU   ASCB+122                                                 00895000
ASCBVSC  EQU   ASCB+120                                                 00896000
ASCBSRBS EQU   ASCB+118                                                 00897000
ASCBSSRB EQU   ASCB+116                                                 00898000
ASCBRV06 EQU   ASCBFLG2                                                 00899000
ASCBRV05 EQU   ASCBFLG2                                                 00900000
ASCBRV04 EQU   ASCBFLG2                                                 00901000
ASCBSNQS EQU   ASCBFLG2                                                 00902000
ASCBS2S  EQU   ASCBFLG2                                                 00903000
ASCBCEXT EQU   ASCBFLG2                                                 00904000
ASCBPXMT EQU   ASCBFLG2                                                 00905000
ASCBXMPT EQU   ASCBFLG2                                                 00906000
ASCBRF07 EQU   ASCBDSP1                                                 00907000
ASCBRF06 EQU   ASCBDSP1                                                 00908000
ASCBRF05 EQU   ASCBDSP1                                                 00909000
ASCBRF04 EQU   ASCBDSP1                                                 00910000
ASCBRF03 EQU   ASCBDSP1                                                 00911000
ASCBRF02 EQU   ASCBDSP1                                                 00912000
ASCBFAIL EQU   ASCBDSP1                                                 00913000
ASCBNOQ  EQU   ASCBDSP1                                                 00914000
ASCBSWCT EQU   ASCB+112                                                 00915000
ASCBASXB EQU   ASCB+108                                                 00916000
ASCBTMCH EQU   ASCB+104                                                 00917000
ASCBNSWP EQU   ASCBFLG1                                                 00918000
ASCBTYP1 EQU   ASCBFLG1                                                 00919000
ASCBSTND EQU   ASCBFLG1                                                 00920000
ASCBABNT EQU   ASCBFLG1                                                 00921000
ASCBTERM EQU   ASCBFLG1                                                 00922000
ASCBS3S  EQU   ASCBFLG1                                                 00923000
ASCBCMSH EQU   ASCBFLG1                                                 00924000
ASCBTOFF EQU   ASCBFLG1                                                 00925000
ASCBRF01 EQU   ASCBRCTF                                                 00926000
ASCBTMLW EQU   ASCBRCTF                                                 00927000
ASCBOUT  EQU   ASCBRCTF                                                 00928000
ASCBWAIT EQU   ASCBRCTF                                                 00929000
ASCBFND  EQU   ASCBRCTF                                                 00930000
ASCBFQU  EQU   ASCBRCTF                                                 00931000
ASCBFRS  EQU   ASCBRCTF                                                 00932000
ASCBTMNO EQU   ASCBRCTF                                                 00933000
ASCBAFFN EQU   ASCBFW1                                                  00934000
ASCBDUMP EQU   ASCB+96                                                  00935000
ASCBQSVC EQU   ASCB+92                                                  00936000
ASCBUBET EQU   ASCB+88                                                  00937000
ASCBECB  EQU   ASCB+84                                                  00938000
ASCBJSTL EQU   ASCB+80                                                  00939000
ASCBEWST EQU   ASCB+72                                                  00940000
ASCBEJST EQU   ASCB+64                                                  00941000
ASCBTSB  EQU   ASCB+60                                                  00942000
ASCBRSM  EQU   ASCB+52                                                  00943000
ASCBLDA  EQU   ASCB+48                                                  00944000
ASCBSTOR EQU   ASCB+44                                                  00945000
ASCBDP   EQU   ASCB+43                                                  00946000
ASCBRV07 EQU   ASCB+42                                                  00947000
ASCBIOSM EQU   ASCB+40                                                  00948000
ASCBSEQN EQU   ASCB+38                                                  00949000
ASCBASID EQU   ASCB+36                                                  00950000
ASCBCPUS EQU   ASCB+32                                                  00951000
ASCBSPL  EQU   ASCB+28                                                  00952000
ASCBLSLQ EQU   ASCB+24                                                  00953000
ASCBFSLQ EQU   ASCB+20                                                  00954000
ASCBIOSP EQU   ASCB+16                                                  00955000
ASCBLOCK EQU   ASCB+12                                                  00956000
ASCBBWDP EQU   ASCB+8                                                   00957000
ASCBFWDP EQU   ASCB+4                                                   00958000
ASCBASCB EQU   ASCB                                                     00959000
ASCBEGIN EQU   ASCB                                                     00960000
CHARSV16 EQU   CHSHORT+108                                              00961000
CHARSV15 EQU   CHSHORT+104                                              00962000
CHJSCBVS EQU   CHSHORT+100                                              00963000
CHUSCVS  EQU   CHSHORT+96                                               00964000
@NM00010 EQU   CHSHORT+92                                               00965000
@NM00009 EQU   CHSHORT+88                                               00966000
CHSQA    EQU   CHSHORT+52                                               00967000
CHQPA    EQU   CHSHORT+16                                               00968000
CHJCL    EQU   CHSHORT+12                                               00969000
CHSPC    EQU   CHSHORT+8                                                00970000
CHSPB    EQU   CHSHORT+4                                                00971000
CHTCB    EQU   CHSHORT+1                                                00972000
CHARSV23 EQU   CHSWT                                                    00973000
CHARSV22 EQU   CHSWT                                                    00974000
CHARSV21 EQU   CHSWT                                                    00975000
CHAC     EQU   CHSWT                                                    00976000
CHPSF    EQU   CHSWT                                                    00977000
CHPSD    EQU   CHSWT                                                    00978000
CHJCT    EQU   CHSWT                                                    00979000
CHARSV20 EQU   CHSWT                                                    00980000
CHCECB   EQU   CHASM+20                                                 00981000
CHECB    EQU   CHASM+16                                                 00982000
CHRGNAD  EQU   CHASM+12                                                 00983000
CHARSV18 EQU   CHRGNSZ+1                                                00984000
CHRPRTY  EQU   CHRGNSZ                                                  00985000
@NM00008 EQU   CHCIBP                                                   00986000
CHEND    EQU   CHCIBP                                                   00987000
CHECBP   EQU   CHASM                                                    00988000
CHDER    EQU   CHAIN+36                                                 00989000
CHARSV10 EQU   CHACT1                                                   00990000
CHARSV09 EQU   CHACT1                                                   00991000
CHARSV08 EQU   CHACT1                                                   00992000
CHARSV07 EQU   CHACT1                                                   00993000
CHARSV06 EQU   CHACT1                                                   00994000
CHARSV05 EQU   CHACT1                                                   00995000
CHARSV04 EQU   CHACT1                                                   00996000
CHRDWTR  EQU   CHACT1                                                   00997000
CHARSV30 EQU   CHAIN+34                                                 00998000
CHQID    EQU   CHAIN+32                                                 00999000
CHASID   EQU   CHTJID                                                   01000000
CHUCMP   EQU   CHAIN+29                                                 01001000
CHTRKID  EQU   CHPKE                                                    01002000
CHCIBCTR EQU   CHAIN+27                                                 01003000
CHUNIT   EQU   CHAIN+24                                                 01004000
CHCLS    EQU   CHAIN+16                                                 01005000
CHPARM   EQU   CHKEY                                                    01006000
CHIFY    EQU   CHACT                                                    01007000
CHAIFX   EQU   CHACT                                                    01008000
CHCLD    EQU   CHACT                                                    01009000
CHCL     EQU   CHACT                                                    01010000
CHDSI    EQU   CHACT                                                    01011000
CHDISC   EQU   CHACT                                                    01012000
CHTERM   EQU   CHACT                                                    01013000
CHSWAP   EQU   CHACT                                                    01014000
CHABTERM EQU   CHSTS                                                    01015000
CHAD     EQU   CHSTS                                                    01016000
CHQSPC   EQU   CHSTS                                                    01017000
CHSOUT   EQU   CHSTS                                                    01018000
CHSYS    EQU   CHSTS                                                    01019000
CHAP     EQU   CHSTS                                                    01020000
CHSZE    EQU   CHFLG+1                                                  01021000
CHVCD    EQU   CHFLG                                                    01022000
CHPTR    EQU   CHAIN                                                    01023000
@NM00007 EQU   TCBXTNT2+32                                              01024000
TCBRV181 EQU   TCBRV173                                                 01025000
TCBRV180 EQU   TCBRV173                                                 01026000
TCBRV179 EQU   TCBRV173                                                 01027000
TCBRV178 EQU   TCBRV173                                                 01028000
TCBRV177 EQU   TCBRV173                                                 01029000
TCBRV176 EQU   TCBRV173                                                 01030000
TCBRV175 EQU   TCBRV173                                                 01031000
TCBRV174 EQU   TCBRV173                                                 01032000
TCBRV172 EQU   TCBRV164                                                 01033000
TCBRV171 EQU   TCBRV164                                                 01034000
TCBRV170 EQU   TCBRV164                                                 01035000
TCBRV169 EQU   TCBRV164                                                 01036000
TCBRV168 EQU   TCBRV164                                                 01037000
TCBRV167 EQU   TCBRV164                                                 01038000
TCBRV166 EQU   TCBRV164                                                 01039000
TCBRV165 EQU   TCBRV164                                                 01040000
TCBRV163 EQU   TCBRV155                                                 01041000
TCBRV162 EQU   TCBRV155                                                 01042000
TCBRV161 EQU   TCBRV155                                                 01043000
TCBRV160 EQU   TCBRV155                                                 01044000
TCBRV159 EQU   TCBRV155                                                 01045000
TCBRV158 EQU   TCBRV155                                                 01046000
TCBRV157 EQU   TCBRV155                                                 01047000
TCBRV156 EQU   TCBRV155                                                 01048000
TCBRV154 EQU   TCBRV146                                                 01049000
TCBRV153 EQU   TCBRV146                                                 01050000
TCBRV152 EQU   TCBRV146                                                 01051000
TCBRV151 EQU   TCBRV146                                                 01052000
TCBRV150 EQU   TCBRV146                                                 01053000
TCBRV149 EQU   TCBRV146                                                 01054000
TCBRV148 EQU   TCBRV146                                                 01055000
TCBRV147 EQU   TCBRV146                                                 01056000
TCBRV145 EQU   TCBXTNT2+26                                              01057000
TCBRV144 EQU   TCBXTNT2+24                                              01058000
TCBRV143 EQU   TCBXTNT2+20                                              01059000
TCBRV142 EQU   TCBXTNT2+16                                              01060000
TCBRSV49 EQU   TCBXTNT2+12                                              01061000
TCBRSV48 EQU   TCBXTNT2+8                                               01062000
TCBRCMP  EQU   TCBXTNT2+5                                               01063000
TCBRSVAB EQU   TCBXTNT2+4                                               01064000
TCBGTFA  EQU   TCBGTF+1                                                 01065000
TCBRSV47 EQU   TCBTFLG                                                  01066000
TCBRSV46 EQU   TCBTFLG                                                  01067000
TCBRSV45 EQU   TCBTFLG                                                  01068000
TCBRSV44 EQU   TCBTFLG                                                  01069000
TCBRSV43 EQU   TCBTFLG                                                  01070000
TCBDSPIT EQU   TCBTFLG                                                  01071000
TCBERRTN EQU   TCBTFLG                                                  01072000
TCBASYNC EQU   TCBTFLG                                                  01073000
@NM00006 EQU   TCB+296                                                  01074000
TCBRV185 EQU   TCB+292                                                  01075000
TCBSWASA EQU   TCB+288                                                  01076000
TCBDBTB  EQU   TCB+284                                                  01077000
TCBRPT   EQU   TCB+280                                                  01078000
TCBRV141 EQU   TCBRV133                                                 01079000
TCBRV140 EQU   TCBRV133                                                 01080000
TCBRV139 EQU   TCBRV133                                                 01081000
TCBRV138 EQU   TCBRV133                                                 01082000
TCBRV137 EQU   TCBRV133                                                 01083000
TCBRV136 EQU   TCBRV133                                                 01084000
TCBRV135 EQU   TCBRV133                                                 01085000
TCBRV134 EQU   TCBRV133                                                 01086000
TCBRV132 EQU   TCBRV124                                                 01087000
TCBRV131 EQU   TCBRV124                                                 01088000
TCBRV130 EQU   TCBRV124                                                 01089000
TCBRV129 EQU   TCBRV124                                                 01090000
TCBRV128 EQU   TCBRV124                                                 01091000
TCBRV127 EQU   TCBRV124                                                 01092000
TCBRV126 EQU   TCBRV124                                                 01093000
TCBRV125 EQU   TCBRV124                                                 01094000
TCBRV123 EQU   TCBFBYT2                                                 01095000
TCBRV122 EQU   TCBFBYT2                                                 01096000
TCBECBNV EQU   TCBFBYT2                                                 01097000
TCBSSSYN EQU   TCBFBYT2                                                 01098000
TCBFPRAP EQU   TCBFBYT2                                                 01099000
TCBFDW   EQU   TCBFBYT2                                                 01100000
TCBFMW   EQU   TCBFBYT2                                                 01101000
TCBCNCB  EQU   TCBFBYT2                                                 01102000
TCBLLH   EQU   TCBFBYT1                                                 01103000
TCBRV113 EQU   TCBFBYT1                                                 01104000
TCBEOT   EQU   TCBFBYT1                                                 01105000
TCBRTM2  EQU   TCBFBYT1                                                 01106000
TCBPGNLY EQU   TCBFBYT1                                                 01107000
TCBNDIOS EQU   TCBFBYT1                                                 01108000
TCBACTIV EQU   TCBFBYT1                                                 01109000
TCBEOTFM EQU   TCBFBYT1                                                 01110000
TCBAFFN  EQU   TCB+274                                                  01111000
TCBCCPVI EQU   TCB+272                                                  01112000
TCBUKYSP EQU   TCB+268                                                  01113000
TCBMODE  EQU   TCBESTAE+3                                               01114000
TCBERTYP EQU   TCBESTAE+2                                               01115000
TCBRV314 EQU   TCBESTRM                                                 01116000
TCBRV313 EQU   TCBESTRM                                                 01117000
TCBRV312 EQU   TCBESTRM                                                 01118000
TCBRV311 EQU   TCBESTRM                                                 01119000
TCBRV310 EQU   TCBESTRM                                                 01120000
TCBRV309 EQU   TCBESTRM                                                 01121000
TCBRV308 EQU   TCBESTRM                                                 01122000
TCBETERM EQU   TCBESTRM                                                 01123000
TCBSCBKY EQU   TCBESTAE                                                 01124000
TCBRTM12 EQU   TCB+260                                                  01125000
TCBTCBID EQU   TCB+256                                                  01126000
TCBRSV96 EQU   TCB+252                                                  01127000
TCBSWA   EQU   TCB+248                                                  01128000
TCBFOEA  EQU   TCBFOE+1                                                 01129000
TCBRSV42 EQU   TCBFOE                                                   01130000
TCBRV306 EQU   TCB+240                                                  01131000
TCBRSV41 EQU   TCB+239                                                  01132000
TCBTID   EQU   TCB+238                                                  01133000
TCBRSVAA EQU   TCB+237                                                  01134000
TCBABCUR EQU   TCB+236                                                  01135000
TCBTMSAV EQU   TCB+232                                                  01136000
TCBIOTIM EQU   TCB+228                                                  01137000
TCBRTWA  EQU   TCB+224                                                  01138000
TCBBACK  EQU   TCB+220                                                  01139000
TCBTIRB  EQU   TCB+216                                                  01140000
TCBAECB  EQU   TCB+212                                                  01141000
TCBEXT2A EQU   TCBEXT2+1                                                01142000
TCBRSV39 EQU   TCBEXT2                                                  01143000
TCBSTMCT EQU   TCB+207                                                  01144000
TCBSYSCT EQU   TCB+206                                                  01145000
TCBRSV37 EQU   TCB+205                                                  01146000
TCBEXSVC EQU   TCBDAR                                                   01147000
TCBRSV36 EQU   TCBDAR                                                   01148000
TCBDARWT EQU   TCBDAR                                                   01149000
TCBDARO  EQU   TCBDAR                                                   01150000
TCBDARMC EQU   TCBDARC                                                  01151000
TCBDARD  EQU   TCBDAR                                                   01152000
TCBDARS  EQU   TCBDAR                                                   01153000
TCBDARP  EQU   TCBDAR                                                   01154000
TCBGTOFM EQU   TCBFLGS7                                                 01155000
TCBADMP  EQU   TCBFLGS7                                                 01156000
TCBRSTSK EQU   TCBFLGS7                                                 01157000
TCBRSV35 EQU   TCBFLGS7                                                 01158000
TCBSTACK EQU   TCBFLGS7                                                 01159000
TCBRSV34 EQU   TCBFLGS7                                                 01160000
TCBRSV33 EQU   TCBFLGS7                                                 01161000
TCBGPECB EQU   TCBFLGS7                                                 01162000
TCBNTJS  EQU   TCBFLGS6                                                 01163000
TCBAPG   EQU   TCBFLGS6                                                 01164000
TCBMIGR  EQU   TCBFLGS6                                                 01165000
TCBRV303 EQU   TCBFLGS6                                                 01166000
TCBSPVLK EQU   TCBFLGS6                                                 01167000
TCBCPU   EQU   TCBFLGS6                                                 01168000
TCBPIE17 EQU   TCBFLGS6                                                 01169000
TCBRV    EQU   TCBFLGS6                                                 01170000
TCBRSV79 EQU   TCBNDSP5                                                 01171000
TCBRSV78 EQU   TCBNDSP5                                                 01172000
TCBRSV77 EQU   TCBNDSP5                                                 01173000
TCBRSV76 EQU   TCBNDSP5                                                 01174000
TCBRSV75 EQU   TCBNDSP5                                                 01175000
TCBRSV74 EQU   TCBNDSP5                                                 01176000
TCBRSV95 EQU   TCBNDSP5                                                 01177000
TCBRSV94 EQU   TCBNDSP5                                                 01178000
TCBRSV93 EQU   TCBNDSP4                                                 01179000
TCBRSV92 EQU   TCBNDSP4                                                 01180000
TCBRSV91 EQU   TCBNDSP4                                                 01181000
TCBRSV90 EQU   TCBNDSP4                                                 01182000
TCBRSV89 EQU   TCBNDSP4                                                 01183000
TCBRSV88 EQU   TCBNDSP4                                                 01184000
TCBRSV87 EQU   TCBNDSP4                                                 01185000
TCBRSV86 EQU   TCBNDSP4                                                 01186000
TCBEXT1A EQU   TCBEXT1+1                                                01187000
TCBRSV32 EQU   TCBEXT1                                                  01188000
TCBRSV30 EQU   TCB+192                                                  01189000
TCBIOBRC EQU   TCB+188                                                  01190000
TCBDDWTC EQU   TCB+186                                                  01191000
TCBDDEXC EQU   TCB+184                                                  01192000
TCBJSCBB EQU   TCBJSCB+1                                                01193000
@NM00005 EQU   TCBRECDE                                                 01194000
TCBREC   EQU   TCBRECDE                                                 01195000
TCBMDIDS EQU   TCB+176                                                  01196000
TCBNDINT EQU   TCBNDSP3                                                 01197000
TCBRSV27 EQU   TCBNDSP3                                                 01198000
TCBRSV26 EQU   TCBNDSP3                                                 01199000
TCBRSV25 EQU   TCBNDSP3                                                 01200000
TCBRSV24 EQU   TCBNDSP3                                                 01201000
TCBSRBND EQU   TCBNDSP3                                                 01202000
TCBRV302 EQU   TCBNDSP3                                                 01203000
TCBLJSND EQU   TCBNDSP3                                                 01204000
TCBABE   EQU   TCBNDSP2                                                 01205000
TCBDSS   EQU   TCBNDSP2                                                 01206000
TCBOWAIT EQU   TCBNDSP2                                                 01207000
TCBIWAIT EQU   TCBNDSP2                                                 01208000
TCBNDTS  EQU   TCBNDSP2                                                 01209000
TCBNDSVC EQU   TCBNDSP2                                                 01210000
TCBSTPP  EQU   TCBNDSP2                                                 01211000
TCBABD   EQU   TCBNDSP2                                                 01212000
TCBRSV22 EQU   TCBNDSP1                                                 01213000
TCBPIEND EQU   TCBNDSP1                                                 01214000
TCBTPSP  EQU   TCBNDSP1                                                 01215000
TCBDDRND EQU   TCBNDSP1                                                 01216000
TCBRSPND EQU   TCBNDSP1                                                 01217000
TCBRSTND EQU   TCBNDSP1                                                 01218000
TCBDARPN EQU   TCBNDSP1                                                 01219000
TCBDARTN EQU   TCBNDSP1                                                 01220000
TCBNDSP0 EQU   TCBNDSP                                                  01221000
TCBUSER  EQU   TCB+168                                                  01222000
TCBTCTB  EQU   TCBTCT+1                                                 01223000
TCBRSV9C EQU   TCBTCTGF                                                 01224000
TCBRSV9B EQU   TCBTCTGF                                                 01225000
TCBRSV9A EQU   TCBTCTGF                                                 01226000
TCBRSV99 EQU   TCBTCTGF                                                 01227000
TCBRSV98 EQU   TCBTCTGF                                                 01228000
TCBRSV97 EQU   TCBTCTGF                                                 01229000
TCBRSV20 EQU   TCBTCTGF                                                 01230000
TCBSMFGF EQU   TCBTCTGF                                                 01231000
TCBSTABB EQU   TCBSTAB+1                                                01232000
TCBSTCUR EQU   TCBNSTAE                                                 01233000
TCBRV301 EQU   TCBNSTAE                                                 01234000
TCBSYNCH EQU   TCBNSTAE                                                 01235000
TCBHALT  EQU   TCBNSTAE                                                 01236000
TCBPPSUP EQU   TCBNSTAE                                                 01237000
TCB33E   EQU   TCBNSTAE                                                 01238000
TCBQUIES EQU   TCBNSTAE                                                 01239000
TCBSTABE EQU   TCBNSTAE                                                 01240000
TCBAQE   EQU   TCB+156                                                  01241000
TCBPQE   EQU   TCB+152                                                  01242000
TCBTSDP  EQU   TCB+151                                                  01243000
TCBTSLP  EQU   TCB+150                                                  01244000
TCBSTPCT EQU   TCB+149                                                  01245000
TCBCPUBN EQU   TCBTSFLG                                                 01246000
TCBDYDSP EQU   TCBTSFLG                                                 01247000
TCBRSV18 EQU   TCBTSFLG                                                 01248000
TCBRSV17 EQU   TCBTSFLG                                                 01249000
TCBTIOTG EQU   TCBTSFLG                                                 01250000
TCBATT   EQU   TCBTSFLG                                                 01251000
TCBSTPPR EQU   TCBTSFLG                                                 01252000
TCBRV300 EQU   TCBTSTSK                                                 01253000
TCBECB   EQU   TCB+144                                                  01254000
TCBIQE   EQU   TCB+140                                                  01255000
TCBLTC   EQU   TCB+136                                                  01256000
TCBOTC   EQU   TCB+132                                                  01257000
TCBNTC   EQU   TCB+128                                                  01258000
TCBJSTCA EQU   TCBJSTCB+1                                               01259000
TCBRSV16 EQU   TCBJSTCB                                                 01260000
TCBTQET  EQU   TCBTME                                                   01261000
TCBTCB   EQU   TCB+116                                                  01262000
TCBFSAB  EQU   TCBFSA+1                                                 01263000
TCBQEL   EQU   TCBFSA                                                   01264000
TCBGRS15 EQU   TCBGRS+60                                                01265000
TCBGRS14 EQU   TCBGRS+56                                                01266000
TCBGRS13 EQU   TCBGRS+52                                                01267000
TCBGRS12 EQU   TCBGRS+48                                                01268000
TCBGRS11 EQU   TCBGRS+44                                                01269000
TCBGRS10 EQU   TCBGRS+40                                                01270000
TCBGRS9  EQU   TCBGRS+36                                                01271000
TCBGRS8  EQU   TCBGRS+32                                                01272000
TCBGRS7  EQU   TCBGRS+28                                                01273000
TCBGRS6  EQU   TCBGRS+24                                                01274000
TCBGRS5  EQU   TCBGRS+20                                                01275000
TCBGRS4  EQU   TCBGRS+16                                                01276000
TCBGRS3  EQU   TCBGRS+12                                                01277000
TCBGRS2  EQU   TCBGRS+8                                                 01278000
TCBGRS1  EQU   TCBGRS+4                                                 01279000
TCBGRS0  EQU   TCBGRS                                                   01280000
TCBJPQB  EQU   TCBJPQ+1                                                 01281000
TCBRSV15 EQU   TCBPURGE                                                 01282000
TCBRSV14 EQU   TCBPURGE                                                 01283000
TCBRSV13 EQU   TCBPURGE                                                 01284000
TCBRSV12 EQU   TCBPURGE                                                 01285000
TCBRSV11 EQU   TCBPURGE                                                 01286000
TCBRSV10 EQU   TCBPURGE                                                 01287000
TCBRSV09 EQU   TCBPURGE                                                 01288000
TCBJPQF  EQU   TCBPURGE                                                 01289000
TCBJLB   EQU   TCB+40                                                   01290000
TCBLLS   EQU   TCB+36                                                   01291000
TCBDSP   EQU   TCB+35                                                   01292000
TCBLMP   EQU   TCB+34                                                   01293000
TCBPNDSP EQU   TCBFLGS5                                                 01294000
TCBFCD1  EQU   TCBFLGS5                                                 01295000
TCBSTP   EQU   TCBFLGS5                                                 01296000
TCBSYS   EQU   TCBFLGS5                                                 01297000
TCBANDSP EQU   TCBFLGS5                                                 01298000
TCBPAGE  EQU   TCBFLGS5                                                 01299000
TCBUXNDF EQU   TCBABWF                                                  01300000
TCBFC    EQU   TCBFLGS5                                                 01301000
TCBONDSP EQU   TCBFLGS4                                                 01302000
TCBMPCND EQU   TCBFLGS4                                                 01303000
TCBMPCVQ EQU   TCBFLGS4                                                 01304000
TCBUXNDV EQU   TCBFLGS4                                                 01305000
TCBHNDSP EQU   TCBFLGS4                                                 01306000
TCBRQENA EQU   TCBFLGS4                                                 01307000
TCBSER   EQU   TCBFLGS4                                                 01308000
TCBNDUMP EQU   TCBFLGS4                                                 01309000
TCBDWSTA EQU   TCBFLGS3                                                 01310000
TCBRSV08 EQU   TCBFLGS3                                                 01311000
TCBRSV07 EQU   TCBFLGS3                                                 01312000
TCBRSV06 EQU   TCBFLGS3                                                 01313000
TCBABGM  EQU   TCBFLGS3                                                 01314000
TCBABTRM EQU   TCBFLGS3                                                 01315000
TCBADINP EQU   TCBFLGS3                                                 01316000
TCBFSM   EQU   TCBFLGS3                                                 01317000
TCBFTS   EQU   TCBFLGS2                                                 01318000
TCBFETXR EQU   TCBFLGS2                                                 01319000
TCBFDSOP EQU   TCBFLGS2                                                 01320000
TCBFJMC  EQU   TCBFLGS2                                                 01321000
TCBFSMC  EQU   TCBFLGS2                                                 01322000
TCBFABOP EQU   TCBFLGS2                                                 01323000
TCBFSTI  EQU   TCBFLGS2                                                 01324000
TCBFOINP EQU   TCBFLGS2                                                 01325000
TCBFX    EQU   TCBFLGS1                                                 01326000
TCBFS    EQU   TCBFLGS1                                                 01327000
TCBFT    EQU   TCBFLGS1                                                 01328000
TCBPDUMP EQU   TCBFLGS1                                                 01329000
TCBRSV04 EQU   TCBFLGS1                                                 01330000
TCBFERA  EQU   TCBFLGS1                                                 01331000
TCBFE    EQU   TCBFLGS1                                                 01332000
TCBFA    EQU   TCBFLGS1                                                 01333000
TCBZERO  EQU   TCBPKF                                                   01334000
TCBFLAG  EQU   TCBPKF                                                   01335000
TCBMSSB  EQU   TCBMSS+1                                                 01336000
TCBRSV03 EQU   TCBMSS                                                   01337000
TCBTRNB  EQU   TCBTRN+1                                                 01338000
TCBRSV02 EQU   TCBABF                                                   01339000
TCBOLTEP EQU   TCBABF                                                   01340000
TCBTCP   EQU   TCBABF                                                   01341000
TCBTCPP  EQU   TCBABF                                                   01342000
TCBRSV01 EQU   TCBABF                                                   01343000
TCBGRPH  EQU   TCBABF                                                   01344000
TCBNOCHK EQU   TCBABF                                                   01345000
TCBMOD91 EQU   TCBABF                                                   01346000
TCBCMPC  EQU   TCBCMP+1                                                 01347000
TCBRV318 EQU   TCBCMSG                                                  01348000
TCBRV317 EQU   TCBCIND                                                  01349000
TCBRV316 EQU   TCBCWTO                                                  01350000
TCBCASID EQU   TCBCDBL                                                  01351000
TCBNOCC  EQU   TCBSTCC                                                  01352000
TCBDMPO  EQU   TCBCPP                                                   01353000
TCBCSTEP EQU   TCBCMPF                                                  01354000
TCBCREQ  EQU   TCBCMPF                                                  01355000
TCBTIO   EQU   TCB+12                                                   01356000
TCBDEB   EQU   TCB+8                                                    01357000
TCBPIEA  EQU   TCBPIE+1                                                 01358000
TCBPM    EQU   TCBPMASK                                                 01359000
@NM00004 EQU   TCBPMASK                                                 01360000
TCBRBP   EQU   TCB                                                      01361000
TCBFRS6  EQU   TCBFRS+24                                                01362000
TCBFRS4  EQU   TCBFRS+16                                                01363000
TCBFRS2  EQU   TCBFRS+8                                                 01364000
TCBFRS0  EQU   TCBFRS                                                   01365000
CVTLEVL  EQU   CVTRELNO+2                                               01366000
CVTNUMB  EQU   CVTRELNO                                                 01367000
CVTMDL   EQU   CVTFIX+250                                               01368000
@NM00003 EQU   CVTFIX+248                                               01369000
@NM00002 EQU   CVTFIX                                                   01370000
CVTRV482 EQU   CVTXTNT2+128                                             01371000
CVTRV481 EQU   CVTXTNT2+124                                             01372000
CVTRV480 EQU   CVTXTNT2+120                                             01373000
CVTRV479 EQU   CVTXTNT2+118                                             01374000
CVTRV478 EQU   CVTXTNT2+117                                             01375000
CVTRV477 EQU   CVTXTNT2+116                                             01376000
CVTRV476 EQU   CVTXTNT2+115                                             01377000
CVTRV475 EQU   CVTXTNT2+114                                             01378000
CVTRV474 EQU   CVTRV466                                                 01379000
CVTRV473 EQU   CVTRV466                                                 01380000
CVTRV472 EQU   CVTRV466                                                 01381000
CVTRV471 EQU   CVTRV466                                                 01382000
CVTRV470 EQU   CVTRV466                                                 01383000
CVTRV469 EQU   CVTRV466                                                 01384000
CVTRV468 EQU   CVTRV466                                                 01385000
CVTRV467 EQU   CVTRV466                                                 01386000
CVTRV465 EQU   CVTRV457                                                 01387000
CVTRV464 EQU   CVTRV457                                                 01388000
CVTRV463 EQU   CVTRV457                                                 01389000
CVTRV462 EQU   CVTRV457                                                 01390000
CVTRV461 EQU   CVTRV457                                                 01391000
CVTRV460 EQU   CVTRV457                                                 01392000
CVTRV459 EQU   CVTRV457                                                 01393000
CVTRV458 EQU   CVTRV457                                                 01394000
CVTRV456 EQU   CVTXTNT2+108                                             01395000
CVTRV455 EQU   CVTXTNT2+104                                             01396000
CVTRV454 EQU   CVTXTNT2+100                                             01397000
CVTRV453 EQU   CVTXTNT2+96                                              01398000
CVTRV452 EQU   CVTXTNT2+94                                              01399000
CVTRV451 EQU   CVTXTNT2+92                                              01400000
CVTRV450 EQU   CVTXTNT2+90                                              01401000
CVTRV449 EQU   CVTXTNT2+88                                              01402000
CVTRV448 EQU   CVTXTNT2+87                                              01403000
CVTRV447 EQU   CVTXTNT2+86                                              01404000
CVTRV446 EQU   CVTRV438                                                 01405000
CVTRV445 EQU   CVTRV438                                                 01406000
CVTRV444 EQU   CVTRV438                                                 01407000
CVTRV443 EQU   CVTRV438                                                 01408000
CVTRV442 EQU   CVTRV438                                                 01409000
CVTRV441 EQU   CVTRV438                                                 01410000
CVTRV440 EQU   CVTRV438                                                 01411000
CVTRV439 EQU   CVTRV438                                                 01412000
CVTRV437 EQU   CVTRV429                                                 01413000
CVTRV436 EQU   CVTRV429                                                 01414000
CVTRV435 EQU   CVTRV429                                                 01415000
CVTRV434 EQU   CVTRV429                                                 01416000
CVTRV433 EQU   CVTRV429                                                 01417000
CVTRV432 EQU   CVTRV429                                                 01418000
CVTRV431 EQU   CVTRV429                                                 01419000
CVTRV430 EQU   CVTRV429                                                 01420000
CVTRV428 EQU   CVTXTNT2+80                                              01421000
CVTRV427 EQU   CVTXTNT2+76                                              01422000
CVTRV426 EQU   CVTXTNT2+72                                              01423000
CVTRV425 EQU   CVTXTNT2+68                                              01424000
CVTATACT EQU   CVTATCVT                                                 01425000
CVTRV423 EQU   CVTXTNT2+62                                              01426000
CVTRV422 EQU   CVTXTNT2+60                                              01427000
CVTRV421 EQU   CVTXTNT2+58                                              01428000
CVTRV420 EQU   CVTXTNT2+56                                              01429000
CVTRV419 EQU   CVTXTNT2+55                                              01430000
CVTRV418 EQU   CVTXTNT2+54                                              01431000
CVTRV417 EQU   CVTRV409                                                 01432000
CVTRV416 EQU   CVTRV409                                                 01433000
CVTRV415 EQU   CVTRV409                                                 01434000
CVTRV414 EQU   CVTRV409                                                 01435000
CVTRV413 EQU   CVTRV409                                                 01436000
CVTRV412 EQU   CVTRV409                                                 01437000
CVTRV411 EQU   CVTRV409                                                 01438000
CVTRV410 EQU   CVTRV409                                                 01439000
CVTRV408 EQU   CVTRV400                                                 01440000
CVTRV407 EQU   CVTRV400                                                 01441000
CVTRV406 EQU   CVTRV400                                                 01442000
CVTRV405 EQU   CVTRV400                                                 01443000
CVTRV404 EQU   CVTRV400                                                 01444000
CVTRV403 EQU   CVTRV400                                                 01445000
CVTRV402 EQU   CVTRV400                                                 01446000
CVTRV401 EQU   CVTRV400                                                 01447000
CVTRSVA1 EQU   CVTXTNT2+48                                              01448000
CVTRSVA0 EQU   CVTXTNT2+44                                              01449000
CVTRSV99 EQU   CVTXTNT2+40                                              01450000
CVTRSV98 EQU   CVTXTNT2+36                                              01451000
CVTRSV97 EQU   CVTXTNT2+34                                              01452000
CVTRSV96 EQU   CVTXTNT2+32                                              01453000
CVTOLTEP EQU   CVTXTNT2+28                                              01454000
CVTQIDA  EQU   CVTQID+1                                                 01455000
CVTRSV95 EQU   CVTQID                                                   01456000
CVTRSV94 EQU   CVTXTNT2+20                                              01457000
CVTRSV93 EQU   CVTXTNT2+16                                              01458000
CVTRAP   EQU   CVTXTNT2+12                                              01459000
CVTDEBVR EQU   CVTXTNT2+8                                               01460000
CVTRSV91 EQU   CVTXTNT2+6                                               01461000
CVTRSV9H EQU   CVTRSV90                                                 01462000
CVTRSV9G EQU   CVTRSV90                                                 01463000
CVTRSV9F EQU   CVTRSV90                                                 01464000
CVTRSV9E EQU   CVTRSV90                                                 01465000
CVTRSV9D EQU   CVTRSV90                                                 01466000
CVTRSV9C EQU   CVTRSV90                                                 01467000
CVTRSV9B EQU   CVTRSV90                                                 01468000
CVTRSV9A EQU   CVTRSV90                                                 01469000
CVTNUCLS EQU   CVTXTNT2+4                                               01470000
CVTDSSVA EQU   CVTDSSV+1                                                01471000
CVTRSV89 EQU   CVTDSSV                                                  01472000
CVTRSV88 EQU   CVTXTNT1+8                                               01473000
CVTRSV87 EQU   CVTXTNT1+4                                               01474000
CVTFACHN EQU   CVTXTNT1                                                 01475000
CVTRV488 EQU   CVTMAP+412                                               01476000
CVTRV487 EQU   CVTMAP+408                                               01477000
CVTRV486 EQU   CVTMAP+404                                               01478000
CVTRV485 EQU   CVTMAP+400                                               01479000
CVTRV484 EQU   CVTMAP+396                                               01480000
CVTAUTH  EQU   CVTMAP+392                                               01481000
CVTATMCA EQU   CVTATMCT+1                                               01482000
CVTATMST EQU   CVTATMCT                                                 01483000
CVTRSV61 EQU   CVTMAP+384                                               01484000
CVTVOLT1 EQU   CVTVOLM1+1                                               01485000
CVTVOLI1 EQU   CVTVOLF1                                                 01486000
CVTSTOA  EQU   CVTMAP+376                                               01487000
CVTRSV58 EQU   CVTMAP+374                                               01488000
CVTRSV57 EQU   CVTMAP+372                                               01489000
CVTDDCE  EQU   CVTMAP+368                                               01490000
CVTPNWFR EQU   CVTMAP+364                                               01491000
CVTSMF   EQU   CVTMAP+360                                               01492000
CVTSULK  EQU   CVTMAP+358                                               01493000
CVTSLKO  EQU   CVTSYSK                                                  01494000
CVTSLKP  EQU   CVTSYSK                                                  01495000
CVTSLKQ  EQU   CVTSYSK                                                  01496000
CVTSLKR  EQU   CVTSYSK                                                  01497000
CVTRSV56 EQU   CVTSYSK                                                  01498000
CVTRSV55 EQU   CVTSYSK                                                  01499000
CVTRSV54 EQU   CVTSYSK                                                  01500000
CVTRSV53 EQU   CVTSYSK                                                  01501000
CVTRSV52 EQU   CVTA1F1                                                  01502000
CVTRSV51 EQU   CVTA1F1                                                  01503000
CVTRSV50 EQU   CVTA1F1                                                  01504000
CVTRSV49 EQU   CVTA1F1                                                  01505000
CVTRSV48 EQU   CVTA1F1                                                  01506000
CVTRSV47 EQU   CVTA1F1                                                  01507000
CVTSRSW  EQU   CVTA1F1                                                  01508000
CVTPFSW  EQU   CVTA1F1                                                  01509000
CVTPCVT  EQU   CVTMAP+352                                               01510000
CVTRSV46 EQU   CVTMAP+344                                               01511000
CVTRSV45 EQU   CVTMAP+340                                               01512000
CVTRSV44 EQU   CVTMAP+338                                               01513000
CVTRSV43 EQU   CVTMAP+336                                               01514000
CVTHJESA EQU   CVTHJES+1                                                01515000
CVTRSV42 EQU   CVTHJES                                                  01516000
CVTEXT2A EQU   CVTEXT2+1                                                01517000
CVTRSV41 EQU   CVTEXT2                                                  01518000
CVTAPFA  EQU   CVTAPF+1                                                 01519000
CVTRSV40 EQU   CVTAPF                                                   01520000
CVTINTLA EQU   CVTMAP+320                                               01521000
CVTERPV  EQU   CVTMAP+316                                               01522000
CVTEORM  EQU   CVTMAP+312                                               01523000
CVTMCHPR EQU   CVTMAP+308                                               01524000
CVTTZ    EQU   CVTMAP+304                                               01525000
CVTJEPS  EQU   CVTMAP+300                                               01526000
CVTJESCT EQU   CVTMAP+296                                               01527000
CVTMODE  EQU   CVTMAP+292                                               01528000
CVTPTRV  EQU   CVTMAP+288                                               01529000
CVTREAL  EQU   CVTMAP+284                                               01530000
CVTRSV39 EQU   CVTMAP+280                                               01531000
CVTRSV38 EQU   CVTMAP+276                                               01532000
CVTDMSRA EQU   CVTDMSR+1                                                01533000
CVTRSV37 EQU   CVTDMSR                                                  01534000
CVTQMSGA EQU   CVTQMSG+1                                                01535000
CVTRSV36 EQU   CVTQMSG                                                  01536000
CVTAMFF  EQU   CVTMAP+264                                               01537000
CVTPURGA EQU   CVTPURG+1                                                01538000
CVTRSV35 EQU   CVTPURG                                                  01539000
CVTCBSP  EQU   CVTMAP+256                                               01540000
CVTATERA EQU   CVTATER+1                                                01541000
CVTSYST  EQU   CVTATER                                                  01542000
CVTVOLT2 EQU   CVTTAT                                                   01543000
CVTVOLI2 EQU   CVTVOLF2                                                 01544000
CVTAQAVB EQU   CVTAQAVT+1                                               01545000
CVTRSV34 EQU   CVTTCMFG                                                 01546000
CVTRSV33 EQU   CVTTCMFG                                                 01547000
CVTRSV32 EQU   CVTTCMFG                                                 01548000
CVTRSV31 EQU   CVTTCMFG                                                 01549000
CVTRSV30 EQU   CVTTCMFG                                                 01550000
CVTRSV29 EQU   CVTTCMFG                                                 01551000
CVTRSV28 EQU   CVTTCMFG                                                 01552000
CVTTCRDY EQU   CVTTCMFG                                                 01553000
CVTGTFA  EQU   CVTGTF+1                                                 01554000
CVTRSV27 EQU   CVTGTFST                                                 01555000
CVTRNIO  EQU   CVTGTFST                                                 01556000
CVTRV319 EQU   CVTUSR                                                   01557000
CVTRV318 EQU   CVTFORM                                                  01558000
CVTRV317 EQU   CVTTMODE                                                 01559000
CVTRV316 EQU   CVTSTATE                                                 01560000
CVTRV315 EQU   CVTGTFS                                                  01561000
CVTGTFAV EQU   CVTGTFS                                                  01562000
CVT0SCR1 EQU   CVTMAP+232                                               01563000
CVTTSCVB EQU   CVTTSCVT+1                                               01564000
CVTRSV25 EQU   CVTTSFLG                                                 01565000
CVTRSV24 EQU   CVTTSFLG                                                 01566000
CVTRSV23 EQU   CVTTSFLG                                                 01567000
CVTRSV22 EQU   CVTTSFLG                                                 01568000
CVTRSV21 EQU   CVTTSFLG                                                 01569000
CVTRSV20 EQU   CVTTSFLG                                                 01570000
CVTRSV19 EQU   CVTTSFLG                                                 01571000
CVTTSRDY EQU   CVTTSFLG                                                 01572000
CVTRMS   EQU   CVTMAP+224                                               01573000
CVTPATCH EQU   CVTMAP+220                                               01574000
CVTTSCE  EQU   CVTMAP+216                                               01575000
CVTLNKSC EQU   CVTMAP+214                                               01576000
CVTQABST EQU   CVTMAP+212                                               01577000
CVTMDLDS EQU   CVTMAP+208                                               01578000
CVTUSER  EQU   CVTMAP+204                                               01579000
CVTABEND EQU   CVTMAP+200                                               01580000
CVTSMCA  EQU   CVTMAP+196                                               01581000
CVTRSV18 EQU   CVTMAP+192                                               01582000
CVTQLPAQ EQU   CVTMAP+188                                               01583000
CVTQCDSR EQU   CVTMAP+184                                               01584000
CVTRSV17 EQU   CVTOPTB                                                  01585000
CVTRSV16 EQU   CVTOPTB                                                  01586000
CVTFP    EQU   CVTOPTB                                                  01587000
CVTAPTHR EQU   CVTOPTB                                                  01588000
CVTNLOG  EQU   CVTOPTB                                                  01589000
CVTTOD   EQU   CVTOPTB                                                  01590000
CVTCTIMS EQU   CVTOPTB                                                  01591000
CVTPROT  EQU   CVTOPTB                                                  01592000
CVTXPFP  EQU   CVTOPTA                                                  01593000
CVTASCII EQU   CVTOPTA                                                  01594000
CVTRSV13 EQU   CVTOPTA                                                  01595000
CVTRSV12 EQU   CVTOPTA                                                  01596000
CVTNIP   EQU   CVTOPTA                                                  01597000
CVTDDR   EQU   CVTOPTA                                                  01598000
CVTAPR   EQU   CVTOPTA                                                  01599000
CVTCCH   EQU   CVTOPTA                                                  01600000
CVTSNCTR EQU   CVTMAP+180                                               01601000
CVTQMWR  EQU   CVTMAP+176                                               01602000
CVTQOCR  EQU   CVTMAP+172                                               01603000
CVT1EF00 EQU   CVTMAP+168                                               01604000
CVTMZ00  EQU   CVTMAP+164                                               01605000
CVTHEAD  EQU   CVTMAP+160                                               01606000
CVTRSV11 EQU   CVTMAP+156                                               01607000
CVT0PT01 EQU   CVTMAP+152                                               01608000
CVTMSER  EQU   CVTMAP+148                                               01609000
CVTIERLC EQU   CVTMAP+144                                               01610000
CVTILCH  EQU   CVTMAP+140                                               01611000
CVT0DS   EQU   CVTMAP+136                                               01612000
CVTFBOSV EQU   CVTMAP+132                                               01613000
CVTNUCB  EQU   CVTMAP+128                                               01614000
CVTIXAVL EQU   CVTMAP+124                                               01615000
CVTIOQET EQU   CVTMAP+120                                               01616000
CVTDCBA  EQU   CVTMAP+117                                               01617000
CVTMVS2  EQU   CVTDCB                                                   01618000
CVT6DAT  EQU   CVTDCB                                                   01619000
CVT4MPS  EQU   CVTDCB                                                   01620000
CVTRSV09 EQU   CVTDCB                                                   01621000
CVT4MS1  EQU   CVTDCB                                                   01622000
CVT2SPS  EQU   CVTDCB                                                   01623000
CVT1SSS  EQU   CVTDCB                                                   01624000
CVTRSV08 EQU   CVTDCB                                                   01625000
CVTSTB   EQU   CVTMAP+112                                               01626000
CVTQTD00 EQU   CVTMAP+108                                               01627000
CVTQTE00 EQU   CVTMAP+104                                               01628000
CVTCUCB  EQU   CVTMAP+100                                               01629000
CVTSJQ   EQU   CVTMAP+96                                                01630000
CVTPBLDL EQU   CVTMAP+92                                                01631000
CVTTPC   EQU   CVTMAP+88                                                01632000
CVTSVDCB EQU   CVTMAP+84                                                01633000
CVTBRET  EQU   CVTMAP+82                                                01634000
CVT0FN00 EQU   CVTMAP+76                                                01635000
CVTDARA  EQU   CVTDAR+1                                                 01636000
CVTRSV07 EQU   CVTFLGS1                                                 01637000
CVTRSV06 EQU   CVTFLGS1                                                 01638000
CVTRSV05 EQU   CVTFLGS1                                                 01639000
CVTRSV04 EQU   CVTFLGS1                                                 01640000
CVTRSV03 EQU   CVTFLGS1                                                 01641000
CVTRSV02 EQU   CVTFLGS1                                                 01642000
CVTRSV01 EQU   CVTFLGS1                                                 01643000
CVTDMPLK EQU   CVTFLGS1                                                 01644000
CVTXITP  EQU   CVTMAP+68                                                01645000
CVTZDTAB EQU   CVTMAP+64                                                01646000
CVTMSLT  EQU   CVTMAP+60                                                01647000
CVTDATE  EQU   CVTMAP+56                                                01648000
CVTBTERM EQU   CVTMAP+52                                                01649000
CVTSYSAD EQU   CVTMAP+48                                                01650000
CVTXTLER EQU   CVTMAP+44                                                01651000
CVTILK2  EQU   CVTMAP+40                                                01652000
CVTILK1  EQU   CVTMAP+36                                                01653000
CVTPRLTV EQU   CVTMAP+32                                                01654000
CVTPCNVT EQU   CVTMAP+28                                                01655000
CVT0VL00 EQU   CVTMAP+24                                                01656000
CVTXAPG  EQU   CVTMAP+20                                                01657000
CVTBUF   EQU   CVTMAP+16                                                01658000
CVTJOB   EQU   CVTMAP+12                                                01659000
CVTLINK  EQU   CVTMAP+8                                                 01660000
CVT0EF00 EQU   CVTMAP+4                                                 01661000
CVT      EQU   CVTMAP                                                   01662000
@NM00001 EQU   TCBASCB                                                  01663000
@NM00035 EQU   PSA+3412                                                 01664000
PSASTAK  EQU   PSA+3072                                                 01665000
@NM00034 EQU   PSA+1024                                                 01666000
PSAUSEND EQU   PSA+1024                                                 01667000
PSARV060 EQU   PSA+1020                                                 01668000
PSARV059 EQU   PSA+1018                                                 01669000
PSASVC13 EQU   PSA+1016                                                 01670000
PSALSFCC EQU   PSA+1012                                                 01671000
PSASFACC EQU   PSA+1008                                                 01672000
PSASTOP  EQU   PSA+992                                                  01673000
PSASTART EQU   PSA+976                                                  01674000
PSARSPSW EQU   PSA+968                                                  01675000
PSASRPSW EQU   PSA+960                                                  01676000
PSARV045 EQU   PSA+892                                                  01677000
PSARV044 EQU   PSA+888                                                  01678000
PSARV043 EQU   PSA+884                                                  01679000
PSARV042 EQU   PSA+880                                                  01680000
PSARV041 EQU   PSA+876                                                  01681000
PSARV040 EQU   PSA+872                                                  01682000
PSARV025 EQU   PSA+868                                                  01683000
PSADSSED EQU   PSA+868                                                  01684000
PSADSSPR EQU   PSA+864                                                  01685000
PSADSSFW EQU   PSA+860                                                  01686000
PSADSS14 EQU   PSA+856                                                  01687000
PSADSSPP EQU   PSA+848                                                  01688000
PSADSSRP EQU   PSA+840                                                  01689000
PSADSS05 EQU   PSADSSF4                                                 01690000
PSADSS10 EQU   PSADSSF4                                                 01691000
PSADSSVE EQU   PSADSSF4                                                 01692000
PSADSSDE EQU   PSADSSF4                                                 01693000
PSADSSC0 EQU   PSADSSF4                                                 01694000
PSADSSIE EQU   PSADSSF4                                                 01695000
PSADSS12 EQU   PSADSSF4                                                 01696000
PSADSSRC EQU   PSADSSF4                                                 01697000
PSARV057 EQU   PSADSSF3                                                 01698000
PSARV056 EQU   PSADSSF3                                                 01699000
PSARV055 EQU   PSADSSF3                                                 01700000
PSARV054 EQU   PSADSSF3                                                 01701000
PSADSSRW EQU   PSADSSF3                                                 01702000
PSADSSNM EQU   PSADSSF3                                                 01703000
PSADSSES EQU   PSADSSF3                                                 01704000
PSADSSGP EQU   PSADSSF3                                                 01705000
PSADSSF2 EQU   PSADSSFL+1                                               01706000
PSADSSPI EQU   PSADSSF1                                                 01707000
PSADSSOI EQU   PSADSSF1                                                 01708000
PSADSSSP EQU   PSADSSF1                                                 01709000
PSADSSTP EQU   PSADSSF1                                                 01710000
PSADSSDW EQU   PSADSSF1                                                 01711000
PSADSSDD EQU   PSADSSF1                                                 01712000
PSADSSDM EQU   PSADSSF1                                                 01713000
PSADSSMV EQU   PSADSSF1                                                 01714000
PSADSSTS EQU   PSA+816                                                  01715000
PSADSSWK EQU   PSA+812                                                  01716000
PSADSSR3 EQU   PSA+808                                                  01717000
PSADSSR2 EQU   PSA+804                                                  01718000
PSADSSRS EQU   PSA+800                                                  01719000
PSASTOR  EQU   PSA+796                                                  01720000
PSARV058 EQU   PSA+794                                                  01721000
PSAVSTAP EQU   PSA+792                                                  01722000
PSAWKVAP EQU   PSA+788                                                  01723000
PSAWKRAP EQU   PSA+784                                                  01724000
PSAMCHIC EQU   PSA+783                                                  01725000
PSAMODE  EQU   PSA+782                                                  01726000
PSASYMSK EQU   PSA+781                                                  01727000
PSAMCHFL EQU   PSA+780                                                  01728000
PSACR0   EQU   PSA+776                                                  01729000
PSAPSWSV EQU   PSA+768                                                  01730000
PSACLHS  EQU   PSAHLHI                                                  01731000
PSALKR15 EQU   PSALKSA+60                                               01732000
PSALKR14 EQU   PSALKSA+56                                               01733000
PSALKR13 EQU   PSALKSA+52                                               01734000
PSALKR12 EQU   PSALKSA+48                                               01735000
PSALKR11 EQU   PSALKSA+44                                               01736000
PSALKR10 EQU   PSALKSA+40                                               01737000
PSALKR9  EQU   PSALKSA+36                                               01738000
PSALKR8  EQU   PSALKSA+32                                               01739000
PSALKR7  EQU   PSALKSA+28                                               01740000
PSALKR6  EQU   PSALKSA+24                                               01741000
PSALKR5  EQU   PSALKSA+20                                               01742000
PSALKR4  EQU   PSALKSA+16                                               01743000
PSALKR3  EQU   PSALKSA+12                                               01744000
PSALKR2  EQU   PSALKSA+8                                                01745000
PSALKR1  EQU   PSALKSA+4                                                01746000
PSALKR0  EQU   PSALKSA                                                  01747000
PSARV023 EQU   PSACLHT+52                                               01748000
PSALOCAL EQU   PSACLHT+48                                               01749000
PSACMSL  EQU   PSACLHT+44                                               01750000
PSAOPTL  EQU   PSACLHT+40                                               01751000
PSATPACL EQU   PSACLHT+36                                               01752000
PSATPDNL EQU   PSACLHT+32                                               01753000
PSATPNCL EQU   PSACLHT+28                                               01754000
PSAIOSLL EQU   PSACLHT+24                                               01755000
PSAIOSUL EQU   PSACLHT+20                                               01756000
PSAIOSCL EQU   PSACLHT+16                                               01757000
PSAIOSSL EQU   PSACLHT+12                                               01758000
PSASALCL EQU   PSACLHT+8                                                01759000
PSAASML  EQU   PSACLHT+4                                                01760000
PSADISPL EQU   PSACLHT                                                  01761000
PSASRSA  EQU   PSA+636                                                  01762000
PSARV050 EQU   PSA+634                                                  01763000
PSADSSGO EQU   PSA+633                                                  01764000
PSARECUR EQU   PSA+632                                                  01765000
PSAHLHIS EQU   PSA+628                                                  01766000
PSAIPCSA EQU   PSA+624                                                  01767000
@NM00033 EQU   PSA+621                                                  01768000
PSAIPCDM EQU   PSA+620                                                  01769000
PSAIPCD  EQU   PSA+616                                                  01770000
@NM00032 EQU   PSA+613                                                  01771000
PSAIPCRM EQU   PSA+612                                                  01772000
PSAIPCR  EQU   PSA+608                                                  01773000
PSAMCHEX EQU   PSA+600                                                  01774000
PSAMPSW  EQU   PSA+592                                                  01775000
PSAEXPS2 EQU   PSA+584                                                  01776000
PSAEXPS1 EQU   PSA+576                                                  01777000
PSAPIREG EQU   PSA+572                                                  01778000
PSARSREG EQU   PSA+568                                                  01779000
PSAGPREG EQU   PSA+556                                                  01780000
PSARV022 EQU   PSASUP4                                                  01781000
PSARV021 EQU   PSASUP4                                                  01782000
PSARV020 EQU   PSASUP4                                                  01783000
PSARV019 EQU   PSASUP4                                                  01784000
PSARV018 EQU   PSASUP4                                                  01785000
PSARV017 EQU   PSASUP4                                                  01786000
PSARV016 EQU   PSASUP4                                                  01787000
PSARV015 EQU   PSASUP4                                                  01788000
PSARV014 EQU   PSASUP3                                                  01789000
PSARV013 EQU   PSASUP3                                                  01790000
PSARV012 EQU   PSASUP3                                                  01791000
PSARV011 EQU   PSASUP3                                                  01792000
PSARV010 EQU   PSASUP3                                                  01793000
PSARV009 EQU   PSASUP3                                                  01794000
PSARV008 EQU   PSASUP3                                                  01795000
PSAIOSUP EQU   PSASUP3                                                  01796000
PSALCR   EQU   PSASUP2                                                  01797000
PSARTM   EQU   PSASUP2                                                  01798000
PSAACR   EQU   PSASUP2                                                  01799000
PSAIPCE2 EQU   PSASUP2                                                  01800000
PSAIPCES EQU   PSASUP2                                                  01801000
PSAIPCEC EQU   PSASUP2                                                  01802000
PSAGTF   EQU   PSASUP2                                                  01803000
PSAIPCRI EQU   PSASUP2                                                  01804000
PSAIPCRP EQU   PSASUP1                                                  01805000
PSAIPCDR EQU   PSASUP1                                                  01806000
PSADISP  EQU   PSASUP1                                                  01807000
PSALOCK  EQU   PSASUP1                                                  01808000
PSAPI    EQU   PSASUP1                                                  01809000
PSAEXT   EQU   PSASUP1                                                  01810000
PSASVC   EQU   PSASUP1                                                  01811000
PSAIO    EQU   PSASUP1                                                  01812000
PSAAOLD  EQU   PSA+548                                                  01813000
PSAANEW  EQU   PSA+544                                                  01814000
PSATOLD  EQU   PSA+540                                                  01815000
PSATNEW  EQU   PSA+536                                                  01816000
PSALCCAR EQU   PSA+532                                                  01817000
PSALCCAV EQU   PSA+528                                                  01818000
PSAPCCAR EQU   PSA+524                                                  01819000
PSAPCCAV EQU   PSA+520                                                  01820000
PSACPULA EQU   PSA+518                                                  01821000
PSACPUPA EQU   PSA+516                                                  01822000
PSAPSA   EQU   PSA+512                                                  01823000
FLCHDEND EQU   PSA+512                                                  01824000
FLCCRSAV EQU   FLCMCLA+280                                              01825000
FLCGRSAV EQU   FLCMCLA+216                                              01826000
FLCFPSAV EQU   FLCMCLA+184                                              01827000
FLCFLA   EQU   FLCMCLA+88                                               01828000
FLCRGNCD EQU   FLCMCLA+84                                               01829000
FLCFSAA  EQU   FLCFSA+1                                                 01830000
@NM00031 EQU   FLCFSA                                                   01831000
@NM00030 EQU   FLCMCLA+72                                               01832000
FLCMCIC  EQU   FLCMCLA+64                                               01833000
@NM00029 EQU   FLCMCLA+20                                               01834000
FLCIOAA  EQU   FLCIOA+1                                                 01835000
@NM00028 EQU   FLCIOA                                                   01836000
@NM00027 EQU   FLCMCLA+15                                               01837000
@NM00026 EQU   FLCMCLA+14                                               01838000
@NM00025 EQU   FLCMCLA+12                                               01839000
FLCLCL   EQU   FLCMCLA+8                                                01840000
FLCIOELA EQU   FLCIOEL+1                                                01841000
@NM00024 EQU   FLCIOEL                                                  01842000
FLCCHNID EQU   FLCMCLA                                                  01843000
@NM00023 EQU   PSA+160                                                  01844000
FLCMTRCD EQU   PSA+157                                                  01845000
@NM00022 EQU   PSA+156                                                  01846000
FLCPERA  EQU   FLCPER+1                                                 01847000
@NM00021 EQU   FLCPER                                                   01848000
@NM00020 EQU   PSA+151                                                  01849000
FLCPERCD EQU   PSA+150                                                  01850000
FLCMCNUM EQU   PSA+149                                                  01851000
@NM00019 EQU   PSA+148                                                  01852000
FLCTEAA  EQU   FLCTEA+1                                                 01853000
@NM00018 EQU   FLCTEA                                                   01854000
PSAPIPC  EQU   PSAPICOD                                                 01855000
PSAPIMC  EQU   PSAPICOD                                                 01856000
PSAPIPER EQU   PSAPICOD                                                 01857000
PSARV049 EQU   FLCPICOD                                                 01858000
FLCPILCB EQU   FLCPIILC                                                 01859000
@NM00017 EQU   FLCPIILC                                                 01860000
@NM00016 EQU   PSAEPPSW                                                 01861000
FLCSVCN  EQU   PSAESPSW+2                                               01862000
FLCSILCB EQU   FLCSVILC                                                 01863000
@NM00015 EQU   FLCSVILC                                                 01864000
@NM00014 EQU   PSAESPSW                                                 01865000
FLCEICOD EQU   PSAEEPSW+2                                               01866000
PSASPAD  EQU   PSAEEPSW                                                 01867000
@NM00013 EQU   PSA+128                                                  01868000
FLCINPSW EQU   PSA+120                                                  01869000
FLCMNPSW EQU   PSA+112                                                  01870000
FLCPNPSW EQU   PSA+104                                                  01871000
FLCSNPSW EQU   PSA+96                                                   01872000
FLCENPSW EQU   PSA+88                                                   01873000
FLCTRACE EQU   PSA+84                                                   01874000
FLCTIMER EQU   PSA+80                                                   01875000
FLCCVT2  EQU   PSA+76                                                   01876000
FLCCAW   EQU   PSA+72                                                   01877000
FLCCSW   EQU   PSA+64                                                   01878000
FLCIOPSW EQU   PSA+56                                                   01879000
FLCMOPSW EQU   PSA+48                                                   01880000
FLCPOPSW EQU   PSA+40                                                   01881000
FLCSOPSW EQU   PSA+32                                                   01882000
FLCEOPSW EQU   PSA+24                                                   01883000
@NM00012 EQU   FLCICCW2+4                                               01884000
FLCCVT   EQU   FLCICCW2                                                 01885000
FLCICCW1 EQU   FLCROPSW                                                 01886000
FLCIPPSW EQU   FLCRNPSW                                                 01887000
.@UNREFD ANOP                          END UNREFERENCED COMPONENTS      01888000
@ENDDATA EQU   *                                                        01889000
         END   IEEPRTN2                                                 01890000
