         TITLE 'IEFAB4FF - SWA MANAGER INTERFACE                     '  00001000
IEFAB4FF CSECT ,                                                   0001 00002000
@MAINENT DS    0H                                                  0001 00003000
         USING *,@15                                               0001 00004000
         B     @PROLOG                                             0001 00005000
         DC    AL1(16)                                             0001 00006000
         DC    C'IEFAB4FF  73.144'                                 0001 00007000
         DROP  @15                                                      00008000
@PROLOG  STM   @14,@12,12(@13)                                     0001 00009000
         BALR  @12,0                                               0001 00010000
@PSTART  DS    0H                                                  0001 00011000
         USING @PSTART,@12                                         0001 00012000
         L     @00,@SIZDATD                                        0001 00013000
         GETMAIN R,LV=(0)                                               00014000
         LR    @11,@01                                             0001 00015000
         USING @DATD,@11                                           0001 00016000
         ST    @13,@SA00001+4                                      0001 00017000
         LM    @00,@01,20(@13)                                     0001 00018000
         ST    @11,8(,@13)                                         0001 00019000
         LR    @13,@11                                             0001 00020000
         MVC   @PC00001(24),0(@01)                                 0001 00021000
*RETCODE = ZERO;                       /* INITIALIZE RETURN CODE     */ 00022000
         SR    @10,@10                                             0015 00023000
         STH   @10,RETCODE                                         0015 00024000
*IF RDTBLNEW = ON | ASSGNTBL = ON | WRTBLNEW = ON THEN /* NEED EPA   */ 00025000
         L     @10,@PC00001                                        0016 00026000
         TM    RDTBLNEW(@10),B'11010000'                           0016 00027000
         BZ    @RF00016                                            0016 00028000
*  DO;                                                             0017 00029000
*     /* ?GETSTORG (SBPOOL,EPALEN,SWEPAPTR);*/                     0018 00030000
*       /* DEFINITIONS OF GETMAIN PARMS */                         0018 00031000
*       DCL                                                        0018 00032000
*         GTSTR0   FIXED(31) REG(0),/*GTMN PARM REG*/              0018 00033000
*         GTSTR1   FIXED(31) REG(1),/*GTMN PARM REG*/              0018 00034000
*         GTSTR2   PTR(31)   REG(2),/*GTMN PARM REG*/              0018 00035000
*         GTSTR15  FIXED(31) REG(15),/*GTMN RET COD*/              0018 00036000
*         GTSTRTCD FIXED(31); /* GETMAIN RTN CODE  */              0018 00037000
*       DCL                                                        0019 00038000
*         GTSTR3   FIXED(31) REG(3),/* CLEARING REG*/              0019 00039000
*         GTSTR4   FIXED(31) REG(4),/* CLEARING REG*/              0019 00040000
*         GTSTR5   FIXED(31) REG(5),/* CLEARING REG*/              0019 00041000
*         GTSTR6   FIXED(31) REG(6),/* CLEARING REG*/              0019 00042000
*         GTSTR7   FIXED(31) REG(7),/* CLEARING REG*/              0019 00043000
*         GTSTR8   FIXED(31) REG(8),/* CLEARING REG*/              0019 00044000
*         GTSTZERO FIXED(31) INIT(0),                              0019 00045000
*         GTST253  FIXED(31) CONSTANT(253);                        0019 00046000
*       RFY (GTSTR0,GTSTR1,GTSTR2) RSTD; /*SAVE RGS*/              0020 00047000
*       GTSTR0 = EPALEN; /* SET AMOUNT*/                           0021 00048000
         LA    GTSTR0,16                                           0021 00049000
*       GTSTR2 = SBPOOL; /* SET SUBPOOL*/                          0022 00050000
         LA    GTSTR2,230                                          0022 00051000
*       GENERATE CODE;                                             0023 00052000
         GETMAIN RC,LV=(0),SP=(2)  DO GETMAIN                           00053000
*       GTSTRTCD = GTSTR15; /* SAVE GETMAIN RET COD*/              0024 00054000
         ST    GTSTR15,GTSTRTCD                                    0024 00055000
*       SWEPAPTR = GTSTR1; /* ADDR OF GOTN STORG*/                 0025 00056000
         L     @10,@PC00001+4                                      0025 00057000
         ST    GTSTR1,SWEPAPTR(,@10)                               0025 00058000
*       RFY (GTSTR0,GTSTR1,GTSTR2) UNRSTD; /*RLSE */               0026 00059000
*       IF GTSTRTCD = 0 THEN /*GETMAIN SUCCESSFUL? */              0027 00060000
         L     @10,GTSTRTCD                                        0027 00061000
         LTR   @10,@10                                             0027 00062000
         BNZ   @RF00027                                            0027 00063000
*         DO;               /* YES, CLEAR STORAGE.*/               0028 00064000
*           RFY (GTSTR2,GTSTR4,GTSTR5,GTSTR6,                      0029 00065000
*                              GTSTR7,GTSTR8) RSTD;                0029 00066000
*           GTSTR4 = SWEPAPTR; /*STORG PTR*/                       0030 00067000
         L     @10,@PC00001+4                                      0030 00068000
         L     @10,SWEPAPTR(,@10)                                  0030 00069000
         LR    GTSTR4,@10                                          0030 00070000
*           GTSTR5 = EPALEN; /*STORG AMNT*/                        0031 00071000
         LA    GTSTR5,16                                           0031 00072000
*           GTSTR7 = '00000000'X; /*PAD CHAR & LNTH*/              0032 00073000
         SR    GTSTR7,GTSTR7                                       0032 00074000
*           IF SBPOOL = GTST253 THEN                               0033 00075000
         B     @RF00033                                            0033 00076000
*          GEN                                                     0034 00077000
*       (MODESET KEYADDR=GTSTZERO,SAVEKEY=(2),WORKREG=8);          0034 00078000
         MODESET KEYADDR=GTSTZERO,SAVEKEY=(2),WORKREG=8                 00079000
*           GEN REFS(GTSTR4,GTSTR6);                               0035 00080000
@RF00033 DS    0H                                                  0035 00081000
              MVCL  GTSTR4,GTSTR6 CLEAR GOTTEN STORG                    00082000
*           IF SBPOOL = GTST253 THEN                               0036 00083000
*                                                                  0036 00084000
*     DO; /*MODESET  KEYADDR(2)*/                                  0037 00085000
*       SPKA (2); /*SET PSW KEY*/                                  0038 00086000
*     END; /*MODESET  KEYADDR(2)*/                                 0039 00087000
*           RFY (GTSTR2,GTSTR4,GTSTR5,GTSTR6,                      0040 00088000
*                              GTSTR7,GTSTR8) UNRSTD;              0040 00089000
@RF00036 DS    0H                                                  0041 00090000
*         END;       /* STORAGE CLEARING COMPLETED */              0041 00091000
*       ELSE                                                       0042 00092000
*       SWEPAPTR= 0;   /* CLEAR RETURN ADDR. */                    0042 00093000
         B     @RC00027                                            0042 00094000
@RF00027 L     @10,@PC00001+4                                      0042 00095000
         SR    @15,@15                                             0042 00096000
         ST    @15,SWEPAPTR(,@10)                                  0042 00097000
*       GTSTR15 = GTSTRTCD;    /* GTMN RETURN CODE */  /* GETSPACE FOR  00098000
*PA         */                                                     0043 00099000
@RC00027 L     GTSTR15,GTSTRTCD                                    0043 00100000
*    RETCODE = REG15;                  /* PICK UP GETSPACE RETURN CDE*/ 00101000
         STH   REG15,RETCODE                                       0044 00102000
*  END;                                                            0045 00103000
*IF RETCODE ^= ZERO THEN               /* GETMAIN ERROR              */ 00104000
@RF00016 ICM   @10,3,RETCODE                                       0046 00105000
         BZ    @RF00046                                            0046 00106000
*  RETCODE = GETERR;                                               0047 00107000
         MVC   RETCODE(2),@CH00063                                 0047 00108000
*ELSE                                                              0048 00109000
*  DO;                                                             0048 00110000
         B     @RC00046                                            0048 00111000
@RF00046 DS    0H                                                  0049 00112000
*    SWBLKID = TID;                    /* ID TO EPA                  */ 00113000
         L     @10,@PC00001+4                                      0049 00114000
         L     @15,SWEPAPTR(,@10)                                  0049 00115000
         L     @14,@PC00001+12                                     0049 00116000
         MVC   SWBLKID(1,@15),TID(@14)                             0049 00117000
