Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93h-bb - 7,6/ap016/listng.c16
There are 8 other files named listng.c16 in the archive. Click here to see a list.
 REP 19/1	;16C1
	!AUTHOR: D. B. TOLMAN/DCE/SJW/RDH/TFV/EGM/CDM/AHM/PLB/PY/AlB
 WIT
	!AUTHOR: D. B. TOLMAN/DCE/SJW/RDH/TFV/EGM/CDM/AHM/PLB/PY/AlB/MEM
 REP 24/1	;16C2
	GLOBAL BIND LISTNV = #11^24 + 0^18 + #4527; 	!Version Date:	1-Jan-86
 WIT
	GLOBAL BIND LISTNV = #11^24 + 0^18 + #4564; 	!Version Date:	13-Feb-87
 INS 189/1	;16C3
	2604	MEM	13-Feb-87
		When compacting the buffer, CLASLINE must be incremented for each
		comment line we print that is before the first code line after 
		CLASLINE. Otherwise, if we print a buffer of 99 comment lines
		and CLASLINE is not updated, then the line number of the next line
		after the 99th comment line will be the same as the first comment line
		after the last code line -- the line numbers will keep getting reset
		(ACMCLASBACK sets LINELINE to CLASLINE).

 INS 198/1	;16C4
	4564	MEM	13-Feb-87
		When compacting the buffer, CLASLINE must be incremented for each
		comment line we print that is before the first code line after 
		CLASLINE. Otherwise, if we print a buffer of 99 comment lines
		and CLASLINE is not updated, then the line number of the next line
		after the 99th comment line will be the same as the first comment line
		after the last code line -- the line numbers will keep getting reset
		(ACMCLASBACK sets LINELINE to CLASLINE).

 INS 212/1	;16C5
	%4564%	CLASLINE,
 INS 45/16	;16C6
	%4564%	LOCAL NOCODEYET;
 INS 67/16	;16C7
	%4564%	NOCODEYET = 1;

 REP 74/16	;16C8
	%2500%		THEN BLTLINL(.CELL);		! Copy the code line
 WIT
	%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
 SUM 163025