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
|
// license:BSD-3-Clause
// copyright-holders:Ryan Holtz
#include "emu.h"
#include "lightpen.h"
//**************************************************************************
// GLOBAL VARIABLES
//**************************************************************************
DEFINE_DEVICE_TYPE(ASTROCADE_LIGHTPEN, astrocade_lightpen_device, "astrocade_lightpen", "Bally Astrocade Light Pen")
//**************************************************************************
// Bally Astrocade light pen input
//**************************************************************************
astrocade_lightpen_device::astrocade_lightpen_device(machine_config const &mconfig, char const *tag, device_t *owner, const XTAL &clock)
: device_t(mconfig, ASTROCADE_LIGHTPEN, tag, owner, clock)
, device_astrocade_accessory_interface(mconfig, *this)
, m_trigger(*this, "TRIGGER")
, m_lightx(*this, "LIGHTX")
, m_lighty(*this, "LIGHTY")
, m_pen_timer(nullptr)
{
}
astrocade_lightpen_device::~astrocade_lightpen_device()
{
}
void astrocade_lightpen_device::device_start()
{
m_pen_timer = timer_alloc(FUNC(astrocade_lightpen_device::trigger_tick), this);
save_item(NAME(m_retrigger));
}
void astrocade_lightpen_device::device_reset()
{
m_pen_timer->adjust(attotime::never);
m_retrigger = false;
}
TIMER_CALLBACK_MEMBER(astrocade_lightpen_device::trigger_tick)
{
write_ltpen(1);
write_ltpen(0);
if (m_retrigger)
m_pen_timer->adjust(m_screen->time_until_pos(m_lighty->read(), m_lightx->read()));
else
m_pen_timer->adjust(attotime::never);
}
INPUT_CHANGED_MEMBER(astrocade_lightpen_device::trigger)
{
if (newval)
{
m_retrigger = true;
m_pen_timer->adjust(m_screen->time_until_pos(m_lighty->read(), m_lightx->read()));
}
else
{
m_retrigger = false;
m_pen_timer->adjust(attotime::never);
}
}
static INPUT_PORTS_START( astrocade_lightpen )
PORT_START("TRIGGER")
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, astrocade_lightpen_device, trigger, 0)
PORT_BIT( 0xfe, IP_ACTIVE_HIGH, IPT_UNUSED )
PORT_START("LIGHTX")
PORT_BIT(0x1ff, 0x000, IPT_LIGHTGUN_X) PORT_MINMAX(0x000, 0x15f) PORT_CROSSHAIR(X, 1.0, 0.0, 0) PORT_SENSITIVITY(45) PORT_KEYDELTA(15)
PORT_START("LIGHTY")
PORT_BIT(0x0ff, 0x000, IPT_LIGHTGUN_Y) PORT_MINMAX(0x000, 0x0f0) PORT_CROSSHAIR(Y, 1.0, 0.0, 0) PORT_SENSITIVITY(45) PORT_KEYDELTA(15)
INPUT_PORTS_END
ioport_constructor astrocade_lightpen_device::device_input_ports() const
{
return INPUT_PORTS_NAME( astrocade_lightpen );
}
|