; 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