// license:MAME // copyright-holders:Robbbert /****************************************************************************** * * EA Car Computer * by Robbbert, March 2011. * * Described in Electronics Australia magazine during 1982. * Construction and usage: http://messui.the-chronicles.org/comp/eacc.pdf * * The only RAM is the 128 bytes that comes inside the CPU. * * This computer is mounted in a car, and various sensors (fuel flow, etc) * are connected up. By pressing the appropriate buttons various statistics * may be obtained. * * Memory Map * 0000-007F internal ram * 4000-7FFF ROM * 8000-BFFF 6821 * C000-FFFF ROM (mirror) * * The ROM was typed in twice from the dump in the magazine article, and the * results compared. Only one byte was different, so I can be confident that * it has been typed in properly. * * Setting up: You need to enter the number of expected pulses from the fuel * and distance sensors. Paste this: 5 6M123N 7M400N (start, set litres cal to * 123 pulses. set km cal to 400 pulses). Then paste this: 1950M0N 1845M0N (set * petrol tank capacity to 50 litres, set current amount of petrol to 45). * Now enter: 28M100N (the journey is 100km). Press 5 to start the journey. * All settings are saved in nvram. * * Stats you can see while travelling: * 0 - time elapsed * 08 - time remaining * 1 - fuel used * 18 - fuel left * 2 - km travelled * 28 - km remaining * 29 - km that could be travelled with the fuel you have left * 3 - speed now * 39 - average speed * 4 - fuel consumption now (litres per 100km) * 49 - fuel average consumption * ******************************************************************************/ /* Core includes */ #include "emu.h" #include "cpu/m6800/m6800.h" #include "eacc.lh" #include "machine/6821pia.h" #include "machine/nvram.h" class eacc_state : public driver_device { public: eacc_state(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag), m_maincpu(*this, "maincpu"), m_pia(*this, "pia"), m_p_nvram(*this, "nvram") { } DECLARE_READ_LINE_MEMBER( eacc_cb1_r ); DECLARE_READ_LINE_MEMBER( eacc_distance_r ); DECLARE_READ_LINE_MEMBER( eacc_fuel_sensor_r ); DECLARE_READ8_MEMBER( eacc_keyboard_r ); DECLARE_WRITE_LINE_MEMBER( eacc_cb2_w ); DECLARE_WRITE8_MEMBER( eacc_digit_w ); DECLARE_WRITE8_MEMBER( eacc_segment_w ); bool m_cb1; bool m_cb2; bool m_nmi; required_device m_maincpu; required_device m_pia; required_shared_ptr m_p_nvram; virtual void machine_reset(); TIMER_DEVICE_CALLBACK_MEMBER(eacc_cb1); TIMER_DEVICE_CALLBACK_MEMBER(eacc_nmi); private: UINT8 m_digit; }; /****************************************************************************** Address Maps ******************************************************************************/ static ADDRESS_MAP_START(eacc_mem, AS_PROGRAM, 8, eacc_state) ADDRESS_MAP_UNMAP_HIGH ADDRESS_MAP_GLOBAL_MASK(0xc7ff) // A11,A12,A13 not connected AM_RANGE(0x0000, 0x001f) AM_RAM AM_SHARE("nvram") // inside cpu, battery-backed AM_RANGE(0x0020, 0x007f) AM_RAM // inside cpu AM_RANGE(0x6000, 0x67ff) AM_ROM AM_MIRROR(0x8000) AM_RANGE(0x8004, 0x8007) AM_MIRROR(0x7fc) AM_DEVREADWRITE("pia", pia6821_device, read, write) ADDRESS_MAP_END /****************************************************************************** Input Ports ******************************************************************************/ static INPUT_PORTS_START(eacc) PORT_START("X0") PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("6 Litres Cal") PORT_CODE(KEYCODE_6_PAD) PORT_CHAR('6') PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("ENTER") PORT_CODE(KEYCODE_ENTER_PAD) PORT_CHAR('M') PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("2 km") PORT_CODE(KEYCODE_2_PAD) PORT_CHAR('2') PORT_BIT( 0xf8, 0, IPT_UNUSED ) PORT_START("X1") PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("5 START") PORT_CODE(KEYCODE_5_PAD) PORT_CHAR('5') PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("END") PORT_CODE(KEYCODE_PLUS_PAD) PORT_CHAR('N') PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("3 km/h") PORT_CODE(KEYCODE_3_PAD) PORT_CHAR('3') PORT_BIT( 0xf8, 0, IPT_UNUSED ) PORT_START("X2") PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("7 Km Cal") PORT_CODE(KEYCODE_7_PAD) PORT_CHAR('7') PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("0 hour.min") PORT_CODE(KEYCODE_0_PAD) PORT_CHAR('0') PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("4 l/100km") PORT_CODE(KEYCODE_4_PAD) PORT_CHAR('4') PORT_BIT( 0xf8, 0, IPT_UNUSED ) PORT_START("X3") PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("8 REM") PORT_CODE(KEYCODE_8_PAD) PORT_CHAR('8') PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("1 litres") PORT_CODE(KEYCODE_1_PAD) PORT_CHAR('1') PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("9 AV") PORT_CODE(KEYCODE_9_PAD) PORT_CHAR('9') PORT_BIT( 0xf8, 0, IPT_UNUSED ) INPUT_PORTS_END void eacc_state::machine_reset() { m_cb2 = 0; } TIMER_DEVICE_CALLBACK_MEMBER(eacc_state::eacc_cb1) { m_cb1 ^= 1; // 15hz if (m_cb2) m_maincpu->set_input_line(M6800_IRQ_LINE, ASSERT_LINE); } TIMER_DEVICE_CALLBACK_MEMBER(eacc_state::eacc_nmi) { if (m_cb2) { m_nmi = true; m_maincpu->set_input_line(INPUT_LINE_NMI, ASSERT_LINE); } } READ_LINE_MEMBER( eacc_state::eacc_cb1_r ) { return (m_cb2) ? m_cb1 : 1; } READ_LINE_MEMBER( eacc_state::eacc_distance_r ) { return machine().rand() & 1; // needs random pulses to simulate movement } READ_LINE_MEMBER( eacc_state::eacc_fuel_sensor_r ) { return machine().rand() & 1; // needs random pulses to simulate fuel usage } WRITE_LINE_MEMBER( eacc_state::eacc_cb2_w ) { m_cb2 = state; } READ8_MEMBER( eacc_state::eacc_keyboard_r ) { UINT8 data = m_digit; if (BIT(m_digit, 3)) data |= ioport("X0")->read(); if (BIT(m_digit, 4)) data |= ioport("X1")->read(); if (BIT(m_digit, 5)) data |= ioport("X2")->read(); if (BIT(m_digit, 6)) data |= ioport("X3")->read(); return data; } WRITE8_MEMBER( eacc_state::eacc_segment_w ) { //d7 segment dot //d6 segment c //d5 segment d //d4 segment e //d3 segment a //d2 segment b //d1 segment f //d0 segment g if (!m_nmi) { UINT8 i; if (BIT(m_digit, 7)) { char lednum[6]; data ^= 0xff; for (i = 0; i < 8; i++) { sprintf(lednum,"led%d",i); output_set_value(lednum, BIT(data, i)); } } else { for (i = 3; i < 7; i++) if (BIT(m_digit, i)) output_set_digit_value(i, BITSWAP8(data, 7, 0, 1, 4, 5, 6, 2, 3)); } } } WRITE8_MEMBER( eacc_state::eacc_digit_w ) { if (m_nmi) { m_maincpu->set_input_line(INPUT_LINE_NMI, CLEAR_LINE); m_nmi = false; } m_digit = data & 0xf8; } /****************************************************************************** Machine Drivers ******************************************************************************/ static MACHINE_CONFIG_START( eacc, eacc_state ) /* basic machine hardware */ MCFG_CPU_ADD("maincpu", M6802, XTAL_3_579545MHz) /* Divided by 4 inside the m6802*/ MCFG_CPU_PROGRAM_MAP(eacc_mem) MCFG_DEFAULT_LAYOUT(layout_eacc) MCFG_DEVICE_ADD("pia", PIA6821, 0) MCFG_PIA_READPB_HANDLER(READ8(eacc_state, eacc_keyboard_r)) MCFG_PIA_READCA1_HANDLER(READLINE(eacc_state, eacc_distance_r)) MCFG_PIA_READCB1_HANDLER(READLINE(eacc_state, eacc_cb1_r)) MCFG_PIA_READCA2_HANDLER(READLINE(eacc_state, eacc_fuel_sensor_r)) MCFG_PIA_WRITEPA_HANDLER(WRITE8(eacc_state, eacc_segment_w)) MCFG_PIA_WRITEPB_HANDLER(WRITE8(eacc_state, eacc_digit_w)) MCFG_PIA_CB2_HANDLER(WRITELINE(eacc_state, eacc_cb2_w)) MCFG_PIA_IRQA_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line)) MCFG_PIA_IRQB_HANDLER(DEVWRITELINE("maincpu", m6802_cpu_device, irq_line)) MCFG_NVRAM_ADD_0FILL("nvram") MCFG_TIMER_DRIVER_ADD_PERIODIC("eacc_nmi", eacc_state, eacc_nmi, attotime::from_hz(600)) MCFG_TIMER_DRIVER_ADD_PERIODIC("eacc_cb1", eacc_state, eacc_cb1, attotime::from_hz(30)) MACHINE_CONFIG_END /****************************************************************************** ROM Definitions ******************************************************************************/ ROM_START(eacc) ROM_REGION(0x10000, "maincpu", 0) ROM_LOAD("eacc.bin", 0x4000, 0x0800, CRC(287a63c0) SHA1(f61b397d33ea40e5742e34d5f5468572125e8b39) ) ROM_END /****************************************************************************** Drivers ******************************************************************************/ /* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS */ COMP( 1982, eacc, 0, 0, eacc, eacc, driver_device, 0, "Electronics Australia", "EA Car Computer", GAME_NO_SOUND_HW)