TITLE 'ISTIC006,UPDATE CTL && EXHIBIT                         *00001000
                         '                                              00002000
ISTIC006 CSECT ,                                                   0001 00003000
@MAINENT DS    0H                                                  0001 00004000
         USING *,@15                                               0001 00005000
         B     @PROLOG                                             0001 00006000
         DC    AL1(16)                                             0001 00007000
         DC    C'ISTIC006  75.189'                                 0001 00008000
         DROP  @15                                                      00009000
@PROLOG  ST    @14,12(,@13)                                        0001 00010000
         STM   @00,@12,20(@13)                                     0001 00011000
         BALR  @11,0                                               0001 00012000
@PSTART  DS    0H                                                  0001 00013000
         USING @PSTART,@11                                         0001 00014000
         ST    @13,@SA00001+4                                      0001 00015000
         LA    @12,@SA00001                                        0001 00016000
         ST    @12,8(,@13)                                         0001 00017000
         LR    @13,@12                                             0001 00018000
         EJECT                                                          00019000
         EJECT                                                          00020000
         EJECT                                                          00021000
*                                                                  0074 00022000
*/*  UPDATE CONTROL SECTION                                          */ 00023000
*                                                                  0074 00024000
*I006C01:                                                          0074 00025000
*   $INBUFR(1:80)='';               /* BLANK OUT INPUT BUFFER        */ 00026000
*                                                                  0074 00027000
I006C01  MVI   $INBUFR(WAPTR),C' '                                 0074 00028000
         MVC   $INBUFR+1(79,WAPTR),$INBUFR(WAPTR)                  0074 00029000
*   /*****************************************************************/ 00030000
*   /*                                                               */ 00031000
*   /* TCEC MSGN(560)INCT(8) INVOKED                                 */ 00032000
*   /*                                                               */ 00033000
*   /*****************************************************************/ 00034000
*                                                                  0075 00035000
*   $TCECM='1'B;                    /* SET TCEC SW IN RCA            */ 00036000
         OI    $TCECM(WAPTR),B'00000001'                           0075 00037000
*   R1=ADDR($TCA09);                /* SET UP PARM LIST $TR          */ 00038000
         LA    R1,$TCA09                                           0076 00039000
*   CALL #EXIT;                     /* CALL CECOM                    */ 00040000
         L     @15,#EXITA(,WAPTR)                                  0077 00041000
         BALR  @14,@15                                             0077 00042000
*   DCL                                                            0078 00043000
*     1 $TCA09,                     /* TCEC PARM LIST                */ 00044000
*      2 $TCB09 FIXED(32) INIT(560),/* MSG NUMBER                    */ 00045000
*      2 $TCC09 FIXED(32) INIT(8),  /* INCT LEN                      */ 00046000
*      2 $TCD09 BIT(8) INIT('01000000'B),/* FLAG                     */ 00047000
*      2 $TCE09 CHAR(4) INIT('FFFFFFFF'X);/* MSSAGE MASK ENTER     0078 00048000
*                                      FUNCTION ID                   */ 00049000
*   WKREG1=ADDR(FNCTBL);            /* GET PTR TO FUNCTION TBL       */ 00050000
         LA    WKREG1,FNCTBL                                       0079 00051000
*   RESPECIFY                                                      0080 00052000
*     CDSMAP BASED(CDSWKPTR);                                      0080 00053000
*   CDSWKPTR=$LOWADDR;              /* SET UP BASE                   */ 00054000
         L     @15,$LOWADDR(,WAPTR)                                0081 00055000
         ST    @15,CDSWKPTR                                        0081 00056000
*   CDSWKPTR=CDSWKPTR+80;           /* GET CDS WORK AREA OFFSET      */ 00057000
         AH    @15,@CH00179                                        0082 00058000
         ST    @15,CDSWKPTR                                        0082 00059000
*   R1=ADDR(CDSUA);                 /* INITIALIZE BASE FOR XC INST   */ 00060000
         LR    R1,@15                                              0083 00061000
*   GEN;                                                           0084 00062000
*                                                                  0084 00063000
         XC  0(255,R1),0(R1)            /*ZERO OUT CDS WORK AREA     */ 00064000
*/* LOCATE FUNCTION                                                  */ 00065000
*                                                                  0085 00066000
*   IF NONE=$INBUFR(2:LENGTH(NONE)+1) THEN                         0085 00067000
         CLC   NONE(4),$INBUFR+1(WAPTR)                            0085 00068000
         BE    @RT00085                                            0085 00069000
*     GOTO I006CRET;                                               0086 00070000
*   CALLREG=ADDR(CALLTBL);          /* GET PTR TO CALL TABLE         */ 00071000
         LA    CALLREG,CALLTBL                                     0087 00072000
*   DO X=1 TO DIM(FNCTBL);          /* CHECK FOR VALID ENTRY         */ 00073000
         LA    X,1                                                 0088 00074000
@DL00088 DS    0H                                                  0089 00075000
*     IF TBLENTLN=$INBUFR THEN      /* COMPARE LENGTH FIRST          */ 00076000
         CLC   TBLENTLN(1,WKREG1),$INBUFR(WAPTR)                   0089 00077000
         BNE   @RF00089                                            0089 00078000
*       DO;                                                        0090 00079000
*         WKREG1=ADDR(FNCTBL);      /* REINITIALIZE WKREG1           */ 00080000
         LA    WKREG1,FNCTBL                                       0091 00081000
*         I=$INBUFR(1:1);           /* GET INPUT LENGTH              */ 00082000
         MVC   I(1),$INBUFR(WAPTR)                                 0092 00083000
*         DO X=1 TO DIM(FNCTBL);    /* COMPARE ACTUAL ENTRY          */ 00084000
         LA    X,1                                                 0093 00085000
@DL00093 DS    0H                                                  0094 00086000
*           IF TBLENTRY(2:4)=$INBUFR(2:4) THEN                     0094 00087000
         CLC   TBLENTRY+1(3,WKREG1),$INBUFR+1(WAPTR)               0094 00088000
         BE    @RT00094                                            0094 00089000
*             GOTO I006C02;         /* IF FOUND-GET OUT              */ 00090000
*           CALLREG=CALLREG+4;      /* UPDATE CALL REG PTR           */ 00091000
         AH    CALLREG,@CH00045                                    0096 00092000
*           WKREG1=WKREG1+TBLENTLN; /* POINT TO NXT FNCTBL ENTRY     */ 00093000
         SLR   @15,@15                                             0097 00094000
         IC    @15,TBLENTLN(,WKREG1)                               0097 00095000
         ALR   WKREG1,@15                                          0097 00096000
*           WKREG1=WKREG1+1;        /* AND UPDATE THAT PTR BY 1      */ 00097000
         AH    WKREG1,@CH00036                                     0098 00098000
*         END;                                                     0099 00099000
         AH    X,@CH00036                                          0099 00100000
         CH    X,@CH00076                                          0099 00101000
         BNH   @DL00093                                            0099 00102000
*         GOTO I006C01A;            /* BR AROUND                     */ 00103000
         B     I006C01A                                            0100 00104000
*       END;                                                       0101 00105000
*     WKREG1=WKREG1+TBLENTLN;       /* POINT TO NXT FUNCT TBL ENT    */ 00106000
@RF00089 SLR   @15,@15                                             0102 00107000
         IC    @15,TBLENTLN(,WKREG1)                               0102 00108000
         ALR   WKREG1,@15                                          0102 00109000
*     WKREG1=WKREG1+1;              /* UPDATE THAT PTR BY ONE        */ 00110000
         AH    WKREG1,@CH00036                                     0103 00111000
*   END;                                                           0104 00112000
         AH    X,@CH00036                                          0104 00113000
         CH    X,@CH00076                                          0104 00114000
         BNH   @DL00088                                            0104 00115000
*I006C01A:                                                         0105 00116000
*                                                                  0105 00117000
*   /*****************************************************************/ 00118000
*   /*                                                               */ 00119000
*   /* TCEC MSGN(299) INVOKED                                        */ 00120000
*   /*                                                               */ 00121000
*   /*****************************************************************/ 00122000
*                                                                  0105 00123000
*   $TCECM='1'B;                    /* SET TCEC SW IN RCA            */ 00124000
I006C01A OI    $TCECM(WAPTR),B'00000001'                           0105 00125000
*   R1=ADDR($TCA10);                /* SET UP PARM LIST $TR          */ 00126000
         LA    R1,$TCA10                                           0106 00127000
*   CALL #EXIT;                     /* CALL CECOM                    */ 00128000
         L     @15,#EXITA(,WAPTR)                                  0107 00129000
         BALR  @14,@15                                             0107 00130000
*   DCL                                                            0108 00131000
*     1 $TCA10,                     /* TCEC PARM LIST                */ 00132000
*      2 $TCB10 FIXED(32) INIT(299),/* MSG NUMBER                    */ 00133000
*      2 $TCC10 FIXED(32) INIT(0),  /* INCT LEN                      */ 00134000
*      2 $TCD10 BIT(8) INIT('00000000'B),/* FLAG                     */ 00135000
*      2 $TCE10 CHAR(4) INIT('FFFFFFFF'X);/* MSSAGE MASK INVALID   0108 00136000
*                                      ENTRY,RE-ENTER                */ 00137000
*   GOTO I006C01;                   /* GO GET NEW RESPONSE           */ 00138000
         B     I006C01                                             0109 00139000
*/* THIS SECTION SETS UP THE UNIT ADDRESS OR SYMBOLIC NAME IN THE    */ 00140000
*/* CDS BUILD AREA AND INITIALIZES THE PROPER SWITCHES               */ 00141000
*                                                                  0110 00142000
*I006C02:                                                          0110 00143000
*   R1=ADDR(CDSUA);                 /* SET UP SECONDARY BASE         */ 00144000
I006C02  L     R1,CDSWKPTR                                         0110 00145000
*   GEN;                                                           0111 00146000
*                                                                  0111 00147000
         XC  0(255,R1),0(R1)            /*ZERO OUT CDS WORK AREA     */ 00148000
*   /*****************************************************************/ 00149000
*   /*                                                               */ 00150000
*   /* TCEC MSGN(578)INCT(8) INVOKED                                 */ 00151000
*   /*                                                               */ 00152000
*   /*****************************************************************/ 00153000
*                                                                  0112 00154000
*   $TCECM='1'B;                    /* SET TCEC SW IN RCA            */ 00155000
         OI    $TCECM(WAPTR),B'00000001'                           0112 00156000
*   R1=ADDR($TCA11);                /* SET UP PARM LIST $TR          */ 00157000
         LA    R1,$TCA11                                           0113 00158000
*   CALL #EXIT;                     /* CALL CECOM                    */ 00159000
         L     @15,#EXITA(,WAPTR)                                  0114 00160000
         BALR  @14,@15                                             0114 00161000
*   DCL                                                            0115 00162000
*     1 $TCA11,                     /* TCEC PARM LIST                */ 00163000
*      2 $TCB11 FIXED(32) INIT(578),/* MSG NUMBER                    */ 00164000
*      2 $TCC11 FIXED(32) INIT(8),  /* INCT LEN                      */ 00165000
*      2 $TCD11 BIT(8) INIT('01000000'B),/* FLAG                     */ 00166000
*      2 $TCE11 CHAR(4) INIT('FFFFFFFF'X);/* MSSAGE MASK GET SYMBOLIC   00167000
*                                      NAME OR CUA                   */ 00168000
*   IF $INBUFR(2:LENGTH(NUMBERIC)+1)<NUMBERIC THEN/* WHICH WOULD   0116 00169000
*                                      INDICATE A                    */ 00170000
         CLC   $INBUFR+1(1,WAPTR),NUMBERIC                         0116 00171000
         BNL   @RF00116                                            0116 00172000
*     DO;                                                          0117 00173000
*       $REMSW='1'B;                /* TURN ON REMOTE SW IN RCA      */ 00174000
         OI    $REMSW(WAPTR),B'01000000'                           0118 00175000
*       CDSREMSY='1'B;              /* TURN ON REMOTE SW IN CDS      */ 00176000
*       CDSSYMB='1'B;               /* TURN ON SYMBOLIC SW IN CDS    */ 00177000
         L     @15,CDSWKPTR                                        0120 00178000
         OI    CDSREMSY(@15),B'00001010'                           0120 00179000
*       CDSSYMBN=$INBUFR(2:(($INBUFR(1:1)+1)));/* MOVE NAME TO CDS   */ 00180000
         MVI   CDSSYMBN+1(@15),C' '                                0121 00181000
         MVC   CDSSYMBN+2(6,@15),CDSSYMBN+1(@15)                   0121 00182000
         SLR   @12,@12                                             0121 00183000
         IC    @12,$INBUFR(,WAPTR)                                 0121 00184000
         BCTR  @12,0                                               0121 00185000
         EX    @12,@SM00890                                        0121 00186000
*     END;                                                         0122 00187000
*   ELSE                                                           0123 00188000
*     DO;                           /* CUA ENTRY                     */ 00189000
         B     @RC00116                                            0123 00190000
