* /*                                                                 */ 03050002
* /* MACCOMP Y-2 SC1DE/SJD61                                         */ 03100002
* /* MACSTAT Y-2 73127/Y02020                                        */ 03110002
* /*                                                                 */ 03120002
         MACRO                                                          03150002
&N       COMB  &A                                                       06000000
         LCLA  &X                                                       09000000
         LCLC  &C,&L                                                    12000000
&X       SETA  N'&A                                                     15000000
&X       SETA  N'&A                                                     18000000
&N       DS    0CL&X                                                    21000000
&X       SETA  1                                                        24000000
.LOOP    ANOP                                                           27000000
&C       SETC  '&A(&X)'                                                 30000000
         AIF   (K'&C GE 6).BIG                                          33000000
         AIF   (K'&C EQ 5).MED                                          36000000
&L       SETC  '&C'(1,2)                                                39000000
         AGO   .OUT                                                     42000000
.MED     ANOP                                                           45000000
&L       SETC  '&C'(1,2).'&C'(5,1)                                      48000000
         AGO   .OUT                                                     51000000
.BIG     ANOP                                                           54000000
&L       SETC  '&C'(1,2).'&C'(5,2)                                      57000000
.OUT     ANOP                                                           60000000
         DC    AL1((8+Z&L-ZDT)/8)                                       63000000
&X       SETA  &X+1                                                     66000000
         AIF   (N'&A GE &X).LOOP                                        69000000
         MEND                                                           72000000