MACRO                                                          00001000
         DMSLNP &C,&OP,&A1,&A2,&A3,&A4,&A5,&A6                          00002000
         LCLA  &K                                                       00003000
         AIF   (&C EQ 0).MEND                                           00004000
         AIF   ('&A2' EQ '').A1                                         00005000
         AIF   ('&A3' EQ '').A2                                         00006000
         AIF   ('&A4' EQ '').A3                                         00007000
         AIF   ('&A5' EQ '').A4                                         00008000
         AIF   ('&A6' EQ '').A5                                         00009000
         MNOTE 8,'DMSLNP012E TOO MANY ARGUMENTS TO DMSLNP'              00010000
.A5      &OP   &A1,&A2,&A3,&A4,&A5                                      00011000
         MEXIT                                                          00012000
.A4      &OP   &A1,&A2,&A3,&A4                                          00013000
         MEXIT                                                          00014000
.A3      &OP   &A1,&A2,&A3                                              00015000
         MEXIT                                                          00016000
.A2      &OP   &A1,&A2                                                  00017000
         MEXIT                                                          00018000
.A1      &OP   &A1                                                      00019000
.MEND    MEND                                                           00020000