MACRO                                                          02000000
&NAME    REQBUF  &DCB,&BUFFER,&COUNT                                    04000000
&NAME    DS    0H                                                       06000000
         AIF   (T'&DCB(1) EQ 'N').REG                                   08000000
         AIF   (T'&DCB(1) EQ 'U').REG2                                  10000000
.SYM     LA    1,&DCB                                                   12000000
         AGO   .T                                                       14000000
.REG2    AIF   ('&DCB'(1,1) NE '(').SYM                                 16000000
         AIF   ('&DCB'(K'&DCB,1) NE ')').ER                             18000000
         AGO   .LDRG                                                    20000000
.REG     AIF   (&DCB(1) EQ 1).T                                         22000000
         AIF   (&DCB(1) GT 12).ER                                       24000000
.LDRG    ANOP                                                           26000000
         LR    1,&DCB(1)                                                28000000
.T       AIF   (T'&BUFFER(1) NE 'N' AND T'&BUFFER(1) NE 'U').ER2        30000000
         AIF   (T'&COUNT EQ 'O').ONE                                    32000000
.T8      AIF   ('&COUNT'(1,1) NE '(').CSYM                              34000000
         AIF   ('&COUNT'(K'&COUNT,1) NE ')').ER3                        36000000
         AIF   (T'&COUNT EQ 'U').CLRG                                   38000000
         AIF   (T'&COUNT NE 'N').ER3                                    40000000
.T7      AIF   (&COUNT(1) GT 12).ER3                                    42000000
         AIF   (&COUNT(1) EQ 0).T2                                      44000000
         AIF   (&COUNT(1) LT 2).ER3                                     46000000
.CLRG    ANOP                                                           48000000
         LR    0,&COUNT(1)    PLACE COUNT IN                            50000000
         AGO   .T1                                                      52000000
.CSYM    ANOP                                                           54000000
         LA    0,&COUNT       PLACE COUNT IN                            56000000
.T1      SLL   0,24           BYTE 0 OF REG 0.                          58000000
.T2      SVC   58                                                       60000000
         LA    &BUFFER(1),0(15)  PASS BUFFER ADDRESS.                   62000000
         SRL   15,24          PLACE RETURN CODE IN BYTE 4.              64000000
         AGO   .END                                                     66000000
.ONE     LA    0,1            PLACE COUNT IN                            68000000
         AGO   .T1                                                      70000000
.ER      MNOTE 12,'***  IHB078  DCB OPERAND REGISTER NOTATION INVALID-&X72000000
               DCB'                                                     74000000
         MEXIT                                                          76000000
.ER2     MNOTE 12,'***  IHB078  BUFFER OPERAND REGISTER NOTATION INVALIX78000000
               D-&BUFFER'                                               80000000
         MEXIT                                                          82000000
.ER3     MNOTE 12,'***  IHB078  COUNT OPERAND REGISTER NOTATION INVALIDX84000000
               -&COUNT'                                                 86000000
.END     MEND                                                           88000000