diff options
Diffstat (limited to 'src/mame/drivers/cultures.c')
-rw-r--r-- | src/mame/drivers/cultures.c | 452 |
1 files changed, 452 insertions, 0 deletions
diff --git a/src/mame/drivers/cultures.c b/src/mame/drivers/cultures.c new file mode 100644 index 00000000000..daa4cab3f7b --- /dev/null +++ b/src/mame/drivers/cultures.c @@ -0,0 +1,452 @@ +/* + Jibun wo Migaku Culture School Mahjong Hen + (c)1994 Face + + driver by Pierpaolo Prazzoli + + thanks to David Haywood for some precious advice + +*/ + +#include "driver.h" +#include "sound/okim6295.h" + +#define MCLK 16000000 + +static UINT8 *bg0_videoram; +static UINT8 *bg0_regs_x, *bg0_regs_y, *bg1_regs_x, *bg1_regs_y, *bg2_regs_x, *bg2_regs_y; +static tilemap *bg0_tilemap, *bg1_tilemap, *bg2_tilemap; + +static int video_enable = 0; +static int irq_enable = 0; +static int bg1_bank = 0, bg2_bank = 0; + +static TILE_GET_INFO( get_bg1_tile_info ) +{ + UINT8 *region = memory_region(REGION_GFX3) + 0x200000 + 0x80000 * bg1_bank; + int code = region[tile_index*2] + (region[tile_index*2+1] << 8); + SET_TILE_INFO(2, code, 0, 0); +} + +static TILE_GET_INFO( get_bg2_tile_info ) +{ + UINT8 *region = memory_region(REGION_GFX2) + 0x200000 + 0x80000 * bg2_bank; + int code = region[tile_index*2] + (region[tile_index*2+1] << 8); + SET_TILE_INFO(1, code, 0, 0); +} + +static TILE_GET_INFO( get_bg0_tile_info ) +{ + int code = bg0_videoram[tile_index*2] + (bg0_videoram[tile_index*2+1] << 8); + SET_TILE_INFO(0, code, 0, 0); +} + +static VIDEO_START( cultures ) +{ + bg2_tilemap = tilemap_create(get_bg2_tile_info,tilemap_scan_rows,TILEMAP_TYPE_PEN,8,8,512,512); + bg1_tilemap = tilemap_create(get_bg1_tile_info,tilemap_scan_rows,TILEMAP_TYPE_PEN,8,8,512,512); + bg0_tilemap = tilemap_create(get_bg0_tile_info,tilemap_scan_rows,TILEMAP_TYPE_PEN,8,8, 64,128); + + tilemap_set_transparent_pen(bg1_tilemap,0); + tilemap_set_transparent_pen(bg0_tilemap,0); + + + tilemap_set_scrolldx(bg0_tilemap, 502, 10); + tilemap_set_scrolldx(bg1_tilemap, 502, 10); + tilemap_set_scrolldx(bg2_tilemap, 502, 10); + + tilemap_set_scrolldy(bg0_tilemap, 255, 0); + tilemap_set_scrolldy(bg1_tilemap, 255, 0); + tilemap_set_scrolldy(bg2_tilemap, 255, 0); +} + +static VIDEO_UPDATE( cultures ) +{ + int attr; + + // tilemaps attributes + + attr = (bg0_regs_x[3] & 1 ? TILEMAP_FLIPX : 0) | (bg0_regs_y[3] & 1 ? TILEMAP_FLIPY : 0); + tilemap_set_flip(bg0_tilemap, attr); + + attr = (bg1_regs_x[3] & 1 ? TILEMAP_FLIPX : 0) | (bg1_regs_y[3] & 1 ? TILEMAP_FLIPY : 0); + tilemap_set_flip(bg1_tilemap, attr); + + attr = (bg2_regs_x[3] & 1 ? TILEMAP_FLIPX : 0) | (bg2_regs_y[3] & 1 ? TILEMAP_FLIPY : 0); + tilemap_set_flip(bg2_tilemap, attr); + + // tilemaps scrolls + + tilemap_set_scrollx(bg0_tilemap, 0, (bg0_regs_x[2] << 8) + bg0_regs_x[0]); + tilemap_set_scrollx(bg1_tilemap, 0, (bg1_regs_x[2] << 8) + bg1_regs_x[0]); + tilemap_set_scrollx(bg2_tilemap, 0, (bg2_regs_x[2] << 8) + bg2_regs_x[0]); + tilemap_set_scrolly(bg0_tilemap, 0, (bg0_regs_y[2] << 8) + bg0_regs_y[0]); + tilemap_set_scrolly(bg1_tilemap, 0, (bg1_regs_y[2] << 8) + bg1_regs_y[0]); + tilemap_set_scrolly(bg2_tilemap, 0, (bg2_regs_y[2] << 8) + bg2_regs_y[0]); + + if (video_enable) + { + tilemap_draw(bitmap, cliprect, bg2_tilemap, 0, 0); + tilemap_draw(bitmap, cliprect, bg0_tilemap, 0, 0); + tilemap_draw(bitmap, cliprect, bg1_tilemap, 0, 0); + } + else + fillbitmap(bitmap, get_black_pen(machine), cliprect); + + return 0; +} + +static WRITE8_HANDLER( cpu_bankswitch_w ) +{ + memory_set_bankptr(1, memory_region(REGION_CPU1) + 0x4000 * (data & 0xf)); + video_enable = ~data & 0x20; +} + +static WRITE8_HANDLER( bg0_videoram_w ) +{ + bg0_videoram[offset] = data; + tilemap_mark_tile_dirty(bg0_tilemap, offset >> 1); +} + +static WRITE8_HANDLER( misc_w ) +{ + static int old_bank = -1; + int new_bank = data & 0xf; + + if(old_bank != new_bank) + { + // oki banking + UINT8 *src = memory_region(REGION_SOUND1) + 0x40000 + 0x20000 * new_bank; + UINT8 *dst = memory_region(REGION_SOUND1) + 0x20000; + memcpy(dst, src, 0x20000); + + old_bank = new_bank; + } + + irq_enable = data & 0x80; +} + +static WRITE8_HANDLER( bg_bank_w ) +{ + if(bg1_bank != (data & 3)) + { + bg1_bank = data & 3; + tilemap_mark_all_tiles_dirty(bg1_tilemap); + } + + if(bg2_bank != ((data & 0xc) >> 2)) + { + bg2_bank = (data & 0xc) >> 2; + tilemap_mark_all_tiles_dirty(bg2_tilemap); + } + + coin_counter_w(0,data & 0x10); +} + +static ADDRESS_MAP_START( cultures_map, ADDRESS_SPACE_PROGRAM, 8 ) + AM_RANGE(0x0000, 0x3fff) AM_ROM + AM_RANGE(0x4000, 0x7fff) AM_ROMBANK(1) + AM_RANGE(0x8000, 0xbfff) AM_RAM AM_WRITE(bg0_videoram_w) AM_BASE(&bg0_videoram) + AM_RANGE(0xc000, 0xdfff) AM_RAM + AM_RANGE(0xf000, 0xffff) AM_RAM +ADDRESS_MAP_END + +static ADDRESS_MAP_START( cultures_io_map, ADDRESS_SPACE_IO, 8 ) + ADDRESS_MAP_FLAGS( AMEF_ABITS(8) ) + AM_RANGE(0x00, 0x03) AM_RAM //? + AM_RANGE(0x10, 0x13) AM_RAM //? + AM_RANGE(0x20, 0x23) AM_RAM AM_BASE(&bg0_regs_x) + AM_RANGE(0x30, 0x33) AM_RAM AM_BASE(&bg0_regs_y) + AM_RANGE(0x40, 0x43) AM_RAM AM_BASE(&bg1_regs_x) + AM_RANGE(0x50, 0x53) AM_RAM AM_BASE(&bg1_regs_y) + AM_RANGE(0x60, 0x63) AM_RAM AM_BASE(&bg2_regs_x) + AM_RANGE(0x70, 0x73) AM_RAM AM_BASE(&bg2_regs_y) + AM_RANGE(0x80, 0x80) AM_WRITE(cpu_bankswitch_w) + AM_RANGE(0x90, 0x90) AM_WRITE(misc_w) + AM_RANGE(0xa0, 0xa0) AM_WRITE(bg_bank_w) + AM_RANGE(0xc0, 0xc0) AM_READWRITE(OKIM6295_status_0_r, OKIM6295_data_0_w) + AM_RANGE(0xd0, 0xd0) AM_READ(input_port_0_r) + AM_RANGE(0xd1, 0xd1) AM_READ(input_port_1_r) + AM_RANGE(0xd2, 0xd2) AM_READ(input_port_2_r) + AM_RANGE(0xd3, 0xd3) AM_READ(input_port_3_r) + AM_RANGE(0xe0, 0xe0) AM_READ(input_port_4_r) + AM_RANGE(0xe1, 0xe1) AM_READ(input_port_5_r) + AM_RANGE(0xe2, 0xe2) AM_READ(input_port_6_r) + AM_RANGE(0xe3, 0xe3) AM_READ(input_port_7_r) + AM_RANGE(0xe4, 0xe4) AM_READ(input_port_8_r) + AM_RANGE(0xe5, 0xe5) AM_READ(input_port_9_r) + AM_RANGE(0xf0, 0xf0) AM_READ(input_port_10_r) + AM_RANGE(0xf1, 0xf1) AM_READ(input_port_11_r) + AM_RANGE(0xf2, 0xf2) AM_READ(input_port_12_r) + AM_RANGE(0xf3, 0xf3) AM_READ(input_port_13_r) + AM_RANGE(0xf7, 0xf7) AM_READ(input_port_14_r) +ADDRESS_MAP_END + + +static INPUT_PORTS_START( cultures ) + PORT_START + PORT_DIPNAME( 0x07, 0x07, DEF_STR( Coinage ) ) PORT_DIPLOCATION("SW1:1,2,3") + PORT_DIPSETTING( 0x00, "10 Coins / 1 Credit" ) + PORT_DIPSETTING( 0x01, DEF_STR( 5C_1C ) ) + PORT_DIPSETTING( 0x02, DEF_STR( 4C_1C ) ) + PORT_DIPSETTING( 0x03, DEF_STR( 3C_1C ) ) + PORT_DIPSETTING( 0x04, DEF_STR( 2C_1C ) ) + PORT_DIPSETTING( 0x07, DEF_STR( 1C_1C ) ) + PORT_DIPSETTING( 0x06, DEF_STR( 1C_2C ) ) + PORT_DIPSETTING( 0x05, DEF_STR( 1C_3C ) ) + PORT_DIPNAME( 0x08, 0x00, DEF_STR( Flip_Screen ) ) PORT_DIPLOCATION("SW1:4") + PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) + PORT_DIPSETTING( 0x08, DEF_STR( On ) ) + PORT_BIT( 0xf0, IP_ACTIVE_LOW, IPT_UNUSED ) + + PORT_START + PORT_DIPNAME( 0x01, 0x01, "Auto Mode After Reach" ) PORT_DIPLOCATION("SW1:5") + PORT_DIPSETTING( 0x00, DEF_STR( No ) ) + PORT_DIPSETTING( 0x01, DEF_STR( Yes ) ) + PORT_DIPNAME( 0x02, 0x02, "Attract Mode" ) PORT_DIPLOCATION("SW1:6") + PORT_DIPSETTING( 0x02, "Partial" ) + PORT_DIPSETTING( 0x00, "Full" ) + PORT_DIPNAME( 0x04, 0x04, "Open Hands After Noten" ) PORT_DIPLOCATION("SW1:7") + PORT_DIPSETTING( 0x00, DEF_STR( No ) ) + PORT_DIPSETTING( 0x04, DEF_STR( Yes ) ) + PORT_DIPNAME( 0x08, 0x08, "Datsui Count After Continue" ) PORT_DIPLOCATION("SW1:8") + PORT_DIPSETTING( 0x08, "Not Cleared" ) + PORT_DIPSETTING( 0x00, "Cleared" ) + PORT_BIT( 0xf0, IP_ACTIVE_LOW, IPT_UNUSED ) + + PORT_START + PORT_DIPNAME( 0x03, 0x03, DEF_STR( Difficulty ) ) PORT_DIPLOCATION("SW2:1,2") + PORT_DIPSETTING( 0x00, DEF_STR( Hardest ) ) + PORT_DIPSETTING( 0x01, DEF_STR( Hard ) ) + PORT_DIPSETTING( 0x03, DEF_STR( Normal ) ) + PORT_DIPSETTING( 0x02, DEF_STR( Easy ) ) + PORT_DIPNAME( 0x04, 0x04, DEF_STR( Demo_Sounds ) ) PORT_DIPLOCATION("SW2:3") + PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) + PORT_DIPSETTING( 0x04, DEF_STR( On ) ) + PORT_DIPNAME( 0x08, 0x08, "Game Background Music" ) PORT_DIPLOCATION("SW2:4") + PORT_DIPSETTING( 0x00, DEF_STR( No ) ) + PORT_DIPSETTING( 0x08, DEF_STR( Yes ) ) + PORT_BIT( 0xf0, IP_ACTIVE_LOW, IPT_UNUSED ) + + PORT_START + PORT_DIPNAME( 0x01, 0x01, DEF_STR( Allow_Continue ) ) PORT_DIPLOCATION("SW2:5") + PORT_DIPSETTING( 0x00, DEF_STR( No ) ) + PORT_DIPSETTING( 0x01, DEF_STR( Yes ) ) + PORT_DIPNAME( 0x02, 0x02, "Machihai Display" ) PORT_DIPLOCATION("SW2:6") + PORT_DIPSETTING( 0x00, DEF_STR( No ) ) + PORT_DIPSETTING( 0x02, DEF_STR( Yes ) ) + PORT_DIPNAME( 0x04, 0x04, DEF_STR( Unknown ) ) PORT_DIPLOCATION("SW2:7") // "always off" + PORT_DIPSETTING( 0x04, DEF_STR( Off ) ) + PORT_DIPSETTING( 0x00, DEF_STR( On ) ) + PORT_SERVICE_DIPLOC( 0x08, IP_ACTIVE_LOW, "SW2:8" ) + PORT_BIT( 0xf0, IP_ACTIVE_LOW, IPT_UNUSED ) + + PORT_START //5 + PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_MAHJONG_A ) + PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_MAHJONG_B ) + PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_MAHJONG_C ) + PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_MAHJONG_D ) + PORT_BIT( 0xf0, IP_ACTIVE_LOW, IPT_UNUSED ) + + PORT_START + PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_MAHJONG_E ) + PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_MAHJONG_F ) + PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_MAHJONG_G ) + PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_MAHJONG_H ) + PORT_BIT( 0xf0, IP_ACTIVE_LOW, IPT_UNUSED ) + + PORT_START + PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_MAHJONG_I ) + PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_MAHJONG_J ) + PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_MAHJONG_K ) + PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_MAHJONG_L ) + PORT_BIT( 0xf0, IP_ACTIVE_LOW, IPT_UNUSED ) + + PORT_START + PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_MAHJONG_M ) + PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_MAHJONG_N ) + PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_MAHJONG_CHI ) + PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_MAHJONG_PON ) + PORT_BIT( 0xf0, IP_ACTIVE_LOW, IPT_UNUSED ) + + PORT_START + PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_MAHJONG_KAN ) + PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_MAHJONG_REACH ) + PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_MAHJONG_RON ) + PORT_BIT( 0xf8, IP_ACTIVE_LOW, IPT_UNUSED ) + + PORT_START + PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_START1 ) + PORT_BIT( 0xfe, IP_ACTIVE_LOW, IPT_UNUSED ) + + PORT_START + PORT_BIT( 0xff, IP_ACTIVE_LOW, IPT_UNUSED ) + + PORT_START + PORT_BIT( 0xff, IP_ACTIVE_LOW, IPT_UNUSED ) + + PORT_START + PORT_BIT( 0xff, IP_ACTIVE_LOW, IPT_UNUSED ) + + PORT_START + PORT_BIT( 0xff, IP_ACTIVE_LOW, IPT_UNUSED ) + + PORT_START + PORT_BIT( 0x1f, IP_ACTIVE_LOW, IPT_UNUSED ) + PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_SERVICE1 ) + PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_SERVICE2 ) // "Test" + PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_COIN1 ) +INPUT_PORTS_END + +/*** GFX Decode ***/ + + +static const gfx_layout gfxlayout = +{ + 8,8, + RGN_FRAC(1,1), + 8, + { 0,1,2,3,4,5,6,7 }, + { 1*8, 0*8, 3*8, 2*8, 5*8, 4*8, 7*8, 6*8 }, + { 0*64, 1*64, 2*64, 3*64, 4*64, 5*64, 6*64, 7*64 }, + 8*64, +}; + +static GFXDECODE_START( culture ) + GFXDECODE_ENTRY(REGION_GFX1, 0, gfxlayout, 0, 1 ) + GFXDECODE_ENTRY(REGION_GFX2, 0, gfxlayout, 0, 1 ) + GFXDECODE_ENTRY(REGION_GFX3, 0, gfxlayout, 0, 1 ) +GFXDECODE_END + +//WRONG! +static PALETTE_INIT( cultures ) +{ + int c,x; + + for (c = 0; c < 256; c++) + { + int r,g,b,i; + + i = c & 0x03; + r = ((c & 0x04) >> 0) | ((c & 0x10) >> 1) | i; + g = ((c & 0x20) >> 3) | ((c & 0x40) >> 3) | i; + b = ((c & 0x08) >> 1) | ((c & 0x80) >> 4) | i; + + /* + r = ((c & 0x0c) >> 0) | i; + g = ((c & 0x30) >> 2) | i; + b = ((c & 0xc0) >> 4) | i; +*/ + + x = ((c >> 4) & 0x0f); + + x = ((x & 4) << 1) | ((x & 8) >> 1) | (x & 1); + + palette_set_color_rgb(machine, x | (((c << 4) & 0xf0) ^ 0), pal4bit(r), pal4bit(g), pal4bit(b)); + } +} + + +static INTERRUPT_GEN( cultures_interrupt ) +{ + if (irq_enable) + cpunum_set_input_line(0, 0, HOLD_LINE); +} + + +static MACHINE_DRIVER_START( cultures ) + + /* basic machine hardware */ + MDRV_CPU_ADD(Z80, MCLK/2) /* 8.000 MHz */ + MDRV_CPU_PROGRAM_MAP(cultures_map,0) + MDRV_CPU_IO_MAP(cultures_io_map,0) + MDRV_CPU_VBLANK_INT(cultures_interrupt,1) + + MDRV_SCREEN_REFRESH_RATE(60) + MDRV_SCREEN_VBLANK_TIME(DEFAULT_60HZ_VBLANK_DURATION) + + /* video hardware */ + MDRV_VIDEO_ATTRIBUTES(VIDEO_TYPE_RASTER) + MDRV_SCREEN_FORMAT(BITMAP_FORMAT_INDEXED16) + MDRV_SCREEN_SIZE(64*8, 32*8) + MDRV_SCREEN_VISIBLE_AREA(0*8, 48*8-1, 0*8, 30*8-1) + MDRV_GFXDECODE(culture) + MDRV_PALETTE_LENGTH(256) + + MDRV_PALETTE_INIT(cultures) + + MDRV_VIDEO_START(cultures) + MDRV_VIDEO_UPDATE(cultures) + + /* sound hardware */ + MDRV_SPEAKER_STANDARD_MONO("mono") + + MDRV_SOUND_ADD(OKIM6295, (MCLK/1024)*132) + MDRV_SOUND_CONFIG(okim6295_interface_region_1_pin7high) // clock frequency & pin 7 not verified + MDRV_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.30) +MACHINE_DRIVER_END + +/* + +Jibun wo Migaku Culture School Mahjong Hen +(c)1994 Face + +CPU: Z80 +Sound: M6295 +OSC: 16.000MHz +EEPROM: 93C46 +Custom: FACE AV44 4HA0G (x3) + +ROMs: +MA01.U12 +PCM.U87 +BG0C.U45 +BG0C2.U46 +BG1C.U80 +BG1T.U67 +BG2C.U68 +BG2T.U79 + +-----mahjong connector----- + empty +amp OSC BG0C +6295 GAL BG0C2 +G PCM SS S +A MA01 G RR R +L A AA A + Z80 L MM custom M + +D GGG +I AAA +P LLL +D +I custom BG2C BG1C +P custom custom +93C46 BG1T BG2T + +*/ + +ROM_START( cultures ) + ROM_REGION( 0x40000, REGION_CPU1, 0 ) + ROM_LOAD( "ma01.u12", 0x000000, 0x040000, CRC(f57417b3) SHA1(9a2a50222f54e5da9bc5c66863b8be16e33b171f) ) + + ROM_REGION( 0x300000, REGION_GFX1, 0 ) + ROM_LOAD( "bg0c.u45", 0x000000, 0x200000, CRC(ad2e1263) SHA1(b28a3d82aaa0421a7b4df837814147b109e7d1a5) ) + ROM_LOAD( "bg0c2.u46", 0x200000, 0x100000, CRC(97c71c09) SHA1(ffbcee1d9cb39d0824f3aa652c3a24579113cf2e) ) + + ROM_REGION( 0x400000, REGION_GFX2, ROMREGION_ERASE00 ) + ROM_LOAD( "bg1c.u80", 0x000000, 0x200000, CRC(9ab99bd9) SHA1(bce41b6f5d83c8262ba8d37b2dfcd5d7a5e7ace7) ) + ROM_LOAD( "bg2t.u79", 0x200000, 0x100000, CRC(0610a79f) SHA1(9fc6b2e5c573ed682b2f7fa462c8f42ff99da5ba) ) + /* 0x300000 - 0x3fffff empty */ + + ROM_REGION( 0x400000, REGION_GFX3, ROMREGION_ERASE00 ) + ROM_LOAD( "bg2c.u68", 0x000000, 0x200000, CRC(fa598644) SHA1(532249e456c34f18a787d5a028df82f2170f604d) ) + ROM_LOAD( "bg1t.u67", 0x200000, 0x100000, CRC(d2e594ee) SHA1(a84b5ab62dec1867d433ccaeb1381e7593958cf0) ) + /* 0x300000 - 0x3fffff empty */ + + ROM_REGION( 0x240000, REGION_SOUND1, 0 ) + ROM_LOAD( "pcm.u87", 0x040000, 0x200000, CRC(84206475) SHA1(d1423bd5c7425e121fb4e7845cf57801e9afa7b3) ) + ROM_RELOAD( 0x000000, 0x020000 ) +ROM_END + +GAME( 1994, cultures, 0, cultures, cultures, 0, ROT0, "Face", "Jibun wo Migaku Culture School Mahjong Hen", GAME_WRONG_COLORS ) |