@RF00116 DS    0H                                                  0124 00191000
*       $REMSW='0'B;                /* TURN OFF REMOTE FLAG          */ 00192000
         NI    $REMSW(WAPTR),B'10111111'                           0124 00193000
*       IF THREE=$INBUFR(1:1)       /* IF HE ENTERED ONLY A 3-BYTE   */ 00194000
*         THEN                      /* ADDRESS THEN MAKE IT LOOK     */ 00195000
         CLC   THREE(1),$INBUFR(WAPTR)                             0125 00196000
         BNE   @RF00125                                            0125 00197000
*         DO;                       /* LIKE A FOUR BYTE ENTRY        */ 00198000
*           WKAREA(1:2)=NUMBERIC;                                  0127 00199000
         MVI   WKAREA+1,C' '                                       0127 00200000
         MVC   WKAREA(1),NUMBERIC                                  0127 00201000
*           WKAREA(2:4)=$INBUFR(2:5);                              0128 00202000
         MVC   WKAREA+1(3),$INBUFR+1(WAPTR)                        0128 00203000
*         END;                                                     0129 00204000
*       ELSE                        /* IF IT WAS A 4-BYTE ENTRY      */ 00205000
*         DO;                       /* THEN JUST MOVE IT IN          */ 00206000
         B     @RC00125                                            0130 00207000
@RF00125 DS    0H                                                  0131 00208000
*           WKAREA(1:4)=$INBUFR(2:5);                              0131 00209000
         MVC   WKAREA(4),$INBUFR+1(WAPTR)                          0131 00210000
*         END;                                                     0132 00211000
*                                                                  0132 00212000
*       /*************************************************************/ 00213000
*       /*                                                           */ 00214000
*       /* ITACONV FROM(WKAREA)TO(WKAREA1)COUNT(4)TYPE(EH) INVOKED   */ 00215000
*       /*                                                           */ 00216000
*       /*************************************************************/ 00217000
*                                                                  0133 00218000
*       DCL                                                        0133 00219000
*         1 ITATCPRM BDY(WORD),     /* CONVERT PARAMETER LIST        */ 00220000
*          2 * CHAR(4) INIT('0102F4F1'X),                          0133 00221000
*          2 ITATCFR PTR,           /* ADDRESS OF FROM FIELD         */ 00222000
*          2 ITATCTO PTR,           /* ADDRESS OF TO FIELD           */ 00223000
*          2 * BIT(8) INIT(0),      /* FLAGS FOR CONVERT MODULE      */ 00224000
*           3 ITATCTP BIT(1),       /* TYPE OF CONVERT REQUIRED      */ 00225000
*          2 ITATCNT FIXED(8);      /* NUMBER OF BYTES TO CONVERT    */ 00226000
@RC00125 DS    0H                                                  0134 00227000
*       ITATCFR=ADDR(WKAREA);       /* SET THE FROM ADDRESS          */ 00228000
         LA    @15,WKAREA                                          0134 00229000
         ST    @15,ITATCFR                                         0134 00230000
*       ITATCTO=ADDR(WKAREA1);      /* SET THE TO ADDRESS            */ 00231000
         LA    @15,WKAREA1                                         0135 00232000
         ST    @15,ITATCTO                                         0135 00233000
*       ITATCTP='0'B;               /* SET THE TYPE OF CONVERT BIT   */ 00234000
         NI    ITATCTP,B'01111111'                                 0136 00235000
*       ITATCNT=4;                  /* GIVE THE CONVERT BYTE COUNT   */ 00236000
         MVI   ITATCNT,X'04'                                       0137 00237000
*       R1=ADDR(ITATCPRM);          /* POINT TO CONVERT PARM LIST    */ 00238000
         LA    R1,ITATCPRM                                         0138 00239000
*       CALL ISTSC021;              /* CALL CONVERT DIRECTLY         */ 00240000
         L     @15,@CV00839                                        0139 00241000
         BALR  @14,@15                                             0139 00242000
*       WKREG1=ADDR(CDSUA);         /* SET UP BASE FOR NXT INSTR     */ 00243000
         L     WKREG1,CDSWKPTR                                     0140 00244000
*       GEN;                                                       0141 00245000
*                                       /*                              00246000
               XC  0(4,WKREG1),0(WKREG1)  ZERO OUT CDSUA                00247000
               MVC 2(2,WKREG1),WKAREA1    MOVE IN CONVERTED ADDR        00248000
*     END;                                                         0142 00249000
*                                                                  0142 00250000
*/* CHECK TO SEE IF THE CDS REQUESTED IS KNOWN TO VTAM               */ 00251000
*                                                                  0143 00252000
*   R1=ADDR(VERYTBL);               /* SET UP PARM LIST PTR AND      */ 00253000
@RC00116 LA    R1,VERYTBL                                          0143 00254000
*   CDSPTR=ADDR(CDSUA);             /* CDS PTR FOR VERIFY            */ 00255000
         MVC   CDSPTR(4),CDSWKPTR                                  0144 00256000
*   CALL ISTSC030;                  /* CALL VERIFY MODULE            */ 00257000
         L     @15,@CV00840                                        0145 00258000
         BALR  @14,@15                                             0145 00259000
*   IF R15=0                        /* IF VERIFY WAS GOOD            */ 00260000
*     THEN                          /* THEN PUT CDS DATA IN $WORK    */ 00261000
         LTR   R15,R15                                             0146 00262000
         BNZ   @RF00146                                            0146 00263000
*     DO;                           /* AND CALL RESPECTIVE FUNCT     */ 00264000
*       GEN;                                                       0148 00265000
*                                       /*                              00266000
               BR  CALLREG                                           */ 00267000
*     END;                                                         0149 00268000
*I006C02A:                                                         0150 00269000
*   GOTO I006C01;                   /* PRT HEADER LINE               */ 00270000
         B     I006C01                                             0150 00271000
*I006CRET:                                                         0151 00272000
*   RETURN;                                                        0151 00273000
*   GEN(EJECT);                                                    0152 00274000
*                                                                  0152 00275000
         EJECT                                                          00276000
*/* BRANCH TABLE                                                     */ 00277000
*                                                                  0153 00278000
*   GEN;                                                           0153 00279000
CALLTBL  DS   0H                                                        00280000
          B    I006C03                    GO CALL DELETE                00281000
          B    I006C03A                   GO CALL ADD                   00282000
          B    I006C03B                   GO CALL CHANGE                00283000
          B    I006C03C                   GO CALL COPY                  00284000
          B    I006C03D                   GO EXEC EXHIBIT               00285000
*I006C03:                                                          0154 00286000
*   CALL ISTIC007;                  /* CALL DELETE                   */ 00287000
I006C03  L     @15,@CV00845                                        0154 00288000
         BALR  @14,@15                                             0154 00289000
*   GOTO I006C02A;                  /* GO CK FOR CONTINUATION        */ 00290000
         B     I006C02A                                            0155 00291000
*I006C03A:                                                         0156 00292000
*   CALL ISTIC008;                  /* CALL ADD                      */ 00293000
I006C03A L     @15,@CV00848                                        0156 00294000
         BALR  @14,@15                                             0156 00295000
*   GOTO I006C02A;                  /* GO CK FOR CONTINUATION        */ 00296000
         B     I006C02A                                            0157 00297000
*I006C03B:                                                         0158 00298000
*   $CHANGE='1'B;                   /* TURN ON CHANGE BIT            */ 00299000
I006C03B OI    $CHANGE(WAPTR),B'00100000'                          0158 00300000
*   CALL ISTIC009;                  /* CALL CHANGE                   */ 00301000
         L     @15,@CV00852                                        0159 00302000
         BALR  @14,@15                                             0159 00303000
*   GOTO I006C02A;                  /* GO CK FOR CONTINUATION        */ 00304000
         B     I006C02A                                            0160 00305000
*I006C03C:                                                         0161 00306000
*   $COPY='1'B;                     /* TURN ON COPY BIT              */ 00307000
I006C03C OI    $COPY(WAPTR),B'00001000'                            0161 00308000
*   CALL ISTIC009;                  /* CALL COPY                     */ 00309000
         L     @15,@CV00852                                        0162 00310000
         BALR  @14,@15                                             0162 00311000
*   GOTO I006C02A;                  /* GO CK FOR CONTINUATION        */ 00312000
         B     I006C02A                                            0163 00313000
*I006C03D:                                                         0164 00314000
*   DCL                                                            0164 00315000
*     1 ZZZGTPRM BDY(WORD),         /* GETCONFG PARAMETER LIST       */ 00316000
*      2 * CHAR(4) INIT('0102F1F6'X),                              0164 00317000
*      2 ZZZGTCD PTR,               /* POINTER TO BASIC CDS INFO     */ 00318000
*      2 ZZZGTAD PTR,               /* POINTER TO RECEIVING BUFFER   */ 00319000
*      2 ZZZGTCT FIXED(8);          /* NUMBER OF CDS BYTES NEEDED    */ 00320000
I006C03D DS    0H                                                  0165 00321000
*   ZZZGTAD=ADDR(CDSUA);            /* POINTER TO RECEIVING BUFFER   */ 00322000
         L     @15,CDSWKPTR                                        0165 00323000
         ST    @15,ZZZGTAD                                         0165 00324000
*   ZZZGTCD=ADDR(CDSUA);            /* POINTER TO BASIC CDS INFO     */ 00325000
         ST    @15,ZZZGTCD                                         0166 00326000
*   ZZZGTCT=255;                    /* NUMBER OF BYTES NEEDED        */ 00327000
         MVI   ZZZGTCT,X'FF'                                       0167 00328000
*   R1=ADDR(ZZZGTPRM);              /* POINT TO THE PARM LIST        */ 00329000
         LA    R1,ZZZGTPRM                                         0168 00330000
*   CALL ISTSC029;                  /* CALL THE GETCONFG FUNCTION    */ 00331000
         L     @15,@CV00864                                        0169 00332000
         BALR  @14,@15                                             0169 00333000
*/* START OF EXHIBIT FUNCTION                                        */ 00334000
*                                                                  0170 00335000
*   IF R15=0 THEN                   /* IF WE FOUND CDS THEN          */ 00336000
         LTR   R15,R15                                             0170 00337000
         BZ    @RT00170                                            0170 00338000
*     GOTO I006C04;                 /* CONTINUE                      */ 00339000
*                                                                  0171 00340000
*   /*****************************************************************/ 00341000
*   /*                                                               */ 00342000
*   /* TCEC MSGN(574) INVOKED                                        */ 00343000
*   /*                                                               */ 00344000
*   /*****************************************************************/ 00345000
*                                                                  0172 00346000
*   $TCECM='1'B;                    /* SET TCEC SW IN RCA            */ 00347000
         OI    $TCECM(WAPTR),B'00000001'                           0172 00348000
*   R1=ADDR($TCA14);                /* SET UP PARM LIST $TR          */ 00349000
         LA    R1,$TCA14                                           0173 00350000
*   CALL #EXIT;                     /* CALL CECOM                    */ 00351000
         L     @15,#EXITA(,WAPTR)                                  0174 00352000
         BALR  @14,@15                                             0174 00353000
*   DCL                                                            0175 00354000
*     1 $TCA14,                     /* TCEC PARM LIST                */ 00355000
*      2 $TCB14 FIXED(32) INIT(574),/* MSG NUMBER                    */ 00356000
*      2 $TCC14 FIXED(32) INIT(0),  /* INCT LEN                      */ 00357000
*      2 $TCD14 BIT(8) INIT('00000000'B),/* FLAG                     */ 00358000
*      2 $TCE14 CHAR(4) INIT('FFFFFFFF'X);/* MSSAGE MASK DEVICE NOT     00359000
*                                      CONFIGURED                    */ 00360000
*   GOTO I006C02A;                  /* SEE IF HE WANTS TO CONT       */ 00361000
         B     I006C02A                                            0176 00362000
*   GEN(EJECT);                                                    0177 00363000
         EJECT                                                          00364000
*I006C04:                                                          0178 00365000
*   PRNTBUF1=TERMHD;                /* SET UP TERMINAL CONFIG HD     */ 00366000
I006C04  MVC   PRNTBUF1(22,WAPTR),TERMHD                           0178 00367000
*   FILLER(1:22)=BLANKHD;           /* BLANK OUT REST OF AREA        */ 00368000
         MVC   FILLER(22,WAPTR),BLANKHD                            0179 00369000
*   GEN(BAL LINKR,I006CMSG);        /* GO PRINT HEADINGS             */ 00370000
         BAL LINKR,I006CMSG                                             00371000
*   PRNTBUF1=SUBHD01;               /* 'FIELD BYTES'                 */ 00372000
         MVC   PRNTBUF1(22,WAPTR),SUBHD01                          0181 00373000
*   FILLER(1:22)=CONTNTHD;          /* CONTENTS                      */ 00374000
         MVC   FILLER(22,WAPTR),CONTNTHD                           0182 00375000
