.NLIST	TTM
 
	.TITLE	MAG TAPE I/O ERROR CODES
;***********************************************************************
;
;  THIS ROUTINE IS A BLOCK DATA  SUBPROGRAM TO PROVIDE FORTRAN ACCESS
;  TO THE I/O ERROR CODES RETURNED IN THE 1ST WORD OF THE I/O STATUS
;  BLOCK FOLLOWING ERROR COMPLETION OF AN I/O REQUEST TO THE MAGNETIC
;  TAPE DRIVER IN RSX-11M.  THIS ROUTINE INITIALIZES THE LABELED COMMON
;  BLOCK  / MTERR /  TO CONTAIN THE VALUES OF THE ERROR CODES AND A
;  3 CHARACTER RADIX-50 DIAGNOSTIC TEXT FOR EACH ERROR CODE.
;
;  AN EXPLANATION OF THESE CODES IS INCLUDED IN THE MAGNETIC TAPE DRIVER
;  CHAPTER OF THE RSX-11M I/O DRIVERS REFERENCE MANUAL.
;
;-----------------------------------------------------------------------
;
;  ACCESS TO THESE CODES IS OBTAINED BY INCLUDING THE FOLLOWING
;  STATEMENTS IN A FORTRAN MODULE LINKED WITH THIS MODULE :
;
;	LOGICAL*1  MTERNO ( 20 )
;	INTEGER*2  MTERMS ( 20 )
;	COMMON  / MTERR /  MTERNO, MTERMS
;
;***********************************************************************
;
;  NOTE:  SPACE IS LEFT AT THE END OF THE ARRAYS FOR FUTURE EXPANSION.
;
;***********************************************************************
;
;  CONSTRUCTED APRIL '77 BY :	J. R. SOPKA
;					APPLIED PHYSICS LAB, HN-10
;					UNIVERSITY OF WASHINGTON
;					SEATTLE, WASHINGTON, 98195
;
;***********************************************************************
;

	.PSECT	MTERR, RW, D, GBL, REL, OVR
;
	.MCALL	IOERR$
	IOERR$
;
MTERNO:	.BYTE	IE.ABO, IE.BBE, IE.BYT, IE.DAA, IE.DAO, IE.DNA, IE.DNR
	.BYTE	IE.EOF, IE.EOT, IE.EOV, IE.FHE, IE.IFC, IE.OFL, IE.SPC
	.BYTE	IE.VER, IE.WLK,  -127.,  -127.,  -127.,  -127.
;
	.NLIST	BEX
MTERMS:	.RAD50	"ABOBBEBYTDAADAODNADNR"
	.RAD50	"EOFEOTEOVFHEIFCOFLSPC"
	.RAD50	"VERWLKUNKUNKUNKUNK"
;
;***********************************************************************
;
;	.THE
	.END