1 // license:GPL-2.0+
2 // copyright-holders:Dirk Best
3 /***************************************************************************
4
5 EACA Colour Genie EG2000
6
7 TODO:
8 - System is too fast, there should be one wait cycle every five cycles?
9 - Adjust visible area so that the borders aren't that large (needs
10 MC6845 changes)
11 - Verify BASIC and character set versions
12
13 ***************************************************************************/
14
15 #include "emu.h"
16 #include "cpu/z80/z80.h"
17 #include "machine/ram.h"
18 #include "video/mc6845.h"
19 #include "sound/ay8910.h"
20 #include "imagedev/cassette.h"
21 #include "formats/cgen_cas.h"
22 #include "bus/rs232/rs232.h"
23 #include "bus/cgenie/expansion/expansion.h"
24 #include "bus/cgenie/parallel/parallel.h"
25 #include "screen.h"
26 #include "softlist.h"
27 #include "speaker.h"
28
29
30 //**************************************************************************
31 // TYPE DEFINITIONS
32 //**************************************************************************
33
34 class cgenie_state : public driver_device
35 {
36 public:
cgenie_state(const machine_config & mconfig,device_type type,const char * tag)37 cgenie_state(const machine_config &mconfig, device_type type, const char *tag) :
38 driver_device(mconfig, type, tag),
39 m_maincpu(*this, "maincpu"),
40 m_cassette(*this, "cassette"),
41 m_ram(*this, RAM_TAG),
42 m_crtc(*this, "crtc"),
43 m_rs232(*this, "rs232"),
44 m_exp(*this, "exp"),
45 m_char_rom(*this, "gfx1"),
46 m_color_ram(*this, "colorram"),
47 m_font_ram(*this, "fontram"),
48 m_keyboard(*this, "KEY.%u", 0),
49 m_palette(nullptr),
50 m_control(0xff),
51 m_rs232_rx(1),
52 m_rs232_dcd(1)
53 { }
54
55 void init_cgenie_eu();
56 void init_cgenie_nz();
57
58 MC6845_BEGIN_UPDATE(crtc_begin_update);
59 MC6845_UPDATE_ROW(crtc_update_row);
60
61 // 4-bit color ram
62 uint8_t colorram_r(offs_t offset);
63 void colorram_w(offs_t offset, uint8_t data);
64
65 // control port
66 void control_w(uint8_t data);
67 uint8_t control_r();
68
69 uint8_t keyboard_r(offs_t offset);
70 DECLARE_INPUT_CHANGED_MEMBER(rst_callback);
71
72 DECLARE_WRITE_LINE_MEMBER(rs232_rx_w);
73 DECLARE_WRITE_LINE_MEMBER(rs232_dcd_w);
74
75 void cgenie(machine_config &config);
76 void cgenie_io(address_map &map);
77 void cgenie_mem(address_map &map);
78 protected:
79 virtual void machine_start() override;
80
81 private:
82 required_device<cpu_device> m_maincpu;
83 required_device<cassette_image_device> m_cassette;
84 required_device<ram_device> m_ram;
85 required_device<hd6845s_device> m_crtc;
86 required_device<rs232_port_device> m_rs232;
87 required_device<cg_exp_slot_device> m_exp;
88 required_memory_region m_char_rom;
89 required_shared_ptr<uint8_t> m_color_ram;
90 required_shared_ptr<uint8_t> m_font_ram;
91 required_ioport_array<8> m_keyboard;
92
93 static const rgb_t m_palette_bg[];
94 static const rgb_t m_palette_eu[];
95 static const rgb_t m_palette_nz[];
96
97 const rgb_t *m_palette;
98 rgb_t m_background_color;
99
100 uint8_t m_control;
101
102 int m_rs232_rx;
103 int m_rs232_dcd;
104 };
105
106
107 //**************************************************************************
108 // ADDRESS MAPS
109 //**************************************************************************
110
cgenie_mem(address_map & map)111 void cgenie_state::cgenie_mem(address_map &map)
112 {
113 map.unmap_value_high();
114 map(0x0000, 0x3fff).rom();
115 // map(0x4000, 0xbfff).ram(); // set up in machine_start()
116 map(0xc000, 0xefff).noprw(); // cartridge space
117 map(0xf000, 0xf3ff).rw(FUNC(cgenie_state::colorram_r), FUNC(cgenie_state::colorram_w)).share("colorram");
118 map(0xf400, 0xf7ff).ram().share("fontram");
119 map(0xf800, 0xf8ff).mirror(0x300).r(FUNC(cgenie_state::keyboard_r));
120 map(0xfc00, 0xffff).noprw(); // cartridge space
121 }
122
cgenie_io(address_map & map)123 void cgenie_state::cgenie_io(address_map &map)
124 {
125 map.global_mask(0xff);
126 map(0xf8, 0xf8).w("ay8910", FUNC(ay8910_device::address_w));
127 map(0xf9, 0xf9).rw("ay8910", FUNC(ay8910_device::data_r), FUNC(ay8910_device::data_w));
128 map(0xfa, 0xfa).w(m_crtc, FUNC(hd6845s_device::address_w));
129 map(0xfb, 0xfb).rw(m_crtc, FUNC(hd6845s_device::register_r), FUNC(hd6845s_device::register_w));
130 map(0xff, 0xff).rw(FUNC(cgenie_state::control_r), FUNC(cgenie_state::control_w));
131 }
132
133
134 //**************************************************************************
135 // INPUTS
136 //**************************************************************************
137
138 static INPUT_PORTS_START( cgenie )
139 PORT_START("KEY.0")
PORT_CODE(KEYCODE_OPENBRACE)140 PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR('@') PORT_CHAR('`')
141 PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_A) PORT_CHAR('A') PORT_CHAR('a')
142 PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_B) PORT_CHAR('B') PORT_CHAR('b')
143 PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_C) PORT_CHAR('C') PORT_CHAR('c')
144 PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_D) PORT_CHAR('D') PORT_CHAR('d')
145 PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_E) PORT_CHAR('E') PORT_CHAR('e')
146 PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F) PORT_CHAR('F') PORT_CHAR('f')
147 PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_G) PORT_CHAR('G') PORT_CHAR('g')
148
149 PORT_START("KEY.1")
150 PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_H) PORT_CHAR('H') PORT_CHAR('h')
151 PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_I) PORT_CHAR('I') PORT_CHAR('i')
152 PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_J) PORT_CHAR('J') PORT_CHAR('j')
153 PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_K) PORT_CHAR('K') PORT_CHAR('k')
154 PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_L) PORT_CHAR('L') PORT_CHAR('l')
155 PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_M) PORT_CHAR('M') PORT_CHAR('m')
156 PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_N) PORT_CHAR('N') PORT_CHAR('n')
157 PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_O) PORT_CHAR('O') PORT_CHAR('o')
158
159 PORT_START("KEY.2")
160 PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_P) PORT_CHAR('P') PORT_CHAR('p')
161 PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_Q) PORT_CHAR('Q') PORT_CHAR('q')
162 PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_R) PORT_CHAR('R') PORT_CHAR('r')
163 PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_S) PORT_CHAR('S') PORT_CHAR('s')
164 PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_T) PORT_CHAR('T') PORT_CHAR('t')
165 PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_U) PORT_CHAR('U') PORT_CHAR('u')
166 PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_V) PORT_CHAR('V') PORT_CHAR('v')
167 PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_W) PORT_CHAR('W') PORT_CHAR('w')
168
169 PORT_START("KEY.3")
170 PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_X) PORT_CHAR('X') PORT_CHAR('x')
171 PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_Y) PORT_CHAR('Y') PORT_CHAR('y')
172 PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_Z) PORT_CHAR('Z') PORT_CHAR('z')
173 PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_UNUSED) // produces [ and { when pressed, not on keyboard
174 PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F1) PORT_CHAR(UCHAR_MAMEKEY(F1)) PORT_CHAR(UCHAR_MAMEKEY(F5))
175 PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F2) PORT_CHAR(UCHAR_MAMEKEY(F2)) PORT_CHAR(UCHAR_MAMEKEY(F6))
176 PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F3) PORT_CHAR(UCHAR_MAMEKEY(F3)) PORT_CHAR(UCHAR_MAMEKEY(F7))
177 PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F4) PORT_CHAR(UCHAR_MAMEKEY(F4)) PORT_CHAR(UCHAR_MAMEKEY(F8))
178
179 PORT_START("KEY.4")
180 PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_0) PORT_CHAR('0')
181 PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_1) PORT_CHAR('1') PORT_CHAR('!')
182 PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_2) PORT_CHAR('2') PORT_CHAR('"')
183 PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_3) PORT_CHAR('3') PORT_CHAR('#')
184 PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_4) PORT_CHAR('4') PORT_CHAR('$')
185 PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_5) PORT_CHAR('5') PORT_CHAR('%')
186 PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_6) PORT_CHAR('6') PORT_CHAR('&')
187 PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_7) PORT_CHAR('7') PORT_CHAR('\'')
188
189 PORT_START("KEY.5")
190 PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_8) PORT_CHAR('8') PORT_CHAR('(')
191 PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_9) PORT_CHAR('9') PORT_CHAR(')')
192 PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_MINUS) PORT_CHAR(':') PORT_CHAR('*')
193 PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_COLON) PORT_CHAR(';') PORT_CHAR('+')
194 PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR('<')
195 PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_QUOTE) PORT_CHAR('-') PORT_CHAR('=')
196 PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR('>')
197 PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_SLASH) PORT_CHAR('/') PORT_CHAR('?')
198
199 PORT_START("KEY.6")
200 PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_ENTER) PORT_CHAR(13)
201 PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Clear") PORT_CODE(KEYCODE_EQUALS) PORT_CHAR(UCHAR_MAMEKEY(F10))
202 PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Break") PORT_CODE(KEYCODE_ESC) PORT_CHAR(27)
203 PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_UP) PORT_CHAR(UCHAR_MAMEKEY(UP)) // prints [ which is interpreted by basic as ^
204 PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_DOWN) PORT_CHAR(UCHAR_MAMEKEY(DOWN)) // newline
205 PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_LEFT) PORT_CHAR(UCHAR_MAMEKEY(LEFT)) // backspace
206 PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_RIGHT) PORT_CHAR(UCHAR_MAMEKEY(RIGHT)) // tab
207 PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_SPACE) PORT_CHAR(' ')
208
209 PORT_START("KEY.7")
210 PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_LSHIFT) PORT_CODE(KEYCODE_LSHIFT) PORT_CHAR(UCHAR_SHIFT_1)
211 PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Mod Sel") PORT_CODE(KEYCODE_LALT) PORT_CHAR(UCHAR_MAMEKEY(F9))
212 PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_UNUSED)
213 PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Rpt") PORT_CODE(KEYCODE_PGDN) PORT_CHAR(UCHAR_MAMEKEY(F11))
214 PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Ctrl") PORT_CODE(KEYCODE_LCONTROL) PORT_CHAR(UCHAR_SHIFT_2)
215 PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_UNUSED)
216 PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_UNUSED)
217 PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_OTHER) PORT_NAME("L.P.") // marked as "L.P." in the manual, lightpen?
218
219 PORT_START("RST")
220 PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_F5) PORT_NAME("Rst") PORT_CHAR(UCHAR_MAMEKEY(F5)) PORT_CHANGED_MEMBER(DEVICE_SELF, cgenie_state, rst_callback, 0)
221 INPUT_PORTS_END
222
223
224 //**************************************************************************
225 // KEYBOARD
226 //**************************************************************************
227
228 uint8_t cgenie_state::keyboard_r(offs_t offset)
229 {
230 uint8_t data = 0;
231
232 for (int i = 0; i < 8; i++)
233 if (BIT(offset, i))
234 data |= m_keyboard[i]->read();
235
236 return data;
237 }
238
INPUT_CHANGED_MEMBER(cgenie_state::rst_callback)239 INPUT_CHANGED_MEMBER( cgenie_state::rst_callback )
240 {
241 m_maincpu->set_input_line(INPUT_LINE_NMI, newval);
242 }
243
244
245 //**************************************************************************
246 // CONTROL PORT & RS232
247 //**************************************************************************
248
control_w(uint8_t data)249 void cgenie_state::control_w(uint8_t data)
250 {
251 // cassette output
252 m_cassette->output(BIT(data, 0) ? -1.0 : 1.0);
253
254 // serial output
255 m_rs232->write_txd(BIT(data, 1));
256
257 // background color selection
258 if (BIT(data, 2))
259 m_background_color = m_palette_bg[4];
260 else
261 m_background_color = m_palette_bg[data >> 6 & 0x03];
262
263 // graphics/text mode switch
264 m_crtc->set_hpixels_per_column(BIT(data, 5) ? 4 : 8);
265
266 m_control = data;
267 }
268
control_r()269 uint8_t cgenie_state::control_r()
270 {
271 uint8_t data = 0;
272
273 data |= m_cassette->input() > 0 ? 1 : 0;
274 data |= m_rs232_rx << 1;
275 data |= m_rs232_dcd << 2;
276
277 return data;
278 }
279
WRITE_LINE_MEMBER(cgenie_state::rs232_rx_w)280 WRITE_LINE_MEMBER( cgenie_state::rs232_rx_w )
281 {
282 m_rs232_rx = state;
283 }
284
WRITE_LINE_MEMBER(cgenie_state::rs232_dcd_w)285 WRITE_LINE_MEMBER( cgenie_state::rs232_dcd_w )
286 {
287 m_rs232_dcd = state;
288 }
289
290
291 //**************************************************************************
292 // DRIVER INIT
293 //**************************************************************************
294
init_cgenie_eu()295 void cgenie_state::init_cgenie_eu()
296 {
297 m_palette = &m_palette_eu[0];
298 }
299
init_cgenie_nz()300 void cgenie_state::init_cgenie_nz()
301 {
302 m_palette = &m_palette_nz[0];
303 }
304
machine_start()305 void cgenie_state::machine_start()
306 {
307 // setup ram
308 m_maincpu->space(AS_PROGRAM).install_ram(0x4000, 0x4000 + m_ram->size() - 1, m_ram->pointer());
309 }
310
311
312 //**************************************************************************
313 // VIDEO EMULATION
314 //**************************************************************************
315
colorram_r(offs_t offset)316 uint8_t cgenie_state::colorram_r(offs_t offset)
317 {
318 return m_color_ram[offset] | 0xf0;
319 }
320
colorram_w(offs_t offset,uint8_t data)321 void cgenie_state::colorram_w(offs_t offset, uint8_t data)
322 {
323 m_color_ram[offset] = data & 0x0f;
324 }
325
MC6845_BEGIN_UPDATE(cgenie_state::crtc_begin_update)326 MC6845_BEGIN_UPDATE( cgenie_state::crtc_begin_update )
327 {
328 bitmap.fill(m_background_color, cliprect);
329 }
330
MC6845_UPDATE_ROW(cgenie_state::crtc_update_row)331 MC6845_UPDATE_ROW( cgenie_state::crtc_update_row )
332 {
333 // don't need to do anything in vblank
334 if (!de)
335 return;
336
337 for (int column = 0; column < x_count; column++)
338 {
339 uint8_t code = m_ram->pointer()[ma + column];
340 uint8_t color = m_color_ram[(ma + column) & 0x3ff];
341
342 // gfx mode?
343 if (BIT(m_control, 5))
344 {
345 const rgb_t map[] = { m_background_color, m_palette[8], m_palette[6], m_palette[5] };
346
347 bitmap.pix(y + vbp, column * 4 + hbp + 0) = map[code >> 6 & 0x03];
348 bitmap.pix(y + vbp, column * 4 + hbp + 1) = map[code >> 4 & 0x03];
349 bitmap.pix(y + vbp, column * 4 + hbp + 2) = map[code >> 2 & 0x03];
350 bitmap.pix(y + vbp, column * 4 + hbp + 3) = map[code >> 0 & 0x03];
351 }
352 else
353 {
354 uint8_t gfx = 0;
355
356 // cursor visible?
357 if (cursor_x == column)
358 gfx = 0xff;
359
360 // or use character rom?
361 else if ((code < 128) || (code < 192 && BIT(m_control, 4)) || (code >= 192 && BIT(m_control, 3)))
362 gfx = m_char_rom->base()[(code << 3) | ra];
363
364 // or the programmable characters?
365 else
366 gfx = m_font_ram[((code << 3) | ra) & 0x3ff];
367
368 // 8 pixel chars
369 for (int p = 0; p < 8; p++)
370 bitmap.pix(y + vbp, column * 8 + hbp + p) = BIT(gfx, 7 - p) ? m_palette[color] : m_background_color;
371 }
372 }
373 }
374
375
376 //**************************************************************************
377 // PALETTE
378 //**************************************************************************
379
380 // how accurate are these colors?
381 const rgb_t cgenie_state::m_palette_bg[] =
382 {
383 rgb_t::black(),
384 rgb_t(0x70, 0x28, 0x20), // dark orange
385 rgb_t(0x28, 0x70, 0x20), // dark green
386 rgb_t(0x48, 0x48, 0x48), // dark gray
387 rgb_t(0x70, 0x00, 0x70) // dark purple
388 };
389
390 // european palette
391 const rgb_t cgenie_state::m_palette_eu[] =
392 {
393 rgb_t(0x5e, 0x5e, 0x5e), // gray
394 rgb_t(0x11, 0xff, 0xea), // cyan
395 rgb_t(0xff, 0x00, 0x5e), // red
396 rgb_t(0xea, 0xea, 0xea), // white
397 rgb_t(0xff, 0xf9, 0x00), // yellow
398 rgb_t(0x6e, 0xff, 0x00), // green
399 rgb_t(0xff, 0x52, 0x00), // orange
400 rgb_t(0xea, 0xff, 0x00), // light yellow
401 rgb_t(0x02, 0x48, 0xff), // blue
402 rgb_t(0x8e, 0xd4, 0xff), // light blue
403 rgb_t(0xff, 0x12, 0xff), // pink
404 rgb_t(0x88, 0x43, 0xff), // purple
405 rgb_t(0x8c, 0x8c, 0x8c), // light gray
406 rgb_t(0x00, 0xfb, 0x8c), // turquoise
407 rgb_t(0xd2, 0x00, 0xff), // magenta
408 rgb_t::white() // bright white
409 };
410
411 // new zealand palette
412 const rgb_t cgenie_state::m_palette_nz[] =
413 {
414 rgb_t::white(),
415 rgb_t(0x12, 0xff, 0xff),
416 rgb_t(0xff, 0x6f, 0xff),
417 rgb_t(0x31, 0x77, 0xff),
418 rgb_t(0xff, 0xcb, 0x00),
419 rgb_t(0x6e, 0xff, 0x00),
420 rgb_t(0xff, 0x52, 0x00),
421 rgb_t(0x5e, 0x5e, 0x5e),
422 rgb_t(0xea, 0xea, 0xea),
423 rgb_t(0x00, 0xff, 0xdd),
424 rgb_t(0xd2, 0x00, 0xff),
425 rgb_t(0x02, 0x48, 0xff),
426 rgb_t(0xff, 0xf9, 0x00),
427 rgb_t(0x00, 0xda, 0x00),
428 rgb_t(0xff, 0x22, 0x00),
429 rgb_t::black()
430 };
431
432
433 //**************************************************************************
434 // MACHINE DEFINTIONS
435 //**************************************************************************
436
cgenie(machine_config & config)437 void cgenie_state::cgenie(machine_config &config)
438 {
439 // basic machine hardware
440 Z80(config, m_maincpu, XTAL(17'734'470) / 8); // 2.2168 MHz
441 m_maincpu->set_addrmap(AS_PROGRAM, &cgenie_state::cgenie_mem);
442 m_maincpu->set_addrmap(AS_IO, &cgenie_state::cgenie_io);
443
444 // video hardware
445 screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER));
446 screen.set_raw(XTAL(17'734'470) / 2, 568, 32, 416, 312, 28, 284);
447 screen.set_screen_update("crtc", FUNC(hd6845s_device::screen_update));
448
449 HD6845S(config, m_crtc, XTAL(17'734'470) / 16);
450 m_crtc->set_screen("screen");
451 m_crtc->set_show_border_area(true);
452 m_crtc->set_char_width(8);
453 m_crtc->set_begin_update_callback(FUNC(cgenie_state::crtc_begin_update));
454 m_crtc->set_update_row_callback(FUNC(cgenie_state::crtc_update_row));
455
456 // sound hardware
457 SPEAKER(config, "mono").front_center();
458 ay8910_device &ay8910(AY8910(config, "ay8910", XTAL(17'734'470) / 8));
459 ay8910.port_a_read_callback().set("par", FUNC(cg_parallel_slot_device::pa_r));
460 ay8910.port_a_write_callback().set("par", FUNC(cg_parallel_slot_device::pa_w));
461 ay8910.port_b_read_callback().set("par", FUNC(cg_parallel_slot_device::pb_r));
462 ay8910.port_b_write_callback().set("par", FUNC(cg_parallel_slot_device::pb_w));
463 ay8910.add_route(ALL_OUTPUTS, "mono", 0.75);
464
465 CASSETTE(config, m_cassette);
466 m_cassette->set_formats(cgenie_cassette_formats);
467 m_cassette->set_default_state(CASSETTE_STOPPED);
468 m_cassette->add_route(ALL_OUTPUTS, "mono", 0.05);
469 m_cassette->set_interface("cgenie_cass");
470
471 SOFTWARE_LIST(config, "cass_list").set_original("cgenie_cass");
472
473 // serial port
474 rs232_port_device &rs232(RS232_PORT(config, "rs232", default_rs232_devices, nullptr));
475 rs232.rxd_handler().set(FUNC(cgenie_state::rs232_rx_w));
476 rs232.dcd_handler().set(FUNC(cgenie_state::rs232_dcd_w));
477
478 // cartridge expansion slot
479 CG_EXP_SLOT(config, m_exp);
480 m_exp->set_program_space(m_maincpu, AS_PROGRAM);
481 m_exp->set_io_space(m_maincpu, AS_IO);
482 m_exp->int_handler().set_inputline(m_maincpu, INPUT_LINE_IRQ0);
483
484 // parallel slot
485 CG_PARALLEL_SLOT(config, "par");
486
487 // internal ram
488 RAM(config, RAM_TAG).set_default_size("16K").set_extra_options("32K");
489 }
490
491
492 //**************************************************************************
493 // ROM DEFINITIONS
494 //**************************************************************************
495
496 ROM_START( cgenie )
497 ROM_REGION(0x4000, "maincpu", 0)
498 ROM_LOAD("cg_rom1.z1", 0x0000, 0x1000, CRC(d3369420) SHA1(fe7f06f8e2b648d695d4787d00a374d3e4ac5d39))
499 ROM_LOAD("cg_rom2.z2", 0x1000, 0x1000, CRC(73d2c9ea) SHA1(343d595b4eeaea627f9c36d5cef3827c79593425))
500 ROM_LOAD("cg_rom3.z3", 0x2000, 0x1000, CRC(3f358811) SHA1(6ba151759fd8fd367806cf2dd5f1dfc33ee9521f))
501 ROM_LOAD("cg_rom4.z4", 0x3000, 0x1000, CRC(be235782) SHA1(d7d61208a9855ffd09ecb051618f5ed6a8816f3f))
502
503 ROM_REGION(0x0800, "gfx1", 0)
504 // this is a "german" character set with umlauts, is this official?
505 ROM_LOAD("cgenieg.fnt", 0x0000, 0x0800, CRC(c3e60d57) SHA1(fb96f608fdb47391145fdcd614a9c7a79756e6a4))
506 // default character set
507 ROM_LOAD("cgenie1.fnt", 0x0000, 0x0800, CRC(4fed774a) SHA1(d53df8212b521892cc56be690db0bb474627d2ff))
508 ROM_END
509
510 ROM_START( cgenienz )
511 ROM_REGION(0x4000, "maincpu", 0)
512 ROM_SYSTEM_BIOS(0, "old", "Old ROM")
513 ROMX_LOAD("cg-basic-rom-v1-pal-en.rom", 0x0000, 0x4000, CRC(844aaedd) SHA1(b7f984bc5cd979c7ad11ff909e8134f694aea7aa), ROM_BIOS(0))
514 ROM_SYSTEM_BIOS(1, "new", "New ROM")
515 ROMX_LOAD("cgromv2.rom", 0x0000, 0x4000, CRC(cfb84e09) SHA1(e199e4429bab6f9fca2bb05e71324538928a693a), ROM_BIOS(1))
516
517 ROM_REGION(0x0800, "gfx1", 0)
518 ROM_LOAD("cgenie1.fnt", 0x0000, 0x0800, CRC(4fed774a) SHA1(d53df8212b521892cc56be690db0bb474627d2ff))
519 ROM_END
520
521
522 //**************************************************************************
523 // SYSTEM DRIVERS
524 //**************************************************************************
525
526 // YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS
527 COMP( 1982, cgenie, 0, 0, cgenie, cgenie, cgenie_state, init_cgenie_eu, "EACA", "Colour Genie EG2000", 0)
528 COMP( 1982, cgenienz, cgenie, 0, cgenie, cgenie, cgenie_state, init_cgenie_nz, "EACA", "Colour Genie EG2000 (New Zealand)", 0)
529