* IHBLOAD  MAKPO - úAçPõúKA PEçéCTPA éú ðOìñ/PEçéCTPA/KOHCTAHTOê        LOAD0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 05.10.90   BPEMñ 16.50   *  æOKõC  LOAD0002
*    IHBLOAD <PEçéCTP>,<AäPEC>[,<Téð>][,'<éMñ äìñ MNOTE>']              LOAD0003
*            [,EMPTY=ZERO/SKIP]                                         LOAD0004
*  ìEHéHçPAä éBã çõT  OTä. 07                           T: 310-98-12    LOAD0005
         MACRO                                                          LOAD0006
&N       IHBLOAD &R,&PARM,&T,&NAME,&EMPTY=                              LOAD0007
         LCLC  &TYP,&RI                                                 LOAD0008
         AIF   ('&PARM' NE '').LOAD      ðAP-P úAäAH ?                  LOAD0009
         AIF   ('&EMPTY' EQ 'ZERO').ZR   - OâHõìéTø                     LOAD0010
         AIF   ('&EMPTY' EQ 'SKIP').EXIT - ðPOðõCTéTø                   LOAD0011
         MNOTE 12,'IHBLOAD: PARAMETER NOT SPECIFIED '&NAME''            LOAD0012
         AGO   .F                                                       LOAD0013
.LOAD    AIF   ('&PARM'(1,1) EQ '(').LR                                 LOAD0014
&TYP     SETC  '&T'                                                     LOAD0015
         AIF   ('&TYP' NE '').TESTTYP                                   LOAD0016
&TYP     SETC  T'&PARM                                                  LOAD0017
.*                                                                      LOAD0018
.TESTTYP AIF   ('&TYP' EQ 'F' OR '&TYP' EQ 'A').F                       LOAD0019
         AIF   ('&TYP' EQ 'H' OR '&TYP' EQ 'Y').H                       LOAD0020
         AIF   ('&TYP' EQ 'C' OR '&TYP' EQ 'B' OR '&TYP' EQ 'X').B      LOAD0021
         AIF   ('&TYP' EQ 'N').N                                        LOAD0022
         AIF   ('&TYP' EQ 'U').MNOTE2                                   LOAD0023
         MNOTE 12,'IHBLOAD: OPERAND &PARM HAS ILLEGAL TYPE - &TYP'      LOAD0024
         AGO   .F                                                       LOAD0025
.MNOTE2  MNOTE 8,'IHBLOAD: TYPE OF &PARM SPECIFICATION NEEDS'           LOAD0026
.F       ANOP                                                           LOAD0027
&N       L     &R,&PARM                                                 LOAD0028
         MEXIT                                                          LOAD0029
.H       ANOP                                                           LOAD0030
&N       LH    &R,&PARM                                                 LOAD0031
         MEXIT                                                          LOAD0032
.B       ANOP                                                           LOAD0033
&N       XR    &R,&R                                                    LOAD0034
         IC    &R,&PARM                                                 LOAD0035
         MEXIT                                                          LOAD0036
.N       ANOP                                                           LOAD0037
&N       LA    &R,&PARM                                                 LOAD0038
         MEXIT                                                          LOAD0039
.*                                                                      LOAD0040
.LR      ANOP                                                           LOAD0041
&RI      SETC  '&PARM'(2,K'&PARM-2)      BùHõTø éú CKOâOK               LOAD0042
         AIF   ('&RI' EQ '&R').EXIT                                     LOAD0043
&N       LR    &R,&RI                                                   LOAD0044
         MEXIT                                                          LOAD0045
.EXIT    AIF   ('&N' EQ '').END                                         LOAD0046
&N       DS    0H                                                       LOAD0047
         MEXIT                                                          LOAD0048
.ZR      ANOP                                                           LOAD0049
&N       XR    &R,&R                                                    LOAD0050
.END     MEND                                                           LOAD0051