1 // license:BSD-3-Clause
2 // copyright-holders:hap
3 // thanks-to:yoyo_chessboard, Berger
4 /******************************************************************************
5 
6 Fidelity Sensory Chess Challenger 6 (model SC6)
7 Fidelity Mini Sensory Chess Challenger (model MSC, 1982 version)
8 Fidelity The Gambit (model 6084)
9 
10 TODO:
11 - MSC MCU is currently emulated as I8039, due to missing EA pin emulation
12 - different button panel for fidel_msc_v2 artwork
13 - add the older versions of gambit(assuming different ROM): 1st version is
14   probably the same as "The Classic", and 2nd version has voice capability
15 
16 -------------------------------------------------------------------------------
17 
18 SC6 hardware notes:
19 - PCB label 510-1045B01
20 - INS8040N-11 MCU, 11MHz XTAL
21 - external 4KB ROM 2332 101-1035A01, in module slot
22 - buzzer, 2 7seg LEDs, 8*8 chessboard buttons
23 
24 SC6 released modules, * denotes not dumped yet:
25 - *BO6: Book Openings I
26 - *CG6: Greatest Chess Games 1
27 - SC6: pack-in, original program
28 
29 SC6 program is contained in BO6 and CG6.
30 
31 -------------------------------------------------------------------------------
32 
33 MSC hardware notes:
34 - PCB label 510-1044B01
35 - P8049H MCU, 2KB internal ROM, 11MHz XTAL
36 - buzzer, 18 leds, 8*8 chessboard buttons, module slot
37 
38 MCU ports I/O is identical to SC6.
39 
40 It accepts the same modules as the 1st MSC version. See fidel_msc.cpp for known
41 modules. The module overrides the internal ROM, by asserting the EA pin.
42 
43 -------------------------------------------------------------------------------
44 
45 Gambit(v3) hardware notes:
46 - PCB label 510-1115A01 (1986 PCB, but chips from 1989)
47 - TMP80C50AP-6-9311 MCU, 4KB internal ROM, 6MHz XTAL
48 - buzzer, 16 leds, 8*8 chessboard buttons
49 
50 MCU ports I/O again identical to SC6.
51 The same MCU+ROM was also used in Designer 1500(PCB label 510.1131A01).
52 
53 Gambit Voice hardware notes:
54 - TMP80C50AP-6-9311 MCU, 4KB internal ROM, 6MHz XTAL
55 - 510.1117A01 sound PCB, the one from Excel Voice, but with 2332 ROM
56 - speaker, 16 leds, 8*8 chessboard buttons
57 
58 Silver Bullet hardware notes:
59 - PCB from MSC, but lose/check leds unpopulated
60 - TMP80C50AP-6-9311 MCU, 4KB internal ROM, 6MHz XTAL
61 - buzzer, 16 leds, 8*8 chessboard buttons, module slot
62 
63 To summarize, known MCU chip ROM serials+year:
64 - 100-1020B01 (1989), The Gambit
65 - 100-1020B02 (1986), Silver Bullet
66 - 100-1020B02 (1987), The Classic
67 - 100-1020C01 (1987), Gambit Voice
68 
69 ******************************************************************************/
70 
71 #include "emu.h"
72 #include "cpu/mcs48/mcs48.h"
73 #include "machine/sensorboard.h"
74 #include "sound/dac.h"
75 #include "video/pwm.h"
76 #include "bus/generic/slot.h"
77 #include "bus/generic/carts.h"
78 
79 #include "softlist.h"
80 #include "speaker.h"
81 
82 // internal artwork
83 #include "fidel_gambit.lh" // clickable
84 #include "fidel_msc_v2.lh" // clickable
85 #include "fidel_sc6.lh" // clickable
86 
87 
88 namespace {
89 
90 class sc6_state : public driver_device
91 {
92 public:
sc6_state(const machine_config & mconfig,device_type type,const char * tag)93 	sc6_state(const machine_config &mconfig, device_type type, const char *tag) :
94 		driver_device(mconfig, type, tag),
95 		m_maincpu(*this, "maincpu"),
96 		m_rom(*this, "maincpu"),
97 		m_board(*this, "board"),
98 		m_display(*this, "display"),
99 		m_dac(*this, "dac"),
100 		m_cart(*this, "cartslot"),
101 		m_inputs(*this, "IN.0")
102 	{ }
103 
104 	// machine configs
105 	void msc(machine_config &config);
106 	void sc6(machine_config &config);
107 	void gambit(machine_config &config);
108 
109 protected:
110 	virtual void machine_start() override;
111 
112 private:
113 	// devices/pointers
114 	required_device<mcs48_cpu_device> m_maincpu;
115 	required_region_ptr<u8> m_rom;
116 	required_device<sensorboard_device> m_board;
117 	required_device<pwm_display_device> m_display;
118 	required_device<dac_bit_interface> m_dac;
119 	optional_device<generic_slot_device> m_cart;
120 	required_ioport m_inputs;
121 
122 	// address maps
123 	void msc_map(address_map &map);
124 	void sc6_map(address_map &map);
125 
126 	// I/O handlers
127 	void update_display();
128 	void mux_w(u8 data);
129 	void select_w(u8 data);
130 	u8 rom_r(offs_t offset);
131 
132 	u8 read_inputs();
133 	u8 input_r();
134 	DECLARE_READ_LINE_MEMBER(input6_r);
135 	DECLARE_READ_LINE_MEMBER(input7_r);
136 
137 	u8 m_led_select = 0;
138 	u8 m_inp_mux = 0;
139 };
140 
machine_start()141 void sc6_state::machine_start()
142 {
143 	// register for savestates
144 	save_item(NAME(m_led_select));
145 	save_item(NAME(m_inp_mux));
146 }
147 
148 
149 
150 /******************************************************************************
151     I/O
152 ******************************************************************************/
153 
154 // MCU ports/generic
155 
update_display()156 void sc6_state::update_display()
157 {
158 	// MSC: 18 leds, SC6: 2 7seg leds
159 	m_display->matrix(m_led_select, 1 << m_inp_mux);
160 }
161 
mux_w(u8 data)162 void sc6_state::mux_w(u8 data)
163 {
164 	// P24-P27: 7442 A-D (or 74145)
165 	// 7442 0-8: input mux, led data
166 	m_inp_mux = data >> 4 & 0xf;
167 	update_display();
168 
169 	// 7442 9: speaker out
170 	m_dac->write(BIT(1 << m_inp_mux, 9));
171 }
172 
select_w(u8 data)173 void sc6_state::select_w(u8 data)
174 {
175 	// P16,P17: led select
176 	m_led_select = ~data >> 6 & 3;
177 	update_display();
178 }
179 
rom_r(offs_t offset)180 u8 sc6_state::rom_r(offs_t offset)
181 {
182 	// MSC reads from cartridge if it's inserted(A12 high), otherwise from internal ROM
183 	return m_cart->exists() ? m_cart->read_rom(offset | 0x1000) : m_rom[offset];
184 }
185 
read_inputs()186 u8 sc6_state::read_inputs()
187 {
188 	u8 data = 0;
189 
190 	// read chessboard sensors
191 	if (m_inp_mux < 8)
192 		data = m_board->read_file(m_inp_mux);
193 
194 	// read button panel
195 	else if (m_inp_mux == 8)
196 		data = m_inputs->read();
197 
198 	return ~data;
199 }
200 
input_r()201 u8 sc6_state::input_r()
202 {
203 	// P10-P15: multiplexed inputs low
204 	return (read_inputs() & 0x3f) | 0xc0;
205 }
206 
READ_LINE_MEMBER(sc6_state::input6_r)207 READ_LINE_MEMBER(sc6_state::input6_r)
208 {
209 	// T0: multiplexed inputs bit 6
210 	return read_inputs() >> 6 & 1;
211 }
212 
READ_LINE_MEMBER(sc6_state::input7_r)213 READ_LINE_MEMBER(sc6_state::input7_r)
214 {
215 	// T1: multiplexed inputs bit 7
216 	return read_inputs() >> 7 & 1;
217 }
218 
219 
220 
221 /******************************************************************************
222     Address Maps
223 ******************************************************************************/
224 
msc_map(address_map & map)225 void sc6_state::msc_map(address_map &map)
226 {
227 	map(0x0000, 0x0fff).r(FUNC(sc6_state::rom_r));
228 }
229 
sc6_map(address_map & map)230 void sc6_state::sc6_map(address_map &map)
231 {
232 	map(0x0000, 0x0fff).r("cartslot", FUNC(generic_slot_device::read_rom));
233 }
234 
235 
236 
237 /******************************************************************************
238     Input Ports
239 ******************************************************************************/
240 
241 static INPUT_PORTS_START( sc6 )
242 	PORT_START("IN.0")
PORT_CODE(KEYCODE_1)243 	PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_1) PORT_CODE(KEYCODE_1_PAD) PORT_NAME("RV / Pawn")
244 	PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_2) PORT_CODE(KEYCODE_2_PAD) PORT_NAME("DM / Knight")
245 	PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_3) PORT_CODE(KEYCODE_3_PAD) PORT_NAME("TB / Bishop")
246 	PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_4) PORT_CODE(KEYCODE_4_PAD) PORT_NAME("LV / Rook")
247 	PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_5) PORT_CODE(KEYCODE_5_PAD) PORT_NAME("PV / Queen")
248 	PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_6) PORT_CODE(KEYCODE_6_PAD) PORT_NAME("PB / King")
249 	PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_DEL) PORT_CODE(KEYCODE_BACKSPACE) PORT_NAME("CL")
250 	PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_R) PORT_NAME("RE")
251 INPUT_PORTS_END
252 
253 static INPUT_PORTS_START( msc )
254 	PORT_INCLUDE( sc6 )
255 
256 	PORT_MODIFY("IN.0")
257 	PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_3) PORT_CODE(KEYCODE_3_PAD) PORT_NAME("Speaker / Bishop")
258 INPUT_PORTS_END
259 
260 static INPUT_PORTS_START( gambit )
261 	PORT_START("IN.0")
262 	PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_1) PORT_CODE(KEYCODE_1_PAD) PORT_NAME("Move / Pawn")
263 	PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_2) PORT_CODE(KEYCODE_2_PAD) PORT_NAME("Hint / Knight")
264 	PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_3) PORT_CODE(KEYCODE_3_PAD) PORT_NAME("Take Back / Bishop")
265 	PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_4) PORT_CODE(KEYCODE_4_PAD) PORT_NAME("Level / Rook")
266 	PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_5) PORT_CODE(KEYCODE_5_PAD) PORT_NAME("Verify / Queen")
267 	PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_6) PORT_CODE(KEYCODE_6_PAD) PORT_NAME("Problem / King")
268 	PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_DEL) PORT_CODE(KEYCODE_BACKSPACE) PORT_NAME("Clear")
269 	PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_N) PORT_NAME("New Game")
270 INPUT_PORTS_END
271 
272 
273 
274 /******************************************************************************
275     Machine Configs
276 ******************************************************************************/
277 
278 void sc6_state::gambit(machine_config &config)
279 {
280 	/* basic machine hardware */
281 	I8050(config, m_maincpu, 6_MHz_XTAL);
282 	m_maincpu->p2_out_cb().set(FUNC(sc6_state::mux_w));
283 	m_maincpu->p1_in_cb().set(FUNC(sc6_state::input_r));
284 	m_maincpu->p1_out_cb().set(FUNC(sc6_state::select_w));
285 	m_maincpu->t0_in_cb().set(FUNC(sc6_state::input6_r));
286 	m_maincpu->t1_in_cb().set(FUNC(sc6_state::input7_r));
287 
288 	SENSORBOARD(config, m_board).set_type(sensorboard_device::BUTTONS);
289 	m_board->init_cb().set(m_board, FUNC(sensorboard_device::preset_chess));
290 	m_board->set_delay(attotime::from_msec(150));
291 
292 	/* video hardware */
293 	PWM_DISPLAY(config, m_display).set_size(2, 9);
294 	config.set_default_layout(layout_fidel_gambit);
295 
296 	/* sound hardware */
297 	SPEAKER(config, "speaker").front_center();
298 	DAC_1BIT(config, m_dac).add_route(ALL_OUTPUTS, "speaker", 0.25);
299 }
300 
msc(machine_config & config)301 void sc6_state::msc(machine_config &config)
302 {
303 	gambit(config);
304 
305 	/* basic machine hardware */
306 	I8039(config.replace(), m_maincpu, 11_MHz_XTAL); // actually I8049
307 	m_maincpu->set_addrmap(AS_PROGRAM, &sc6_state::msc_map);
308 	m_maincpu->p2_out_cb().set(FUNC(sc6_state::mux_w));
309 	m_maincpu->p1_in_cb().set(FUNC(sc6_state::input_r));
310 	m_maincpu->p1_out_cb().set(FUNC(sc6_state::select_w));
311 	m_maincpu->t0_in_cb().set(FUNC(sc6_state::input6_r));
312 	m_maincpu->t1_in_cb().set(FUNC(sc6_state::input7_r));
313 
314 	config.set_default_layout(layout_fidel_msc_v2);
315 
316 	/* cartridge */
317 	GENERIC_CARTSLOT(config, "cartslot", generic_plain_slot, "fidel_msc");
318 	SOFTWARE_LIST(config, "cart_list").set_original("fidel_msc");
319 }
320 
sc6(machine_config & config)321 void sc6_state::sc6(machine_config &config)
322 {
323 	gambit(config);
324 
325 	/* basic machine hardware */
326 	I8040(config.replace(), m_maincpu, 11_MHz_XTAL);
327 	m_maincpu->set_addrmap(AS_PROGRAM, &sc6_state::sc6_map);
328 	m_maincpu->p2_out_cb().set(FUNC(sc6_state::mux_w));
329 	m_maincpu->p1_in_cb().set(FUNC(sc6_state::input_r));
330 	m_maincpu->p1_out_cb().set(FUNC(sc6_state::select_w));
331 	m_maincpu->t0_in_cb().set(FUNC(sc6_state::input6_r));
332 	m_maincpu->t1_in_cb().set(FUNC(sc6_state::input7_r));
333 
334 	/* video hardware */
335 	m_display->set_segmask(0x3, 0x7f);
336 	config.set_default_layout(layout_fidel_sc6);
337 
338 	/* cartridge */
339 	GENERIC_CARTSLOT(config, "cartslot", generic_plain_slot, "fidel_sc6").set_must_be_loaded(true);
340 	SOFTWARE_LIST(config, "cart_list").set_original("fidel_sc6");
341 }
342 
343 
344 
345 /******************************************************************************
346     ROM Definitions
347 ******************************************************************************/
348 
349 ROM_START( fscc6 )
350 	ROM_REGION( 0x1000, "maincpu", ROMREGION_ERASE00 )
351 	// none here, it's in the module slot
352 ROM_END
353 
354 ROM_START( miniscc )
355 	ROM_REGION( 0x1000, "maincpu", 0 )
356 	ROM_LOAD("100-1012b01", 0x0000, 0x0800, CRC(ea3261f7) SHA1(1601358fdf0eee0b973c0f4c78bf679b8dada72a) ) // internal ROM
357 	ROM_RELOAD(             0x0800, 0x0800)
358 ROM_END
359 
360 ROM_START( gambit )
361 	ROM_REGION( 0x1000, "maincpu", 0 )
362 	ROM_LOAD("100-1020b01", 0x0000, 0x1000, CRC(ba41b5ba) SHA1(1a5c5b2e990a07b9ff51eecfa952a4b890107797) ) // internal ROM
363 ROM_END
364 
365 } // anonymous namespace
366 
367 
368 
369 /******************************************************************************
370     Drivers
371 ******************************************************************************/
372 
373 //    YEAR  NAME     PARENT  CMP MACHINE  INPUT   CLASS      INIT        COMPANY, FULLNAME, FLAGS
374 CONS( 1982, fscc6,   0,       0, sc6,     sc6,    sc6_state, empty_init, "Fidelity Electronics", "Sensory Chess Challenger \"6\"", MACHINE_SUPPORTS_SAVE | MACHINE_CLICKABLE_ARTWORK )
375 CONS( 1982, miniscc, 0,       0, msc,     msc,    sc6_state, empty_init, "Fidelity Electronics", "Mini Sensory Chess Challenger (1982 version)", MACHINE_SUPPORTS_SAVE | MACHINE_CLICKABLE_ARTWORK ) // aka "Mini Sensory II"
376 
377 CONS( 1989, gambit,  0,       0, gambit,  gambit, sc6_state, empty_init, "Fidelity Electronics", "The Gambit (1989 version)", MACHINE_SUPPORTS_SAVE | MACHINE_CLICKABLE_ARTWORK )
378