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
123
124
125
126
127
128
129
130
131
|
// license:BSD-3-Clause
// copyright-holders:smf
/**********************************************************************
Commodore PET User Port emulation
Copyright MESS Team.
Visit http://mamedev.org for licensing and usage restrictions.
**********************************************************************/
#include "user.h"
// class pet_user_port_device
const device_type PET_USER_PORT = &device_creator<pet_user_port_device>;
pet_user_port_device::pet_user_port_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock) :
device_t(mconfig, PET_USER_PORT, "PET user port", tag, owner, clock, "pet_user_port", __FILE__),
device_slot_interface(mconfig, *this),
m_2_handler(*this),
m_3_handler(*this),
m_4_handler(*this),
m_5_handler(*this),
m_6_handler(*this),
m_7_handler(*this),
m_8_handler(*this),
m_9_handler(*this),
m_10_handler(*this),
m_b_handler(*this),
m_c_handler(*this),
m_d_handler(*this),
m_e_handler(*this),
m_f_handler(*this),
m_h_handler(*this),
m_j_handler(*this),
m_k_handler(*this),
m_l_handler(*this),
m_m_handler(*this),
m_card(NULL)
{
}
void pet_user_port_device::device_config_complete()
{
m_card = dynamic_cast<device_pet_user_port_interface *>(get_card_device());
}
void pet_user_port_device::device_start()
{
m_2_handler.resolve_safe();
m_3_handler.resolve_safe();
m_4_handler.resolve_safe();
m_5_handler.resolve_safe();
m_6_handler.resolve_safe();
m_7_handler.resolve_safe();
m_8_handler.resolve_safe();
m_9_handler.resolve_safe();
m_10_handler.resolve_safe();
m_b_handler.resolve_safe();
m_c_handler.resolve_safe();
m_d_handler.resolve_safe();
m_e_handler.resolve_safe();
m_f_handler.resolve_safe();
m_h_handler.resolve_safe();
m_j_handler.resolve_safe();
m_k_handler.resolve_safe();
m_l_handler.resolve_safe();
m_m_handler.resolve_safe();
// pull up
m_3_handler(1);
m_4_handler(1);
m_5_handler(1);
m_6_handler(1);
m_7_handler(1);
m_8_handler(1);
m_9_handler(1);
m_b_handler(1);
m_c_handler(1);
m_d_handler(1);
m_e_handler(1);
m_f_handler(1);
m_h_handler(1);
m_j_handler(1);
m_k_handler(1);
m_l_handler(1);
m_m_handler(1);
}
WRITE_LINE_MEMBER( pet_user_port_device::write_2 ) { if (m_card != NULL) m_card->input_2(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_3 ) { if (m_card != NULL) m_card->input_3(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_4 ) { if (m_card != NULL) m_card->input_4(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_5 ) { if (m_card != NULL) m_card->input_5(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_6 ) { if (m_card != NULL) m_card->input_6(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_7 ) { if (m_card != NULL) m_card->input_7(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_8 ) { if (m_card != NULL) m_card->input_8(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_9 ) { if (m_card != NULL) m_card->input_9(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_10 ) { if (m_card != NULL) m_card->input_10(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_b ) { if (m_card != NULL) m_card->input_b(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_c ) { if (m_card != NULL) m_card->input_c(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_d ) { if (m_card != NULL) m_card->input_d(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_e ) { if (m_card != NULL) m_card->input_e(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_f ) { if (m_card != NULL) m_card->input_f(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_h ) { if (m_card != NULL) m_card->input_h(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_j ) { if (m_card != NULL) m_card->input_j(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_k ) { if (m_card != NULL) m_card->input_k(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_l ) { if (m_card != NULL) m_card->input_l(state); }
WRITE_LINE_MEMBER( pet_user_port_device::write_m ) { if (m_card != NULL) m_card->input_m(state); }
// class device_pet_user_port_interface
device_pet_user_port_interface::device_pet_user_port_interface(const machine_config &mconfig, device_t &device)
: device_slot_card_interface(mconfig,device)
{
m_slot = dynamic_cast<pet_user_port_device *>(device.owner());
}
device_pet_user_port_interface::~device_pet_user_port_interface()
{
}
#include "diag.h"
#include "petuja.h"
SLOT_INTERFACE_START( pet_user_port_cards )
SLOT_INTERFACE("diag", PET_USERPORT_DIAGNOSTIC_CONNECTOR)
SLOT_INTERFACE("petuja", PET_USERPORT_JOYSTICK_ADAPTER)
SLOT_INTERFACE_END
|