Trailing-Edge
-
PDP-10 Archives
-
BB-D480C-SB_1981
-
errovc.bli
There are 6 other files named errovc.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 ERRC(RESERVE(0,1,2,3),SREG=#17,FREG=#16,VREG=#15,DREGS=4)=
BEGIN
GLOBAL BIND ERRCV = 6^24 + 0^18 + 6; ! Version Date: 30-Jul-81
!MODULE CONTAINING SKELETON OPTIMIZATION ERRORS
%(
***** 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
***** 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',
WOPTMSG GLOBALLY INDEXES
WARMSG GLOBALLY INDEXES % END OF WARNING MESSAGES %
0);
GLOBAL BIND SAVSTMT = 0; ![732] FOR EXPUNGE IN COMSUB
GLOBAL BIND BACKTYPE =0;
GLOBAL BIND NXTFIL = 0;
GLOBAL BIND ENDUNIT = 0, FINALCHAR = 0;
GLOBAL BIND LEXNAM=0;
END
ELUDOM