DataMuseum.dk

Presents historical artifacts from the history of:

Regnecentalen RC-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Regnecentalen RC-900

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T U b

⟦e016cfe70⟧ TextFile

    Length: 6953 (0x1b29)
    Types: TextFile
    Notes: UNIX file
    Names: »bmouse.c«

Derivation

└─⟦0cfe73749⟧ Bits:30004154/config.imd SW95707I VP/ix MS-DOS emulator Rel. 1.1
└─⟦0cfe73749⟧ UNIX Filesystem
    └─⟦this⟧ »vc/new/usr/vpix/src/bmouse/bmouse.c«

TextFile

/* @(#)bmouse.c	3.3 - 88/05/25 */
/*
 ***************************************************
 *
 * MODULE: BMOUSE
 *
 * Copyright (c) 1986, 1987 by Phoenix Technologies Ltd
 *
 * Emulates the Microsoft(TM) Bus Mouse
 *
 ***************************************************
 */

/*
 ***************************************************
 * INCLUDES AND DEFINES
 ***************************************************
 */

#include "ptypes.h"
#include "v86error.h"
#include "gdi.h"

typedef	struct
{
	int	dx;
	int	dy;
	int	buttons;
	int	irqnnn;
	int	irqenb;
	int	irqset;
	int	addr;
	BYTE	portb;
	BYTE	portc;
	PFI	oldior;
	PFI	oldiow;
} BMSE;

#define	MOUSE_IRQN	5
#define	SIGNAL_NUM	5
#define	BASE_ADDR	0x0230	/* lowest port address on mouse card */
#define	TICK_RATE	40L	/* send irq every 40 msecs */
#define	NO_TICK		-1L	/* don't send irq */

/*
 ***************************************************
 * DATA
 ***************************************************
 */

LOCAL	BMSE	_bmse = { -1, 0, 0, 0, 0, 0, 0, 0 };
LOCAL	TIMER_HDL   _h_tmr;
LOCAL	BYTE	_bmse_path[128];
LOCAL	BYTE	mouse_open = FALSE;

/*
 ***************************************************
 * FUNCTIONS
 ***************************************************
 */

EXTERN	VOID	gdi_int_set();            /* gdi interface routines */
EXTERN	VOID	gdi_int_clear();
EXTERN	int	gdi_close_func();
EXTERN	PFI	gdi_in_func();
EXTERN	PFI	gdi_out_func();
EXTERN	PFI	gdi_int_reg_func();
EXTERN	char	*gdi_cnf_path();
EXTERN	TIMER_HDL	gdi_timer_func();
EXTERN	int	gdi_timer_release();
EXTERN	long	gdi_timer_interval();
EXTERN	int	gdi_vterm_func();

EXTERN	int	bmsemd_init();            /* UNIX driver interface routines */
EXTERN	int	bmsemd_close();
EXTERN  VOID    bmsemd_read();
EXTERN  int	bmsemd_release();
EXTERN  int	bmsemd_acquire();

GLOBAL	VOID	init_bmouse();	/* start up */
GLOBAL	int	close_bmouse();	/* shut down */
GLOBAL	long	tick_bmouse();	/* periodic interrupt */
GLOBAL	int	pr_bmouse();	/* port read of a mouse port */
GLOBAL	int	pw_bmouse();	/* port write of a mouse port */
GLOBAL	VOID	xy_bmouse();	/* send movement data to mouse */
GLOBAL	VOID	btn_bmouse();	/* send button data to mouse */
GLOBAL	int	read_bmouse();	/* pass kernel's signal to bmsemd_read */

LOCAL	VOID	bmouse_getdata();
LOCAL   VOID    bmouse_irqenb();
\f


/*
 ***************************************************
 * ENTRY POINTS
 ***************************************************
 */

/*
 * FUNCTION: INIT_BMOUSE
 *		start up bus mouse
 *
 * ENTRY PARAMETERS:
 *	nnn	-- IRQ number
 *	path	-- file name for machine dependant init
 *
 * EXIT  PARAMETERS:
 *	rc	-- OK or ERR
 */
GLOBAL	VOID	init_bmouse( gdi_dev )
struct gdevice *gdi_dev;
{
	char	*path;

	/* check vpix.cnf entry first */
	path = gdi_cnf_path( "MOUSE" );
	
	/* only use default path in etc/vpixdevs file if none is 
	   specified in users vpix.cnf file */
	if( !path )
	  path = gdi_dev->gdi_dname;  

	if( path )
	{
		strcpy ( _bmse_path, path );
		gdi_close_func( close_bmouse );
		gdi_vterm_func( bmsemd_release, bmsemd_acquire );
		_bmse.oldior = gdi_in_func( BASE_ADDR, pr_bmouse );
		_bmse.oldiow = gdi_out_func( BASE_ADDR, pw_bmouse );
		gdi_int_reg_func( SIGNAL_NUM, read_bmouse );

		_bmse.irqnnn = MOUSE_IRQN;
		_bmse.dx = _bmse.dy = 0;
		_bmse.buttons = 0xE0;
		if( bmsemd_init( path ) != ERR )
		{
			_h_tmr = gdi_timer_func( tick_bmouse );
			mouse_open = TRUE;
		}
		else 
		{
			mouse_open = FALSE;
		}


	}
}

/*
 * FUNCTION: CLOSE_BMOUSE
 *		shut down bus mouse
 *
 * ENTRY PARAMETERS
 *	none
 *
 * EXIT  PARAMETERS
 *	rc	-- OK or ERR
 */
