MACRO                                                          00050002
         IECVUCBA  &UCBNO,&TYPEA,&BMP,&EVAR,&EVAW,&OPTNS,&WCGMNO        00100004
.*                                                             @Y40MPLG 00120004
         AIF   ('&TYPEA'(5,2) NE '80').TSTUR TEST FOR TAPE              00150002
.********************************************************************** 00200002
.*                                                                    * 00250002
.*   THIS IS THE TAPE UCB EXTENSION; IT IS FOUR FULLWORDS LONG AND    * 00300002
.*   CONTAINS THE FOLLOWING INFORMATION.                              * 00350002
.*        UCBCTD,UCBTRT,UCBTWT                                        * 00400002
.*        UCBTR,UCBTW,UCBSIO                                          * 00450002
.*        UCBPR,UCBPW,UCBNB,UCBMS                                     * 00500002
.*        UCBERG,UCBCLN                                               * 00550002
.********************************************************************** 00600002
UCBW&UCBNO  DC    X'0000',AL1(&EVAR),AL1(&EVAW),F'0'                    00650002
            DC    D'0'                                                  00700002
         AGO   .END                                                     00750002
.********************************************************************** 00800002
.*                                                                    * 00850002
.*   THIS SECTION SETS UP THE PRINTER AND 3540 EXTENSIONS.     @Y30OPLA 00900003
.*   IF IT IS A 3540 DISKET RDR/WTR OR A 1403 PRINTER ONE      @Y30OPLA 00920003
.*   DOUBLEWORD IS GIVEN, IF IT IS A 3211 TWO DOUBLEWORDS             * 00950003
.*   ARE GIVEN.                                                       * 01000003
.********************************************************************** 01050002
.TSTUR   ANOP                                                           01100002
         AIF   ('&TYPEA'(7,2) EQ '0E').A3800 3800 DEVICE ?     @Y40MPLG 01120004
UCBW&UCBNO DC  D'0'                                                     01150002
         AIF   ('&TYPEA'(7,2) EQ '09').A3211  TST FOR 3211              01200002
         AGO   .END                                                     01250002
.A3211   DC    1D'0'                                                    01300002
         AGO   .END                                                     01304004
.********************************************************************** 01308004
.*                                                             @Y40MPLG 01312004
.*   THIS SECTION SETS UP THE 3800 PRINTER EXTENSION.          @Y40MPLG 01316004
.*    BYTE 0 - UCBOPTNS - OPTIONAL FEATURE                     @Y40MPLG 01320004
.*    BYTE 1 - UCBCGMN0 - NUMBER OF WCGM'S                     @Y40MPLG 01324004
.*    BYTE 2 - RESERVED                                        @Y40MPLG 01328004
.*    BYTE 3 - UCBACTIV - ACTIVE FEATURES                      @Y40MPLG 01332004
.*   THE FOLLOWING 4 BYTE FIELDS ARE INITIALIZED TO BLANKS:    @Y40MPLG 01336004
.*    UCBCGMID, UCBCHAR1, UCBCHAR2, UCBCHAR3, UCBCHAR4,        @Y40MPLG 01340004
.*    UCBFCBNM, UCBIMAGE                                       @Y40MPLG 01344004
.*                                                             @Y40MPLG 01348004
.********************************************************************** 01352004
.A3800   ANOP                                                  @Y40MPLG 01354004
UCBW&UCBNO DC  XL1'&OPTNS',XL1'&WCGMNO',XL2'0000'              @Y40MPLG 01356004
         DC    CL28' '                                         @Y40MPLG 01360004
         DC    2F'0'                                           @Y40MPLG 01364004
.END     ANOP                                                           01380003
         MEND                                                           01400002