MACRO                                                          00020010
&NAME    MHPUT &WORK=,&RESERVE=                                         00040010
         GBLB  &IEDQZA(64) .                                    SA62998 00060010
         LCLA  &LEN,&RESERV                                             00080010
         LCLB  &NOGO   .                                       @SA75452 00100010
         LCLC  &WORKARE,&WORKREG                                        00120010
.*  CHANGE ACTIVITY AS FOLLOWS                                          00140010
.******************* MICROFICHE FLAGS *********************** SUPT CODE 00160010
.*C 485000-490000                                               SA56318 00180010
.*A056001,100100-100400                                         SA62998 00200010
.*D100350                                                       SA66910 00220010
.*A060000,108000,371000,460000,490000                          @SA75452 00240010
.*C100100-100300,560000,860000                                 @SA75452 00260010
.*C100100                                                      @OS76999 00280010
&LEN     SETA  4                                                        00300010
         AIF   (&IEDQZA(5) OR &IEDQZA(14)).BADGRP              @OS76999 00320010
         AGO   .CKWORK                                         @OS76999 00340010
.BADGRP  ANOP                                                  @OS76999 00360010
         MNOTE 12,'*** IHB070 SEQUENCE ERROR - MUST FOLLOW INHDR OR INBX00380010
               UF OR OUTHDR OR OUTBUF MACRO' .                 @SA75452 00400010
&NOGO    SETB  1 .                                             @SA75452 00420010
.CKWORK  ANOP                                                   SA62998 00440010
         AIF   ('&WORK' NE '').CKWK                                     00460010
         MNOTE 12,'***  IHB001  WORK OPERAND REQUIRED - NOT SPECIFIED'  00480010
&NOGO    SETB  1 .                                             @SA75452 00500010
         AGO   .RESERV                                                  00520010
.CKWK    ANOP                                                           00540010
         AIF   ('&WORK'(1,1) EQ '(').REGNO                              00560010
&WORKARE SETC  '&WORK'                                                  00580010
&LEN     SETA  &LEN+4                                                   00600010
         AIF   ('&WORK'(1,1) GT 'Z').BADWORK                            00620010
         AGO   .RESERV                                                  00640010
.REGNO   ANOP                                                           00660010
         AIF   ('&WORK'(K'&WORK,1) EQ ')').CKREG                        00680010
         AGO   .BADWORK                                                 00700010
.CKREG   ANOP                                                           00720010
&WORKREG SETC  '&WORK'(2,K'&WORK-2)                                     00740010
         AIF   ('&WORKREG'(1,1) LT '0').RESERV                          00760010
         AIF   ('&WORKREG' GE '2' AND '&WORKREG' LE '12').RESERV        00780010
.BADWORK ANOP                                                           00800010
         MNOTE 12,'***  IHB300  WORK OPERAND INVALID AS SPECIFIED'      00820010
&NOGO    SETB  1 .                                             @SA75452 00840010
.RESERV  ANOP                                                           00860010
         AIF   ('&RESERVE'  EQ '').NORES                                00880010
&RESERV  SETA  &RESERVE                                                 00900010
         AIF   (&RESERV GE 0).TST221                                    00920010
         MNOTE 12,'***  IHB300  RESERVE OPERAND INVALID AS SPECIFIED'   00940010
&NOGO    SETB  1 .                                             @SA75452 00960010
         AGO   .BAL                                                     00980010
.TST221  AIF   (&RESERV LE 221).BAL                                     01000010
&RESERV  SETA  221                                                      01020010
         MNOTE 4,'*** IED907 RESERVE OPERAND VALUE TOO LARGE - 221 WAS *01040010
               USED'                                            SA56318 01060010
&NOGO    SETB  1 .                                             @SA75452 01080010
         AGO   .BAL                                                     01100010
.NORES   ANOP                                                           01120010
&RESERV  SETA  255                                                      01140010
.BAL     AIF   (&NOGO EQ 1).MEND .                             @SA75452 01160010
         CNOP  0,4                                             @SA75452 01180010
&NAME    DS    0H                                                       01200010
         BAL   1,*+8+&LEN .             BRANCH AROUND CNSTNTS  @PI06030 01220010
         DC    AL1(1) .                 MHPUT ID                        01240010
         DC    AL1(&LEN) .              PARM LENGTH                     01260010
         AIF   ('&WORKREG' NE '').WKREGDC                               01280010
&WORKREG SETC  '0'                                                      01300010
.WKREGDC ANOP                                                           01320010
         DC    AL1(&WORKREG) .          WORK REG IF SPECIFIED           01340010
         DC    AL1(&RESERV) .           NO OF RESRV CHAR IF SPEC        01360010
         AIF   ('&WORKARE' EQ '').LOAD                                  01380010
         DC    A(&WORKARE) .            ADR OF WORK AREA IF SPEC        01400010
.LOAD    ANOP                                                  @YM06905 01420010
         DC    V(IEDQGP)                MHGET/MHPUT ROUTINE    @YM06905 01440010
         L     15,*-4 .                 MHGET/MHPUT RTNE ADDR  @YM06030 01460010
         BALR  14,15                                                    01480010
.MEND    SPACE 2    .                                          @SA75452 01500010
         MEND   .                                              @SA75452 01520010