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