Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99h-bb - sta0.c11
There are 2 other files named sta0.c11 in the archive. Click here to see a list.
 REP 24/1	;11C1
	GLOBAL BIND STA0V = #10^24 + 0^18 + #2507;	! Version Date: 20-Dec-84
 WIT
	GLOBAL BIND STA0V = #10^24 + 0^18 + #2534;	! Version Date: 13-Jun-85
 INS 356/1	;11C2
	2534	MEM	13-Jun-85
		In SUBASSIGN set the STORD bit in the left hand expression of the
		assignment and delete the call to NAMSET.

 INS 398/1	;11C3
	%2534%	CREFIT,
 REP 39/4	;11C4

	%1661%	! If LHS is a substring of a scalar, call NAMSET to set STORD for it

	%1661%	VAR = .LHS[ARG4PTR];
	%1661%	IF .VAR[OPRCLS] EQL DATAOPR
	%1661%	THEN IF NAMSET(VARIABL1,.VAR) LSS 0
	%1661%	     THEN RETURN .VREG;
 WIT
	%1661%	VAR = .LHS[ARG4PTR];
	%2534%	VAR[IDATTRIBUT(STORD)] = 1;	
	%2534%	IF  .FLGREG<CROSSREF>  THEN  CREFIT( .VAR, SETT );
 SUM 122395