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