Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cgdo.c13
There is 1 other file named cgdo.c13 in the archive. Click here to see a list.
 REP 24/1	;13C1
	GLOBAL BIND CGDOV = #10^24 + 0^18 + #2541;	! Version Date:	1-Aug-85
 WIT
	GLOBAL BIND CGDOV = #10^24 + 0^18 + #2563;	! Version Date:	17-Dec-85
 INS 208/1	;13C2
	2563	MEM	17-Dec-85
		When a subprogram has a subprogram name as a formal parameter, the
		the indirect bit is set in the STE for the subprogram name after the
		address of the subprogram has been moved into the dummy argument.
		However, if this subprogram has an entry statement (also passing the
		subprogram name as a parameter) the indirect bit in the STE must be
		ignored when moving the address of the subprogram into the dummy 
		argument.

 REP 228/5	;13C3
	%2317%				THEN CGOPGEN ();
 WIT
	%2563%				THEN
	%2563%				BEGIN
	%2563%					LOCAL	IBIT;
	%2563%					IBIT = .A1NODE[TARGIF];
	%2563%					A1NODE[TARGIF] = 0;
	%2563%	 				CGOPGEN ();
	%2563%					A1NODE[TARGIF] = .IBIT;
	%2563%				END;
 SUM 75094