Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_3_19910112 - utilities/dfind.fai
There are no other files named dfind.fai in the archive.
search monsym
start:	move 1,[sixbit/FIND/]
	move 2,1
	SETSN
	 jfcl			;no error returns
	movsi 1,(gj%sht+gj%old)
	hrroi 2,[asciz/sys:FIND.exe/]
	GTJFN
	 erjmp error
	hrli 1,.fhslf		;get file on top of ourselves
	move 5,[GET]
	move 6,[movei 1,.fhslf]
	move 7,[setz 2,]
	move 8,[SFRKV]		;start ourselves (!) at start address
	jrst 5			;go and do it all

error:	hrroi 1,[asciz/Can't find FIND/]
	PSOUT
	haltf
	jrst start
end start