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