MACRO                                                          00001000
&NAME    DEVGEN &DEVADDR,&DEVTYPE,&DEVNAME,&DEVIPRA,&DEVMISC            00002000
&NAME    DS    0D                                                       00003000
         DC    XL2'&DEVADDR'                                            00004000
         DC    XL2'&DEVTYPE'                                            00005000
         DC    CL4'&DEVNAME'                                            00006000
         AIF   ('&DEVIPRA' EQ '0').ACON                                 00007000
         DC    VL4(&DEVIPRA)                                            00008000
         AGO   .CONT                                                    00009000
.ACON    ANOP                                                           00010000
         DC    AL4(&DEVIPRA)                                            00011000
.CONT    ANOP                                                           00012000
         DC    XL4'&DEVMISC'                                            00013000
         SPACE                                                          00014000
         MEND                                                           00015000