#include "pmc.h"

long __pascal filefind (STR buf, STR mask, int mode, int attr)
{
  REGSTRUCT rs;
  int r;

  rs.w.FLAGS = rs.d.SSSP = 0;
  rs.w.CX = attr;
  rs.b.AH = mode;

  if (((DWORD)mask + database) > 0xfffff)
  {
    strcpy (_lowbufptr, mask);
    mask = _lowbufptr;
  }

  rs.w.DS = (DWORD)mask + database >> 4;
  rs.w.DX = (DWORD)mask + database & 15;

  if ((r = xlt_simrmint (0x21, &rs, 0)) < 0)
    return r;

  if (rs.w.FLAGS & fCF)
    return rs.d.EAX | 0xffff0000;

  strcpy (buf, rlp (pspbase + 0x9e));

  return 0;
}