#include "pmode.h"

long __pascal filerename (STR dst, STR src)
{
  REGSTRUCT rs;
  STR nextstr = _lowbufptr;
  int r;

  rs.flags = rs.sp = rs.ss = 0;
  rsAH(rs) = 0x56;

  if (((DWORD)dst + database) > 0xfffff)
  {
    nextstr = stpcpy (_lowbufptr, dst) + 1;
    dst = _lowbufptr;
  }

  if (((DWORD)src + database) > 0xfffff)
  {
    strcpy (nextstr, src);
    src = nextstr;
  }

  rsES(rs) = (DWORD)dst + database >> 4;
  rsDI(rs) = (DWORD)dst + database & 15;
  rsDS(rs) = (DWORD)src + database >> 4;
  rsDX(rs) = (DWORD)src + database & 15;

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

  if (rs.flags & fCF)
    return rs.eax | 0xffff0000;
  return 0;
}