*    SWLNGTH = TBLENGTH;               /* LENGTH TO EPA              */ 00118000
         L     @14,@PC00001+8                                      0050 00119000
         SR    @09,@09                                             0050 00120000
         ICM   @09,7,TBLENGTH(@14)                                 0050 00121000
         ST    @09,SWLNGTH(,@15)                                   0050 00122000
*    IF RDTBLNEW = ON | RDTBLOLD = ON THEN /* SET UP FOR READ        */ 00123000
         L     @14,@PC00001                                        0051 00124000
         TM    RDTBLNEW(@14),B'01100000'                           0051 00125000
         BZ    @RF00051                                            0051 00126000
*      DO;                                                         0052 00127000
*        SWVA = SMISVA;                /* SVA TO EPA                 */ 00128000
         L     @14,@PC00001+16                                     0053 00129000
         MVC   SWVA(3,@15),SMISVA(@14)                             0053 00130000
*         /*?SWAREQ (RL) EPA (SWEPAPTR);*/                         0054 00131000
*         CALL SWAMGR (SWEPAPTR,'RL');   /* CALL SWA MGR TO READ   0054 00132000
*/                                                                 0054 00133000
         ST    @10,@AL00001                                        0054 00134000
         LA    @10,@CC00798                                        0054 00135000
         ST    @10,@AL00001+4                                      0054 00136000
         L     @10,CVTPTR                                          0054 00137000
         L     @10,CVTJESCT(,@10)                                  0054 00138000
         L     @15,JESWAA(,@10)                                    0054 00139000
         LA    @01,@AL00001                                        0054 00140000
         BALR  @14,@15                                             0054 00141000
*        RETCODE = REG15;                                          0055 00142000
         STH   REG15,RETCODE                                       0055 00143000
*        IF RETCODE ^= ZERO THEN       /* SWA MGR ERROR              */ 00144000
         LH    @10,RETCODE                                         0056 00145000
         LTR   @10,@10                                             0056 00146000
         BZ    @RF00056                                            0056 00147000
*          RETCODE = SWAERROR;                                     0057 00148000
         MVC   RETCODE(2),@CH00045                                 0057 00149000
*        ELSE                                                      0058 00150000
*          TABLEPTR = SWBLKPTR;        /* ADD. OF TABLE TO PARMS     */ 00151000
         B     @RC00056                                            0058 00152000
@RF00056 L     @10,@PC00001+20                                     0058 00153000
         L     @15,@PC00001+4                                      0058 00154000
         L     @01,SWEPAPTR(,@15)                                  0058 00155000
         MVC   TABLEPTR(4,@10),SWBLKPTR(@01)                       0058 00156000
*      END;                                                        0059 00157000
*    ELSE                                                          0060 00158000
*      DO;                                                         0060 00159000
         B     @RC00051                                            0060 00160000
@RF00051 DS    0H                                                  0061 00161000
*        IF ASSGNTBL = ON THEN         /* ASSIGN REQUESTED           */ 00162000
         L     @10,@PC00001                                        0061 00163000
         TM    ASSGNTBL(@10),B'10000000'                           0061 00164000
         BNO   @RF00061                                            0061 00165000
*          DO;                                                     0062 00166000
*             /*?SWAREQ (AL) EPA (SWEPAPTR);*/                     0063 00167000
*             CALL SWAMGR (SWEPAPTR,'AL');                         0063 00168000
         L     @10,@PC00001+4                                      0063 00169000
         ST    @10,@AL00001                                        0063 00170000
         LA    @10,@CC00799                                        0063 00171000
         ST    @10,@AL00001+4                                      0063 00172000
         L     @10,CVTPTR                                          0063 00173000
         L     @10,CVTJESCT(,@10)                                  0063 00174000
         L     @15,JESWAA(,@10)                                    0063 00175000
         LA    @01,@AL00001                                        0063 00176000
         BALR  @14,@15                                             0063 00177000
*            RETCODE = REG15;          /* RETURN CODE FROM SWA MGR   */ 00178000
         STH   REG15,RETCODE                                       0064 00179000
*            IF RETCODE ^= ZERO THEN   /* SWA MGR ERROR              */ 00180000
         LH    @10,RETCODE                                         0065 00181000
         LTR   @10,@10                                             0065 00182000
         BZ    @RF00065                                            0065 00183000
*              RETCODE = SWAERROR;                                 0066 00184000
         MVC   RETCODE(2),@CH00045                                 0066 00185000
*            ELSE                                                  0067 00186000
*              DO;                                                 0067 00187000
         B     @RC00065                                            0067 00188000
@RF00065 DS    0H                                                  0068 00189000
*                SMISVA = SWVA;        /* SVA TO PARMS               */ 00190000
         L     @10,@PC00001+16                                     0068 00191000
         L     @15,@PC00001+4                                      0068 00192000
         L     @15,SWEPAPTR(,@15)                                  0068 00193000
         MVC   SMISVA(3,@10),SWVA(@15)                             0068 00194000
*                TABLEPTR = SWBLKPTR;  /* ADD. TO PARMS              */ 00195000
         L     @10,@PC00001+20                                     0069 00196000
         MVC   TABLEPTR(4,@10),SWBLKPTR(@15)                       0069 00197000
*              END;                                                0070 00198000
*          END;                                                    0071 00199000
*        ELSE                                                      0072 00200000
*          DO;                                                     0072 00201000
         B     @RC00061                                            0072 00202000
@RF00061 DS    0H                                                  0073 00203000
*            IF WRTBLNEW = ON | WRTBLOLD = ON THEN /* MUST DO WRITE  */ 00204000
         L     @10,@PC00001                                        0073 00205000
         TM    WRTBLNEW(@10),B'00011000'                           0073 00206000
         BZ    @RF00073                                            0073 00207000
*              DO;                                                 0074 00208000
*                IF WRTBLNEW = ON THEN /* SET UP EPA                 */ 00209000
         TM    WRTBLNEW(@10),B'00010000'                           0075 00210000
         BNO   @RF00075                                            0075 00211000
*                  DO;                                             0076 00212000
*                    SWVA = SMISVA;    /* SVA TO EPA                 */ 00213000
         L     @10,@PC00001+4                                      0077 00214000
         L     @10,SWEPAPTR(,@10)                                  0077 00215000
         L     @15,@PC00001+16                                     0077 00216000
         MVC   SWVA(3,@10),SMISVA(@15)                             0077 00217000
*                    SWBLKPTR = TABLEPTR; /* ADD. TO EPA             */ 00218000
         L     @15,@PC00001+20                                     0078 00219000
         MVC   SWBLKPTR(4,@10),TABLEPTR(@15)                       0078 00220000
*                  END;                                            0079 00221000
*                 /*?SWAREQ (WL) EPA (SWEPAPTR);*/                 0080 00222000
*                 CALL SWAMGR (SWEPAPTR,'WL');                     0080 00223000
@RF00075 L     @10,@PC00001+4                                      0080 00224000
         ST    @10,@AL00001                                        0080 00225000
         LA    @10,@CC00800                                        0080 00226000
         ST    @10,@AL00001+4                                      0080 00227000
         L     @10,CVTPTR                                          0080 00228000
         L     @10,CVTJESCT(,@10)                                  0080 00229000
         L     @15,JESWAA(,@10)                                    0080 00230000
         LA    @01,@AL00001                                        0080 00231000
         BALR  @14,@15                                             0080 00232000
*                RETCODE = REG15;         /* SWA MGR RETURN          */ 00233000
         STH   REG15,RETCODE                                       0081 00234000
*                IF RETCODE ^= ZERO THEN /* SWA MGR ERROR            */ 00235000
         LH    @10,RETCODE                                         0082 00236000
         LTR   @10,@10                                             0082 00237000
         BZ    @RF00082                                            0082 00238000
*                  RETCODE = SWAERROR;                             0083 00239000
         MVC   RETCODE(2),@CH00045                                 0083 00240000