*   GEN(BAL LINKR,I006CMSG);        /* GO PRINT SUB-HEADING          */ 00376000
         BAL LINKR,I006CMSG                                             00377000
*   PRNTBUF1=UNITADHD;              /* SET UP UNIT ADDR HEADING      */ 00378000
*                                                                  0184 00379000
         MVC   PRNTBUF1(22,WAPTR),UNITADHD                         0184 00380000
*   /*****************************************************************/ 00381000
*   /*                                                               */ 00382000
*   /* ITACONV FROM(CDSUA)TO(PRNTBUF2)COUNT(4)TYPE(HE) INVOKED       */ 00383000
*   /*                                                               */ 00384000
*   /*****************************************************************/ 00385000
*                                                                  0185 00386000
*   ITATCFR=ADDR(CDSUA);            /* SET THE FROM ADDRESS          */ 00387000
         MVC   ITATCFR(4),CDSWKPTR                                 0185 00388000
*   ITATCTO=ADDR(PRNTBUF2);         /* SET THE TO ADDRESS            */ 00389000
         LA    @15,PRNTBUF2(,WAPTR)                                0186 00390000
         ST    @15,ITATCTO                                         0186 00391000
*   ITATCTP='1'B;                   /* SET THE TYPE OF CONVERT BIT   */ 00392000
         OI    ITATCTP,B'10000000'                                 0187 00393000
*   ITATCNT=4;                      /* GIVE THE CONVERT BYTE COUNT   */ 00394000
         MVI   ITATCNT,X'04'                                       0188 00395000
*   R1=ADDR(ITATCPRM);              /* POINT TO CONVERT PARM LIST    */ 00396000
         LA    R1,ITATCPRM                                         0189 00397000
*   CALL ISTSC021;                  /* CALL CONVERT DIRECTLY         */ 00398000
         L     @15,@CV00839                                        0190 00399000
         BALR  @14,@15                                             0190 00400000
*   GEN(BAL LINKR,I006CMSG);        /* GO PRINT UNIT ADDR LINE       */ 00401000
         BAL LINKR,I006CMSG                                             00402000
*   PRNTBUF1=MODELHD;               /* SET UP MODEL HEADING          */ 00403000
*                                                                  0192 00404000
         MVC   PRNTBUF1(22,WAPTR),MODELHD                          0192 00405000
*   /*****************************************************************/ 00406000
*   /*                                                               */ 00407000
*   /* ITACONV FROM(CDSMODEL)TO(PRNTBUF2)COUNT(1)TYPE(HE) INVOKED    */ 00408000
*   /*                                                               */ 00409000
*   /*****************************************************************/ 00410000
*                                                                  0193 00411000
*   ITATCFR=ADDR(CDSMODEL);         /* SET THE FROM ADDRESS          */ 00412000
         L     @15,CDSWKPTR                                        0193 00413000
         LA    @15,CDSMODEL(,@15)                                  0193 00414000
         ST    @15,ITATCFR                                         0193 00415000
*   ITATCTO=ADDR(PRNTBUF2);         /* SET THE TO ADDRESS            */ 00416000
         LA    @15,PRNTBUF2(,WAPTR)                                0194 00417000
         ST    @15,ITATCTO                                         0194 00418000
*   ITATCTP='1'B;                   /* SET THE TYPE OF CONVERT BIT   */ 00419000
         OI    ITATCTP,B'10000000'                                 0195 00420000
*   ITATCNT=1;                      /* GIVE THE CONVERT BYTE COUNT   */ 00421000
         MVI   ITATCNT,X'01'                                       0196 00422000
*   R1=ADDR(ITATCPRM);              /* POINT TO CONVERT PARM LIST    */ 00423000
         LA    R1,ITATCPRM                                         0197 00424000
*   CALL ISTSC021;                  /* CALL CONVERT DIRECTLY         */ 00425000
         L     @15,@CV00839                                        0198 00426000
         BALR  @14,@15                                             0198 00427000
*   GEN(BAL LINKR,I006CMSG);        /* GO PRINT MODEL LINE           */ 00428000
         BAL LINKR,I006CMSG                                             00429000
*   PRNTBUF1=FEATHD;                /* SET UP FEATURE HEADING        */ 00430000
*                                                                  0200 00431000
         MVC   PRNTBUF1(22,WAPTR),FEATHD                           0200 00432000
*   /*****************************************************************/ 00433000
*   /*                                                               */ 00434000
*   /* ITACONV FROM(CDSFEAT)TO(PRNTBUF2)COUNT(1)TYPE(HE) INVOKED     */ 00435000
*   /*                                                               */ 00436000
*   /*****************************************************************/ 00437000
*                                                                  0201 00438000
*   ITATCFR=ADDR(CDSFEAT);          /* SET THE FROM ADDRESS          */ 00439000
         L     @15,CDSWKPTR                                        0201 00440000
         LA    @15,CDSFEAT(,@15)                                   0201 00441000
         ST    @15,ITATCFR                                         0201 00442000
*   ITATCTO=ADDR(PRNTBUF2);         /* SET THE TO ADDRESS            */ 00443000
         LA    @15,PRNTBUF2(,WAPTR)                                0202 00444000
         ST    @15,ITATCTO                                         0202 00445000
*   ITATCTP='1'B;                   /* SET THE TYPE OF CONVERT BIT   */ 00446000
         OI    ITATCTP,B'10000000'                                 0203 00447000
*   ITATCNT=1;                      /* GIVE THE CONVERT BYTE COUNT   */ 00448000
         MVI   ITATCNT,X'01'                                       0204 00449000
*   R1=ADDR(ITATCPRM);              /* POINT TO CONVERT PARM LIST    */ 00450000
         LA    R1,ITATCPRM                                         0205 00451000
*   CALL ISTSC021;                  /* CALL CONVERT DIRECTLY         */ 00452000
         L     @15,@CV00839                                        0206 00453000
         BALR  @14,@15                                             0206 00454000
*   GEN(BAL LINKR,I006CMSG);        /* GO PRINT FEATURE LINE         */ 00455000
         BAL LINKR,I006CMSG                                             00456000
*   PRNTBUF1=CLASSHD;               /* SET UP CLASS HEADING          */ 00457000
*                                                                  0208 00458000
         MVC   PRNTBUF1(22,WAPTR),CLASSHD                          0208 00459000
*   /*****************************************************************/ 00460000
*   /*                                                               */ 00461000
*   /* ITACONV FROM(CDSCLASS)TO(PRNTBUF2)COUNT(1)TYPE(HE) INVOKED    */ 00462000
*   /*                                                               */ 00463000
*   /*****************************************************************/ 00464000
*                                                                  0209 00465000
*   ITATCFR=ADDR(CDSCLASS);         /* SET THE FROM ADDRESS          */ 00466000
         L     @15,CDSWKPTR                                        0209 00467000
         LA    @15,CDSCLASS(,@15)                                  0209 00468000
         ST    @15,ITATCFR                                         0209 00469000
*   ITATCTO=ADDR(PRNTBUF2);         /* SET THE TO ADDRESS            */ 00470000
         LA    @15,PRNTBUF2(,WAPTR)                                0210 00471000
         ST    @15,ITATCTO                                         0210 00472000
*   ITATCTP='1'B;                   /* SET THE TYPE OF CONVERT BIT   */ 00473000
         OI    ITATCTP,B'10000000'                                 0211 00474000
*   ITATCNT=1;                      /* GIVE THE CONVERT BYTE COUNT   */ 00475000
         MVI   ITATCNT,X'01'                                       0212 00476000
*   R1=ADDR(ITATCPRM);              /* POINT TO CONVERT PARM LIST    */ 00477000
         LA    R1,ITATCPRM                                         0213 00478000
*   CALL ISTSC021;                  /* CALL CONVERT DIRECTLY         */ 00479000
         L     @15,@CV00839                                        0214 00480000
         BALR  @14,@15                                             0214 00481000
*   GEN(BAL LINKR,I006CMSG);        /* GO PRINT CLASS LINE           */ 00482000
         BAL LINKR,I006CMSG                                             00483000
*   PRNTBUF1=TYPEHD;                /* SET UP TYPE HEADING           */ 00484000
*                                                                  0216 00485000
         MVC   PRNTBUF1(22,WAPTR),TYPEHD                           0216 00486000
*   /*****************************************************************/ 00487000
*   /*                                                               */ 00488000
*   /* ITACONV FROM(CDSTYPE)TO(PRNTBUF2)COUNT(1)TYPE(HE) INVOKED     */ 00489000
*   /*                                                               */ 00490000
*   /*****************************************************************/ 00491000
*                                                                  0217 00492000
*   ITATCFR=ADDR(CDSTYPE);          /* SET THE FROM ADDRESS          */ 00493000
         L     @15,CDSWKPTR                                        0217 00494000
         LA    @15,CDSTYPE(,@15)                                   0217 00495000
         ST    @15,ITATCFR                                         0217 00496000
*   ITATCTO=ADDR(PRNTBUF2);         /* SET THE TO ADDRESS            */ 00497000
         LA    @15,PRNTBUF2(,WAPTR)                                0218 00498000
         ST    @15,ITATCTO                                         0218 00499000
*   ITATCTP='1'B;                   /* SET THE TYPE OF CONVERT BIT   */ 00500000
         OI    ITATCTP,B'10000000'                                 0219 00501000
*   ITATCNT=1;                      /* GIVE THE CONVERT BYTE COUNT   */ 00502000
         MVI   ITATCNT,X'01'                                       0220 00503000
*   R1=ADDR(ITATCPRM);              /* POINT TO CONVERT PARM LIST    */ 00504000
         LA    R1,ITATCPRM                                         0221 00505000
*   CALL ISTSC021;                  /* CALL CONVERT DIRECTLY         */ 00506000
         L     @15,@CV00839                                        0222 00507000
         BALR  @14,@15                                             0222 00508000
*   GEN(BAL LINKR,I006CMSG);        /* PRINT TYPE LINE               */ 00509000
         BAL LINKR,I006CMSG                                             00510000
*   PRNTBUF1=BYTECTHD;              /* SET UP BYTE COUNT HEADING     */ 00511000
*                                                                  0224 00512000
         MVC   PRNTBUF1(22,WAPTR),BYTECTHD                         0224 00513000
*   /*****************************************************************/ 00514000
*   /*                                                               */ 00515000
*   /* ITACONV FROM(CDSBYTCT)TO(PRNTBUF2)COUNT(1)TYPE(HE) INVOKED    */ 00516000
*   /*                                                               */ 00517000
*   /*****************************************************************/ 00518000
*                                                                  0225 00519000
*   ITATCFR=ADDR(CDSBYTCT);         /* SET THE FROM ADDRESS          */ 00520000
         L     @15,CDSWKPTR                                        0225 00521000
         LA    @15,CDSBYTCT(,@15)                                  0225 00522000
         ST    @15,ITATCFR                                         0225 00523000
*   ITATCTO=ADDR(PRNTBUF2);         /* SET THE TO ADDRESS            */ 00524000
         LA    @15,PRNTBUF2(,WAPTR)                                0226 00525000
         ST    @15,ITATCTO                                         0226 00526000
*   ITATCTP='1'B;                   /* SET THE TYPE OF CONVERT BIT   */ 00527000
         OI    ITATCTP,B'10000000'                                 0227 00528000
*   ITATCNT=1;                      /* GIVE THE CONVERT BYTE COUNT   */ 00529000
         MVI   ITATCNT,X'01'                                       0228 00530000
*   R1=ADDR(ITATCPRM);              /* POINT TO CONVERT PARM LIST    */ 00531000
         LA    R1,ITATCPRM                                         0229 00532000
*   CALL ISTSC021;                  /* CALL CONVERT DIRECTLY         */ 00533000
         L     @15,@CV00839                                        0230 00534000
         BALR  @14,@15                                             0230 00535000
*   GEN(BAL LINKR,I006CMSG);        /* GO PRINT BYTE COUNT LINE      */ 00536000
         BAL LINKR,I006CMSG                                             00537000
*   PRNTBUF1=FLAG01HD;              /* SET UP FLAG HEADING           */ 00538000
*                                                                  0232 00539000
         MVC   PRNTBUF1(22,WAPTR),FLAG01HD                         0232 00540000
*   /*****************************************************************/ 00541000
*   /*                                                               */ 00542000
*   /* ITACONV FROM(CDSFLAG)TO(PRNTBUF2)COUNT(3)TYPE(HE) INVOKED     */ 00543000
*   /*                                                               */ 00544000
*   /*****************************************************************/ 00545000
*                                                                  0233 00546000
*   ITATCFR=ADDR(CDSFLAG);          /* SET THE FROM ADDRESS          */ 00547000
         L     @15,CDSWKPTR                                        0233 00548000
         LA    @15,CDSFLAG(,@15)                                   0233 00549000
         ST    @15,ITATCFR                                         0233 00550000
*   ITATCTO=ADDR(PRNTBUF2);         /* SET THE TO ADDRESS            */ 00551000
         LA    @15,PRNTBUF2(,WAPTR)                                0234 00552000
         ST    @15,ITATCTO                                         0234 00553000
