// license:BSD-3-Clause // copyright-holders:Robbbert /********************************************************************************** PINBALL Technoplay "2-2C 8008 LS" (68000 CPU) Schematic and PinMAME used as references ToDo: - Once you press the credit button, nothing responds (game requires 4 balls) - Sliding display is too fast to read (much better if cpu xtal changed to 4MHz) - No sound due to missing roms ***********************************************************************************/ #include "emu.h" #include "machine/genpin.h" #include "cpu/m68000/m68000.h" #include "techno.lh" class techno_state : public driver_device { public: techno_state(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag) , m_maincpu(*this, "maincpu") , m_switch(*this, "SWITCH.%u", 0) , m_digits(*this, "digit%u", 0U) { } void techno(machine_config &config); private: enum { IRQ_SET_TIMER, IRQ_ADVANCE_TIMER }; DECLARE_READ16_MEMBER(key_r); DECLARE_READ16_MEMBER(rtrg_r); DECLARE_READ16_MEMBER(sound_r); DECLARE_WRITE16_MEMBER(disp1_w); DECLARE_WRITE16_MEMBER(disp2_w); DECLARE_WRITE16_MEMBER(lamp1_w); DECLARE_WRITE16_MEMBER(lamp2_w); DECLARE_WRITE16_MEMBER(setout_w); DECLARE_WRITE16_MEMBER(sol1_w); DECLARE_WRITE16_MEMBER(sol2_w); DECLARE_WRITE16_MEMBER(sound_w); DECLARE_READ8_MEMBER(rd_r) { return 0; } DECLARE_WRITE8_MEMBER(wr_w) {} void techno_map(address_map &map); void techno_sub_map(address_map &map); void cpu_space_map(address_map &map); virtual void device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr) override; virtual void machine_start() override; virtual void machine_reset() override; required_device m_maincpu; required_ioport_array<8> m_switch; output_finder<48> m_digits; emu_timer *m_irq_set_timer; emu_timer *m_irq_advance_timer; bool m_digwait; uint8_t m_keyrow; uint16_t m_digit; uint8_t m_vector; }; void techno_state::techno_map(address_map &map) { map.global_mask(0x1ffff); map(0x00000, 0x03fff).rom(); map(0x04000, 0x04fff).ram().share("nvram"); // battery backed-up map(0x06000, 0x0ffff).rom(); map(0x14000, 0x147ff).rw(FUNC(techno_state::key_r), FUNC(techno_state::lamp1_w)); map(0x14800, 0x14fff).rw(FUNC(techno_state::sound_r), FUNC(techno_state::lamp2_w)); map(0x15000, 0x157ff).rw(FUNC(techno_state::rtrg_r), FUNC(techno_state::sol1_w)); map(0x15800, 0x15fff).nopr().w(FUNC(techno_state::sol2_w)); // reads from 15800, but shown as not connected map(0x16000, 0x167ff).w(FUNC(techno_state::sound_w)); map(0x16800, 0x16fff).w(FUNC(techno_state::disp1_w)); map(0x17000, 0x177ff).w(FUNC(techno_state::disp2_w)); map(0x17800, 0x17fff).w(FUNC(techno_state::setout_w)); } void techno_state::techno_sub_map(address_map &map) { // no ram here, must be internal to the cpu map(0x0000, 0x3fff).r(FUNC(techno_state::rd_r)); // to TKY2016A audio processor which has its own 3.58MHz clock map(0x4000, 0x7fff).w(FUNC(techno_state::wr_w)); // A11=LED;A12=WR2 (DAC) ;A13=WR1 (TKY2016A as above) map(0x4000, 0xbfff).rom(); // 4000-7FFF is same as 8000-BFFF; 4x 16k ROMS bankswitched map(0xc000, 0xffff).rom(); // another 16k ROM } WRITE16_MEMBER( techno_state::disp1_w ) { m_digits[m_digit] = bitswap<16>(data, 12, 10, 8, 14, 13, 9, 11, 15, 7, 6, 5, 4, 3, 2, 1, 0); } WRITE16_MEMBER( techno_state::disp2_w ) { m_digits[m_digit+30] = bitswap<16>(data, 12, 10, 8, 14, 13, 9, 11, 15, 7, 6, 5, 4, 3, 2, 1, 0); } WRITE16_MEMBER( techno_state::sound_w ) { /* d0..d7 : to sound board d8 : strobe to display board d9 : reset (unknown purpose) d10 : data clock to display board d11-d15: AUX outputs */ // this code derived from PinMAME if (m_digwait) m_digit = (m_digit+1) % 16; if (BIT(data, 10)) { m_digwait = 1; m_digit = 0; } } // lamps & keymatrix WRITE16_MEMBER( techno_state::lamp1_w ) { // Work out key row for (int i = 8; i < 16; i++) if (BIT(data, i)) m_keyrow = i-8; } // more lamps WRITE16_MEMBER( techno_state::lamp2_w ) { } // solenoids WRITE16_MEMBER( techno_state::sol1_w ) { } // more solenoids WRITE16_MEMBER( techno_state::sol2_w ) { } // unknown WRITE16_MEMBER( techno_state::setout_w ) { } // inputs READ16_MEMBER( techno_state::key_r ) { return m_switch[m_keyrow]->read(); } // unknown READ16_MEMBER( techno_state::rtrg_r ) { return 0xffff; } // feedback from sound board, and some AUX inputs READ16_MEMBER( techno_state::sound_r ) { return 0; } static INPUT_PORTS_START( techno ) PORT_START("SWITCH.0") PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Letter select+") PORT_CODE(KEYCODE_F5) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_COIN3 ) PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_COIN2 ) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_COIN1 ) PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_SERVICE ) PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_TILT2 ) PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Test-") PORT_CODE(KEYCODE_F7) PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Test+") PORT_CODE(KEYCODE_F8) PORT_START("SWITCH.1") PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Fix top target right") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Horizontal rail right") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Mini Post") PORT_CODE(KEYCODE_I) PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_TILT ) PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_START ) PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Letter select+") PORT_CODE(KEYCODE_F6) PORT_START("SWITCH.2") PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Inner Canal Left") PORT_CODE(KEYCODE_O) PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Exit Canal Right") PORT_CODE(KEYCODE_OPENBRACE) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Ball 1") PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Ball 2") PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Ball 3") PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Ball 4") PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Out Hole") PORT_CODE(KEYCODE_X) PORT_START("SWITCH.3") PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Top Bumper") PORT_CODE(KEYCODE_Q) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Bottom Bumper") PORT_CODE(KEYCODE_W) PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Top Right Kicker") PORT_CODE(KEYCODE_E) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Right Kicker") PORT_CODE(KEYCODE_R) PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Left Kicker") PORT_CODE(KEYCODE_Y) PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Exit Canal Left") PORT_CODE(KEYCODE_U) PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Inner Canal Right") PORT_CODE(KEYCODE_I) PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_START("SWITCH.4") PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Fix left target bottom") PORT_CODE(KEYCODE_A) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Left rollover") PORT_CODE(KEYCODE_S) PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Barrier 1 Target") PORT_CODE(KEYCODE_D) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Barrier 2 Target") PORT_CODE(KEYCODE_F) PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Barrier 3 Target") PORT_CODE(KEYCODE_G) PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Left Bumper") PORT_CODE(KEYCODE_H) PORT_START("SWITCH.5") PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Fix right target top") PORT_CODE(KEYCODE_J) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Fix right target middle-top") PORT_CODE(KEYCODE_K) PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Spinning Target") PORT_CODE(KEYCODE_L) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Fixed contact") PORT_CODE(KEYCODE_COLON) PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Special Target") PORT_CODE(KEYCODE_QUOTE) PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Fix left target top") PORT_CODE(KEYCODE_CLOSEBRACE) PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Fix left target centre") PORT_CODE(KEYCODE_BACKSLASH) PORT_START("SWITCH.6") PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Fix top left target left") PORT_CODE(KEYCODE_Z) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Ball 1 Bridge") PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Ball 2 Bridge") PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Ball 3 Bridge") PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Ball 4 Bridge") PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_UNUSED ) PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Fix right target middle-bottom") PORT_CODE(KEYCODE_C) PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Fix right target bottom") PORT_CODE(KEYCODE_V) PORT_START("SWITCH.7") PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Fix top target middle-right") PORT_CODE(KEYCODE_B) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Fix top target middle-left") PORT_CODE(KEYCODE_N) PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Fix top target Left") PORT_CODE(KEYCODE_M) PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Horizontal Rail Left") PORT_CODE(KEYCODE_COMMA) PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Chopper Exit") PORT_CODE(KEYCODE_STOP) PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Chopper Entry") PORT_CODE(KEYCODE_SLASH) PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Fix top left target right") PORT_CODE(KEYCODE_MINUS) PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Fix top left target middle") PORT_CODE(KEYCODE_EQUALS) INPUT_PORTS_END void techno_state::cpu_space_map(address_map &map) { map(0xfffff0, 0xffffff).m(m_maincpu, FUNC(m68000_base_device::autovectors_map)); map(0xfffff2, 0xfffff3).lr16(NAME([this] () -> u16 { return m_vector; })); } void techno_state::device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr) { if (id == IRQ_ADVANCE_TIMER) { // vectors change per int: 88-8F, 98-9F) if ((m_vector & 7) == 7) m_vector = (m_vector ^ 0x10) & 0x97; m_vector++; // schematics show a 74HC74 cleared only upon IRQ acknowledgment or reset, but this is clearly incorrect for xforce m_maincpu->set_input_line(M68K_IRQ_1, CLEAR_LINE); } else if (id == IRQ_SET_TIMER) { m_maincpu->set_input_line(M68K_IRQ_1, ASSERT_LINE); m_irq_advance_timer->adjust(attotime::from_hz(XTAL(8'000'000) / 32)); } } void techno_state::machine_start() { m_irq_set_timer = timer_alloc(IRQ_SET_TIMER); m_irq_advance_timer = timer_alloc(IRQ_ADVANCE_TIMER); } void techno_state::machine_reset() { m_digits.resolve(); m_vector = 0x88; m_digit = 0; attotime freq = attotime::from_hz(XTAL(8'000'000) / 256); // 31250Hz m_irq_set_timer->adjust(freq, 0, freq); m_maincpu->set_input_line(M68K_IRQ_1, CLEAR_LINE); } void techno_state::techno(machine_config &config) { /* basic machine hardware */ M68000(config, m_maincpu, XTAL(8'000'000)); m_maincpu->set_addrmap(AS_PROGRAM, &techno_state::techno_map); m_maincpu->set_addrmap(m68000_base_device::AS_CPU_SPACE, &techno_state::cpu_space_map); NVRAM(config, "nvram", nvram_device::DEFAULT_ALL_0); //tms7000_device &cpu2(TMS7000(config, "cpu2", XTAL(4'000'000))); //cpu2.set_addrmap(AS_PROGRAM, &techno_state::techno_sub_map); /* Video */ config.set_default_layout(layout_techno); } ROM_START(xforce) ROM_REGION(0x10000, "maincpu", 0) ROM_LOAD16_BYTE("ic15", 0x0001, 0x8000, CRC(fb8d2853) SHA1(0b0004abfe32edfd3ac15d66f90695d264c97eba)) ROM_LOAD16_BYTE("ic17", 0x0000, 0x8000, CRC(122ef649) SHA1(0b425f81869bc359841377a91c39f44395502bff)) //ROM_REGION(0x20000, "cpu2", 0) // 5 x 27256 roms are undumped ROM_END ROM_START(spcteam) ROM_REGION(0x10000, "maincpu", 0) ROM_LOAD16_BYTE("cpu_top.bin", 0x000001, 0x8000, CRC(b11dcf1f) SHA1(084eb98ee4c9f32d5518897a891ad1a601850d80)) ROM_LOAD16_BYTE("cpu_bot.bin", 0x000000, 0x8000, CRC(892a5592) SHA1(c30dce37a5aae2834459179787f6c99353aadabb)) ROM_REGION(0x10000, "cpu2", 0) ROM_LOAD("sound.bin", 0x8000, 0x8000, CRC(6a87370f) SHA1(51e055dcf23a30e337ff439bba3c40e5c51c490a)) ROM_RELOAD(0, 0x8000) ROM_END GAME(1987, xforce, 0, techno, techno, techno_state, empty_init, ROT0, "Tecnoplay", "X Force", MACHINE_IS_SKELETON_MECHANICAL) GAME(1988, spcteam, 0, techno, techno, techno_state, empty_init, ROT0, "Tecnoplay", "Space Team", MACHINE_IS_SKELETON_MECHANICAL) // needs correct layout