diff options
Diffstat (limited to 'src/devices/bus/vcs_ctrl/keypad.c')
-rw-r--r-- | src/devices/bus/vcs_ctrl/keypad.c | 139 |
1 files changed, 139 insertions, 0 deletions
diff --git a/src/devices/bus/vcs_ctrl/keypad.c b/src/devices/bus/vcs_ctrl/keypad.c new file mode 100644 index 00000000000..0ef8b6b4db3 --- /dev/null +++ b/src/devices/bus/vcs_ctrl/keypad.c @@ -0,0 +1,139 @@ +// license:BSD-3-Clause +// copyright-holders:Curt Coder +/********************************************************************** + + Atari Video Computer System keypad emulation + +**********************************************************************/ + +#include "keypad.h" + + + +//************************************************************************** +// DEVICE DEFINITIONS +//************************************************************************** + +const device_type VCS_KEYPAD = &device_creator<vcs_keypad_device>; + + +static INPUT_PORTS_START( vcs_keypad ) + PORT_START("KEYPAD") + PORT_BIT( 0x0001, IP_ACTIVE_LOW, IPT_KEYPAD ) PORT_NAME("keypad 1") PORT_CODE(KEYCODE_7_PAD) + PORT_BIT( 0x0002, IP_ACTIVE_LOW, IPT_KEYPAD ) PORT_NAME("keypad 2") PORT_CODE(KEYCODE_8_PAD) + PORT_BIT( 0x0004, IP_ACTIVE_LOW, IPT_KEYPAD ) PORT_NAME("keypad 3") PORT_CODE(KEYCODE_9_PAD) + PORT_BIT( 0x0008, IP_ACTIVE_LOW, IPT_KEYPAD ) PORT_NAME("keypad 4") PORT_CODE(KEYCODE_4_PAD) + PORT_BIT( 0x0010, IP_ACTIVE_LOW, IPT_KEYPAD ) PORT_NAME("keypad 5") PORT_CODE(KEYCODE_5_PAD) + PORT_BIT( 0x0020, IP_ACTIVE_LOW, IPT_KEYPAD ) PORT_NAME("keypad 6") PORT_CODE(KEYCODE_6_PAD) + PORT_BIT( 0x0040, IP_ACTIVE_LOW, IPT_KEYPAD ) PORT_NAME("keypad 7") PORT_CODE(KEYCODE_1_PAD) + PORT_BIT( 0x0080, IP_ACTIVE_LOW, IPT_KEYPAD ) PORT_NAME("keypad 8") PORT_CODE(KEYCODE_2_PAD) + PORT_BIT( 0x0100, IP_ACTIVE_LOW, IPT_KEYPAD ) PORT_NAME("keypad 9") PORT_CODE(KEYCODE_3_PAD) + PORT_BIT( 0x0200, IP_ACTIVE_LOW, IPT_KEYPAD ) PORT_NAME("keypad *") PORT_CODE(KEYCODE_0_PAD) + PORT_BIT( 0x0400, IP_ACTIVE_LOW, IPT_KEYPAD ) PORT_NAME("keypad 0") PORT_CODE(KEYCODE_DEL_PAD) + PORT_BIT( 0x0800, IP_ACTIVE_LOW, IPT_KEYPAD ) PORT_NAME("keypad #") PORT_CODE(KEYCODE_ENTER_PAD) +INPUT_PORTS_END + + +//------------------------------------------------- +// input_ports - device-specific input ports +//------------------------------------------------- + +ioport_constructor vcs_keypad_device::device_input_ports() const +{ + return INPUT_PORTS_NAME( vcs_keypad ); +} + + + +//************************************************************************** +// LIVE DEVICE +//************************************************************************** + +//------------------------------------------------- +// vcs_keypad_device - constructor +//------------------------------------------------- + +vcs_keypad_device::vcs_keypad_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock) : + device_t(mconfig, VCS_KEYPAD, "Atari / CBM Keypad", tag, owner, clock, "vcs_keypad", __FILE__), + device_vcs_control_port_interface(mconfig, *this), + m_keypad(*this, "KEYPAD") +{ +} + + +//------------------------------------------------- +// device_start - device-specific startup +//------------------------------------------------- + +void vcs_keypad_device::device_start() +{ + m_column = 0; + save_item(NAME(m_column)); +} + + +//------------------------------------------------- +// vcs_joy_w - joystick write +//------------------------------------------------- + +UINT8 vcs_keypad_device::vcs_joy_r() +{ + for ( int i = 0; i < 4; i++ ) + { + if ( ! ( ( m_column >> i ) & 0x01 ) ) + { + if ( ( m_keypad->read() >> 3*i ) & 0x04 ) + { + return 0xff; + } + else + { + return 0; + } + } + } + return 0xff; +} + +void vcs_keypad_device::vcs_joy_w( UINT8 data ) +{ + m_column = data & 0x0F; +} + +UINT8 vcs_keypad_device::vcs_pot_x_r() +{ + for ( int i = 0; i < 4; i++ ) + { + if ( ! ( ( m_column >> i ) & 0x01 ) ) + { + if ( ( m_keypad->read() >> 3*i ) & 0x01 ) + { + return 0; + } + else + { + return 0xff; + } + } + } + return 0; +} + +UINT8 vcs_keypad_device::vcs_pot_y_r() +{ + for ( int i = 0; i < 4; i++ ) + { + if ( ! ( ( m_column >> i ) & 0x01 ) ) + { + if ( ( m_keypad->read() >> 3*i ) & 0x02 ) + { + return 0; + } + else + { + return 0xff; + } + } + } + return 0; +} |