*   ITATCTP='1'B;                   /* SET THE TYPE OF CONVERT BIT   */ 00554000
         OI    ITATCTP,B'10000000'                                 0235 00555000
*   ITATCNT=3;                      /* GIVE THE CONVERT BYTE COUNT   */ 00556000
         MVI   ITATCNT,X'03'                                       0236 00557000
*   R1=ADDR(ITATCPRM);              /* POINT TO CONVERT PARM LIST    */ 00558000
         LA    R1,ITATCPRM                                         0237 00559000
*   CALL ISTSC021;                  /* CALL CONVERT DIRECTLY         */ 00560000
         L     @15,@CV00839                                        0238 00561000
         BALR  @14,@15                                             0238 00562000
*   GEN(BAL LINKR,I006CMSG);        /* GO PRINT FLAG LINE            */ 00563000
         BAL LINKR,I006CMSG                                             00564000
*   IF $REMSW^='1'B THEN            /* IF ITS NOT REMOTE RUN         */ 00565000
         TM    $REMSW(WAPTR),B'01000000'                           0240 00566000
         BO    @RF00240                                            0240 00567000
*     DO;                                                          0241 00568000
*       IF CDSBYTCT<12              /* IF NO EXTRA DATA              */ 00569000
*         THEN                      /* THEN                          */ 00570000
         L     @15,CDSWKPTR                                        0242 00571000
         CLI   CDSBYTCT(@15),12                                    0242 00572000
         BL    @RT00242                                            0242 00573000
*         GOTO I006C02A;            /* GO BACK AROUND                */ 00574000
*       ELSE                        /* ELSE                          */ 00575000
*         Z=CDSBYTCT-12;            /* POINT TO REMAINING DATA     0244 00576000
*                                                            @YA04055*/ 00577000
         SLR   @12,@12                                             0244 00578000
         IC    @12,CDSBYTCT(,@15)                                  0244 00579000
         SH    @12,@CH00259                                        0244 00580000
         STC   @12,Z                                               0244 00581000
*       REMPTR=ADDR(CDSSYMBN);      /* PT YO BYTE 12                 */ 00582000
         LA    REMPTR,CDSSYMBN(,@15)                               0245 00583000
*       GOTO I006C04C;              /* THEN BR AROUND                */ 00584000
         B     I006C04C                                            0246 00585000
*     END;                                                         0247 00586000
*   PRNTBUF1=SYMNMEHD;              /* SET UP SYM NME HEADING        */ 00587000
@RF00240 MVC   PRNTBUF1(22,WAPTR),SYMNMEHD                         0248 00588000
*   PRNTBUF2=CDSSYMBN;              /* SET UP SYMBOLIC NAME          */ 00589000
         MVI   PRNTBUF2+8(WAPTR),C' '                              0249 00590000
         MVC   PRNTBUF2+9(9,WAPTR),PRNTBUF2+8(WAPTR)               0249 00591000
         L     @15,CDSWKPTR                                        0249 00592000
         MVC   PRNTBUF2(8,WAPTR),CDSSYMBN(@15)                     0249 00593000
*   GEN(BAL LINKR,I006CMSG);        /* GO PRINT SYMBOLIC NAME LN     */ 00594000
         BAL LINKR,I006CMSG                                             00595000
*   IF CDSBYTCT<20                  /* IF WE DO NOT HAVE CDS DATA    */ 00596000
*     THEN                                                         0251 00597000
         L     @15,CDSWKPTR                                        0251 00598000
         CLI   CDSBYTCT(@15),20                                    0251 00599000
         BL    @RT00251                                            0251 00600000
*     GOTO I006C02A;                /* THEN BR AROUND                */ 00601000
*   ELSE                                                           0253 00602000
*     DO;                           /* PRINT THAT DATA (MAX-235)     */ 00603000
*       REMPTR=ADDR(CDSEXARA);      /* PT TO BYTE 20                 */ 00604000
         LA    REMPTR,CDSEXARA(,@15)                               0254 00605000
*       Z=CDSBYTCT-20;              /* ADJUST FOR 0-20 BYTES @YA04055*/ 00606000
         SLR   @12,@12                                             0255 00607000
         IC    @12,CDSBYTCT(,@15)                                  0255 00608000
         SH    @12,@CH00064                                        0255 00609000
         STC   @12,Z                                               0255 00610000
*I006C04C:                                                         0256 00611000
*       PRNTBUF1=REMGHD;            /* SET UP 'REMAINING' HD         */ 00612000
I006C04C MVC   PRNTBUF1(22,WAPTR),REMGHD                           0256 00613000
*       I=Z/8;                      /* GET NUMBER OF DO LOOPS        */ 00614000
         SLR   @15,@15                                             0257 00615000
         IC    @15,Z                                               0257 00616000
         LR    @12,@15                                             0257 00617000
         SRL   @12,3                                               0257 00618000
         STC   @12,I                                               0257 00619000
*       R=Z//8;                     /* GET REMAINDER                 */ 00620000
         LR    @00,@15                                             0258 00621000
         SRDA  @00,32                                              0258 00622000
         D     @00,@CF00055                                        0258 00623000
         STC   @00,R                                               0258 00624000
*       X=0;                        /* RESET INDEX VALUE             */ 00625000
         SLR   X,X                                                 0259 00626000
*       IF I<1 THEN                                                0260 00627000
         CLI   I,1                                                 0260 00628000
         BL    @RT00260                                            0260 00629000
*         GOTO I006C05;             /* SKIP LOOP IF DATA < 8         */ 00630000
*       DO Y=1 TO I BY 1;           /* CONVERT AND PRINT DATA        */ 00631000
*                                                                  0262 00632000
         LA    Y,1                                                 0262 00633000
         B     @DE00262                                            0262 00634000
@DL00262 DS    0H                                                  0263 00635000
*         /***********************************************************/ 00636000
*         /*                                                         */ 00637000
*         /* ITACONV FROM(REMAREA)TO(PRNTBUF2)COUNT(8)TYPE(HE)       */ 00638000
*         /* INVOKED                                                 */ 00639000
*         /*                                                         */ 00640000
*         /***********************************************************/ 00641000
*                                                                  0263 00642000
*         ITATCFR=ADDR(REMAREA);    /* SET THE FROM ADDRESS          */ 00643000
         ST    REMPTR,ITATCFR                                      0263 00644000
*         ITATCTO=ADDR(PRNTBUF2);   /* SET THE TO ADDRESS            */ 00645000
         LA    @15,PRNTBUF2(,WAPTR)                                0264 00646000
         ST    @15,ITATCTO                                         0264 00647000
*         ITATCTP='1'B;             /* SET THE TYPE OF CONVERT BIT   */ 00648000
         OI    ITATCTP,B'10000000'                                 0265 00649000
*         ITATCNT=8;                /* GIVE THE CONVERT BYTE COUNT   */ 00650000
         MVI   ITATCNT,X'08'                                       0266 00651000
*         R1=ADDR(ITATCPRM);        /* POINT TO CONVERT PARM LIST    */ 00652000
         LA    R1,ITATCPRM                                         0267 00653000
*         CALL ISTSC021;            /* CALL CONVERT DIRECTLY         */ 00654000
         L     @15,@CV00839                                        0268 00655000
         BALR  @14,@15                                             0268 00656000
*         GEN(BAL LINKR,I006CMSG);  /* GO PRINT DATA                 */ 00657000
         BAL LINKR,I006CMSG                                             00658000
*         X=X+8;                    /* UPDATE INDEX VALUE            */ 00659000
         LA    @15,8                                               0270 00660000
         ALR   X,@15                                               0270 00661000
*         REMPTR=REMPTR+8;                                         0271 00662000
         ALR   REMPTR,@15                                          0271 00663000
*       END;                                                       0272 00664000
         AH    Y,@CH00036                                          0272 00665000
@DE00262 SLR   @15,@15                                             0272 00666000
         IC    @15,I                                               0272 00667000
         CR    Y,@15                                               0272 00668000
         BNH   @DL00262                                            0272 00669000
*     END;                                                         0273 00670000
*I006C05:                                                          0274 00671000
*   IF R=0 THEN                     /* IF REMAINDER = 0, THEN BR     */ 00672000
I006C05  CLI   R,0                                                 0274 00673000
         BE    @RT00274                                            0274 00674000
*     GO TO I006C02A;               /* BR AROUND CONVERT             */ 00675000
*                                                                  0275 00676000
*   /*****************************************************************/ 00677000
*   /*                                                               */ 00678000
*   /* ITACONV FROM(REMAREA)TO(PRNTBUF2)COUNT(R)TYPE(HE) INVOKED     */ 00679000
*   /*                                                               */ 00680000
*   /*****************************************************************/ 00681000
*                                                                  0276 00682000
*   ITATCFR=ADDR(REMAREA);          /* SET THE FROM ADDRESS          */ 00683000
         ST    REMPTR,ITATCFR                                      0276 00684000
*   ITATCTO=ADDR(PRNTBUF2);         /* SET THE TO ADDRESS            */ 00685000
         LA    @15,PRNTBUF2(,WAPTR)                                0277 00686000
         ST    @15,ITATCTO                                         0277 00687000
*   ITATCTP='1'B;                   /* SET THE TYPE OF CONVERT BIT   */ 00688000
         OI    ITATCTP,B'10000000'                                 0278 00689000
*   ITATCNT=R;                      /* GIVE THE CONVERT BYTE COUNT   */ 00690000
         MVC   ITATCNT(1),R                                        0279 00691000
*   R1=ADDR(ITATCPRM);              /* POINT TO CONVERT PARM LIST    */ 00692000
         LA    R1,ITATCPRM                                         0280 00693000
*   CALL ISTSC021;                  /* CALL CONVERT DIRECTLY         */ 00694000
         L     @15,@CV00839                                        0281 00695000
         BALR  @14,@15                                             0281 00696000
*   GEN(BAL LINKR,I006CMSG);        /* GO PRINT LAST DATA BYTES      */ 00697000
         BAL LINKR,I006CMSG                                             00698000
*   GOTO I006C02A;                  /* GO CK FOR MORE TO EXHIBIT     */ 00699000
         B     I006C02A                                            0283 00700000
*   GEN(EJECT);                                                    0284 00701000
         EJECT                                                          00702000
*I006CMSG:                                                         0285 00703000
*   GEN(ST LINKR,RETSAV);           /* SAVE RETURN ADDR              */ 00704000
I006CMSG ST LINKR,RETSAV                                                00705000
*   $INBUFR(1:80)='';               /* BLANK OUT INBUFR              */ 00706000
         MVI   $INBUFR(WAPTR),C' '                                 0286 00707000
         MVC   $INBUFR+1(79,WAPTR),$INBUFR(WAPTR)                  0286 00708000
*   $INBUFR(1:44)=PRNTBUF;          /* SET UP SUBSTITUTION CHAR      */ 00709000
*                                                                  0287 00710000
         MVC   $INBUFR(44,WAPTR),PRNTBUF(WAPTR)                    0287 00711000
*   /*****************************************************************/ 00712000
*   /*                                                               */ 00713000
*   /* TCEC MSGN(579)SUB(YES) INVOKED                                */ 00714000
*   /*                                                               */ 00715000
*   /*****************************************************************/ 00716000
*                                                                  0288 00717000
*   $TCECM='1'B;                    /* SET TCEC SW IN RCA            */ 00718000
         OI    $TCECM(WAPTR),B'00000001'                           0288 00719000
*   R1=ADDR($TCA24);                /* SET UP PARM LIST $TR          */ 00720000
         LA    R1,$TCA24                                           0289 00721000
*   CALL #EXIT;                     /* CALL CECOM                    */ 00722000
         L     @15,#EXITA(,WAPTR)                                  0290 00723000
         BALR  @14,@15                                             0290 00724000
*   DCL                                                            0291 00725000
*     1 $TCA24,                     /* TCEC PARM LIST                */ 00726000
*      2 $TCB24 FIXED(32) INIT(579),/* MSG NUMBER                    */ 00727000
*      2 $TCC24 FIXED(32) INIT(0),  /* INCT LEN                      */ 00728000
*      2 $TCD24 BIT(8) INIT('10000000'B),/* FLAG                     */ 00729000
*      2 $TCE24 CHAR(4) INIT('FFFFFFFF'X);/* MSSAGE MASK PRINT MSG   */ 00730000
*   PRNTBUF1=BLANKHD;               /* BLANK OUT PRNTBUF             */ 00731000
         MVC   PRNTBUF1(22,WAPTR),BLANKHD                          0292 00732000
*   FILLER=BLANKHD;                 /* BLANK OUT PRNTBUF             */ 00733000
         MVC   FILLER(4,WAPTR),BLANKHD                             0293 00734000
*   PRNTBUF2(1:18)=BLANKHD(1:18);   /* BLANK OUT PRNT BUFFER 2       */ 00735000
         MVC   PRNTBUF2(18,WAPTR),BLANKHD                          0294 00736000
*   GEN(L  LINKR,RETSAV);           /* RESTORE RETURN REG            */ 00737000
         L  LINKR,RETSAV                                                00738000
