USE Source

         MACRO                                                          00001000
         USE   &ADD,&REG                                                00002000
         GBLC  &ADDL(20),&REGL(20)                                      00003000
         LCLA  &N                                                       00004000
&N       SETA  1                                                        00005000
.RL      AIF   ('&ADDL(&N)' EQ '').RLO                                  00006000
         AIF   ('&REGL(&N)' NE '&REG').RL1                              00007000
&REGL(&N) SETC ''                                                       00008000
.RL1     ANOP                                                           00009000
&N       SETA  &N+1                                                     00010000
         AGO   .RL                                                      00011000
.RLO     AIF   (T'&ADD EQ 'O').D                                        00012000
&N       SETA  1                                                        00013000
.LOOP    AIF   ('&ADDL(&N)' EQ '&ADD').OLD                              00014000
         AIF   ('&ADDL(&N)' EQ '').NEW                                  00015000
&N       SETA  &N+1                                                     00016000
         AGO   .LOOP                                                    00017000
.OLD     AIF   ('&REGL(&N)' EQ '').NEW                                  00018000
         DROP  &REGL(&N)                                                00019000
.NEW     USING &ADD,&REG                                                00020000
&ADDL(&N) SETC '&ADD'                                                   00021000
&REGL(&N) SETC '&REG'                                                   00022000
         MEXIT                                                          00023000
.D       DROP  &REG                                                     00024000
.MEND    MEND                                                           00025000