1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
// license:BSD-3-Clause
// copyright-holders:Patrick Mackinlay
/*
* A high-level emulation implementation of the Intergraph InterPro mouse.
*
* Little information is available on this hardware. The mouse has 3 buttons,
* all of which are commonly used by the system software, but earlier InterPro
* systems appear to have supported many more buttons; it's not known if those
* earlier versions use the same port or protocol. The mouse has a male D-sub
* 9-pin connector, using an unknown, probably TTL level signalling protocol.
*
* It's probable that this mouse can be connected to the mouse port on InterPro
* system main boards as well as the mouse port(s) on EDGE graphics boards.
*/
#include "emu.h"
#include "mouse.h"
#define VERBOSE (0)
#include "logmacro.h"
DEFINE_DEVICE_TYPE(INTERPRO_MOUSE_PORT, interpro_mouse_port_device, "interpro_mouse_port", "InterPro Mouse Port")
DEFINE_DEVICE_TYPE(INTERPRO_MOUSE, interpro_mouse_device, "interpro_mouse", "InterPro Mouse")
static INPUT_PORTS_START(interpro_mouse)
PORT_START("mouse_buttons")
PORT_BIT(interpro_mouse_device::MOUSE_LBUTTON, IP_ACTIVE_HIGH, IPT_BUTTON1) PORT_NAME("Mouse Left Button") PORT_CODE(MOUSECODE_BUTTON1) PORT_CHANGED_MEMBER(DEVICE_SELF, interpro_mouse_device, mouse_button, 0)
PORT_BIT(interpro_mouse_device::MOUSE_MBUTTON, IP_ACTIVE_HIGH, IPT_BUTTON2) PORT_NAME("Mouse Middle Button") PORT_CODE(MOUSECODE_BUTTON3) PORT_CHANGED_MEMBER(DEVICE_SELF, interpro_mouse_device, mouse_button, 0)
PORT_BIT(interpro_mouse_device::MOUSE_RBUTTON, IP_ACTIVE_HIGH, IPT_BUTTON3) PORT_NAME("Mouse Right Button") PORT_CODE(MOUSECODE_BUTTON2) PORT_CHANGED_MEMBER(DEVICE_SELF, interpro_mouse_device, mouse_button, 0)
PORT_START("mouse_x")
PORT_BIT(0xff, 0x00, IPT_MOUSE_X) PORT_SENSITIVITY(50) PORT_KEYDELTA(0) PORT_PLAYER(1) PORT_CHANGED_MEMBER(DEVICE_SELF, interpro_mouse_device, mouse_x, 0)
PORT_START("mouse_y")
PORT_BIT(0xff, 0x00, IPT_MOUSE_Y) PORT_SENSITIVITY(50) PORT_KEYDELTA(0) PORT_PLAYER(1) PORT_CHANGED_MEMBER(DEVICE_SELF, interpro_mouse_device, mouse_y, 0)
INPUT_PORTS_END
interpro_mouse_port_device::interpro_mouse_port_device(machine_config const &mconfig, char const *tag, device_t *owner, const XTAL &clock)
: device_t(mconfig, INTERPRO_MOUSE_PORT, tag, owner, clock)
, device_single_card_slot_interface<device_interpro_mouse_port_interface>(mconfig, *this)
, m_state_func(*this)
, m_device(nullptr)
{
}
void interpro_mouse_port_device::device_config_complete()
{
m_device = get_card_device();
}
void interpro_mouse_port_device::device_start()
{
m_state_func.resolve_safe();
}
device_interpro_mouse_port_interface::device_interpro_mouse_port_interface(machine_config const &mconfig, device_t &device)
: device_interface(device, "interpromouse")
, m_port(dynamic_cast<interpro_mouse_port_device *>(device.owner()))
{
}
interpro_mouse_device::interpro_mouse_device(machine_config const &mconfig, char const *tag, device_t *owner, const XTAL &clock)
: device_t(mconfig, INTERPRO_MOUSE, tag, owner, clock)
, device_interpro_mouse_port_interface(mconfig, *this)
{
}
void interpro_mouse_device::device_start()
{
}
void interpro_mouse_device::device_reset()
{
}
ioport_constructor interpro_mouse_device::device_input_ports() const
{
return INPUT_PORTS_NAME(interpro_mouse);
}
void interpro_mouse_devices(device_slot_interface &device)
{
device.option_add("interpro_mouse", INTERPRO_MOUSE);
}
INPUT_CHANGED_MEMBER(interpro_mouse_device::mouse_button)
{
const ioport_value data = field.port().read();
LOG("mouse_button 0x%08x\n", data);
state_w(data & MOUSE_BUTTONS, MOUSE_BUTTONS);
}
INPUT_CHANGED_MEMBER(interpro_mouse_device::mouse_x)
{
// compute x delta
int delta = newval - oldval;
if (delta > 0x80)
delta -= 0x100;
else if (delta < -0x80)
delta += 0x100;
LOG("mouse_x delta %d\n", delta);
state_w((delta << 8) & MOUSE_XPOS, MOUSE_XPOS);
}
INPUT_CHANGED_MEMBER(interpro_mouse_device::mouse_y)
{
// compute y delta
int delta = newval - oldval;
if (delta > 0x80)
delta -= 0x100;
else if (delta < -0x80)
delta += 0x100;
LOG("mouse_y delta %d\n", delta);
state_w((delta << 0) & MOUSE_YPOS, MOUSE_YPOS);
}
|