*              END;                                                0084 00241000
@RF00082 DS    0H                                                  0085 00242000
*          END;                                                    0085 00243000
@RF00073 DS    0H                                                  0086 00244000
*      END;                                                        0086 00245000
@RC00061 DS    0H                                                  0087 00246000
*  END;                                                            0087 00247000
@RC00051 DS    0H                                                  0088 00248000
*RETURN CODE(RETCODE);                                             0088 00249000
@RC00046 LH    @10,RETCODE                                         0088 00250000
         L     @13,4(,@13)                                         0088 00251000
         L     @00,@SIZDATD                                        0088 00252000
         LR    @01,@11                                             0088 00253000
         FREEMAIN R,LV=(0),A=(1)                                        00254000
         LR    @15,@10                                             0088 00255000
         L     @14,12(,@13)                                        0088 00256000
         LM    @00,@12,20(@13)                                     0088 00257000
         BR    @14                                                 0088 00258000
*END IEFAB4FF                                                      0089 00259000
*/* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM.      * 00260000
*/*%INCLUDE SYSLIB  (A4FFSPEC)                                        * 00261000
*/*%INCLUDE SYSLIB  (A4FFDATA)                                        * 00262000
*/*%INCLUDE SYSLIB  (IEFZB505)                                        * 00263000
*/*%INCLUDE SYSLIB  (CVT     )                                        * 00264000
*/*%INCLUDE SYSLIB  (IEFJESCT)                                        * 00265000
*;                                                                 0089 00266000
@DATA    DS    0H                                                       00267000
@CH00063 DC    H'4'                                                     00268000
@CH00045 DC    H'8'                                                     00269000
@DATD    DSECT                                                          00270000
         DS    0F                                                       00271000
@SA00001 DS    18F                                                      00272000
@PC00001 DS    6F                                                       00273000
@AL00001 DS    2A                                                       00274000
IEFAB4FF CSECT                                                          00275000
         DS    0F                                                       00276000
@DATD    DSECT                                                          00277000
         DS    0D                                                       00278000
GTSTRTCD DS    F                                                        00279000
RETCODE  DS    H                                                        00280000
         ORG   *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA                00281000
@ENDDATD EQU   *                                                        00282000
IEFAB4FF CSECT                                                          00283000
         DS    0F                                                       00284000
@SIZDATD DC    AL1(230)                                                 00285000
         DC    AL3(@ENDDATD-@DATD)                                      00286000
         DS    0D                                                       00287000
GTSTZERO DC    F'0'                                                     00288000
@CC00798 DC    C'RL'                                                    00289000
@CC00799 DC    C'AL'                                                    00290000
@CC00800 DC    C'WL'                                                    00291000
@00      EQU   00                      EQUATES FOR REGISTERS 0-15       00292000
@01      EQU   01                                                       00293000
@02      EQU   02                                                       00294000
@03      EQU   03                                                       00295000
@04      EQU   04                                                       00296000
@05      EQU   05                                                       00297000
@06      EQU   06                                                       00298000
@07      EQU   07                                                       00299000
@08      EQU   08                                                       00300000
@09      EQU   09                                                       00301000
@10      EQU   10                                                       00302000
@11      EQU   11                                                       00303000
@12      EQU   12                                                       00304000
@13      EQU   13                                                       00305000
@14      EQU   14                                                       00306000
@15      EQU   15                                                       00307000
REG15    EQU   @15                                                      00308000
GTSTR0   EQU   @00                                                      00309000
GTSTR1   EQU   @01                                                      00310000
GTSTR2   EQU   @02                                                      00311000
GTSTR15  EQU   @15                                                      00312000
GTSTR4   EQU   @04                                                      00313000
GTSTR5   EQU   @05                                                      00314000
GTSTR6   EQU   @06                                                      00315000
GTSTR7   EQU   @07                                                      00316000
GTSTR8   EQU   @08                                                      00317000
GTSTR3   EQU   @03                                                      00318000
CVTPTR   EQU   16                                                       00319000
SWAEPA   EQU   0                                                        00320000
SWBLKPTR EQU   SWAEPA                                                   00321000
SWVAFW   EQU   SWAEPA+4                                                 00322000
SWVA     EQU   SWVAFW                                                   00323000
SWBLKID  EQU   SWVAFW+3                                                 00324000
SWLNGTH  EQU   SWAEPA+8                                                 00325000
CVTMAP   EQU   0                                                        00326000
CVTDAR   EQU   CVTMAP+72                                                00327000
CVTFLGS1 EQU   CVTDAR                                                   00328000
CVTDCB   EQU   CVTMAP+116                                               00329000
CVTOPTA  EQU   CVTMAP+182                                               00330000
CVTOPTB  EQU   CVTMAP+183                                               00331000
CVTTSCVT EQU   CVTMAP+228                                               00332000
CVTTSFLG EQU   CVTTSCVT                                                 00333000
CVTGTF   EQU   CVTMAP+236                                               00334000
CVTGTFST EQU   CVTGTF                                                   00335000
CVTGTFS  EQU   CVTGTFST                                                 00336000
CVTSTATE EQU   CVTGTFST                                                 00337000
CVTTMODE EQU   CVTGTFST                                                 00338000
CVTFORM  EQU   CVTGTFST                                                 00339000
CVTUSR   EQU   CVTGTFST                                                 00340000
CVTAQAVT EQU   CVTMAP+240                                               00341000
CVTTCMFG EQU   CVTAQAVT                                                 00342000
CVTTATA  EQU   CVTMAP+244                                               00343000
CVTATER  EQU   CVTMAP+248                                               00344000
CVTEXT1  EQU   CVTMAP+252                                               00345000
CVTPURG  EQU   CVTMAP+260                                               00346000
CVTQMSG  EQU   CVTMAP+268                                               00347000
CVTDMSR  EQU   CVTMAP+272                                               00348000
CVTJESCT EQU   CVTMAP+296                                               00349000
CVTAPF   EQU   CVTMAP+324                                               00350000
CVTEXT2  EQU   CVTMAP+328                                               00351000
CVTHJES  EQU   CVTMAP+332                                               00352000
CVTPGSIA EQU   CVTMAP+348                                               00353000
CVTA1F1  EQU   CVTMAP+356                                               00354000
CVTSYSK  EQU   CVTMAP+357                                               00355000
CVTATMCT EQU   CVTMAP+388                                               00356000
CVTXTNT1 EQU   0                                                        00357000
CVTXTNT2 EQU   0                                                        00358000
CVTDSSV  EQU   CVTXTNT2                                                 00359000
CVTRSV90 EQU   CVTXTNT2+5                                               00360000
CVTQID   EQU   CVTXTNT2+24                                              00361000
CVTRV400 EQU   CVTXTNT2+52                                              00362000
CVTRV409 EQU   CVTXTNT2+53                                              00363000
CVTATCVT EQU   CVTXTNT2+64                                              00364000
CVTRV429 EQU   CVTXTNT2+84                                              00365000
CVTRV438 EQU   CVTXTNT2+85                                              00366000
CVTRV457 EQU   CVTXTNT2+112                                             00367000
CVTRV466 EQU   CVTXTNT2+113                                             00368000
CVTFIX   EQU   0                                                        00369000
CVTRELNO EQU   CVTFIX+252                                               00370000
JESCT    EQU   0                                                        00371000
JESWAA   EQU   JESCT+8                                                  00372000
JESSSREQ EQU   JESCT+20                                                 00373000
SWAMGR   EQU   0                                                        00374000
SSREQ    EQU   0                                                        00375000
SMIFNMAP EQU   0                                                        00376000
ASSGNTBL EQU   SMIFNMAP                                                 00377000
RDTBLNEW EQU   SMIFNMAP                                                 00378000
RDTBLOLD EQU   SMIFNMAP                                                 00379000
WRTBLNEW EQU   SMIFNMAP                                                 00380000
WRTBLOLD EQU   SMIFNMAP                                                 00381000
SWEPAPTR EQU   0                                                        00382000
TBLENGTH EQU   0                                                        00383000
TID      EQU   0                                                        00384000
SMISVA   EQU   0                                                        00385000
TABLEPTR EQU   0                                                        00386000
CVTS01   EQU   CVTPGSIA                                                 00387000
CVTLPDIA EQU   CVTS01+12                                                00388000
CVTDIRST EQU   CVTLPDIA                                                 00389000
CVTSLIDA EQU   CVTS01+24                                                00390000
CVTCTLFG EQU   CVTS01+50                                                00391000
CVTRV100 EQU   CVTS01+116                                               00392000
CVTRV109 EQU   CVTS01+117                                               00393000
CVTRV118 EQU   CVTS01+118                                               00394000
CVTRV127 EQU   CVTS01+119                                               00395000
CVTRV157 EQU   CVTS01+376                                               00396000
CVTRV166 EQU   CVTS01+377                                               00397000
CVTRV175 EQU   CVTS01+378                                               00398000
CVTRV184 EQU   CVTS01+379                                               00399000
CVTRV210 EQU   CVTS01+424                                               00400000
CVTRV219 EQU   CVTS01+425                                               00401000
CVTRV228 EQU   CVTS01+426                                               00402000
CVTRV237 EQU   CVTS01+427                                               00403000
CVTMFRTR EQU   CVTS01+452                                               00404000
CVTRV262 EQU   CVTS01+468                                               00405000
CVTRV271 EQU   CVTS01+469                                               00406000
CVTRV280 EQU   CVTS01+470                                               00407000
CVTRV289 EQU   CVTS01+471                                               00408000
CVTGSDA  EQU   CVTS01+600                                               00409000
         AGO   .@UNREFD                START UNREFERENCED COMPONENTS    00410000
