MACRO                                                          01000020
&NAME    INHDR &PATH=                                                   02000020
         GBLA  &IEDQZE(64)                                       S22025 02500022
         GBLB  &IEDQZA(64)                                              03000020
         GBLC  &IEDQZB,&IEDQZJ                                          04000020
         LCLB  &NOGO                                                    06000020
.*             VERSION DATED NOVEMBER 15, 1971                   S22025 07000022
.*C370000                                                      @OZ50351 07050082
         SPACE                                                          08000020
&IEDQZA(6) SETB 1                                                       09000020
         AIF   (&IEDQZA(5) OR &IEDQZA(10)).MN                           09500020
         AIF   (&IEDQZA(46)).PTEST                                      10000020
.MN      MNOTE 12,'***  IHB070  SEQUENCE ERROR - MUST FOLLOW INBLOCK SU*11000022
               BGROUP OR STARTMH MACRO'                          S22025 12000022
&NOGO    SETB  1                                                        13000020
.PTEST   AIF   ('&PATH' EQ '').GLOB                                     14000020
         AIF   ('&PATH(1)' NE '' AND '&PATH(2)' NE '').PATH             15000020
         AGO   .PERR                                                    16000020
.PATH    AIF   ('&PATH(1)'(K'&PATH(1),1) EQ ')' OR '&PATH(1)'(K'&PATH(1*17000020
               ),1) EQ '''').PERR                                       18000020
         IEDQMASK &PATH(2),1                                            19000020
         AIF   (NOT &IEDQZA(24)).GLOB                                   20000020
.PERR    MNOTE 12,'***  IHB300  PATH OPERAND INVALID AS SPECIFIED'      21000020
&NOGO    SETB  1                                                        22000020
.GLOB    AIF   (&NOGO).MEND                                             23000020
         AIF   ('&PATH' EQ '').NAM                                      23100020
         AIF   ('&PATH(2)' EQ '0' OR '&PATH(2)' EQ 'X''00''' OR '&PATH(*23300020
               2)' EQ 'X''0''' OR '&PATH(2)'(1,2) EQ 'XL').PERR         23600020
.NAM     AIF   ('&NAME' EQ '').NON                                      24300020
&NAME    DS    0H                                                       25000020
.NON     ANOP                                                           26000020
&IEDQZA(1) SETB 1                                                       27000020
&IEDQZA(2) SETB 0                                                       28000020
&IEDQZA(4) SETB 0                                                       30000020
&IEDQZA(5) SETB 0                                                       31000020
&IEDQZA(14) SETB 0                                               S22025 31300022
&IEDQZA(23)    SETB 0                                            S22025 31600022
         AIF   (NOT &IEDQZA(20)).NXT                                    32000020
         AIF   ('&IEDQZJ' EQ '').NXT                                    33000020
&IEDQZJ  DS    0H                                                       34000020
.NXT     ANOP                                                           35000020
&IEDQZB  DS    0H .                                              S22025 35050022
         AIF   (&IEDQZA(3)).NOAB                                 S22025 35100022
         IEDQVCON 56,IEDQAB                                      S22025 35200022
         BAL   1,*+6                                             S22025 35300022
         DC    AL1(&IEDQZE(56)),AL1(2)                           S22025 35400022
         L     15,IEDUI                                          S22025 35500022
         BALR  14,15                                             S22025 35600022
.NOAB    ANOP                                                    S22025 35700022
&IEDQZA(3)  SETB 1                                                      35800022
         L     1,IEDADBUF .             GET BUFFER ADDR          S22025 36400022
&IEDQZB  SETC  'IEDJ'.'&SYSNDX'     NEXT INPUT MH DELIMITER TAG@OZ50351 37000082
         TM    20(1),X'81' .            TEXT OR RECALLED HDR            38000020
         BNZ   &IEDQZB                  BRANCH IF EITHER                39000020
         AIF   ('&PATH' EQ '').MEND                                     40000020
         LOCOPT &PATH(1)                                                41000020
         AIF   (&IEDQZA(61)).MEND                                       42000020
         LTR   15,15 .                  OPTION FIELD FOUND              43000020
         BZ    &IEDQZB .                NO - GO TO NEXT DELIM           44000020
         TM    0(15),&PATH(2) .         PATH SWITCHES ON                45000020
         BZ    &IEDQZB .                NO - GO TO NEXT DELIM           46000020
.MEND    SPACE 2                                                        47000020
&IEDQZJ  SETC  ''                                                       48000020
&IEDQZA(20) SETB 0                                                      49000020
         MEND                                                           69000020