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
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
// license:BSD-3-Clause
// copyright-holders:Carl,Miodrag Milanovic
/***************************************************************************
ISA 8 bit Generic Communication Card
***************************************************************************/
#include "emu.h"
#include "com.h"
#include "bus/rs232/hlemouse.h"
#include "bus/rs232/null_modem.h"
#include "bus/rs232/rs232.h"
#include "bus/rs232/sun_kbd.h"
#include "bus/rs232/terminal.h"
#include "machine/ins8250.h"
static void isa_com(device_slot_interface &device)
{
device.option_add("microsoft_mouse", MSFT_HLE_SERIAL_MOUSE);
device.option_add("logitech_mouse", LOGITECH_HLE_SERIAL_MOUSE);
device.option_add("wheel_mouse", WHEEL_HLE_SERIAL_MOUSE);
device.option_add("msystems_mouse", MSYSTEMS_HLE_SERIAL_MOUSE);
device.option_add("rotatable_mouse", ROTATABLE_HLE_SERIAL_MOUSE);
device.option_add("terminal", SERIAL_TERMINAL);
device.option_add("null_modem", NULL_MODEM);
device.option_add("sun_kbd", SUN_KBD_ADAPTOR);
}
//**************************************************************************
// GLOBAL VARIABLES
//**************************************************************************
DEFINE_DEVICE_TYPE(ISA8_COM, isa8_com_device, "isa_com", "Communications Adapter PC/XT")
//-------------------------------------------------
// device_add_mconfig - add device configuration
//-------------------------------------------------
void isa8_com_device::device_add_mconfig(machine_config &config)
{
ins8250_device &uart0(INS8250(config, "uart_0", XTAL(1'843'200)));
uart0.out_tx_callback().set("serport0", FUNC(rs232_port_device::write_txd));
uart0.out_dtr_callback().set("serport0", FUNC(rs232_port_device::write_dtr));
uart0.out_rts_callback().set("serport0", FUNC(rs232_port_device::write_rts));
uart0.out_int_callback().set(FUNC(isa8_com_device::pc_com_interrupt_1));
ins8250_device &uart1(INS8250(config, "uart_1", XTAL(1'843'200)));
uart1.out_tx_callback().set("serport1", FUNC(rs232_port_device::write_txd));
uart1.out_dtr_callback().set("serport1", FUNC(rs232_port_device::write_dtr));
uart1.out_rts_callback().set("serport1", FUNC(rs232_port_device::write_rts));
uart1.out_int_callback().set(FUNC(isa8_com_device::pc_com_interrupt_2));
/*ins8250_device &uart2(INS8250(config, "uart_2", XTAL(1'843'200)));
uart2.out_tx_callback().set("serport2", FUNC(rs232_port_device::write_txd));
uart2.out_dtr_callback().set("serport2", FUNC(rs232_port_device::write_dtr));
uart2.out_rts_callback().set("serport2", FUNC(rs232_port_device::write_rts));
uart2.out_int_callback().set(FUNC(isa8_com_device::pc_com_interrupt_1));
ins8250_device &uart3(INS8250(config, "uart_3", XTAL(1'843'200)));
uart3.out_tx_callback().set("serport3", FUNC(rs232_port_device::write_txd));
uart3.out_dtr_callback().set("serport3", FUNC(rs232_port_device::write_dtr));
uart3.out_rts_callback().set("serport3", FUNC(rs232_port_device::write_rts));
uart3.out_int_callback().set(FUNC(isa8_com_device::pc_com_interrupt_2));*/
rs232_port_device &serport0(RS232_PORT(config, "serport0", isa_com, "logitech_mouse"));
serport0.rxd_handler().set(uart0, FUNC(ins8250_uart_device::rx_w));
serport0.dcd_handler().set(uart0, FUNC(ins8250_uart_device::dcd_w));
serport0.dsr_handler().set(uart0, FUNC(ins8250_uart_device::dsr_w));
serport0.ri_handler().set(uart0, FUNC(ins8250_uart_device::ri_w));
serport0.cts_handler().set(uart0, FUNC(ins8250_uart_device::cts_w));
rs232_port_device &serport1(RS232_PORT(config, "serport1", isa_com, nullptr));
serport1.rxd_handler().set(uart1, FUNC(ins8250_uart_device::rx_w));
serport1.dcd_handler().set(uart1, FUNC(ins8250_uart_device::dcd_w));
serport1.dsr_handler().set(uart1, FUNC(ins8250_uart_device::dsr_w));
serport1.ri_handler().set(uart1, FUNC(ins8250_uart_device::ri_w));
serport1.cts_handler().set(uart1, FUNC(ins8250_uart_device::cts_w));
//rs232_port_device &serport2(RS232_PORT(config, "serport2", isa_com, nullptr));
//serport2.rxd_handler().set(uart2, FUNC(ins8250_uart_device::rx_w));
//serport2.dcd_handler().set(uart2, FUNC(ins8250_uart_device::dcd_w));
//serport2.dsr_handler().set(uart2, FUNC(ins8250_uart_device::dsr_w));
//serport2.ri_handler().set(uart2, FUNC(ins8250_uart_device::ri_w));
//serport2.cts_handler().set(uart2, FUNC(ins8250_uart_device::cts_w));
//rs232_port_device &serport3(RS232_PORT(config, "serport3", isa_com, nullptr));
//serport3.rxd_handler().set(uart3, FUNC(ins8250_uart_device::rx_w));
//serport3.dcd_handler().set(uart3, FUNC(ins8250_uart_device::dcd_w));
//serport3.dsr_handler().set(uart3, FUNC(ins8250_uart_device::dsr_w));
//serport3.ri_handler().set(uart3, FUNC(ins8250_uart_device::ri_w));
//serport3.cts_handler().set(uart3, FUNC(ins8250_uart_device::cts_w));
}
//**************************************************************************
// LIVE DEVICE
//**************************************************************************
//-------------------------------------------------
// isa8_com_device - constructor
//-------------------------------------------------
isa8_com_device::isa8_com_device(const machine_config &mconfig, const char *tag, device_t *owner, const XTAL &clock) :
isa8_com_device(mconfig, ISA8_COM, tag, owner, clock)
{
}
isa8_com_device::isa8_com_device(const machine_config &mconfig, device_type type, const char *tag, device_t *owner, const XTAL &clock) :
device_t(mconfig, type, tag, owner, clock),
device_isa8_card_interface(mconfig, *this)
{
}
//-------------------------------------------------
// device_start - device-specific startup
//-------------------------------------------------
void isa8_com_device::device_start()
{
set_isa_device();
m_isa->install_device(0x03f8, 0x03ff, read8sm_delegate(*subdevice<ins8250_uart_device>("uart_0"), FUNC(ins8250_device::ins8250_r)), write8sm_delegate(*subdevice<ins8250_uart_device>("uart_0"), FUNC(ins8250_device::ins8250_w)));
m_isa->install_device(0x02f8, 0x02ff, read8sm_delegate(*subdevice<ins8250_uart_device>("uart_1"), FUNC(ins8250_device::ins8250_r)), write8sm_delegate(*subdevice<ins8250_uart_device>("uart_1"), FUNC(ins8250_device::ins8250_w)));
// m_isa->install_device(0x03e8, 0x03ef, read8sm_delegate(*subdevice<ins8250_uart_device>("uart_2"), FUNC(ins8250_device::ins8250_r)), write8sm_delegate(*subdevice<ins8250_uart_device>("uart_2"), FUNC(ins8250_device::ins8250_w)));
// m_isa->install_device(0x02e8, 0x02ef, read8sm_delegate(*subdevice<ins8250_uart_device>("uart_3"), FUNC(ins8250_device::ins8250_r)), write8sm_delegate(*subdevice<ins8250_uart_device>("uart_3"), FUNC(ins8250_device::ins8250_w)));
}
//-------------------------------------------------
// device_reset - device-specific reset
//-------------------------------------------------
void isa8_com_device::device_reset()
{
}
//**************************************************************************
// GLOBAL VARIABLES
//**************************************************************************
DEFINE_DEVICE_TYPE(ISA8_COM_AT, isa8_com_at_device, "isa_com_at", "Communications Adapter")
//-------------------------------------------------
// device_add_mconfig - add device configuration
//-------------------------------------------------
void isa8_com_at_device::device_add_mconfig(machine_config &config)
{
ns16450_device &uart0(NS16450(config, "uart_0", XTAL(1'843'200))); /* Verified: IBM P/N 6320947 Serial/Parallel card uses an NS16450N */
uart0.out_tx_callback().set("serport0", FUNC(rs232_port_device::write_txd));
uart0.out_dtr_callback().set("serport0", FUNC(rs232_port_device::write_dtr));
uart0.out_rts_callback().set("serport0", FUNC(rs232_port_device::write_rts));
uart0.out_int_callback().set(FUNC(isa8_com_device::pc_com_interrupt_1));
ns16450_device &uart1(NS16450(config, "uart_1", XTAL(1'843'200)));
uart1.out_tx_callback().set("serport1", FUNC(rs232_port_device::write_txd));
uart1.out_dtr_callback().set("serport1", FUNC(rs232_port_device::write_dtr));
uart1.out_rts_callback().set("serport1", FUNC(rs232_port_device::write_rts));
uart1.out_int_callback().set(FUNC(isa8_com_device::pc_com_interrupt_2));
/*ns16450_device &uart2(NS16450(config, "uart_2", XTAL(1'843'200)));
uart2.out_tx_callback().set("serport2", FUNC(rs232_port_device::write_txd));
uart2.out_dtr_callback().set("serport2", FUNC(rs232_port_device::write_dtr));
uart2.out_rts_callback().set("serport2", FUNC(rs232_port_device::write_rts));
uart2.out_int_callback().set(FUNC(isa8_com_device::pc_com_interrupt_1));
ns16450_device &uart3(NS16450(config, "uart_3", XTAL(1'843'200)));
uart3.out_tx_callback().set("serport3", FUNC(rs232_port_device::write_txd));
uart3.out_dtr_callback().set("serport3", FUNC(rs232_port_device::write_dtr));
uart3.out_rts_callback().set("serport3", FUNC(rs232_port_device::write_rts));
uart3.out_int_callback().set(FUNC(isa8_com_device::pc_com_interrupt_2));*/
rs232_port_device &serport0(RS232_PORT(config, "serport0", isa_com, "logitech_mouse"));
serport0.rxd_handler().set(uart0, FUNC(ins8250_uart_device::rx_w));
serport0.dcd_handler().set(uart0, FUNC(ins8250_uart_device::dcd_w));
serport0.dsr_handler().set(uart0, FUNC(ins8250_uart_device::dsr_w));
serport0.ri_handler().set(uart0, FUNC(ins8250_uart_device::ri_w));
serport0.cts_handler().set(uart0, FUNC(ins8250_uart_device::cts_w));
rs232_port_device &serport1(RS232_PORT(config, "serport1", isa_com, nullptr));
serport1.rxd_handler().set(uart1, FUNC(ins8250_uart_device::rx_w));
serport1.dcd_handler().set(uart1, FUNC(ins8250_uart_device::dcd_w));
serport1.dsr_handler().set(uart1, FUNC(ins8250_uart_device::dsr_w));
serport1.ri_handler().set(uart1, FUNC(ins8250_uart_device::ri_w));
serport1.cts_handler().set(uart1, FUNC(ins8250_uart_device::cts_w));
//RS232_PORT(config, "serport2", isa_com, nullptr);
//RS232_PORT(config, "serport3", isa_com, nullptr);
}
//-------------------------------------------------
// isa8_com_device - constructor
//-------------------------------------------------
isa8_com_at_device::isa8_com_at_device(const machine_config &mconfig, const char *tag, device_t *owner, const XTAL &clock) :
isa8_com_device(mconfig, ISA8_COM_AT, tag, owner, clock)
{
}
|