CVTRV512 EQU   CVTS01+608                                               00411000
CVTADV   EQU   CVTS01+604                                               00412000
CVTGSDAB EQU   CVTGSDA                                                  00413000
CVTQV3   EQU   CVTS01+596                                               00414000
CVTQV2   EQU   CVTS01+592                                               00415000
CVTQV1   EQU   CVTS01+588                                               00416000
CVTRPT   EQU   CVTS01+584                                               00417000
CVTSSRB  EQU   CVTS01+580                                               00418000
CVTCSDRL EQU   CVTS01+576                                               00419000
CVTEXP1  EQU   CVTS01+572                                               00420000
CVTRMPMT EQU   CVTS01+568                                               00421000
CVTRMPTT EQU   CVTS01+564                                               00422000
CVTVPSA  EQU   CVTS01+560                                               00423000
CVTVSTOP EQU   CVTS01+556                                               00424000
CVTGTFR8 EQU   CVTS01+552                                               00425000
CVTQUIT  EQU   CVTS01+548                                               00426000
CVTVACR  EQU   CVTS01+544                                               00427000
CVTWTCB  EQU   CVTS01+540                                               00428000
CVTSTPRS EQU   CVTS01+536                                               00429000
CVT0PT02 EQU   CVTS01+532                                               00430000
CVTDARCM EQU   CVTS01+528                                               00431000
CVTIRECM EQU   CVTS01+524                                               00432000
CVTJRECM EQU   CVTS01+520                                               00433000
CVTVEMS0 EQU   CVTS01+516                                               00434000
CVTSPFRR EQU   CVTS01+512                                               00435000
CVTRLSTG EQU   CVTS01+508                                               00436000
CVT0TC0A EQU   CVTS01+504                                               00437000
CVTGMBR  EQU   CVTS01+500                                               00438000
CVTLFRM  EQU   CVTS01+496                                               00439000
CVTRMBR  EQU   CVTS01+492                                               00440000
CVTVIOP  EQU   CVTS01+488                                               00441000
CVTRV307 EQU   CVTS01+486                                               00442000
CVTRV306 EQU   CVTS01+484                                               00443000
CVTRV305 EQU   CVTS01+482                                               00444000
CVTRV304 EQU   CVTS01+480                                               00445000
CVTRV303 EQU   CVTS01+478                                               00446000
CVTRV302 EQU   CVTS01+476                                               00447000
CVTRV301 EQU   CVTS01+475                                               00448000
CVTRV300 EQU   CVTS01+474                                               00449000
CVTRV299 EQU   CVTS01+473                                               00450000
CVTRV298 EQU   CVTS01+472                                               00451000
CVTRV297 EQU   CVTRV289                                                 00452000
CVTRV296 EQU   CVTRV289                                                 00453000
CVTRV295 EQU   CVTRV289                                                 00454000
CVTRV294 EQU   CVTRV289                                                 00455000
CVTRV293 EQU   CVTRV289                                                 00456000
CVTRV292 EQU   CVTRV289                                                 00457000
CVTRV291 EQU   CVTRV289                                                 00458000
CVTRV290 EQU   CVTRV289                                                 00459000
CVTRV288 EQU   CVTRV280                                                 00460000
CVTRV287 EQU   CVTRV280                                                 00461000
CVTRV286 EQU   CVTRV280                                                 00462000
CVTRV285 EQU   CVTRV280                                                 00463000
CVTRV284 EQU   CVTRV280                                                 00464000
CVTRV283 EQU   CVTRV280                                                 00465000
CVTRV282 EQU   CVTRV280                                                 00466000
CVTRV281 EQU   CVTRV280                                                 00467000
CVTRV279 EQU   CVTRV271                                                 00468000
CVTRV278 EQU   CVTRV271                                                 00469000
CVTRV277 EQU   CVTRV271                                                 00470000
CVTRV276 EQU   CVTRV271                                                 00471000
CVTRV275 EQU   CVTRV271                                                 00472000
CVTRV274 EQU   CVTRV271                                                 00473000
CVTRV273 EQU   CVTRV271                                                 00474000
CVTRV272 EQU   CVTRV271                                                 00475000
CVTRV270 EQU   CVTRV262                                                 00476000
CVTRV269 EQU   CVTRV262                                                 00477000
CVTRV268 EQU   CVTRV262                                                 00478000
CVTRV267 EQU   CVTRV262                                                 00479000
CVTRV266 EQU   CVTRV262                                                 00480000
CVTRV265 EQU   CVTRV262                                                 00481000
CVTRV264 EQU   CVTRV262                                                 00482000
CVTRV263 EQU   CVTRV262                                                 00483000
CVTVFP   EQU   CVTS01+464                                               00484000
CVTVSI   EQU   CVTS01+460                                               00485000
CVTVPSIB EQU   CVTS01+456                                               00486000
CVTMFACT EQU   CVTMFRTR                                                 00487000
CVTMFCTL EQU   CVTS01+448                                               00488000
CVTPVBP  EQU   CVTS01+444                                               00489000
CVTPWI   EQU   CVTS01+440                                               00490000
CVTRV254 EQU   CVTS01+438                                               00491000
CVTRV253 EQU   CVTS01+436                                               00492000
CVTRV252 EQU   CVTS01+434                                               00493000
CVTRV251 EQU   CVTS01+433                                               00494000
CVTRV250 EQU   CVTS01+432                                               00495000
CVTRV249 EQU   CVTS01+431                                               00496000
CVTRV248 EQU   CVTS01+430                                               00497000
CVTRV247 EQU   CVTS01+429                                               00498000
CVTRV246 EQU   CVTS01+428                                               00499000
CVTRV245 EQU   CVTRV237                                                 00500000
CVTRV244 EQU   CVTRV237                                                 00501000
CVTRV243 EQU   CVTRV237                                                 00502000
CVTRV242 EQU   CVTRV237                                                 00503000
CVTRV241 EQU   CVTRV237                                                 00504000
CVTRV240 EQU   CVTRV237                                                 00505000
CVTRV239 EQU   CVTRV237                                                 00506000
CVTRV238 EQU   CVTRV237                                                 00507000
CVTRV236 EQU   CVTRV228                                                 00508000
CVTRV235 EQU   CVTRV228                                                 00509000
CVTRV234 EQU   CVTRV228                                                 00510000
CVTRV233 EQU   CVTRV228                                                 00511000
CVTRV232 EQU   CVTRV228                                                 00512000
CVTRV231 EQU   CVTRV228                                                 00513000
CVTRV230 EQU   CVTRV228                                                 00514000
CVTRV229 EQU   CVTRV228                                                 00515000
CVTRV227 EQU   CVTRV219                                                 00516000
CVTRV226 EQU   CVTRV219                                                 00517000
CVTRV225 EQU   CVTRV219                                                 00518000
CVTRV224 EQU   CVTRV219                                                 00519000
CVTRV223 EQU   CVTRV219                                                 00520000
CVTRV222 EQU   CVTRV219                                                 00521000
CVTRV221 EQU   CVTRV219                                                 00522000
CVTRV220 EQU   CVTRV219                                                 00523000
CVTRV218 EQU   CVTRV210                                                 00524000
CVTRV217 EQU   CVTRV210                                                 00525000
CVTRV216 EQU   CVTRV210                                                 00526000
CVTRV215 EQU   CVTRV210                                                 00527000
CVTRV214 EQU   CVTRV210                                                 00528000
CVTRV213 EQU   CVTRV210                                                 00529000
CVTRV212 EQU   CVTRV210                                                 00530000
CVTRV211 EQU   CVTRV210                                                 00531000
CVTLCCAT EQU   CVTS01+420                                               00532000
CVTPCCAT EQU   CVTS01+416                                               00533000
CVTIPCRP EQU   CVTS01+412                                               00534000
CVTIPCRI EQU   CVTS01+408                                               00535000
CVTIPCDS EQU   CVTS01+404                                               00536000
CVTAIDVT EQU   CVTS01+400                                               00537000
CVTSSAP  EQU   CVTS01+396                                               00538000
CVTRV202 EQU   CVTS01+394                                               00539000
CVTRV201 EQU   CVTS01+392                                               00540000
CVTRV200 EQU   CVTS01+390                                               00541000
CVTRV199 EQU   CVTS01+388                                               00542000
CVTRV198 EQU   CVTS01+386                                               00543000
CVTRV197 EQU   CVTS01+384                                               00544000
CVTRV196 EQU   CVTS01+383                                               00545000
CVTRV195 EQU   CVTS01+382                                               00546000
CVTRV194 EQU   CVTS01+381                                               00547000
CVTRV193 EQU   CVTS01+380                                               00548000
CVTRV192 EQU   CVTRV184                                                 00549000
CVTRV191 EQU   CVTRV184                                                 00550000
CVTRV190 EQU   CVTRV184                                                 00551000
CVTRV189 EQU   CVTRV184                                                 00552000
CVTRV188 EQU   CVTRV184                                                 00553000
CVTRV187 EQU   CVTRV184                                                 00554000
CVTRV186 EQU   CVTRV184                                                 00555000
CVTRV185 EQU   CVTRV184                                                 00556000
CVTRV183 EQU   CVTRV175                                                 00557000
CVTRV182 EQU   CVTRV175                                                 00558000
CVTRV181 EQU   CVTRV175                                                 00559000
CVTRV180 EQU   CVTRV175                                                 00560000
CVTRV179 EQU   CVTRV175                                                 00561000
CVTRV178 EQU   CVTRV175                                                 00562000
CVTRV177 EQU   CVTRV175                                                 00563000
CVTRV176 EQU   CVTRV175                                                 00564000
CVTRV174 EQU   CVTRV166                                                 00565000
CVTRV173 EQU   CVTRV166                                                 00566000
CVTRV172 EQU   CVTRV166                                                 00567000
CVTRV171 EQU   CVTRV166                                                 00568000
CVTRV170 EQU   CVTRV166                                                 00569000
CVTRV169 EQU   CVTRV166                                                 00570000
CVTRV168 EQU   CVTRV166                                                 00571000
CVTRV167 EQU   CVTRV166                                                 00572000
CVTRV165 EQU   CVTRV157                                                 00573000
CVTRV164 EQU   CVTRV157                                                 00574000
CVTRV163 EQU   CVTRV157                                                 00575000
CVTRV162 EQU   CVTRV157                                                 00576000
CVTRV161 EQU   CVTRV157                                                 00577000
CVTRV160 EQU   CVTRV157                                                 00578000
CVTRV159 EQU   CVTRV157                                                 00579000
CVTRV158 EQU   CVTRV157                                                 00580000
CVTRV156 EQU   CVTS01+372                                               00581000
CVTRSTWD EQU   CVTS01+368                                               00582000
CVTSPOST EQU   CVTS01+364                                               00583000
CVTIOBP  EQU   CVTS01+360                                               00584000
CVTASMVT EQU   CVTS01+356                                               00585000
CVTRECRQ EQU   CVTS01+352                                               00586000
CVTWSAC  EQU   CVTS01+348                                               00587000
CVTWSAG  EQU   CVTS01+344                                               00588000
CVTWSAL  EQU   CVTS01+340                                               00589000
CVTSPSA  EQU   CVTS01+336                                               00590000
CVTGLMN  EQU   CVTS01+332                                               00591000
CVTVEAC0 EQU   CVTS01+328                                               00592000
CVT062R1 EQU   CVTS01+324                                               00593000
CVTRPOST EQU   CVTS01+320                                               00594000
CVTDQIQE EQU   CVTS01+316                                               00595000
CVTCSD   EQU   CVTS01+312                                               00596000
CVTLKRMA EQU   CVTS01+308                                               00597000
CVTRSPIE EQU   CVTS01+304                                               00598000
CVTRENQ  EQU   CVTS01+300                                               00599000
CVTLQCB  EQU   CVTS01+296                                               00600000
CVTFQCB  EQU   CVTS01+292                                               00601000
CVTQCS01 EQU   CVTS01+288                                               00602000
CVTAPFT  EQU   CVTS01+284                                               00603000
CVTPARRL EQU   CVTS01+280                                               00604000
CVTVWAIT EQU   CVTS01+276                                               00605000
CVTGSPL  EQU   CVTS01+272                                               00606000
CVTLSMQ  EQU   CVTS01+268                                               00607000
CVTGSMQ  EQU   CVTS01+264                                               00608000
CVTEXPRO EQU   CVTS01+260                                               00609000
CVTOPCTP EQU   CVTS01+256                                               00610000
CVTSIC   EQU   CVTS01+252                                               00611000
CVTTPIOS EQU   CVTS01+248                                               00612000
CVTRTMS  EQU   CVTS01+244                                               00613000
CVTSDBF  EQU   CVTS01+240                                               00614000
CVTSCBP  EQU   CVTS01+236                                               00615000
CVTSDMP  EQU   CVTS01+232                                               00616000
CVTSV60  EQU   CVTS01+228                                               00617000
CVTRTMCT EQU   CVTS01+224                                               00618000
CVTASCBL EQU   CVTS01+220                                               00619000
CVTASCBH EQU   CVTS01+216                                               00620000
CVTGDA   EQU   CVTS01+212                                               00621000
CVTASVT  EQU   CVTS01+208                                               00622000
CVTVVMDI EQU   CVTS01+204                                               00623000
CVTAQTOP EQU   CVTS01+200                                               00624000
CVTIOSCS EQU   CVTS01+196                                               00625000
CVTSDRM  EQU   CVTS01+192                                               00626000
CVTOPTE  EQU   CVTS01+188                                               00627000
CVTSTXU  EQU   CVTS01+184                                               00628000
CVTQUIS  EQU   CVTS01+180                                               00629000
CVTQREC  EQU   CVTS01+176                                               00630000
CVTS1EE  EQU   CVTS01+172                                               00631000
CVTFRAS  EQU   CVTS01+168                                               00632000
CVTQSAS  EQU   CVTS01+164                                               00633000
CVTCRAS  EQU   CVTS01+160                                               00634000
CVTCRMN  EQU   CVTS01+156                                               00635000
CVTDELCP EQU   CVTS01+152                                               00636000
CVTFRECL EQU   CVTS01+148                                               00637000
CVTGETCL EQU   CVTS01+144                                               00638000
CVTBLDCP EQU   CVTS01+140                                               00639000
CVTAUTHL EQU   CVTS01+136                                               00640000
CVTRV146 EQU   CVTS01+134                                               00641000
CVTRV145 EQU   CVTS01+132                                               00642000
CVTRV144 EQU   CVTS01+130                                               00643000
CVTMAXMP EQU   CVTS01+128                                               00644000
CVTRV142 EQU   CVTS01+126                                               00645000
CVTRV141 EQU   CVTS01+125                                               00646000
CVTRV140 EQU   CVTS01+124                                               00647000
CVTRV139 EQU   CVTS01+123                                               00648000
CVTDSSAC EQU   CVTS01+122                                               00649000
CVTRV513 EQU   CVTS01+121                                               00650000
CVTIOSPL EQU   CVTS01+120                                               00651000
CVTRV135 EQU   CVTRV127                                                 00652000
CVTRV134 EQU   CVTRV127                                                 00653000
CVTRV133 EQU   CVTRV127                                                 00654000
CVTRV132 EQU   CVTRV127                                                 00655000
CVTRV131 EQU   CVTRV127                                                 00656000
CVTRV130 EQU   CVTRV127                                                 00657000
CVTRV129 EQU   CVTRV127                                                 00658000
CVTRV128 EQU   CVTRV127                                                 00659000
CVTRV126 EQU   CVTRV118                                                 00660000
CVTRV125 EQU   CVTRV118                                                 00661000
CVTRV124 EQU   CVTRV118                                                 00662000
CVTRV123 EQU   CVTRV118                                                 00663000
CVTRV122 EQU   CVTRV118                                                 00664000
CVTRV121 EQU   CVTRV118                                                 00665000
CVTRV120 EQU   CVTRV118                                                 00666000
CVTRV119 EQU   CVTRV118                                                 00667000
CVTRV117 EQU   CVTRV109                                                 00668000
CVTRV116 EQU   CVTRV109                                                 00669000
CVTRV115 EQU   CVTRV109                                                 00670000
CVTRV114 EQU   CVTRV109                                                 00671000
CVTRV113 EQU   CVTRV109                                                 00672000
CVTRV112 EQU   CVTRV109                                                 00673000
CVTRV111 EQU   CVTRV109                                                 00674000
CVTRV110 EQU   CVTRV109                                                 00675000
CVTRV108 EQU   CVTRV100                                                 00676000
CVTRV107 EQU   CVTRV100                                                 00677000
CVTRV106 EQU   CVTRV100                                                 00678000
CVTRV105 EQU   CVTRV100                                                 00679000
CVTRV104 EQU   CVTRV100                                                 00680000
CVTRV103 EQU   CVTRV100                                                 00681000
CVTRV102 EQU   CVTRV100                                                 00682000
CVTRV101 EQU   CVTRV100                                                 00683000
CVTCSPIE EQU   CVTS01+112                                               00684000
CVTSMFEX EQU   CVTS01+108                                               00685000
CVTOLT0A EQU   CVTS01+104                                               00686000
CVTSRBRT EQU   CVTS01+100                                               00687000
CVTRSV82 EQU   CVTS01+98                                                00688000
CVTRSV81 EQU   CVTS01+96                                                00689000
CVTSYSWT EQU   CVTS01+92                                                00690000
CVTRV327 EQU   CVTS01+88                                                00691000
CVTRV326 EQU   CVTS01+84                                                00692000
CVTRV325 EQU   CVTS01+80                                                00693000
CVTRV324 EQU   CVTS01+76                                                00694000
CVT0VL01 EQU   CVTS01+72                                                00695000
CVTSHRVM EQU   CVTS01+68                                                00696000
CVTRV332 EQU   CVTS01+64                                                00697000
CVTTAS   EQU   CVTS01+60                                                00698000
CVTRSCN  EQU   CVTS01+56                                                00699000
CVTTRAC2 EQU   CVTS01+54                                                00700000
CVTTRACE EQU   CVTS01+52                                                00701000
CVTAPG   EQU   CVTS01+51                                                00702000
CVTSDTRC EQU   CVTCTLFG                                                 00703000
CVTGTRCE EQU   CVTCTLFG                                                 00704000
CVTNOMP  EQU   CVTCTLFG                                                 00705000
CVTRSV79 EQU   CVTCTLFG                                                 00706000
CVTDSTAT EQU   CVTCTLFG                                                 00707000
CVTRSV78 EQU   CVTCTLFG                                                 00708000
CVTRV333 EQU   CVTCTLFG                                                 00709000
CVTRV323 EQU   CVTCTLFG                                                 00710000
CVTSPVLK EQU   CVTS01+49                                                00711000
CVTRSV77 EQU   CVTS01+48                                                00712000
CVTRV331 EQU   CVTS01+44                                                00713000
CVTRV330 EQU   CVTS01+40                                                00714000
CVTRV329 EQU   CVTS01+36                                                00715000
CVTRV328 EQU   CVTS01+32                                                00716000
CVTRV322 EQU   CVTS01+28                                                00717000
CVTSLID  EQU   CVTSLIDA+1                                               00718000
CVTSYLK  EQU   CVTSLIDA                                                 00719000
CVTRV321 EQU   CVTS01+20                                                00720000
CVTRV320 EQU   CVTS01+16                                                00721000
CVTLPDIR EQU   CVTLPDIA+1                                               00722000
CVTRSV69 EQU   CVTDIRST                                                 00723000
CVTRSV68 EQU   CVTDIRST                                                 00724000
CVTRSV67 EQU   CVTDIRST                                                 00725000
CVTRSV66 EQU   CVTDIRST                                                 00726000
CVTRSV65 EQU   CVTDIRST                                                 00727000
CVTRSV64 EQU   CVTDIRST                                                 00728000
CVTRSV63 EQU   CVTDIRST                                                 00729000
CVTDICOM EQU   CVTDIRST                                                 00730000
CVTPVTP  EQU   CVTS01+8                                                 00731000
CVTLPDSR EQU   CVTS01+4                                                 00732000
CVTRSVA2 EQU   CVTS01                                                   00733000
@NM00001 EQU   SMIFNMAP                                                 00734000
JESPJESN EQU   JESCT+28                                                 00735000
JESSSCT  EQU   JESCT+24                                                 00736000
JESRESQM EQU   JESCT+16                                                 00737000
JESQMGR  EQU   JESCT+12                                                 00738000
JESUNITS EQU   JESCT+4                                                  00739000
@NM00004 EQU   JESCT                                                    00740000
CVTLEVL  EQU   CVTRELNO+2                                               00741000
CVTNUMB  EQU   CVTRELNO                                                 00742000
CVTMDL   EQU   CVTFIX+250                                               00743000
@NM00003 EQU   CVTFIX+248                                               00744000
@NM00002 EQU   CVTFIX                                                   00745000
CVTRV482 EQU   CVTXTNT2+128                                             00746000
CVTRV481 EQU   CVTXTNT2+124                                             00747000
CVTRV480 EQU   CVTXTNT2+120                                             00748000
CVTRV479 EQU   CVTXTNT2+118                                             00749000
CVTRV478 EQU   CVTXTNT2+117                                             00750000
CVTRV477 EQU   CVTXTNT2+116                                             00751000
CVTRV476 EQU   CVTXTNT2+115                                             00752000
CVTRV475 EQU   CVTXTNT2+114                                             00753000
CVTRV474 EQU   CVTRV466                                                 00754000
CVTRV473 EQU   CVTRV466                                                 00755000
CVTRV472 EQU   CVTRV466                                                 00756000
CVTRV471 EQU   CVTRV466                                                 00757000
CVTRV470 EQU   CVTRV466                                                 00758000
CVTRV469 EQU   CVTRV466                                                 00759000
CVTRV468 EQU   CVTRV466                                                 00760000
CVTRV467 EQU   CVTRV466                                                 00761000
CVTRV465 EQU   CVTRV457                                                 00762000
CVTRV464 EQU   CVTRV457                                                 00763000
CVTRV463 EQU   CVTRV457                                                 00764000
CVTRV462 EQU   CVTRV457                                                 00765000
CVTRV461 EQU   CVTRV457                                                 00766000
CVTRV460 EQU   CVTRV457                                                 00767000
CVTRV459 EQU   CVTRV457                                                 00768000
CVTRV458 EQU   CVTRV457                                                 00769000
CVTRV456 EQU   CVTXTNT2+108                                             00770000
CVTRV455 EQU   CVTXTNT2+104                                             00771000
CVTRV454 EQU   CVTXTNT2+100                                             00772000
CVTRV453 EQU   CVTXTNT2+96                                              00773000
CVTRV452 EQU   CVTXTNT2+94                                              00774000
CVTRV451 EQU   CVTXTNT2+92                                              00775000
CVTRV450 EQU   CVTXTNT2+90                                              00776000
CVTRV449 EQU   CVTXTNT2+88                                              00777000
CVTRV448 EQU   CVTXTNT2+87                                              00778000
CVTRV447 EQU   CVTXTNT2+86                                              00779000
CVTRV446 EQU   CVTRV438                                                 00780000
CVTRV445 EQU   CVTRV438                                                 00781000
CVTRV444 EQU   CVTRV438                                                 00782000
CVTRV443 EQU   CVTRV438                                                 00783000
CVTRV442 EQU   CVTRV438                                                 00784000
CVTRV441 EQU   CVTRV438                                                 00785000
CVTRV440 EQU   CVTRV438                                                 00786000
CVTRV439 EQU   CVTRV438                                                 00787000
CVTRV437 EQU   CVTRV429                                                 00788000
CVTRV436 EQU   CVTRV429                                                 00789000
CVTRV435 EQU   CVTRV429                                                 00790000
CVTRV434 EQU   CVTRV429                                                 00791000
CVTRV433 EQU   CVTRV429                                                 00792000
CVTRV432 EQU   CVTRV429                                                 00793000
CVTRV431 EQU   CVTRV429                                                 00794000
CVTRV430 EQU   CVTRV429                                                 00795000
CVTRV428 EQU   CVTXTNT2+80                                              00796000
CVTRV427 EQU   CVTXTNT2+76                                              00797000
CVTRV426 EQU   CVTXTNT2+72                                              00798000
CVTRV425 EQU   CVTXTNT2+68                                              00799000
CVTATACT EQU   CVTATCVT                                                 00800000
CVTRV423 EQU   CVTXTNT2+62                                              00801000
CVTRV422 EQU   CVTXTNT2+60                                              00802000
CVTRV421 EQU   CVTXTNT2+58                                              00803000
CVTRV420 EQU   CVTXTNT2+56                                              00804000
CVTRV419 EQU   CVTXTNT2+55                                              00805000
CVTRV418 EQU   CVTXTNT2+54                                              00806000
CVTRV417 EQU   CVTRV409                                                 00807000
CVTRV416 EQU   CVTRV409                                                 00808000
CVTRV415 EQU   CVTRV409                                                 00809000
CVTRV414 EQU   CVTRV409                                                 00810000
CVTRV413 EQU   CVTRV409                                                 00811000
CVTRV412 EQU   CVTRV409                                                 00812000
CVTRV411 EQU   CVTRV409                                                 00813000
CVTRV410 EQU   CVTRV409                                                 00814000
CVTRV408 EQU   CVTRV400                                                 00815000
CVTRV407 EQU   CVTRV400                                                 00816000
CVTRV406 EQU   CVTRV400                                                 00817000
CVTRV405 EQU   CVTRV400                                                 00818000
CVTRV404 EQU   CVTRV400                                                 00819000
CVTRV403 EQU   CVTRV400                                                 00820000
CVTRV402 EQU   CVTRV400                                                 00821000
CVTRV401 EQU   CVTRV400                                                 00822000
CVTRSVA1 EQU   CVTXTNT2+48                                              00823000
CVTRSVA0 EQU   CVTXTNT2+44                                              00824000
CVTRSV99 EQU   CVTXTNT2+40                                              00825000
CVTRSV98 EQU   CVTXTNT2+36                                              00826000
CVTRSV97 EQU   CVTXTNT2+34                                              00827000
CVTRSV96 EQU   CVTXTNT2+32                                              00828000
CVTOLTEP EQU   CVTXTNT2+28                                              00829000
CVTQIDA  EQU   CVTQID+1                                                 00830000
CVTRSV95 EQU   CVTQID                                                   00831000
CVTRSV94 EQU   CVTXTNT2+20                                              00832000
CVTRSV93 EQU   CVTXTNT2+16                                              00833000
CVTRAP   EQU   CVTXTNT2+12                                              00834000
CVTDEBVR EQU   CVTXTNT2+8                                               00835000
CVTRSV91 EQU   CVTXTNT2+6                                               00836000
CVTRSV9H EQU   CVTRSV90                                                 00837000
CVTRSV9G EQU   CVTRSV90                                                 00838000
CVTRSV9F EQU   CVTRSV90                                                 00839000
CVTRSV9E EQU   CVTRSV90                                                 00840000
CVTRSV9D EQU   CVTRSV90                                                 00841000
CVTRSV9C EQU   CVTRSV90                                                 00842000
CVTRSV9B EQU   CVTRSV90                                                 00843000
CVTRSV9A EQU   CVTRSV90                                                 00844000
CVTNUCLS EQU   CVTXTNT2+4                                               00845000
CVTDSSVA EQU   CVTDSSV+1                                                00846000
CVTRSV89 EQU   CVTDSSV                                                  00847000
CVTRSV88 EQU   CVTXTNT1+8                                               00848000
CVTRSV87 EQU   CVTXTNT1+4                                               00849000
CVTFACHN EQU   CVTXTNT1                                                 00850000
CVTRV488 EQU   CVTMAP+412                                               00851000
CVTRV487 EQU   CVTMAP+408                                               00852000
CVTRV486 EQU   CVTMAP+404                                               00853000
CVTRV485 EQU   CVTMAP+400                                               00854000
CVTRV484 EQU   CVTMAP+396                                               00855000
CVTAUTH  EQU   CVTMAP+392                                               00856000
CVTATMCA EQU   CVTATMCT+1                                               00857000
CVTATMST EQU   CVTATMCT                                                 00858000
CVTRSV61 EQU   CVTMAP+384                                               00859000
CVTRSV60 EQU   CVTMAP+380                                               00860000
CVTSTOA  EQU   CVTMAP+376                                               00861000
CVTRSV58 EQU   CVTMAP+374                                               00862000
CVTRSV57 EQU   CVTMAP+372                                               00863000
CVTDDCE  EQU   CVTMAP+368                                               00864000
CVTPNWFR EQU   CVTMAP+364                                               00865000
CVTSMF   EQU   CVTMAP+360                                               00866000
CVTSULK  EQU   CVTMAP+358                                               00867000
CVTSLKO  EQU   CVTSYSK                                                  00868000
CVTSLKP  EQU   CVTSYSK                                                  00869000
CVTSLKQ  EQU   CVTSYSK                                                  00870000
CVTSLKR  EQU   CVTSYSK                                                  00871000
CVTRSV56 EQU   CVTSYSK                                                  00872000
CVTRSV55 EQU   CVTSYSK                                                  00873000
CVTRSV54 EQU   CVTSYSK                                                  00874000
CVTRSV53 EQU   CVTSYSK                                                  00875000
CVTRSV52 EQU   CVTA1F1                                                  00876000
CVTRSV51 EQU   CVTA1F1                                                  00877000
CVTRSV50 EQU   CVTA1F1                                                  00878000
CVTRSV49 EQU   CVTA1F1                                                  00879000
CVTRSV48 EQU   CVTA1F1                                                  00880000
CVTRSV47 EQU   CVTA1F1                                                  00881000
CVTSRSW  EQU   CVTA1F1                                                  00882000
CVTPFSW  EQU   CVTA1F1                                                  00883000
CVTPCVT  EQU   CVTMAP+352                                               00884000
CVTRSV46 EQU   CVTMAP+344                                               00885000
CVTRSV45 EQU   CVTMAP+340                                               00886000
CVTRSV44 EQU   CVTMAP+338                                               00887000
CVTRSV43 EQU   CVTMAP+336                                               00888000
CVTHJESA EQU   CVTHJES+1                                                00889000
CVTRSV42 EQU   CVTHJES                                                  00890000
CVTEXT2A EQU   CVTEXT2+1                                                00891000
CVTRSV41 EQU   CVTEXT2                                                  00892000
CVTAPFA  EQU   CVTAPF+1                                                 00893000
CVTRSV40 EQU   CVTAPF                                                   00894000
CVTINTLA EQU   CVTMAP+320                                               00895000
CVTERPV  EQU   CVTMAP+316                                               00896000
CVTEORM  EQU   CVTMAP+312                                               00897000
CVTMCHPR EQU   CVTMAP+308                                               00898000
CVTTZ    EQU   CVTMAP+304                                               00899000
CVTJEPS  EQU   CVTMAP+300                                               00900000
CVTMODE  EQU   CVTMAP+292                                               00901000
CVTPTRV  EQU   CVTMAP+288                                               00902000
CVTREAL  EQU   CVTMAP+284                                               00903000
CVTRSV39 EQU   CVTMAP+280                                               00904000
CVTRSV38 EQU   CVTMAP+276                                               00905000
CVTDMSRA EQU   CVTDMSR+1                                                00906000
CVTRSV37 EQU   CVTDMSR                                                  00907000
CVTQMSGA EQU   CVTQMSG+1                                                00908000
CVTRSV36 EQU   CVTQMSG                                                  00909000
CVTAMFF  EQU   CVTMAP+264                                               00910000
CVTPURGA EQU   CVTPURG+1                                                00911000
CVTRSV35 EQU   CVTPURG                                                  00912000
CVTCBSP  EQU   CVTMAP+256                                               00913000
CVTATERA EQU   CVTATER+1                                                00914000
CVTSYST  EQU   CVTATER                                                  00915000
CVTTAT   EQU   CVTTATA+1                                                00916000
CVTTSKS  EQU   CVTTATA                                                  00917000
CVTAQAVB EQU   CVTAQAVT+1                                               00918000
CVTRSV34 EQU   CVTTCMFG                                                 00919000
CVTRSV33 EQU   CVTTCMFG                                                 00920000
CVTRSV32 EQU   CVTTCMFG                                                 00921000
CVTRSV31 EQU   CVTTCMFG                                                 00922000
CVTRSV30 EQU   CVTTCMFG                                                 00923000
CVTRSV29 EQU   CVTTCMFG                                                 00924000
CVTRSV28 EQU   CVTTCMFG                                                 00925000
CVTTCRDY EQU   CVTTCMFG                                                 00926000
CVTGTFA  EQU   CVTGTF+1                                                 00927000
CVTRSV27 EQU   CVTGTFST                                                 00928000
CVTRNIO  EQU   CVTGTFST                                                 00929000
CVTRV319 EQU   CVTUSR                                                   00930000
CVTRV318 EQU   CVTFORM                                                  00931000
CVTRV317 EQU   CVTTMODE                                                 00932000
CVTRV316 EQU   CVTSTATE                                                 00933000
CVTRV315 EQU   CVTGTFS                                                  00934000
CVTGTFAV EQU   CVTGTFS                                                  00935000
CVT0SCR1 EQU   CVTMAP+232                                               00936000
CVTTSCVB EQU   CVTTSCVT+1                                               00937000
CVTRSV25 EQU   CVTTSFLG                                                 00938000
CVTRSV24 EQU   CVTTSFLG                                                 00939000
CVTRSV23 EQU   CVTTSFLG                                                 00940000
CVTRSV22 EQU   CVTTSFLG                                                 00941000
CVTRSV21 EQU   CVTTSFLG                                                 00942000
CVTRSV20 EQU   CVTTSFLG                                                 00943000
CVTRSV19 EQU   CVTTSFLG                                                 00944000
CVTTSRDY EQU   CVTTSFLG                                                 00945000
CVTRMS   EQU   CVTMAP+224                                               00946000
CVTPATCH EQU   CVTMAP+220                                               00947000
CVTTSCE  EQU   CVTMAP+216                                               00948000
CVTLNKSC EQU   CVTMAP+214                                               00949000
CVTQABST EQU   CVTMAP+212                                               00950000
CVTMDLDS EQU   CVTMAP+208                                               00951000
CVTUSER  EQU   CVTMAP+204                                               00952000
CVTABEND EQU   CVTMAP+200                                               00953000
CVTSMCA  EQU   CVTMAP+196                                               00954000
CVTRSV18 EQU   CVTMAP+192                                               00955000
CVTQLPAQ EQU   CVTMAP+188                                               00956000
CVTQCDSR EQU   CVTMAP+184                                               00957000
CVTRSV17 EQU   CVTOPTB                                                  00958000
CVTRSV16 EQU   CVTOPTB                                                  00959000
CVTFP    EQU   CVTOPTB                                                  00960000
CVTAPTHR EQU   CVTOPTB                                                  00961000
CVTNLOG  EQU   CVTOPTB                                                  00962000
CVTTOD   EQU   CVTOPTB                                                  00963000
CVTCTIMS EQU   CVTOPTB                                                  00964000
CVTPROT  EQU   CVTOPTB                                                  00965000
CVTXPFP  EQU   CVTOPTA                                                  00966000
CVTASCII EQU   CVTOPTA                                                  00967000
CVTRSV13 EQU   CVTOPTA                                                  00968000
CVTRSV12 EQU   CVTOPTA                                                  00969000
CVTNIP   EQU   CVTOPTA                                                  00970000
CVTDDR   EQU   CVTOPTA                                                  00971000
CVTAPR   EQU   CVTOPTA                                                  00972000
CVTCCH   EQU   CVTOPTA                                                  00973000
CVTSNCTR EQU   CVTMAP+180                                               00974000
CVTQMWR  EQU   CVTMAP+176                                               00975000
CVTQOCR  EQU   CVTMAP+172                                               00976000
CVT1EF00 EQU   CVTMAP+168                                               00977000
CVTMZ00  EQU   CVTMAP+164                                               00978000
CVTHEAD  EQU   CVTMAP+160                                               00979000
CVTRSV11 EQU   CVTMAP+156                                               00980000
CVT0PT01 EQU   CVTMAP+152                                               00981000
CVTMSER  EQU   CVTMAP+148                                               00982000
CVTIERLC EQU   CVTMAP+144                                               00983000
CVTILCH  EQU   CVTMAP+140                                               00984000
CVT0DS   EQU   CVTMAP+136                                               00985000
CVTFBOSV EQU   CVTMAP+132                                               00986000
CVTNUCB  EQU   CVTMAP+128                                               00987000
CVTIXAVL EQU   CVTMAP+124                                               00988000
CVTIOQET EQU   CVTMAP+120                                               00989000
CVTDCBA  EQU   CVTMAP+117                                               00990000
CVTMVS2  EQU   CVTDCB                                                   00991000
CVT6DAT  EQU   CVTDCB                                                   00992000
CVT4MPS  EQU   CVTDCB                                                   00993000
CVTRSV09 EQU   CVTDCB                                                   00994000
CVT4MS1  EQU   CVTDCB                                                   00995000
CVT2SPS  EQU   CVTDCB                                                   00996000
CVT1SSS  EQU   CVTDCB                                                   00997000
CVTRSV08 EQU   CVTDCB                                                   00998000
CVTSTB   EQU   CVTMAP+112                                               00999000
CVTQTD00 EQU   CVTMAP+108                                               01000000
CVTQTE00 EQU   CVTMAP+104                                               01001000
CVTCUCB  EQU   CVTMAP+100                                               01002000
CVTSJQ   EQU   CVTMAP+96                                                01003000
CVTPBLDL EQU   CVTMAP+92                                                01004000
CVTTPC   EQU   CVTMAP+88                                                01005000
CVTSVDCB EQU   CVTMAP+84                                                01006000
CVTBRET  EQU   CVTMAP+82                                                01007000
CVTEXIT  EQU   CVTMAP+80                                                01008000
CVT0FN00 EQU   CVTMAP+76                                                01009000
CVTDARA  EQU   CVTDAR+1                                                 01010000
CVTRSV07 EQU   CVTFLGS1                                                 01011000
CVTRSV06 EQU   CVTFLGS1                                                 01012000
CVTRSV05 EQU   CVTFLGS1                                                 01013000
CVTRSV04 EQU   CVTFLGS1                                                 01014000
CVTRSV03 EQU   CVTFLGS1                                                 01015000
CVTRSV02 EQU   CVTFLGS1                                                 01016000
CVTRSV01 EQU   CVTFLGS1                                                 01017000
CVTDMPLK EQU   CVTFLGS1                                                 01018000
CVTXITP  EQU   CVTMAP+68                                                01019000
CVTZDTAB EQU   CVTMAP+64                                                01020000
CVTMSLT  EQU   CVTMAP+60                                                01021000
CVTDATE  EQU   CVTMAP+56                                                01022000
CVTBTERM EQU   CVTMAP+52                                                01023000
CVTSYSAD EQU   CVTMAP+48                                                01024000
CVTXTLER EQU   CVTMAP+44                                                01025000
CVTILK2  EQU   CVTMAP+40                                                01026000
CVTILK1  EQU   CVTMAP+36                                                01027000
CVTPRLTV EQU   CVTMAP+32                                                01028000
CVTPCNVT EQU   CVTMAP+28                                                01029000
CVT0VL00 EQU   CVTMAP+24                                                01030000
CVTXAPG  EQU   CVTMAP+20                                                01031000
CVTBUF   EQU   CVTMAP+16                                                01032000
CVTJOB   EQU   CVTMAP+12                                                01033000
CVTLINK  EQU   CVTMAP+8                                                 01034000
CVT0EF00 EQU   CVTMAP+4                                                 01035000
CVTTCBP  EQU   CVTMAP                                                   01036000
CVT      EQU   CVTMAP                                                   01037000
SWCHNPTR EQU   SWAEPA+12                                                01038000
.@UNREFD ANOP                          END UNREFERENCED COMPONENTS      01039000
@RC00056 EQU   @RC00051                                                 01040000
@RC00065 EQU   @RC00061                                                 01041000
@ENDDATA EQU   *                                                        01042000
         END   IEFAB4FF                                                 01043000
