Trailing-Edge
-
PDP-10 Archives
-
FORTRAN-10_V7wLink_Feb83
-
errovr.bli
There are 6 other files named errovr.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) DIGITAL EQUIPMENT CORPORATION 1974, 1983
!AUTHOR: NORMA ABEL / D.TOLMAN/DCE/EGM/CKS/CDM
MODULE ERRR(RESERVE(0,1,2,3),SREG=#17,FREG=#16,VREG=#15,DREGS=4)=
BEGIN
GLOBAL BIND ERRRV = 7^24 + 0^18 + #1675; ! Version Date: 11-Nov-82
%(
***** 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
***** Begin Version 6A *****
1151 EGM 12-Apr-82
Add error 142, Program too large
1157 EGM 11-Jun-82
ALter error 57 (FTNMVC) to indicate whether the data item list is
longer or shorter than the constant list.
***** Begin Version 7 *****
5 1242 CKS 29-Jul-81
Add E160-E161, messages for character constants in DATA statements.
Add E163, illegal combination of character and numeric data.
6 1262 CKS 21-Sep-81
Add E165-E168
7 1416 CKS/CDM 18-Dec-81
Add E173, E175
10 1431 CKS/CDM 18-Dec-81
Add E177
1474 TFV 25-Mar-82
Add error E193 - (LSC) Length star concatenation not yet
supported in this context.
1511 CDM 2-Apr-82
Add E192. Also, in E167, change ?C to ?D to be the same as
ERROUT.BLI. Add "s" to "backward" to be compatable with
ERROUT.BLI for E33.
1531 CDM 28-June-82
Add E197 for SAVE stmt processing.
1535 CDM 1-June-82
Add E202, E203
1601 CKS/CDM 12-Jul-82
Add E206
1620 CKS/CDM 1-Sept-82
ADD E208
1675 RVM 11-Nov-82 Q10-03032
Implement a suggestion to include more information in the
warning message E168.
***** End Revision History *****
)%
! Module containing allocation errors
BIND ERROR = UPLIT(
ERRMSG GLOBALLY NAMES
!***************************************************************
! Warning messages
!***************************************************************
%1066% ! Alter all error string lines, removing the ?A after ?E.
%57% E57 GLOBALLY INDEXES
'MVC?E Number of variables ?B the number of constants in DATA statement?0', ![1157]
%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',
%168% E168 GLOBALLY INDEXES
'CNM?E Character and numeric variables ?B?0', ![1675]
%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
!*************************************************************
%33% E33 GLOBALLY INDEXES
'EXB?E EQUIVALENCE extends COMMON block ?C backwards?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',
%142% E142 GLOBALLY INDEXES ![1151]
'PTL?E Program too large?0', ![1151]
%160% E160 GLOBALLY INDEXES
'NCC?E Can''t store numeric constant in character variable ?D?0',
%161% E161 GLOBALLY INDEXES
'CSS?E Can''t split string across numeric and character variables?0',
%162% E162 GLOBALLY INDEXES
'SNC?E Substring of non-CHARACTER variable?0',
%163% E163 GLOBALLY INDEXES
'ICN?E Illegal combination of character and numeric data?0',
%165% E165 GLOBALLY INDEXES
'IOR?E Substring bound out of range?0',
%166% E166 GLOBALLY INDEXES
'NWB?E Numeric variable must be aligned on word boundary?0',
%167% E167 GLOBALLY INDEXES
'NWW Numeric variable ?D must be aligned on word boundary?0',
%173% E173 GLOBALLY INDEXES
'IBD?E Illegal substring bound in DATA statement?0',
%175% E175 GLOBALLY INDEXES
'ZLD?E Zero-trip DO loop illegal in DATA statement?0',
%192% E192 GLOBALLY INDEXES ![1511]
'SSC?E ?B ?D illegal in SAVE statement?0',
%193% E193 GLOBALLY INDEXES ![1474]
'LSC?E Length star concatenation not yet supported in this context?0',
%194% E194 GLOBALLY INDEXES ![1522]
'NLS?E ?D may not be declared length star?0',
%197% E197 GLOBALLY INDEXES ![1531]
'SSC?E ?D EQUIVALENCE-d to COMMON is illegal in SAVE statement?0',
%206% E206 GLOBALLY INDEXES
'FOO?E Illegal operator for type character?0',
%208% E208 GLOBALLY INDEXES
'IAN?E Illegal assignment between character and numeric data?0',
0);
GLOBAL BIND
BACKTYPE = 0,
NXTFIL = 0,
ENDUNIT = 0,
FINALCHAR = 0,
LEXNAM = 0;
END
ELUDOM