Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 5/1	;05C1
	!COPYRIGHT (C) 1973,1981 BY DIGITAL EQUIPMENT CORPORATION
	!AUTHOR: F.J. INFANTE/HPW/ D. B. TOLMAN/DCE/TFV
 WIT
	!COPYRIGHT (C) 1973,1981,1982 BY DIGITAL EQUIPMENT CORPORATION
	!AUTHOR: F.J. INFANTE/HPW/ D. B. TOLMAN/DCE/TFV/EGM
 REP 20/1	;05C2
	GLOBAL BIND STA0V = 6^24 + 0^18 + 55;		! Version Date:	27-Jul-81
 WIT
	GLOBAL BIND STA0V = 6^24 + 0^18 + #1153;		! Version Date:	3-Jun-82
 INS 58/1	;05C3
	***** End V6 Development *****

	70	1150	DCE	7-Apr-82	20-17292
		For an ASSIGN statement, flag the label as having been ASSIGNed.
		This prevents the optimizer from getting illegal jumps into loops
		when not warranted.

	1153	EGM	3-Jun-82
		Add appropriate calls to SAVSPACE to free up systax list items that
		are no longer needed.

 INS 154/1	;05C4
	![1150] Mark this label as having been ASSIGNed.
	%[1150]% R1_.R2[ASILBL]; R1[SNASSIGNED]_1;
 INS 468/1	;05C5
	%[1153]%	SAVSPACE(.R2[ELMNT]<LEFT>,.R2[ELMNT]);
 INS 475/1	;05C6
	%[1153]%		SAVSPACE(.R3[ELMNT]<LEFT>,.R3[ELMNT]);
 REP 480/1	;05C7
	%[760]%			END;
	%[760]%		END;
 WIT
	%[1153]%			SAVSPACE(.R3[ELMNT2]<LEFT>,.R3[ELMNT2])
	%[760]%			END;
	%[1153]%		SAVSPACE(.R3<LEFT>,@R3)
	%[760]%		END;
	%[1153]%	SAVSPACE(.R2<LEFT>,@R2);
 INS 489/1	;05C8
	%[1153]%		SAVSPACE(.R2[ELMNT1]<LEFT>,.R2[ELMNT1]);
	%[1153]%		SAVSPACE(.R2<LEFT>,@R2)
 REP 501/1	;05C9
	%[760]%		END;
	%[760]%	END;
 WIT
	%[1153]%		SAVSPACE(.R2[ELMNT]<LEFT>,.R2[ELMNT]);
	%[1153]%		SAVSPACE(.R2<LEFT>,@R2)
	%[760]%		END;
	%[760]%	END;
	%[1153]% SAVSPACE(.R1<LEFT>,@R1);
	%[1153]% SAVSPACE(.L1<LEFT>,@L1);
 SUM 92263