MACRO                                                          00020000
&NAME    LERPRT &DCB,&RLN,&CID,&CLEAR=YES                        A29589 00040019
.*                                                                      00042000
.*********************************************************************  00044000
.*       THE FOLLOWING MANTANCE HAS BEEN APPLIED                        00046000
.*********************************************************************  00048000
.*       AZ04663  (09/23/75)                                            00050000
.*********************************************************************  00052000
         LCLA  &A1                                                      00060000
         LCLA  &A2                                               A29589 00070019
         LCLC  &Y                                                A29589 00075019
         AIF   ('&DCB' EQ '').E1                                        00300000
         CNOP  0,4                                                      00320000
&NAME    BAL   15,*+8                                                   00340000
         DC    V(IECTLERP)                                       A27630 00370019
         AIF   ('&DCB'(1,1) EQ '(').REGTST                              00400000
         LA    1,&DCB                                                   00420000
         AGO   .RLNTST                                                  00440000
.REGTST  ANOP                                                           00460000
&A1      SETA  K'&DCB                                                   00480000
         AIF   (&A1 LT 3).E2                                            00500000
         AIF   ('&DCB'(&A1,1) NE ')').E2                                00520000
         AIF   (&A1 GT 3).REGTST1                                       00540000
         AIF   ('&DCB'(2,1) NE '1').REGTST1                             00560000
         AGO   .RLNTST                                                  00580000
.REGTST1 ANOP                                                           00600000
         LR    1,&DCB                                                   00620000
.RLNTST  AIF   ('&RLN' EQ '').RLNTST1                                   00640000
         AIF   ('&RLN'(1,1) EQ '(').RLNTST2                             00660000
         AIF   ('&RLN' EQ '0').E3                                       00680000
         AIF   ('&RLN' GT '255').E3                                     00700000
         LA    0,&RLN                                                   00720000
         AGO   .CLRTST                                                  00740000
.RLNTST1 ANOP                                                           00760000
         SR    0,0                                                      00780000
         AGO   .CLRTST                                                  00800000
.RLNTST2 ANOP                                                           00820000
&A1      SETA  K'&RLN                                                   00840000
         AIF   (&A1 LT 3).E3                                            00860000
         AIF   ('&RLN'(&A1,1) NE ')').E4                                00880000
         AIF   (&A1 GT 3).RLNTST3                                       00900000
         AIF   ('&RLN'(2,1) NE '0').RLNTST3                    @ZA04663 00920000
         AGO   .CLRTST                                                  00940000
.RLNTST3 ANOP                                                           00960000
         LR    0,&RLN                                                   00980000
.CLRTST  ANOP                                                           01000000
         LA    1,0(1)                                            A27630 01000619
         AIF   ('&CID' EQ '').NOCID                              A29589 01001219
         AIF   ('&CID'(1,1) EQ '(').REGCID                       A29589 01001819
         LA    14,&CID                                           A29589 01002419
         AGO   .OK                                               A29589 01003019
.REGCID  ANOP                                                    A29589 01003619
&A2      SETA  K'&CID                                            A29589 01004219
         AIF   ('&CID'(&A2,1) NE ')' OR &A2 LT 3).E6             A29589 01004819
         AIF   (&A2 NE 4).LCID                                   A29589 01005419
         AIF   ('&CID'(2,1) EQ '1' AND '&CID'(3,1) EQ '4').OK    A29589 01006019
.LCID    ANOP                                                    A29589 01006619
&Y       SETC  '&CID'(2,&A2-2)                                   A29589 01007219
         LR    14,&Y                                             A29589 01007819
.OK      ANOP                                                    A29589 01008419
         TM    0(14),X'F0'             TEST FOR VALID CID        A29589 01009019
         BNZ   *+14                    NO, DON'T PASS CID IN R1  A29589 01009619
         IC    14,0(14)                GET CID                   A29589 01010219
         SLL   14,24                                             A29589 01010819
         OR    1,14                    PUT CID IN HIGH ORDER BYTEA29589 01011419
.NOCID   ANOP                                                    A29589 01012019
         AIF   ('&CLEAR' EQ '').CLRTST1                          A27630 01012619
&A1      SETA  K'&CLEAR                                          A27630 01013219
         AIF   (&A1 GT 3 OR &A1 LT 2).E5                         A27630 01013819
         AIF   ('&CLEAR'(1,&A1) EQ 'NO').CLREND                  A27630 01014419
         AIF   ('&CLEAR'(1,&A1) NE 'YES').E5                     A27630 01015019
.CLRTST1 ANOP                                                    A27630 01015619
         LCR   1,1                                               A27630 01016219
.CLREND  ANOP                                                    A27630 01016819
         L     15,0(15)                                                 01020000
         BALR  14,15                                                    01040000
         AGO   .FINI                                                    01060000
.E1      MNOTE 12,'***  IHB001  DCB OPERAND REQ''D-NOT SPECIFIED'       01080000
         MEXIT                                                          01100000
.E2      MNOTE 12,'***  IHB002  INVALID DCB OPERAND SPECIFIED-&DCB'     01120000
         MEXIT                                                          01140000
.E3      MNOTE 12,'***  IHB002  INVALID RLN OPERAND SPECIFIED-&RLN'     01160000
         MEXIT                                                          01180000
.E4      MNOTE 12,'***  IHB002  INVALID RLN OPERAND SPECIFIED-&RLN'     01200000
         MEXIT                                                          01220000
.E5      MNOTE 12,'***  IHB002  INVALID CLEAR OPERAND SPECIFIED-&CLEAR' 01240000
         MEXIT                                                          01260000
.E6      MNOTE 12,'***  IHB002  INVALID CID OPERAND SPECIFIED-&CID' 589 01266019
         MEXIT                                                   A29589 01272019
.FINI    MEND                                                           01280000