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