; 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