Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93h-bb - 7,6/ap019/listng.c19
There are 9 other files named listng.c19 in the archive. Click here to see a list.
 REP 24/1	;19C1
	GLOBAL BIND LISTNV = #11^24 + 0^18 + #4564; 	!Version Date:	13-Feb-87
 WIT
	GLOBAL BIND LISTNV = #11^24 + 0^18 + #4602; 	!Version Date:	13-Jan-88
 INS 216/1	;19C2
	4602	DCE	13-Jan-88
		Remove edit 4564.  It only worked in the simplest case, and there
		were several other problems which are now corrected in LEXICA and
		LEXCLA.

 REP 230/1	;19C3
	%4564%	CLASLINE,
 WIT
	!%4602%	CLASLINE,
 REP 45/16	;19C4
	%4564%	LOCAL NOCODEYET;
 WIT
	!%4602%	LOCAL NOCODEYET;
 REP 68/16	;19C5
	%4564%	NOCODEYET = 1;
 WIT
	!%4602%	NOCODEYET = 1;
 REP 76/16	;19C6
	%2500%		IF .HASCODE(CELL)
	%4564%		THEN 
	%4564%		BEGIN
	%4564%			BLTLINL(.CELL);		! Copy the code line
	%4564%			IF .CLASLINE GTR .LINENUM(CELL) !Found code on line
	%4564%			THEN NOCODEYET = 0;	! after CLASLINE
	%4564%		END
	%4564%		ELSE IF .NOCODEYET		! If haven't reached code after
	%4564%		THEN CLASLINE = .LINENUM(CELL); ! CLASLINE then increment CLASLINE
 WIT
	%4602%		IF .HASCODE(CELL) THEN BLTLINL(.CELL); ! Copy the code line
 SUM 188544