// license:GPL-2.0+ // copyright-holders:Dirk Best /*************************************************************************** EACA Colour Genie EG2000 TODO: - System is too fast, there should be one wait cycle every five cycles? - Adjust visible area so that the borders aren't that large (needs MC6845 changes) - Verify BASIC and character set versions ***************************************************************************/ #include "emu.h" #include "cpu/z80/z80.h" #include "machine/ram.h" #include "video/mc6845.h" #include "sound/ay8910.h" #include "imagedev/cassette.h" #include "formats/cgen_cas.h" #include "bus/rs232/rs232.h" #include "bus/cgenie/expansion/expansion.h" #include "bus/cgenie/parallel/parallel.h" #include "screen.h" #include "softlist.h" #include "speaker.h" //************************************************************************** // TYPE DEFINITIONS //************************************************************************** class cgenie_state : public driver_device { public: cgenie_state(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag), m_maincpu(*this, "maincpu"), m_cassette(*this, "cassette"), m_ram(*this, RAM_TAG), m_crtc(*this, "crtc"), m_rs232(*this, "rs232"), m_exp(*this, "exp"), m_char_rom(*this, "gfx1"), m_color_ram(*this, "colorram"), m_font_ram(*this, "fontram"), m_keyboard(*this, "KEY.%u", 0), m_palette(nullptr), m_control(0xff), m_rs232_rx(1), m_rs232_dcd(1) { } void init_cgenie_eu(); void init_cgenie_nz(); MC6845_BEGIN_UPDATE(crtc_begin_update); MC6845_UPDATE_ROW(crtc_update_row); // 4-bit color ram uint8_t colorram_r(offs_t offset); void colorram_w(offs_t offset, uint8_t data); // control port void control_w(uint8_t data); uint8_t control_r(); uint8_t keyboard_r(offs_t offset); DECLARE_INPUT_CHANGED_MEMBER(rst_callback); DECLARE_WRITE_LINE_MEMBER(rs232_rx_w); DECLARE_WRITE_LINE_MEMBER(rs232_dcd_w); void cgenie(machine_config &config); void cgenie_io(address_map &map); void cgenie_mem(address_map &map); protected: virtual void machine_start() override; private: required_device m_maincpu; required_device m_cassette; required_device m_ram; required_device m_crtc; required_device m_rs232; required_device m_exp; required_memory_region m_char_rom; required_shared_ptr m_color_ram; required_shared_ptr m_font_ram; required_ioport_array<8> m_keyboard; static const rgb_t m_palette_bg[]; static const rgb_t m_palette_eu[]; static const rgb_t m_palette_nz[]; const rgb_t *m_palette; rgb_t m_background_color; uint8_t m_control; int m_rs232_rx; int m_rs232_dcd; }; //************************************************************************** // ADDRESS MAPS //************************************************************************** void cgenie_state::cgenie_mem(address_map &map) { map.unmap_value_high(); map(0x0000, 0x3fff).rom(); // map(0x4000, 0xbfff).ram(); // set up in machine_start() map(0xc000, 0xefff).noprw(); // cartridge space map(0xf000, 0xf3ff).rw(FUNC(cgenie_state::colorram_r), FUNC(cgenie_state::colorram_w)).share("colorram"); map(0xf400, 0xf7ff).ram().share("fontram"); map(0xf800, 0xf8ff).mirror(0x300).r(FUNC(cgenie_state::keyboard_r)); map(0xfc00, 0xffff).noprw(); // cartridge space } void cgenie_state::cgenie_io(address_map &map) { map.global_mask(0xff); map(0xf8, 0xf8).w("ay8910", FUNC(ay8910_device::address_w)); map(0xf9, 0xf9).rw("ay8910", FUNC(ay8910_device::data_r), FUNC(ay8910_device::data_w)); map(0xfa, 0xfa).w(m_crtc, FUNC(hd6845s_device::address_w)); map(0xfb, 0xfb).rw(m_crtc, FUNC(hd6845s_device::register_r), FUNC(hd6845s_device::register_w)); map(0xff, 0xff).rw(FUNC(cgenie_state::control_r), FUNC(cgenie_state::control_w)); } //************************************************************************** // INPUTS //************************************************************************** static INPUT_PORTS_START( cgenie ) PORT_START("KEY.0") PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR('@') PORT_CHAR('`') PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_A) PORT_CHAR('A') PORT_CHAR('a') PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_B) PORT_CHAR('B') PORT_CHAR('b') PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_C) PORT_CHAR('C') PORT_CHAR('c') PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_D) PORT_CHAR('D') PORT_CHAR('d') PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_E) PORT_CHAR('E') PORT_CHAR('e') PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F) PORT_CHAR('F') PORT_CHAR('f') PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_G) PORT_CHAR('G') PORT_CHAR('g') PORT_START("KEY.1") PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_H) PORT_CHAR('H') PORT_CHAR('h') PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_I) PORT_CHAR('I') PORT_CHAR('i') PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_J) PORT_CHAR('J') PORT_CHAR('j') PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_K) PORT_CHAR('K') PORT_CHAR('k') PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_L) PORT_CHAR('L') PORT_CHAR('l') PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_M) PORT_CHAR('M') PORT_CHAR('m') PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_N) PORT_CHAR('N') PORT_CHAR('n') PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_O) PORT_CHAR('O') PORT_CHAR('o') PORT_START("KEY.2") PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_P) PORT_CHAR('P') PORT_CHAR('p') PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_Q) PORT_CHAR('Q') PORT_CHAR('q') PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_R) PORT_CHAR('R') PORT_CHAR('r') PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_S) PORT_CHAR('S') PORT_CHAR('s') PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_T) PORT_CHAR('T') PORT_CHAR('t') PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_U) PORT_CHAR('U') PORT_CHAR('u') PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_V) PORT_CHAR('V') PORT_CHAR('v') PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_W) PORT_CHAR('W') PORT_CHAR('w') PORT_START("KEY.3") PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_X) PORT_CHAR('X') PORT_CHAR('x') PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_Y) PORT_CHAR('Y') PORT_CHAR('y') PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_Z) PORT_CHAR('Z') PORT_CHAR('z') PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_UNUSED) // produces [ and { when pressed, not on keyboard PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F1) PORT_CHAR(UCHAR_MAMEKEY(F1)) PORT_CHAR(UCHAR_MAMEKEY(F5)) PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F2) PORT_CHAR(UCHAR_MAMEKEY(F2)) PORT_CHAR(UCHAR_MAMEKEY(F6)) PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F3) PORT_CHAR(UCHAR_MAMEKEY(F3)) PORT_CHAR(UCHAR_MAMEKEY(F7)) PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F4) PORT_CHAR(UCHAR_MAMEKEY(F4)) PORT_CHAR(UCHAR_MAMEKEY(F8)) PORT_START("KEY.4") PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_0) PORT_CHAR('0') PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_1) PORT_CHAR('1') PORT_CHAR('!') PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_2) PORT_CHAR('2') PORT_CHAR('"') PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_3) PORT_CHAR('3') PORT_CHAR('#') PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_4) PORT_CHAR('4') PORT_CHAR('$') PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_5) PORT_CHAR('5') PORT_CHAR('%') PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_6) PORT_CHAR('6') PORT_CHAR('&') PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_7) PORT_CHAR('7') PORT_CHAR('\'') PORT_START("KEY.5") PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_8) PORT_CHAR('8') PORT_CHAR('(') PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_9) PORT_CHAR('9') PORT_CHAR(')') PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_MINUS) PORT_CHAR(':') PORT_CHAR('*') PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_COLON) PORT_CHAR(';') PORT_CHAR('+') PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR('<') PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_QUOTE) PORT_CHAR('-') PORT_CHAR('=') PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR('>') PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_SLASH) PORT_CHAR('/') PORT_CHAR('?') PORT_START("KEY.6") PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_ENTER) PORT_CHAR(13) PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Clear") PORT_CODE(KEYCODE_EQUALS) PORT_CHAR(UCHAR_MAMEKEY(F10)) PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Break") PORT_CODE(KEYCODE_ESC) PORT_CHAR(27) PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_UP) PORT_CHAR(UCHAR_MAMEKEY(UP)) // prints [ which is interpreted by basic as ^ PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_DOWN) PORT_CHAR(UCHAR_MAMEKEY(DOWN)) // newline PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_LEFT) PORT_CHAR(UCHAR_MAMEKEY(LEFT)) // backspace PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_RIGHT) PORT_CHAR(UCHAR_MAMEKEY(RIGHT)) // tab PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_SPACE) PORT_CHAR(' ') PORT_START("KEY.7") PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_LSHIFT) PORT_CODE(KEYCODE_LSHIFT) PORT_CHAR(UCHAR_SHIFT_1) PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Mod Sel") PORT_CODE(KEYCODE_LALT) PORT_CHAR(UCHAR_MAMEKEY(F9)) PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_UNUSED) PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Rpt") PORT_CODE(KEYCODE_PGDN) PORT_CHAR(UCHAR_MAMEKEY(F11)) PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Ctrl") PORT_CODE(KEYCODE_LCONTROL) PORT_CHAR(UCHAR_SHIFT_2) PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_UNUSED) PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_UNUSED) PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_OTHER) PORT_NAME("L.P.") // marked as "L.P." in the manual, lightpen? PORT_START("RST") 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) INPUT_PORTS_END //************************************************************************** // KEYBOARD //************************************************************************** uint8_t cgenie_state::keyboard_r(offs_t offset) { uint8_t data = 0; for (int i = 0; i < 8; i++) if (BIT(offset, i)) data |= m_keyboard[i]->read(); return data; } INPUT_CHANGED_MEMBER( cgenie_state::rst_callback ) { m_maincpu->set_input_line(INPUT_LINE_NMI, newval); } //************************************************************************** // CONTROL PORT & RS232 //************************************************************************** void cgenie_state::control_w(uint8_t data) { // cassette output m_cassette->output(BIT(data, 0) ? -1.0 : 1.0); // serial output m_rs232->write_txd(BIT(data, 1)); // background color selection if (BIT(data, 2)) m_background_color = m_palette_bg[4]; else m_background_color = m_palette_bg[data >> 6 & 0x03]; // graphics/text mode switch m_crtc->set_hpixels_per_column(BIT(data, 5) ? 4 : 8); m_control = data; } uint8_t cgenie_state::control_r() { uint8_t data = 0; data |= m_cassette->input() > 0 ? 1 : 0; data |= m_rs232_rx << 1; data |= m_rs232_dcd << 2; return data; } WRITE_LINE_MEMBER( cgenie_state::rs232_rx_w ) { m_rs232_rx = state; } WRITE_LINE_MEMBER( cgenie_state::rs232_dcd_w ) { m_rs232_dcd = state; } //************************************************************************** // DRIVER INIT //************************************************************************** void cgenie_state::init_cgenie_eu() { m_palette = &m_palette_eu[0]; } void cgenie_state::init_cgenie_nz() { m_palette = &m_palette_nz[0]; } void cgenie_state::machine_start() { // setup ram m_maincpu->space(AS_PROGRAM).install_ram(0x4000, 0x4000 + m_ram->size() - 1, m_ram->pointer()); } //************************************************************************** // VIDEO EMULATION //************************************************************************** uint8_t cgenie_state::colorram_r(offs_t offset) { return m_color_ram[offset] | 0xf0; } void cgenie_state::colorram_w(offs_t offset, uint8_t data) { m_color_ram[offset] = data & 0x0f; } MC6845_BEGIN_UPDATE( cgenie_state::crtc_begin_update ) { bitmap.fill(m_background_color, cliprect); } MC6845_UPDATE_ROW( cgenie_state::crtc_update_row ) { // don't need to do anything in vblank if (!de) return; for (int column = 0; column < x_count; column++) { uint8_t code = m_ram->pointer()[ma + column]; uint8_t color = m_color_ram[(ma + column) & 0x3ff]; // gfx mode? if (BIT(m_control, 5)) { const rgb_t map[] = { m_background_color, m_palette[8], m_palette[6], m_palette[5] }; bitmap.pix32(y + vbp, column * 4 + hbp + 0) = map[code >> 6 & 0x03]; bitmap.pix32(y + vbp, column * 4 + hbp + 1) = map[code >> 4 & 0x03]; bitmap.pix32(y + vbp, column * 4 + hbp + 2) = map[code >> 2 & 0x03]; bitmap.pix32(y + vbp, column * 4 + hbp + 3) = map[code >> 0 & 0x03]; } else { uint8_t gfx = 0; // cursor visible? if (cursor_x == column) gfx = 0xff; // or use character rom? else if ((code < 128) || (code < 192 && BIT(m_control, 4)) || (code >= 192 && BIT(m_control, 3))) gfx = m_char_rom->base()[(code << 3) | ra]; // or the programmable characters? else gfx = m_font_ram[((code << 3) | ra) & 0x3ff]; // 8 pixel chars for (int p = 0; p < 8; p++) bitmap.pix32(y + vbp, column * 8 + hbp + p) = BIT(gfx, 7 - p) ? m_palette[color] : m_background_color; } } } //************************************************************************** // PALETTE //************************************************************************** // how accurate are these colors? const rgb_t cgenie_state::m_palette_bg[] = { rgb_t::black(), rgb_t(0x70, 0x28, 0x20), // dark orange rgb_t(0x28, 0x70, 0x20), // dark green rgb_t(0x48, 0x48, 0x48), // dark gray rgb_t(0x70, 0x00, 0x70) // dark purple }; // european palette const rgb_t cgenie_state::m_palette_eu[] = { rgb_t(0x5e, 0x5e, 0x5e), // gray rgb_t(0x11, 0xff, 0xea), // cyan rgb_t(0xff, 0x00, 0x5e), // red rgb_t(0xea, 0xea, 0xea), // white rgb_t(0xff, 0xf9, 0x00), // yellow rgb_t(0x6e, 0xff, 0x00), // green rgb_t(0xff, 0x52, 0x00), // orange rgb_t(0xea, 0xff, 0x00), // light yellow rgb_t(0x02, 0x48, 0xff), // blue rgb_t(0x8e, 0xd4, 0xff), // light blue rgb_t(0xff, 0x12, 0xff), // pink rgb_t(0x88, 0x43, 0xff), // purple rgb_t(0x8c, 0x8c, 0x8c), // light gray rgb_t(0x00, 0xfb, 0x8c), // turquoise rgb_t(0xd2, 0x00, 0xff), // magenta rgb_t::white() // bright white }; // new zealand palette const rgb_t cgenie_state::m_palette_nz[] = { rgb_t::white(), rgb_t(0x12, 0xff, 0xff), rgb_t(0xff, 0x6f, 0xff), rgb_t(0x31, 0x77, 0xff), rgb_t(0xff, 0xcb, 0x00), rgb_t(0x6e, 0xff, 0x00), rgb_t(0xff, 0x52, 0x00), rgb_t(0x5e, 0x5e, 0x5e), rgb_t(0xea, 0xea, 0xea), rgb_t(0x00, 0xff, 0xdd), rgb_t(0xd2, 0x00, 0xff), rgb_t(0x02, 0x48, 0xff), rgb_t(0xff, 0xf9, 0x00), rgb_t(0x00, 0xda, 0x00), rgb_t(0xff, 0x22, 0x00), rgb_t::black() }; //************************************************************************** // MACHINE DEFINTIONS //************************************************************************** void cgenie_state::cgenie(machine_config &config) { // basic machine hardware Z80(config, m_maincpu, XTAL(17'734'470) / 8); // 2.2168 MHz m_maincpu->set_addrmap(AS_PROGRAM, &cgenie_state::cgenie_mem); m_maincpu->set_addrmap(AS_IO, &cgenie_state::cgenie_io); // video hardware screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER)); screen.set_raw(XTAL(17'734'470) / 2, 568, 32, 416, 312, 28, 284); screen.set_screen_update("crtc", FUNC(hd6845s_device::screen_update)); HD6845S(config, m_crtc, XTAL(17'734'470) / 16); m_crtc->set_screen("screen"); m_crtc->set_show_border_area(true); m_crtc->set_char_width(8); m_crtc->set_begin_update_callback(FUNC(cgenie_state::crtc_begin_update)); m_crtc->set_update_row_callback(FUNC(cgenie_state::crtc_update_row)); // sound hardware SPEAKER(config, "mono").front_center(); ay8910_device &ay8910(AY8910(config, "ay8910", XTAL(17'734'470) / 8)); ay8910.port_a_read_callback().set("par", FUNC(cg_parallel_slot_device::pa_r)); ay8910.port_a_write_callback().set("par", FUNC(cg_parallel_slot_device::pa_w)); ay8910.port_b_read_callback().set("par", FUNC(cg_parallel_slot_device::pb_r)); ay8910.port_b_write_callback().set("par", FUNC(cg_parallel_slot_device::pb_w)); ay8910.add_route(ALL_OUTPUTS, "mono", 0.75); CASSETTE(config, m_cassette); m_cassette->set_formats(cgenie_cassette_formats); m_cassette->set_default_state(CASSETTE_STOPPED); m_cassette->add_route(ALL_OUTPUTS, "mono", 0.05); m_cassette->set_interface("cgenie_cass"); SOFTWARE_LIST(config, "cass_list").set_original("cgenie_cass"); // serial port rs232_port_device &rs232(RS232_PORT(config, "rs232", default_rs232_devices, nullptr)); rs232.rxd_handler().set(FUNC(cgenie_state::rs232_rx_w)); rs232.dcd_handler().set(FUNC(cgenie_state::rs232_dcd_w)); // cartridge expansion slot CG_EXP_SLOT(config, m_exp); m_exp->set_program_space(m_maincpu, AS_PROGRAM); m_exp->set_io_space(m_maincpu, AS_IO); m_exp->int_handler().set_inputline(m_maincpu, INPUT_LINE_IRQ0); // parallel slot CG_PARALLEL_SLOT(config, "par"); // internal ram RAM(config, RAM_TAG).set_default_size("16K").set_extra_options("32K"); } //************************************************************************** // ROM DEFINITIONS //************************************************************************** ROM_START( cgenie ) ROM_REGION(0x4000, "maincpu", 0) ROM_LOAD("cg_rom1.z1", 0x0000, 0x1000, CRC(d3369420) SHA1(fe7f06f8e2b648d695d4787d00a374d3e4ac5d39)) ROM_LOAD("cg_rom2.z2", 0x1000, 0x1000, CRC(73d2c9ea) SHA1(343d595b4eeaea627f9c36d5cef3827c79593425)) ROM_LOAD("cg_rom3.z3", 0x2000, 0x1000, CRC(3f358811) SHA1(6ba151759fd8fd367806cf2dd5f1dfc33ee9521f)) ROM_LOAD("cg_rom4.z4", 0x3000, 0x1000, CRC(be235782) SHA1(d7d61208a9855ffd09ecb051618f5ed6a8816f3f)) ROM_REGION(0x0800, "gfx1", 0) // this is a "german" character set with umlauts, is this official? ROM_LOAD("cgenieg.fnt", 0x0000, 0x0800, CRC(c3e60d57) SHA1(fb96f608fdb47391145fdcd614a9c7a79756e6a4)) // default character set ROM_LOAD("cgenie1.fnt", 0x0000, 0x0800, CRC(4fed774a) SHA1(d53df8212b521892cc56be690db0bb474627d2ff)) ROM_END ROM_START( cgenienz ) ROM_REGION(0x4000, "maincpu", 0) ROM_SYSTEM_BIOS(0, "old", "Old ROM") ROMX_LOAD("cg-basic-rom-v1-pal-en.rom", 0x0000, 0x4000, CRC(844aaedd) SHA1(b7f984bc5cd979c7ad11ff909e8134f694aea7aa), ROM_BIOS(0)) ROM_SYSTEM_BIOS(1, "new", "New ROM") ROMX_LOAD("cgromv2.rom", 0x0000, 0x4000, CRC(cfb84e09) SHA1(e199e4429bab6f9fca2bb05e71324538928a693a), ROM_BIOS(1)) ROM_REGION(0x0800, "gfx1", 0) ROM_LOAD("cgenie1.fnt", 0x0000, 0x0800, CRC(4fed774a) SHA1(d53df8212b521892cc56be690db0bb474627d2ff)) ROM_END //************************************************************************** // SYSTEM DRIVERS //************************************************************************** // YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS COMP( 1982, cgenie, 0, 0, cgenie, cgenie, cgenie_state, init_cgenie_eu, "EACA", "Colour Genie EG2000", 0) COMP( 1982, cgenienz, cgenie, 0, cgenie, cgenie, cgenie_state, init_cgenie_nz, "EACA", "Colour Genie EG2000 (New Zealand)", 0)