// license:BSD-3-Clause // copyright-holders:Robbbert /********************************************************************* PINBALL Zaccaria Prototype These use the INS8060 (SC/MP) processor, and are Zaccaria's first digital machines. After starting a game, press X, wait for the sound of the ball being ejected, then press Z. Now you can get a score. The ball number is how many balls are left. 1 = last ball. ToDo: - Mechanical - Sound board, no info available. Also knocker output not known. **********************************************************************/ #include "emu.h" #include "machine/genpin.h" #include "cpu/scmp/scmp.h" #include "zac_proto.lh" class zac_proto_state : public genpin_class { public: zac_proto_state(const machine_config &mconfig, device_type type, const char *tag) : genpin_class(mconfig, type, tag) , m_maincpu(*this, "maincpu") , m_digits(*this, "digit%u", 0U) { } DECLARE_WRITE8_MEMBER(out0_w); DECLARE_WRITE8_MEMBER(out1_w); DECLARE_WRITE8_MEMBER(digit_w); DECLARE_WRITE8_MEMBER(sound_w); void zac_proto(machine_config &config); void zac_proto_map(address_map &map); private: virtual void machine_reset() override; virtual void machine_start() override { m_digits.resolve(); } required_device m_maincpu; output_finder<11> m_digits; }; void zac_proto_state::zac_proto_map(address_map &map) { map(0x0000, 0x0bff).rom(); map(0x0d00, 0x0dff).ram().share("nvram"); map(0x0e00, 0x0e00).portr("PL0"); map(0x0e01, 0x0e01).portr("PL1"); map(0x0e02, 0x0e02).portr("PL2"); map(0x0e03, 0x0e03).portr("PL3"); map(0x0e04, 0x0e04).portr("PL4"); map(0x0e05, 0x0e05).portr("PL5"); map(0x0e06, 0x0e06).portr("PL6"); map(0x0e07, 0x0e07).portr("PL7"); map(0x0e00, 0x0e01).w(this, FUNC(zac_proto_state::out0_w)); map(0x0e02, 0x0e06).w(this, FUNC(zac_proto_state::digit_w)); map(0x0e07, 0x0e08).w(this, FUNC(zac_proto_state::sound_w)); map(0x0e09, 0x0e16).w(this, FUNC(zac_proto_state::out1_w)); map(0x1400, 0x1bff).rom(); } static INPUT_PORTS_START( zac_proto ) // playfield inputs PORT_START("PL0") PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_COIN1 ) PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_COIN2 ) PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_START ) PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_TILT) PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_Z) PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_X) PORT_NAME("Outhole") PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_COLON) PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_QUOTE) PORT_START("PL1") PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_Q) PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_W) PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_E) PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_R) PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_Y) PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_U) PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_I) PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_O) PORT_START("PL2") PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_A) PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_S) PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_D) PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_F) PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_G) PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_H) PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_J) PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_K) PORT_START("PL3") PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_L) PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_C) PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_V) PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_B) PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_N) PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_M) PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_COMMA) PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_OTHER) PORT_CODE(KEYCODE_STOP) PORT_START("PL4") PORT_BIT(0xff, IP_ACTIVE_HIGH, IPT_UNUSED ) // dipswitches PORT_START("PL5") PORT_DIPNAME( 0x0f, 0x02, "Coinage Slot 1" ) PORT_DIPSETTING( 0x01, DEF_STR( 2C_1C ) ) PORT_DIPSETTING( 0x02, DEF_STR( 1C_1C ) ) PORT_DIPSETTING( 0x03, DEF_STR( 2C_3C ) ) PORT_DIPSETTING( 0x04, DEF_STR( 1C_2C ) ) PORT_DIPSETTING( 0x05, DEF_STR( 2C_5C ) ) PORT_DIPSETTING( 0x06, DEF_STR( 1C_3C ) ) PORT_DIPSETTING( 0x07, DEF_STR( 2C_7C ) ) PORT_DIPSETTING( 0x08, DEF_STR( 1C_4C ) ) PORT_DIPSETTING( 0x09, "2 Coins/9 Credits" ) PORT_DIPSETTING( 0x0a, DEF_STR( 1C_5C ) ) PORT_DIPSETTING( 0x0b, "2 Coins/11 Credits" ) PORT_DIPSETTING( 0x0c, DEF_STR( 1C_6C ) ) PORT_DIPSETTING( 0x0d, "2 Coins/13 Credits" ) PORT_DIPSETTING( 0x0e, DEF_STR( 1C_7C ) ) PORT_DIPSETTING( 0x0f, "2 Coins/15 Credits" ) PORT_DIPNAME( 0xf0, 0x20, "Coinage Slot 2" ) PORT_DIPSETTING( 0x10, DEF_STR( 2C_1C ) ) PORT_DIPSETTING( 0x20, DEF_STR( 1C_1C ) ) PORT_DIPSETTING( 0x30, DEF_STR( 2C_3C ) ) PORT_DIPSETTING( 0x40, DEF_STR( 1C_2C ) ) PORT_DIPSETTING( 0x50, DEF_STR( 2C_5C ) ) PORT_DIPSETTING( 0x60, DEF_STR( 1C_3C ) ) PORT_DIPSETTING( 0x70, DEF_STR( 2C_7C ) ) PORT_DIPSETTING( 0x80, DEF_STR( 1C_4C ) ) PORT_DIPSETTING( 0x90, "2 Coins/9 Credits" ) PORT_DIPSETTING( 0xa0, DEF_STR( 1C_5C ) ) PORT_DIPSETTING( 0xb0, "2 Coins/11 Credits" ) PORT_DIPSETTING( 0xc0, DEF_STR( 1C_6C ) ) PORT_DIPSETTING( 0xd0, "2 Coins/13 Credits" ) PORT_DIPSETTING( 0xe0, DEF_STR( 1C_7C ) ) PORT_DIPSETTING( 0xf0, "2 Coins/15 Credits" ) PORT_START("PL6") PORT_DIPNAME( 0x03, 0x01, "High Score" ) PORT_DIPSETTING( 0x00, "0" ) PORT_DIPSETTING( 0x01, "1" ) PORT_DIPSETTING( 0x02, "2" ) PORT_DIPSETTING( 0x03, "3" ) PORT_DIPNAME( 0x04, 0x04, "Beat High Score" ) PORT_DIPSETTING( 0x04, "Super Bonus" ) PORT_DIPSETTING( 0x00, "Game" ) PORT_DIPNAME( 0x08, 0x08, "Match" ) PORT_DIPSETTING( 0x08, "Enabled" ) PORT_DIPSETTING( 0x00, "Disabled" ) PORT_DIPNAME( 0x30, 0x20, "Beat High/Random Score" ) PORT_DIPSETTING( 0x00, "500000 points" ) PORT_DIPSETTING( 0x10, "Extra Ball" ) PORT_DIPSETTING( 0x20, "Extra Game" ) PORT_DIPSETTING( 0x30, "Super Bonus" ) PORT_DIPNAME( 0xc0, 0x80, "Reward for Special" ) PORT_DIPSETTING( 0x00, "500000 points" ) PORT_DIPSETTING( 0x40, "Extra Ball" ) PORT_DIPSETTING( 0x80, "Extra Game" ) PORT_DIPSETTING( 0xc0, "Super Bonus" ) PORT_START("PL7") PORT_DIPNAME( 0x01, 0x00, "Random" ) PORT_DIPSETTING( 0x00, "Enabled" ) PORT_DIPSETTING( 0x01, "Disabled" ) PORT_DIPNAME( 0x06, 0x02, "Balls" ) PORT_DIPSETTING( 0x00, "1" ) PORT_DIPSETTING( 0x02, "3" ) PORT_DIPSETTING( 0x04, "5" ) PORT_DIPSETTING( 0x06, "7" ) PORT_DIPNAME( 0x18, 0x10, "Strikes to get special" ) PORT_DIPSETTING( 0x00, "1" ) PORT_DIPSETTING( 0x08, "2" ) PORT_DIPSETTING( 0x10, "3" ) PORT_DIPSETTING( 0x18, "4" ) PORT_DIPNAME( 0x20, 0x20, "Unlimited Specials" ) PORT_DIPSETTING( 0x20, DEF_STR( On ) ) PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) PORT_DIPNAME( 0x40, 0x40, "Bonus Ball Award" ) PORT_DIPSETTING( 0x40, "Extra Ball" ) PORT_DIPSETTING( 0x00, "200000 points" ) PORT_DIPNAME( 0x80, 0x80, "SW24" ) PORT_DIPSETTING( 0x80, DEF_STR( On ) ) PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) INPUT_PORTS_END // solenoids (not knocker) WRITE8_MEMBER( zac_proto_state::out0_w ) { uint16_t t = data | (offset << 8); switch (t) { case 1: m_samples->start(0, 5); // outhole break; case 2: case 4: m_samples->start(4, 7); // slings break; case 8: case 16: case 32: m_samples->start(5, 0); // bumpers break; } } WRITE8_MEMBER( zac_proto_state::out1_w ) { // lamps } // need to implement blanking of leading zeroes WRITE8_MEMBER( zac_proto_state::digit_w ) { static const uint8_t patterns[16] = { 0x3f, 0x06, 0x5b, 0x4f, 0x66, 0x6d, 0x7d, 0x07, 0x7f, 0x6f, 0x77, 0x7c, 0x39, 0x5e, 0x79, 0x71 }; // 9368 (outputs 0-9,A-F) static const uint8_t decimals[10] = { 0, 0, 0x80, 0, 0, 0x80, 0, 0, 0, 0 }; offset<<=1; m_digits[offset] = patterns[data&15] | decimals[offset]; offset++; m_digits[offset] = patterns[data>>4] | decimals[offset]; } WRITE8_MEMBER( zac_proto_state::sound_w ) { // to unknown sound board } void zac_proto_state::machine_reset() { m_digits[10] = 0x3f; // units shows zero all the time } MACHINE_CONFIG_START(zac_proto_state::zac_proto) /* basic machine hardware */ MCFG_DEVICE_ADD("maincpu", INS8060, XTAL(4'000'000) / 2) // Using SC/MP II chip which has an internal /2 circuit. MCFG_DEVICE_PROGRAM_MAP(zac_proto_map) MCFG_NVRAM_ADD_0FILL("nvram") /* Video */ MCFG_DEFAULT_LAYOUT(layout_zac_proto) /* Sound */ genpin_audio(config); MACHINE_CONFIG_END /*-------------------------------- / Strike /-------------------------------*/ ROM_START(strike) ROM_REGION(0x8000, "maincpu", 0) ROM_LOAD("strike1.bin", 0x0000, 0x0400, CRC(650abc54) SHA1(6a4f83016a38338ba6a04271532f0880264e61a7)) ROM_LOAD("strike2.bin", 0x0400, 0x0400, CRC(13c5a168) SHA1(2da3a5bc0c28a2aacd8c1396dac95cf35f8797cd)) ROM_LOAD("strike3.bin", 0x0800, 0x0400, CRC(ebbbf315) SHA1(c87e961c8e5e99b0672cd632c5e104ea52088b5d)) ROM_LOAD("strike4.bin", 0x1400, 0x0400, CRC(ca0eddd0) SHA1(52f9faf791c56b68b1806e685d0479ea67aba019)) ROM_END /*-------------------------------- / Ski Jump (10/78) /-------------------------------*/ ROM_START(skijump) ROM_REGION(0x8000, "maincpu", 0) ROM_LOAD("skijump1.bin", 0x0000, 0x0400, CRC(c0c0e18c) SHA1(d28ec2541f6c2e86e5b5514c7f9e558df68be72a)) ROM_LOAD("skijump2.bin", 0x0400, 0x0400, CRC(b08aafb5) SHA1(ff6df4efa20a4461d525209a487d04896eeef29e)) ROM_LOAD("skijump3.bin", 0x0800, 0x0400, CRC(9a8731c0) SHA1(9f7aaa8c6df04b925c8beff8b426c59bc3696f50)) ROM_LOAD("skijump4.bin", 0x1400, 0x0400, CRC(fa064b51) SHA1(d4d02ca661e4084805f00247f31c0701320ab62d)) ROM_END /*-------------------------------- / Space City (09/79) /-------------------------------*/ ROM_START(spacecty) ROM_REGION(0x8000, "maincpu", 0) ROM_LOAD("zsc1.dat", 0x0000, 0x0400, CRC(4405368f) SHA1(037ad7e7158424bb714b28e4effa2c96c8736ce4)) ROM_LOAD("zsc2.dat", 0x0400, 0x0400, CRC(a6c41475) SHA1(7d7d851efb2db7d9a1988265cdff676260d753c3)) ROM_LOAD("zsc3.dat", 0x0800, 0x0400, CRC(e6a2dcee) SHA1(d2dfff896ae90208c28179f9bbe43f93d7f2131c)) ROM_LOAD("zsc4.dat", 0x1400, 0x0400, CRC(69e0bb95) SHA1(d9a1d0159bf49445b0ece0f9d7806ed80657c2b2)) ROM_END GAME(1978, skijump, 0, zac_proto, zac_proto, zac_proto_state, empty_init, ROT0, "Zaccaria", "Ski Jump", MACHINE_MECHANICAL | MACHINE_NOT_WORKING | MACHINE_IMPERFECT_SOUND ) GAME(1979, spacecty, 0, zac_proto, zac_proto, zac_proto_state, empty_init, ROT0, "Zaccaria", "Space City", MACHINE_MECHANICAL | MACHINE_NOT_WORKING | MACHINE_IMPERFECT_SOUND ) GAME(1978, strike, 0, zac_proto, zac_proto, zac_proto_state, empty_init, ROT0, "Zaccaria", "Strike", MACHINE_MECHANICAL | MACHINE_NOT_WORKING | MACHINE_IMPERFECT_SOUND )