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