/* vputm.c (emx+gcc) -- Copyright (c) 1987-1993 by Eberhard Mattes */

#include <stdlib.h>
#include <dos.h>
#define INCL_VIO
#include <os2emx.h>
#include <sys/video.h>
#include "video2.h"

void v_putm (const char *p, int len)
{
  if (len > 0)
    {
      if (_osmode == OS2_MODE)
        {
          BYTE attr;

          attr = (BYTE)_v_attr;
          VioWrtCharStrAtt (p, len, _v_y, _v_x, &attr, 0);
        }
      else if (_v_mem != NULL)
        {
          char *dst;

          dst = _v_mem + (_v_y * _v_width + _v_x) * 2;
          while (len > 0)
            {
              dst[0] = *p++;
              dst[1] = (char)_v_attr;
              --len; dst += 2;
            }
        }
      else
        {
          int i;
          union REGS r;

          for (i = 0; i < len; ++i)
            {
              r.h.ah = 0x02;
              r.h.bh = 0x00;
              r.h.dl = (unsigned char)_v_x + i;
              r.h.dh = (unsigned char)_v_y;
              _int86 (0x10, &r, &r);
              r.h.ah = 0x09;
              r.h.bh = 0;
              r.h.bl = (unsigned char)_v_attr;
              r.h.al = p[i];
              r.x.cx = 1;
              _int86 (0x10, &r, &r);
            }
          r.h.ah = 0x02;
          r.h.bh = 0x00;
          r.h.dl = (unsigned char)_v_x;
          r.h.dh = (unsigned char)_v_y;
          _int86 (0x10, &r, &r);
        }
    }
}