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