MYRATON.C

/* ------------------------------------------------------------------
 * MYRATON.C - drop-in replacement for the 5 RATON.LIB functions that
 * simso.c actually calls (ponraton, cursorraton, boizqraton,
 * bocenraton, boderraton, estadoraton).
 *
 * WHY: RATON.LIB's own implementations don't work under this DOSBox
 * build (confirmed via MTEST/MTEST2: a raw INT 33h call works fine in
 * both text and graphics mode, but RATON.LIB's hayraton()/estadoraton()
 * never report the mouse as present). These replacements use the same
 * raw INT 33h calls directly, so they work wherever MTEST2 worked.
 *
 * Function signatures match raton.h exactly, so simso.c needs NO
 * changes - just link this .OBJ instead of RATON.LIB.
 * ------------------------------------------------------------------ */
#include <dos.h>

void ponraton(int x, int y)
{
    union REGS r;
    r.x.ax = 4;              /* AX=4: set mouse cursor position */
    r.x.cx = x;
    r.x.dx = y;
    int86(0x33, &r, &r);
}

void cursorraton(int mostrar)
{
    union REGS r;
    r.x.ax = mostrar ? 1 : 2;   /* AX=1: show cursor, AX=2: hide cursor */
    int86(0x33, &r, &r);
}

int boizqraton(void)
{
    union REGS r;
    r.x.ax = 3;               /* AX=3: get position + button status */
    int86(0x33, &r, &r);
    return (r.x.bx & 0x01) != 0;   /* bit 0 = left button */
}

int bocenraton(void)
{
    union REGS r;
    r.x.ax = 3;
    int86(0x33, &r, &r);
    return (r.x.bx & 0x04) != 0;   /* bit 2 = middle button */
}

int boderraton(void)
{
    union REGS r;
    r.x.ax = 3;
    int86(0x33, &r, &r);
    return (r.x.bx & 0x02) != 0;   /* bit 1 = right button */
}

void estadoraton(int *x, int *y, int *boizq, int *bocen, int *boder)
{
    union REGS r;
    r.x.ax = 3;
    int86(0x33, &r, &r);
    *x     = r.x.cx;
    *y     = r.x.dx;
    *boizq = (r.x.bx & 0x01) != 0;
    *bocen = (r.x.bx & 0x04) != 0;
    *boder = (r.x.bx & 0x02) != 0;
}