#include "pmc.h"

long __pascal filelseek (WORD handle, long off, int from)
{
  REGSTRUCT rs;
  int r;

  rs.w.FLAGS = rs.d.SSSP = 0;
  rs.w.DX = loWORD (off);
  rs.w.CX = hiWORD (off);
  rs.w.BX = handle;
  rs.w.AX = 0x4200 + from;

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

  if (rs.w.FLAGS & fCF)
    return rs.d.EAX | 0xffff0000;
  return (rs.w.DX << 16) | rs.w.AX;
}