MACRO                                                          LIST0001
&NAME    ADRLIST &VL=,&T=A       ðOCTPOEHéE TAâìéãù AäPECOB             LIST0002
         LCLA  &NA,&N,&L                                                LIST0003
         LCLB  &B                                                       LIST0004
         LCLC  &CH,&LOCNAME,&AL3                                        LIST0005
&AL3     SETC  'AL3'                                                    LIST0006
         AIF   ('&T' NE 'S').AL3                                        LIST0007
&AL3     SETC  'X''00'',SL2'                                            LIST0008
.AL3     ANOP                                                           LIST0009
&B       SETB  ('&VL' NE '1')                                           LIST0010
&NA      SETA  N'&SYSLIST                                               LIST0011
&N       SETA  1                                                        LIST0012
&NAME    DS    0F                                                       LIST0013
.DO      AIF   (N'&SYSLIST(&N) EQ 1).NL     äìéHA HE úAäAHA             LIST0014
&L       SETA  0                                                        LIST0015
&CH      SETC  '&SYSLIST(&N,1)'                                         LIST0016
&LOCNAME SETC  '&SYSLIST(&N,3)'                                         LIST0017
         AIF   ('&CH' EQ '').VL                   HE úAäAHA = 0         LIST0018
         AIF   ('&CH' EQ 'L').LCH           äìéHA - XAPAKT. äìéHù       LIST0019
         AIF   ('&CH'(1,1) EQ 'X' OR '&CH'(1,1) EQ 'C').DC   B BéäE DC  LIST0020
&L       SETA  &SYSLIST(&N,1)             äEC. þéCìO                    LIST0021
         AGO   .VL                                                      LIST0022
.LCH     ANOP                                                           LIST0023
&L       SETA  L'&SYSLIST(&N,2)           ðPéCBOéTø X-Kõ äìéHù          LIST0024
.*                                                                      LIST0025
.VL      AIF   (&B OR &N NE &NA).L         ðPOBEPKA                     LIST0026
&L       SETA  &L+128                      (ðOCìEäHéê ?)                LIST0027
.*                                                                      LIST0028
.L       ANOP                                                           LIST0029
&LOCNAME DC    AL1(&L),&AL3.(&SYSLIST(&N,2))                            LIST0030
         AGO   .NEW                                                     LIST0031
.NL      AIF   (&B OR &N NE &NA).Z                                      LIST0032
         DC    X'80',&AL3.(&SYSLIST(&N))                                LIST0033
         AGO   .NEW                                                     LIST0034
.Z       DC    X'00',&AL3.(&SYSLIST(&N))                                LIST0035
         AGO   .NEW                                                     LIST0036
.DC      ANOP                                                           LIST0037
&LOCNAME DC    &CH,&AL3.(&SYSLIST(&N,2))                                LIST0038
.*                                                                      LIST0039
.NEW     ANOP                                                           LIST0040
&N       SETA  &N+1                                                     LIST0041
         AIF   (&N LE &NA).DO                                           LIST0042
         MEND                                                           LIST0043