*   GEN(BR LINKR);                  /* RETURN TO CALLER              */ 00739000
         BR LINKR                                                       00740000
*/* ATDSPLY   INVOKED.                                               */ 00741000
*/********************************************************************/ 00742000
*/* THERE HAVE BEEN NO ATBUILD INCLUSIONS IN THIS COMPILATION.       */ 00743000
*/********************************************************************/ 00744000
*/* END OF ATDSPLY.                                                  */ 00745000
*                                                                  0297 00746000
*   END ISTIC006;                                                  0297 00747000
@EL00001 L     @13,4(,@13)                                         0297 00748000
@EF00001 DS    0H                                                  0297 00749000
@ER00001 L     @14,12(,@13)                                        0297 00750000
         LM    @00,@12,20(@13)                                     0297 00751000
         BR    @14                                                 0297 00752000
@DATA    DS    0H                                                       00753000
@CH00036 DC    H'1'                                                     00754000
@CH00045 DC    H'4'                                                     00755000
@CH00076 DC    H'5'                                                     00756000
@CH00259 DC    H'12'                                                    00757000
@CH00064 DC    H'20'                                                    00758000
@CH00179 DC    H'80'                                                    00759000
@SM00890 MVC   CDSSYMBN(0,@15),$INBUFR+1(WAPTR)                         00760000
         DS    0F                                                       00761000
@SA00001 DS    18F                                                      00762000
         DS    0F                                                       00763000
@CF00055 DC    F'8'                                                     00764000
@CV00839 DC    V(ISTSC021)                                              00765000
@CV00840 DC    V(ISTSC030)                                              00766000
@CV00845 DC    V(ISTIC007)                                              00767000
@CV00848 DC    V(ISTIC008)                                              00768000
@CV00852 DC    V(ISTIC009)                                              00769000
@CV00864 DC    V(ISTSC029)                                              00770000
         DS    0D                                                       00771000
CDSWKPTR DS    A                                                        00772000
RCAPTR   DS    A                                                        00773000
RETSAV   DS    F                                                        00774000
Z        DC    XL1'0'                                                   00775000
         DS    CL3                                                      00776000
I        DC    XL1'0'                                                   00777000
         DS    CL3                                                      00778000
R        DC    XL1'0'                                                   00779000
BLANK    DC    CL1' '                                                   00780000
YES      DC    CL3'YES'                                                 00781000
NO       DC    CL2'NO'                                                  00782000
NONE     DC    CL4'NONE'                                                00783000
NUMBERIC DC    CL1'0'                                                   00784000
DSPLYMSG DC    CL7'EXHIBIT'                                             00785000
THREE    DC    X'03'                                                    00786000
WKAREA   DS    CL8                                                      00787000
WKAREA1  DS    CL4                                                      00788000
VERYTBL  DS    CL5                                                      00789000
         ORG   VERYTBL                                                  00790000
CDSPTR   DS    AL4                                                      00791000
@NM00001 DC    X'00'                                                    00792000
         ORG   VERYTBL+5                                                00793000
CDSTITLE DS    CL286                                                    00794000
         ORG   CDSTITLE                                                 00795000
TERMHD   DS    CL22                                                     00796000
         ORG   TERMHD                                                   00797000
@NM00012 DC    CL22'CONFIGURATION DATA    '                             00798000
         ORG   CDSTITLE+22                                              00799000
SUBHD01  DS    CL22                                                     00800000
         ORG   SUBHD01                                                  00801000
@NM00013 DC    CL22'   FIELD         BYTES'                             00802000
         ORG   CDSTITLE+44                                              00803000
UNITADHD DS    CL22                                                     00804000
         ORG   UNITADHD                                                 00805000
@NM00014 DC    CL22'UNIT ADDRESS     00-03'                             00806000
         ORG   CDSTITLE+66                                              00807000
MODELHD  DS    CL22                                                     00808000
         ORG   MODELHD                                                  00809000
@NM00015 DC    CL22'MODEL               04'                             00810000
         ORG   CDSTITLE+88                                              00811000
FEATHD   DS    CL22                                                     00812000
         ORG   FEATHD                                                   00813000
@NM00016 DC    CL22'FEATURE             05'                             00814000
         ORG   CDSTITLE+110                                             00815000
CLASSHD  DS    CL22                                                     00816000
         ORG   CLASSHD                                                  00817000
@NM00017 DC    CL22'CLASS               06'                             00818000
         ORG   CDSTITLE+132                                             00819000
TYPEHD   DS    CL22                                                     00820000
         ORG   TYPEHD                                                   00821000
@NM00018 DC    CL22'TYPE                07'                             00822000
         ORG   CDSTITLE+154                                             00823000
BYTECTHD DS    CL22                                                     00824000
         ORG   BYTECTHD                                                 00825000
@NM00019 DC    CL22'BYTE COUNT          08'                             00826000
         ORG   CDSTITLE+176                                             00827000
FLAG01HD DS    CL22                                                     00828000
         ORG   FLAG01HD                                                 00829000
@NM00020 DC    CL22'FLAGS            09-11'                             00830000
         ORG   CDSTITLE+198                                             00831000
SYMNMEHD DS    CL22                                                     00832000
         ORG   SYMNMEHD                                                 00833000
@NM00021 DC    CL22'SYMBOLIC NAME    12-19'                             00834000
         ORG   CDSTITLE+220                                             00835000
REMGHD   DS    CL22                                                     00836000
         ORG   REMGHD                                                   00837000
@NM00022 DC    CL22'REMAINING             '                             00838000
         ORG   CDSTITLE+242                                             00839000
BLANKHD  DS    CL22                                                     00840000
         ORG   BLANKHD                                                  00841000
@NM00023 DC    CL22'                      '                             00842000
         ORG   CDSTITLE+264                                             00843000
CONTNTHD DS    CL22                                                     00844000
         ORG   CONTNTHD                                                 00845000
@NM00024 DC    CL22'    CONTENTS          '                             00846000
         ORG   CDSTITLE+286                                             00847000
         DS    CL1                                                      00848000
$TCA09   DS    CL13                                                     00849000
         ORG   $TCA09                                                   00850000
$TCB09   DC    A(560)                                                   00851000
$TCC09   DC    A(8)                                                     00852000
$TCD09   DC    B'01000000'                                              00853000
$TCE09   DC    X'FFFFFFFF'                                              00854000
         ORG   $TCA09+13                                                00855000
         DS    CL3                                                      00856000
$TCA10   DS    CL13                                                     00857000
         ORG   $TCA10                                                   00858000
$TCB10   DC    A(299)                                                   00859000
$TCC10   DC    A(0)                                                     00860000
$TCD10   DC    B'00000000'                                              00861000
$TCE10   DC    X'FFFFFFFF'                                              00862000
         ORG   $TCA10+13                                                00863000
         DS    CL3                                                      00864000
$TCA11   DS    CL13                                                     00865000
         ORG   $TCA11                                                   00866000
$TCB11   DC    A(578)                                                   00867000
$TCC11   DC    A(8)                                                     00868000
$TCD11   DC    B'01000000'                                              00869000
$TCE11   DC    X'FFFFFFFF'                                              00870000
         ORG   $TCA11+13                                                00871000
         DS    CL3                                                      00872000
ITATCPRM DS    CL14                                                     00873000
         ORG   ITATCPRM                                                 00874000
@NM00077 DC    X'0102F4F1'                                              00875000
ITATCFR  DS    AL4                                                      00876000
ITATCTO  DS    AL4                                                      00877000
@NM00078 DC    AL1(0)                                                   00878000
         ORG   @NM00078                                                 00879000
ITATCTP  DS    BL1                                                      00880000
         ORG   ITATCPRM+13                                              00881000
ITATCNT  DS    FL1                                                      00882000
         ORG   ITATCPRM+14                                              00883000
         DS    CL2                                                      00884000
ZZZGTPRM DS    CL13                                                     00885000
         ORG   ZZZGTPRM                                                 00886000
@NM00079 DC    X'0102F1F6'                                              00887000
ZZZGTCD  DS    AL4                                                      00888000
ZZZGTAD  DS    AL4                                                      00889000
ZZZGTCT  DS    FL1                                                      00890000
         ORG   ZZZGTPRM+13                                              00891000
         DS    CL3                                                      00892000
$TCA14   DS    CL13                                                     00893000
         ORG   $TCA14                                                   00894000
$TCB14   DC    A(574)                                                   00895000
$TCC14   DC    A(0)                                                     00896000
$TCD14   DC    B'00000000'                                              00897000
$TCE14   DC    X'FFFFFFFF'                                              00898000
         ORG   $TCA14+13                                                00899000
         DS    CL3                                                      00900000
$TCA24   DS    CL13                                                     00901000
         ORG   $TCA24                                                   00902000
$TCB24   DC    A(579)                                                   00903000
$TCC24   DC    A(0)                                                     00904000
$TCD24   DC    B'10000000'                                              00905000
$TCE24   DC    X'FFFFFFFF'                                              00906000
         ORG   $TCA24+13                                                00907000
CDSWORK  DS    CL20                                                     00908000
FNCTBL   DS    CL31                                                     00909000
         ORG   FNCTBL+0                                                 00910000
DELETE   DS    CL7                                                      00911000
         ORG   DELETE+0                                                 00912000
@NM00002 DC    AL1(6)                                                   00913000
@NM00003 DC    CL6'DELETE'                                              00914000
         ORG   FNCTBL+7                                                 00915000
ADD      DS    CL4                                                      00916000
         ORG   ADD+0                                                    00917000
@NM00004 DC    AL1(3)                                                   00918000
@NM00005 DC    CL3'ADD'                                                 00919000
         ORG   FNCTBL+11                                                00920000
CHANGE   DS    CL7                                                      00921000
         ORG   CHANGE+0                                                 00922000
@NM00006 DC    AL1(6)                                                   00923000
@NM00007 DC    CL6'CHANGE'                                              00924000
         ORG   FNCTBL+18                                                00925000
COPY     DS    CL5                                                      00926000
         ORG   COPY+0                                                   00927000
@NM00008 DC    AL1(4)                                                   00928000
@NM00009 DC    CL4'COPY'                                                00929000
         ORG   FNCTBL+23                                                00930000
EXHIBIT  DS    CL8                                                      00931000
         ORG   EXHIBIT+0                                                00932000
@NM00010 DC    AL1(7)                                                   00933000
@NM00011 DC    CL7'EXHIBIT'                                             00934000
         ORG   FNCTBL+155                                               00935000
