Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - cobfun.c05
There are 2 other files named cobfun.c05 in the archive. Click here to see a list.
 INS 4/2	;05C1
	;
	;017	1025	JEH	If CORPT. zero, don't try to free core
	;016	1002	DMN/JM	Make CBC work when CORPT. goes 0 but overlays
	;			still exit
	;
	;V12B *****
	;
 INS 18/2	;05C2
	;015	1002	DMN/JM	Make CBC work when CORPT. goes 0 but overlays
	;			still exist
 REP 12/23	;05C3
	FUNCBC:	SKIPN	CORPT.##	;[514] ANY MORE CORE IN THE OVERLAY LIST?
		JRST	TRYOTS		;[514] NO--TRY IN THE OTS LIST THEN
 WIT
	FUNCBC:				;[M1002]
		SKIPN	HLOVL.##	;[1002] ARE OVERLAYS IN USE?
	;[D1102] SKIPN	CORPT.##	;[514] ANY MORE CORE IN THE OVERLAY LIST?
		JRST	TRYOTS		;[514] NO--TRY IN THE OTS LIST THEN
		SKIPN	CORPT.		;[1025] IS THERE ANY FREE CORE?
		JRST	FUNST0		;[1025]  NO
 SUM 217279