MACRO                                                          03000002
&TAG     SCANL &TREE,&MORE=,&DONE=                                      06000002
.*A000000                                                        Y02147 09000002
.*A000000                                                        Y02147 12000002
.********************************************************************** 15000002
LJW&SYSNDX EQU 1                                                        18000002
         USING IGARPTH,LJW&SYSNDX                                       21000002
         AIF   (K'&TREE EQ K'&TREE(1)+2).LW1                            24000002
&TAG     L     1,&TREE                                                  27000002
.LW0     L     15,=AL4(IGASCANL)                                        30000002
         BALR  14,15                                                    33000002
         AGO   .FIN                                                     36000002
.LW1     ANOP                                                           39000002
&TAG     LR    1,&TREE                                                  42000002
         AGO   .LW0                                                     45000002
.FIN     ANOP                                                           48000002
         AIF   (K'&MORE NE 0).LW3                                       51000002
         AIF   (K'&DONE EQ 0).END                                       54000002
         LTR   15,15                                                    57000002
         BC    8,&DONE                                                  60000002
         AGO   .END                                                     63000002
.LW3     AIF   (K'&DONE NE 0).LW4                                       66000002
         LTR   15,15                                                    69000002
         BC    7,&MORE                                                  72000002
         AGO   .END                                                     75000002
.LW4     LTR   15,15                                                    78000002
         BC    7,&MORE                                                  81000002
         BC    8,&DONE                                                  84000002
.END     ANOP                                                           87000002
         DROP  LJW&SYSNDX                                               90000002
         RPTDSECT                                                       93000002
         MEND                                                           96000002