Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - filfnd.c11
There is 1 other file named filfnd.c11 in the archive. Click here to see a list.
 INS 23/78	;11C1
		HRRZ	T2,DEVACC##(F)	;%LOC OF A.T.
		MOVE	T1,ACCSTS##(T2)	;%A.T. STATUS
		TRNN	T1,ACPDEL##+ACPCRE+ACPSUP ;%FILE STILL READABLE?
		JRST	ACLP1C		;%YES
		HLLZS	DEVACC##(F)	;%NO, CLEAR POINTER TO A.T.
		LDB	T1,ACYFSN##	;%GET BACK FSN
		JRST	ACCLUP		;%LOOK FOR ANOTHER A.T.
 DEL 22/91	;11C2
		ANDCAM	T2,NMBKNO##(T3)
 SUM 249743