MACRO                                                          00001000
&LABEL   TAPECTL &FUNC,&ADDR,&MODE=,&ERROR=*+4                          00002000
         GBLC  &DMSMODE                                                 00003000
         LCLC  &TAPE                                                    00004000
         AIF   (T'&FUNC EQ 'O').ERR1                                    00005000
         AIF   ('&FUNC' EQ 'REW').FNOK                                  00006000
         AIF   ('&FUNC' EQ 'RUN').FNOK                                  00007000
         AIF   ('&FUNC' EQ 'ERG').FNOK                                  00008000
         AIF   ('&FUNC' EQ 'BSR').FNOK                                  00009000
         AIF   ('&FUNC' EQ 'BSF').FNOK                                  00010000
         AIF   ('&FUNC' EQ 'FSR').FNOK                                  00011000
         AIF   ('&FUNC' EQ 'FSF').FNOK                                  00012000
         AIF   ('&FUNC' EQ 'WTM').FNOK                                  00013000
         MNOTE 8,'INVALID FUNCTION SPECIFIED'                           00014000
         MEXIT                                                          00015000
.FNOK    ANOP                                                           00016000
&TAPE    SETC  'TAP1'                                                   00017000
         AIF   (T'&ADDR EQ 'O').NOAD                                    00018000
         AIF   ('&ADDR'(1,3) NE 'TAP').NTAP                             00019000
         AIF   (K'&ADDR NE 4).ERR2                                      00020000
         AIF   ('&ADDR'(4,1) LT '1' OR '&ADDR'(4,1) GT '4').ERR2        00021000
&TAPE    SETC  '&ADDR'                                                  00022000
         AGO   .NOAD                                                    00023000
.NTAP    ANOP                                                           00024000
         AIF   (K'&ADDR NE 3).ERR2                                      00025000
&TAPE    SETC  '0&ADDR'                                                 00026000
.NOAD    ANOP                                                           00027000
&DMSMODE SETC  '0'                                                      00028000
         DMSTMS &MODE(1),&MODE(2),&MODE(3)                              00029000
         CNOP  0,4                                                      00030000
&LABEL   BAL   1,DMS&SYSNDX.A                                           00031000
         DC    CL8'TAPEIO'                                              00032000
         DC    CL8'&FUNC'                                               00033000
         DC    CL4'&TAPE'                                               00034000
         DC    BL1'&DMSMODE',AL3(0)                                     00035000
         DC    2F'0'                                                    00036000
DMS&SYSNDX.A SVC 202                                                    00037000
         DC    AL4(&ERROR)                                              00038000
         MEXIT                                                          00039000
.ERR1    MNOTE 8,'NO FUNCTION NAME SPECIFIED'                           00040000
         MEXIT                                                          00041000
.ERR2    MNOTE 8,'INVALID DEVICE ADDRESS SPECIFIED'                     00042000
         MEND                                                           00043000