Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - act1.c11
There are 2 other files named act1.c11 in the archive. Click here to see a list.
 REP 26/1	;11C1
	GLOBAL BIND ACT1V = #10^24 + 0^18 + #2520;	! Version Date: 12-Feb-85
 WIT
	GLOBAL BIND ACT1V = #10^24 + 0^18 + #2531;	! Version Date: 30-Apr-85
 INS 524/1	;11C2
	2531	CDM	10-Apr-85
		Produce an error message if trying to put a subroutine name in an
		I/O statement list.

 INS 152/2	;11C3
	![2531] moved from NAMCHK
	! For use with the E15 "xxx is not yyy" error message

	BIND	DUMO  =  PLIT (

		VAORAY NAMES 'a variable or array?0',
		VARIB NAMES  'a scalar variable?0',
		AAY   NAMES  'an array?0',
		AFN   NAMES  'a subprogram name?0'	);

 DEL 26/6	;11C4
	BIND	DUMO  =  PLIT (

			VAORAY NAMES 'a variable or array?0',
			VARIB NAMES  'a scalar variable?0',
			AAY   NAMES  'an array?0',
			AFN   NAMES  'a subprogram name?0'	);

 REP 33/21	;11C5
		![rvm] There is an error here.There needs to be check for external name
 WIT
	%2531%	! Check for subroutine name!  Function references (with paren's)
	%2531%	! are fine, but subroutine names or function names without paren's
	%2531%	! are definitely not allowable in I/O lists.

	%2531%	IF .NODE[OPRCLS] EQL DATAOPR		! Symbol name
	%2531%	THEN IF .NODE[IDATTRIBUT(INEXTERN)]	! User-callable
	%2531%	THEN FATLEX (VAORAY, NODE[IDSYMBOL], E15<0,0> );
 SUM 242144