GLOBAL	int	close_bmouse()
{
	if	( _bmse.irqnnn && _bmse.irqset )
		gdi_int_clear( _bmse.irqnnn );
	_bmse.irqnnn = -1;

	if	( _h_tmr )
	{
		gdi_timer_release( _h_tmr );
		_h_tmr = (TIMER_HDL)0;
	}
	return( bmsemd_close() );
}


\f


/*
 * FUNCTION: TICK_BMOUSE
 *		send interrupt at an approx. 30Hz rate
 *
 * ENTRY PARAMETERS
 *	msecs	-- time elapsed since last call
 *
 * EXIT  PARAMETERS
 *	none
 */
GLOBAL	long	tick_bmouse( msecs )
	long	msecs;
{
	if	( _bmse.irqnnn != -1 )
	{
		if	( _bmse.irqset )
		{
			gdi_int_clear( _bmse.irqnnn );
			_bmse.irqset = FALSE;
		}
		if	( _bmse.irqenb )
		{
			gdi_int_set( _bmse.irqnnn );
			_bmse.irqset = TRUE;
		}
	}
	return( msecs );
}


\f


/*
 * FUNCTION: PR_BMOUSE
 *		read from a bus-mouse I/O port
 *
 * ENTRY PARAMETERS
 *	port	-- I/O address
 *	pdata	-- pointer to stuff with data read from port
 *
 * EXIT  PARAMETERS
 *	rc	-- OK, or ERR on bad port address
 */
GLOBAL	int	pr_bmouse( port, pdata )
	WORD	port;
	BYTE	*pdata;
{
	int	rc = OK;

	switch	( (port&0xFFF3) - BASE_ADDR )
	{
	case 0:
		bmouse_getdata( pdata );
		break;
	case 1:
		*pdata = _bmse.portb;
		break;
	case 2:
		_bmse.portc ^= 1 << (5-_bmse.irqnnn);
		*pdata = _bmse.portc;
		break;
	case 3:
		*pdata = 0xFF;
		break;
	default:
		rc = ( *_bmse.oldior ) ( port, pdata );
		break;
	}

	return( rc );
}


\f


/*
 * FUNCTION: PW_BMOUSE
 *		write to a bus-mouse I/O port
 *
 * ENTRY PARAMETERS
 *	port	-- I/O address
 *	pdata	-- pointer to data to write to port
 *
 * EXIT  PARAMETERS
 *	rc	-- OK, or ERR on bad port address
 */
GLOBAL	int	pw_bmouse( port, pdata )
	WORD	port;
	BYTE	*pdata;
{
	int	rc = OK;
	int	lastenb;

	switch	( (port&0xFFF3) - BASE_ADDR )
	{
	case 0:
		break;
	case 1:
		_bmse.portb = *pdata;
		break;
	case 2:
		_bmse.addr = (*pdata >> 5) & 0x03;

		lastenb = _bmse.irqenb;
		_bmse.irqenb = !(*pdata & 0x10);
		if	( _bmse.irqenb != lastenb )
			bmouse_irqenb( _bmse.irqenb ? TICK_RATE : NO_TICK );

		if ( !(*pdata & 0x80) )
			_bmse.dx = _bmse.dy = 0;
		break;
	case 3:
		if	( !_bmse.irqenb )
			bmouse_irqenb( TICK_RATE );
		_bmse.irqenb = TRUE;
		break;
	default:
		rc = ( *_bmse.oldior ) ( port, pdata );
		break;
	}
	return( rc );
}


\f


/*
 * FUNCTION: XY_BMOUSE
 *		record mouse movement
 *
 * ENTRY PARAMETERS
 *	dx, dy	-- signed mouse movement data
 *
 * EXIT  PARAMETERS
 *	none
 */
GLOBAL	VOID	xy_bmouse( dx, dy )
	int	dx, dy;
{
	_bmse.dx += dx;
	_bmse.dy += dy;
}


\f


/*
 * FUNCTION: BTN_BMOUSE
 *		record mouse button press or release
 *
 * ENTRY PARAMETERS:
 *	btn	-- 0-2 for left, middle, right button
 *	state	-- TRUE if button pressed, FALSE for released
 *
 * EXIT  PARAMETERS
 *	none
 */
GLOBAL	VOID	btn_bmouse( btn, state )
	int	btn;
	int	state;
{
	btn = 2 - btn;
	if	( state )
		_bmse.buttons &= ~(0x0020<<btn);
	else
		_bmse.buttons |= (0x0020<<btn);
}

GLOBAL	int	read_bmouse()
{
	bmsemd_read();
	return(0);
}

\f


/*
 ***************************************************
 * LOCAL FUNCTIONS
 ***************************************************
 */
LOCAL	VOID	bmouse_getdata( pdata )
	BYTE	*pdata;
{
	int	data;

	data = (_bmse.addr&2 ? _bmse.dy : _bmse.dx) >> (_bmse.addr&1 ? 5 : 1);
	*pdata = (data & 0x0F) | _bmse.buttons;
}


/*
 * FUNCTION: BMOUSE_IRQENB
 *		call to signal that interrupts should start
 *
 * INPUT PARAMETERS
 *	none
 * OUTPUT PARAMETERS
 *	none
 */
LOCAL	VOID	bmouse_irqenb( period )
	long	period;
{
	gdi_timer_interval( _h_tmr, period );
}