// license:BSD-3-Clause
// copyright-holders:MetalliC
/*************************************************************************
Istrebiteli driver by MetalliC
TODO:
hardware-like noice sound generation
accurate sprite collision
how to play:
insert one or more coins, each coin gives 2 minutes of play time, then press 1 or 2 player game start
hit enemy 15 or more times to get bonus game
test mode:
insert 12 or more coins then press 2 player start
notes:
dumped PCB is early game version, have several bugs, possible test/prototype.
later version was seen in St.Petersburg arcade museum, CPU board have single 8Kx8 ROM.
**************************************************************************/
#include "emu.h"
#include "cpu/i8085/i8085.h"
#include "machine/i8255.h"
#include "screen.h"
#include "speaker.h"
#define I8080_TAG "maincpu"
/////////////////////////////////////////////////////////////
class istrebiteli_sound_device : public device_t,
public device_sound_interface
{
public:
istrebiteli_sound_device(const machine_config &mconfig, const char *tag, device_t *owner, uint32_t clock);
void sound_w(uint8_t data);
protected:
// device-level overrides
virtual void device_start() override;
// sound stream update overrides
virtual void sound_stream_update(sound_stream &stream, stream_sample_t **inputs, stream_sample_t **outputs, int samples) override;
private:
// internal state
sound_stream *m_channel;
uint8_t *m_rom;
int m_rom_cnt;
int m_rom_incr;
int m_sample_num;
bool m_cnt_reset;
bool m_rom_out_en;
uint8_t m_prev_data;
};
DECLARE_DEVICE_TYPE(ISTREBITELI_SOUND, istrebiteli_sound_device)
//////////////////////////////////////////////////////////////
DEFINE_DEVICE_TYPE(ISTREBITELI_SOUND, istrebiteli_sound_device, "istrebiteli_sound", "Istrebiteli Sound")
istrebiteli_sound_device::istrebiteli_sound_device(const machine_config &mconfig, const char *tag, device_t *owner, uint32_t clock)
: device_t(mconfig, ISTREBITELI_SOUND, tag, owner, clock),
device_sound_interface(mconfig, *this),
m_channel(nullptr),
m_rom(nullptr),
m_rom_cnt(0),
m_rom_incr(0),
m_sample_num(0),
m_cnt_reset(true),
m_rom_out_en(false),
m_prev_data(0)
{
}
void istrebiteli_sound_device::device_start()
{
m_channel = stream_alloc(0, 1, clock() / 2);
m_rom = machine().root_device().memregion("soundrom")->base();
}
void istrebiteli_sound_device::sound_stream_update(sound_stream &stream, stream_sample_t **inputs, stream_sample_t **outputs, int samples)
{
stream_sample_t *sample = outputs[0];
while (samples-- > 0)
{
int smpl = 0;
if (m_rom_out_en)
smpl = (m_rom[m_rom_cnt] >> m_sample_num) & 1;
// below is huge guess
if ((m_prev_data & 0x40) == 0) // b6 noice enable ?
smpl &= machine().rand() & 1;
smpl *= (m_prev_data & 0x80) ? 1000 : 4000; // b7 volume ?
*sample++ = smpl;
m_rom_cnt = (m_rom_cnt + m_rom_incr) & 0x1ff;
}
}
void istrebiteli_sound_device::sound_w(uint8_t data)
{
m_cnt_reset = (data & 2) ? true : false;
m_sample_num = (data >> 2) & 7;
m_rom_out_en = (data & 0x20) ? false : true;
if (m_cnt_reset)
{
m_rom_cnt = 0;
m_rom_incr = 0;
}
else
m_rom_incr = 1;
// if (m_prev_data != data)
// printf("sound %02X rescnt %d sample %d outen %d b6 %d b7 %d\n", data, (data >> 1) & 1, (data >> 2) & 7, (data >> 5) & 1, (data >> 6) & 1, (data >> 7) & 1);
m_prev_data = data;
}
//////////////////////////////////////////////////////////////
class istrebiteli_state : public driver_device
{
public:
istrebiteli_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag)
, m_maincpu(*this, I8080_TAG)
, m_ppi0(*this, "ppi0")
, m_ppi1(*this, "ppi1")
, m_gfxdecode(*this, "gfxdecode")
, m_sound_dev(*this, "custom")
{
}
DECLARE_PALETTE_INIT(istrebiteli);
DECLARE_READ8_MEMBER(ppi0_r);
DECLARE_WRITE8_MEMBER(ppi0_w);
DECLARE_READ8_MEMBER(ppi1_r);
DECLARE_WRITE8_MEMBER(ppi1_w);
DECLARE_WRITE8_MEMBER(sound_w);
DECLARE_WRITE8_MEMBER(spr0_ctrl_w);
DECLARE_WRITE8_MEMBER(spr1_ctrl_w);
DECLARE_WRITE8_MEMBER(spr_xy_w);
DECLARE_WRITE8_MEMBER(tileram_w);
DECLARE_CUSTOM_INPUT_MEMBER(collision_r);
DECLARE_CUSTOM_INPUT_MEMBER(coin_r);
DECLARE_INPUT_CHANGED_MEMBER(coin_inc);
required_device<cpu_device> m_maincpu;
required_device<i8255_device> m_ppi0;
required_device<i8255_device> m_ppi1;
required_device<gfxdecode_device> m_gfxdecode;
required_device<istrebiteli_sound_device> m_sound_dev;
virtual void machine_start() override;
virtual void machine_reset() override;
virtual void video_start() override;
TILE_GET_INFO_MEMBER(get_tile_info);
tilemap_t *m_tilemap;
uint32_t screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect);
uint8_t coin_count;
uint8_t m_spr_ctrl[2];
uint8_t m_spr_collision[2];
uint8_t m_spr_xy[8];
uint8_t m_tileram[16];
void istreb(machine_config &config);
void io_map(address_map &map);
void mem_map(address_map &map);
};
void istrebiteli_state::machine_start()
{
save_item(NAME(coin_count));
save_item(NAME(m_spr_ctrl));
save_item(NAME(m_spr_collision));
save_item(NAME(m_spr_xy));
save_item(NAME(m_tileram));
}
void istrebiteli_state::machine_reset()
{
coin_count = 0;
memset(m_spr_ctrl, 0, sizeof(m_spr_ctrl));
memset(m_spr_collision, 0, sizeof(m_spr_collision));
memset(m_spr_xy, 0, sizeof(m_spr_xy));
memset(m_tileram, 0, sizeof(m_tileram));
}
static const rgb_t istreb_palette[4] = {
rgb_t(0x00, 0x00, 0x00),
rgb_t(0x00, 0x00, 0xff),
rgb_t(0xff, 0xff, 0xff),
rgb_t(0x00, 0x00, 0xff)
};
PALETTE_INIT_MEMBER(istrebiteli_state,istrebiteli)
{
palette.set_pen_colors(0, istreb_palette, ARRAY_LENGTH(istreb_palette));
}
TILE_GET_INFO_MEMBER(istrebiteli_state::get_tile_info)
{
SET_TILE_INFO_MEMBER(0, m_tileram[tile_index] & 0x1f, 0, 0);
}
void istrebiteli_state::video_start()
{
uint8_t *gfx = memregion("sprite")->base();
uint8_t temp[64];
for (int offs = 0; offs < 0x200; offs += 0x40)
{
memset(&temp[0], 0, 64);
for (int spnum = 0; spnum < 8; spnum++)
for (int dot = 0; dot < 64; dot++)
temp[(dot >> 3) + spnum * 8] |= ((gfx[offs + dot] >> spnum) & 1) << (dot & 7);
memcpy(&gfx[offs], &temp[0], 64);
}
m_tilemap = &machine().tilemap().create(*m_gfxdecode, tilemap_get_info_delegate(FUNC(istrebiteli_state::get_tile_info), this), TILEMAP_SCAN_ROWS,
8, 16, 16, 1);
m_tilemap->set_scrolldx(96, 96);
}
uint32_t istrebiteli_state::screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
{
bitmap.fill(1);
rectangle rect = cliprect;
rect.offset(32, 64);
rect.set_size(16*8, 16);
m_tilemap->draw(screen, bitmap, rect, 0, 0);
m_gfxdecode->gfx(3)->transpen(bitmap, cliprect, (m_spr_ctrl[0] & 0x40) ? 5 : 7, 0, 0, 0, m_spr_xy[4], m_spr_xy[5], 1);
m_gfxdecode->gfx(3)->transpen(bitmap, cliprect, (m_spr_ctrl[1] & 0x40) ? 4 : 6, 0, 0, 0, m_spr_xy[6], m_spr_xy[7], 1);
int spritecode;
spritecode = (m_spr_ctrl[0] & 0x1f) + ((m_spr_ctrl[0] & 0x80) >> 2);
m_gfxdecode->gfx(1)->transpen(bitmap, cliprect, spritecode, 0, 0, 0, m_spr_xy[0], m_spr_xy[1], 1);
spritecode = (m_spr_ctrl[1] & 0x1f) + ((m_spr_ctrl[1] & 0x80) >> 2);
m_gfxdecode->gfx(2)->transpen(bitmap, cliprect, spritecode, 0, 0, 0, m_spr_xy[2], m_spr_xy[3], 1);
return 0;
}
WRITE8_MEMBER(istrebiteli_state::tileram_w)
{
offset ^= 15;
m_tileram[offset] = data;
m_tilemap->mark_tile_dirty(offset);
}
READ8_MEMBER(istrebiteli_state::ppi0_r)
{
return m_ppi0->read(space, offset ^ 3) ^ 0xff;
}
WRITE8_MEMBER(istrebiteli_state::ppi0_w)
{
m_ppi0->write(space, offset ^ 3, data ^ 0xff);
}
READ8_MEMBER(istrebiteli_state::ppi1_r)
{
return m_ppi1->read(space, offset ^ 3) ^ 0xff;
}
WRITE8_MEMBER(istrebiteli_state::ppi1_w)
{
m_ppi1->write(space, offset ^ 3, data ^ 0xff);
}
WRITE8_MEMBER(istrebiteli_state::sound_w)
{
machine().bookkeeping().coin_lockout_w(0, data & 1);
if (data & 1)
coin_count = 0;
m_sound_dev->sound_w(data);
}
WRITE8_MEMBER(istrebiteli_state::spr0_ctrl_w)
{
m_spr_ctrl[0] = data;
if (data & 0x80)
m_spr_collision[0] = 0;
}
WRITE8_MEMBER(istrebiteli_state::spr1_ctrl_w)
{
m_spr_ctrl[1] = data;
if (data & 0x80)
m_spr_collision[1] = 0;
}
WRITE8_MEMBER(istrebiteli_state::spr_xy_w)
{
m_spr_xy[offset ^ 7] = data;
}
void istrebiteli_state::mem_map(address_map &map)
{
map(0x0000, 0x0fff).rom();
map(0x1000, 0x13ff).ram();
}
void istrebiteli_state::io_map(address_map &map)
{
map.global_mask(0xff);
map.unmap_value_high();
map(0xb0, 0xbf).w(this, FUNC(istrebiteli_state::tileram_w));
map(0xc0, 0xc3).rw(this, FUNC(istrebiteli_state::ppi0_r), FUNC(istrebiteli_state::ppi0_w));
map(0xc4, 0xc7).rw(this, FUNC(istrebiteli_state::ppi1_r), FUNC(istrebiteli_state::ppi1_w));
map(0xc8, 0xcf).w(this, FUNC(istrebiteli_state::spr_xy_w));
}
CUSTOM_INPUT_MEMBER(istrebiteli_state::collision_r)
{
// piece of HACK
// real hardware does per-pixel sprite collision detection
int id = *(int*)¶m;
if ((m_spr_ctrl[id] & 0x80) == 0)
{
int sx = m_spr_xy[0 + id * 2];
int sy = m_spr_xy[1 + id * 2];
int px = m_spr_xy[6 - id * 2] + 3;
int py = m_spr_xy[7 - id * 2] + 3;
if (sx > 56 && px >= sx && px < (sx + 8) && py >= sy && py < (sy + 8))
m_spr_collision[id] |= 1;
}
return m_spr_collision[id];
}
CUSTOM_INPUT_MEMBER(istrebiteli_state::coin_r)
{
return coin_count;
}
INPUT_CHANGED_MEMBER(istrebiteli_state::coin_inc)
{
if (oldval == 0 && newval == 1)
++coin_count;
}
static INPUT_PORTS_START( istreb )
PORT_START("IN0")
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT) PORT_PLAYER(1)
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT) PORT_PLAYER(1)
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_UP) PORT_PLAYER(1)
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN) PORT_PLAYER(1)
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_BUTTON1) PORT_PLAYER(1)
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_CUSTOM) PORT_CUSTOM_MEMBER(DEVICE_SELF, istrebiteli_state, collision_r, 1)
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED)
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED)
PORT_START("IN1")
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT) PORT_PLAYER(2)
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT) PORT_PLAYER(2)
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_UP) PORT_PLAYER(2)
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN) PORT_PLAYER(2)
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_BUTTON1) PORT_PLAYER(2)
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_CUSTOM) PORT_CUSTOM_MEMBER(DEVICE_SELF, istrebiteli_state, collision_r, 0)
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED)
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED)
PORT_START("IN2")
PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_START1)
PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_START2)
PORT_BIT(0x3c, IP_ACTIVE_HIGH, IPT_CUSTOM) PORT_CUSTOM_MEMBER(DEVICE_SELF, istrebiteli_state, coin_r, nullptr)
PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_CUSTOM) PORT_HBLANK("screen")
PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_CUSTOM) PORT_VBLANK("screen")
PORT_START("COIN")
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_COIN1 ) PORT_IMPULSE(1) PORT_CHANGED_MEMBER(DEVICE_SELF, istrebiteli_state,coin_inc, nullptr)
INPUT_PORTS_END
static const gfx_layout char_layout =
{
8,16,
32,
1,
{ 0 },
{ 7,6,5,4,3,2,1,0 },
{ 0*8,1*8,2*8,3*8,4*8,5*8,6*8,7*8,8*8,9*8,10*8,11*8,12*8,13*8,14*8,15*8 },
8*16
};
static const gfx_layout sprite_layout =
{
8,8,
64,
1,
{ 0 },
{ 0,1,2,3,4,5,6,7 },
{ 7*8,6*8,5*8,4*8,3*8,2*8,1*8,0*8 },
8*8
};
static const gfx_layout projectile_layout =
{
16,16,
8,
1,
{ 0 },
{ 15*8,14*8,13*8,12*8,11*8,10*8,9*8,8*8,7*8,6*8,5*8,4*8,3*8,2*8,1*8,0*8 },
{ 15*128,14*128,13*128,12*128,11*128,10*128,9*128,8*128,7*128,6*128,5*128,4*128,3*128,2*128,1*128,0*128 },
1
};
static GFXDECODE_START( gfx_istrebiteli )
GFXDECODE_ENTRY( "chars", 0x0000, char_layout, 0, 2 )
GFXDECODE_ENTRY( "sprite", 0x0000, sprite_layout, 2, 2 )
GFXDECODE_ENTRY( "sprite", 0x0000, sprite_layout, 0, 2 )
GFXDECODE_ENTRY( "sprite", 0x0200, projectile_layout, 0, 2 )
GFXDECODE_END
MACHINE_CONFIG_START(istrebiteli_state::istreb)
/* basic machine hardware */
MCFG_DEVICE_ADD(I8080_TAG, I8080, XTAL(8'000'000) / 4) // KR580VM80A
MCFG_DEVICE_PROGRAM_MAP(mem_map)
MCFG_DEVICE_IO_MAP(io_map)
MCFG_DEVICE_ADD("ppi0", I8255A, 0)
MCFG_I8255_IN_PORTA_CB(IOPORT("IN1"))
MCFG_I8255_IN_PORTB_CB(IOPORT("IN0"))
MCFG_I8255_OUT_PORTC_CB(WRITE8(*this, istrebiteli_state, sound_w))
MCFG_DEVICE_ADD("ppi1", I8255A, 0)
MCFG_I8255_OUT_PORTA_CB(WRITE8(*this, istrebiteli_state, spr0_ctrl_w))
MCFG_I8255_OUT_PORTB_CB(WRITE8(*this, istrebiteli_state, spr1_ctrl_w))
MCFG_I8255_IN_PORTC_CB(IOPORT("IN2"))
/* video hardware */
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_RAW_PARAMS(XTAL(8'000'000) / 2, 256, 64, 256, 312, 0, 256)
MCFG_SCREEN_UPDATE_DRIVER(istrebiteli_state, screen_update)
MCFG_SCREEN_PALETTE("palette")
MCFG_DEVICE_ADD("gfxdecode", GFXDECODE, "palette", gfx_istrebiteli)
MCFG_PALETTE_ADD("palette", 4)
MCFG_PALETTE_INIT_OWNER(istrebiteli_state, istrebiteli)
/* sound hardware */
SPEAKER(config, "mono").front_center();
MCFG_DEVICE_ADD("custom", ISTREBITELI_SOUND, XTAL(8'000'000) / 2 / 256)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 1.00)
MACHINE_CONFIG_END
ROM_START( istreb )
ROM_REGION( 0x1000, I8080_TAG, ROMREGION_ERASEFF )
ROM_LOAD( "002-ia12.bin", 0x000, 0x200, CRC(de0bce75) SHA1(ca284e8220d0d55c1a4dd3e951b53404f40fc873) )
ROM_LOAD( "002-ia9.bin", 0x200, 0x200, CRC(e9a93ee7) SHA1(63c2001140d2b30657fceca97a639b1acbf614c2) )
ROM_LOAD( "002-ib11-2.bin", 0x400, 0x200, CRC(4bb8b875) SHA1(230193e08586f4585fe98b2b31c4c8aa57a83e70) )
ROM_LOAD( "002-ib9.bin", 0x600, 0x200, CRC(4eb948b5) SHA1(e9926591d1b0c528630b54956993c01139c58913) )
ROM_LOAD( "002-ib13.bin", 0x800, 0x200, CRC(4fec5b14) SHA1(72b01c28882d567cad6924e05849438e5fe7a133) )
ROM_REGION( 0x200, "chars", 0 )
ROM_LOAD( "003-g8.bin", 0x000, 0x200, CRC(5cd7ad47) SHA1(2142711c8a3640b7aa258a2059cfb0f14297a5ac) )
ROM_REGION( 0x1000, "sprite", 0 )
ROM_LOAD( "001-g4.bin", 0x000, 0x200, CRC(ca3c531b) SHA1(8295167895d51e626b6d5946b565d5e8b8466ac0) )
ROM_LOAD( "001-g9.bin", 0x000, 0x200, CRC(ca3c531b) SHA1(8295167895d51e626b6d5946b565d5e8b8466ac0) )
ROM_LOAD( "001-a11.bin", 0x200, 0x100, CRC(4e05b7dd) SHA1(335e975ae9e8f775c1ac07f60420680ad878c3ae) )
ROM_LOAD( "001-b11.bin", 0x200, 0x100, CRC(4e05b7dd) SHA1(335e975ae9e8f775c1ac07f60420680ad878c3ae) )
ROM_REGION(0x200, "soundrom", 0)
ROM_LOAD( "003-w3.bin", 0x000, 0x200, CRC(54eb4893) SHA1(c7a4724045c645ab728074ed7fef1882d9776005) )
ROM_END
// hardware is similar to Istrebiteli, but RAM location and IO is different
ROM_START( motogonki )
ROM_REGION( 0x2000, I8080_TAG, ROMREGION_ERASEFF )
ROM_LOAD( "005_mb3.b2", 0x000, 0x2000, CRC(4dd35ed6) SHA1(6a0ee9e370634e501b6ee15a9747a491b745a205) )
ROM_REGION( 0x200, "chars", 0 )
ROM_LOAD( "003_ig8.g8", 0x000, 0x200, CRC(9af1e9de) SHA1(4bc89bc0c1f229ca3ebee983ae2fb3910d8ca599) )
ROM_REGION( 0x1000, "sprite", 0 ) // gfx layout is not correct
ROM_LOAD( "006_b1.b1", 0x000, 0x200, CRC(ae9820fb) SHA1(7727d20e314aee670ba36ca6ea7ca5a4da0fc1cd) )
ROM_LOAD( "006_02.b5", 0x200, 0x200, CRC(e5c17daf) SHA1(1b6ffeba7dd98da11e5eb953280dd53f0f77fa7f) )
ROM_LOAD( "006_03.b7", 0x400, 0x200, CRC(e1731d8d) SHA1(744fd768754a65a66bfcdb1959b4d6796bff4fcb) )
ROM_LOAD( "006_05.b3", 0x600, 0x100, CRC(7dc4f9c9) SHA1(8a40f9f021b1662b1c638c7fdcefead1687ca4f1) )
ROM_LOAD( "006_01.d3", 0x700, 0x100, CRC(b53b83c9) SHA1(8f9733c827cc9aacc7c182585dcbc5da01357468) )
ROM_LOAD( "006_04.w13", 0x800, 0x100, CRC(6d6441f6) SHA1(999356e5b31a03c667d6cb975210e058e340509e) )
ROM_REGION(0x200, "soundrom", 0)
ROM_LOAD( "003_iw3.w3", 0x000, 0x200, CRC(814854ba) SHA1(2cbfd60df01f00d7659393efa58547de660bf201) )
ROM_END
GAME( 198?, istreb, 0, istreb, istreb, istrebiteli_state, empty_init, ROT0, "Terminal", "Istrebiteli", MACHINE_IMPERFECT_SOUND | MACHINE_SUPPORTS_SAVE)
GAME( 198?, motogonki, 0, istreb, istreb, istrebiteli_state, empty_init, ROT0, "Terminal", "Motogonki", MACHINE_NOT_WORKING | MACHINE_NO_SOUND)