PATCH    DC    40F'0'                                                   00936000
@00      EQU   00                      EQUATES FOR REGISTERS 0-15       00937000
@01      EQU   01                                                       00938000
@02      EQU   02                                                       00939000
@03      EQU   03                                                       00940000
@04      EQU   04                                                       00941000
@05      EQU   05                                                       00942000
@06      EQU   06                                                       00943000
@07      EQU   07                                                       00944000
@08      EQU   08                                                       00945000
@09      EQU   09                                                       00946000
@10      EQU   10                                                       00947000
@11      EQU   11                                                       00948000
@12      EQU   12                                                       00949000
@13      EQU   13                                                       00950000
@14      EQU   14                                                       00951000
@15      EQU   15                                                       00952000
Y        EQU   @12                                                      00953000
X        EQU   @03                                                      00954000
REMPTR   EQU   @10                                                      00955000
WKREG1   EQU   @05                                                      00956000
WKREG2   EQU   @06                                                      00957000
CALLREG  EQU   @07                                                      00958000
LINKR    EQU   @14                                                      00959000
CECMAP   EQU   @04                                                      00960000
WAPTR    EQU   @02                                                      00961000
R1       EQU   @01                                                      00962000
R15      EQU   @15                                                      00963000
R0       EQU   @00                                                      00964000
R10      EQU   @10                                                      00965000
R11      EQU   @11                                                      00966000
R12      EQU   @12                                                      00967000
R13      EQU   @13                                                      00968000
R14      EQU   @14                                                      00969000
R2       EQU   @02                                                      00970000
R3       EQU   @03                                                      00971000
R4       EQU   @04                                                      00972000
R5       EQU   @05                                                      00973000
R6       EQU   @06                                                      00974000
R7       EQU   @07                                                      00975000
R8       EQU   @08                                                      00976000
R9       EQU   @09                                                      00977000
TBLENTLN EQU   0                                                        00978000
TBLENTRY EQU   0                                                        00979000
REMAREA  EQU   0                                                        00980000
$RCAAREA EQU   0                                                        00981000
$POINTER EQU   $RCAAREA+100                                             00982000
$TRTBLA  EQU   $POINTER+124                                             00983000
$CONSTNT EQU   $RCAAREA+244                                             00984000
$RCAFLG  EQU   $RCAAREA+604                                             00985000
TOLTEPWA EQU   0                                                        00986000
$SCTTBLE EQU   TOLTEPWA                                                 00987000
$TESTOPT EQU   $SCTTBLE+2                                               00988000
$ERROPT  EQU   $SCTTBLE+3                                               00989000
$PDEVFLG EQU   $SCTTBLE+10                                              00990000
$CDSFLGS EQU   $SCTTBLE+11                                              00991000
$CDS8T19 EQU   $SCTTBLE+20                                              00992000
$EXECFLG EQU   $SCTTBLE+33                                              00993000
$OLTFLGS EQU   $SCTTBLE+36                                              00994000
$OLTFLG2 EQU   $SCTTBLE+37                                              00995000
$TOTFLG1 EQU   $SCTTBLE+38                                              00996000
$ROUTMSK EQU   $SCTTBLE+40                                              00997000
$CDA     EQU   TOLTEPWA+100                                             00998000
$RCA     EQU   $CDA+44                                                  00999000
$OLTPTR  EQU   $CDA+52                                                  01000000
$LOWADDR EQU   $OLTPTR                                                  01001000
$HIMOREC EQU   $CDA+60                                                  01002000
$COMMFLG EQU   TOLTEPWA+224                                             01003000
$FLAG1   EQU   $COMMFLG                                                 01004000
$FLAG2   EQU   $COMMFLG+1                                               01005000
$FLAG3   EQU   $COMMFLG+2                                               01006000
$FLAG4   EQU   $COMMFLG+3                                               01007000
$FLAG5   EQU   $COMMFLG+4                                               01008000
$EOJ     EQU   $FLAG5                                                   01009000
$CANCEL  EQU   $EOJ                                                     01010000
$FLAG6   EQU   $COMMFLG+5                                               01011000
$CHANGE  EQU   $FLAG6                                                   01012000
$ABNDBIT EQU   $FLAG6                                                   01013000
$FLAG7   EQU   $COMMFLG+6                                               01014000
$FLAG8   EQU   $COMMFLG+7                                               01015000
$TCECM   EQU   $FLAG8                                                   01016000
$FLAG9   EQU   $COMMFLG+8                                               01017000
$REMSW   EQU   $FLAG9                                                   01018000
$COPY    EQU   $FLAG9                                                   01019000
$FLAG10  EQU   $COMMFLG+9                                               01020000
$FLAG11  EQU   $COMMFLG+10                                              01021000
$FLAG12  EQU   $COMMFLG+11                                              01022000
$FLAG13  EQU   $COMMFLG+12                                              01023000
$DEVTBLE EQU   TOLTEPWA+240                                             01024000
$DEVCDS  EQU   $DEVTBLE                                                 01025000
$DEVUNAD EQU   $DEVCDS                                                  01026000
@NM00063 EQU   $DEVUNAD+2                                               01027000
$DEVFEAT EQU   $DEVCDS+4                                                01028000
$DEVCDSF EQU   $DEVCDS+9                                                01029000
$DEVSDCF EQU   $DEVCDS+10                                               01030000
$$SYMNME EQU   $DEVCDS+12                                               01031000
$DEVFLG1 EQU   $DEVTBLE+20                                              01032000
$EVNCPLT EQU   $DEVFLG1                                                 01033000
$ATTNEXP EQU   $DEVFLG1                                                 01034000
$INTOCC  EQU   $DEVFLG1                                                 01035000
$DEVFLG2 EQU   $DEVTBLE+21                                              01036000
$DEVTECB EQU   $DEVTBLE+22                                              01037000
$OPIS    EQU   $DEVTECB                                                 01038000
$OPND    EQU   $DEVTECB+2                                               01039000
$DEVFLG3 EQU   $DEVTBLE+27                                              01040000
$SIOFLG  EQU   $DEVFLG3                                                 01041000
$IFTOUT  EQU   $DEVTBLE+36                                              01042000
$DEVSESP EQU   $IFTOUT                                                  01043000
$SSCPDAF EQU   $IFTOUT+6                                                01044000
$LDNCBPT EQU   $DEVTBLE+48                                              01045000
$RNINFO  EQU   $DEVTBLE+56                                              01046000
$DEVFLG5 EQU   $RNINFO+8                                                01047000
$DEVFLG4 EQU   $DEVTBLE+65                                              01048000
$SLTBL   EQU   TOLTEPWA+1468                                            01049000
$RUNTEST EQU   $SLTBL+13                                                01050000
$TESTFLG EQU   $SLTBL+21                                                01051000
$SECLST  EQU   $SLTBL+22                                                01052000
$BUFFER  EQU   TOLTEPWA+1976                                            01053000
$INBUFR  EQU   TOLTEPWA+2104                                            01054000
#EXITA   EQU   TOLTEPWA+2632                                            01055000
$CCOMDAT EQU   TOLTEPWA+2644                                            01056000
$CFLGS   EQU   $CCOMDAT+16                                              01057000
$24FEMSG EQU   TOLTEPWA+2681                                            01058000
$24CATMG EQU   $24FEMSG+11                                              01059000
@NM00072 EQU   TOLTEPWA+2776                                            01060000
$OUNTPTR EQU   @NM00072+4                                               01061000
$NSPTR   EQU   $OUNTPTR                                                 01062000
$NSCNT   EQU   @NM00072+10                                              01063000
$ENXX    EQU   @NM00072+15                                              01064000
$IMITX   EQU   $ENXX                                                    01065000
SVECC013 EQU   TOLTEPWA+3232                                            01066000
SVEIC003 EQU   TOLTEPWA+3592                                            01067000
SVESC022 EQU   TOLTEPWA+3736                                            01068000
SVECC011 EQU   TOLTEPWA+4024                                            01069000
#EXIT    EQU   0                                                        01070000
CECOMMAP EQU   0                                                        01071000
CDSMAP   EQU   0                                                        01072000
CDSUA    EQU   CDSMAP                                                   01073000
CDSMFCT  EQU   CDSMAP+4                                                 01074000
CDSMODEL EQU   CDSMFCT                                                  01075000
CDSFEAT  EQU   CDSMFCT+1                                                01076000
CDSCLASS EQU   CDSMFCT+2                                                01077000
CDSTYPE  EQU   CDSMFCT+3                                                01078000
CDSBYTCT EQU   CDSMAP+8                                                 01079000
CDSFLAG  EQU   CDSMAP+9                                                 01080000
CDSSYMB  EQU   CDSFLAG                                                  01081000
CDSREMSY EQU   CDSFLAG                                                  01082000
CDSSYMBN EQU   CDSMAP+12                                                01083000
CDSEXARA EQU   CDSMAP+20                                                01084000
$TRTBL   EQU   0                                                        01085000
PRNTBUF  EQU   $BUFFER                                                  01086000
PRNTBUF1 EQU   PRNTBUF                                                  01087000
FILLER   EQU   PRNTBUF+22                                               01088000
PRNTBUF2 EQU   PRNTBUF+26                                               01089000
SVECC012 EQU   SVESC022                                                 01090000
SVEIC00A EQU   SVEIC003                                                 01091000
SVEIC004 EQU   SVEIC003                                                 01092000
SVEIC005 EQU   SVEIC003                                                 01093000
SVESC02A EQU   SVESC022                                                 01094000
SVESC02B EQU   SVESC022                                                 01095000
SVESC02D EQU   SVESC022                                                 01096000
SVESC02E EQU   SVESC022                                                 01097000
SVESC02F EQU   SVECC013                                                 01098000
SVESC024 EQU   SVESC022                                                 01099000
SVESC025 EQU   SVESC022                                                 01100000
SVESC027 EQU   SVESC022                                                 01101000
SVESC029 EQU   SVESC022                                                 01102000
SVESC031 EQU   SVECC013                                                 01103000
SVESC032 EQU   SVECC011                                                 01104000
SVETC037 EQU   SVEIC003                                                 01105000
         AGO   .@UNREFD                START UNREFERENCED COMPONENTS    01106000
