MACRO                                                          01000020
&NAME    STCC  &ATN,&LD=,&CD=                                           02000020
.********************************************************************** 03000020
.*                                                                    * 04000020
.*                                                                    * 05000020
.*RELEASE 23 DELETIONS                                                * 06000020
.*                                                                    * 07000020
.*RELEASE 22 DELETIONS                                                * 08000020
.*                                                                    * 09000020
.*RELEASE 21 DELETIONS                                                * 10000020
.*                                                                    * 11000020
.*STATUS - CHANGE LEVEL 000                                           * 12000020
.*                                                                    * 13000020
.*NAME - STCC                                                         * 14000020
.*                                                                    * 15000020
.*FUNCTION - THE STCC MACRO ALLOWS THE USER TO SPECIFY TERMINAL       * 16000020
.*   CONTROL CHARACTERS FOR LINE DELETING AND CHARACTER DELETING.     * 17000020
.*                                                                    * 18000020
.*                                                                    * 19000020
.*       THE MACRO PROTOTYPE IS ABOVE                                 * 20000020
.*                                                                    * 21000020
.*       THE STANDARD FORM OF EXPANSION IS BELOW                      * 22000020
.*                                                                    * 23000020
.*       CNOP  0,4                                                    * 24000020
.*&NAME  BAL   1,*+8                    BRANCH PAST DC'S              * 25000020
.*       DC    AL1(176)                 FLAG BYTE                     * 26000020
.*       DC    X'00'                    NOT USED                      * 27000020
.*       DC    C'$'                     LINE-DELETER CHAR             * 28000020
.*       DC    C'?'                     CHAR-DELETER CHAR             * 29000020
.*       L     1,0(1)                   LOAD PARM IN REG              * 30000020
.*       LA    0,7                      LOAD ENTRY CODE               * 31000020
.*       SLL   0,24                     PUT ENTRY CODE IN HIGH ORDER  * 32000020
.*                                      BYTE OF REGISTER              * 33000020
.*       SVC   94                       ISSUE SVC                     * 34000020
.*                                                                    * 35000020
.********************************************************************** 36000020
         LCLA  &SW                                                      37000020
         AIF   ('&ATN' EQ  '' AND '&LD' EQ '' AND '&CD' EQ  '').ERR     37500020
         AIF   ('&ATN' EQ '').NOTHING                                   38000020
         AIF   ('&ATN' EQ 'NATN').NOATT                                 39000020
         AIF   ('&ATN' EQ 'ATTN').ATT                                   40000020
         AGO   .ERROR                                                   41000020
.ATT     ANOP                                                           42000020
&SW      SETA  X'C0'                    FLAG FOR ATTN SPECIFIED         43000020
         AGO   .CKLD                    GO TO CHECK LD                  44000020
.NOTHING ANOP                                                           45000020
&SW      SETA  X'00'                    FLAG FOR 1ST OPERAND NOT THERE  46000020
         AGO   .CKLD                    GO TO CHECK LD                  47000020
.NOATT   ANOP                                                           48000020
&SW      SETA  X'80'                    FLAG FOR NATN SPECIFIED         49000020
.CKLD    AIF   ('&LD' EQ '').CKCD                                       50000020
&SW      SETA  &SW+X'20'                FLAG FOR LD SPECIFIED           51000020
.CKCD    AIF   ('&CD' EQ '').STUPFLG                                    52000020
&SW      SETA  &SW+X'10'                FLAG FOR CD SPECIFIED           53000020
.STUPFLG ANOP                                                           54000020
         CNOP  0,4                                                      55000020
&NAME    BAL   1,*+8                    REG 1 POINTS AT DC LIST         56000020
         DC    AL1(&SW)                 FLAG BYTE                       57000020
         DC    X'00'                    NOT USED                        58000020
         AIF   ('&LD' EQ '').LD0                                        59000020
         AIF   ('&LD'(1,1) EQ '(').LD0                                  60000020
         DC    &LD                      LD CHAR                         61000020
         AGO   .CHKCD                                                   62000020
.LD0     DC    X'00'                    LD NOT SPECIFIED OR LD IN REG   63000020
.CHKCD   AIF   ('&CD' EQ '').CD0                                        64000020
         AIF   ('&CD'(1,1) EQ '(').CD0                                  65000020
         DC    &CD                      CD CHAR                         66000020
         AGO   .LOAD                                                    67000020
.CD0     DC    X'00'                    CD NOT SPECIFIED OR CD IN REG   68000020
.LOAD    L     1,0(1)                   LOAD PARM                       69000020
         AIF   ('&LD' EQ '').CKCDREG                                    70000020
         AIF   ('&LD'(1,1) NE '(').CKCDREG                              71000020
         LR    0,&LD                    PUT LD CHAR IN REG 0            72000020
         SLL   0,8                      SHIFT LD CHAR LEFT ONE BYTE     73000020
         OR    1,0                      PUT LD CHAR IN REG 1            74000020
.CKCDREG AIF   ('&CD'EQ '').ENTRYCD                                     75000020
         AIF   ('&CD'(1,1) NE '(').ENTRYCD                              76000020
.CDREG   OR    1,&CD                    PUT CD CHAR IN REG 1            77000020
.ENTRYCD LA    0,7                      LOAD ENTRY CODE                 78000020
         SLL   0,24                     PUT ABOVE IN HIGH ORDER BYTE    79000020
         SVC   94                       ISSUE SVC                       80000020
         MEXIT                                                          81000020
.ERROR   IHBERMAC 54,,&ATN                                              82000020
         MEXIT                                                          86000020
.ERR     IHBERMAC   24                                                  90000020
         MEND                                                           94000020