Trailing-Edge
-
PDP-10 Archives
-
BB-D480C-SB_1981
-
errovg.bli
There are 6 other files named errovg.bli in the archive. Click here to see a list.
!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 ERRG(RESERVE(0,1,2,3),SREG=#17,FREG=#16,VREG=#15,DREGS=4)=
BEGIN
!MODULE CONTAINING CODE GENERATION ERRORS
GLOBAL BIND ERRGV = 6^24 + 0^18 + 7; ! Version Date: 30-Jul-81
%(
***** Begin Revision History *****
***** Begin Version 5 *****
1 461 19477 ADD ERROR MESSAGE FOR PROGRAM TOO LARGE
***** Begin Version 5B *****
2 674 11803 ADD ERROR MESSAGE FOR TOO DEEPLY NESTED DO LOOPS
3 723 ----- ADD /NOWARN: SELECTIVITY
4 741 ----- ADD E145
5 747 ----- MAKE ERROR MESSAGES LOWER CASE
***** Begin Version 6 *****
6 1066 EGM 12-May-81 Q10-05202
Surplant double LINE:xxxx control characters with just one.
7 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.
%64% E64 GLOBALLY INDEXES
'CUO?E Constant underflow or overflow?0',
%131% E131 GLOBALLY INDEXES
'VND?E FUNCTION return value is never defined?0',
WOPTMSG GLOBALLY INDEXES
WARMSG GLOBALLY INDEXES % END OF WARNINGS %
%33% E33 GLOBALLY INDEXES
'EXB?E EQUIVALENCE extends COMMON block ?C backward?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',
%91% E91 GLOBALLY INDEXES
'ENF?E Label ?A must refer to an executable statement, not a FORMAT?0',
%48% E48 GLOBALLY INDEXES
'MCE?E More than 1 COMMON variable in EQUIVALENCE group?0',
%96% E96 GLOBALLY INDEXES
'LNI?E List directed I/O with no I/O list?0',
%130% E130 GLOBALLY INDEXES
'MWL?E Attempt to define multiple RETURN without FORMAT label argument?0',
%142% E142 GLOBALLY INDEXES
'PTL?E Program too large?0',
%144% E144 GLOBALLY INDEXES
'DDN?E DO loops too deeply nested - reduce nesting?0', ![674]
0);
GLOBAL BIND BACKTYPE =0;
GLOBAL BIND NXTFIL = 0;
GLOBAL BIND ENDUNIT = 0, FINALCHAR = 0;
GLOBAL BIND LEXNAM=0;
END
ELUDOM