.NLIST	TTM
 
	.TITLE	EXEC DIRECTIVE STATUS CODES (V03)
;***********************************************************************
;
;  THIS IS A BLOCK DATA SUBPROGRAM TO PROVIDE FORTRAN ACCESS TO THE
;  STANDARD DIRECTIVE ERROR STATUS CODES RETURNED BY THE RSX-11M V03
;  EXECUTIVE. THIS ROUTINE INITIALIZES THE LABELED COMMON BLOCK
;  / DRERR / TO CONTAIN THE VALUES OF THE SUCCESS CODES, THE ERROR
;  CODES AND A 3 CHARACTER RADIX-50 DIAGNOSTIC TEXT FOR EACH ERROR CODE.
;
;  EXPLANATION OF THESE ERROR CODES IS INCLUDED WITH EACH DIRECTIVE
;  DESCRIPTION IN THE RSX-11M EXECUTIVE REFERENCE MANUAL.
;
;-----------------------------------------------------------------------
;
;  ACCESS TO THESE VALUES IS OBTAINED BY INCLUDING THE FOLLOWING
;  STATEMENTS IN A FORTRAN MODULE LINKED WITH THIS MODULE :
;
;	INTEGER*2  IXERNO ( 28 ),  IXERMS ( 28 )
;	COMMON  / DRERR /  ISSUC, ISCLR, ISSET, IXERNO, IXERMS
;
;***********************************************************************
;
;  NOTE: SPACE IS LEFT AT THE END OF THE ARRAYS FOR FUTURE EXPANSION.
;
;***********************************************************************
;
;  CONSTRUCTED MARCH '77 BY :		J. R. SOPKA
;					APPLIED PHYSICS LAB, HN-10
;					UNIVERSITY OF WASHINGTON
;					SEATTLE, WASHINGTON, 98195
;
;***********************************************************************
;

	.PSECT	DRERR, RW, D, GBL, REL, OVR
;
	.MCALL	DRERR$
	DRERR$
;
ISSUC:	IS.SUC
ISCLR:	IS.CLR
ISSET:	IS.SET
;
IXERNO:	IE.UPN, IE.INS, IE.ULN, IE.HWR, IE.ACT, IE.ITS, IE.CKP
	IE.PRI, IE.AST, IE.ALG, IE.WOV, IE.NVR, IE.NVW, IE.LNL
	IE.IDU, IE.ITI, IE.PNS, IE.IPR, IE.ILU, IE.IEF, IE.ADP
	IE.SDP,  -127.,  -127.,  -127.,  -127.,  -127.,  -127.
;
	.NLIST	BEX
IXERMS:	.RAD50	"UPNINSULNHWRACTITSCKP"
	.RAD50	"PRIASTALGWOVNVRNVWLNL"
	.RAD50	"IDUITIPNSIPRILUIEFADP"
	.RAD50	"SDPUNKUNKUNKUNKUNKUNK"
;
;***********************************************************************
;
;	.THE
	.END