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