// license:BSD-3-Clause // copyright-holders:hap, Kevin Horton /*************************************************************************** Hitachi HMCS40 MCU tabletops/handhelds or other simple devices, most of them are VFD electronic games/toys. known chips: serial device etc. ---------------------------------------------------------------- @07 HD38750A 1979, Bambino Knock-Em Out Boxing (ET-06B) @08 HD38750A 1979, Bambino Dribble Away Basketball (ET-05) @45 HD38750A 1981, VTech Invaders *56 HD38750A 1981, Actronics(Hanzawa) Twinvader (small brown version) *58 HD38750A 1981, Actronics(Hanzawa) Challenge Racer/Ludotronic(Hanzawa) Grand Prix Turbo *62 HD38750A 1982, Actronics(Hanzawa) Pack'n Maze @04 HD38800A 1980, Gakken Heiankyo Alien @25 HD38800A 1981, Coleco Alien Attack @27 HD38800A 1981, Bandai Packri Monster @31 HD38800A 1981, Entex Select-a-Game cartridge: Space Invader 2 @37 HD38800A 1981, Entex Select-a-Game cartridge: Baseball 4 @38 HD38800A 1981, Entex Select-a-Game cartridge: Pinball *41 HD38800A 1982, Gakken Puck Monster *51 HD38800A 1981, Actronics(Hanzawa) Twinvader (larger white version) @70 HD38800A 1982, Coleco Galaxian @73 HD38800A 1982, Bandai(Mattel) Star Hawk (PT-317B) @77 HD38800A 1982, Bandai Frisky Tom (PT-327A) @88 HD38800A 1984, Tomy Tron (THN-02) @01 HD38800B 1982, Gakken Crazy Kong @19 HD38800B 1982, Bandai Zaxxon @23 HD38800B 1982, Tomy Kingman (THF-01II) *24 HD38800B 1982, Actronics(Hanzawa) Wanted G-Man *29 HD38800B 1984, Tomy Portable 6000 Bombman *31 HD38800B 1983, Gongoll Frog Prince (ET-806) *35 HD38800B 1983, Bandai Gundam vs Gelgoog Zaku @43 HD38800B 1983, Bandai Dokodemo Dorayaki Doraemon (PT-412) @52 HD38800B 1983, Bandai Ultraman Monster Battle (PT-424) @09 HD38820A 1980, Mattel World Championship Baseball @13 HD38820A 1981, Entex Galaxian 2 @23 HD38820A 1981, Entex Pac Man 2 @28 HD38820A 1981, Coleco Pac-Man (ver 1) @29 HD38820A 1981, Coleco Pac-Man (ver 2) *32 HD38820A 198?, Gakken Super Cobra *38 HD38820A 1982, Entex Crazy Climber @42 HD38820A 1982, Entex Stargate @43 HD38820A 1982, Entex Turtles @45 HD38820A 1982, Coleco Donkey Kong @49 HD38820A 1983, Bandai Zackman @61 HD38820A 1983, Coleco Ms. Pac-Man @63 HD38820A 1983, Bandai Pengo @65 HD38820A 1983, Bandai Burger Time (PT-389) @69 HD38820A 1983, Gakken Dig Dug @70 HD38820A 1983, Parker Brothers Q*Bert @85 HD38820A 1984, Bandai Machine Man (PT-438) @88 HD38820A 1984, Bandai Pair Match (PT-460) (1/2) @89 HD38820A 1984, Bandai Pair Match (PT-460) (2/2) 75 HD44801A 1982, Alpha 8201 protection MCU -> machine/alpha8201.* 35 HD44801B 1983, Alpha 8302 protection MCU (see 8201) 42 HD44801B 1984, Alpha 8303 protection MCU (see 8201) *89 HD44801C 1985, CXG Advanced Portachess (* means undumped unless noted, @ denotes it's in this driver) TODO: - cdkong discrete sound (simple volume decay, simulated for now) - cgalaxn discrete sound (alien attacking sound effect) - gckong random lockups (tap the jump button repeatedly): mcu stack overflow, works ok if stack levels is increased, 38800 B rev. has more stack levels? Or it could be a race condition: irq happening too late/early. - epacman2 booting the game in demo mode, pacman should go straight to the upper-left power pill: mcu cycle/interrupt timing related - Though very uncommon when compared to games with LED/lamp display, some games may manipulate VFD plate brightness by strobing it longer/shorter, eg. cgalaxn when the player ship explodes. - Related to the above issue: bultrman sometimes strobes D0/D1/D2 for a very short duration, causing (unwanted) dimly lit segments on the real machine. On MAME they will show with full brightness, see eg. building explosions. Currently there's a workaround in place. - bzaxxon 3D effect is difficult to simulate - improve/redo SVGs of: bzaxxon, bpengo, bbtime ***************************************************************************/ #include "emu.h" #include "cpu/hmcs40/hmcs40.h" #include "cpu/cop400/cop400.h" #include "machine/gen_latch.h" #include "machine/timer.h" #include "sound/spkrdev.h" #include "screen.h" #include "speaker.h" // internal artwork #include "pairmtch.lh" #include "sag.lh" //#include "hh_hmcs40_test.lh" // common test-layout - no svg artwork(yet), use external artwork class hh_hmcs40_state : public driver_device { public: hh_hmcs40_state(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag), m_maincpu(*this, "maincpu"), m_audiocpu(*this, "audiocpu"), m_soundlatch(*this, "soundlatch"), m_soundlatch2(*this, "soundlatch2"), m_inp_matrix(*this, "IN.%u", 0), m_out_x(*this, "%u.%u", 0U, 0U), m_out_a(*this, "%u.a", 0U), m_out_digit(*this, "digit%u", 0U), m_speaker(*this, "speaker"), m_display_wait(33), m_display_maxy(1), m_display_maxx(0) { } // devices required_device m_maincpu; optional_device m_audiocpu; optional_device m_soundlatch; optional_device m_soundlatch2; optional_ioport_array<7> m_inp_matrix; // max 7 output_finder<0x20, 0x40> m_out_x; output_finder<0x20> m_out_a; output_finder<0x20> m_out_digit; optional_device m_speaker; // misc common u8 m_r[8]; // MCU R ports write data (optional) u16 m_d; // MCU D port write data (optional) u8 m_int[2]; // MCU INT0/1 pins state u16 m_inp_mux; // multiplexed inputs mask u16 read_inputs(int columns); void refresh_interrupts(void); void set_interrupt(int line, int state); DECLARE_INPUT_CHANGED_MEMBER(single_interrupt_line); // display common int m_display_wait; // led/lamp off-delay in milliseconds (default 33ms) int m_display_maxy; // display matrix number of rows int m_display_maxx; // display matrix number of columns (max 47 for now) u32 m_grid; // VFD current row data u64 m_plate; // VFD current column data u64 m_display_state[0x20]; // display matrix rows data (last bit is used for always-on) u16 m_display_segmask[0x20]; // if not 0, display matrix row is a digit, mask indicates connected segments u8 m_display_decay[0x20][0x40]; // (internal use) TIMER_DEVICE_CALLBACK_MEMBER(display_decay_tick); void display_update(); void set_display_size(int maxx, int maxy); void set_display_segmask(u32 digits, u32 mask); void display_matrix(int maxx, int maxy, u64 setx, u32 sety, bool update = true); protected: virtual void machine_start() override; virtual void machine_reset() override; }; // machine start/reset void hh_hmcs40_state::machine_start() { // resolve handlers m_out_x.resolve(); m_out_a.resolve(); m_out_digit.resolve(); // zerofill memset(m_display_state, 0, sizeof(m_display_state)); memset(m_display_decay, 0, sizeof(m_display_decay)); memset(m_display_segmask, 0, sizeof(m_display_segmask)); memset(m_r, 0, sizeof(m_r)); memset(m_int, 0, sizeof(m_int)); m_d = 0; m_inp_mux = 0; m_grid = 0; m_plate = 0; // register for savestates save_item(NAME(m_display_maxy)); save_item(NAME(m_display_maxx)); save_item(NAME(m_display_wait)); save_item(NAME(m_display_state)); save_item(NAME(m_display_decay)); save_item(NAME(m_display_segmask)); save_item(NAME(m_r)); save_item(NAME(m_int)); save_item(NAME(m_d)); save_item(NAME(m_inp_mux)); save_item(NAME(m_grid)); save_item(NAME(m_plate)); } void hh_hmcs40_state::machine_reset() { refresh_interrupts(); } /*************************************************************************** Helper Functions ***************************************************************************/ // The device may strobe the outputs very fast, it is unnoticeable to the user. // To prevent flickering here, we need to simulate a decay. void hh_hmcs40_state::display_update() { for (int y = 0; y < m_display_maxy; y++) { u64 active_state = 0; for (int x = 0; x <= m_display_maxx; x++) { // turn on powered segments if (m_display_state[y] >> x & 1) m_display_decay[y][x] = m_display_wait; // determine active state u64 ds = (m_display_decay[y][x] != 0) ? 1 : 0; active_state |= (ds << x); // output to y.x, or y.a when always-on if (x != m_display_maxx) m_out_x[y][x] = ds; else m_out_a[y] = ds; } // output to digity if (m_display_segmask[y] != 0) m_out_digit[y] = active_state & m_display_segmask[y]; } } TIMER_DEVICE_CALLBACK_MEMBER(hh_hmcs40_state::display_decay_tick) { // slowly turn off unpowered segments for (int y = 0; y < m_display_maxy; y++) for (int x = 0; x <= m_display_maxx; x++) if (m_display_decay[y][x] != 0) m_display_decay[y][x]--; display_update(); } void hh_hmcs40_state::set_display_size(int maxx, int maxy) { m_display_maxx = maxx; m_display_maxy = maxy; } void hh_hmcs40_state::set_display_segmask(u32 digits, u32 mask) { // set a segment mask per selected digit, but leave unselected ones alone for (int i = 0; i < 0x20; i++) { if (digits & 1) m_display_segmask[i] = mask; digits >>= 1; } } void hh_hmcs40_state::display_matrix(int maxx, int maxy, u64 setx, u32 sety, bool update) { set_display_size(maxx, maxy); // update current state u64 mask = (u64(1) << maxx) - 1; for (int y = 0; y < maxy; y++) m_display_state[y] = (sety >> y & 1) ? ((setx & mask) | (u64(1) << maxx)) : 0; if (update) display_update(); } // generic input handlers u16 hh_hmcs40_state::read_inputs(int columns) { u16 ret = 0; // read selected input rows for (int i = 0; i < columns; i++) if (m_inp_mux >> i & 1) ret |= m_inp_matrix[i]->read(); return ret; } // interrupt handling void hh_hmcs40_state::refresh_interrupts() { for (int i = 0; i < 2; i++) m_maincpu->set_input_line(i, m_int[i] ? ASSERT_LINE : CLEAR_LINE); } void hh_hmcs40_state::set_interrupt(int line, int state) { line = line ? 1 : 0; state = state ? 1 : 0; if (state != m_int[line]) { if (machine().phase() >= machine_phase::RESET) m_maincpu->set_input_line(line, state ? ASSERT_LINE : CLEAR_LINE); m_int[line] = state; } } INPUT_CHANGED_MEMBER(hh_hmcs40_state::single_interrupt_line) { set_interrupt((int)(uintptr_t)param, newval); } /*************************************************************************** Minidrivers (subclass, I/O, Inputs, Machine Config) ***************************************************************************/ /*************************************************************************** Bambino Dribble Away Basketball (manufactured in Japan) * PCB label Emix Corp. ET-05 * Hitachi HD38750A08 MCU * cyan VFD display Emix-106, with bezel overlay ***************************************************************************/ class bambball_state : public hh_hmcs40_state { public: bambball_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); DECLARE_READ8_MEMBER(input_r); void bambball(machine_config &config); }; // handlers WRITE8_MEMBER(bambball_state::plate_w) { // R1x-R3x(,D0-D3): vfd plate int shift = (offset - hmcs40_cpu_device::PORT_R1X) * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); // update display u16 plate = bitswap<16>(m_plate,13,8,4,12,9,10,14,1,7,0,15,11,6,3,5,2); display_matrix(16, 9, plate, m_grid); } WRITE16_MEMBER(bambball_state::grid_w) { // D4: speaker out m_speaker->level_w(data >> 4 & 1); // D7-D10: input mux m_inp_mux = data >> 7 & 0xf; // D7-D15: vfd grid m_grid = data >> 7 & 0x1ff; // D0-D3: more plates (update display there) plate_w(space, 3 + hmcs40_cpu_device::PORT_R1X, data & 0xf); } READ8_MEMBER(bambball_state::input_r) { // R0x: multiplexed inputs return read_inputs(4); } // config static INPUT_PORTS_START( bambball ) PORT_START("IN.0") // D7 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_NAME("Dribble Low") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_BUTTON2 ) PORT_NAME("Dribble Medium") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_BUTTON3 ) PORT_NAME("Dribble High") PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_NAME("Shoot") PORT_START("IN.1") // D8 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_16WAY PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_16WAY PORT_BIT( 0x0c, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_START("IN.2") // D9 port R0x PORT_BIT( 0x03, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_START ) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_SELECT ) PORT_NAME("Display") PORT_START("IN.3") // D10 port R0x PORT_CONFNAME( 0x07, 0x01, DEF_STR( Difficulty ) ) PORT_CONFSETTING( 0x01, "1" ) PORT_CONFSETTING( 0x02, "2" ) PORT_CONFSETTING( 0x04, "3" ) PORT_CONFNAME( 0x08, 0x08, DEF_STR( Players ) ) PORT_CONFSETTING( 0x08, "1" ) PORT_CONFSETTING( 0x00, "2" ) INPUT_PORTS_END MACHINE_CONFIG_START(bambball_state::bambball) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38750, 400000) // approximation MCFG_HMCS40_READ_R_CB(0, READ8(*this, bambball_state, input_r)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, bambball_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, bambball_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, bambball_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, bambball_state, grid_w)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(1920, 478) MCFG_SCREEN_VISIBLE_AREA(0, 1920-1, 0, 478-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Bambino Knock-Em Out Boxing * PCB label Emix Corp. ET-06B * Hitachi HD38750A07 MCU * cyan VFD display Emix-103, with blue or green color overlay ***************************************************************************/ class bmboxing_state : public hh_hmcs40_state { public: bmboxing_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } void prepare_display(); DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); DECLARE_READ8_MEMBER(input_r); void bmboxing(machine_config &config); }; // handlers void bmboxing_state::prepare_display() { u16 grid = bitswap<16>(m_grid,15,14,13,12,11,10,9,0,1,2,3,4,5,6,7,8); u32 plate = bitswap<16>(m_plate,15,14,13,12,1,2,0,3,11,4,10,7,5,6,9,8); display_matrix(12, 9, plate, grid); } WRITE8_MEMBER(bmboxing_state::plate_w) { // R1x-R3x: vfd plate int shift = (offset - hmcs40_cpu_device::PORT_R1X) * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); prepare_display(); } WRITE16_MEMBER(bmboxing_state::grid_w) { // D13: speaker out m_speaker->level_w(data >> 13 & 1); // D9-D12: input mux m_inp_mux = data >> 9 & 0xf; // D4-D12: vfd grid m_grid = data >> 4 & 0x1ff; prepare_display(); } READ8_MEMBER(bmboxing_state::input_r) { // R0x: multiplexed inputs return read_inputs(4); } // config /* physical button layout and labels is like this: * left = P2 side * * right = P1 side * [ BACK ] [ HIGH ] (players sw) [ HIGH ] [ BACK ] 1<--->2 [START/ [NORMAL] [MEDIUM] RESET] [MEDIUM] [NORMAL] 1<---OFF--->2 [ DUCK ] [ LOW ] (skill lvl sw) [ LOW ] [ DUCK ] */ static INPUT_PORTS_START( bmboxing ) PORT_START("IN.0") // D9 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_U) PORT_NAME("P1 Punch High") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_J) PORT_NAME("P1 Punch Medium") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_M) PORT_NAME("P1 Punch Low") PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_START("IN.1") // D10 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_K) PORT_NAME("P1 Position Normal") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_I) PORT_NAME("P1 Position Back") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_COMMA) PORT_NAME("P1 Position Ducking") PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_START("IN.2") // D11 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_W) PORT_NAME("P2 Punch High") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_S) PORT_NAME("P2 Punch Medium") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_X) PORT_NAME("P2 Punch Low") PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_START("IN.3") // D12 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_A) PORT_NAME("P2 Position Normal") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_Q) PORT_NAME("P2 Position Back") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_Z) PORT_NAME("P2 Position Ducking") PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_START("IN.4") // port D PORT_CONFNAME( 0x0001, 0x0000, DEF_STR( Players ) ) PORT_CONFSETTING( 0x0000, "1" ) PORT_CONFSETTING( 0x0001, "2" ) PORT_CONFNAME( 0x0002, 0x0000, DEF_STR( Difficulty ) ) PORT_CONFSETTING( 0x0000, "1" ) PORT_CONFSETTING( 0x0002, "2" ) PORT_BIT( 0x0004, IP_ACTIVE_HIGH, IPT_START ) PORT_BIT( 0xfff8, IP_ACTIVE_HIGH, IPT_UNUSED ) INPUT_PORTS_END MACHINE_CONFIG_START(bmboxing_state::bmboxing) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38750, 400000) // approximation MCFG_HMCS40_READ_R_CB(0, READ8(*this, bmboxing_state, input_r)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, bmboxing_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, bmboxing_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, bmboxing_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, bmboxing_state, grid_w)) MCFG_HMCS40_READ_D_CB(IOPORT("IN.4")) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(1920, 529) MCFG_SCREEN_VISIBLE_AREA(0, 1920-1, 0, 529-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Bandai Frisky Tom (manufactured in Japan) * PCB label Kaken Corp., PT-327A * Hitachi HD38800A77 MCU * cyan/red/green VFD display Futaba DM-43ZK 2E ***************************************************************************/ class bfriskyt_state : public hh_hmcs40_state { public: bfriskyt_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } void prepare_display(); DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void update_int1(); DECLARE_INPUT_CHANGED_MEMBER(input_changed); void bfriskyt(machine_config &config); }; // handlers void bfriskyt_state::prepare_display() { u16 grid = bitswap<16>(m_grid,15,14,13,12,11,10,9,8,0,1,2,3,4,5,6,7); u32 plate = bitswap<24>(m_plate,23,22,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21); display_matrix(22, 8, plate, grid); } WRITE8_MEMBER(bfriskyt_state::plate_w) { // R0x-R3x: vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); prepare_display(); } WRITE16_MEMBER(bfriskyt_state::grid_w) { // D6: speaker out m_speaker->level_w(data >> 6 & 1); // D11-D15: input mux u8 inp_mux = data >> 11 & 0x1f; if (inp_mux != m_inp_mux) { m_inp_mux = inp_mux; update_int1(); } // D8-D15: vfd grid m_grid = data >> 8 & 0xff; // D0-D5: more plates m_plate = (m_plate & 0x00ffff) | (data << 16 & 0x3f0000); prepare_display(); } void bfriskyt_state::update_int1() { // INT1 on multiplexed inputs set_interrupt(1, read_inputs(5)); } // config static INPUT_PORTS_START( bfriskyt ) PORT_START("IN.0") // D11 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, bfriskyt_state, input_changed, nullptr) PORT_START("IN.1") // D12 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_CHANGED_MEMBER(DEVICE_SELF, bfriskyt_state, input_changed, nullptr) PORT_START("IN.2") // D13 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_CHANGED_MEMBER(DEVICE_SELF, bfriskyt_state, input_changed, nullptr) PORT_START("IN.3") // D14 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_CHANGED_MEMBER(DEVICE_SELF, bfriskyt_state, input_changed, nullptr) PORT_START("IN.4") // D15 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_CHANGED_MEMBER(DEVICE_SELF, bfriskyt_state, input_changed, nullptr) PORT_START("IN.5") // INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_START ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)0) INPUT_PORTS_END INPUT_CHANGED_MEMBER(bfriskyt_state::input_changed) { update_int1(); } MACHINE_CONFIG_START(bfriskyt_state::bfriskyt) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38800, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, bfriskyt_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, bfriskyt_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, bfriskyt_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, bfriskyt_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, bfriskyt_state, grid_w)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(1920, 675) MCFG_SCREEN_VISIBLE_AREA(0, 1920-1, 0, 675-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Bandai Packri Monster (manufactured in Japan) * PCB label DM-21ZA2 * Hitachi HD38800A27 MCU * cyan/red/green VFD display Futaba DM-21ZK 2B, with bezel overlay known releases: - Japan: FL Packri Monster - USA(World?): Packri Monster - USA/Canada: Hungry Monster, published by Tandy - other: Gobble Man/Ogre Monster, published by Tandy ***************************************************************************/ class packmon_state : public hh_hmcs40_state { public: packmon_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); DECLARE_READ16_MEMBER(input_r); void packmon(machine_config &config); }; // handlers WRITE8_MEMBER(packmon_state::plate_w) { // R0x-R3x(,D0-D3): vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); // update display u16 grid = bitswap<16>(m_grid,15,14,13,12,11,10,0,1,2,3,4,5,6,7,8,9); u32 plate = bitswap<24>(m_plate,23,22,21,20,0,1,2,3,4,5,6,19,18,17,16,15,14,13,12,11,10,9,8,7); display_matrix(20, 10, plate, grid); } WRITE16_MEMBER(packmon_state::grid_w) { // D4: speaker out m_speaker->level_w(data >> 4 & 1); // D11-D15: input mux m_inp_mux = data >> 11 & 0x1f; // D6-D15: vfd grid m_grid = data >> 6 & 0x3ff; // D0-D3: plate 9-12 (update display there) plate_w(space, 4, data & 0xf); } READ16_MEMBER(packmon_state::input_r) { // D5: multiplexed inputs return read_inputs(5) & 0x20; } // config static INPUT_PORTS_START( packmon ) PORT_START("IN.0") // D11 line D5 PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_START ) PORT_START("IN.1") // D12 line D5 PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_START("IN.2") // D13 line D5 PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_START("IN.3") // D14 line D5 PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_START("IN.4") // D15 line D5 PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) INPUT_PORTS_END MACHINE_CONFIG_START(packmon_state::packmon) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38800, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, packmon_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, packmon_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, packmon_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, packmon_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, packmon_state, grid_w)) MCFG_HMCS40_READ_D_CB(READ16(*this, packmon_state, input_r)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(1920, 766) MCFG_SCREEN_VISIBLE_AREA(0, 1920-1, 0, 766-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Bandai/Mattel Star Hawk (manufactured in Japan) * PCB label Kaken, PT-317B * Hitachi HD38800A73 MCU * cyan/red VFD display Futaba DM-41ZK, with partial color overlay + bezel Kaken was a subsidiary of Bandai. The original Japanese release is unknown, was it canceled and only released in the USA? known releases: - Japan: ? - USA: Star Hawk, published by Mattel ***************************************************************************/ class msthawk_state : public hh_hmcs40_state { public: msthawk_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } void prepare_display(); DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void update_int0(); DECLARE_INPUT_CHANGED_MEMBER(input_changed); void msthawk(machine_config &config); }; // handlers void msthawk_state::prepare_display() { u16 grid = bitswap<16>(m_grid,15,14,13,12,11,10,0,1,2,3,4,5,6,7,8,9); u32 plate = bitswap<24>(m_plate,23,22,21,19,20,18,17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0); display_matrix(21, 10, plate, grid); } WRITE8_MEMBER(msthawk_state::plate_w) { // R0x-R3x: vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); prepare_display(); } WRITE16_MEMBER(msthawk_state::grid_w) { // D5: speaker out m_speaker->level_w(data >> 5 & 1); // D10-D15: input mux u8 inp_mux = data >> 10 & 0x3f; if (inp_mux != m_inp_mux) { m_inp_mux = inp_mux; update_int0(); } // D6-D15: vfd grid m_grid = data >> 6 & 0x3ff; // D0-D4: more plates m_plate = (m_plate & 0x00ffff) | (data << 16 & 0x1f0000); prepare_display(); } void msthawk_state::update_int0() { // INT0 on multiplexed inputs set_interrupt(0, read_inputs(6)); } // config static INPUT_PORTS_START( msthawk ) PORT_START("IN.0") // D10 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_SELECT ) PORT_CHANGED_MEMBER(DEVICE_SELF, msthawk_state, input_changed, nullptr) PORT_NAME("Score") PORT_START("IN.1") // D11 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON2 ) PORT_CHANGED_MEMBER(DEVICE_SELF, msthawk_state, input_changed, nullptr) PORT_NAME("Land") PORT_START("IN.2") // D12 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_CHANGED_MEMBER(DEVICE_SELF, msthawk_state, input_changed, nullptr) PORT_START("IN.3") // D13 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_CHANGED_MEMBER(DEVICE_SELF, msthawk_state, input_changed, nullptr) PORT_START("IN.4") // D14 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_CHANGED_MEMBER(DEVICE_SELF, msthawk_state, input_changed, nullptr) PORT_START("IN.5") // D15 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_CHANGED_MEMBER(DEVICE_SELF, msthawk_state, input_changed, nullptr) PORT_START("IN.6") // INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)1) PORT_NAME("Fire") INPUT_PORTS_END INPUT_CHANGED_MEMBER(msthawk_state::input_changed) { update_int0(); } MACHINE_CONFIG_START(msthawk_state::msthawk) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38800, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, msthawk_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, msthawk_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, msthawk_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, msthawk_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, msthawk_state, grid_w)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(1920, 696) MCFG_SCREEN_VISIBLE_AREA(0, 1920-1, 0, 696-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Bandai Zaxxon (manufactured in Japan, licensed from Sega) * PCB label FL Zaxxon * Hitachi HD38800B19 MCU * cyan/red/blue VFD display NEC FIP11BM24T no. 4-8, half of it reflected with a one-way mirror to give the illusion of a 3D display ***************************************************************************/ class bzaxxon_state : public hh_hmcs40_state { public: bzaxxon_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void update_int1(); DECLARE_INPUT_CHANGED_MEMBER(input_changed); void bzaxxon(machine_config &config); }; // handlers WRITE8_MEMBER(bzaxxon_state::plate_w) { // R0x-R3x(,D0-D2): vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); // update display u16 grid = bitswap<16>(m_grid,15,14,13,12,11,6,7,8,9,10,5,4,3,2,1,0); u32 plate = bitswap<24>(m_plate,23,22,21,20,5,7,0,1,2,3,4,6,19,16,17,18,15,14,13,12,10,8,9,11) | 0x800; display_matrix(20, 11, plate, grid); } WRITE16_MEMBER(bzaxxon_state::grid_w) { // D4: speaker out m_speaker->level_w(data >> 4 & 1); // D7-D10: input mux u8 inp_mux = data >> 7 & 0xf; if (inp_mux != m_inp_mux) { m_inp_mux = inp_mux; update_int1(); } // D5-D15: vfd grid m_grid = data >> 5 & 0x7ff; // D0-D2: plate 7-9 (update display there) plate_w(space, 4, data & 7); } void bzaxxon_state::update_int1() { // INT1 on multiplexed inputs set_interrupt(1, read_inputs(4)); } // config static INPUT_PORTS_START( bzaxxon ) PORT_START("IN.0") // D7 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_CHANGED_MEMBER(DEVICE_SELF, bzaxxon_state, input_changed, nullptr) PORT_START("IN.1") // D8 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_CHANGED_MEMBER(DEVICE_SELF, bzaxxon_state, input_changed, nullptr) PORT_START("IN.2") // D9 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_CHANGED_MEMBER(DEVICE_SELF, bzaxxon_state, input_changed, nullptr) PORT_START("IN.3") // D10 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_CHANGED_MEMBER(DEVICE_SELF, bzaxxon_state, input_changed, nullptr) PORT_START("IN.4") // INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)0) PORT_START("IN.5") // port D PORT_BIT( 0x0008, IP_ACTIVE_HIGH, IPT_SELECT ) PORT_BIT( 0xfff7, IP_ACTIVE_HIGH, IPT_UNUSED ) INPUT_PORTS_END INPUT_CHANGED_MEMBER(bzaxxon_state::input_changed) { update_int1(); } MACHINE_CONFIG_START(bzaxxon_state::bzaxxon) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38800, 450000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, bzaxxon_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, bzaxxon_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, bzaxxon_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, bzaxxon_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, bzaxxon_state, grid_w)) MCFG_HMCS40_READ_D_CB(IOPORT("IN.5")) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(613, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 613-1, 0, 1080-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Bandai Zackman "The Pit, FL Exploration of Space" (manufactured in Japan) * Hitachi QFP HD38820A49 MCU * cyan/red/yellow VFD display Futaba DM-53Z 3E, with color overlay ***************************************************************************/ class zackman_state : public hh_hmcs40_state { public: zackman_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void update_int0(); DECLARE_INPUT_CHANGED_MEMBER(input_changed); void zackman(machine_config &config); }; // handlers WRITE8_MEMBER(zackman_state::plate_w) { // R0x-R6x(,D0,D1): vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); // update display u8 grid = bitswap<8>(m_grid,0,1,2,3,4,5,6,7); u32 plate = bitswap<32>(m_plate,31,30,27,0,1,2,3,4,5,6,7,8,9,10,11,24,25,26,29,28,23,22,21,20,19,18,17,16,15,14,13,12); display_matrix(29, 8, plate, grid); } WRITE16_MEMBER(zackman_state::grid_w) { // D2: speaker out m_speaker->level_w(data >> 2 & 1); // D11-D14: input mux u8 inp_mux = data >> 11 & 0xf; if (inp_mux != m_inp_mux) { m_inp_mux = inp_mux; update_int0(); } // D8-D15: vfd grid m_grid = data >> 8 & 0xff; // D0,D1: plate 12,13 (update display there) plate_w(space, 7, data & 3); } void zackman_state::update_int0() { // INT0 on multiplexed inputs set_interrupt(0, read_inputs(4)); } // config static INPUT_PORTS_START( zackman ) PORT_START("IN.0") // D11 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_CHANGED_MEMBER(DEVICE_SELF, zackman_state, input_changed, nullptr) PORT_START("IN.1") // D12 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_CHANGED_MEMBER(DEVICE_SELF, zackman_state, input_changed, nullptr) PORT_START("IN.2") // D13 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_CHANGED_MEMBER(DEVICE_SELF, zackman_state, input_changed, nullptr) PORT_START("IN.3") // D14 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_CHANGED_MEMBER(DEVICE_SELF, zackman_state, input_changed, nullptr) PORT_START("IN.4") // INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)1) INPUT_PORTS_END INPUT_CHANGED_MEMBER(zackman_state::input_changed) { update_int0(); } MACHINE_CONFIG_START(zackman_state::zackman) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38820, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, zackman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, zackman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, zackman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, zackman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(4, WRITE8(*this, zackman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(5, WRITE8(*this, zackman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(6, WRITE8(*this, zackman_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, zackman_state, grid_w)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(487, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 487-1, 0, 1080-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Bandai Pengo (manufactured in Japan, licensed from Sega) * PCB label FL Pengo(in katakana) * Hitachi QFP HD38820A63 MCU * cyan/red/blue VFD display Futaba DM-68ZK 3D DM-63 ***************************************************************************/ class bpengo_state : public hh_hmcs40_state { public: bpengo_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } void prepare_display(); DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void update_int0(); DECLARE_INPUT_CHANGED_MEMBER(input_changed); void bpengo(machine_config &config); }; // handlers void bpengo_state::prepare_display() { u8 grid = bitswap<8>(m_grid,0,1,2,3,4,5,6,7); u32 plate = bitswap<32>(m_plate,31,30,29,28,23,22,21,16,17,18,19,20,27,26,25,24,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0); display_matrix(25, 8, plate, grid); } WRITE8_MEMBER(bpengo_state::plate_w) { // R0x-R6x: vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); prepare_display(); } WRITE16_MEMBER(bpengo_state::grid_w) { // D10: speaker out m_speaker->level_w(data >> 10 & 1); // D12-D15: input mux u8 inp_mux = data >> 12 & 0xf; if (inp_mux != m_inp_mux) { m_inp_mux = inp_mux; update_int0(); } // D0-D7: vfd grid m_grid = data & 0xff; prepare_display(); } void bpengo_state::update_int0() { // INT0 on multiplexed inputs set_interrupt(0, read_inputs(4)); } // config static INPUT_PORTS_START( bpengo ) PORT_START("IN.0") // D12 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_CHANGED_MEMBER(DEVICE_SELF, bpengo_state, input_changed, nullptr) PORT_START("IN.1") // D13 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_CHANGED_MEMBER(DEVICE_SELF, bpengo_state, input_changed, nullptr) PORT_START("IN.2") // D14 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_CHANGED_MEMBER(DEVICE_SELF, bpengo_state, input_changed, nullptr) PORT_START("IN.3") // D15 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_CHANGED_MEMBER(DEVICE_SELF, bpengo_state, input_changed, nullptr) PORT_START("IN.4") // INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)1) PORT_START("IN.5") // port D PORT_CONFNAME( 0x0800, 0x0000, "Factory Test" ) PORT_CONFSETTING( 0x0000, DEF_STR( Off ) ) PORT_CONFSETTING( 0x0800, DEF_STR( On ) ) PORT_BIT( 0xf7ff, IP_ACTIVE_HIGH, IPT_UNUSED ) INPUT_PORTS_END INPUT_CHANGED_MEMBER(bpengo_state::input_changed) { update_int0(); } MACHINE_CONFIG_START(bpengo_state::bpengo) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38820, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, bpengo_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, bpengo_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, bpengo_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, bpengo_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(4, WRITE8(*this, bpengo_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(5, WRITE8(*this, bpengo_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(6, WRITE8(*this, bpengo_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, bpengo_state, grid_w)) MCFG_HMCS40_READ_D_CB(IOPORT("IN.5")) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(1920, 759) MCFG_SCREEN_VISIBLE_AREA(0, 1920-1, 0, 759-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Bandai Burger Time (manufactured in Japan, licensed from Data East) * PCB label Kaken Corp. PT-389 Burger Time * Hitachi QFP HD38820A65 MCU * cyan/red/green VFD display NEC FIP6AM25T no. 21-21 ***************************************************************************/ class bbtime_state : public hh_hmcs40_state { public: bbtime_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } void prepare_display(); DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void update_int0(); DECLARE_INPUT_CHANGED_MEMBER(input_changed); void bbtime(machine_config &config); }; // handlers void bbtime_state::prepare_display() { u8 grid = bitswap<8>(m_grid,7,6,0,1,2,3,4,5); u32 plate = bitswap<32>(m_plate,31,30,29,28,25,24,26,27,22,23,15,14,12,11,10,8,7,6,4,1,5,9,13,3,2,16,17,18,19,20,0,21) | 0x1; display_matrix(28, 6, plate, grid); } WRITE8_MEMBER(bbtime_state::plate_w) { // R0x-R6x: vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); prepare_display(); } WRITE16_MEMBER(bbtime_state::grid_w) { // D3: speaker out m_speaker->level_w(data >> 3 & 1); // D10-D14: input mux u8 inp_mux = data >> 10 & 0x1f; if (inp_mux != m_inp_mux) { m_inp_mux = inp_mux; update_int0(); } // D4-D9: vfd grid m_grid = data >> 4 & 0x3f; prepare_display(); } void bbtime_state::update_int0() { // INT0 on multiplexed inputs set_interrupt(0, read_inputs(5)); } // config static INPUT_PORTS_START( bbtime ) PORT_START("IN.0") // D10 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_CHANGED_MEMBER(DEVICE_SELF, bbtime_state, input_changed, nullptr) PORT_START("IN.1") // D11 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_CHANGED_MEMBER(DEVICE_SELF, bbtime_state, input_changed, nullptr) PORT_START("IN.2") // D12 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_CHANGED_MEMBER(DEVICE_SELF, bbtime_state, input_changed, nullptr) PORT_START("IN.3") // D13 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_CHANGED_MEMBER(DEVICE_SELF, bbtime_state, input_changed, nullptr) PORT_START("IN.4") // D14 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON2 ) PORT_CHANGED_MEMBER(DEVICE_SELF, bbtime_state, input_changed, nullptr) PORT_START("IN.5") // INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)1) INPUT_PORTS_END INPUT_CHANGED_MEMBER(bbtime_state::input_changed) { update_int0(); } MACHINE_CONFIG_START(bbtime_state::bbtime) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38820, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, bbtime_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, bbtime_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, bbtime_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, bbtime_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(4, WRITE8(*this, bbtime_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(5, WRITE8(*this, bbtime_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(6, WRITE8(*this, bbtime_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, bbtime_state, grid_w)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(379, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 379-1, 0, 1080-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Bandai Dokodemo Dorayaki Doraemon (FL LSI Game Push Up) (manufactured in Japan) * PCB label Kaken Corp PT-412 FL-Doreamon(in katakana) * Hitachi HD38800B43 MCU * cyan/red/blue VFD display Futaba DM-71 ***************************************************************************/ class bdoramon_state : public hh_hmcs40_state { public: bdoramon_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void bdoramon(machine_config &config); }; // handlers WRITE8_MEMBER(bdoramon_state::plate_w) { // R0x-R3x(,D0-D3): vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); // update display u8 grid = bitswap<8>(m_grid,0,1,2,3,4,5,7,6); u32 plate = bitswap<24>(m_plate,23,22,21,20,11,19,18,17,16,15,14,13,12,10,9,8,7,6,5,4,3,2,1,0); display_matrix(19, 8, plate, grid); } WRITE16_MEMBER(bdoramon_state::grid_w) { // D7: speaker out m_speaker->level_w(data >> 7 & 1); // D8-D15: vfd grid m_grid = data >> 8 & 0xff; // D0-D3: plate 15-18 (update display there) plate_w(space, 4, data & 0xf); } // config static INPUT_PORTS_START( bdoramon ) PORT_START("IN.0") // INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)0) PORT_START("IN.1") // INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)1) PORT_START("IN.2") // port D PORT_BIT( 0x0010, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_BIT( 0x0020, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_BIT( 0x0040, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_BIT( 0xff8f, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_START("IN.3") // port R2x PORT_BIT( 0x07, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_CONFNAME( 0x08, 0x00, "Factory Test" ) PORT_CONFSETTING( 0x00, DEF_STR( Off ) ) PORT_CONFSETTING( 0x08, DEF_STR( On ) ) INPUT_PORTS_END MACHINE_CONFIG_START(bdoramon_state::bdoramon) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38800, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, bdoramon_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, bdoramon_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, bdoramon_state, plate_w)) MCFG_HMCS40_READ_R_CB(2, IOPORT("IN.3")) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, bdoramon_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, bdoramon_state, grid_w)) MCFG_HMCS40_READ_D_CB(IOPORT("IN.2")) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(1920, 668) MCFG_SCREEN_VISIBLE_AREA(0, 1920-1, 0, 668-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Bandai Ultraman Monster Battle (FL LSI Game Push Up) (manufactured in Japan) * PCB label Kaken Corp. PT-424 FL Ultra Man * Hitachi HD38800B52 MCU * cyan/red/blue VFD display NEC FIP8BM25T no. 21-8 2 ***************************************************************************/ class bultrman_state : public hh_hmcs40_state { public: bultrman_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void bultrman(machine_config &config); }; // handlers WRITE8_MEMBER(bultrman_state::plate_w) { // R0x-R3x(,D0-D2): vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); // update display u8 grid = bitswap<8>(m_grid,0,1,2,3,4,5,6,7); u32 plate = bitswap<24>(m_plate,23,22,21,20,19,0,18,17,16,15,14,13,12,3,11,10,9,8,7,6,5,4,1,2); display_matrix(18, 8, plate, grid); } WRITE16_MEMBER(bultrman_state::grid_w) { // D7: speaker out m_speaker->level_w(data >> 7 & 1); // D8-D15: vfd grid m_grid = data >> 8 & 0xff; // D0-D2: plate 15-17 (update display there) //plate_w(space, 4, data & 7); plate_w(space, 4, data & (1 << offset) & 7); } // config static INPUT_PORTS_START( bultrman ) PORT_START("IN.0") // INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)0) PORT_START("IN.1") // port D PORT_CONFNAME( 0x0010, 0x0000, "Factory Test" ) PORT_CONFSETTING( 0x0000, DEF_STR( Off ) ) PORT_CONFSETTING( 0x0010, DEF_STR( On ) ) PORT_BIT( 0x0020, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_BIT( 0x0040, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_BIT( 0xff8f, IP_ACTIVE_HIGH, IPT_UNUSED ) INPUT_PORTS_END MACHINE_CONFIG_START(bultrman_state::bultrman) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38800, 350000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, bultrman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, bultrman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, bultrman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, bultrman_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, bultrman_state, grid_w)) MCFG_HMCS40_READ_D_CB(IOPORT("IN.1")) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(1920, 673) MCFG_SCREEN_VISIBLE_AREA(0, 1920-1, 0, 673-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Bandai Machine Man (FL Flat Type) (manufactured in Japan) * PCB label Kaken PT-438 * Hitachi QFP HD38820A85 MCU * cyan/red/green VFD display NEC FIP5CM33T no. 4 21 ***************************************************************************/ class machiman_state : public hh_hmcs40_state { public: machiman_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } void prepare_display(); DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void machiman(machine_config &config); }; // handlers void machiman_state::prepare_display() { u32 plate = bitswap<24>(m_plate,23,22,21,20,19,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); display_matrix(19, 5, plate, m_grid); } WRITE8_MEMBER(machiman_state::plate_w) { // R0x-R3x,R6012: vfd plate int shift = (offset == hmcs40_cpu_device::PORT_R6X) ? 16 : offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); prepare_display(); } WRITE16_MEMBER(machiman_state::grid_w) { // D13: speaker out m_speaker->level_w(data >> 13 & 1); // D0-D4: vfd grid m_grid = data & 0x1f; prepare_display(); } // config static INPUT_PORTS_START( machiman ) PORT_START("IN.0") // INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)0) PORT_START("IN.1") // port D PORT_BIT( 0x3fff, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_BIT( 0x4000, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_2WAY PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_2WAY INPUT_PORTS_END MACHINE_CONFIG_START(machiman_state::machiman) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38820, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, machiman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, machiman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, machiman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, machiman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(6, WRITE8(*this, machiman_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, machiman_state, grid_w)) MCFG_HMCS40_READ_D_CB(IOPORT("IN.1")) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(1534, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 1534-1, 0, 1080-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Bandai Pair Match (manufactured in Japan) * PCB label Kaken Corp. PT-460 * Hitachi QFP HD38820A88 MCU(main), HD38820A89(audio) * cyan/red VFD display This is a memory game, the difference is instead of pictures, the player needs to match sound effects. It has an extra MCU for sound. The case is shaped like a glossy black pyramid. Star Trek fans will recognize it as a prop used in TNG Ten Forward. ***************************************************************************/ class pairmtch_state : public hh_hmcs40_state { public: pairmtch_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); DECLARE_READ8_MEMBER(input_r); DECLARE_WRITE8_MEMBER(sound_w); DECLARE_WRITE8_MEMBER(sound2_w); DECLARE_WRITE16_MEMBER(speaker_w); void pairmtch(machine_config &config); }; // handlers: maincpu side WRITE8_MEMBER(pairmtch_state::plate_w) { // R2x,R3x,R6x: vfd plate int shift = (offset == hmcs40_cpu_device::PORT_R6X) ? 8 : (offset-2) * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); display_matrix(12, 6, m_plate, m_grid); } WRITE16_MEMBER(pairmtch_state::grid_w) { // D7: sound reset (to audiocpu reset line) m_audiocpu->set_input_line(INPUT_LINE_RESET, (data & 0x80) ? ASSERT_LINE : CLEAR_LINE); // D9: sound start (to audiocpu INT0) m_audiocpu->set_input_line(0, (data & 0x200) ? ASSERT_LINE : CLEAR_LINE); // D10,D15: input mux m_inp_mux = (data >> 10 & 1) | (data >> 14 & 2); // D0-D5: vfd grid m_grid = data & 0x3f; display_matrix(12, 6, m_plate, m_grid); } READ8_MEMBER(pairmtch_state::input_r) { // R4x: multiplexed inputs return read_inputs(2); } WRITE8_MEMBER(pairmtch_state::sound_w) { // R5x: soundlatch (to audiocpu R2x) m_soundlatch->write(space, 0, bitswap<8>(data,7,6,5,4,0,1,2,3)); } // handlers: audiocpu side WRITE8_MEMBER(pairmtch_state::sound2_w) { // R2x: soundlatch (to maincpu R5x) m_soundlatch2->write(space, 0, bitswap<8>(data,7,6,5,4,0,1,2,3)); } WRITE16_MEMBER(pairmtch_state::speaker_w) { // D0: speaker out m_speaker->level_w(data & 1); // D1: sound ack (to maincpu INT0) m_maincpu->set_input_line(0, (data & 2) ? ASSERT_LINE : CLEAR_LINE); } // config static INPUT_PORTS_START( pairmtch ) PORT_START("IN.0") // D10 port R4x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_COCKTAIL PORT_16WAY PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_COCKTAIL PORT_16WAY PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_COCKTAIL PORT_16WAY PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_COCKTAIL PORT_16WAY PORT_START("IN.1") // D15 port R4x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_16WAY PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_16WAY PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_16WAY PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_16WAY PORT_START("IN.2") // port D PORT_CONFNAME( 0x0040, 0x0000, "Factory Test" ) PORT_CONFSETTING( 0x0000, DEF_STR( Off ) ) PORT_CONFSETTING( 0x0040, DEF_STR( On ) ) PORT_BIT( 0x0100, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_COCKTAIL PORT_CONFNAME( 0x0800, 0x0800, DEF_STR( Players ) ) PORT_CONFSETTING( 0x0800, "1" ) PORT_CONFSETTING( 0x0000, "2" ) PORT_CONFNAME( 0x3000, 0x2000, DEF_STR( Difficulty ) ) PORT_CONFSETTING( 0x2000, "1" ) PORT_CONFSETTING( 0x1000, "2" ) PORT_CONFSETTING( 0x0000, "3" ) PORT_BIT( 0x4000, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_BIT( 0x86bf, IP_ACTIVE_HIGH, IPT_UNUSED ) INPUT_PORTS_END MACHINE_CONFIG_START(pairmtch_state::pairmtch) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38820, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, pairmtch_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, pairmtch_state, plate_w)) MCFG_HMCS40_READ_R_CB(4, READ8(*this, pairmtch_state, input_r)) MCFG_HMCS40_WRITE_R_CB(5, WRITE8(*this, pairmtch_state, sound_w)) MCFG_HMCS40_READ_R_CB(5, READ8("soundlatch2", generic_latch_8_device, read)) MCFG_HMCS40_WRITE_R_CB(6, WRITE8(*this, pairmtch_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, pairmtch_state, grid_w)) MCFG_HMCS40_READ_D_CB(IOPORT("IN.2")) MCFG_DEVICE_ADD("audiocpu", HD38820, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, pairmtch_state, sound2_w)) MCFG_HMCS40_READ_R_CB(2, READ8("soundlatch", generic_latch_8_device, read)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, pairmtch_state, speaker_w)) MCFG_QUANTUM_PERFECT_CPU("maincpu") MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) config.set_default_layout(layout_pairmtch); /* sound hardware */ SPEAKER(config, "mono").front_center(); GENERIC_LATCH_8(config, m_soundlatch); GENERIC_LATCH_8(config, m_soundlatch2); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Coleco Alien Attack (manufactured in Taiwan) * Hitachi HD38800A25 MCU * cyan/red VFD display Futaba DM-19Z 1J It looks like Coleco took Gakken's Heiankyo Alien and turned it into a more action-oriented game. ***************************************************************************/ class alnattck_state : public hh_hmcs40_state { public: alnattck_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); DECLARE_READ16_MEMBER(input_r); void alnattck(machine_config &config); }; // handlers WRITE8_MEMBER(alnattck_state::plate_w) { // R0x-R3x(,D0-D3): vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); // update display u32 plate = bitswap<24>(m_plate,23,22,21,20,19,18,17,16,11,9,8,10,7,2,0,1,3,4,5,6,12,13,14,15); display_matrix(20, 10, plate, m_grid); } WRITE16_MEMBER(alnattck_state::grid_w) { // D4: speaker out m_speaker->level_w(data >> 4 & 1); // D7-D13: input mux m_inp_mux = data >> 7 & 0x7f; // D6-D15: vfd grid m_grid = data >> 6 & 0x3ff; // D0-D3: plate 16-19 (update display there) plate_w(space, 4, data & 0xf); } READ16_MEMBER(alnattck_state::input_r) { // D5: multiplexed inputs return read_inputs(7) & 0x20; } // config static INPUT_PORTS_START( alnattck ) PORT_START("IN.0") // D7 line D5 PORT_CONFNAME( 0x20, 0x00, DEF_STR( Difficulty ) ) PORT_CONFSETTING( 0x00, "1" ) PORT_CONFSETTING( 0x20, "2" ) PORT_START("IN.1") // D8 line D5 PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_START("IN.2") // D9 line D5 PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_START("IN.3") // D10 line D5 PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_START("IN.4") // D11 line D5 PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_START("IN.5") // D12 line D5 PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_NAME("Move") PORT_START("IN.6") // D13 line D5 PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_BUTTON2 ) PORT_NAME("Fire") INPUT_PORTS_END MACHINE_CONFIG_START(alnattck_state::alnattck) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38800, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, alnattck_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, alnattck_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, alnattck_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, alnattck_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, alnattck_state, grid_w)) MCFG_HMCS40_READ_D_CB(READ16(*this, alnattck_state, input_r)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(1920, 700) MCFG_SCREEN_VISIBLE_AREA(0, 1920-1, 0, 700-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Coleco Donkey Kong (manufactured in Taiwan, licensed from Nintendo) * PCB label Coleco Rev C 75790 DK * Hitachi QFP HD38820A45 MCU * RC circuit for speaker volume decay * cyan/red VFD display Futaba DM-47ZK 2K, with color overlay ***************************************************************************/ class cdkong_state : public hh_hmcs40_state { public: cdkong_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } void prepare_display(); DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void speaker_decay_reset(); TIMER_DEVICE_CALLBACK_MEMBER(speaker_decay_sim); double m_speaker_volume; void cdkong(machine_config &config); protected: virtual void machine_start() override; }; // handlers void cdkong_state::speaker_decay_reset() { if (m_r[1] & 8) m_speaker_volume = 1.0; m_speaker->set_output_gain(0, m_speaker_volume); } TIMER_DEVICE_CALLBACK_MEMBER(cdkong_state::speaker_decay_sim) { // volume decays when speaker is off (divisor and timer period determine duration) speaker_decay_reset(); m_speaker_volume /= 1.015; } void cdkong_state::prepare_display() { u32 plate = bitswap<32>(m_plate,31,30,29,24,0,16,8,1,23,17,9,2,18,10,25,27,26,3,15,27,11,11,14,22,6,13,21,5,19,12,20,4) | 0x800800; display_matrix(29, 11, plate, m_grid); } WRITE8_MEMBER(cdkong_state::plate_w) { // R13: speaker on m_r[offset] = data; speaker_decay_reset(); // R0x-R6x: vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); prepare_display(); } WRITE16_MEMBER(cdkong_state::grid_w) { // D3: speaker out m_speaker->level_w(data >> 3 & 1); // D4-D14: vfd grid m_grid = data >> 4 & 0x7ff; prepare_display(); } // config static INPUT_PORTS_START( cdkong ) PORT_START("IN.0") // INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)0) PORT_START("IN.1") // port D PORT_BIT( 0x0001, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_BIT( 0x0002, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_BIT( 0x0004, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_BIT( 0x7ff8, IP_ACTIVE_HIGH, IPT_UNUSED ) INPUT_PORTS_END void cdkong_state::machine_start() { hh_hmcs40_state::machine_start(); // zerofill/init m_speaker_volume = 0; save_item(NAME(m_speaker_volume)); } MACHINE_CONFIG_START(cdkong_state::cdkong) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38820, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, cdkong_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, cdkong_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, cdkong_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, cdkong_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(4, WRITE8(*this, cdkong_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(5, WRITE8(*this, cdkong_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(6, WRITE8(*this, cdkong_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, cdkong_state, grid_w)) MCFG_HMCS40_READ_D_CB(IOPORT("IN.1")) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(605, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 605-1, 0, 1080-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MCFG_TIMER_DRIVER_ADD_PERIODIC("speaker_decay", cdkong_state, speaker_decay_sim, attotime::from_msec(1)) MACHINE_CONFIG_END /*************************************************************************** Coleco Galaxian (manufactured in Taiwan) * PCB label Coleco Rev A 75718 * Hitachi HD38800A70 MCU * discrete sound (when alien attacks) * cyan/red VFD display Futaba DM-36Z 2H, with color overlay Select game mode on start: - P1 Left: Galaxian (default game) - P1 Right: Midway's Attackers - P2 Left: Head-to-Head Galaxian (2-player mode, short) - P2 Right: Head-to-Head Galaxian (2-player mode, long) ***************************************************************************/ class cgalaxn_state : public hh_hmcs40_state { public: cgalaxn_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } void prepare_display(); DECLARE_WRITE8_MEMBER(grid_w); DECLARE_WRITE16_MEMBER(plate_w); DECLARE_READ8_MEMBER(input_r); DECLARE_INPUT_CHANGED_MEMBER(player_switch); void cgalaxn(machine_config &config); }; // handlers void cgalaxn_state::prepare_display() { u16 grid = bitswap<16>(m_grid,15,14,13,12,1,2,0,11,10,9,8,7,6,5,4,3); u16 plate = bitswap<16>(m_plate,15,14,6,5,4,3,2,1,7,8,9,10,11,0,12,13); display_matrix(15, 12, plate, grid); } WRITE8_MEMBER(cgalaxn_state::grid_w) { // R10,R11: input mux if (offset == hmcs40_cpu_device::PORT_R1X) m_inp_mux = data & 3; // R1x-R3x: vfd grid int shift = (offset - hmcs40_cpu_device::PORT_R1X) * 4; m_grid = (m_grid & ~(0xf << shift)) | (data << shift); prepare_display(); } WRITE16_MEMBER(cgalaxn_state::plate_w) { // D0: speaker out m_speaker->level_w(data & 1); // D1: start alien attack whine sound effect (edge triggered) // D2-D15: vfd plate m_plate = (m_plate & 0x4000) | (data >> 2 & 0x3fff); prepare_display(); } READ8_MEMBER(cgalaxn_state::input_r) { // R0x: multiplexed inputs return read_inputs(2); } // config static INPUT_PORTS_START( cgalaxn ) PORT_START("IN.0") // R10 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_PLAYER(2) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_PLAYER(2) PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_START("IN.1") // R11 port R0x PORT_CONFNAME( 0x01, 0x01, DEF_STR( Players ) ) PORT_CHANGED_MEMBER(DEVICE_SELF, cgalaxn_state, player_switch, nullptr) PORT_CONFSETTING( 0x01, "1" ) PORT_CONFSETTING( 0x00, "2" ) PORT_BIT( 0x0e, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_START("IN.2") // INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)0) PORT_START("IN.3") // INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_PLAYER(2) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)1) INPUT_PORTS_END INPUT_CHANGED_MEMBER(cgalaxn_state::player_switch) { // 2-player switch directly enables plate 14 m_plate = (m_plate & 0x3fff) | (newval ? 0 : 0x4000); prepare_display(); } MACHINE_CONFIG_START(cgalaxn_state::cgalaxn) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38800, 400000) // approximation MCFG_HMCS40_READ_R_CB(0, READ8(*this, cgalaxn_state, input_r)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, cgalaxn_state, grid_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, cgalaxn_state, grid_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, cgalaxn_state, grid_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, cgalaxn_state, plate_w)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(526, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 526-1, 0, 1080-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Coleco Pac-Man (manufactured in Taiwan, licensed from Midway) * PCB label Coleco 75690 * Hitachi QFP HD38820A28/29 MCU * cyan/red VFD display Futaba DM-34Z 2A, with color overlay known releases: - USA: Pac-Man, by Coleco (name-license from Midway) - Japan: Super Puck Monster, published by Gakken Select game mode on start: - P1 Right: Pac-Man (default game) - P1 Left: Head-to-Head Pac-Man (2-player mode) - P1 Up: Eat & Run - P1 Down: Demo BTANB note: 1st version doesn't show the whole maze on power-on ***************************************************************************/ class cpacman_state : public hh_hmcs40_state { public: cpacman_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); DECLARE_READ8_MEMBER(input_r); void cpacman(machine_config &config); }; // handlers WRITE8_MEMBER(cpacman_state::plate_w) { // R1x-R6x(,D1,D2): vfd plate int shift = (offset - hmcs40_cpu_device::PORT_R1X) * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); // update display u16 grid = bitswap<16>(m_grid,15,14,13,12,11,0,1,2,3,4,5,6,7,8,9,10); u32 plate = bitswap<32>(m_plate,31,30,29,28,27,0,1,2,3,8,9,10,11,16,17,18,19,25,26,23,22,21,20,24,15,14,13,12,4,5,6,7); display_matrix(27, 11, plate, grid); } WRITE16_MEMBER(cpacman_state::grid_w) { // D0: speaker out m_speaker->level_w(data & 1); // D13-D15: input mux m_inp_mux = data >> 13 & 7; // D5-D15: vfd grid m_grid = data >> 5 & 0x7ff; // D1,D2: plate 8,14 (update display there) plate_w(space, 6 + hmcs40_cpu_device::PORT_R1X, data >> 1 & 3); } READ8_MEMBER(cpacman_state::input_r) { // R0x: multiplexed inputs return read_inputs(3); } // config static INPUT_PORTS_START( cpacman ) PORT_START("IN.0") // D13 port R0x PORT_CONFNAME( 0x01, 0x01, DEF_STR( Difficulty ) ) PORT_CONFSETTING( 0x00, "1" ) PORT_CONFSETTING( 0x01, "2" ) PORT_BIT( 0x0e, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_START("IN.1") // D14 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_START("IN.2") // D15 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_PLAYER(2) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_PLAYER(2) PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_PLAYER(2) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_PLAYER(2) INPUT_PORTS_END MACHINE_CONFIG_START(cpacman_state::cpacman) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38820, 400000) // approximation MCFG_HMCS40_READ_R_CB(0, READ8(*this, cpacman_state, input_r)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, cpacman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, cpacman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, cpacman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(4, WRITE8(*this, cpacman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(5, WRITE8(*this, cpacman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(6, WRITE8(*this, cpacman_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, cpacman_state, grid_w)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(484, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 484-1, 0, 1080-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Coleco Ms. Pac-Man (manufactured in Taiwan, licensed from Midway) * PCB label Coleco 911171 * Hitachi QFP HD38820A61 MCU * cyan/red VFD display Futaba DM-60Z 3I, with color overlay Select game mode on start: - P1 Left: Ms. Pac-Man (default game) - P1 Down: Head-to-Head Ms. Pac-Man (2-player mode) - P1 Up: Demo BTANB note: in demo-mode, she hardly ever walks to the upper two rows ***************************************************************************/ class cmspacmn_state : public hh_hmcs40_state { public: cmspacmn_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); DECLARE_READ8_MEMBER(input_r); void cmspacmn(machine_config &config); }; // handlers WRITE8_MEMBER(cmspacmn_state::plate_w) { // R1x-R6x(,D0,D1): vfd plate int shift = (offset - hmcs40_cpu_device::PORT_R1X) * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); // update display u16 grid = bitswap<16>(m_grid,15,14,13,11,10,9,8,7,6,5,4,3,2,1,0,1); u64 plate = BIT(m_plate,15)<<32 | bitswap<32>(m_plate,14,13,12,4,5,6,7,24,23,25,22,21,20,13,24,3,19,14,12,11,24,2,10,8,7,25,0,9,1,18,17,16) | 0x1004080; display_matrix(33, 12, plate, grid); } WRITE16_MEMBER(cmspacmn_state::grid_w) { // D2: speaker out m_speaker->level_w(data >> 2 & 1); // D13-D15: input mux m_inp_mux = data >> 13 & 7; // D5-D15: vfd grid m_grid = data >> 5 & 0x7ff; // D0,D1: more plates (update display there) plate_w(space, 6 + hmcs40_cpu_device::PORT_R1X, data & 3); } READ8_MEMBER(cmspacmn_state::input_r) { // R0x: multiplexed inputs return read_inputs(3); } // config static INPUT_PORTS_START( cmspacmn ) PORT_START("IN.0") // D13 port R0x PORT_CONFNAME( 0x01, 0x00, DEF_STR( Difficulty ) ) PORT_CONFSETTING( 0x00, "1" ) PORT_CONFSETTING( 0x01, "2" ) PORT_BIT( 0x0e, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_START("IN.1") // D14 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_PLAYER(2) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_PLAYER(2) PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_PLAYER(2) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_PLAYER(2) PORT_START("IN.2") // D15 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) INPUT_PORTS_END MACHINE_CONFIG_START(cmspacmn_state::cmspacmn) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38820, 400000) // approximation MCFG_HMCS40_READ_R_CB(0, READ8(*this, cmspacmn_state, input_r)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, cmspacmn_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, cmspacmn_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, cmspacmn_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(4, WRITE8(*this, cmspacmn_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(5, WRITE8(*this, cmspacmn_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(6, WRITE8(*this, cmspacmn_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, cmspacmn_state, grid_w)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(481, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 481-1, 0, 1080-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Entex Select-A-Game (HMCS40 MCU cartridges) * see gamelist for cartridge info * cyan/red VFD display Futaba DM-16Z + cyan VFD 9-digit panel Futaba 9-ST-11A 1F The console is the peripheral, the heart of the system is the cartridge. Cartridges with a HMCS40 MCU are implemented in this driver. MAME external artwork is recommended, needed for per-game VFD overlays. ***************************************************************************/ class sag_state : public hh_hmcs40_state { public: sag_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } void prepare_display(); DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); DECLARE_READ16_MEMBER(input_r); void sag(machine_config &config); }; // handlers void sag_state::prepare_display() { // grid 0-7 are the 'pixels' for (int y = 0; y < 8; y++) m_display_state[y] = (m_grid >> y & 1) ? m_plate : 0; // grid 8-11 are 7segs set_display_segmask(0xf00, 0x7f); u8 seg = bitswap<8>(m_plate,3,4,5,6,7,8,9,10); for (int y = 8; y < 12; y++) m_display_state[y] = (m_grid >> y & 1) ? seg : 0; set_display_size(14, 12); display_update(); } WRITE8_MEMBER(sag_state::plate_w) { // R0x-R3x: vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); prepare_display(); } WRITE16_MEMBER(sag_state::grid_w) { // D0: speaker out m_speaker->level_w(data & 1); // D2-D7: input mux m_inp_mux = data >> 2 & 0x3f; // D1-D12: vfd grid m_grid = data >> 1 & 0xfff; prepare_display(); } READ16_MEMBER(sag_state::input_r) { // D13-D15: multiplexed inputs return read_inputs(6) << 13; } // config static INPUT_PORTS_START( sag ) PORT_START("IN.0") // D2 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_16WAY PORT_NAME("P1 Button 1") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_COCKTAIL PORT_16WAY PORT_NAME("P2 Button 3") PORT_CONFNAME( 0x04, 0x04, "Game" ) PORT_CONFSETTING( 0x04, "1" ) PORT_CONFSETTING( 0x00, "2" ) PORT_START("IN.1") // D3 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_16WAY PORT_NAME("P1 Button 2") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_COCKTAIL PORT_16WAY PORT_NAME("P2 Button 4") PORT_BIT( 0x04, 0x04, IPT_CUSTOM ) PORT_CONDITION("FAKE", 0x03, EQUALS, 0x01) // 1 player PORT_START("IN.2") // D4 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_16WAY PORT_NAME("P1 Button 3") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_COCKTAIL PORT_16WAY PORT_NAME("P2 Button 1") PORT_CONFNAME( 0x04, 0x00, DEF_STR( Difficulty ) ) PORT_CONFSETTING( 0x00, "1" ) PORT_CONFSETTING( 0x04, "2" ) PORT_START("IN.3") // D5 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_16WAY PORT_NAME("P1 Button 4") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_COCKTAIL PORT_16WAY PORT_NAME("P2 Button 2") PORT_BIT( 0x04, 0x04, IPT_CUSTOM ) PORT_CONDITION("FAKE", 0x03, EQUALS, 0x00) // demo PORT_START("IN.4") // D6 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON3 ) PORT_NAME("P1 Button 5") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_BUTTON3 ) PORT_COCKTAIL PORT_NAME("P2 Button 5") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_NAME("P1 Button 7") PORT_START("IN.5") // D7 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON2 ) PORT_NAME("P1 Button 6") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_BUTTON2 ) PORT_COCKTAIL PORT_NAME("P2 Button 6") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_COCKTAIL PORT_NAME("P2 Button 7") PORT_START("FAKE") // shared D3/D5 PORT_CONFNAME( 0x03, 0x01, DEF_STR( Players ) ) PORT_CONFSETTING( 0x00, "Demo" ) PORT_CONFSETTING( 0x01, "1" ) PORT_CONFSETTING( 0x02, "2" ) INPUT_PORTS_END MACHINE_CONFIG_START(sag_state::sag) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38800, 450000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, sag_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, sag_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, sag_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, sag_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, sag_state, grid_w)) MCFG_HMCS40_READ_D_CB(READ16(*this, sag_state, input_r)) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) config.set_default_layout(layout_sag); /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Entex Galaxian 2 (manufactured in Japan) * PCB labels ENTEX GALAXIAN PB-118/116/097 80-210137/135/114 * Hitachi QFP HD38820A13 MCU * cyan/red/green VFD display Futaba DM-20 ***************************************************************************/ class egalaxn2_state : public hh_hmcs40_state { public: egalaxn2_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } void prepare_display(); DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); DECLARE_READ8_MEMBER(input_r); void egalaxn2(machine_config &config); }; // handlers void egalaxn2_state::prepare_display() { u16 grid = bitswap<16>(m_grid,15,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14); u32 plate = bitswap<24>(m_plate,23,22,21,20,15,14,13,12,7,6,5,4,3,2,1,0,19,18,17,16,11,10,9,8); display_matrix(24, 15, plate, grid); } WRITE16_MEMBER(egalaxn2_state::grid_w) { // D0: speaker out m_speaker->level_w(data & 1); // D1-D4: input mux m_inp_mux = data >> 1 & 0xf; // D1-D15: vfd grid m_grid = data >> 1 & 0x7fff; prepare_display(); } WRITE8_MEMBER(egalaxn2_state::plate_w) { // R1x-R6x: vfd plate int shift = (offset - hmcs40_cpu_device::PORT_R1X) * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); prepare_display(); } READ8_MEMBER(egalaxn2_state::input_r) { // R0x: multiplexed inputs return read_inputs(4); } // config static INPUT_PORTS_START( egalaxn2 ) PORT_START("IN.0") // D1 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_16WAY PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_16WAY PORT_START("IN.1") // D2 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_COCKTAIL PORT_16WAY PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_COCKTAIL PORT_16WAY PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_COCKTAIL PORT_16WAY PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_COCKTAIL PORT_16WAY PORT_START("IN.2") // D3 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_COCKTAIL PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_START("IN.3") // D4 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_CONFNAME( 0x02, 0x02, DEF_STR( Difficulty ) ) PORT_CONFSETTING( 0x02, "1" ) PORT_CONFSETTING( 0x00, "2" ) PORT_CONFNAME( 0x0c, 0x00, DEF_STR( Players ) ) PORT_CONFSETTING( 0x08, "0 (Demo)" ) // for Demo mode: need to hold down Fire button at power-on PORT_CONFSETTING( 0x00, "1" ) PORT_CONFSETTING( 0x04, "2" ) INPUT_PORTS_END MACHINE_CONFIG_START(egalaxn2_state::egalaxn2) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38820, 400000) // approximation MCFG_HMCS40_READ_R_CB(0, READ8(*this, egalaxn2_state, input_r)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, egalaxn2_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, egalaxn2_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, egalaxn2_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(4, WRITE8(*this, egalaxn2_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(5, WRITE8(*this, egalaxn2_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(6, WRITE8(*this, egalaxn2_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, egalaxn2_state, grid_w)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(505, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 505-1, 0, 1080-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Entex Pac Man 2 (manufactured in Japan) * PCB labels ENTEX PAC-MAN PB-093/094 80-210149/50/51 * Hitachi QFP HD38820A23 MCU * cyan/red VFD display Futaba DM-28Z 1G(cyan Pac-Man) or DM-28 1K(orange Pac-Man) 2 VFD revisions are known, the difference is Pac-Man's color: cyan or red. ***************************************************************************/ class epacman2_state : public egalaxn2_state { public: epacman2_state(const machine_config &mconfig, device_type type, const char *tag) : egalaxn2_state(mconfig, type, tag) { } void epacman2(machine_config &config); }; // handlers are identical to Galaxian 2, so we can use those // config static INPUT_PORTS_START( epacman2 ) PORT_START("IN.0") // D1 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_16WAY PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_16WAY PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_16WAY PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_16WAY PORT_START("IN.1") // D2 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_COCKTAIL PORT_16WAY PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_COCKTAIL PORT_16WAY PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_COCKTAIL PORT_16WAY PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_COCKTAIL PORT_16WAY PORT_START("IN.2") // D3 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_START ) PORT_NAME("P1 Skill Control") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_SELECT ) PORT_NAME("Demo Light Test") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_START("IN.3") // D4 port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_CONFNAME( 0x02, 0x02, DEF_STR( Difficulty ) ) PORT_CONFSETTING( 0x00, "1" ) PORT_CONFSETTING( 0x02, "2" ) PORT_CONFNAME( 0x0c, 0x04, DEF_STR( Players ) ) PORT_CONFSETTING( 0x08, "0 (Demo)" ) PORT_CONFSETTING( 0x04, "1" ) PORT_CONFSETTING( 0x00, "2" ) INPUT_PORTS_END MACHINE_CONFIG_START(epacman2_state::epacman2) egalaxn2(config); /* video hardware */ MCFG_SCREEN_MODIFY("screen") MCFG_SCREEN_SIZE(505, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 505-1, 0, 1080-1) MACHINE_CONFIG_END /*************************************************************************** Entex Turtles (manufactured in Japan) * PCB label 560359 * Hitachi QFP HD38820A43 MCU * COP411L sub MCU, label COP411L-KED/N * cyan/red/green VFD display NEC FIP15BM32T ***************************************************************************/ class eturtles_state : public hh_hmcs40_state { public: eturtles_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag), m_cop_irq(0) { } virtual void prepare_display(); DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); u8 m_cop_irq; DECLARE_WRITE_LINE_MEMBER(speaker_w); DECLARE_WRITE8_MEMBER(cop_irq_w); DECLARE_READ8_MEMBER(cop_latch_r); DECLARE_READ8_MEMBER(cop_ack_r); void update_int(); DECLARE_INPUT_CHANGED_MEMBER(input_changed); void eturtles(machine_config &config); protected: virtual void machine_start() override; }; // handlers: maincpu side void eturtles_state::prepare_display() { u16 grid = bitswap<16>(m_grid,15,1,14,13,12,11,10,9,8,7,6,5,4,3,2,0); u32 plate = bitswap<32>(m_plate,31,30,11,12,18,19,16,17,22,15,20,21,27,26,23,25,24,2,3,1,0,6,4,5,10,9,2,8,7,14,1,13); display_matrix(30, 15, plate | (grid >> 5 & 8), grid); // grid 8 also forces plate 3 high } WRITE8_MEMBER(eturtles_state::plate_w) { m_r[offset] = data; // R0x-R6x: vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); prepare_display(); } WRITE16_MEMBER(eturtles_state::grid_w) { m_d = data; // D1-D6: input mux u8 inp_mux = data >> 1 & 0x3f; if (inp_mux != m_inp_mux) { m_inp_mux = inp_mux; update_int(); } // D1-D15: vfd grid m_grid = data >> 1 & 0x7fff; prepare_display(); } void eturtles_state::update_int() { // INT0/1 on multiplexed inputs, and from COP D0 u8 inp = read_inputs(6); set_interrupt(0, (inp & 1) | m_cop_irq); set_interrupt(1, inp & 2); } // handlers: COP side WRITE_LINE_MEMBER(eturtles_state::speaker_w) { // SK: speaker out m_speaker->level_w(!state); } WRITE8_MEMBER(eturtles_state::cop_irq_w) { // D0: maincpu INT0 (active low) m_cop_irq = ~data & 1; update_int(); } READ8_MEMBER(eturtles_state::cop_latch_r) { // L0-L3: soundlatch from maincpu R0x return m_r[0]; } READ8_MEMBER(eturtles_state::cop_ack_r) { // G0: ack from maincpu D0 return m_d & 1; } // config static INPUT_PORTS_START( eturtles ) PORT_START("IN.0") // D1 INT0/1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_COCKTAIL PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_START("IN.1") // D2 INT0/1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_COCKTAIL PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_START("IN.2") // D3 INT0/1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_COCKTAIL PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_START("IN.3") // D4 INT0/1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_COCKTAIL PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_START("IN.4") // D5 INT0/1 PORT_CONFNAME( 0x01, 0x01, DEF_STR( Difficulty ) ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_CONFSETTING( 0x01, "1" ) PORT_CONFSETTING( 0x00, "2" ) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_START("IN.5") // D6 INT0/1 PORT_CONFNAME( 0x03, 0x00, DEF_STR( Players ) ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_CONFSETTING( 0x02, "0 (Demo)" ) PORT_CONFSETTING( 0x00, "1" ) PORT_CONFSETTING( 0x01, "2" ) INPUT_PORTS_END INPUT_CHANGED_MEMBER(eturtles_state::input_changed) { update_int(); } void eturtles_state::machine_start() { hh_hmcs40_state::machine_start(); // register for savestates save_item(NAME(m_cop_irq)); } MACHINE_CONFIG_START(eturtles_state::eturtles) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38820, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, eturtles_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, eturtles_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, eturtles_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, eturtles_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(4, WRITE8(*this, eturtles_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(5, WRITE8(*this, eturtles_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(6, WRITE8(*this, eturtles_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, eturtles_state, grid_w)) MCFG_DEVICE_ADD("audiocpu", COP411, 215000) // approximation MCFG_COP400_CONFIG(COP400_CKI_DIVISOR_4, COP400_CKO_OSCILLATOR_OUTPUT, false) // guessed MCFG_COP400_WRITE_SK_CB(WRITELINE(*this, eturtles_state, speaker_w)) MCFG_COP400_WRITE_D_CB(WRITE8(*this, eturtles_state, cop_irq_w)) MCFG_COP400_READ_L_CB(READ8(*this, eturtles_state, cop_latch_r)) MCFG_COP400_READ_G_CB(READ8(*this, eturtles_state, cop_ack_r)) MCFG_QUANTUM_PERFECT_CPU("maincpu") /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(484, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 484-1, 0, 1080-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Entex Stargate (manufactured in Japan) * PCB label 5603521/31 * Hitachi QFP HD38820A42 MCU * COP411L sub MCU, label ~/B8236 COP411L-KEC/N * cyan/red/green VFD display NEC FIP15AM32T (EL628-003) no. 2-421, with partial color overlay ***************************************************************************/ class estargte_state : public eturtles_state { public: estargte_state(const machine_config &mconfig, device_type type, const char *tag) : eturtles_state(mconfig, type, tag) { } virtual void prepare_display() override; DECLARE_READ8_MEMBER(cop_data_r); void estargte(machine_config &config); }; // handlers (most of it is in eturtles_state above) void estargte_state::prepare_display() { u16 grid = bitswap<16>(m_grid,15,0,14,13,12,11,10,9,8,7,6,5,4,3,2,1); u32 plate = bitswap<32>(m_plate,31,30,29,15,17,19,21,23,25,27,26,24,3,22,20,18,16,14,12,10,8,6,4,2,0,1,3,5,7,9,11,13); display_matrix(29, 14, plate, grid); } READ8_MEMBER(estargte_state::cop_data_r) { // L0-L3: soundlatch from maincpu R0x // L7: ack from maincpu D0 return m_r[0] | (m_d << 7 & 0x80); } // config static INPUT_PORTS_START( estargte ) PORT_START("IN.0") // D1 INT0/1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON5 ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_NAME("Inviso") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_BUTTON2 ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_NAME("Smart Bomb") PORT_START("IN.1") // D2 INT0/1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON4 ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_NAME("Fire") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_NAME("Change Direction") PORT_START("IN.2") // D3 INT0/1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_START("IN.3") // D4 INT0/1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON3 ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_NAME("Thrust") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_START("IN.4") // D5 INT0/1 PORT_CONFNAME( 0x01, 0x00, DEF_STR( Players ) ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_CONFSETTING( 0x00, "0 (Demo)" ) // yes, same value as 1-player, hold the Inviso button at boot to enter demo mode PORT_CONFSETTING( 0x00, "1" ) PORT_CONFSETTING( 0x01, "2" ) PORT_CONFNAME( 0x02, 0x02, DEF_STR( Difficulty ) ) PORT_CHANGED_MEMBER(DEVICE_SELF, eturtles_state, input_changed, nullptr) PORT_CONFSETTING( 0x00, "1" ) PORT_CONFSETTING( 0x02, "2" ) PORT_START("IN.5") // D6 INT0/1 PORT_BIT( 0x03, IP_ACTIVE_HIGH, IPT_UNUSED ) INPUT_PORTS_END MACHINE_CONFIG_START(estargte_state::estargte) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38820, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, eturtles_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, eturtles_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, eturtles_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, eturtles_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(4, WRITE8(*this, eturtles_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(5, WRITE8(*this, eturtles_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(6, WRITE8(*this, eturtles_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, eturtles_state, grid_w)) MCFG_DEVICE_ADD("audiocpu", COP411, 190000) // approximation MCFG_COP400_CONFIG(COP400_CKI_DIVISOR_4, COP400_CKO_OSCILLATOR_OUTPUT, false) // guessed MCFG_COP400_WRITE_SK_CB(WRITELINE(*this, eturtles_state, speaker_w)) MCFG_COP400_WRITE_D_CB(WRITE8(*this, eturtles_state, cop_irq_w)) MCFG_COP400_READ_L_CB(READ8(*this, estargte_state, cop_data_r)) MCFG_QUANTUM_PERFECT_CPU("maincpu") /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(1920, 854) MCFG_SCREEN_VISIBLE_AREA(0, 1920-1, 0, 854-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Gakken Heiankyo Alien (manufactured in Japan) * Hitachi HD38800A04 MCU * cyan/red VFD display Futaba DM-11Z 1H known releases: - Japan: Heiankyo Alien - USA: Earth Invaders, published by CGL ***************************************************************************/ class ghalien_state : public hh_hmcs40_state { public: ghalien_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); DECLARE_READ16_MEMBER(input_r); void ghalien(machine_config &config); }; // handlers WRITE8_MEMBER(ghalien_state::plate_w) { // R0x-R3x(,D10-D13): vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); // update display u16 grid = bitswap<16>(m_grid,15,14,13,12,11,10,0,1,2,3,4,5,6,7,8,9); u32 plate = bitswap<24>(m_plate,23,22,21,20,14,12,10,8,9,13,15,2,0,1,3,11,7,5,4,6,19,17,16,18); display_matrix(20, 10, plate, grid); } WRITE16_MEMBER(ghalien_state::grid_w) { // D14: speaker out m_speaker->level_w(data >> 14 & 1); // D0-D6: input mux m_inp_mux = data & 0x7f; // D0-D9: vfd grid m_grid = data & 0x3ff; // D10-D13: more plates (update display there) plate_w(space, 4, data >> 10 & 0xf); } READ16_MEMBER(ghalien_state::input_r) { // D15: multiplexed inputs return read_inputs(7) & 0x8000; } // config static INPUT_PORTS_START( ghalien ) PORT_START("IN.0") // D0 line D15 PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_16WAY PORT_START("IN.1") // D1 line D15 PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_16WAY PORT_START("IN.2") // D2 line D15 PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_16WAY PORT_START("IN.3") // D3 line D15 PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_16WAY PORT_START("IN.4") // D4 line D15 PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_NAME("Dig") PORT_START("IN.5") // D5 line D15 PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_BUTTON2 ) PORT_NAME("Bury") PORT_START("IN.6") // D6 line D15 PORT_CONFNAME( 0x8000, 0x0000, DEF_STR( Difficulty ) ) PORT_CONFSETTING( 0x0000, "Amateur" ) PORT_CONFSETTING( 0x8000, "Professional" ) INPUT_PORTS_END MACHINE_CONFIG_START(ghalien_state::ghalien) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38800, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, ghalien_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, ghalien_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, ghalien_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, ghalien_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, ghalien_state, grid_w)) MCFG_HMCS40_READ_D_CB(READ16(*this, ghalien_state, input_r)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(1920, 699) MCFG_SCREEN_VISIBLE_AREA(0, 1920-1, 0, 699-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Gakken Crazy Kong (manufactured in Japan) * PCB label ZENY 5603601 * Hitachi HD38800B01 MCU * cyan/red/blue VFD display Futaba DM-54Z 2H, with bezel overlay known releases: - Japan: Crazy Kong - USA: Super Kong, published by CGL ***************************************************************************/ class gckong_state : public hh_hmcs40_state { public: gckong_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void update_int1(); DECLARE_INPUT_CHANGED_MEMBER(input_changed); void gckong(machine_config &config); }; // handlers WRITE8_MEMBER(gckong_state::plate_w) { // R0x-R3x(,D0,D1): vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); // update display u16 grid = bitswap<16>(m_grid,15,14,13,12,11,0,1,2,3,4,5,6,7,8,9,10); u32 plate = bitswap<32>(m_plate,31,30,29,28,27,26,25,6,7,8,12,13,14,15,16,17,18,17,16,12,11,10,9,8,7,6,5,4,3,2,1,0) | 0x8000; display_matrix(32, 11, plate, grid); } WRITE16_MEMBER(gckong_state::grid_w) { // D2: speaker out m_speaker->level_w(data >> 2 & 1); // D5-D8: input mux u8 inp_mux = data >> 5 & 0xf; if (inp_mux != m_inp_mux) { m_inp_mux = inp_mux; update_int1(); } // D5-D15: vfd grid m_grid = data >> 5 & 0x7ff; // D0,D1: more plates (update display there) plate_w(space, 4, data & 3); } void gckong_state::update_int1() { // INT1 on multiplexed inputs set_interrupt(1, read_inputs(4)); } // config static INPUT_PORTS_START( gckong ) PORT_START("IN.0") // D5 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_CHANGED_MEMBER(DEVICE_SELF, gckong_state, input_changed, nullptr) PORT_START("IN.1") // D6 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_CHANGED_MEMBER(DEVICE_SELF, gckong_state, input_changed, nullptr) PORT_START("IN.2") // D7 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_CHANGED_MEMBER(DEVICE_SELF, gckong_state, input_changed, nullptr) PORT_START("IN.3") // D8 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_CHANGED_MEMBER(DEVICE_SELF, gckong_state, input_changed, nullptr) PORT_START("IN.4") // INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)0) PORT_START("IN.5") // port D PORT_CONFNAME( 0x0010, 0x0000, DEF_STR( Difficulty ) ) PORT_CONFSETTING( 0x0000, "A" ) PORT_CONFSETTING( 0x0010, "B" ) PORT_BIT( 0xffef, IP_ACTIVE_HIGH, IPT_UNUSED ) INPUT_PORTS_END INPUT_CHANGED_MEMBER(gckong_state::input_changed) { update_int1(); } MACHINE_CONFIG_START(gckong_state::gckong) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38800, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, gckong_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, gckong_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, gckong_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, gckong_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, gckong_state, grid_w)) MCFG_HMCS40_READ_D_CB(IOPORT("IN.5")) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(506, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 506-1, 0, 1080-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Gakken Dig Dug (manufactured in Japan) * PCB label Gakken DIG-DAG KS-004283(A/B) * Hitachi QFP HD38820A69 MCU * cyan/red/green VFD display Futaba DM-69Z 3F, with color overlay ***************************************************************************/ class gdigdug_state : public hh_hmcs40_state { public: gdigdug_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void update_int1(); DECLARE_INPUT_CHANGED_MEMBER(input_changed); void gdigdug(machine_config &config); }; // handlers WRITE8_MEMBER(gdigdug_state::plate_w) { // R0x-R6x(,D0-D3): vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); // update display u32 plate = bitswap<32>(m_plate,30,31,0,1,2,3,4,5,6,7,20,21,22,27,26,25,28,29,24,23,15,14,13,12,8,9,10,11,19,18,17,16); display_matrix(32, 9, plate, m_grid); } WRITE16_MEMBER(gdigdug_state::grid_w) { // D6: speaker out m_speaker->level_w(data >> 6 & 1); // D11-D15: input mux u8 inp_mux = data >> 11 & 0x1f; if (inp_mux != m_inp_mux) { m_inp_mux = inp_mux; update_int1(); } // D7-D15: vfd grid m_grid = data >> 7 & 0x1ff; // D0-D3: more plates (update display there) plate_w(space, 7, data & 0xf); } void gdigdug_state::update_int1() { // INT1 on multiplexed inputs set_interrupt(1, read_inputs(5)); } // config static INPUT_PORTS_START( gdigdug ) PORT_START("IN.0") // D11 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_SELECT ) PORT_CHANGED_MEMBER(DEVICE_SELF, gdigdug_state, input_changed, nullptr) PORT_START("IN.1") // D12 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_CHANGED_MEMBER(DEVICE_SELF, gdigdug_state, input_changed, nullptr) PORT_START("IN.2") // D13 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_CHANGED_MEMBER(DEVICE_SELF, gdigdug_state, input_changed, nullptr) PORT_START("IN.3") // D14 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_CHANGED_MEMBER(DEVICE_SELF, gdigdug_state, input_changed, nullptr) PORT_START("IN.4") // D15 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_CHANGED_MEMBER(DEVICE_SELF, gdigdug_state, input_changed, nullptr) PORT_START("IN.5") // INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)0) INPUT_PORTS_END INPUT_CHANGED_MEMBER(gdigdug_state::input_changed) { update_int1(); } MACHINE_CONFIG_START(gdigdug_state::gdigdug) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38820, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, gdigdug_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, gdigdug_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, gdigdug_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, gdigdug_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(4, WRITE8(*this, gdigdug_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(5, WRITE8(*this, gdigdug_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(6, WRITE8(*this, gdigdug_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, gdigdug_state, grid_w)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(476, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 476-1, 0, 1080-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Mattel World Championship Baseball * PCB label MEL-001 Baseball Rev. B * Hitachi QFP HD38820A09 MCU * cyan/red/green VFD display Futaba DM-24ZK 1G, with etched overlay To start the game in 2-player mode, simply turn the game on. For 1-player, turn the game on while holding the 1-key and use the visitor's side keypad to play offsense. ***************************************************************************/ class mwcbaseb_state : public hh_hmcs40_state { public: mwcbaseb_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } void prepare_display(); DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); DECLARE_WRITE8_MEMBER(speaker_w); DECLARE_READ8_MEMBER(input_r); void mwcbaseb(machine_config &config); }; // handlers void mwcbaseb_state::prepare_display() { u8 grid = bitswap<8>(m_grid,0,1,2,3,4,5,6,7); display_matrix(16, 8, m_plate, grid); } WRITE8_MEMBER(mwcbaseb_state::plate_w) { // R1x-R3x,R6x: vfd plate int shift = (offset == hmcs40_cpu_device::PORT_R6X) ? 12 : (offset - hmcs40_cpu_device::PORT_R1X) * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); prepare_display(); } WRITE16_MEMBER(mwcbaseb_state::grid_w) { // D9-D15: input mux m_inp_mux = data >> 9 & 0x7f; // D0-D7: vfd grid m_grid = data & 0xff; prepare_display(); } WRITE8_MEMBER(mwcbaseb_state::speaker_w) { // R50,R51+R52(tied together): speaker out m_speaker->level_w(data & 7); } READ8_MEMBER(mwcbaseb_state::input_r) { // R4x: multiplexed inputs return read_inputs(7); } // config /* physical button layout and labels is like this: (visitor team side) (home team side) COMP PITCH [SCORE] [INNING] [1] [2] [3] [1] [2] [3] NEW PITCHER PINCH HITTER NEW PITCHER PINCH HITTER [4] [5] [6] [4] [5] [6] BACKWARD (pitch) FORWARD BACKWARD (pitch) FORWARD [7] [8] [9] [7] [8] [9] BUNT NORMAL HR SWING BUNT NORMAL HR SWING [CLEAR] [0] [ENTER] [CLEAR] [0] [ENTER] SLOW CURVE FAST SLOW CURVE FAST */ static INPUT_PORTS_START( mwcbaseb ) PORT_START("IN.0") // D9 port R4x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_Y) PORT_NAME("P2 4") // note: P1 = left/visitor, P2 = right/home PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_8) PORT_NAME("P2 3") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_7) PORT_NAME("P2 2") PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_6) PORT_NAME("P2 1") PORT_START("IN.1") // D10 port R4x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_J) PORT_NAME("P2 8") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_H) PORT_NAME("P2 7") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_I) PORT_NAME("P2 6") PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_U) PORT_NAME("P2 5") PORT_START("IN.2") // D11 port R4x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_COMMA) PORT_NAME("P2 Enter") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_N) PORT_NAME("P2 Clear") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_M) PORT_NAME("P2 0") PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_K) PORT_NAME("P2 9") PORT_START("IN.3") // D12 port R4x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_T) PORT_NAME("Inning") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_R) PORT_NAME("Score") PORT_START("IN.4") // D13 port R4x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_C) PORT_CODE(KEYCODE_ENTER_PAD) PORT_NAME("P1 Enter") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_Z) PORT_CODE(KEYCODE_DEL_PAD) PORT_NAME("P1 Clear") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_X) PORT_CODE(KEYCODE_0_PAD) PORT_NAME("P1 0") PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_D) PORT_CODE(KEYCODE_9_PAD) PORT_NAME("P1 9") PORT_START("IN.5") // D14 port R4x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_S) PORT_CODE(KEYCODE_8_PAD) PORT_NAME("P1 8") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_A) PORT_CODE(KEYCODE_7_PAD) PORT_NAME("P1 7") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_E) PORT_CODE(KEYCODE_6_PAD) PORT_NAME("P1 6") PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_W) PORT_CODE(KEYCODE_5_PAD) PORT_NAME("P1 5") PORT_START("IN.6") // D15 port R4x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_Q) PORT_CODE(KEYCODE_4_PAD) PORT_NAME("P1 4") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_3) PORT_CODE(KEYCODE_3_PAD) PORT_NAME("P1 3") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_2) PORT_CODE(KEYCODE_2_PAD) PORT_NAME("P1 2") PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYPAD ) PORT_CODE(KEYCODE_1) PORT_CODE(KEYCODE_1_PAD) PORT_NAME("P1 1") INPUT_PORTS_END static const s16 mwcbaseb_speaker_levels[] = { 0, 0x3fff, -0x4000, 0, -0x4000, 0, -0x8000, -0x4000 }; MACHINE_CONFIG_START(mwcbaseb_state::mwcbaseb) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38820, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, mwcbaseb_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, mwcbaseb_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, mwcbaseb_state, plate_w)) MCFG_HMCS40_READ_R_CB(4, READ8(*this, mwcbaseb_state, input_r)) MCFG_HMCS40_WRITE_R_CB(5, WRITE8(*this, mwcbaseb_state, speaker_w)) MCFG_HMCS40_WRITE_R_CB(6, WRITE8(*this, mwcbaseb_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, mwcbaseb_state, grid_w)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(1920, 478) MCFG_SCREEN_VISIBLE_AREA(0, 1920-1, 0, 478-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SPEAKER_LEVELS(8, mwcbaseb_speaker_levels) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Parker Brothers Q*Bert * PCB label 13662 REV-4 * Hitachi QFP HD38820A70 MCU * cyan/red/green/darkgreen VFD display Itron CP5137 ***************************************************************************/ class pbqbert_state : public hh_hmcs40_state { public: pbqbert_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void pbqbert(machine_config &config); }; // handlers WRITE8_MEMBER(pbqbert_state::plate_w) { // R0x-R6x(,D8): vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); // update display u32 plate = bitswap<32>(m_plate,31,30,24,25,26,27,28,15,14,29,13,12,11,10,9,8,7,6,5,4,3,2,1,0,16,17,18,19,20,21,22,23) | 0x400000; display_matrix(30, 8, plate, m_grid); } WRITE16_MEMBER(pbqbert_state::grid_w) { // D14: speaker out m_speaker->level_w(data >> 14 & 1); // D0-D7: vfd grid m_grid = data & 0xff; // D8: plate 25 (update display there) plate_w(space, 7, data >> 8 & 1); } // config static INPUT_PORTS_START( pbqbert ) PORT_START("IN.0") // port D PORT_BIT( 0x0200, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) // up-left PORT_BIT( 0x0400, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) // up-right PORT_BIT( 0x0800, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) // down-right PORT_BIT( 0x1000, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) // down-left PORT_BIT( 0xe1ff, IP_ACTIVE_HIGH, IPT_UNUSED ) INPUT_PORTS_END MACHINE_CONFIG_START(pbqbert_state::pbqbert) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38820, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, pbqbert_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, pbqbert_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, pbqbert_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, pbqbert_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(4, WRITE8(*this, pbqbert_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(5, WRITE8(*this, pbqbert_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(6, WRITE8(*this, pbqbert_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, pbqbert_state, grid_w)) MCFG_HMCS40_READ_D_CB(IOPORT("IN.0")) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(603, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 603-1, 0, 1080-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Tomy Kingman (manufactured in Japan) * PCB label THF-01II 2E138E01/2E128E02 * Hitachi HD38800B23 MCU * cyan/red/blue VFD display Futaba DM-65ZK 3A ***************************************************************************/ class kingman_state : public hh_hmcs40_state { public: kingman_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } void prepare_display(); DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void update_int0(); DECLARE_INPUT_CHANGED_MEMBER(input_changed); void kingman(machine_config &config); }; // handlers void kingman_state::prepare_display() { u16 grid = bitswap<16>(m_grid,15,14,13,12,11,10,9,0,1,2,3,4,5,6,7,8); u32 plate = bitswap<24>(m_plate,23,6,7,5,4,3,2,1,0,13,12,20,19,18,17,16,10,11,9,8,14,15,13,12); display_matrix(23, 9, plate, grid); } WRITE8_MEMBER(kingman_state::plate_w) { // R0x-R3x: vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); prepare_display(); } WRITE16_MEMBER(kingman_state::grid_w) { // D6: speaker out m_speaker->level_w(data >> 6 & 1); // D12-D15: input mux u8 inp_mux = data >> 12 & 0xf; if (inp_mux != m_inp_mux) { m_inp_mux = inp_mux; update_int0(); } // D7-D15: vfd grid m_grid = data >> 7 & 0x1ff; // D0-D4: more plates m_plate = (m_plate & 0x00ffff) | (data << 16 & 0x1f0000); prepare_display(); } void kingman_state::update_int0() { // INT0 on multiplexed inputs set_interrupt(0, read_inputs(4)); } // config static INPUT_PORTS_START( kingman ) PORT_START("IN.0") // D12 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_CHANGED_MEMBER(DEVICE_SELF, kingman_state, input_changed, nullptr) PORT_START("IN.1") // D13 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_CHANGED_MEMBER(DEVICE_SELF, kingman_state, input_changed, nullptr) PORT_START("IN.2") // D14 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_CHANGED_MEMBER(DEVICE_SELF, kingman_state, input_changed, nullptr) PORT_START("IN.3") // D15 INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_CHANGED_MEMBER(DEVICE_SELF, kingman_state, input_changed, nullptr) PORT_START("IN.4") // INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)1) INPUT_PORTS_END INPUT_CHANGED_MEMBER(kingman_state::input_changed) { update_int0(); } MACHINE_CONFIG_START(kingman_state::kingman) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38800, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, kingman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, kingman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, kingman_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, kingman_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, kingman_state, grid_w)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(374, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 374-1, 0, 1080-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Tomy(tronic) Tron (manufactured in Japan) * PCB label THN-02 2E114E07 * Hitachi HD38800A88 MCU * cyan/red/green VFD display NEC FIP10AM24T no. 2-8 1 ***************************************************************************/ class tmtron_state : public hh_hmcs40_state { public: tmtron_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } void prepare_display(); DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void update_int1(); DECLARE_INPUT_CHANGED_MEMBER(input_changed); void tmtron(machine_config &config); }; // handlers void tmtron_state::prepare_display() { u16 grid = bitswap<16>(m_grid,15,14,13,12,11,10,1,2,3,4,5,6,7,8,9,0); u32 plate = bitswap<24>(m_plate,23,5,2,21,1,6,7,9,10,11,21,0,19,3,4,8,3,18,17,16,12,13,14,15); display_matrix(23, 10, plate, grid); } WRITE8_MEMBER(tmtron_state::plate_w) { // R0x-R3x: vfd plate int shift = offset * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); prepare_display(); } WRITE16_MEMBER(tmtron_state::grid_w) { // D4: speaker out m_speaker->level_w(data >> 4 & 1); // D12-D15: input mux u8 inp_mux = data >> 12 & 0xf; if (inp_mux != m_inp_mux) { m_inp_mux = inp_mux; update_int1(); } // D6-D15: vfd grid m_grid = data >> 6 & 0x3ff; // D0-D3,D5: more plates m_plate = (m_plate & 0x00ffff) | (data << 16 & 0x2f0000); prepare_display(); } void tmtron_state::update_int1() { // INT1 on multiplexed inputs set_interrupt(1, read_inputs(4)); } // config static INPUT_PORTS_START( tmtron ) PORT_START("IN.0") // D12 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_16WAY PORT_CHANGED_MEMBER(DEVICE_SELF, tmtron_state, input_changed, nullptr) PORT_START("IN.1") // D13 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_16WAY PORT_CHANGED_MEMBER(DEVICE_SELF, tmtron_state, input_changed, nullptr) PORT_START("IN.2") // D14 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_16WAY PORT_CHANGED_MEMBER(DEVICE_SELF, tmtron_state, input_changed, nullptr) PORT_START("IN.3") // D15 INT1 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_16WAY PORT_CHANGED_MEMBER(DEVICE_SELF, tmtron_state, input_changed, nullptr) PORT_START("IN.4") // INT0 PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_hmcs40_state, single_interrupt_line, (void *)0) INPUT_PORTS_END INPUT_CHANGED_MEMBER(tmtron_state::input_changed) { update_int1(); } MACHINE_CONFIG_START(tmtron_state::tmtron) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38800, 400000) // approximation MCFG_HMCS40_WRITE_R_CB(0, WRITE8(*this, tmtron_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, tmtron_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, tmtron_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, tmtron_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, tmtron_state, grid_w)) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(1920, 662) MCFG_SCREEN_VISIBLE_AREA(0, 1920-1, 0, 662-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** VTech Invaders (manufactured in Taiwan) * Hitachi HD38750A45 MCU * cyan/red VFD display Futaba DM-26Z 1G, with bezel known releases: - USA: Invaders/Sonic Invader - UK: Cosmic Invader, published by Grandstand - UK: Galactic Invaders, published by Prinztronic ***************************************************************************/ class vinvader_state : public hh_hmcs40_state { public: vinvader_state(const machine_config &mconfig, device_type type, const char *tag) : hh_hmcs40_state(mconfig, type, tag) { } DECLARE_WRITE8_MEMBER(plate_w); DECLARE_WRITE16_MEMBER(grid_w); void vinvader(machine_config &config); }; // handlers WRITE8_MEMBER(vinvader_state::plate_w) { // R1x-R3x(,D4-D6): vfd plate int shift = (offset - hmcs40_cpu_device::PORT_R1X) * 4; m_plate = (m_plate & ~(0xf << shift)) | (data << shift); // update display u16 plate = bitswap<16>(m_plate,15,11,7,3,10,6,14,2,9,5,13,1,8,4,12,0); display_matrix(12, 9, plate, m_grid); } WRITE16_MEMBER(vinvader_state::grid_w) { // D0: speaker out m_speaker->level_w(data & 1); // D7-D15: vfd grid m_grid = data >> 7 & 0x1ff; // D4-D6: more plates (update display there) plate_w(space, 3 + hmcs40_cpu_device::PORT_R1X, data >> 4 & 7); } // config static INPUT_PORTS_START( vinvader ) PORT_START("IN.0") // port R0x PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_BIT( 0x0c, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_START("IN.1") // port D PORT_CONFNAME( 0x0002, 0x0000, DEF_STR( Difficulty ) ) PORT_CONFSETTING( 0x0000, "1" ) PORT_CONFSETTING( 0x0002, "2" ) PORT_BIT( 0x0008, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_BIT( 0xfff5, IP_ACTIVE_HIGH, IPT_UNUSED ) INPUT_PORTS_END MACHINE_CONFIG_START(vinvader_state::vinvader) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", HD38750, 400000) // approximation MCFG_HMCS40_READ_R_CB(0, IOPORT("IN.0")) MCFG_HMCS40_WRITE_R_CB(1, WRITE8(*this, vinvader_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(2, WRITE8(*this, vinvader_state, plate_w)) MCFG_HMCS40_WRITE_R_CB(3, WRITE8(*this, vinvader_state, plate_w)) MCFG_HMCS40_WRITE_D_CB(WRITE16(*this, vinvader_state, grid_w)) MCFG_HMCS40_READ_D_CB(IOPORT("IN.1")) /* video hardware */ MCFG_SCREEN_SVG_ADD("screen", "svg") MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_SIZE(233, 1080) MCFG_SCREEN_VISIBLE_AREA(0, 233-1, 0, 1080-1) MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_hmcs40_state, display_decay_tick, attotime::from_msec(1)) /* sound hardware */ SPEAKER(config, "mono").front_center(); MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) MACHINE_CONFIG_END /*************************************************************************** Game driver(s) ***************************************************************************/ ROM_START( bambball ) ROM_REGION( 0x1000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38750a08", 0x0000, 0x0800, CRC(907fef18) SHA1(73fe7ca7c6332268a3a9abc5ac88ada2991012fb) ) ROM_CONTINUE( 0x0f00, 0x0080 ) ROM_REGION( 281988, "svg", 0) ROM_LOAD( "bambball.svg", 0, 281988, CRC(63019194) SHA1(cbfb5b051d8f57f6b4d698796030850b3631ed56) ) ROM_END ROM_START( bmboxing ) ROM_REGION( 0x1000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38750a07", 0x0000, 0x0800, CRC(7f33e259) SHA1(c5fcdd6bf060c96666354f09f0570c754f6ed4e0) ) ROM_CONTINUE( 0x0f00, 0x0080 ) ROM_REGION( 257144, "svg", 0) ROM_LOAD( "bmboxing.svg", 0, 257144, CRC(dab81477) SHA1(28b0c844a311e2023ffa71d754e799059b7d050f) ) ROM_END ROM_START( bfriskyt ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38800a77", 0x0000, 0x1000, CRC(a2445c4f) SHA1(0aaccfec90b66d27dae194d4462d88e654c41578) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 413577, "svg", 0) ROM_LOAD( "bfriskyt.svg", 0, 413577, CRC(17090264) SHA1(4512a8a91a459f2ddc258641c6d38c2f48f4160f) ) ROM_END ROM_START( packmon ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38800a27", 0x0000, 0x1000, CRC(86e09e84) SHA1(ac7d3c43667d5720ca513f8ff51d146d9f2af124) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 246356, "svg", 0) ROM_LOAD( "packmon.svg", 0, 246356, CRC(991eea96) SHA1(bf42765aea838e9c26453642b01a962399b3e74c) ) ROM_END ROM_START( msthawk ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38800a73", 0x0000, 0x1000, CRC(a4f9a523) SHA1(465f06b02e2e7d2277218fd447830725790a816c) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 197907, "svg", 0) ROM_LOAD( "msthawk.svg", 0, 197907, CRC(b54efcb9) SHA1(76db2ca156d556bf578995196eca1170b39988bb) ) ROM_END ROM_START( bzaxxon ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38800b19", 0x0000, 0x1000, CRC(4fecb80d) SHA1(7adf079480ffd3825ad5ae1eaa4d892eecbcc42d) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 521080, "svg", 0) ROM_LOAD( "bzaxxon.svg", 0, 521080, BAD_DUMP CRC(f4fbb2de) SHA1(83db400e67d91ae4bfee3e8568ae9df94ebede19) ) ROM_END ROM_START( zackman ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a49", 0x0000, 0x1000, CRC(b97f5ef6) SHA1(7fe20e8107361caf9ea657e504be1f8b10b8b03f) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 910689, "svg", 0) ROM_LOAD( "zackman.svg", 0, 910689, CRC(5f322820) SHA1(4210aff160e5de9a409aba8b915aaebff2a92647) ) ROM_END ROM_START( bpengo ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a63", 0x0000, 0x1000, CRC(ebd6bc64) SHA1(0a322c47b9553a2739a85908ce64b9650cf93d49) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 744461, "svg", 0) ROM_LOAD( "bpengo.svg", 0, 744461, BAD_DUMP CRC(2b9abaa5) SHA1(c70a6ac1fa757fdd3ababfe6e00573ef1410c1eb) ) ROM_END ROM_START( bbtime ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a65", 0x0000, 0x1000, CRC(33611faf) SHA1(29b6a30ed543688d31ec2aa18f7938fa4eef30b0) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 461605, "svg", 0) ROM_LOAD( "bbtime.svg", 0, 461605, BAD_DUMP CRC(5b335271) SHA1(46c45b711358e8397ae707668aecead9e341ab8a) ) ROM_END ROM_START( bdoramon ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38800b43", 0x0000, 0x1000, CRC(9387ca42) SHA1(8937e208934b34bd9f49700aa50287dfc8bda76c) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 624751, "svg", 0) ROM_LOAD( "bdoramon.svg", 0, 624751, CRC(5dc4017c) SHA1(2091765de401969651b8eb22067572be72d12398) ) ROM_END ROM_START( bultrman ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38800b52", 0x0000, 0x1000, CRC(88d372dc) SHA1(f2ac3b89be8afe6fb65914ccebe1a56316b9472a) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 405717, "svg", 0) ROM_LOAD( "bultrman.svg", 0, 405717, CRC(13367971) SHA1(f294898712d1e146ff267bb1e3cfd059f972b248) ) ROM_END ROM_START( machiman ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a85", 0x0000, 0x1000, CRC(894b4954) SHA1(cab49638a326b031aa548301beb16f818759ef62) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 374097, "svg", 0) ROM_LOAD( "machiman.svg", 0, 374097, CRC(78af02ac) SHA1(1b4bbea3e46e1bf33149727d9725bc9b18652b9c) ) ROM_END ROM_START( pairmtch ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a88", 0x0000, 0x1000, CRC(ffa35730) SHA1(5a80b9025aaad2ac0ab0b1436a1355ae8cd3f868) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 0x2000, "audiocpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a89", 0x0000, 0x1000, CRC(3533ec56) SHA1(556d69e78a0ee1bf766fce16ed58992d7272d57f) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_END ROM_START( alnattck ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38800a25", 0x0000, 0x1000, CRC(18b50869) SHA1(11e9d5f7b4ae818b077b0ee14a3b43190e20bff3) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 564271, "svg", 0) ROM_LOAD( "alnattck.svg", 0, 564271, CRC(5466d1d4) SHA1(3295272015969e58fddc53272769e1fc1bd4b355) ) ROM_END ROM_START( cdkong ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a45", 0x0000, 0x1000, CRC(196b8070) SHA1(da85d1eb4b048b77f3168630662ab94ec9baa262) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 359199, "svg", 0) ROM_LOAD( "cdkong.svg", 0, 359199, CRC(ba159fd5) SHA1(3188e2ed3234f39ac9ee93a485a7e73314bc3457) ) ROM_END ROM_START( cgalaxn ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38800a70", 0x0000, 0x1000, CRC(a4c5ed1d) SHA1(0f647cb78437d7e62411febf7c9ce3c5b6753a80) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 712204, "svg", 0) ROM_LOAD( "cgalaxn.svg", 0, 712204, CRC(67ec57bf) SHA1(195c9867b321da9768ce287d1060ceae50345dd4) ) ROM_END ROM_START( cpacman ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a29", 0x0000, 0x1000, CRC(1082d577) SHA1(0ef73132bd41f6ca1e4c001ae19f7f7c97eaa8d1) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 359765, "svg", 0) ROM_LOAD( "cpacman.svg", 0, 359765, CRC(e3810a46) SHA1(d0994edd71a6adc8f238c71e360a8606ce397a14) ) ROM_END ROM_START( cpacmanr1 ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a28", 0x0000, 0x1000, CRC(d2ed57e5) SHA1(f56f1341485ac28ea9e6cc4d162fab18d8a4c977) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 359765, "svg", 0) ROM_LOAD( "cpacman.svg", 0, 359765, CRC(e3810a46) SHA1(d0994edd71a6adc8f238c71e360a8606ce397a14) ) ROM_END ROM_START( cmspacmn ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a61", 0x0000, 0x1000, CRC(76276318) SHA1(9d6ff3f49b4cdaee5c9e238c1ed638bfb9b99aa7) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 849327, "svg", 0) ROM_LOAD( "cmspacmn.svg", 0, 849327, CRC(4110ad07) SHA1(76113a2ce0fb1c6dab4e26fd59a13dc89d950d75) ) ROM_END ROM_START( sag_si2 ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "inv2_hd38800a31", 0x0000, 0x1000, BAD_DUMP CRC(29c8c100) SHA1(41cd413065659c6d7d5b2408de2ca6d51c49629a) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_END ROM_START( sag_bb4 ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "b-b5_hd38800a37", 0x0000, 0x1000, CRC(64852bd5) SHA1(fb1c24ca43934ceb6fc35ac7c35b71e6e843dbc5) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_END ROM_START( sag_pb ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "pinb_hd38800a38", 0x0000, 0x1000, CRC(6e53a56b) SHA1(13f057eab2e4cfbb3ef1247a041abff15ae727c9) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_END ROM_START( egalaxn2 ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a13", 0x0000, 0x1000, CRC(112b721b) SHA1(4a185bc57ea03fe64f61f7db4da37b16eeb0cb54) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 507945, "svg", 0) ROM_LOAD( "egalaxn2.svg", 0, 507945, CRC(b72a8721) SHA1(2d90fca6ce962710525b631e5bc8f75d79332b9d) ) ROM_END ROM_START( epacman2 ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a23", 0x0000, 0x1000, CRC(6eab640f) SHA1(509bdd02be915089e13769f22a08e03509f03af4) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 262480, "svg", 0) ROM_LOAD( "epacman2.svg", 0, 262480, CRC(73bd9671) SHA1(a3ac754c0e060da50b65f3d0f9630d9c3d871650) ) ROM_END ROM_START( epacman2r ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a23", 0x0000, 0x1000, CRC(6eab640f) SHA1(509bdd02be915089e13769f22a08e03509f03af4) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 262483, "svg", 0) ROM_LOAD( "epacman2r.svg", 0, 262483, CRC(279b629a) SHA1(4c499fb143aadf4f6722b994a22a0d0d3c5150b6) ) ROM_END ROM_START( estargte ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a42", 0x0000, 0x1000, CRC(5f6d55a6) SHA1(0da32149790fa5f16097338fc80536b462169e0c) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 0x0200, "audiocpu", 0 ) ROM_LOAD( "cop411l-kec_n", 0x0000, 0x0200, CRC(fbd3c2d3) SHA1(65b8b24d38678c3fa970bfd639e9449a75a28927) ) ROM_REGION( 462214, "svg", 0) ROM_LOAD( "estargte.svg", 0, 462214, CRC(282cc090) SHA1(b0f3c21e9a529e5f1e33b90ca25ce3a097fb75a0) ) ROM_END ROM_START( eturtles ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a43", 0x0000, 0x1000, CRC(446aa4e2) SHA1(d1c0fb14ea7081def53b1174964b39eed1e5d5e6) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 0x0200, "audiocpu", 0 ) ROM_LOAD( "cop411l-ked_n", 0x0000, 0x0200, CRC(503d26e9) SHA1(a53d24d62195bfbceff2e4a43199846e0950aef6) ) ROM_REGION( 1027626, "svg", 0) ROM_LOAD( "eturtles.svg", 0, 1027626, CRC(b4f7abff) SHA1(e9b065a3a3fef3c71495002945724a86c2a68eb4) ) ROM_END ROM_START( ghalien ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38800a04", 0x0000, 0x1000, CRC(019c3328) SHA1(9f1029c5c479f78350952c4f18747341ba5ea7a0) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 462749, "svg", 0) ROM_LOAD( "ghalien.svg", 0, 462749, CRC(1acbb1e8) SHA1(7bdeb840bc9080792e24812eba923bf84f7865a6) ) ROM_END ROM_START( gckong ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38800b01", 0x0000, 0x1000, CRC(d5a2cca3) SHA1(37bb5784383daab672ed1e0e2362c7a40d8d9b3f) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 356769, "svg", 0) ROM_LOAD( "gckong.svg", 0, 356769, CRC(e2559b53) SHA1(519309c3a88b5d7f4c0ac5ae05dcdc1153377765) ) ROM_END ROM_START( gdigdug ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a69", 0x0000, 0x1000, CRC(501165a9) SHA1(8a15d00c4aa66e870cadde33148426463560d2e6) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 807990, "svg", 0) ROM_LOAD( "gdigdug.svg", 0, 807990, CRC(a5b8392d) SHA1(3503829bb1a626a9e70115fb60b656dff8908144) ) ROM_END ROM_START( mwcbaseb ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a09", 0x0000, 0x1000, CRC(25ba7dc0) SHA1(69e0a867fdcf07b454b1faf835e576ae782432c0) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 178441, "svg", 0) ROM_LOAD( "mwcbaseb.svg", 0, 178441, CRC(0f631190) SHA1(74a10ad0630af5516f76d5bf5628483d21f6b7be) ) ROM_END ROM_START( pbqbert ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38820a70", 0x0000, 0x1000, CRC(be7c80b4) SHA1(0617a80ef7fe188ea221de32e760d45fd4318c67) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 456567, "svg", 0) ROM_LOAD( "pbqbert.svg", 0, 456567, CRC(49853a62) SHA1(869377109fb7163e5ef5efadb26ce3955231f6ca) ) ROM_END ROM_START( kingman ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38800b23", 0x0000, 0x1000, CRC(f8dfe14f) SHA1(660610d92ae7e5f92bddf5a3bcc2296b2ec3946b) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 396320, "svg", 0) ROM_LOAD( "kingman.svg", 0, 396320, CRC(3f52d2a9) SHA1(9291f1a1da3d19c3d6dedb995de0a5feba75b442) ) ROM_END ROM_START( tmtron ) ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38800a88", 0x0000, 0x1000, CRC(33db9670) SHA1(d6f747a59356526698784047bcfdbb59e79b9a23) ) ROM_CONTINUE( 0x1e80, 0x0100 ) ROM_REGION( 384174, "svg", 0) ROM_LOAD( "tmtron.svg", 0, 384174, CRC(06bd9e63) SHA1(fb93013ec42dc05f7029ef3c3073c84867f0d077) ) ROM_END ROM_START( vinvader ) ROM_REGION( 0x1000, "maincpu", ROMREGION_ERASE00 ) ROM_LOAD( "hd38750a45", 0x0000, 0x0800, CRC(32de6056) SHA1(70238c6c40c3d513f8eced1cb81bdd4dbe12f16c) ) ROM_CONTINUE( 0x0f00, 0x0080 ) ROM_REGION( 166379, "svg", 0) ROM_LOAD( "vinvader.svg", 0, 166379, CRC(b75c448e) SHA1(40d546f9fbdb446883e3ab0e3f678f1be8105159) ) ROM_END // YEAR NAME PARENT CMP MACHINE INPUT CLASS INIT COMPANY, FULLNAME, FLAGS CONS( 1979, bambball, 0, 0, bambball, bambball, bambball_state, empty_init, "Bambino", "Dribble Away Basketball", MACHINE_SUPPORTS_SAVE ) CONS( 1979, bmboxing, 0, 0, bmboxing, bmboxing, bmboxing_state, empty_init, "Bambino", "Knock-Em Out Boxing", MACHINE_SUPPORTS_SAVE ) CONS( 1982, bfriskyt, 0, 0, bfriskyt, bfriskyt, bfriskyt_state, empty_init, "Bandai", "Frisky Tom (Bandai)", MACHINE_SUPPORTS_SAVE ) CONS( 1981, packmon, 0, 0, packmon, packmon, packmon_state, empty_init, "Bandai", "Packri Monster", MACHINE_SUPPORTS_SAVE ) CONS( 1982, msthawk, 0, 0, msthawk, msthawk, msthawk_state, empty_init, "Bandai (Mattel license)", "Star Hawk (Mattel)", MACHINE_SUPPORTS_SAVE ) CONS( 1982, bzaxxon, 0, 0, bzaxxon, bzaxxon, bzaxxon_state, empty_init, "Bandai", "Zaxxon (Bandai)", MACHINE_SUPPORTS_SAVE ) CONS( 1983, zackman, 0, 0, zackman, zackman, zackman_state, empty_init, "Bandai", "Zackman", MACHINE_SUPPORTS_SAVE ) CONS( 1983, bpengo, 0, 0, bpengo, bpengo, bpengo_state, empty_init, "Bandai", "Pengo (Bandai)", MACHINE_SUPPORTS_SAVE ) CONS( 1983, bbtime, 0, 0, bbtime, bbtime, bbtime_state, empty_init, "Bandai", "Burger Time (Bandai)", MACHINE_SUPPORTS_SAVE ) CONS( 1983, bdoramon, 0, 0, bdoramon, bdoramon, bdoramon_state, empty_init, "Bandai", "Dokodemo Dorayaki Doraemon", MACHINE_SUPPORTS_SAVE ) CONS( 1983, bultrman, 0, 0, bultrman, bultrman, bultrman_state, empty_init, "Bandai", "Ultraman Monster Battle", MACHINE_SUPPORTS_SAVE ) CONS( 1984, machiman, 0, 0, machiman, machiman, machiman_state, empty_init, "Bandai", "Machine Man", MACHINE_SUPPORTS_SAVE ) CONS( 1984, pairmtch, 0, 0, pairmtch, pairmtch, pairmtch_state, empty_init, "Bandai", "Pair Match", MACHINE_SUPPORTS_SAVE ) CONS( 1981, alnattck, 0, 0, alnattck, alnattck, alnattck_state, empty_init, "Coleco", "Alien Attack", MACHINE_SUPPORTS_SAVE ) CONS( 1982, cdkong, 0, 0, cdkong, cdkong, cdkong_state, empty_init, "Coleco", "Donkey Kong (Coleco)", MACHINE_SUPPORTS_SAVE | MACHINE_IMPERFECT_SOUND ) CONS( 1982, cgalaxn, 0, 0, cgalaxn, cgalaxn, cgalaxn_state, empty_init, "Coleco", "Galaxian (Coleco)", MACHINE_SUPPORTS_SAVE | MACHINE_IMPERFECT_SOUND ) CONS( 1981, cpacman, 0, 0, cpacman, cpacman, cpacman_state, empty_init, "Coleco", "Pac-Man (Coleco, Rev. 29)", MACHINE_SUPPORTS_SAVE ) CONS( 1981, cpacmanr1, cpacman, 0, cpacman, cpacman, cpacman_state, empty_init, "Coleco", "Pac-Man (Coleco, Rev. 28)", MACHINE_SUPPORTS_SAVE ) CONS( 1983, cmspacmn, 0, 0, cmspacmn, cmspacmn, cmspacmn_state, empty_init, "Coleco", "Ms. Pac-Man (Coleco)", MACHINE_SUPPORTS_SAVE ) CONS( 1981, sag_si2, 0, 0, sag, sag, sag_state, empty_init, "Entex", "Select-A-Game: Space Invader 2", MACHINE_SUPPORTS_SAVE | MACHINE_REQUIRES_ARTWORK | MACHINE_NOT_WORKING ) // suspect bad dump CONS( 1981, sag_bb4, 0, 0, sag, sag, sag_state, empty_init, "Entex", "Select-A-Game: Baseball 4", MACHINE_SUPPORTS_SAVE | MACHINE_REQUIRES_ARTWORK ) CONS( 1981, sag_pb, 0, 0, sag, sag, sag_state, empty_init, "Entex", "Select-A-Game: Pinball", MACHINE_SUPPORTS_SAVE | MACHINE_REQUIRES_ARTWORK ) CONS( 1981, egalaxn2, 0, 0, egalaxn2, egalaxn2, egalaxn2_state, empty_init, "Entex", "Galaxian 2 (Entex)", MACHINE_SUPPORTS_SAVE ) CONS( 1981, epacman2, 0, 0, epacman2, epacman2, epacman2_state, empty_init, "Entex", "Pac Man 2 (Entex, cyan Pacman)", MACHINE_SUPPORTS_SAVE ) CONS( 1981, epacman2r, epacman2, 0, epacman2, epacman2, epacman2_state, empty_init, "Entex", "Pac Man 2 (Entex, red Pacman)", MACHINE_SUPPORTS_SAVE ) CONS( 1982, estargte, 0, 0, estargte, estargte, estargte_state, empty_init, "Entex", "Stargate (Entex)", MACHINE_SUPPORTS_SAVE ) CONS( 1982, eturtles, 0, 0, eturtles, eturtles, eturtles_state, empty_init, "Entex", "Turtles (Entex)", MACHINE_SUPPORTS_SAVE ) CONS( 1980, ghalien, 0, 0, ghalien, ghalien, ghalien_state, empty_init, "Gakken", "Heiankyo Alien (Gakken)", MACHINE_SUPPORTS_SAVE ) CONS( 1982, gckong, 0, 0, gckong, gckong, gckong_state, empty_init, "Gakken", "Crazy Kong (Gakken)", MACHINE_SUPPORTS_SAVE | MACHINE_NOT_WORKING ) CONS( 1983, gdigdug, 0, 0, gdigdug, gdigdug, gdigdug_state, empty_init, "Gakken", "Dig Dug (Gakken)", MACHINE_SUPPORTS_SAVE ) CONS( 1980, mwcbaseb, 0, 0, mwcbaseb, mwcbaseb, mwcbaseb_state, empty_init, "Mattel", "World Championship Baseball", MACHINE_SUPPORTS_SAVE ) CONS( 1983, pbqbert, 0, 0, pbqbert, pbqbert, pbqbert_state, empty_init, "Parker Brothers", "Q*Bert (Parker Brothers)", MACHINE_SUPPORTS_SAVE ) CONS( 1982, kingman, 0, 0, kingman, kingman, kingman_state, empty_init, "Tomy", "Kingman", MACHINE_SUPPORTS_SAVE ) CONS( 1984, tmtron, 0, 0, tmtron, tmtron, tmtron_state, empty_init, "Tomy", "Tron (Tomy)", MACHINE_SUPPORTS_SAVE ) CONS( 1981, vinvader, 0, 0, vinvader, vinvader, vinvader_state, empty_init, "VTech", "Invaders (VTech)", MACHINE_SUPPORTS_SAVE )