ibm:vm370-lib:macro:tapectl.macro_src
Table of Contents
TAPECTL Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- TAPECTL.MACRO.txt
- 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
ibm/vm370-lib/macro/tapectl.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator