Google
 

Trailing-Edge - PDP-10 Archives - BB-D480C-SB_1981 - errova.bli
There are 6 other files named errova.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: *

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

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

%(

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

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

1	723	-----	ADD /NOWARN: SELECTIVITY
2	741	-----	NEW WARNING (E145)

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

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

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

)%

% THIS BIND IS SO THAT THERE ARE NO UNDEFINED GLOBALS CAUSED
	BY THE INCLUSION OF INOUT IN FORTRA  %

GLOBAL  BIND
	WARMSG		=0,
	BACKTY		=0,
	LEXNAM		=0,
	ERRMSG		=0,
	WOPTMS		=0,
	CORMAN		=0;

END
ELUDOM