MACRO                                                          00000282
&NAME    LOCOPT &OP,&RG,&STATION=**                                     00050282
         GBLA  &IEDQZE(64),&IEDQZK                                      00100282
         GBLB  &IEDQZA(64)                                              00150282
         LCLA  &LEN                                                     00200282
         LCLC  &SAV                                                     00250282
         LCLB  &NOGO                                           @Y17XANQ 00300282
.*              REWRITTEN OCTOBER 1,1975                                00350282
.***************************** CHANGE FLAGS *************************** 00400282
.*C000074-000076         MACRO RESEQUENCED                     @OZ37911 00450282
.********************************************************************** 00500282
         SPACE 1                                                        00550282
&SAV     SETC  '0'                                                      00600282
&LEN     SETA 4                         MINIMUM PARM LIST LENGTH        00650282
         AIF   ('&OP' NE '').OPOK       OPTION FIELD IS REQUIRED        00700282
         MNOTE 12,'***  IHB300  OPTION FIELD OPERAND INVALID AS SPECIFIX00750282
               ED'                                                      00800282
&NOGO    SETB  1                                               @Y17XANQ 00850282
.OPOK    AIF   ('&RG' EQ '').RGOK                                       00900282
         AIF   ('&RG'(1,1) EQ '(').RGOK                                 00950282
         MNOTE 12,'*** IHB002 INVALID REGISTER OPERAND SPECIFIED-&RG'   01000282
&NOGO    SETB  1                                               @Y17XANQ 01050282
.RGOK    AIF   (&IEDQZA(46)).CKMH       IF SPECIFIED IN THE MH          01100282
         AIF   (&IEDQZA(7)).NOMH        IF NOT MH MUST BE TCAM          01150282
         MNOTE 12,'***  IHB070  SEQUENCE ERROR - MUST FOLLOW INTRO'     01200282
&NOGO    SETB  1                                               @Y17XANQ 01250282
.NOMH    AIF   ('&STATION' NE '**').STOK                                01300282
         MNOTE 12,'***  IHB300  STATION OPERAND INVALID AS SPECIFIED'   01350282
&NOGO    SETB  1                                               @Y17XANQ 01400282
.STOK    AIF   (&NOGO).MEND                                    @Y17XANQ 01450282
&NAME    CNOP  0,4                                             @Y17XANQ 01500282
         AIF   ('&STATION'(1,1) NE '(').GNBL   NOT SPECIFIED TARGET     01550282
         ST    &STATION(1),*+12         REGISTER TO PARM LIST           01600282
.GNBL    BAL   1,*+20                   BRANCH AROUND PARM LIST         01650282
         DC    AL1(255,12,&OP,0)                                        01700282
         AIF   ('&STATION'(1,1) EQ '''').MISC   STATION NAME            01750282
         AIF   ('&STATION'(1,1) EQ '(').GN0                             01800282
&SAV     SETC  '&STATION'                                               01850282
.GN0     DC    A(&SAV)                                                  01900282
.GNVC    DC    V(IEDQAE)                                                01950282
         DC    X'00000000'        REG14 SAVE AREA              @OZ37911 02000282
         L     15,*-8                                          @OZ37911 02050282
         ST    14,*-8             SAVE REG14 FOR RETURN        @OZ37911 02100282
         BAL   14,4(,15)                                                02150282
         L     14,*-16            RESTORE REG14                @OZ37911 02200282
         AIF   ('&RG' EQ '').MEND                                       02250282
         LR    &RG(1),1                                                 02300282
         AGO   .MEND                                                    02350282
.CKMH    AIF   (NOT &IEDQZA(5)).SBOK    NOT INMSG/OUTMSG                02400282
         MNOTE 12,'***  IHB070  SEQUENCE ERROR - MUST FOLLOW INHDR,INBUX02450282
               F, INBLOCK, OUTHDR OR OUTBUF MACRO'                      02500282
&NOGO    SETB  1                                               @Y17XANQ 02550282
.SBOK    IEDQVCON 31,IEDQAE                                             02600282
         AIF   (&NOGO).MEND                                    @Y17XANQ 02650282
&NAME    CNOP  0,4                                                      02700282
         AIF   ('&STATION' EQ '**').GNBA  TARGET= SOURCE/DESTINATION    02750282
&LEN     SETA  &LEN+4                                                   02800282
         AIF   ('&STATION'(1,1) EQ '(').STRG   REGISTER NOTATION        02850282
         AIF   ('&STATION'(1,1) EQ '''').GNBA  NAME SPECIFIED           02900282
&SAV     SETC  '&STATION'                                      @Y17XANQ 02950282
         AGO   .GNBA                                                    03000282
.STRG    ST    &STATION(1),*+12         REGISTER TO PARM LIST           03050282
.GNBA    BAL   1,*+&LEN+4                                               03100282
         DC    AL1(&IEDQZE(31),&LEN,&OP)                                03150282
         AIF   ('&RG' EQ '').NOGR                                       03200282
         DC    AL1(&RG(1))                                              03250282
         AGO   .OUT                                                     03300282
.NOGR    DC    AL1(15)                                         @YM07010 03350282
.OUT     AIF   (&LEN EQ 4).GNUI                                         03400282
         AIF   ('&STATION'(1,1) NE '''').GNA0                           03450282
.MISC    DC    A(IEDQMISC+&IEDQZK)                                      03500282
&SAV     SETC  '&SYSECT'                                       @XM05804 03550282
IEDQMISC CSECT                                                          03600282
         DC    CL8&STATION                                     @XM05831 03650282
&SAV     CSECT                                                          03700282
&IEDQZK  SETA  &IEDQZK+8                                       @XM05836 03750282
         AIF   (NOT &IEDQZA(46)).GNVC    NOT IN MH                      03800282
         AGO   .GNUI                                                    03850282
.GNA0    DC    A(&SAV)                                         @Y17XANQ 03900282
.GNUI    L     15,IEDUI                                                 03950282
         BALR  14,15                                                    04000282
.MEND    SPACE 2                                                        04050282
         MEND                                                           04100282