// MYS.C                     Copyright (c) TrSek alias Zdeno Sekerak 
// Sucast programu Fapa.c. Obsahuje rutiny obsluhujuce mys.
//
// Datum:14.12.1994                             http://www.trsek.com 

#include <dos.h>

int inmys;	// globalna premenna urcujuca ci je aktivna mys

// inicializuje mys
void init_mys(void)
{
union REGS in,out;

  in.x.ax=0x0000;
  int86(0x33,&in,&out);

  if (out.x.ax==0) inmys=0;
	      else inmys=1;

  in.x.ax=0x0001;
  if (inmys)
     int86(0x33,&in,&out);
}

// nastavi suradnice mysi
void set_mys(int x, int y)
{
union REGS in,out;

  in.x.ax=0x0004;
  in.x.cx=x;
  in.x.dx=y;
  if (inmys)
     int86(0x33,&in,&out);
}

// zisti suradnice mysi
void getmys(int *but, int *x, int *y)
{
union REGS in,out;

  but=but;
  x=x;
  y=y;

  in.x.ax=0x0003;
  if (inmys)
  {
    int86(0x33,&in,&out);
    *but=out.x.bx;
    *x=rcmx(out.x.cx);
    *y=rcmy(out.x.dx);
  }
  else {
    *but=0;
    *x=0;
    *y=0;
  }
}

// zobrazi kurzor mysi
void zobmys(int zob)
{
union REGS in,out;

  if (zob) in.x.ax=0x0001;
      else in.x.ax=0x0002;

  if (inmys)
     int86(0x33,&in,&out);
}