.NLIST	TTM
	.TITLE	DISK 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 DISK
;	DRIVER IN RSX-11M.  THIS ROUTINE INITIALIZES THE LABELED COMMON
;	BLOCK /DKERR / 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 DISK 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	DKERNO ( 20 )
;		INTEGER*2	DKERMS ( 20 )
;		COMMON	/ DKERR / DKERNO, DKERMS
;
;**************************************************************************
;
;	NOTE:	SPACE IS LEFT AT THE END OF THE ARRAYS FOR FUTURE EXPANSION.
;
;**************************************************************************
;
;	CONSTRUCTED MAY '77 BY:		J. R. SOPKA
;					APPLIED PHYSICS LAB, HN-10
;					UNIVERSITY OF WASHINGTON
;					SEATTLE, WASHINGTON, 98195
;
;*************************************************************************
;

	.PSECT	DKERR, RW, D, GBL, REL, OVR
;
	.MCALL	IOERR$
	IOERR$
;
DKERNO:	.BYTE	IE.ABO, IE.ALN, IE.BLK, IE.BYT, IE.DNR
	.BYTE	IE.IFC, IE.NLN, IE.NOD, IE.OFL, IE.OVR, IE.PRI, IE.SPC
	.BYTE	IE.VER, IE.WLK,  -127.,  -127.,  -127.,  -127.
	.BYTE	 -127.,  -127.
;
	.NLIST	BEX
MTERMS:	.RAD50	"ABOALNBLKBYTDNR"
	.RAD50	"IFCNLNNODOFLOVRPRISPC"
	.RAD50	"VERWLKUNKUNKUNKUNK"
	.RAD50	"UNKUNK"
;
;********************************************************************
;
;	.THE
	.END