#include "pmode.h"

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

  rs.flags = rs.sp = rs.ss = 0;
  rsDX(rs) = LOWORD (off);
  rsCX(rs) = HIWORD (off);
  rsBX(rs) = handle;
  rsAX(rs) = 0x4200 + from;

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

  if (rs.flags & fCF)
    return rs.eax | 0xffff0000;
  return (rsDX(rs) << 16) | rsAX(rs);
}