CDSEXTM  EQU   CDSFLAG+2                                                01107000
CDSEXTB  EQU   CDSFLAG+2                                                01108000
CDSTMERB EQU   CDSFLAG+2                                                01109000
@NM00076 EQU   CDSFLAG+1                                                01110000
CDSDVPRO EQU   CDSFLAG+1                                                01111000
CDSNTPRI EQU   CDSFLAG+1                                                01112000
CDSLINCN EQU   CDSFLAG                                                  01113000
CDS2CHAN EQU   CDSFLAG                                                  01114000
CDSEXTPR EQU   CDSFLAG                                                  01115000
CDSFEVOL EQU   CDSFLAG                                                  01116000
CDSSHAR  EQU   CDSFLAG                                                  01117000
CDSFPMD  EQU   CDSFLAG                                                  01118000
@NM00075 EQU   CDSFEAT                                                  01119000
CDSDEVM  EQU   CDSFEAT                                                  01120000
CDSDEVT  EQU   CDSFEAT                                                  01121000
CDSASCII EQU   CDSFEAT                                                  01122000
$CECFLAG EQU   CECOMMAP+20                                              01123000
$CEINCT  EQU   CECOMMAP+16                                              01124000
$CEINADR EQU   CECOMMAP+12                                              01125000
$CEOUTCT EQU   CECOMMAP+8                                               01126000
$CEOUTAD EQU   CECOMMAP+4                                               01127000
$CECIDNT EQU   CECOMMAP+2                                               01128000
$CECLEVL EQU   CECOMMAP+1                                               01129000
$CECTRMG EQU   CECOMMAP                                                 01130000
SVECC010 EQU   TOLTEPWA+3952                                            01131000
SVETC035 EQU   TOLTEPWA+3880                                            01132000
SVESC030 EQU   TOLTEPWA+3808                                            01133000
SVESC020 EQU   TOLTEPWA+3664                                            01134000
SVEIC002 EQU   TOLTEPWA+3520                                            01135000
SVECC014 EQU   TOLTEPWA+3376                                            01136000
SVESC120 EQU   TOLTEPWA+3304                                            01137000
SVESC033 EQU   TOLTEPWA+3160                                            01138000
@NM00074 EQU   TOLTEPWA+2980                                            01139000
$RPLERR  EQU   TOLTEPWA+2977                                            01140000
@NM00073 EQU   TOLTEPWA+2976                                            01141000
$R13PR3  EQU   TOLTEPWA+2972                                            01142000
$CEINT2  EQU   TOLTEPWA+2968                                            01143000
$CEINT1  EQU   TOLTEPWA+2964                                            01144000
$MSGGET  EQU   TOLTEPWA+2960                                            01145000
$ACQLIST EQU   TOLTEPWA+2956                                            01146000
$R4SAVE1 EQU   TOLTEPWA+2952                                            01147000
$CLSISS  EQU   TOLTEPWA+2950                                            01148000
$CLSCNT  EQU   TOLTEPWA+2948                                            01149000
$CUTABLE EQU   TOLTEPWA+2868                                            01150000
$BUFSZ2  EQU   TOLTEPWA+2864                                            01151000
$RESID2  EQU   TOLTEPWA+2860                                            01152000
$OLTCCW2 EQU   TOLTEPWA+2856                                            01153000
$ENDBFR2 EQU   TOLTEPWA+2852                                            01154000
$1STBFR2 EQU   TOLTEPWA+2848                                            01155000
$TECB2   EQU   TOLTEPWA+2844                                            01156000
$BUFSZ1  EQU   TOLTEPWA+2840                                            01157000
$RESID1  EQU   TOLTEPWA+2836                                            01158000
$OLTCCW1 EQU   TOLTEPWA+2832                                            01159000
$ENDBFR1 EQU   TOLTEPWA+2828                                            01160000
$1STBFR1 EQU   TOLTEPWA+2824                                            01161000
$TECB1   EQU   TOLTEPWA+2820                                            01162000
$WAITIME EQU   TOLTEPWA+2816                                            01163000
$TRTN#   EQU   TOLTEPWA+2815                                            01164000
$WIODEV  EQU   TOLTEPWA+2814                                            01165000
$RQSTSZE EQU   TOLTEPWA+2812                                            01166000
$RQSTPTR EQU   TOLTEPWA+2808                                            01167000
$R4SAVE  EQU   TOLTEPWA+2804                                            01168000
$PARTADR EQU   TOLTEPWA+2800                                            01169000
$TBSDATA EQU   TOLTEPWA+2796                                            01170000
$CTWIDTH EQU   TOLTEPWA+2795                                            01171000
$CTLINE  EQU   TOLTEPWA+2794                                            01172000
$APWIDTH EQU   TOLTEPWA+2793                                            01173000
$APLINE  EQU   TOLTEPWA+2792                                            01174000
$INDEX   EQU   $IMITX                                                   01175000
$UMXX    EQU   @NM00072+14                                              01176000
$NSXX    EQU   @NM00072+12                                              01177000
$ATACNT  EQU   $NSCNT                                                   01178000
$CTR     EQU   @NM00072+8                                               01179000
$ATAPTR  EQU   $NSPTR                                                   01180000
$DDRPTR  EQU   @NM00072                                                 01181000
$DTORESP EQU   TOLTEPWA+2712                                            01182000
$APNAME  EQU   TOLTEPWA+2704                                            01183000
$24SYMNE EQU   $24CATMG+4                                               01184000
$24DEVAD EQU   $24CATMG                                                 01185000
$24RTN#  EQU   $24FEMSG+8                                               01186000
$ESECTID EQU   $24FEMSG                                                 01187000
$24FLGS  EQU   TOLTEPWA+2680                                            01188000
$24SAVE2 EQU   TOLTEPWA+2676                                            01189000
$24SAVE1 EQU   TOLTEPWA+2672                                            01190000
$24UNADR EQU   TOLTEPWA+2668                                            01191000
$24SAV13 EQU   TOLTEPWA+2664                                            01192000
$24RETCD EQU   TOLTEPWA+2663                                            01193000
$MACID   EQU   TOLTEPWA+2661                                            01194000
$CSPARE  EQU   $CFLGS                                                   01195000
$C2WAY   EQU   $CFLGS                                                   01196000
$CINCT   EQU   $CCOMDAT+12                                              01197000
$CINADR  EQU   $CCOMDAT+8                                               01198000
$COUTCT  EQU   $CCOMDAT+4                                               01199000
$COUTAD  EQU   $CCOMDAT                                                 01200000
ROOTLOC  EQU   TOLTEPWA+2640                                            01201000
$RETREG  EQU   TOLTEPWA+2636                                            01202000
$WORK    EQU   TOLTEPWA+2376                                            01203000
$EXTA    EQU   TOLTEPWA+2320                                            01204000
$PASSONA EQU   TOLTEPWA+2264                                            01205000
$TRMINPT EQU   TOLTEPWA+2184                                            01206000
$TLTRPL3 EQU   TOLTEPWA+1856                                            01207000
$TLTRPL2 EQU   TOLTEPWA+1736                                            01208000
$TLTRPL1 EQU   TOLTEPWA+1616                                            01209000
@NM00071 EQU   $SLTBL+135                                               01210000
$HIGHRTN EQU   $SLTBL+134                                               01211000
$PRIMADR EQU   $SLTBL+130                                               01212000
$CTSTPT  EQU   $SLTBL+128                                               01213000
$TSTCNT  EQU   $SLTBL+126                                               01214000
$SECFLGS EQU   $SECLST+3                                                01215000
$SECTION EQU   $SECLST                                                  01216000
$SECACT  EQU   $TESTFLG                                                 01217000
$CANTRUN EQU   $TESTFLG                                                 01218000
$FINAL   EQU   $TESTFLG                                                 01219000
$TESTSUF EQU   $RUNTEST+5                                               01220000
$TESTNUM EQU   $RUNTEST+1                                               01221000
$LETPRF  EQU   $RUNTEST                                                 01222000
$SYMBOLC EQU   $SLTBL+5                                                 01223000
$FAMILY  EQU   $SLTBL                                                   01224000
$CDEVPT  EQU   TOLTEPWA+1466                                            01225000
$DEVCNTS EQU   TOLTEPWA+1464                                            01226000
$FEEDBCK EQU   $DEVTBLE+66                                              01227000
$WTISUED EQU   $DEVFLG4                                                 01228000
$EXIOISD EQU   $DEVFLG4                                                 01229000
$REMWRIT EQU   $DEVFLG4                                                 01230000
$REMDONE EQU   $DEVFLG4                                                 01231000
$2NDUSED EQU   $DEVFLG4                                                 01232000
$1STUSED EQU   $DEVFLG4                                                 01233000
$IGLXIFB EQU   $DEVFLG4                                                 01234000
$EXIOLV3 EQU   $DEVFLG4                                                 01235000
@NM00070 EQU   $DEVFLG5                                                 01236000
$ASCII   EQU   $DEVFLG5                                                 01237000
$DEVLU   EQU   $DEVFLG5                                                 01238000
$OPNDFAL EQU   $DEVFLG5                                                 01239000
$ACQNCB  EQU   $DEVFLG5                                                 01240000
$REMOTE  EQU   $DEVFLG5                                                 01241000
$ENDNODE EQU   $DEVFLG5                                                 01242000
$LINENME EQU   $RNINFO                                                  01243000
$CID     EQU   $DEVTBLE+52                                              01244000
$DVCOL   EQU   $LDNCBPT+2                                               01245000
$DVROW   EQU   $LDNCBPT                                                 01246000
$NCSPLP  EQU   $DEVTBLE+44                                              01247000
$DVLN    EQU   $SSCPDAF                                                 01248000
$DAF     EQU   $DEVSESP+4                                               01249000
$VARYPAB EQU   $DEVSESP                                                 01250000
$SYSMN   EQU   $DEVTBLE+28                                              01251000
@NM00069 EQU   $DEVFLG3                                                 01252000
$CLRSNT  EQU   $DEVFLG3                                                 01253000
$OLTERR  EQU   $DEVFLG3                                                 01254000
$SRTEST  EQU   $DEVFLG3                                                 01255000
$DVSNDOK EQU   $SIOFLG                                                  01256000
$POLLREQ EQU   $DEVFLG3                                                 01257000
$ACQRED  EQU   $DEVFLG3                                                 01258000
$NOTDEV  EQU   $DEVFLG3                                                 01259000
$DVINCT  EQU   $DEVTBLE+26                                              01260000
$DVBRKST EQU   $OPND+1                                                  01261000
$DVBRKSN EQU   $OPND                                                    01262000
$DVSEQNO EQU   $OPIS                                                    01263000
$CEINTRP EQU   $DEVFLG2                                                 01264000
$TESTMDE EQU   $DEVFLG2                                                 01265000
$DEVALOC EQU   $DEVFLG2                                                 01266000
$ALLDATA EQU   $DEVFLG2                                                 01267000
$ENDCNTL EQU   $DEVFLG2                                                 01268000
$CTLDEV  EQU   $DEVFLG2                                                 01269000
$NOCDS   EQU   $DEVFLG2                                                 01270000
$DATAIN  EQU   $DEVFLG2                                                 01271000
$PRIMARY EQU   $DEVFLG1                                                 01272000
$DVCTBYT EQU   $INTOCC                                                  01273000
$DEVACT  EQU   $DEVFLG1                                                 01274000
$DVLGMDE EQU   $ATTNEXP                                                 01275000
$DVSPRM  EQU   $EVNCPLT                                                 01276000
$GRABBED EQU   $DEVFLG1                                                 01277000
$CATASTR EQU   $DEVFLG1                                                 01278000
$LETGO   EQU   $DEVFLG1                                                 01279000
$CURELEM EQU   $$SYMNME+4                                               01280000
$MSGOTSD EQU   $$SYMNME                                                 01281000
$EXTDEV  EQU   $DEVCDS+11                                               01282000
@NM00068 EQU   $DEVSDCF                                                 01283000
$NOTPRIM EQU   $DEVSDCF                                                 01284000
@NM00067 EQU   $DEVCDSF                                                 01285000
@NM00066 EQU   $DEVCDSF                                                 01286000
@NM00065 EQU   $DEVCDSF                                                 01287000
$CDSNAME EQU   $DEVCDSF                                                 01288000
$EXTRN   EQU   $DEVCDSF                                                 01289000
$CEVOLUM EQU   $DEVCDSF                                                 01290000
$SHARD   EQU   $DEVCDSF                                                 01291000
$DEVFPM  EQU   $DEVCDSF                                                 01292000
$DEVCNT  EQU   $DEVCDS+8                                                01293000
$DEVTYPE EQU   $DEVFEAT+3                                               01294000
$DEVCLAS EQU   $DEVFEAT+2                                               01295000
$DEVFRRS EQU   $DEVFEAT+1                                               01296000
$DEVMOD  EQU   $DEVFEAT                                                 01297000
$DEVRDGT EQU   @NM00063+1                                               01298000
$DEVCTLU EQU   @NM00063+1                                               01299000
$DEVCHAN EQU   @NM00063                                                 01300000
@NM00064 EQU   @NM00063                                                 01301000
$CTINDX  EQU   $DEVUNAD                                                 01302000
$FLAG16  EQU   $COMMFLG+15                                              01303000
$FLAG15  EQU   $COMMFLG+14                                              01304000
$FLAG14  EQU   $COMMFLG+13                                              01305000
$TEP2ND  EQU   $FLAG13                                                  01306000
$TEP1ST  EQU   $FLAG13                                                  01307000
$CATMSG  EQU   $FLAG13                                                  01308000
$PRMPTSW EQU   $FLAG13                                                  01309000
$DEVENT  EQU   $FLAG13                                                  01310000
$OLTMACC EQU   $FLAG13                                                  01311000
$LGON    EQU   $FLAG13                                                  01312000
$CTLOGON EQU   $FLAG13                                                  01313000
@NM00062 EQU   $FLAG12                                                  01314000
$VARYINP EQU   $FLAG12                                                  01315000
$ENDTEST EQU   $FLAG12                                                  01316000
$VRYHRD  EQU   $FLAG12                                                  01317000
$VRYSFT  EQU   $FLAG12                                                  01318000
$POSTFLG EQU   $FLAG12                                                  01319000
$OPTMSG  EQU   $FLAG12                                                  01320000
$FEORCAT EQU   $FLAG11                                                  01321000
@NM00061 EQU   $FLAG11                                                  01322000
@NM00060 EQU   $FLAG10                                                  01323000
$INBND   EQU   $FLAG10                                                  01324000
$WAITFLG EQU   $FLAG10                                                  01325000
$DPRINT  EQU   $FLAG10                                                  01326000
$HOLD    EQU   $FLAG9                                                   01327000
$NOTRRCH EQU   $FLAG9                                                   01328000
@NM00059 EQU   $FLAG9                                                   01329000
$LSTLNSW EQU   $FLAG9                                                   01330000
$MULLNSW EQU   $FLAG9                                                   01331000
$IGRES   EQU   $FLAG9                                                   01332000
$VS2     EQU   $FLAG8                                                   01333000
$VS1     EQU   $FLAG8                                                   01334000
$EDOS    EQU   $FLAG8                                                   01335000
@NM00058 EQU   $FLAG8                                                   01336000
$TWOWAY  EQU   $FLAG8                                                   01337000
@NM00057 EQU   $FLAG8                                                   01338000
$RCVMSG  EQU   $FLAG7                                                   01339000
$RCVRFLG EQU   $FLAG7                                                   01340000
$SNDRFLG EQU   $FLAG7                                                   01341000
$LDOIS   EQU   $FLAG7                                                   01342000
$DCONTCT EQU   $FLAG7                                                   01343000
$EXIOWAT EQU   $FLAG7                                                   01344000
$2NDDATA EQU   $FLAG7                                                   01345000
$1STDATA EQU   $FLAG7                                                   01346000
$CIREQ   EQU   $FLAG6                                                   01347000
$ABTERM  EQU   $ABNDBIT                                                 01348000
$FSTMCIS EQU   $FLAG6                                                   01349000
$DISCREQ EQU   $FLAG6                                                   01350000
$DISCISS EQU   $FLAG6                                                   01351000
$CTERROR EQU   $FLAG6                                                   01352000
$RECAL11 EQU   $FLAG6                                                   01353000
@NM00056 EQU   $FLAG5                                                   01354000
$PROGCK  EQU   $CANCEL                                                  01355000
$PRINTAP EQU   $FLAG5                                                   01356000
@NM00055 EQU   $FLAG5                                                   01357000
$MSG922  EQU   $FLAG5                                                   01358000
$CT924   EQU   $FLAG5                                                   01359000
$FSTCAT  EQU   $FLAG5                                                   01360000
$FSTFE   EQU   $FLAG5                                                   01361000
$ACTOPND EQU   $FLAG4                                                   01362000
$ACQCUTT EQU   $FLAG4                                                   01363000
$CLSSACT EQU   $FLAG4                                                   01364000
$BACKINT EQU   $FLAG4                                                   01365000
$DMSGSW  EQU   $FLAG4                                                   01366000
$TSTDEVP EQU   $FLAG4                                                   01367000
$APRQPER EQU   $FLAG4                                                   01368000
$OPCOM   EQU   $FLAG4                                                   01369000
$NEWAP   EQU   $FLAG3                                                   01370000
$ALTPRTR EQU   $FLAG3                                                   01371000
$OPTERR  EQU   $FLAG3                                                   01372000
$PRTONLY EQU   $FLAG3                                                   01373000
$REQSTOR EQU   $FLAG3                                                   01374000
$LOGOFFE EQU   $FLAG3                                                   01375000
$TSTERR  EQU   $FLAG3                                                   01376000
$DEVERR  EQU   $FLAG3                                                   01377000
$PARTIAL EQU   $FLAG2                                                   01378000
$NRMTERM EQU   $FLAG2                                                   01379000
$VALDTST EQU   $FLAG2                                                   01380000
$VALDDEV EQU   $FLAG2                                                   01381000
$DBLSLSH EQU   $FLAG2                                                   01382000
$NDR     EQU   $FLAG2                                                   01383000
@NM00054 EQU   $FLAG2                                                   01384000
$OLTACT  EQU   $FLAG1                                                   01385000
$NORELDV EQU   $FLAG1                                                   01386000
@NM00053 EQU   $FLAG1                                                   01387000
$OPTCHNG EQU   $FLAG1                                                   01388000
$DEVCHNG EQU   $FLAG1                                                   01389000
$TESTCNG EQU   $FLAG1                                                   01390000
$CNSLFG  EQU   $FLAG1                                                   01391000
$TEP3RD  EQU   $FLAG1                                                   01392000
@NM00052 EQU   $CDA+120                                                 01393000
$CUCNT   EQU   $CDA+118                                                 01394000
@NM00051 EQU   $CDA+117                                                 01395000
$PRTFORM EQU   $CDA+116                                                 01396000
$OPISCNT EQU   $CDA+114                                                 01397000
$OPNDCNT EQU   $CDA+112                                                 01398000
$GETMSZE EQU   $CDA+110                                                 01399000
$GRCNTS  EQU   $CDA+108                                                 01400000
$CTLCNT  EQU   $CDA+106                                                 01401000
$ACTLVL  EQU   $CDA+105                                                 01402000
$PRNTLVL EQU   $CDA+104                                                 01403000
$ERRCNTA EQU   $CDA+102                                                 01404000
$TLCNT   EQU   $CDA+100                                                 01405000
$TIMEALW EQU   $CDA+96                                                  01406000
$PTRAREA EQU   $CDA+92                                                  01407000
$GETMPTR EQU   $CDA+88                                                  01408000
$R13PTRT EQU   $CDA+84                                                  01409000
$R13PTR  EQU   $CDA+80                                                  01410000
$TEPEND  EQU   $CDA+76                                                  01411000
$PLINKDL EQU   $CDA+72                                                  01412000
$TEPBEGN EQU   $CDA+68                                                  01413000
$FRELPTR EQU   $CDA+64                                                  01414000
$HIGHADR EQU   $HIMOREC                                                 01415000
$LOMOREC EQU   $CDA+56                                                  01416000
$ENDCOMM EQU   $CDA+48                                                  01417000
$COMMON  EQU   $RCA                                                     01418000
$SLASHAD EQU   $CDA+32                                                  01419000
$PASSON  EQU   $CDA+28                                                  01420000
$TOLBRTB EQU   $CDA+24                                                  01421000
$SCTPTR8 EQU   $CDA+20                                                  01422000
$SCTPTR  EQU   $CDA+16                                                  01423000
$TBWDPTR EQU   $CDA+12                                                  01424000
$TFWDPTR EQU   $CDA+8                                                   01425000
@NM00050 EQU   $CDA                                                     01426000
@NM00049 EQU   $SCTTBLE+98                                              01427000
$SCTLWTC EQU   $SCTTBLE+96                                              01428000
$SCTLWTA EQU   $SCTTBLE+92                                              01429000
#EXT     EQU   $SCTTBLE+88                                              01430000
#PASS    EQU   $SCTTBLE+84                                              01431000
#TABLE   EQU   $SCTTBLE+80                                              01432000
#MSGIDAC EQU   $SCTTBLE+78                                              01433000
@NM00048 EQU   $SCTTBLE+71                                              01434000
$RETMASK EQU   $SCTTBLE+70                                              01435000
$R249255 EQU   $ROUTMSK+29                                              01436000
$R241248 EQU   $ROUTMSK+28                                              01437000
$R233240 EQU   $ROUTMSK+27                                              01438000
$R225232 EQU   $ROUTMSK+26                                              01439000
$R217224 EQU   $ROUTMSK+25                                              01440000
$R209216 EQU   $ROUTMSK+24                                              01441000
$R201208 EQU   $ROUTMSK+23                                              01442000
$R193200 EQU   $ROUTMSK+22                                              01443000
$R185192 EQU   $ROUTMSK+21                                              01444000
$R177184 EQU   $ROUTMSK+20                                              01445000
$R169176 EQU   $ROUTMSK+19                                              01446000
$R161168 EQU   $ROUTMSK+18                                              01447000
$R153160 EQU   $ROUTMSK+17                                              01448000
$R145152 EQU   $ROUTMSK+16                                              01449000
$R137144 EQU   $ROUTMSK+15                                              01450000
$R129136 EQU   $ROUTMSK+14                                              01451000
$R121128 EQU   $ROUTMSK+13                                              01452000
$R113120 EQU   $ROUTMSK+12                                              01453000
$R105112 EQU   $ROUTMSK+11                                              01454000
$R097104 EQU   $ROUTMSK+10                                              01455000
$R089096 EQU   $ROUTMSK+9                                               01456000
$R081088 EQU   $ROUTMSK+8                                               01457000
$R073080 EQU   $ROUTMSK+7                                               01458000
$R065072 EQU   $ROUTMSK+6                                               01459000
$R057064 EQU   $ROUTMSK+5                                               01460000
$R049056 EQU   $ROUTMSK+4                                               01461000
$R041048 EQU   $ROUTMSK+3                                               01462000
$R033040 EQU   $ROUTMSK+2                                               01463000
$R025032 EQU   $ROUTMSK+1                                               01464000
$R017024 EQU   $ROUTMSK                                                 01465000
$TOTFLG2 EQU   $SCTTBLE+39                                              01466000
@NM00047 EQU   $TOTFLG1                                                 01467000
@NM00046 EQU   $TOTFLG1                                                 01468000
@NM00045 EQU   $TOTFLG1                                                 01469000
$CURELOD EQU   $TOTFLG1                                                 01470000
$CTEQTT  EQU   $TOTFLG1                                                 01471000
@NM00044 EQU   $TOTFLG1                                                 01472000
@NM00043 EQU   $TOTFLG1                                                 01473000
$LINESHR EQU   $TOTFLG1                                                 01474000
@NM00042 EQU   $OLTFLG2                                                 01475000
@NM00041 EQU   $OLTFLG2                                                 01476000
@NM00040 EQU   $OLTFLG2                                                 01477000
@NM00039 EQU   $OLTFLG2                                                 01478000
@NM00038 EQU   $OLTFLG2                                                 01479000
@NM00037 EQU   $OLTFLG2                                                 01480000
@NM00036 EQU   $OLTFLG2                                                 01481000
$TALK    EQU   $OLTFLG2                                                 01482000
$DYCOM   EQU   $OLTFLGS                                                 01483000
@NM00035 EQU   $OLTFLGS                                                 01484000
$TRACE   EQU   $OLTFLGS                                                 01485000
$RETCODE EQU   $OLTFLGS                                                 01486000
$CONTCB  EQU   $OLTFLGS                                                 01487000
$RETAIN  EQU   $OLTFLGS                                                 01488000
$CLEANRT EQU   $OLTFLGS                                                 01489000
$MANINTV EQU   $OLTFLGS                                                 01490000
$OLTSIZE EQU   $SCTTBLE+34                                              01491000
$QSCTMOD EQU   $EXECFLG                                                 01492000
$CTRLMOD EQU   $EXECFLG                                                 01493000
$CLEANUP EQU   $EXECFLG                                                 01494000
$LSTPDEV EQU   $EXECFLG                                                 01495000
$ERRCNT  EQU   $EXECFLG                                                 01496000
$RTNSLCT EQU   $EXECFLG                                                 01497000
$MULTDEV EQU   $EXECFLG                                                 01498000
@NM00034 EQU   $EXECFLG                                                 01499000
$RMSKCNT EQU   $SCTTBLE+32                                              01500000
$SYNAME  EQU   $CDS8T19+4                                               01501000
$EXTSIG  EQU   $CDS8T19+3                                               01502000
$CDFLGS  EQU   $CDS8T19+1                                               01503000
$CDSCNT  EQU   $CDS8T19                                                 01504000
$PDEVDSC EQU   $SCTTBLE+16                                              01505000
$PDEVADR EQU   $SCTTBLE+12                                              01506000
$COMMCN  EQU   $CDSFLGS                                                 01507000
$CUSTSYM EQU   $CDSFLGS                                                 01508000
$TWOCHSW EQU   $CDSFLGS                                                 01509000
$SYMNAME EQU   $CDSFLGS                                                 01510000
$EXTINTC EQU   $CDSFLGS                                                 01511000
$CEVOL   EQU   $CDSFLGS                                                 01512000
$SHARED  EQU   $CDSFLGS                                                 01513000
$FPM     EQU   $CDSFLGS                                                 01514000
$LASTSUB EQU   $PDEVFLG                                                 01515000
@NM00033 EQU   $PDEVFLG                                                 01516000
@NM00032 EQU   $PDEVFLG                                                 01517000
@NM00031 EQU   $PDEVFLG                                                 01518000
$LASTDEV EQU   $PDEVFLG                                                 01519000
@NM00030 EQU   $PDEVFLG                                                 01520000
$EXFILPT EQU   $PDEVFLG                                                 01521000
$FPMOLD  EQU   $PDEVFLG                                                 01522000
$TSSSYM  EQU   $SCTTBLE+8                                               01523000
$SCTLEVL EQU   $SCTTBLE+7                                               01524000
$DRIVER  EQU   $SCTTBLE+6                                               01525000
$RT0916  EQU   $SCTTBLE+5                                               01526000
$RT0108  EQU   $SCTTBLE+4                                               01527000
$LOOPTST EQU   $ERROPT                                                  01528000
$LOOPERR EQU   $ERROPT                                                  01529000
$NERRPRT EQU   $ERROPT                                                  01530000
$NOCNTRL EQU   $ERROPT                                                  01531000
$ALTPRNT EQU   $ERROPT                                                  01532000
$CATERR  EQU   $ERROPT                                                  01533000
$ASTERIK EQU   $ERROPT                                                  01534000
$TESTERR EQU   $ERROPT                                                  01535000
$FSTCOMM EQU   $TESTOPT                                                 01536000
$INDEFLP EQU   $TESTOPT                                                 01537000
$NOPRT   EQU   $TESTOPT                                                 01538000
$PARAPRT EQU   $TESTOPT                                                 01539000
@NM00029 EQU   $TESTOPT                                                 01540000
$ERRLPCT EQU   $SCTTBLE                                                 01541000
$TLTEND  EQU   $RCAAREA+936                                             01542000
$EXITSAV EQU   $RCAAREA+864                                             01543000
$TRASCII EQU   $RCAAREA+608                                             01544000
@NM00028 EQU   $RCAAREA+605                                             01545000
$VTAMEND EQU   $RCAFLG                                                  01546000
$TPPOSTD EQU   $RCAFLG                                                  01547000
$NEWCT   EQU   $RCAFLG                                                  01548000
$ABNDALL EQU   $RCAFLG                                                  01549000
$CUTESTB EQU   $RCAFLG                                                  01550000
$CONSOLE EQU   $RCAFLG                                                  01551000
$TPLOGON EQU   $RCAFLG                                                  01552000
$UPDATE  EQU   $RCAFLG                                                  01553000
$DEVAREA EQU   $RCAAREA+600                                             01554000
$CTDVAR  EQU   $RCAAREA+596                                             01555000
$BUFFS   EQU   $RCAAREA+464                                             01556000
$TLTNIB  EQU   $CONSTNT+140                                             01557000
$TLTPRPL EQU   $CONSTNT+20                                              01558000
@NM00027 EQU   $CONSTNT+4                                               01559000
@NM00026 EQU   $CONSTNT+2                                               01560000
$USECNT  EQU   $CONSTNT                                                 01561000
$CURRTWA EQU   $POINTER+140                                             01562000
$CTNAME  EQU   $POINTER+132                                             01563000
$CTARGX  EQU   $POINTER+128                                             01564000
$COMINT  EQU   $POINTER+120                                             01565000
$QUEHNDL EQU   $POINTER+116                                             01566000
@NM00025 EQU   $POINTER+36                                              01567000
$RTNPTR  EQU   $POINTER+32                                              01568000
$TLTECB2 EQU   $POINTER+28                                              01569000
$TLTECB1 EQU   $POINTER+24                                              01570000
$CLEANP  EQU   $POINTER+20                                              01571000
$ABEND   EQU   $POINTER+16                                              01572000
$LSTAREA EQU   $POINTER+12                                              01573000
$FSTAREA EQU   $POINTER+8                                               01574000
$CVTSAVE EQU   $POINTER+4                                               01575000
$TOLTEP  EQU   $POINTER                                                 01576000
$TLTACB  EQU   $RCAAREA                                                 01577000
.@UNREFD ANOP                          END UNREFERENCED COMPONENTS      01578000
@RT00094 EQU   I006C02                                                  01579000
@RF00146 EQU   I006C01                                                  01580000
I006C02A EQU   I006C01                                                  01581000
I006CRET EQU   @EL00001                                                 01582000
@RT00170 EQU   I006C04                                                  01583000
@RT00242 EQU   I006C02A                                                 01584000
@RT00251 EQU   I006C02A                                                 01585000
@RT00260 EQU   I006C05                                                  01586000
@RT00274 EQU   I006C02A                                                 01587000
@RT00085 EQU   I006CRET                                                 01588000
@ENDDATA EQU   *                                                        01589000
         END   ISTIC006,(C'PLS1930',0701,75189)                         01590000