MACRO 00001000
&LABEL ADTGEN &MODE,&NEXT,&DEV,&FLAG 00002000
GBLC &T 00003000
&LABEL DS 0D 00004000
DC CL6' ' 00005000
DC 2X'00' 00006000
AIF ('&NEXT' EQ '0').LAST 00007000
DC &T.(&NEXT) 00008000
AGO .CONT 00009000
.LAST ANOP 00010000
DC A(0) 00011000
.CONT ANOP 00012000
DC &T.(&DEV) 00013000
DC 13F'0' 00014000
DC CL1'&MODE' 00015000
DC CL1' ' 00016000
DC XL1'&FLAG' 00017000
DC XL1'00' 00018000
AIF ('&FLAG' EQ '41').RODSK 00019000
DC 9F'0' 00020100
DC 2H'0' 00021000
AGO .EXIT 00022000
.RODSK ANOP 00023000
DC 5D'0' 00024100
.EXIT ANOP 00025000
SPACE 00026000
MEND 00027000