v4.0/src/MAPPER/FIND.INC

   1 ; find.inc
   2
   3         if1
   4                 %out    find.inc
   5         endif
   6
   7 FileFindBuf     struc
   8 Create_Date     dw      ?
   9 Create_Time     dw      ?
  10 Access_Date     dw      ?
  11 Access_Time     dw      ?
  12 Write_Date      dw      ?
  13 Write_Time      dw      ?
  14 File_Size       dd      ?
  15 FAlloc_Size     dd      ?
  16 Attributes      dw      ?
  17 String_Len      db      ?
  18 File_Name       db      12 dup (?)
  19 FileFindBuf     ends
  20
  21 ;
  22 ; dta buffer structure
  23 ;
  24
  25 dtastr  struc
  26                 db      21 dup (?)
  27 DTAFileAttrib   db      ?
  28 DTAFileTime     dw      ?
  29 DTAFileDate     dw      ?
  30 DTAFileSize     dd      ?
  31 DTAFileName     db      13 dup (?)
  32 dtastr  ends
  33
  34 MaxFinds        equ     8
  35 OpenedHandle    equ     08000h
  36
  37 \1a