#include "pmc.h"

long __pascal dosputstr (STR str)
{
  REGSTRUCT rs;
  int r;

  rs.w.FLAGS = rs.d.SSSP = 0;
  rs.b.AH = 9;

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

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

  *(str = strchr (str, 0)) = '$';

  r = xlt_simrmint (0x21, &rs, 0);

  *str = 0;

  return r;
}