Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/cobolg.c12
There are 2 other files named cobolg.c12 in the archive. Click here to see a list.
 REP 11/1	;12C1
	COPYRIGHT (C) 1974, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	COPYRIGHT (C) 1974, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION
 INS 33/1	;12C2
	;MJC	24-JUL-85	[1606] RESET FNOLST SO ERROR COUNT PRINTS IN LST FILE
 REP 3/18	;12C3
	CNTOUT:	PUSHJ	PP,TTYON##	; TURN ON TTY TO GET SUMMARY LINE [266]
 WIT
	CNTOUT:	SKIPLE	LSTJFN##	;[1606]SEE IF WE HAVE A LST FILE JFN
		SWOFF	FNOLST		;[1606]OH WE DO. THEN TURN NO LIST OFF.
		PUSHJ	PP,TTYON##	; TURN ON TTY TO GET SUMMARY LINE [266]
 SUM 97239