1 // license:BSD-3-Clause
2 // copyright-holders:hap
3 /******************************************************************************
4
5 La Régence, French chess computer by "France Double R". German distribution
6 by Sandy Electronic, who sub-titled it TSB 4 (Turniersensorbrett).
7
8 The chess engine is Richard Lang's Cyrus.
9
10 Hardware notes:
11 - PCB label: FRANCE DOUBLE R, MADE IN FRANCE
12 - Sharp LH0080A Z80A @ 4 MHz (8MHz XTAL)
13 - 3*4KB ROM, sockets support up to 48KB ROM
14 - 2KB RAM (MSM5128-15RS), 3 sockets, only middle one used
15 - TTL, piezo, 8*8+4 LEDs, magnetic sensors
16
17 TODO:
18 - verify irq source/frequency, probably a 555 ic, current approximation is from
19 comparing led blink rate with a video recording
20
21 ******************************************************************************/
22
23 #include "emu.h"
24 #include "cpu/z80/z80.h"
25 #include "machine/sensorboard.h"
26 #include "sound/dac.h"
27 #include "video/pwm.h"
28 #include "speaker.h"
29
30 // internal artwork
31 #include "regence.lh" // clickable
32
33
34 namespace {
35
36 class regence_state : public driver_device
37 {
38 public:
regence_state(const machine_config & mconfig,device_type type,const char * tag)39 regence_state(const machine_config &mconfig, device_type type, const char *tag) :
40 driver_device(mconfig, type, tag),
41 m_maincpu(*this, "maincpu"),
42 m_display(*this, "display"),
43 m_board(*this, "board"),
44 m_dac(*this, "dac"),
45 m_inputs(*this, "IN.%u", 0)
46 { }
47
48 // machine configs
49 void regence(machine_config &config);
50
51 protected:
52 virtual void machine_start() override;
53
54 private:
55 // devices/pointers
56 required_device<cpu_device> m_maincpu;
57 required_device<pwm_display_device> m_display;
58 required_device<sensorboard_device> m_board;
59 required_device<dac_bit_interface> m_dac;
60 required_ioport_array<2> m_inputs;
61
62 // address maps
63 void main_map(address_map &map);
64
65 // I/O handlers
66 void update_display();
67 void control_w(u8 data);
68 void leds_w(u8 data);
69 u8 input_r();
70
71 u8 m_inp_mux = 0;
72 u8 m_led_data = 0;
73 };
74
machine_start()75 void regence_state::machine_start()
76 {
77 // register for savestates
78 save_item(NAME(m_inp_mux));
79 save_item(NAME(m_led_data));
80 }
81
82
83
84 /******************************************************************************
85 I/O
86 ******************************************************************************/
87
update_display()88 void regence_state::update_display()
89 {
90 m_display->matrix(1 << m_inp_mux, m_led_data);
91 }
92
control_w(u8 data)93 void regence_state::control_w(u8 data)
94 {
95 // d0-d3: input mux/led select
96 m_inp_mux = data & 0xf;
97 update_display();
98
99 // d7: speaker out
100 m_dac->write(BIT(data, 7));
101
102 // other: ?
103 }
104
leds_w(u8 data)105 void regence_state::leds_w(u8 data)
106 {
107 // d0-d7: led data
108 m_led_data = data;
109 update_display();
110 }
111
input_r()112 u8 regence_state::input_r()
113 {
114 u8 data = 0;
115
116 // d0-d7: multiplexed inputs
117 // read chessboard sensors
118 if (m_inp_mux < 8)
119 data = m_board->read_file(m_inp_mux, true);
120
121 // read other buttons
122 else if (m_inp_mux < 10)
123 data = m_inputs[m_inp_mux - 8]->read();
124
125 return data;
126 }
127
128
129
130 /******************************************************************************
131 Address Maps
132 ******************************************************************************/
133
main_map(address_map & map)134 void regence_state::main_map(address_map &map)
135 {
136 map(0x0000, 0x0fff).rom();
137 map(0x4000, 0x4fff).rom();
138 map(0x8000, 0x8fff).rom();
139 map(0xd000, 0xd7ff).ram();
140 map(0xf000, 0xf000).rw(FUNC(regence_state::input_r), FUNC(regence_state::control_w));
141 map(0xf800, 0xf800).w(FUNC(regence_state::leds_w));
142 }
143
144
145
146 /******************************************************************************
147 Input Ports
148 ******************************************************************************/
149
150 static INPUT_PORTS_START( regence )
151 PORT_START("IN.0")
PORT_CODE(KEYCODE_S)152 PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_S) PORT_NAME("Changement de Position (Set Up)") // Veränderung
153 PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_T) PORT_NAME(u8"Retour en Arrière (Take Back)") // Zug Zurück
154 PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_N) PORT_NAME("Nouvelle Partie (New Game)") // Neues Spiel (press after setup)
155 PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_6) PORT_CODE(KEYCODE_6_PAD) PORT_NAME("King")
156 PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_5) PORT_CODE(KEYCODE_5_PAD) PORT_NAME("Queen")
157 PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_4) PORT_CODE(KEYCODE_4_PAD) PORT_NAME("Rook")
158 PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_3) PORT_CODE(KEYCODE_3_PAD) PORT_NAME("Bishop")
159 PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_UNUSED)
160
161 PORT_START("IN.1")
162 PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_O) PORT_NAME("Son (Sound)") // Ton
163 PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_L) PORT_NAME("Niveau (Level)") // Stufe
164 PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_M) PORT_CODE(KEYCODE_H) PORT_NAME("Marche/Arret (Move/Halt)") // Zug-Halt
165 PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_B) PORT_NAME("Noir (Black)") // Schwarz
166 PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_W) PORT_NAME("Blanc (White)") // Weiss
167 PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_1) PORT_CODE(KEYCODE_1_PAD) PORT_NAME("Pawn")
168 PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_2) PORT_CODE(KEYCODE_2_PAD) PORT_NAME("Knight")
169 PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_UNUSED)
170 INPUT_PORTS_END
171
172
173
174 /******************************************************************************
175 Machine Configs
176 ******************************************************************************/
177
178 void regence_state::regence(machine_config &config)
179 {
180 /* basic machine hardware */
181 Z80(config, m_maincpu, 8_MHz_XTAL/2);
182 m_maincpu->set_addrmap(AS_PROGRAM, ®ence_state::main_map);
183
184 m_maincpu->set_periodic_int(FUNC(regence_state::irq0_line_hold), attotime::from_hz(400)); // approximation
185
186 SENSORBOARD(config, m_board).set_type(sensorboard_device::MAGNETS);
187 m_board->init_cb().set(m_board, FUNC(sensorboard_device::preset_chess));
188 m_board->set_delay(attotime::from_msec(150));
189
190 /* video hardware */
191 PWM_DISPLAY(config, m_display).set_size(10, 8);
192 config.set_default_layout(layout_regence);
193
194 /* sound hardware */
195 SPEAKER(config, "speaker").front_center();
196 DAC_1BIT(config, m_dac).add_route(ALL_OUTPUTS, "speaker", 0.25);
197 }
198
199
200
201 /******************************************************************************
202 ROM Definitions
203 ******************************************************************************/
204
205 ROM_START( regence )
206 ROM_REGION( 0x10000, "maincpu", 0 )
207 ROM_LOAD("ic13", 0x0000, 0x1000, CRC(ac6a0a67) SHA1(52b115c7cd372dfbad14b00854aa4f6f75a937d3) )
208 ROM_LOAD("ic12", 0x4000, 0x1000, CRC(5c2fb0c7) SHA1(811ab3d7cefcf872741eb2265115080aaf913f0f) )
209 ROM_LOAD("ic11", 0x8000, 0x1000, CRC(e4c39dbd) SHA1(b6a6d1d39f73a2ff1ade6205bdf180be13e84df3) )
210 ROM_END
211
212 } // anonymous namespace
213
214
215
216 /******************************************************************************
217 Drivers
218 ******************************************************************************/
219
220 /* YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY, FULLNAME, FLAGS */
221 CONS( 1982, regence, 0, 0, regence, regence, regence_state, empty_init, "France Double R", u8"La Régence", MACHINE_SUPPORTS_SAVE | MACHINE_CLICKABLE_ARTWORK )
222