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) DIGITAL EQUIPMENT CORPORATION 1974, 1983
!AUTHOR: NORMA ABEL / D. TOLMAN/DCE/EGM/SRM/TFV

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


GLOBAL BIND ERRCV = 7^24 + 0^18 + #1522;	! Version Date:	29-Mar-82

%(

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

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

1	723	-----	ADD /NOWARN: SELECTIVITY
2	732	-----	ADD GLOBAL SAVSTMNT FOR COMSUB
3	741	-----	ADD ERROR E145
4	747	-----	MAKE ERROR MESSAGES LOWER CASE

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

5	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

***** Begin Version 7 *****

7	1500	SRM	11-Feb-82
	Add warning E181 (CHO) for attempt to compile programs with character
	data /OPT

1522	TFV	29-Mar-82
	Consolidate E176 and E165 (substring  bound out of range).

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

)%

	! Module containing skeleton optimization errors

	BIND ERROR = UPLIT(

	ERRMSG GLOBALLY NAMES

	!***************************************************************
	! Warning messages
	!***************************************************************

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

%64%	E64 GLOBALLY INDEXES
		'CUO?E Constant underflow or overflow?0',
%181%	E181 GLOBALLY INDEXES	![1500]
		'CHO?E Global optimization not yet supported with character data - /OPT ignored?0',

%202%	E202 GLOBALLY INDEXES
		'ACB?E Argument out of range for CHAR, high order bits ignored?0',

	WOPTMSG GLOBALLY INDEXES

	!***************************************************************
	! Warnings which may affect optimized code
	!***************************************************************

	WARMSG GLOBALLY INDEXES		! End warning messages

	!*************************************************************
	! Fatal error messages
	!*************************************************************

%165%	E165 GLOBALLY INDEXES	![1522]
		'IOR?E Substring bound out of range?0',
	0);

GLOBAL BIND
		SAVSTMT = 0,	![732] For EXPUNGE in COMSUB
		BACKTYPE = 0,
		NXTFIL = 0,
		ENDUNIT = 0,
		FINALCHAR = 0,
		LEXNAM = 0;

END
ELUDOM