New games added or promoted from NOT_WORKING status

---------------------------------------------------
Dongfang Shenlong [Luca Elia, Guru, Dyq, bnathan]
This commit is contained in:
Luca Elia 2014-08-16 15:07:53 +00:00
parent 3ba633e900
commit 7bd53ae557

View File

@ -1,11 +1,11 @@
/*
/************************************************************************************************************
similar to koftball.c?
An (unknown) gambling / poker game with sub-games
Dongfang Shenlong ("Eastern Dragon")
BMC 1999
driver by Luca Elia
Similar to bmcbowl, koftball, popobear
PCB Layout
----------
@ -38,10 +38,15 @@ Notes:
HSync - 15.440kHz
VSync - 58.935Hz
*/
************************************************************************************************************/
#include "emu.h"
#include "cpu/m68000/m68000.h"
#include "sound/2413intf.h"
#include "sound/okim6295.h"
#include "video/ramdac.h"
#include "machine/nvram.h"
#include "machine/ticket.h"
class bmcpokr_state : public driver_device
{
@ -49,222 +54,603 @@ public:
bmcpokr_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag),
m_maincpu(*this,"maincpu"),
m_videoram(*this, "videoram"),
m_hopper(*this,"hopper"),
m_videoram_1(*this, "videoram_1"),
m_videoram_2(*this, "videoram_2"),
m_scrollram_1(*this, "scrollram_1"),
m_scrollram_2(*this, "scrollram_2"),
m_scrollram_3(*this, "scrollram_3"),
m_pixram(*this, "pixram"),
m_priority(*this, "priority"),
m_layerctrl(*this, "layerctrl"),
m_gfxdecode(*this, "gfxdecode"),
m_palette(*this, "palette")
{ }
DECLARE_READ16_MEMBER( bmcpokr_unk_r )
{
return space.machine().rand();
}
required_device<cpu_device> m_maincpu;
required_shared_ptr<UINT16> m_videoram;
required_device<ticket_dispenser_device> m_hopper;
required_shared_ptr<UINT16> m_videoram_1;
required_shared_ptr<UINT16> m_videoram_2;
required_shared_ptr<UINT16> m_scrollram_1;
required_shared_ptr<UINT16> m_scrollram_2;
required_shared_ptr<UINT16> m_scrollram_3;
required_shared_ptr<UINT16> m_pixram;
required_shared_ptr<UINT16> m_priority;
required_shared_ptr<UINT16> m_layerctrl;
required_device<gfxdecode_device> m_gfxdecode;
required_device<palette_device> m_palette;
tilemap_t *m_tilemap_1;
tilemap_t *m_tilemap_2;
TILE_GET_INFO_MEMBER(get_t1_tile_info);
TILE_GET_INFO_MEMBER(get_t2_tile_info);
TILE_GET_INFO_MEMBER(get_t3_tile_info);
DECLARE_WRITE16_MEMBER(videoram_1_w);
DECLARE_WRITE16_MEMBER(videoram_2_w);
UINT16 m_prot_val;
DECLARE_READ16_MEMBER(prot_r);
DECLARE_WRITE16_MEMBER(prot_w);
DECLARE_READ16_MEMBER(unk_r);
UINT16 m_mux;
DECLARE_WRITE16_MEMBER(mux_w);
DECLARE_READ16_MEMBER(dsw_r);
DECLARE_CUSTOM_INPUT_MEMBER(hopper_r);
UINT16 m_irq_enable;
DECLARE_WRITE16_MEMBER(irq_enable_w);
DECLARE_WRITE16_MEMBER(irq_ack_w);
bitmap_ind16 *m_pixbitmap;
void pixbitmap_redraw();
UINT16 m_pixpal;
DECLARE_WRITE16_MEMBER(pixram_w);
DECLARE_WRITE16_MEMBER(pixpal_w);
virtual void video_start();
void draw_layer(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect, int layer);
UINT32 screen_update_bmcpokr(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect);
TIMER_DEVICE_CALLBACK_MEMBER(interrupt);
void save_state()
{
save_item(NAME(m_prot_val));
save_item(NAME(m_mux));
save_item(NAME(m_irq_enable));
save_item(NAME(m_pixpal));
machine().save().register_postload(save_prepost_delegate(FUNC(bmcpokr_state::pixbitmap_redraw), this));
}
};
/***************************************************************************
Video Hardware
***************************************************************************/
// Tilemaps
WRITE16_MEMBER(bmcpokr_state::videoram_1_w)
{
COMBINE_DATA(&m_videoram_1[offset]);
m_tilemap_1->mark_tile_dirty(offset);
}
WRITE16_MEMBER(bmcpokr_state::videoram_2_w)
{
COMBINE_DATA(&m_videoram_2[offset]);
m_tilemap_2->mark_tile_dirty(offset);
}
TILE_GET_INFO_MEMBER(bmcpokr_state::get_t1_tile_info)
{
UINT16 data = m_videoram_1[tile_index];
SET_TILE_INFO_MEMBER(0, data, 0, (data & 0x8000) ? TILE_FLIPX : 0);
}
TILE_GET_INFO_MEMBER(bmcpokr_state::get_t2_tile_info)
{
UINT16 data = m_videoram_2[tile_index];
SET_TILE_INFO_MEMBER(0, data, 0, (data & 0x8000) ? TILE_FLIPX : 0);
}
void bmcpokr_state::video_start()
{
m_tilemap_1 = &machine().tilemap().create(m_gfxdecode, tilemap_get_info_delegate(FUNC(bmcpokr_state::get_t1_tile_info),this),TILEMAP_SCAN_ROWS,8,8,128,128);
m_tilemap_2 = &machine().tilemap().create(m_gfxdecode, tilemap_get_info_delegate(FUNC(bmcpokr_state::get_t2_tile_info),this),TILEMAP_SCAN_ROWS,8,8,128,128);
m_tilemap_1->set_transparent_pen(0);
m_tilemap_2->set_transparent_pen(0);
m_tilemap_1->set_scroll_rows(1);
m_tilemap_2->set_scroll_rows(1);
m_tilemap_1->set_scroll_cols(1);
m_tilemap_2->set_scroll_cols(1);
m_pixbitmap = auto_bitmap_ind16_alloc(machine(), 0x400, 0x200);
save_state();
}
// 1024 x 512 bitmap. 4 bits per pixel (every byte encodes 2 pixels) + palette register
WRITE16_MEMBER(bmcpokr_state::pixram_w)
{
COMBINE_DATA(&m_pixram[offset]);
int x = (offset & 0xff) << 2;
int y = (offset >> 8);
UINT16 pixpal = (m_pixpal & 0xf) * 0x10;
UINT16 pen;
if (ACCESSING_BITS_8_15)
{
pen = (data >> 12) & 0xf; m_pixbitmap->pix16(y, x + 0) = pen ? pixpal + pen : 0;
pen = (data >> 8) & 0xf; m_pixbitmap->pix16(y, x + 1) = pen ? pixpal + pen : 0;
}
if (ACCESSING_BITS_0_7)
{
pen = (data >> 4) & 0xf; m_pixbitmap->pix16(y, x + 2) = pen ? pixpal + pen : 0;
pen = (data >> 0) & 0xf; m_pixbitmap->pix16(y, x + 3) = pen ? pixpal + pen : 0;
}
}
void bmcpokr_state::pixbitmap_redraw()
{
UINT16 pixpal = (m_pixpal & 0xf) * 0x10;
int offset = 0;
for (int y = 0; y < 512; y++)
{
for (int x = 0; x < 1024; x += 4)
{
UINT16 data = m_pixram[offset++];
UINT16 pen;
pen = (data >> 12) & 0xf; m_pixbitmap->pix16(y, x + 0) = pen ? pixpal + pen : 0;
pen = (data >> 8) & 0xf; m_pixbitmap->pix16(y, x + 1) = pen ? pixpal + pen : 0;
pen = (data >> 4) & 0xf; m_pixbitmap->pix16(y, x + 2) = pen ? pixpal + pen : 0;
pen = (data >> 0) & 0xf; m_pixbitmap->pix16(y, x + 3) = pen ? pixpal + pen : 0;
}
}
}
WRITE16_MEMBER(bmcpokr_state::pixpal_w)
{
UINT16 old = m_pixpal;
if (old != COMBINE_DATA(&m_pixpal))
pixbitmap_redraw();
}
// Screen update
void bmcpokr_state::draw_layer(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect, int layer)
{
tilemap_t *tmap;
UINT16 *scroll;
UINT16 ctrl;
switch (layer)
{
case 1: tmap = m_tilemap_1; scroll = m_scrollram_1; ctrl = (m_layerctrl[0] >> 8) & 0xff; break;
case 2: tmap = m_tilemap_2; scroll = m_scrollram_2; ctrl = (m_layerctrl[0] >> 0) & 0xff; break;
default: tmap = 0; scroll = m_scrollram_3; ctrl = (m_layerctrl[1] >> 8) & 0xff; break;
}
if (ctrl == 0x00)
return;
bool linescroll = (ctrl == 0x1f);
rectangle clip = cliprect;
for (int y = 0; y < 0x100; y++)
{
if (linescroll)
{
if ( (y < cliprect.min_y) || (y > cliprect.max_y) )
continue;
clip.min_y = y;
clip.max_y = y;
}
int sx = (scroll[y] & 0xff) * 4;
int sy = ((scroll[y] >> 8) & 0xff) - y;
if (tmap)
{
tmap->set_scrollx(0, sx);
tmap->set_scrolly(0, sy);
tmap->draw(screen, bitmap, clip, 0, 0);
}
else
{
sx = -sx;
sy = -sy;
copyscrollbitmap_trans(bitmap, *m_pixbitmap, 1, &sx, 1, &sy, cliprect, 0);
}
if (!linescroll)
return;
}
}
UINT32 bmcpokr_state::screen_update_bmcpokr(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
{
int layers_ctrl = -1;
#ifdef MAME_DEBUG
if (screen.machine().input().code_pressed(KEYCODE_Z))
{
int msk = 0;
if (screen.machine().input().code_pressed(KEYCODE_Q)) msk |= 1;
if (screen.machine().input().code_pressed(KEYCODE_W)) msk |= 2;
if (screen.machine().input().code_pressed(KEYCODE_A)) msk |= 4;
if (msk != 0) layers_ctrl &= msk;
}
#endif
bitmap.fill(m_palette->black_pen(), cliprect);
if (layers_ctrl & 2) draw_layer(screen, bitmap, cliprect, 2);
/*
title: 17, 13/17
dogs: 1b, 13, 17
service: 17
game: 17
*/
if (*m_priority & 0x0008)
{
if (layers_ctrl & 4) draw_layer(screen, bitmap, cliprect, 3);
if (layers_ctrl & 1) draw_layer(screen, bitmap, cliprect, 1);
}
else
{
if (layers_ctrl & 1) draw_layer(screen, bitmap, cliprect, 1);
if (layers_ctrl & 4) draw_layer(screen, bitmap, cliprect, 3);
}
return 0;
}
/***************************************************************************
Protection
***************************************************************************/
READ16_MEMBER(bmcpokr_state::unk_r)
{
return space.machine().rand();
}
// Hack!
READ16_MEMBER(bmcpokr_state::prot_r)
{
switch (m_prot_val >> 8)
{
case 0x00: return 0x1d << 8;
case 0x94: return 0x81 << 8;
}
return 0x00 << 8;
}
WRITE16_MEMBER(bmcpokr_state::prot_w)
{
COMBINE_DATA(&m_prot_val);
// logerror("%s: prot val = %04x\n", machine().describe_context(), m_prot_val);
}
/***************************************************************************
Memory Maps
***************************************************************************/
WRITE16_MEMBER(bmcpokr_state::mux_w)
{
COMBINE_DATA(&m_mux);
if (ACCESSING_BITS_0_7)
{
m_hopper->write(space, 0, (data & 0x0001) ? 0x80 : 0x00); // hopper motor
coin_counter_w(machine(), 1, data & 0x0002); // coin-in / key-in
coin_counter_w(machine(), 2, data & 0x0004); // pay-out
// data & 0x0060 // DSW mux
// data & 0x0080 // ? always on
}
// popmessage("mux %04x", m_mux);
}
READ16_MEMBER(bmcpokr_state::dsw_r)
{
switch ((m_mux >> 5) & 3)
{
case 0: return ioport("DSW4")->read() << 8;
case 1: return ioport("DSW3")->read() << 8;
case 2: return ioport("DSW2")->read() << 8;
case 3: return ioport("DSW1")->read() << 8;
}
return 0xff << 8;
}
CUSTOM_INPUT_MEMBER(bmcpokr_state::hopper_r)
{
// motor off should clear the sense bit (I guess ticket.c should actually do this).
// Otherwise a hopper bit stuck low will prevent several keys from being registered.
return (m_mux & 0x0001) ? m_hopper->line_r() : 1;
}
WRITE16_MEMBER(bmcpokr_state::irq_enable_w)
{
COMBINE_DATA(&m_irq_enable);
}
WRITE16_MEMBER(bmcpokr_state::irq_ack_w)
{
if (ACCESSING_BITS_0_7)
{
for (int i = 1; i < 8; i++)
{
if (data & (1 << i))
{
m_maincpu->set_input_line(i, CLEAR_LINE);
}
}
}
}
static ADDRESS_MAP_START( bmcpokr_mem, AS_PROGRAM, 16, bmcpokr_state )
AM_RANGE(0x000000, 0x03ffff) AM_ROM
AM_RANGE(0x210000, 0x21ffff) AM_RAM
AM_RANGE(0x210000, 0x21ffff) AM_RAM AM_SHARE("nvram")
AM_RANGE(0x2c0000, 0x2dffff) AM_RAM AM_SHARE("videoram")
AM_RANGE(0x280000, 0x287fff) AM_RAM_WRITE(videoram_1_w) AM_SHARE("videoram_1")
AM_RANGE(0x288000, 0x28ffff) AM_RAM_WRITE(videoram_2_w) AM_SHARE("videoram_2")
AM_RANGE(0x290000, 0x297fff) AM_RAM
AM_RANGE(0x2FF800, 0x2FFFFF) AM_RAM
AM_RANGE(0x34001A, 0x34001B) AM_READ(bmcpokr_unk_r)
AM_RANGE(0x2a0000, 0x2dffff) AM_RAM_WRITE(pixram_w) AM_SHARE("pixram")
AM_RANGE(0x2ff800, 0x2ff9ff) AM_RAM AM_SHARE("scrollram_1")
AM_RANGE(0x2ffa00, 0x2ffbff) AM_RAM AM_SHARE("scrollram_2")
AM_RANGE(0x2ffc00, 0x2ffdff) AM_RAM AM_SHARE("scrollram_3")
AM_RANGE(0x2ffe00, 0x2fffff) AM_RAM
AM_RANGE(0x320000, 0x320003) AM_RAM AM_SHARE("layerctrl")
AM_RANGE(0x330000, 0x330001) AM_READWRITE(prot_r, prot_w)
AM_RANGE(0x340000, 0x340001) AM_RAM // 340001.b, rw
AM_RANGE(0x340002, 0x340003) AM_RAM // 340003.b, w(9d)
AM_RANGE(0x340006, 0x340007) AM_WRITE(irq_ack_w)
AM_RANGE(0x340008, 0x340009) AM_WRITE(irq_enable_w)
AM_RANGE(0x34000e, 0x34000f) AM_RAM AM_SHARE("priority") // 34000f.b, w (priority?)
AM_RANGE(0x340016, 0x340017) AM_WRITE(pixpal_w)
AM_RANGE(0x340018, 0x340019) AM_RAM // 340019.b, w
AM_RANGE(0x34001a, 0x34001b) AM_READ(unk_r) AM_WRITENOP
AM_RANGE(0x34001c, 0x34001d) AM_RAM // 34001d.b, w(0)
AM_RANGE(0x350000, 0x350001) AM_DEVWRITE8("ramdac",ramdac_device, index_w, 0x00ff )
AM_RANGE(0x350002, 0x350003) AM_DEVWRITE8("ramdac",ramdac_device, pal_w, 0x00ff )
AM_RANGE(0x350004, 0x350005) AM_DEVWRITE8("ramdac",ramdac_device, mask_w, 0x00ff )
AM_RANGE(0x360000, 0x360001) AM_READ(dsw_r)
AM_RANGE(0x370000, 0x370001) AM_READ_PORT("INPUTS")
AM_RANGE(0x380000, 0x380001) AM_WRITE(mux_w)
AM_RANGE(0x390000, 0x390003) AM_DEVWRITE8("ymsnd", ym2413_device, write, 0x00ff)
AM_RANGE(0x398000, 0x398001) AM_DEVREADWRITE8("oki", okim6295_device, read, write, 0x00ff)
AM_RANGE(0x3b0000, 0x3b0001) AM_READ_PORT("INPUTS2")
ADDRESS_MAP_END
/***************************************************************************
Input Ports
***************************************************************************/
static INPUT_PORTS_START( bmcpokr )
PORT_START("INPUTS")
// Poker controls:
PORT_BIT( 0x0001, IP_ACTIVE_LOW, IPT_GAMBLE_KEYIN ) PORT_CONDITION("DSW4",0x80,EQUALS,0x80) // KEY-IN [KEY-IN, credit +500]
PORT_BIT( 0x0002, IP_ACTIVE_LOW, IPT_POKER_HOLD5 ) PORT_CONDITION("DSW4",0x80,EQUALS,0x80) // HOLD 5
PORT_BIT( 0x0004, IP_ACTIVE_LOW, IPT_POKER_HOLD4 ) PORT_CONDITION("DSW4",0x80,EQUALS,0x80) // HOLD 4
PORT_BIT( 0x0008, IP_ACTIVE_LOW, IPT_POKER_HOLD2 ) PORT_CONDITION("DSW4",0x80,EQUALS,0x80) // HOLD 2
PORT_BIT( 0x0010, IP_ACTIVE_LOW, IPT_POKER_HOLD1 ) PORT_CONDITION("DSW4",0x80,EQUALS,0x80) // HOLD 1 [INSTRUCTIONS]
PORT_BIT( 0x0020, IP_ACTIVE_LOW, IPT_POKER_HOLD3 ) PORT_CONDITION("DSW4",0x80,EQUALS,0x80) // HOLD 3
PORT_BIT( 0x0040, IP_ACTIVE_LOW, IPT_GAMBLE_DEAL ) PORT_CONDITION("DSW4",0x80,EQUALS,0x80) // n.a. [START, ESC in service mode]
PORT_BIT( 0x0080, IP_ACTIVE_LOW, IPT_GAMBLE_TAKE ) PORT_CONDITION("DSW4",0x80,EQUALS,0x80) // SCORE
PORT_BIT( 0x0100, IP_ACTIVE_LOW, IPT_POKER_BET ) PORT_CONDITION("DSW4",0x80,EQUALS,0x80) // BET [BET, credit -1]
PORT_BIT( 0x0200, IP_ACTIVE_HIGH,IPT_SPECIAL ) PORT_CUSTOM_MEMBER(DEVICE_SELF, bmcpokr_state,hopper_r, NULL) // HP [HOPPER, credit -100]
PORT_SERVICE_NO_TOGGLE( 0x0400, IP_ACTIVE_LOW ) PORT_CONDITION("DSW4",0x80,EQUALS,0x80) // ACCOUNT [SERVICE MODE]
PORT_BIT( 0x0800, IP_ACTIVE_LOW, IPT_GAMBLE_KEYOUT ) PORT_CONDITION("DSW4",0x80,EQUALS,0x80) // KEY-OUT [KEY-OUT, no hopper]
PORT_BIT( 0x1000, IP_ACTIVE_LOW, IPT_GAMBLE_D_UP ) PORT_CONDITION("DSW4",0x80,EQUALS,0x80) // DOUBLE-UP
PORT_BIT( 0x2000, IP_ACTIVE_LOW, IPT_GAMBLE_LOW ) PORT_CONDITION("DSW4",0x80,EQUALS,0x80) // SMALL
PORT_BIT( 0x4000, IP_ACTIVE_LOW, IPT_GAMBLE_HIGH ) PORT_CONDITION("DSW4",0x80,EQUALS,0x80) // BIG
PORT_BIT( 0x8000, IP_ACTIVE_LOW, IPT_COIN1 ) PORT_CONDITION("DSW4",0x80,EQUALS,0x80) PORT_IMPULSE(5) // COIN-IN [COIN-IN, credit +100, coin-jam]
// Joystick controls:
PORT_BIT( 0x0001, IP_ACTIVE_LOW, IPT_GAMBLE_KEYIN ) PORT_CONDITION("DSW4",0x80,EQUALS,0x00) // B2 [KEY-IN, credit +500]
PORT_BIT( 0x0002, IP_ACTIVE_LOW, IPT_BUTTON3 ) PORT_PLAYER(1) PORT_CONDITION("DSW4",0x80,EQUALS,0x00) // C1
PORT_BIT( 0x0004, IP_ACTIVE_LOW, IPT_BUTTON2 ) PORT_PLAYER(1) PORT_CONDITION("DSW4",0x80,EQUALS,0x00) // B1
PORT_BIT( 0x0008, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT) PORT_PLAYER(1) PORT_CONDITION("DSW4",0x80,EQUALS,0x00) // <Right>1 (4th)
PORT_BIT( 0x0010, IP_ACTIVE_LOW, IPT_POKER_HOLD1 ) PORT_CONDITION("DSW4",0x80,EQUALS,0x00) // <Left>1 (3rd) [INSTRUCTIONS]
PORT_BIT( 0x0020, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_PLAYER(1) PORT_CONDITION("DSW4",0x80,EQUALS,0x00) // A1
PORT_BIT( 0x0040, IP_ACTIVE_LOW, IPT_GAMBLE_DEAL ) PORT_CONDITION("DSW4",0x80,EQUALS,0x00) // n.a. [START, ESC in service mode]
PORT_BIT( 0x0080, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_PLAYER(2) PORT_CONDITION("DSW4",0x80,EQUALS,0x00) // <Left>2 (3rd)
PORT_BIT( 0x0100, IP_ACTIVE_LOW, IPT_POKER_BET ) PORT_CONDITION("DSW4",0x80,EQUALS,0x00) // <Down>1 (2nd) [BET, credit -1]
// PORT_BIT( 0x0200, IP_ACTIVE_HIGH,IPT_SPECIAL ) PORT_CUSTOM_MEMBER(DEVICE_SELF, bmcpokr_state,hopper_r, NULL) // HP [HOPPER, credit -100]
PORT_SERVICE_NO_TOGGLE( 0x0400, IP_ACTIVE_LOW ) PORT_CONDITION("DSW4",0x80,EQUALS,0x00) // A2 [SERVICE MODE]
PORT_BIT( 0x0800, IP_ACTIVE_LOW, IPT_GAMBLE_KEYOUT ) PORT_CONDITION("DSW4",0x80,EQUALS,0x00) // C2 [KEY-OUT, no hopper]
PORT_BIT( 0x1000, IP_ACTIVE_LOW, IPT_GAMBLE_D_UP ) PORT_CONDITION("DSW4",0x80,EQUALS,0x00) // S1 [START, ESC in service mode]
PORT_BIT( 0x2000, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT) PORT_PLAYER(2) PORT_CONDITION("DSW4",0x80,EQUALS,0x00) // <Right>2 (4th)
PORT_BIT( 0x4000, IP_ACTIVE_LOW, IPT_JOYSTICK_UP ) PORT_PLAYER(1) PORT_CONDITION("DSW4",0x80,EQUALS,0x00) // <Up>1 (1st)
PORT_BIT( 0x8000, IP_ACTIVE_LOW, IPT_COIN1 ) PORT_CONDITION("DSW4",0x80,EQUALS,0x00) PORT_IMPULSE(5) // <coin-in> (1st) [COIN-IN, credit +100, coin-jam]
PORT_START("INPUTS2")
PORT_BIT( 0x0100, IP_ACTIVE_LOW, IPT_GAMBLE_PAYOUT ) // <coin-out> (2nd) [COIN-OUT, hopper (otherwise pay-error)]
PORT_START("DSW1")
PORT_DIPNAME( 0x01, 0x00, "DSW1:1" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x01, DEF_STR( On ) )
PORT_DIPNAME( 0x02, 0x00, "DSW1:2" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x02, DEF_STR( On ) )
PORT_DIPNAME( 0x04, 0x00, "DSW1:3" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x04, DEF_STR( On ) )
PORT_DIPNAME( 0x08, 0x00, "DSW1:4" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x08, DEF_STR( On ) )
PORT_DIPNAME( 0x10, 0x00, "DSW1:5" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x10, DEF_STR( On ) )
PORT_DIPNAME( 0x20, 0x00, "DSW1:6" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x20, DEF_STR( On ) )
PORT_DIPNAME( 0x40, 0x00, "DSW1:7" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x40, DEF_STR( On ) )
PORT_DIPNAME( 0x80, 0x00, "DSW1:8" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x80, DEF_STR( On ) )
PORT_DIPNAME( 0x01, 0x00, DEF_STR( Demo_Sounds ) ) PORT_DIPLOCATION("DIP1:1")
PORT_DIPSETTING( 0x00, DEF_STR( Yes ) )
PORT_DIPSETTING( 0x01, DEF_STR( No ) )
PORT_DIPNAME( 0x02, 0x00, "Doube-Up Game" ) PORT_DIPLOCATION("DIP1:2")
PORT_DIPSETTING( 0x00, DEF_STR( Yes ) )
PORT_DIPSETTING( 0x02, DEF_STR( No ) )
PORT_DIPNAME( 0x04, 0x00, "Slot Machine" ) PORT_DIPLOCATION("DIP1:3")
PORT_DIPSETTING( 0x00, "Machinery" )
PORT_DIPSETTING( 0x04, "??" )
PORT_DIPNAME( 0x08, 0x00, "Poker Game" ) PORT_DIPLOCATION("DIP1:4")
PORT_DIPSETTING( 0x00, DEF_STR( Yes ) )
PORT_DIPSETTING( 0x08, DEF_STR( No ) )
PORT_DIPUNKNOWN_DIPLOC( 0x10, 0x10, "DIP1:5" )
PORT_DIPUNKNOWN_DIPLOC( 0x20, 0x20, "DIP1:6" )
PORT_DIPUNKNOWN_DIPLOC( 0x40, 0x40, "DIP1:7" )
PORT_DIPUNKNOWN_DIPLOC( 0x80, 0x80, "DIP1:8" )
PORT_START("DSW2")
PORT_DIPNAME( 0x01, 0x00, "DSW2:1" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x01, DEF_STR( On ) )
PORT_DIPNAME( 0x02, 0x00, "DSW2:2" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x02, DEF_STR( On ) )
PORT_DIPNAME( 0x04, 0x00, "DSW2:3" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x04, DEF_STR( On ) )
PORT_DIPNAME( 0x08, 0x00, "DSW2:4" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x08, DEF_STR( On ) )
PORT_DIPNAME( 0x10, 0x00, "DSW2:5" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x10, DEF_STR( On ) )
PORT_DIPNAME( 0x20, 0x00, "DSW2:6" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x20, DEF_STR( On ) )
PORT_DIPNAME( 0x40, 0x00, "DSW2:7" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x40, DEF_STR( On ) )
PORT_DIPNAME( 0x80, 0x00, "DSW2:8" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x80, DEF_STR( On ) )
PORT_DIPNAME( 0x03, 0x03, "Credit Limit" ) PORT_DIPLOCATION("DIP2:1,2")
PORT_DIPSETTING( 0x03, "5k" )
PORT_DIPSETTING( 0x02, "10k" )
PORT_DIPSETTING( 0x01, "50k" )
PORT_DIPSETTING( 0x00, "100k" )
PORT_DIPNAME( 0x0c, 0x0c, "Key-In Limit" ) PORT_DIPLOCATION("DIP2:3,4")
PORT_DIPSETTING( 0x0c, "5k" )
PORT_DIPSETTING( 0x08, "10k" )
PORT_DIPSETTING( 0x04, "20k" )
PORT_DIPSETTING( 0x00, "50k" )
PORT_DIPNAME( 0x10, 0x10, "Open Cards Mode" ) PORT_DIPLOCATION("DIP2:5")
PORT_DIPSETTING( 0x10, "Reels" )
PORT_DIPSETTING( 0x00, "Turn Over" )
PORT_DIPUNKNOWN_DIPLOC( 0x20, 0x20, "DIP2:6" )
PORT_DIPUNKNOWN_DIPLOC( 0x40, 0x40, "DIP2:7" )
PORT_DIPUNKNOWN_DIPLOC( 0x80, 0x80, "DIP2:8" )
PORT_START("DSW3")
PORT_DIPNAME( 0x01, 0x00, "DSW3:1" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x01, DEF_STR( On ) )
PORT_DIPNAME( 0x02, 0x00, "DSW3:2" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x02, DEF_STR( On ) )
PORT_DIPNAME( 0x04, 0x00, "DSW3:3" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x04, DEF_STR( On ) )
PORT_DIPNAME( 0x08, 0x00, "DSW3:4" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x08, DEF_STR( On ) )
PORT_DIPNAME( 0x10, 0x00, "DSW3:5" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x10, DEF_STR( On ) )
PORT_DIPNAME( 0x20, 0x00, "DSW3:6" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x20, DEF_STR( On ) )
PORT_DIPNAME( 0x40, 0x00, "DSW3:7" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x40, DEF_STR( On ) )
PORT_DIPNAME( 0x80, 0x00, "DSW3:8" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x80, DEF_STR( On ) )
PORT_DIPNAME( 0x03, 0x03, "Win Rate" ) PORT_DIPLOCATION("DIP3:1,2")
PORT_DIPSETTING( 0x02, "96" )
PORT_DIPSETTING( 0x01, "97" )
PORT_DIPSETTING( 0x03, "98" )
PORT_DIPSETTING( 0x00, "99" )
PORT_DIPNAME( 0x0c, 0x0c, "Double-Up Rate" ) PORT_DIPLOCATION("DIP3:3,4")
PORT_DIPSETTING( 0x08, "93" )
PORT_DIPSETTING( 0x04, "94" )
PORT_DIPSETTING( 0x00, "95" )
PORT_DIPSETTING( 0x0c, "96" )
PORT_DIPNAME( 0x10, 0x10, "Bonus Bet" ) PORT_DIPLOCATION("DIP3:5")
PORT_DIPSETTING( 0x10, "30" )
PORT_DIPSETTING( 0x00, "48" )
PORT_DIPUNKNOWN_DIPLOC( 0x20, 0x20, "DIP3:6" )
PORT_DIPUNKNOWN_DIPLOC( 0x40, 0x40, "DIP3:7" )
PORT_DIPUNKNOWN_DIPLOC( 0x80, 0x80, "DIP3:8" )
PORT_START("DSW4")
PORT_DIPNAME( 0x01, 0x00, "DSW4:1" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x01, DEF_STR( On ) )
PORT_DIPNAME( 0x02, 0x00, "DSW4:2" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x02, DEF_STR( On ) )
PORT_DIPNAME( 0x04, 0x00, "DSW4:3" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x04, DEF_STR( On ) )
PORT_DIPNAME( 0x08, 0x00, "DSW4:4" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x08, DEF_STR( On ) )
PORT_DIPNAME( 0x10, 0x00, "DSW4:5" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x10, DEF_STR( On ) )
PORT_DIPNAME( 0x20, 0x00, "DSW4:6" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x20, DEF_STR( On ) )
PORT_DIPNAME( 0x40, 0x00, "DSW4:7" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x40, DEF_STR( On ) )
PORT_DIPNAME( 0x80, 0x00, "DSW4:8" )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x80, DEF_STR( On ) )
PORT_DIPNAME( 0x01, 0x01, "Max Bet" ) PORT_DIPLOCATION("DIP4:1")
PORT_DIPSETTING( 0x01, "48" )
PORT_DIPSETTING( 0x00, "96" )
PORT_DIPNAME( 0x06, 0x06, "Min Bet" ) PORT_DIPLOCATION("DIP4:2,3")
PORT_DIPSETTING( 0x06, "6" )
PORT_DIPSETTING( 0x04, "12" )
PORT_DIPSETTING( 0x02, "18" )
PORT_DIPSETTING( 0x00, "30" )
PORT_DIPNAME( 0x18, 0x18, "Credits Per Coin" ) PORT_DIPLOCATION("DIP4:4,5")
PORT_DIPSETTING( 0x10, "10" )
PORT_DIPSETTING( 0x08, "20" )
PORT_DIPSETTING( 0x18, "50" )
PORT_DIPSETTING( 0x00, "100" )
PORT_DIPNAME( 0x60, 0x60, "Credits Per Key-In" ) PORT_DIPLOCATION("DIP4:6,7")
PORT_DIPSETTING( 0x40, "10" )
PORT_DIPSETTING( 0x20, "50" )
PORT_DIPSETTING( 0x60, "100" )
PORT_DIPSETTING( 0x00, "500" )
PORT_DIPNAME( 0x80, 0x80, DEF_STR( Controls ) ) PORT_DIPLOCATION("DIP4:8")
PORT_DIPSETTING( 0x80, "Poker" )
PORT_DIPSETTING( 0x00, DEF_STR( Joystick ) )
INPUT_PORTS_END
/***************************************************************************
Graphics Layout
***************************************************************************/
static const gfx_layout tiles8x8_layout =
{
8,8,
RGN_FRAC(1,2),
8,
{ 0, 1, 2, 3, RGN_FRAC(1,2)+0, RGN_FRAC(1,2)+1, RGN_FRAC(1,2)+2, RGN_FRAC(1,2)+3 },
{ 0, 4, 8, 12, 16, 20, 24, 28 },
{ 0*32, 1*32, 2*32, 3*32, 4*32, 5*32, 6*32, 7*32 },
32*8
{ RGN_FRAC(1,2)+0, RGN_FRAC(1,2)+1, RGN_FRAC(1,2)+2, RGN_FRAC(1,2)+3, 0, 1, 2, 3 },
{ STEP8(0, 4) },
{ STEP8(0, 4*8) },
8*8*4
};
static GFXDECODE_START( bmcpokr )
GFXDECODE_ENTRY( "gfx1", 0, tiles8x8_layout, 0, 16 )
GFXDECODE_ENTRY( "gfx1", 0, tiles8x8_layout, 0, 1 )
GFXDECODE_END
UINT32 bmcpokr_state::screen_update_bmcpokr(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
/***************************************************************************
Machine Drivers
***************************************************************************/
TIMER_DEVICE_CALLBACK_MEMBER(bmcpokr_state::interrupt)
{
gfx_element *gfx = m_gfxdecode->gfx(0);
int scanline = param;
int count = 0;
for (int y=0;y<32;y++)
{
for (int x=0;x<64;x++)
{
UINT16 data = m_videoram[count];
count++;
if (scanline == 240)
if (m_irq_enable & (1<<2)) m_maincpu->set_input_line(2, ASSERT_LINE);
gfx->opaque(bitmap,cliprect,data,0,0,0,x*8,y*8);
if (scanline == 128)
if (m_irq_enable & (1<<3)) m_maincpu->set_input_line(3, ASSERT_LINE);
}
}
return 0;
}
void bmcpokr_state::video_start()
{
if (scanline == 64)
if (m_irq_enable & (1<<6)) m_maincpu->set_input_line(6, ASSERT_LINE);
}
static ADDRESS_MAP_START( ramdac_map, AS_0, 8, bmcpokr_state )
AM_RANGE(0x000, 0x3ff) AM_DEVREADWRITE("ramdac",ramdac_device,ramdac_pal_r,ramdac_rgb666_w)
ADDRESS_MAP_END
static MACHINE_CONFIG_START( bmcpokr, bmcpokr_state )
MCFG_CPU_ADD("maincpu", M68000, XTAL_42MHz/4)
MCFG_CPU_ADD("maincpu", M68000, XTAL_42MHz / 4) // 68000 @10.50MHz (42/4)
MCFG_CPU_PROGRAM_MAP(bmcpokr_mem)
MCFG_CPU_VBLANK_INT_DRIVER("screen", bmcpokr_state, irq3_line_hold)
MCFG_TIMER_DRIVER_ADD_SCANLINE("scantimer", bmcpokr_state, interrupt, "screen", 0, 1)
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_REFRESH_RATE(60)
MCFG_SCREEN_REFRESH_RATE(58.935) // HSync - 15.440kHz, VSync - 58.935Hz
MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */
MCFG_SCREEN_UPDATE_DRIVER(bmcpokr_state, screen_update_bmcpokr)
MCFG_SCREEN_SIZE(64*8, 32*8)
MCFG_SCREEN_VISIBLE_AREA(0*8, 64*8-1, 0*8, 32*8-1)
MCFG_SCREEN_VISIBLE_AREA(0*8, 60*8-1, 0*8, 30*8-1)
MCFG_SCREEN_PALETTE("palette")
MCFG_PALETTE_ADD("palette", 256)
MCFG_RAMDAC_ADD("ramdac", ramdac_map, "palette")
MCFG_GFXDECODE_ADD("gfxdecode", "palette", bmcpokr)
MCFG_NVRAM_ADD_0FILL("nvram")
MCFG_TICKET_DISPENSER_ADD("hopper", attotime::from_msec(10), TICKET_MOTOR_ACTIVE_HIGH, TICKET_STATUS_ACTIVE_LOW) // hopper stuck low if too slow
MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker")
MCFG_SOUND_ADD("ymsnd", YM2413, XTAL_42MHz / 12) // UM3567 @3.50MHz (42/12)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "lspeaker", 0.50)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "rspeaker", 0.50)
MCFG_OKIM6295_ADD("oki", XTAL_42MHz / 40, OKIM6295_PIN7_HIGH) // M6295 @1.05MHz (42/40), pin 7 not verified
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "lspeaker", 0.50)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "rspeaker", 0.50)
MACHINE_CONFIG_END
/***************************************************************************
ROMs Loading
***************************************************************************/
ROM_START( bmcpokr )
ROM_REGION( 0x400000, "maincpu", 0 ) /* 68000 Code */
ROM_LOAD16_BYTE( "ch-m-505.u12", 0x000001, 0x20000, CRC(d6effaf1) SHA1(b446d3beb3393bc8b3bcd0d543945e6fb6a375b9) )
ROM_REGION( 0x40000, "maincpu", 0 ) /* 68000 Code */
ROM_LOAD16_BYTE( "ch-m-605.u13", 0x000000, 0x20000, CRC(c5c3fcd1) SHA1(b77fef734c290d52ae877a24bb3ee42b24eb5cb8) )
ROM_LOAD16_BYTE( "ch-m-505.u12", 0x000001, 0x20000, CRC(d6effaf1) SHA1(b446d3beb3393bc8b3bcd0d543945e6fb6a375b9) )
ROM_REGION( 0x200000, "gfx1", 0 )
ROM_LOAD16_BYTE( "ch-m-101.u39", 0x000000, 0x80000, CRC(f4b82e0a) SHA1(f545c6ab1375518de06900f02a0eb5af1edeeb47) )
ROM_LOAD16_BYTE( "ch-m-201.u40", 0x000001, 0x80000, CRC(520571cb) SHA1(5c006f10d6192939003f8197e8bb64908a826fc1) )
ROM_LOAD16_BYTE( "ch-m-301.u45", 0x100000, 0x80000, CRC(daba09c3) SHA1(e5d2f92b63288c36faa367a3306d1999264843e8) )
ROM_LOAD16_BYTE( "ch-a-401.u29", 0x100001, 0x80000, CRC(5ee5d39f) SHA1(f6881aa5c755831d885f7adf35a5a094f7302205) )
ROM_LOAD16_BYTE( "ch-m-101.u39", 0x000000, 0x80000, CRC(f4b82e0a) SHA1(f545c6ab1375518de06900f02a0eb5af1edeeb47) )
ROM_LOAD16_BYTE( "ch-m-201.u40", 0x000001, 0x80000, CRC(520571cb) SHA1(5c006f10d6192939003f8197e8bb64908a826fc1) )
ROM_LOAD16_BYTE( "ch-m-301.u45", 0x100000, 0x80000, CRC(daba09c3) SHA1(e5d2f92b63288c36faa367a3306d1999264843e8) )
ROM_LOAD16_BYTE( "ch-a-401.u29", 0x100001, 0x80000, CRC(5ee5d39f) SHA1(f6881aa5c755831d885f7adf35a5a094f7302205) )
ROM_REGION( 0x040000, "oki", 0 ) /* Samples */
ROM_REGION( 0x40000, "oki", 0 ) /* Samples */
ROM_LOAD( "ch-m-701.u10", 0x00000, 0x40000, CRC(e01be644) SHA1(b68682786d5b40cb5672cfd7f717adcfb8fac7d3) )
ROM_END
GAME( 1999, bmcpokr, 0, bmcpokr, bmcpokr, driver_device, 0, ROT0, "BMC", "unknown BMC poker game", GAME_NOT_WORKING | GAME_IS_SKELETON )
GAME( 1999, bmcpokr, 0, bmcpokr, bmcpokr, driver_device, 0, ROT0, "BMC", "Dongfang Shenlong", GAME_SUPPORTS_SAVE )