MACRO                                                          00001000
         ADTSECT &SECT                                                  00002000
         GBLC  &T                                                       00003000
         AIF   ('&SECT' EQ 'CSECT').CSECT                               00004000
&T       SETC  'V'                                                      00005000
ADTSECT  DSECT                                                          00006000
         AGO   .CONT                                                    00007000
.CSECT   ANOP                                                           00008000
&T       SETC  'A'                                                      00009000
ADTSECT  DS    0D                                                       00010000
         ENTRY ADTSECT                                                  00011000
.CONT    ANOP                                                           00012000
*                                                                       00013000
*        ACTIVE DISK TABLE                                              00014000
*                                                                       00015000
ADTA     ADTGEN A,ADTB,ADISK,00                                         00016000
ADTB     ADTGEN B,ADTC,BDISK,00                                         00017000
ADTC     ADTGEN C,ADTD,CDISK,00                                         00018000
ADTD     ADTGEN D,ADTE,DDISK,00                                         00019000
ADTE     ADTGEN E,ADTF,EDISK,00                                         00020000
ADTF     ADTGEN F,ADTG,FDISK,00                                         00021000
ADTG     ADTGEN G,ADTH,GDISK,00                                HRC002DS 00022090
ADTH     ADTGEN H,ADTI,HDISK,00                                HRC002DS 00022180
ADTI     ADTGEN I,ADTJ,IDISK,00                                HRC002DS 00022270
ADTJ     ADTGEN J,ADTK,JDISK,00                                HRC002DS 00022360
ADTK     ADTGEN K,ADTL,KDISK,00                                HRC002DS 00022450
ADTL     ADTGEN L,ADTM,LDISK,00                                HRC002DS 00022540
ADTM     ADTGEN M,ADTN,MDISK,00                                HRC002DS 00022630
ADTN     ADTGEN N,ADTO,NDISK,00                                HRC002DS 00022720
ADTO     ADTGEN O,ADTP,ODISK,00                                HRC002DS 00022810
ADTP     ADTGEN P,ADTQ,PDISK,00                                HRC002DS 00022900
ADTQ     ADTGEN Q,ADTR,QDISK,00                                HRC002DS 00022990
ADTR     ADTGEN R,ADTS,RDISK,00                                HRC002DS 00023080
ADTS     ADTGEN S,ADTT,SDISK,41                                HRC002DS 00023170
ADTT     ADTGEN T,ADTU,TDISK,00                                HRC002DS 00023260
ADTU     ADTGEN U,ADTV,UDISK,00                                HRC002DS 00023350
ADTV     ADTGEN V,ADTW,VDISK,00                                HRC002DS 00023440
ADTW     ADTGEN W,ADTX,WDISK,00                                HRC002DS 00023530
ADTX     ADTGEN X,ADTY,XDISK,00                                HRC002DS 00023620
ADTY     ADTGEN Y,ADTZ,YDISK,00                                         00024000
ADTZ     ADTGEN Z,0000,ZDISK,00                                HRC002DS 00025490
         EJECT                                                          00026000
         MEND                                                           00027000