1 // license: BSD-3-Clause
2 // copyright-holders: Dirk Best
3 /***************************************************************************
4 
5     Informer 207/376 Keyboard (HLE)
6 
7 ***************************************************************************/
8 
9 #include "emu.h"
10 #include "informer_207_376_kbd.h"
11 #include "machine/keyboard.ipp"
12 
13 
14 //**************************************************************************
15 //  DEVICE DEFINITIONS
16 //**************************************************************************
17 
18 DEFINE_DEVICE_TYPE(INFORMER_207_376_KBD_HLE, informer_207_376_kbd_hle_device, "in207376kbd_hle", "Informer 207/376 Keyboard (HLE)")
19 
20 
21 //-------------------------------------------------
22 //  input_ports - device-specific input ports
23 //-------------------------------------------------
24 
25 // keys not mapped yet:
26 //
27 // PF13 PF14 PF15 PF16 PF17 PF18 PF19 PF20 PF21 PF22 PF23 (PF24 = cursor up?)
28 // ATTN
29 
INPUT_PORTS_START(keyboard)30 static INPUT_PORTS_START( keyboard )
31 	PORT_START("row_0")
32 	PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 00 */
33 	PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 01 */
34 	PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 02 */
35 	PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 03 */
36 	PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 04 */
37 	PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 05 */
38 	PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 06 */
39 	PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 07 */
40 	PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 08 */ PORT_CODE(KEYCODE_ENTER)      PORT_CHAR(0x0d)                 PORT_NAME("\xe2\x86\xb2") // ↲
41 	PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 09 */ PORT_CODE(KEYCODE_OPENBRACE)  PORT_CHAR('<') PORT_CHAR('>')
42 	PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 0a */
43 	PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 0b */
44 	PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 0c */ PORT_CODE(KEYCODE_INSERT)     PORT_CHAR(UCHAR_MAMEKEY(INSERT))
45 	PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 0d */ PORT_CODE(KEYCODE_DEL)        PORT_CHAR(UCHAR_MAMEKEY(DEL))
46 	PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 0e */ PORT_CODE(KEYCODE_UP)         PORT_CHAR(UCHAR_MAMEKEY(UP))    PORT_NAME("\xe2\x86\x91")
47 	PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 0f */ PORT_CODE(KEYCODE_CLOSEBRACE) PORT_CHAR('{') PORT_CHAR('}')
48 
49 	PORT_START("row_1")
50 	PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 10 */ PORT_CODE(KEYCODE_SPACE)      PORT_CHAR(' ')
51 	PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 11 */ PORT_CODE(KEYCODE_EQUALS)     PORT_CHAR('=')  PORT_CHAR('+')
52 	PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 12 */ PORT_CODE(KEYCODE_QUOTE)      PORT_CHAR('\'') PORT_CHAR('"')
53 	PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 13 */ PORT_CODE(KEYCODE_DOWN)       PORT_CHAR(UCHAR_MAMEKEY(DOWN))  PORT_NAME("\xe2\x86\x93")
54 	PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 14 */ PORT_CODE(KEYCODE_SLASH)      PORT_CHAR('/')  PORT_CHAR('?')
55 	PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 15 */ PORT_CODE(KEYCODE_BACKSLASH)  PORT_CHAR('\\') PORT_NAME(u8"\\  ¦")
56 	PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 16 */ PORT_CODE(KEYCODE_LEFT)       PORT_CHAR(UCHAR_MAMEKEY(LEFT))  PORT_NAME("\xe2\x86\x90")
57 	PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 17 */
58 	PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 18 */ PORT_CODE(KEYCODE_ENTER_PAD)  PORT_NAME("Enter  Set Up")
59 	PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 19 */
60 	PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 1a */ PORT_CODE(KEYCODE_RIGHT)      PORT_CHAR(UCHAR_MAMEKEY(RIGHT)) PORT_NAME("\xe2\x86\x92")
61 	PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 1b */ PORT_CODE(KEYCODE_BACKSLASH2) PORT_CHAR(0) PORT_CHAR('!')     PORT_NAME(u8"¢  !")
62 	PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 1c */
63 	PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 1d */
64 	PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 1e */
65 	PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 1f */
66 
67 	PORT_START("row_2")
68 	PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 20 */ PORT_CODE(KEYCODE_0) PORT_CHAR('0') PORT_CHAR(')')
69 	PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 21 */ PORT_CODE(KEYCODE_1) PORT_CHAR('1') PORT_CHAR('|')
70 	PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 22 */ PORT_CODE(KEYCODE_2) PORT_CHAR('2') PORT_CHAR('@')
71 	PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 23 */ PORT_CODE(KEYCODE_3) PORT_CHAR('3') PORT_CHAR('#')
72 	PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 24 */ PORT_CODE(KEYCODE_4) PORT_CHAR('4') PORT_CHAR('$')
73 	PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 25 */ PORT_CODE(KEYCODE_5) PORT_CHAR('5') PORT_CHAR('%')
74 	PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 26 */ PORT_CODE(KEYCODE_6) PORT_CHAR('6')                PORT_NAME(u8"6  ¬")
75 	PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 27 */ PORT_CODE(KEYCODE_7) PORT_CHAR('7') PORT_CHAR('&')
76 	PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 28 */ PORT_CODE(KEYCODE_8) PORT_CHAR('8') PORT_CHAR('*')
77 	PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 29 */ PORT_CODE(KEYCODE_9) PORT_CHAR('9') PORT_CHAR('(')
78 	PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 2a */
79 	PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 2b */
80 	PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 2c */
81 	PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 2d */
82 	PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 2e */
83 	PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 2f */
84 
85 	PORT_START("row_3")
86 	PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 30 */ PORT_CODE(KEYCODE_MINUS)     PORT_CHAR('-') PORT_CHAR('_')
87 	PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 31 */ PORT_CODE(KEYCODE_BACKSPACE) PORT_CHAR(0x08)
88 	PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 32 */ PORT_CODE(KEYCODE_STOP)      PORT_CHAR('.') // same as 0x4b?
89 	PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 33 */ PORT_CODE(KEYCODE_COMMA)     PORT_CHAR(',') // same as 0x49?
90 	PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 34 */ PORT_CODE(KEYCODE_ESC)       PORT_NAME("Reset  Dev Cncl")
91 	PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 35 */ PORT_CODE(KEYCODE_TAB)       PORT_NAME("Tab or Back-Tab")
92 	PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 36 */ PORT_CODE(KEYCODE_HOME)      PORT_NAME("Tab or Back-Tab")
93 	PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 37 */
94 	PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 38 */
95 	PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 39 */
96 	PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 3a */
97 	PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 3b */
98 	PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 3c */
99 	PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 3d */ PORT_CODE(KEYCODE_TILDE)     PORT_CHAR('`') PORT_CHAR('~')
100 	PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 3e */
101 	PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 3f */
102 
103 	PORT_START("row_4")
104 	PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 40 */ // 7
105 	PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 41 */ // 8
106 	PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 42 */ // 9
107 	PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 43 */ // 4
108 	PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 44 */ // 5
109 	PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 45 */ // 6
110 	PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 46 */ // 1
111 	PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 47 */ // 2
112 	PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 48 */ // 3
113 	PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 49 */ PORT_CODE(KEYCODE_F5) // ,
114 	PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 4a */ // 0
115 	PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 4b */ PORT_CODE(KEYCODE_F6) // . with alt key unknown function
116 	PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 4c */ PORT_CODE(KEYCODE_CAPSLOCK) PORT_CHAR(UCHAR_MAMEKEY(CAPSLOCK)) PORT_NAME("Lock")
117 	PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 4d */ PORT_CODE(KEYCODE_LSHIFT)   PORT_CHAR(UCHAR_SHIFT_1)           PORT_NAME("Left Shift")  // or right?
118 	PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 4e */ PORT_CODE(KEYCODE_RSHIFT)                                      PORT_NAME("Right Shift") // or left?
119 	PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 4f */ PORT_CODE(KEYCODE_LALT)     PORT_CHAR(UCHAR_SHIFT_2)           PORT_NAME("Alt")
120 
121 	PORT_START("row_5")
122 	PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 50 */ PORT_CODE(KEYCODE_F2)        PORT_NAME("Cursor Sel  Clear")
123 	PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 51 */ PORT_CODE(KEYCODE_F1) // X + human? ATTN?
124 	PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 52 */
125 	PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 53 */
126 	PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 54 */ PORT_CODE(KEYCODE_F3)        PORT_NAME("Cursor Blink  Alt Cursor")
127 	PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 55 */ PORT_CODE(KEYCODE_END)       PORT_NAME("Erase EOF")
128 	PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 56 */ PORT_CODE(KEYCODE_PRTSCR)    PORT_NAME("Print")
129 	PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 57 */ PORT_CODE(KEYCODE_F4)        PORT_NAME("Keyclick  Test")
130 	PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 58 */
131 	PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 59 */
132 	PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 5a */
133 	PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 5b */
134 	PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 5c */
135 	PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 5d */
136 	PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 5e */ PORT_CODE(KEYCODE_MINUS_PAD) PORT_NAME("Field Mark")
137 	PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 5f */ PORT_CODE(KEYCODE_ASTERISK)  PORT_NAME("Dup")
138 
139 	PORT_START("row_6")
140 	PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 60 */ PORT_CODE(KEYCODE_A) PORT_CHAR('a') PORT_CHAR('A')
141 	PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 61 */ PORT_CODE(KEYCODE_B) PORT_CHAR('b') PORT_CHAR('B')
142 	PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 62 */ PORT_CODE(KEYCODE_C) PORT_CHAR('c') PORT_CHAR('C')
143 	PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 63 */ PORT_CODE(KEYCODE_D) PORT_CHAR('d') PORT_CHAR('D')
144 	PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 64 */ PORT_CODE(KEYCODE_E) PORT_CHAR('e') PORT_CHAR('E')
145 	PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 65 */ PORT_CODE(KEYCODE_F) PORT_CHAR('f') PORT_CHAR('F')
146 	PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 66 */ PORT_CODE(KEYCODE_G) PORT_CHAR('g') PORT_CHAR('G')
147 	PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 67 */ PORT_CODE(KEYCODE_H) PORT_CHAR('h') PORT_CHAR('H')
148 	PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 68 */ PORT_CODE(KEYCODE_I) PORT_CHAR('i') PORT_CHAR('I')
149 	PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 69 */ PORT_CODE(KEYCODE_J) PORT_CHAR('j') PORT_CHAR('J')
150 	PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 6a */ PORT_CODE(KEYCODE_K) PORT_CHAR('k') PORT_CHAR('K')
151 	PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 6b */ PORT_CODE(KEYCODE_L) PORT_CHAR('l') PORT_CHAR('L')
152 	PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 6c */ PORT_CODE(KEYCODE_M) PORT_CHAR('m') PORT_CHAR('M')
153 	PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 6d */ PORT_CODE(KEYCODE_N) PORT_CHAR('n') PORT_CHAR('N')
154 	PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 6e */ PORT_CODE(KEYCODE_O) PORT_CHAR('o') PORT_CHAR('O')
155 	PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 6f */ PORT_CODE(KEYCODE_P) PORT_CHAR('p') PORT_CHAR('P')
156 
157 	PORT_START("row_7")
158 	PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 70 */ PORT_CODE(KEYCODE_Q) PORT_CHAR('q') PORT_CHAR('Q')
159 	PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 71 */ PORT_CODE(KEYCODE_R) PORT_CHAR('r') PORT_CHAR('R')
160 	PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 72 */ PORT_CODE(KEYCODE_S) PORT_CHAR('s') PORT_CHAR('S')
161 	PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 73 */ PORT_CODE(KEYCODE_T) PORT_CHAR('t') PORT_CHAR('T')
162 	PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 74 */ PORT_CODE(KEYCODE_U) PORT_CHAR('u') PORT_CHAR('U')
163 	PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 75 */ PORT_CODE(KEYCODE_V) PORT_CHAR('v') PORT_CHAR('V')
164 	PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 76 */ PORT_CODE(KEYCODE_W) PORT_CHAR('w') PORT_CHAR('W')
165 	PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 77 */ PORT_CODE(KEYCODE_X) PORT_CHAR('x') PORT_CHAR('X')
166 	PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 78 */ PORT_CODE(KEYCODE_Y) PORT_CHAR('y') PORT_CHAR('Y')
167 	PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 79 */ PORT_CODE(KEYCODE_Z) PORT_CHAR('z') PORT_CHAR('Z')
168 	PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 7a */
169 	PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 7b */
170 	PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 7c */
171 	PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 7d */
172 	PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 7e */ PORT_CODE(KEYCODE_COLON) PORT_CHAR(';') PORT_CHAR(':')
173 	PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_UNKNOWN)  /* 7f */
174 INPUT_PORTS_END
175 
176 ioport_constructor informer_207_376_kbd_hle_device::device_input_ports() const
177 {
178 	return INPUT_PORTS_NAME( keyboard );
179 }
180 
181 
182 //**************************************************************************
183 //  LIVE DEVICE
184 //**************************************************************************
185 
186 //-------------------------------------------------
187 //  informer_207_376_kbd_hle_device - constructor
188 //-------------------------------------------------
189 
informer_207_376_kbd_hle_device(const machine_config & mconfig,const char * tag,device_t * owner,uint32_t clock)190 informer_207_376_kbd_hle_device::informer_207_376_kbd_hle_device(const machine_config &mconfig, const char *tag, device_t *owner, uint32_t clock) :
191 	device_t(mconfig, INFORMER_207_376_KBD_HLE, tag, owner, clock),
192 	device_buffered_serial_interface(mconfig, *this),
193 	device_matrix_keyboard_interface(mconfig, *this, "row_0", "row_1", "row_2", "row_3", "row_4", "row_5", "row_6", "row_7"),
194 	m_tx_handler(*this)
195 {
196 }
197 
198 //-------------------------------------------------
199 //  device_start - device-specific startup
200 //-------------------------------------------------
201 
device_start()202 void informer_207_376_kbd_hle_device::device_start()
203 {
204 	// resolve callbacks
205 	m_tx_handler.resolve_safe();
206 }
207 
208 //-------------------------------------------------
209 //  device_reset - device-specific reset
210 //-------------------------------------------------
211 
device_reset()212 void informer_207_376_kbd_hle_device::device_reset()
213 {
214 	clear_fifo();
215 
216 	receive_register_reset();
217 	transmit_register_reset();
218 
219 	set_data_frame(1, 8, PARITY_NONE, STOP_BITS_2);
220 	set_rcv_rate(2400);
221 	set_tra_rate(2400);
222 
223 	reset_key_state();
224 	start_processing(attotime::from_hz(2400));
225 	typematic_stop();
226 }
227 
228 //-------------------------------------------------
229 //  tra_callback - send bit to host
230 //-------------------------------------------------
231 
tra_callback()232 void informer_207_376_kbd_hle_device::tra_callback()
233 {
234 	m_tx_handler(transmit_register_get_data_bit());
235 }
236 
237 //-------------------------------------------------
238 //  received_byte - handle received byte
239 //-------------------------------------------------
240 
received_byte(uint8_t byte)241 void informer_207_376_kbd_hle_device::received_byte(uint8_t byte)
242 {
243 	logerror("Received from host: %02x\n", byte);
244 
245 	// correct? also gets 0x10 from host
246 	if (byte == 0x0a)
247 		transmit_byte(0x34); // send RESET
248 }
249 
250 //-------------------------------------------------
251 //  key_make - handle a key being pressed
252 //-------------------------------------------------
253 
key_make(uint8_t row,uint8_t column)254 void informer_207_376_kbd_hle_device::key_make(uint8_t row, uint8_t column)
255 {
256 	// send the code
257 	uint8_t code = row * 16 + column;
258 
259 	transmit_byte(code);
260 
261 	// no typematic for modifier keys
262 	if (code != 0x4c && code != 0x4d && code != 0x4e && code != 0x4f)
263 		typematic_start(row, column, attotime::from_msec(750), attotime::from_msec(50));
264 }
265 
266 //-------------------------------------------------
267 //  key_break - handle a key being released
268 //-------------------------------------------------
269 
key_break(uint8_t row,uint8_t column)270 void informer_207_376_kbd_hle_device::key_break(uint8_t row, uint8_t column)
271 {
272 	// send the break code (only for modifier keys: shift and alt)
273 	uint8_t code = row * 16 + column;
274 
275 	if (typematic_is(row, column))
276 		typematic_stop();
277 
278 	if (code == 0x4d || code == 0x4e || code == 0x4f)
279 		transmit_byte(0x80 | code);
280 }
281 
282 //-------------------------------------------------
283 //  key_repeat - handle a key being repeated
284 //-------------------------------------------------
285 
key_repeat(u8 row,u8 column)286 void informer_207_376_kbd_hle_device::key_repeat(u8 row, u8 column)
287 {
288 	uint8_t code = row * 16 + column;
289 	transmit_byte(code);
290 }
291 
292 //-------------------------------------------------
293 //  rx_w - receive bit from host
294 //-------------------------------------------------
295 
rx_w(int state)296 void informer_207_376_kbd_hle_device::rx_w(int state)
297 {
298 	device_buffered_serial_interface::rx_w(state);
299 }
300