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: D. B. TOLMAN/MD/JNG/SJW/DCE/RDH/TFV/EGM
 WIT
	!COPYRIGHT (C) 1973,1982 BY DIGITAL EQUIPMENT CORPORATION
	!AUTHOR: D. B. TOLMAN/MD/JNG/SJW/DCE/RDH/TFV/EGM/PY
 REP 11/1	;05C2
	GLOBAL BIND DRIVEV = 6^24 + 0^18 + 30;	! Version Date:	23-Jul-81
 WIT
	GLOBAL BIND DRIVEV = 6^24 + 0^18 + #1162;	! Version Date:	29-Jun-82
 INS 107/1	;05C3
	***** End V6 Development *****

	36	1147	EGM	5-Jan-82
		Make LINELINE agree with ISN during call to produce NED warning.
		Prevents ICE introduced by 1066 for RETURN^Z.

	1162	PY	29-Jun-82
		Zero the freelist pointers. Prevents problem with error during
		first call to LEXICAL. Zero between .JBFF and .JBREL, which
		may be allocated for TOPS-20 TTY buffers.

 REP 152/1	;05C4
	%[1066]%	WARNERR ( 0, E69<0,0> );
 WIT
	%[1147]%	LOCAL SAVELINELINE;
	%[1147]%	EXTERNAL LINELINE;
	%[1147]%	SAVELINELINE _ .LINELINE;	! Save LEXICA's line number
	%[1147]%	LINELINE _ 0;			! Line no. must = ISN of 0
	%[1066]%	WARNERR ( 0, E69<0,0> );
	%[1147]%	LINELINE _ .SAVELINELINE;	! Restore actual line number
 INS 524/1	;05C5
	![1162]  CLEAR FROM JOBFF THROUGH JOBREL
	%[1162]%
	%[1162]% IF .JOBREL  GEQ  .JOBFF  THEN
	%[1162]% BEGIN
	%[1162]%   	(.JOBFF)<FULL> _ 0;
	%[1162]%	IF .JOBREL  GTR  .JOBFF  THEN
	%[1162]%	BEGIN
	%[1162]%		T2<LEFT> _ .JOBFF; T2<RIGHT> _ .JOBFF+1;
	%[1162]%		BLT(T2,.JOBREL)
	%[1162]%	END
	%[1162]% END;
	%[1162]%
	![1162]  ZERO THE FREE LIST, IN CASE OF ERROR DURING FIRST LEXICA CALL
	%[1162]%
	%[1162]% FREELIST[0] _ 0;
	%[1162]% T2 _ FREELIST[0]<0,0>^18+FREELIST[1]<0,0>;
	%[1162]% BLT (T2,FREELIST[9]);

 SUM 224689