// license:LGPL-2.1+ // copyright-holders:Dirk Verwiebe, Cowering /****************************************************************************** Mephisto 4 + 5 Chess Computer 2007 Dirk V. CPU 65C02 P4 Clock 4.9152 MHz NMI CLK 600 Hz IRQ Line is set to VSS 8 KByte SRAM Sony CXK5864-15l 1-CD74HC4060E 14 Bit Counter 1-CD74HC166E 1-CD74HC251E 1-SN74HC138N TI 1-SN74HC139N TI 1-74HC14AP Toshiba 1-74HC02AP Toshiba 1-74HC00AP Toshiba 1-CD74HC259E $0000-$1fff S-RAM $2000 LCD 4 Byte Shift Register writeonly right to left every 2nd char xor'd by $FF 2c00-2c07 Keyboard (8to1 Multiplexer) 74HCT251 2*8 Matrix Adr. 0x3407 ==0 !=0 2c00 CL E5 2c01 POS F6 2c02 MEMO G7 2c03 INFO A1 2c04 LEV H8 2c05 ENT B2 2c06 >0 C3 2c07 <9 D4 $3400-$3407 LED 1-6, Buzzer, Keyboard select $2400 // Chess Board $2800 // Chess Board $3000 // Chess Board $4000-7FFF Opening Modul HG550 $8000-$FFF ROM Mephisto 4 Turbo Kit 18mhz - (mm4tk) This is a replacement rom combining the turbo kit initial rom with the original MM IV. The Turbo Kit powers up to it's tiny rom, copies itself to ram, banks in normal rom, copies that to faster SRAM, then patches the checksum and the LED blink delays. If someone else wants to code up the power up banking, feel free There is an undumped MM V Turbo Kit, which will be the exact same except for location of the patches. The mm5tk just needs the normal mm5 ROM swapped out for that one to blinks the LEDs a little slower. -- Cowering (2011) ***********************************************************************************************/ #include "emu.h" #include "cpu/m6502/m65c02.h" #include "machine/74259.h" #include "machine/mmboard.h" #include "machine/timer.h" #include "sound/beep.h" #include "speaker.h" #include "mephisto.lh" class mephisto_state : public driver_device { public: mephisto_state(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag) , m_maincpu(*this, "maincpu") , m_outlatch(*this, "outlatch") , m_beep(*this, "beeper") , m_key1(*this, "KEY1_%u", 0U) , m_key2(*this, "KEY2_%u", 0U) , m_digits(*this, "digit%u", 0U) { } void rebel5(machine_config &config); void mm4tk(machine_config &config); void mm2(machine_config &config); void mephisto(machine_config &config); void init_mephisto(); private: required_device m_maincpu; required_device m_outlatch; required_device m_beep; DECLARE_WRITE8_MEMBER(write_lcd); DECLARE_WRITE8_MEMBER(mephisto_NMI); DECLARE_READ8_MEMBER(read_keys); DECLARE_WRITE_LINE_MEMBER(write_led7); uint8_t m_lcd_shift_counter; //uint8_t *m_p_ram; uint8_t m_led7; uint8_t m_allowNMI; virtual void machine_start() override; virtual void machine_reset() override; DECLARE_MACHINE_START(mm2); TIMER_DEVICE_CALLBACK_MEMBER(update_nmi); TIMER_DEVICE_CALLBACK_MEMBER(update_nmi_r5); TIMER_DEVICE_CALLBACK_MEMBER(update_irq); void mephisto_mem(address_map &map); void mm2_mem(address_map &map); void rebel5_mem(address_map &map); required_ioport_array<8> m_key1; required_ioport_array<8> m_key2; output_finder<4> m_digits; }; WRITE8_MEMBER(mephisto_state::write_lcd) { if (m_led7 == 0) m_digits[m_lcd_shift_counter] = data; // 0x109 MM IV // 0x040 MM V //m_digits[m_lcd_shift_counter] = data ^ m_p_ram[0x165]; // 0x109 MM IV // 0x040 MM V m_lcd_shift_counter--; m_lcd_shift_counter &= 3; } WRITE8_MEMBER(mephisto_state::mephisto_NMI) { m_allowNMI = 1; } READ8_MEMBER(mephisto_state::read_keys) { uint8_t data = 0; if (!m_outlatch->q7_r()) { data = m_key1[offset]->read(); } else { data = m_key2[offset]->read(); } logerror("Keyboard Port = %d-%d Data = %d\n ", !m_outlatch->q7_r() ? 0 : 1, offset, data); return data | 0x7f; } WRITE_LINE_MEMBER(mephisto_state::write_led7) { m_led7 = state ? 0x00 : 0xff; } void mephisto_state::rebel5_mem(address_map &map) { map(0x0000, 0x1fff).ram(); // AM_BASE(m_p_ram) map(0x2000, 0x2007).w("outlatch", FUNC(hc259_device::write_d7)); // Status LEDs+ buzzer map(0x3000, 0x4000).r("board", FUNC(mephisto_board_device::input_r)); map(0x3000, 0x3007).r(FUNC(mephisto_state::read_keys)); // Rebel 5.0 map(0x5000, 0x5000).w(FUNC(mephisto_state::write_lcd)); map(0x6000, 0x6000).w("board", FUNC(mephisto_board_device::led_w)); map(0x7000, 0x7000).w("board", FUNC(mephisto_board_device::mux_w)); map(0x8000, 0xffff).rom(); } void mephisto_state::mephisto_mem(address_map &map) { map(0x0000, 0x1fff).ram(); //AM_BASE(m_p_ram) map(0x2000, 0x2000).w(FUNC(mephisto_state::write_lcd)); map(0x2400, 0x2407).w("board", FUNC(mephisto_board_device::led_w)); map(0x2800, 0x2800).w("board", FUNC(mephisto_board_device::mux_w)); map(0x2c00, 0x2c07).r(FUNC(mephisto_state::read_keys)); map(0x3000, 0x3000).r("board", FUNC(mephisto_board_device::input_r)); map(0x3400, 0x3407).w("outlatch", FUNC(hc259_device::write_d7)); // Status LEDs+ buzzer map(0x3800, 0x3800).w(FUNC(mephisto_state::mephisto_NMI)); // NMI enable map(0x4000, 0x7fff).rom(); // Opening Library map(0x8000, 0xffff).rom(); } void mephisto_state::mm2_mem(address_map &map) { map(0x0000, 0x0fff).ram(); //AM_BASE(m_p_ram) map(0x1000, 0x1007).w("outlatch", FUNC(hc259_device::write_d7)); //Status LEDs map(0x1800, 0x1807).r(FUNC(mephisto_state::read_keys)); map(0x2000, 0x2000).r("board", FUNC(mephisto_board_device::input_r)); map(0x2800, 0x2800).w(FUNC(mephisto_state::write_lcd)); map(0x3000, 0x3000).w("board", FUNC(mephisto_board_device::led_w)); map(0x3800, 0x3800).w("board", FUNC(mephisto_board_device::mux_w)); map(0x4000, 0x7fff).rom(); // Opening Library ? map(0x8000, 0xffff).rom(); } INPUT_PORTS_EXTERN( chessboard ); static INPUT_PORTS_START( mephisto ) PORT_START("KEY1_0") //Port $2c00 PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("CLEAR") PORT_CODE(KEYCODE_F1) PORT_START("KEY1_1") //Port $2c01 PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("POS") PORT_CODE(KEYCODE_F2) PORT_START("KEY1_2") //Port $2c02 PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("MEM") PORT_CODE(KEYCODE_F3) PORT_START("KEY1_3") //Port $2c03 PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("INFO") PORT_CODE(KEYCODE_F4) PORT_START("KEY1_4") //Port $2c04 PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("LEV") PORT_CODE(KEYCODE_F5) PORT_START("KEY1_5") //Port $2c05 PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("ENT") PORT_CODE(KEYCODE_ENTER) PORT_START("KEY1_6") //Port $2c06 PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("0") PORT_CODE(KEYCODE_0) PORT_START("KEY1_7") //Port $2c07 PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("9") PORT_CODE(KEYCODE_9) PORT_START("KEY2_0") //Port $2c08 PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("E 5") PORT_CODE(KEYCODE_E) PORT_CODE(KEYCODE_5) PORT_START("KEY2_1") //Port $2c09 PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("F 6") PORT_CODE(KEYCODE_F) PORT_CODE(KEYCODE_6) PORT_START("KEY2_2") //Port $2c0a PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("G 7") PORT_CODE(KEYCODE_G) PORT_CODE(KEYCODE_7) PORT_START("KEY2_3") //Port $2c0b PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("A 1") PORT_CODE(KEYCODE_A) PORT_CODE(KEYCODE_1) PORT_START("KEY2_4") //Port $2c0c PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("H 8") PORT_CODE(KEYCODE_H) PORT_CODE(KEYCODE_8) PORT_START("KEY2_5") //Port $2c0d PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("B 2") PORT_CODE(KEYCODE_B) PORT_CODE(KEYCODE_2) PORT_START("KEY2_6") //Port $2c0e PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("C 3") PORT_CODE(KEYCODE_C) PORT_CODE(KEYCODE_3) PORT_START("KEY2_7") //Port $2c0f PORT_BIT(0x080, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("D 4") PORT_CODE(KEYCODE_D) PORT_CODE(KEYCODE_4) INPUT_PORTS_END TIMER_DEVICE_CALLBACK_MEMBER(mephisto_state::update_nmi) { if (m_allowNMI) { m_allowNMI = 0; m_maincpu->pulse_input_line(INPUT_LINE_NMI, attotime::zero); } m_beep->set_state(m_outlatch->q6_r() ? 1 : 0); } TIMER_DEVICE_CALLBACK_MEMBER(mephisto_state::update_nmi_r5) { m_maincpu->pulse_input_line(INPUT_LINE_NMI, attotime::zero); m_beep->set_state(m_outlatch->q6_r() ? 1 : 0); } TIMER_DEVICE_CALLBACK_MEMBER(mephisto_state::update_irq)//only mm2 { m_maincpu->set_input_line(M65C02_IRQ_LINE, HOLD_LINE); m_beep->set_state(m_outlatch->q6_r() ? 1 : 0); } void mephisto_state::machine_start() { m_digits.resolve(); m_lcd_shift_counter = 3; m_allowNMI = 1; } MACHINE_START_MEMBER(mephisto_state,mm2) { m_digits.resolve(); m_lcd_shift_counter = 3; m_led7=0xff; } void mephisto_state::machine_reset() { m_lcd_shift_counter = 3; m_allowNMI = 1; /* adjust artwork depending on current emulation*/ if (!strcmp(machine().system().name,"mm2") ) output().set_value("MM",1); else if (!strcmp(machine().system().name,"mm4") ) output().set_value("MM",2); else if (!strcmp(machine().system().name,"mm4tk") ) output().set_value("MM",5); else if (!strcmp(machine().system().name,"mm5tk") ) output().set_value("MM",5); else if (!strcmp(machine().system().name,"mm5") ) output().set_value("MM",3); else if (!strcmp(machine().system().name,"mm50") ) output().set_value("MM",3); else if (!strcmp(machine().system().name,"rebel5") ) output().set_value("MM",4); } MACHINE_CONFIG_START(mephisto_state::mephisto) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu",M65C02,4915200) /* 65C02 */ MCFG_DEVICE_PROGRAM_MAP(mephisto_mem) MCFG_QUANTUM_TIME(attotime::from_hz(60)) HC259(config, m_outlatch); m_outlatch->q_out_cb<0>().set_output("led100"); m_outlatch->q_out_cb<1>().set_output("led101"); m_outlatch->q_out_cb<2>().set_output("led102"); m_outlatch->q_out_cb<3>().set_output("led103"); m_outlatch->q_out_cb<4>().set_output("led104"); m_outlatch->q_out_cb<5>().set_output("led105"); m_outlatch->q_out_cb<7>().set(FUNC(mephisto_state::write_led7)); /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("beeper", BEEP, 3250) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 1.0) MCFG_TIMER_DRIVER_ADD_PERIODIC("nmi_timer", mephisto_state, update_nmi, attotime::from_hz(600)) MCFG_MEPHISTO_SENSORS_BOARD_ADD("board") config.set_default_layout(layout_mephisto); MACHINE_CONFIG_END MACHINE_CONFIG_START(mephisto_state::rebel5) mephisto(config); /* basic machine hardware */ MCFG_DEVICE_MODIFY("maincpu") MCFG_DEVICE_PROGRAM_MAP(rebel5_mem) MCFG_DEVICE_REMOVE("nmi_timer") MCFG_TIMER_DRIVER_ADD_PERIODIC("nmi_timer_r5", mephisto_state, update_nmi_r5, attotime::from_hz(600)) MACHINE_CONFIG_END MACHINE_CONFIG_START(mephisto_state::mm2) mephisto(config); MCFG_DEVICE_REPLACE("maincpu", M65C02, 3700000) MCFG_DEVICE_PROGRAM_MAP(mm2_mem) MCFG_MACHINE_START_OVERRIDE(mephisto_state, mm2 ) MCFG_DEVICE_REMOVE("nmi_timer") MCFG_TIMER_DRIVER_ADD_PERIODIC("irq_timer", mephisto_state, update_irq, attotime::from_hz(450)) MACHINE_CONFIG_END MACHINE_CONFIG_START(mephisto_state::mm4tk) mephisto(config); MCFG_DEVICE_MODIFY("maincpu") MCFG_DEVICE_REPLACE("maincpu", M65C02, 18000000) MCFG_DEVICE_PROGRAM_MAP(mephisto_mem) MACHINE_CONFIG_END ROM_START(rebel5) ROM_REGION(0x10000,"maincpu",0) ROM_LOAD("rebel5.rom", 0x8000, 0x8000, CRC(8d02e1ef) SHA1(9972c75936613bd68cfd3fe62bd222e90e8b1083)) ROM_END ROM_START(mm2) ROM_REGION(0x10000,"maincpu",0) ROM_LOAD("mm2_1.bin", 0x8000, 0x4000, CRC(e2daac82) SHA1(c9fa59ca92362f8ee770733073bfa2ab8c7904ad)) ROM_LOAD("mm2_2.bin", 0xc000, 0x4000, CRC(5e296939) SHA1(badd2a377259cf738cd076d8fb245c3dc284c24d)) ROM_END ROM_START(mm4) ROM_REGION(0x10000,"maincpu",0) ROM_LOAD("mephisto4.rom", 0x8000, 0x8000, CRC(f68a4124) SHA1(d1d03a9aacc291d5cb720d2ee2a209eeba13a36c)) ROM_SYSTEM_BIOS( 0, "none", "No Opening Library" ) ROM_SYSTEM_BIOS( 1, "hg440", "HG440 Opening Library" ) ROMX_LOAD( "hg440.rom", 0x4000, 0x4000, CRC(81ffcdfd) SHA1(b0f7bcc11d1e821daf92cde31e3446c8be0bbe19), ROM_BIOS(1)) ROM_END ROM_START(mm4tk) ROM_REGION(0x10000,"maincpu",0) ROM_LOAD("mm4tk.rom", 0x8000, 0x8000, CRC(51cb36a4) SHA1(9e184b4e85bb721e794b88d8657ae8d2ff5a24af)) ROM_SYSTEM_BIOS( 0, "none", "No Opening Library" ) ROM_SYSTEM_BIOS( 1, "hg440", "HG440 Opening Library" ) ROMX_LOAD( "hg440.rom", 0x4000, 0x4000, CRC(81ffcdfd) SHA1(b0f7bcc11d1e821daf92cde31e3446c8be0bbe19), ROM_BIOS(1)) ROM_END ROM_START(mm5tk) ROM_REGION(0x10000,"maincpu",0) ROM_LOAD("mephisto5.rom", 0x8000, 0x8000, BAD_DUMP CRC(89c3d9d2) SHA1(77cd6f8eeb03c713249db140d2541e3264328048)) ROM_SYSTEM_BIOS( 0, "none", "No Opening Library" ) ROM_SYSTEM_BIOS( 1, "hg550", "HG550 Opening Library" ) ROMX_LOAD("hg550.rom", 0x4000, 0x4000, CRC(0359f13d) SHA1(833cef8302ad8d283d3f95b1d325353c7e3b8614), ROM_BIOS(1)) ROM_END ROM_START(mm5) ROM_REGION(0x10000,"maincpu",0) ROM_LOAD("mephisto5.rom", 0x8000, 0x8000, CRC(89c3d9d2) SHA1(77cd6f8eeb03c713249db140d2541e3264328048)) ROM_SYSTEM_BIOS( 0, "none", "No Opening Library" ) ROM_SYSTEM_BIOS( 1, "hg550", "HG550 Opening Library" ) ROMX_LOAD("hg550.rom", 0x4000, 0x4000, CRC(0359f13d) SHA1(833cef8302ad8d283d3f95b1d325353c7e3b8614), ROM_BIOS(1)) ROM_END ROM_START(mm50) ROM_REGION(0x10000,"maincpu",0) ROM_LOAD("mm50.rom", 0x8000, 0x8000, CRC(fcfa7e6e) SHA1(afeac3a8c957ba58cefaa27b11df974f6f2066da)) ROM_SYSTEM_BIOS( 0, "none", "No Opening Library" ) ROM_SYSTEM_BIOS( 1, "hg550", "HG550 Opening Library" ) ROMX_LOAD("hg550.rom", 0x4000, 0x4000, CRC(0359f13d) SHA1(833cef8302ad8d283d3f95b1d325353c7e3b8614), ROM_BIOS(1)) ROM_END void mephisto_state::init_mephisto() { m_lcd_shift_counter = 3; } /*************************************************************************** Game driver(s) ***************************************************************************/ /* YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS */ CONS( 1984, mm2, mm4, 0, mm2, mephisto, mephisto_state, init_mephisto, "Hegener & Glaser", "Mephisto MM2 Schachcomputer", MACHINE_NOT_WORKING|MACHINE_REQUIRES_ARTWORK | MACHINE_CLICKABLE_ARTWORK ) CONS( 1986, rebel5, mm4, 0, rebel5, mephisto, mephisto_state, init_mephisto, "Hegener & Glaser", "Mephisto Rebell 5,0 Schachcomputer", MACHINE_NOT_WORKING|MACHINE_REQUIRES_ARTWORK | MACHINE_CLICKABLE_ARTWORK ) CONS( 1987, mm4, 0, 0, mephisto, mephisto, mephisto_state, init_mephisto, "Hegener & Glaser", "Mephisto 4 Schachcomputer", MACHINE_NOT_WORKING|MACHINE_REQUIRES_ARTWORK | MACHINE_CLICKABLE_ARTWORK ) CONS( 1987, mm4tk, mm4, 0, mm4tk, mephisto, mephisto_state, init_mephisto, "Hegener & Glaser", "Mephisto 4 Schachcomputer Turbo Kit + HG440", MACHINE_NOT_WORKING|MACHINE_REQUIRES_ARTWORK | MACHINE_CLICKABLE_ARTWORK ) CONS( 1990, mm5, mm4, 0, mephisto, mephisto, mephisto_state, init_mephisto, "Hegener & Glaser", "Mephisto 5.1 Schachcomputer", MACHINE_NOT_WORKING|MACHINE_REQUIRES_ARTWORK | MACHINE_CLICKABLE_ARTWORK ) CONS( 1990, mm50, mm4, 0, mephisto, mephisto, mephisto_state, init_mephisto, "Hegener & Glaser", "Mephisto 5.0 Schachcomputer", MACHINE_NOT_WORKING|MACHINE_REQUIRES_ARTWORK | MACHINE_CLICKABLE_ARTWORK ) CONS( 1990, mm5tk, mm4, 0, mm4tk, mephisto, mephisto_state, init_mephisto, "Hegener & Glaser", "Mephisto 5.1 Schachcomputer Turbo Kit + HG550", MACHINE_NOT_WORKING|MACHINE_REQUIRES_ARTWORK | MACHINE_CLICKABLE_ARTWORK )