Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

!COPYRIGHT (C) 1974,1981 BY DIGITAL EQUIPMENT CORPORATION
!AUTHOR: NORMA ABEL / D.TOLMAN/DCE/EGM

MODULE ERRR(RESERVE(0,1,2,3),SREG=#17,FREG=#16,VREG=#15,DREGS=4)=
BEGIN


GLOBAL BIND ERRRV = 6^24 + 0^18 + 6;	! Version Date:	30-Jul-81

!MODULE CONTAINING ALLOCATION ERRORS

%(

***** Begin Revision History *****

***** Begin Version 5B *****

1	723	-----	ADD /NOWARN: SELECTIVITY
2	741	-----	ADD E145
3	747	-----	MAKE ERROR MESSAGES LOWER CASE

***** Begin Version 6 *****

4	1066	EGM	12-May-81	Q10-05202
	Surplant double LINE:xxxx control characters with just one.

6	1115	EGM	30-Jul-81	--------
	Remove error binds for /NOWARN selectivity

***** End Revision History *****

)%

	BIND ERROR=PLIT( ERRMSG GLOBALLY NAMES

![1066] Alter all error string lines, removing the ?A after ?E.

%57%	E57 GLOBALLY INDEXES
		'MVC?E Number of variables does not equal the number of constants in DATA statement?0',
%64%	E64 GLOBALLY INDEXES
		'CUO?E Constant underflow or overflow?0',
%98%	E98 GLOBALLY INDEXES
		'CTR?E Complex terms used in a relational other than EQ or NE?0',
%135%	E135 GLOBALLY INDEXES
		'DXB?E DATA statement exceeds bounds of array ?D?0',

	WOPTMSG  GLOBALLY INDEXES

	WARMSG  GLOBALLY INDEXES

%33%	E33 GLOBALLY INDEXES
		'EXB?E EQUIVALENCE extends COMMON block ?C backward?0',
%48%	E48 GLOBALLY INDEXES
		'MCE?E More than 1 COMMON variable in EQUIVALENCE group?0',
%49%	E49 GLOBALLY INDEXES
		'IED?E Inconsistent EQUIVALENCE declaration?0',
%93%	E93 GLOBALLY INDEXES
		'VNA?E Subscripted variable in EQUIVALENCE, but not an array?0',
%61%	E61 GLOBALLY INDEXES
		'CER?E Compiler error in routine ?B?0',
%26%	E26 GLOBALLY INDEXES
		'ISD?E Illegal subscript expression in DATA statement?0',
%60%	E60 GLOBALLY INDEXES
		'IXM?E Illegal mixed mode arithmetic?0',
%27%	E27 GLOBALLY INDEXES
		'AWN?E Array reference ?C has wrong number of subscripts?0',
%53%	E53 GLOBALLY INDEXES
		'VSE?E EQUIVALENCE subscripts must be integer constants?0',
%103%	E103 GLOBALLY INDEXES
		'SOR?E Subscript out of range?0',

	0);


GLOBAL BIND BACKTYPE =0;

GLOBAL BIND  NXTFIL = 0;

GLOBAL BIND  ENDUNIT = 0,  FINALCHAR = 0;

GLOBAL BIND LEXNAM=0;

END
ELUDOM