; Find UFD blocks (Even containing a specific file)
;
; Written by Dell Coleman (on October 7, 1991)
;	     Alpha Automation Incorporated
;	     2000 West Loop South  Suite 700
;	     Houston, TX 77027
;	     (713) 877-8039
;	     copyrighted by the above
;		You are granted license to use this software any way you wish
;		so long as you do NOT sell or charge any fee for it.
;
;		NOTE: The idea of checking for extensions was taken from
;			UFDFND.M68 written by Steven G. McNaughton &
;			Rich Eakin of Quaker State Oil Corp.  UFDFND.M68 was
;			gotten from the AMUS bulletin board for free.
;
;[100] 7 October 1991 - Dell Coleman
;	Program written.
;	Because of the monitor call DEVCHR - AMOS 2.0 or above may be needed.
;
	SYM
	SEARCH	SYS
	SEARCH	SYSSYM
	SEARCH	AAI

	VMAJOR=1
	VMINOR=0
	VEDIT=100.

.OFINI
.OFDEF	DDB,D.DDB			; DDB for reading disk
.OFDEF	FILNAM,6			; ASCII filename
.OFDEF	LSTBAS,4			; Last base address
.OFDEF	DVCHR,DC.SIZ			; Table for DEVCHR to return data
.OF
.