#include "pmc.h"

long __pascal dircurrent (STR buf)
{
  REGSTRUCT rs;
  STR tmpbuf = buf;
  int r;

  rs.w.FLAGS = rs.d.SSSP = 0;
  rs.b.DL = 0;
  rs.b.AH = 0x47;

  if (((DWORD)buf + database) > 0xfffff)
    tmpbuf = _lowbufptr;

  rs.w.DS = (DWORD)tmpbuf + database >> 4;
  rs.w.SI = (DWORD)tmpbuf + database & 15;

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

  if (tmpbuf != buf)
    strcpy (buf, tmpbuf);

  return 0;
}