/* Lucky Girl (newer 1991 version on different hardware?) -- there is an early 'Lucky Girl' which appears to be running on Nichibutsu like hardware. The program rom extracted from the Z180 also refers to this as Lucky 74.. TODO: - inputs / port mapping - sound (what's the sound chip?) - reel scroll / reel enable / reel colours - are the colours correct even on the text layer? they look odd in places, and there are unused bits - dunno where / how is the service mode bit is connected (I've accessed it once, but dunno how I've did it) Lucky Girl Wing 1991 PCB labels "DREW'S UNDER WARRANTY IF REMOVED N3357" "No.A 120307 LICENSE WING SEAL" "EAGLE No.A 120307" ROMs 1C - EAGLE 1 27C010 equiv. mask ROM 1E - EAGLE 2 27C010 equiv. mask ROM 1H - EAGLE 3 27C010 equiv. mask ROM 1L - FALCON 4 27C010 equiv. mask ROM 1N - FALCON 5 27C010 equiv. mask ROM 1P - FALCON 6 27C010 equiv. mask ROM 1T - FALCON 13 27C010 EPROM * ROMs 1-6 may need redumping, they could be half size. RAMs 2x LH5186D-01L 28-pin PDIP Video RAM and work RAM (battery backed) 2x CY7C128A-25PC 24-pin PDIP Probably color RAM Customs 2x 06B53P 28-pin PDIP Unknown 1x 06B30P 40-pin PDIP Unknown 1x 101810P 64-pin SDIP Unknown 1x HG62E11B10P 64-pin SDIP Hitachi gate array (custom) 1x CPU module 90-pin SDIP Others 1x HD6845SP 40-pin PDIP CRTC 1x MB3771 8-pin PDIP Reset generator 1x Oki M62X428 18-pin PDIP Real-time clock CPU module Text on label: [2] 9015 1994.12 LUCKY GIRL DREW'S Text underneath label WE 300B 1H2 Looks like Hitachi part markings to me. Other notes Has some optocouplers, high voltage drivers, and what looks like additional I/O conenctors. Reset switch cuts power supply going to Video/Work RAM. */ #include "emu.h" #include "cpu/z180/z180.h" #include "video/mc6845.h" #include "luckgrln.lh" class luckgrln_state : public driver_device { public: luckgrln_state(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag) { } UINT8 *m_luck_vram1; UINT8 *m_luck_vram2; UINT8 *m_luck_vram3; UINT8 m_nmi_enable; tilemap_t *m_reel1_tilemap; tilemap_t *m_reel2_tilemap; tilemap_t *m_reel3_tilemap; tilemap_t *m_reel4_tilemap; UINT8* m_reel1_ram; UINT8* m_reel2_ram; UINT8* m_reel3_ram; UINT8* m_reel4_ram; UINT8* m_reel1_scroll; UINT8* m_reel2_scroll; UINT8* m_reel3_scroll; UINT8* m_reel4_scroll; UINT8* m_reel1_attr; UINT8* m_reel2_attr; UINT8* m_reel3_attr; UINT8* m_reel4_attr; int m_palette_count; UINT8 m_palette_ram[0x10000]; }; static WRITE8_HANDLER( luckgrln_reel1_ram_w ) { luckgrln_state *state = space->machine().driver_data(); state->m_reel1_ram[offset] = data; tilemap_mark_tile_dirty(state->m_reel1_tilemap,offset); } static WRITE8_HANDLER( luckgrln_reel1_attr_w ) { luckgrln_state *state = space->machine().driver_data(); state->m_reel1_attr[offset] = data; tilemap_mark_tile_dirty(state->m_reel1_tilemap,offset); } static TILE_GET_INFO( get_luckgrln_reel1_tile_info ) { luckgrln_state *state = machine.driver_data(); int code = state->m_reel1_ram[tile_index]; int attr = state->m_reel1_attr[tile_index]; int col = (attr & 0x1f); code |= (attr & 0xe0)<<3; SET_TILE_INFO( 1, code, col, 0); } static WRITE8_HANDLER( luckgrln_reel2_ram_w ) { luckgrln_state *state = space->machine().driver_data(); state->m_reel2_ram[offset] = data; tilemap_mark_tile_dirty(state->m_reel2_tilemap,offset); } static WRITE8_HANDLER( luckgrln_reel2_attr_w ) { luckgrln_state *state = space->machine().driver_data(); state->m_reel2_attr[offset] = data; tilemap_mark_tile_dirty(state->m_reel2_tilemap,offset); } static TILE_GET_INFO( get_luckgrln_reel2_tile_info ) { luckgrln_state *state = machine.driver_data(); int code = state->m_reel2_ram[tile_index]; int attr = state->m_reel2_attr[tile_index]; int col = (attr & 0x1f); code |= (attr & 0xe0)<<3; SET_TILE_INFO( 1, code, col, 0); } static WRITE8_HANDLER( luckgrln_reel3_ram_w ) { luckgrln_state *state = space->machine().driver_data(); state->m_reel3_ram[offset] = data; tilemap_mark_tile_dirty(state->m_reel3_tilemap,offset); } static WRITE8_HANDLER( luckgrln_reel3_attr_w ) { luckgrln_state *state = space->machine().driver_data(); state->m_reel3_attr[offset] = data; tilemap_mark_tile_dirty(state->m_reel3_tilemap,offset); } static TILE_GET_INFO( get_luckgrln_reel3_tile_info ) { luckgrln_state *state = machine.driver_data(); int code = state->m_reel3_ram[tile_index]; int attr = state->m_reel3_attr[tile_index]; int col = (attr & 0x1f); code |= (attr & 0xe0)<<3; SET_TILE_INFO( 1, code, col, 0); } static WRITE8_HANDLER( luckgrln_reel4_ram_w ) { luckgrln_state *state = space->machine().driver_data(); state->m_reel4_ram[offset] = data; tilemap_mark_tile_dirty(state->m_reel4_tilemap,offset); } static WRITE8_HANDLER( luckgrln_reel4_attr_w ) { luckgrln_state *state = space->machine().driver_data(); state->m_reel4_attr[offset] = data; tilemap_mark_tile_dirty(state->m_reel4_tilemap,offset); } static TILE_GET_INFO( get_luckgrln_reel4_tile_info ) { luckgrln_state *state = machine.driver_data(); int code = state->m_reel4_ram[tile_index]; int attr = state->m_reel4_attr[tile_index]; int col = (attr & 0x1f); code |= (attr & 0xe0)<<3; SET_TILE_INFO( 1, code, col, 0); } static VIDEO_START(luckgrln) { luckgrln_state *state = machine.driver_data(); state->m_reel1_tilemap = tilemap_create(machine,get_luckgrln_reel1_tile_info,tilemap_scan_rows, 8, 32, 64, 8); state->m_reel2_tilemap = tilemap_create(machine,get_luckgrln_reel2_tile_info,tilemap_scan_rows, 8, 32, 64, 8); state->m_reel3_tilemap = tilemap_create(machine,get_luckgrln_reel3_tile_info,tilemap_scan_rows, 8, 32, 64, 8); state->m_reel4_tilemap = tilemap_create(machine,get_luckgrln_reel4_tile_info,tilemap_scan_rows, 8, 32, 64, 8); tilemap_set_scroll_cols(state->m_reel1_tilemap, 64); tilemap_set_scroll_cols(state->m_reel2_tilemap, 64); tilemap_set_scroll_cols(state->m_reel3_tilemap, 64); tilemap_set_scroll_cols(state->m_reel4_tilemap, 64); tilemap_set_transparent_pen( state->m_reel1_tilemap, 0 ); tilemap_set_transparent_pen( state->m_reel2_tilemap, 0 ); tilemap_set_transparent_pen( state->m_reel3_tilemap, 0 ); tilemap_set_transparent_pen( state->m_reel4_tilemap, 0 ); } static SCREEN_UPDATE(luckgrln) { luckgrln_state *state = screen->machine().driver_data(); int y,x; int count = 0; const rectangle &visarea = screen->visible_area(); int i; rectangle clip; clip.min_x = visarea.min_x; clip.max_x = visarea.max_x; clip.min_y = visarea.min_y; clip.max_y = visarea.max_y; bitmap_fill(bitmap, cliprect, 0); for (i= 0;i < 64;i++) { tilemap_set_scrolly(state->m_reel1_tilemap, i, state->m_reel1_scroll[i]); tilemap_set_scrolly(state->m_reel2_tilemap, i, state->m_reel2_scroll[i]); tilemap_set_scrolly(state->m_reel3_tilemap, i, state->m_reel3_scroll[i]); tilemap_set_scrolly(state->m_reel4_tilemap, i, state->m_reel4_scroll[i]); } for (y=0;y<32;y++) { clip.min_y = y*8; clip.max_y = y*8+8; if (clip.min_yvisarea.max_y) clip.max_y = visarea.max_y; for (x=0;x<64;x++) { UINT16 tile = (state->m_luck_vram1[count] & 0xff); UINT16 tile_high = (state->m_luck_vram2[count]); UINT16 tileattr = (state->m_luck_vram3[count]); UINT8 col = 0; UINT8 region = 0; UINT8 bgenable; clip.min_x = x*8; clip.max_x = x*8+8; if (clip.min_xvisarea.max_x) clip.max_x = visarea.max_x; /* state->m_luck_vram1 tttt tttt (t = low tile bits) state->m_luck_vram2 tttt ppp? (t = high tile bits) (p = pal select)? */ tile |= (tile_high & 0xf0) << 4; if (tileattr & 0x02) tile |= 0x1000; // ?? low bit is used too col = tile_high&0xf; // --ss fbt- state->m_luck_vram3 // - = unused? // s = reel layer select for this 8x8 region // f = fg enabled for this 8x8 region (or priority?) // b = reel enabled for this 8x8 region (not set on startup screens) // t = tile bank bgenable = (tileattr &0x30)>>4; #if 0 // treat bit as fg enable if (tileattr&0x04) { if (bgenable==0) tilemap_draw(bitmap, &clip, state->m_reel1_tilemap, 0, 0); if (bgenable==1) tilemap_draw(bitmap, &clip, state->m_reel2_tilemap, 0, 0); if (bgenable==2) tilemap_draw(bitmap, &clip, state->m_reel3_tilemap, 0, 0); if (bgenable==3) tilemap_draw(bitmap, &clip, state->m_reel4_tilemap, 0, 0); } if (tileattr&0x08) drawgfx_transpen(bitmap,clip,screen->machine().gfx[region],tile,col,0,0,x*8,y*8, 0); #else // treat it as priority flag instead (looks better in non-adult title screen - needs verifying) if (!(tileattr&0x08)) drawgfx_transpen(bitmap,&clip,screen->machine().gfx[region],tile,col,0,0,x*8,y*8, 0); if (tileattr&0x04) { if (bgenable==0) tilemap_draw(bitmap, &clip, state->m_reel1_tilemap, 0, 0); if (bgenable==1) tilemap_draw(bitmap, &clip, state->m_reel2_tilemap, 0, 0); if (bgenable==2) tilemap_draw(bitmap, &clip, state->m_reel3_tilemap, 0, 0); if (bgenable==3) tilemap_draw(bitmap, &clip, state->m_reel4_tilemap, 0, 0); } if ((tileattr&0x08)) drawgfx_transpen(bitmap,&clip,screen->machine().gfx[region],tile,col,0,0,x*8,y*8, 0); #endif count++; } } return 0; } static ADDRESS_MAP_START( mainmap, AS_PROGRAM, 8 ) AM_RANGE(0x00000, 0x03fff) AM_ROM AM_RANGE(0x10000, 0x1ffff) AM_ROM AM_REGION("rom_data",0x10000) AM_RANGE(0x20000, 0x2ffff) AM_ROM AM_REGION("rom_data",0x00000) AM_RANGE(0x0c000, 0x0c1ff) AM_RAM_WRITE(luckgrln_reel1_ram_w) AM_BASE_MEMBER(luckgrln_state, m_reel1_ram) // only written to half way AM_RANGE(0x0c800, 0x0c9ff) AM_RAM_WRITE(luckgrln_reel1_attr_w) AM_BASE_MEMBER(luckgrln_state, m_reel1_attr) AM_RANGE(0x0d000, 0x0d03f) AM_RAM AM_BASE_MEMBER(luckgrln_state, m_reel1_scroll) AM_MIRROR(0x000c0) AM_RANGE(0x0c200, 0x0c3ff) AM_RAM_WRITE(luckgrln_reel2_ram_w) AM_BASE_MEMBER(luckgrln_state, m_reel2_ram) AM_RANGE(0x0ca00, 0x0cbff) AM_RAM_WRITE(luckgrln_reel2_attr_w) AM_BASE_MEMBER(luckgrln_state, m_reel2_attr) AM_RANGE(0x0d200, 0x0d23f) AM_RAM AM_BASE_MEMBER(luckgrln_state, m_reel2_scroll) AM_MIRROR(0x000c0) AM_RANGE(0x0c400, 0x0c5ff) AM_RAM_WRITE(luckgrln_reel3_ram_w ) AM_BASE_MEMBER(luckgrln_state, m_reel3_ram) AM_RANGE(0x0cc00, 0x0cdff) AM_RAM_WRITE(luckgrln_reel3_attr_w) AM_BASE_MEMBER(luckgrln_state, m_reel3_attr) AM_RANGE(0x0d400, 0x0d43f) AM_RAM AM_BASE_MEMBER(luckgrln_state, m_reel3_scroll) AM_MIRROR(0x000c0) AM_RANGE(0x0c600, 0x0c7ff) AM_RAM_WRITE(luckgrln_reel4_ram_w ) AM_BASE_MEMBER(luckgrln_state, m_reel4_ram) AM_RANGE(0x0ce00, 0x0cfff) AM_RAM_WRITE(luckgrln_reel4_attr_w) AM_BASE_MEMBER(luckgrln_state, m_reel4_attr) AM_RANGE(0x0d600, 0x0d63f) AM_RAM AM_BASE_MEMBER(luckgrln_state, m_reel4_scroll) // AM_RANGE(0x0d200, 0x0d2ff) AM_RAM AM_RANGE(0x0d800, 0x0dfff) AM_RAM // nvram AM_RANGE(0x0e000, 0x0e7ff) AM_RAM AM_BASE_MEMBER(luckgrln_state, m_luck_vram1) AM_RANGE(0x0e800, 0x0efff) AM_RAM AM_BASE_MEMBER(luckgrln_state, m_luck_vram2) AM_RANGE(0x0f000, 0x0f7ff) AM_RAM AM_BASE_MEMBER(luckgrln_state, m_luck_vram3) AM_RANGE(0x0f800, 0x0ffff) AM_RAM AM_RANGE(0xf0000, 0xfffff) AM_RAM ADDRESS_MAP_END static WRITE8_HANDLER( output_w ) { luckgrln_state *state = space->machine().driver_data(); /* correct? */ if (data==0x84) state->m_nmi_enable = 0; else if (data==0x85) state->m_nmi_enable = 1; else printf("output_w unk data %02x\n",data); } static WRITE8_HANDLER( palette_offset_low_w ) { luckgrln_state *state = space->machine().driver_data(); state->m_palette_count = data<<1; } static WRITE8_HANDLER( palette_offset_high_w ) { luckgrln_state *state = space->machine().driver_data(); state->m_palette_count = state->m_palette_count | data<<9; } static WRITE8_HANDLER( palette_w ) { luckgrln_state *state = space->machine().driver_data(); state->m_palette_ram[state->m_palette_count] = data; { int r,g,b; int offs; UINT16 dat; offs = state->m_palette_count&~0x1; dat = state->m_palette_ram[offs] | state->m_palette_ram[offs+1]<<8; r = (dat >> 0) & 0x1f; g = (dat >> 5) & 0x1f; b = (dat >> 10) & 0x1f; palette_set_color_rgb(space->machine(), offs/2, pal5bit(r), pal5bit(g), pal5bit(b)); } state->m_palette_count++; } // Oki M62X428 is a 4-bit RTC, doesn't seem to be millennium bug proof ... static READ8_HANDLER( rtc_r ) { system_time systime; space->machine().base_datetime(systime); switch(offset) { case 0x00: return (systime.local_time.second % 10); case 0x01: return (systime.local_time.second / 10); case 0x02: return (systime.local_time.minute % 10); case 0x03: return (systime.local_time.minute / 10); case 0x04: return (systime.local_time.hour % 10); case 0x05: return (systime.local_time.hour / 10); case 0x06: return (systime.local_time.mday % 10); case 0x07: return (systime.local_time.mday / 10); case 0x08: return ((systime.local_time.month+1) % 10); case 0x09: return ((systime.local_time.month+1) / 10); case 0x0a: return (systime.local_time.year%10); case 0x0b: return ((systime.local_time.year%100)/10); case 0x0d: return 0xff; // bit 1: reset switch for the RTC? } return 0; } /* Analizing the lamps, the game should has a 12-buttons control layout */ static WRITE8_HANDLER(lamps_a_w) { /* LAMPS A: 7654 3210 ---- ---x HOLD1 ---- --x- HOLD2 ---- -x-- HOLD3 ---- x--- HOLD4 ---x ---- HOLD5 --x- ---- START -x-- ---- BET (PLAY) x--- ---- TAKE */ output_set_lamp_value(0, (data >> 0) & 1); /* HOLD1 */ output_set_lamp_value(1, (data >> 1) & 1); /* HOLD2 */ output_set_lamp_value(2, (data >> 2) & 1); /* HOLD3 */ output_set_lamp_value(3, (data >> 3) & 1); /* HOLD4 */ output_set_lamp_value(4, (data >> 4) & 1); /* HOLD5 */ output_set_lamp_value(5, (data >> 5) & 1); /* START */ output_set_lamp_value(6, (data >> 6) & 1); /* BET */ output_set_lamp_value(7, (data >> 7) & 1); /* TAKE */ } static WRITE8_HANDLER(lamps_b_w) { /* LAMPS B: 7654 3210 ---- ---x D-UP ---- --x- HIGH ---- -x-- LOW ---- x--- CANCEL --xx ---- unknown (mostly on) xx-- ---- unused */ output_set_lamp_value(8, (data >> 0) & 1); /* D-UP */ output_set_lamp_value(9, (data >> 1) & 1); /* HIGH */ output_set_lamp_value(10, (data >> 2) & 1); /* LOW */ output_set_lamp_value(11, (data >> 3) & 1); /* CANCEL */ } static WRITE8_HANDLER(counters_w) { /* COUNTERS: 7654 3210 ---- ---x COIN1 ---- --x- KEYIN ---- -x-- COIN2 ---- x--- COIN3 xxxx ---- unused */ coin_counter_w(space->machine(), 0, data & 0x01); /* COIN 1 */ coin_counter_w(space->machine(), 1, data & 0x04); /* COIN 2 */ coin_counter_w(space->machine(), 2, data & 0x08); /* COIN 3 */ coin_counter_w(space->machine(), 3, data & 0x02); /* KEY IN */ } /* are some of these reads / writes mirrored? there seem to be far too many */ static ADDRESS_MAP_START( portmap, AS_IO, 8 ) ADDRESS_MAP_GLOBAL_MASK(0xff) // i think AM_RANGE(0x0000, 0x003f) AM_RAM // Z180 internal regs AM_RANGE(0x0060, 0x0060) AM_WRITE(output_w) AM_RANGE(0x0090, 0x009f) AM_READ(rtc_r) //AM_WRITENOP AM_RANGE(0x00a0, 0x00a0) AM_WRITE(palette_offset_low_w) AM_RANGE(0x00a1, 0x00a1) AM_WRITE(palette_offset_high_w) AM_RANGE(0x00a2, 0x00a2) AM_WRITE(palette_w) AM_RANGE(0x00b0, 0x00b0) AM_DEVWRITE_MODERN("crtc", mc6845_device, address_w) AM_RANGE(0x00b1, 0x00b1) AM_DEVWRITE_MODERN("crtc", mc6845_device, register_w) AM_RANGE(0x00b8, 0x00b8) AM_READ_PORT("IN0") AM_RANGE(0x00b9, 0x00b9) AM_READ_PORT("IN1") AM_WRITE(counters_w) AM_RANGE(0x00ba, 0x00ba) AM_READ_PORT("IN2") AM_WRITE(lamps_a_w) AM_RANGE(0x00bb, 0x00bb) AM_READ_PORT("IN3") AM_WRITE(lamps_b_w) AM_RANGE(0x00bc, 0x00bc) AM_READ_PORT("DSW1") AM_RANGE(0x00c0, 0x00c3) AM_WRITENOP AM_RANGE(0x00c4, 0x00c7) AM_WRITENOP AM_RANGE(0x00c8, 0x00cb) AM_WRITENOP AM_RANGE(0x00cc, 0x00cf) AM_WRITENOP AM_RANGE(0x00d0, 0x00d3) AM_WRITENOP AM_RANGE(0x00d4, 0x00d7) AM_WRITENOP AM_RANGE(0x00d8, 0x00db) AM_WRITENOP AM_RANGE(0x00dc, 0x00df) AM_WRITENOP AM_RANGE(0x00e4, 0x00e7) AM_WRITENOP AM_RANGE(0x00f3, 0x00f3) AM_WRITENOP AM_RANGE(0x00f7, 0x00f7) AM_WRITENOP AM_RANGE(0x00f8, 0x00f8) AM_READ_PORT("DSW2") AM_RANGE(0x00f9, 0x00f9) AM_READ_PORT("DSW3") AM_RANGE(0x00fa, 0x00fa) AM_READ_PORT("DSW4") AM_RANGE(0x00fb, 0x00fb) AM_READ_PORT("DSW5") //AM_WRITENOP AM_RANGE(0x00fc, 0x00fc) AM_WRITENOP AM_RANGE(0x00fd, 0x00fd) AM_WRITENOP AM_RANGE(0x00fe, 0x00fe) AM_WRITENOP AM_RANGE(0x00ff, 0x00ff) AM_WRITENOP /* C0-C3 seems to be a 4-bytes port device (maybe sound), where is written --> data, control (or channel), unknown, volume. If in fact it's a sound device, the last parameter (volume) is decreasing once the sound event was triggered. Seems to be more than one, and these devices seems mirrored along the rest of memory. */ ADDRESS_MAP_END static INPUT_PORTS_START( luckgrln ) PORT_START("IN0") PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_GAMBLE_DEAL ) PORT_CODE(KEYCODE_1) PORT_NAME("Start") PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_POKER_CANCEL ) PORT_CODE(KEYCODE_N) PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_GAMBLE_BET ) PORT_NAME("Play") PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_GAMBLE_TAKE ) PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_GAMBLE_D_UP ) PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_GAMBLE_HIGH ) PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_GAMBLE_LOW ) PORT_DIPNAME( 0x80, 0x80, "IN0" ) PORT_DIPSETTING( 0x80, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_START("IN1") PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_POKER_HOLD1 ) PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_POKER_HOLD2 ) PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_POKER_HOLD3 ) PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_POKER_HOLD4 ) PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_POKER_HOLD5 ) PORT_DIPNAME( 0x20, 0x20, "IN1" ) PORT_DIPSETTING( 0x20, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x40, 0x40, DEF_STR( Unknown ) ) PORT_DIPSETTING( 0x40, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x80, 0x80, DEF_STR( Unknown ) ) PORT_DIPSETTING( 0x80, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_START("IN2") PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_COIN1 ) PORT_IMPULSE(1) PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_GAMBLE_KEYIN ) PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_COIN2 ) PORT_IMPULSE(1) PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_COIN3 ) PORT_IMPULSE(1) PORT_DIPNAME( 0x10, 0x10, "IN2" ) PORT_DIPSETTING( 0x10, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x20, 0x20, DEF_STR( Unknown ) ) PORT_DIPSETTING( 0x20, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x40, 0x40, DEF_STR( Unknown ) ) PORT_DIPSETTING( 0x40, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x80, 0x80, DEF_STR( Unknown ) ) PORT_DIPSETTING( 0x80, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_START("IN3") PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_SERVICE ) PORT_CODE(KEYCODE_R) PORT_NAME("Reset") PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_SERVICE ) PORT_CODE(KEYCODE_9) PORT_NAME("Service In") PORT_DIPNAME( 0x04, 0x04, "IN3" ) PORT_DIPSETTING( 0x04, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x08, 0x08, DEF_STR( Unknown ) ) PORT_DIPSETTING( 0x08, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_SERVICE ) PORT_CODE(KEYCODE_W) PORT_NAME("Credit Clear") PORT_DIPNAME( 0x20, 0x20, DEF_STR( Unknown ) ) PORT_DIPSETTING( 0x20, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x40, 0x40, DEF_STR( Unknown ) ) PORT_DIPSETTING( 0x40, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_SERVICE ) PORT_CODE(KEYCODE_0) PORT_NAME("Books SW") PORT_START("DSW1") //DIP SW 1 PORT_DIPNAME( 0x01, 0x01, "Auto Hold" ) PORT_DIPSETTING( 0x00, DEF_STR( No ) ) PORT_DIPSETTING( 0x01, DEF_STR( Yes ) ) PORT_DIPNAME( 0x02, 0x02, "Game Type" ) PORT_DIPSETTING( 0x02, "Hold Game" ) PORT_DIPSETTING( 0x00, "Discard Game" ) PORT_DIPNAME( 0x04, 0x04, "Adult Content" ) PORT_DIPSETTING( 0x00, DEF_STR( No ) ) PORT_DIPSETTING( 0x04, DEF_STR( Yes ) ) PORT_DIPNAME( 0x08, 0x08, "DSW1-08" ) PORT_DIPSETTING( 0x08, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x10, 0x10, "Minimal Winning Hand" ) PORT_DIPSETTING( 0x10, "Jacks or Better" ) PORT_DIPSETTING( 0x00, "2 Pairs" ) PORT_DIPNAME( 0x20, 0x20, "Minimum Bet" ) PORT_DIPSETTING( 0x20, "1" ) PORT_DIPSETTING( 0x00, "5" ) PORT_DIPNAME( 0x40, 0x40, "DSW1-40 (Do Not Use)" ) PORT_DIPSETTING( 0x40, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x80, 0x80, "DSW1-80 (Do Not Use)" ) PORT_DIPSETTING( 0x80, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_START("DSW2") //DIP SW 2 PORT_DIPNAME( 0x01, 0x01, "DSW2-01 (Do Not Use)" ) PORT_DIPSETTING( 0x01, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x02, 0x02, "DSW2-02 (Do Not Use)" ) PORT_DIPSETTING( 0x02, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x04, 0x04, "DSW2-04 (Do Not Use)" ) PORT_DIPSETTING( 0x04, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x08, 0x08, "DSW2-08 (Do Not Use)" ) PORT_DIPSETTING( 0x08, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x10, 0x10, "DSW2-10" ) PORT_DIPSETTING( 0x10, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x20, 0x20, "DSW2-20" ) PORT_DIPSETTING( 0x20, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x40, 0x40, "DSW2-40" ) PORT_DIPSETTING( 0x40, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x80, 0x80, "DSW2-80" ) PORT_DIPSETTING( 0x80, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_START("DSW3") PORT_DIPNAME( 0x07, 0x04, "Key In" ) PORT_DIPSETTING( 0x07, "1 Pulse / 5 Credits" ) PORT_DIPSETTING( 0x06, "1 Pulse / 10 Credits" ) PORT_DIPSETTING( 0x05, "1 Pulse / 50 Credits" ) PORT_DIPSETTING( 0x04, "1 Pulse / 100 Credits" ) PORT_DIPSETTING( 0x03, "1 Pulse / 200 Credits" ) PORT_DIPSETTING( 0x02, "1 Pulse / 300 Credits" ) PORT_DIPSETTING( 0x01, "1 Pulse / 500 Credits" ) PORT_DIPSETTING( 0x00, "1 Pulse / 1000 Credits" ) PORT_DIPNAME( 0x38, 0x10, DEF_STR( Coin_A ) ) PORT_DIPSETTING( 0x38, DEF_STR( 1C_1C ) ) PORT_DIPSETTING( 0x30, DEF_STR( 1C_2C ) ) PORT_DIPSETTING( 0x28, DEF_STR( 1C_4C ) ) PORT_DIPSETTING( 0x20, DEF_STR( 1C_5C ) ) PORT_DIPSETTING( 0x18, DEF_STR( 1C_6C ) ) PORT_DIPSETTING( 0x10, "1 Coin / 10 Credits" ) PORT_DIPSETTING( 0x08, "1 Coin / 25 Credits" ) PORT_DIPSETTING( 0x00, "1 Coin / 50 Credits" ) PORT_DIPNAME( 0x40, 0x40, "DSW3-40" ) PORT_DIPSETTING( 0x40, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x80, 0x80, "DSW3-80" ) PORT_DIPSETTING( 0x80, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_START("DSW4") PORT_DIPNAME( 0x0f, 0x04, "Coin C" ) PORT_DIPSETTING( 0x0f, "10 Coins / 1 Credit" ) PORT_DIPSETTING( 0x0e, DEF_STR( 5C_1C ) ) PORT_DIPSETTING( 0x0d, "5 Coins / 2 Credits" ) PORT_DIPSETTING( 0x0c, DEF_STR( 4C_1C ) ) PORT_DIPSETTING( 0x0b, DEF_STR( 3C_1C ) ) PORT_DIPSETTING( 0x0a, DEF_STR( 2C_1C ) ) PORT_DIPSETTING( 0x08, DEF_STR( 1C_1C ) ) PORT_DIPSETTING( 0x09, DEF_STR( 2C_3C ) ) PORT_DIPSETTING( 0x07, DEF_STR( 1C_2C ) ) PORT_DIPSETTING( 0x06, DEF_STR( 1C_3C ) ) PORT_DIPSETTING( 0x05, DEF_STR( 1C_5C ) ) PORT_DIPSETTING( 0x04, "1 Coin / 10 Credits" ) PORT_DIPSETTING( 0x03, "1 Coin / 20 Credits" ) PORT_DIPSETTING( 0x02, "1 Coin / 25 Credits" ) PORT_DIPSETTING( 0x01, "1 Coin / 50 Credits" ) PORT_DIPSETTING( 0x00, "1 Coin / 100 Credits" ) PORT_DIPNAME( 0x70, 0x10, DEF_STR( Coin_B ) ) PORT_DIPSETTING( 0x70, "10 Coins / 1 Credit" ) PORT_DIPSETTING( 0x60, DEF_STR( 9C_1C ) ) PORT_DIPSETTING( 0x50, DEF_STR( 6C_1C ) ) PORT_DIPSETTING( 0x40, DEF_STR( 5C_1C ) ) PORT_DIPSETTING( 0x30, DEF_STR( 3C_1C ) ) PORT_DIPSETTING( 0x20, DEF_STR( 2C_1C ) ) PORT_DIPSETTING( 0x10, DEF_STR( 1C_1C ) ) PORT_DIPSETTING( 0x00, "1 Coin / 200 Credits" ) PORT_DIPNAME( 0x80, 0x80, "DSW4-80" ) PORT_DIPSETTING( 0x80, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_START("DSW5") //DIP SW 5 PORT_DIPNAME( 0x01, 0x01, "DSW5-01 (Do Not Use)" ) PORT_DIPSETTING( 0x01, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x02, 0x02, "DSW5-02 (Do Not Use)" ) PORT_DIPSETTING( 0x02, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x04, 0x04, "DSW5-04" ) PORT_DIPSETTING( 0x04, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x18, 0x18, "Double-Up" ) PORT_DIPSETTING( 0x18, "Double-Up (Normal)" ) PORT_DIPSETTING( 0x08, "Double-Up Poker" ) PORT_DIPSETTING( 0x10, "Double-Up Bingo" ) PORT_DIPSETTING( 0x00, "No Double-Up" ) PORT_DIPNAME( 0x20, 0x20, "DSW5-20" ) PORT_DIPSETTING( 0x20, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x40, 0x40, "DSW5-40" ) PORT_DIPSETTING( 0x40, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) PORT_DIPNAME( 0x80, 0x80, "DSW5-80" ) PORT_DIPSETTING( 0x80, DEF_STR( Off ) ) PORT_DIPSETTING( 0x00, DEF_STR( On ) ) INPUT_PORTS_END static const gfx_layout tiles8x8_layout = { 8,8, RGN_FRAC(1,6), 5, { RGN_FRAC(1,6),RGN_FRAC(3,6),RGN_FRAC(2,6),RGN_FRAC(5,6),RGN_FRAC(4,6) }, /* RGN_FRAC(0,6) isn't used (empty) */ { STEP8(0,1) }, { 0*8,1*8,2*8,3*8,4*8,5*8,6*8,7*8}, 8*8 }; static const gfx_layout tiles8x32_layout = { 8,32, RGN_FRAC(1,6), 5, { RGN_FRAC(1,6),RGN_FRAC(3,6),RGN_FRAC(2,6),RGN_FRAC(5,6),RGN_FRAC(4,6) }, { STEP8(0,1) }, { 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,16*8,17*8,18*8,19*8,20*8,21*8,22*8,23*8,24*8,25*8,26*8,27*8,28*8,29*8,30*8,31*8}, 32*8 }; static GFXDECODE_START( luckgrln ) GFXDECODE_ENTRY( "gfx2", 0, tiles8x8_layout, 0x400, 64 ) GFXDECODE_ENTRY( "reels", 0, tiles8x32_layout, 0, 64 ) GFXDECODE_END static const mc6845_interface mc6845_intf = { "screen", /* screen we are acting on */ 8, /* number of pixels per video memory address */ NULL, /* before pixel update callback */ NULL, /* row update callback */ NULL, /* after pixel update callback */ DEVCB_NULL, /* callback for display state changes */ DEVCB_NULL, /* callback for cursor state changes */ DEVCB_NULL, /* HSYNC callback */ DEVCB_NULL, /* VSYNC callback */ NULL /* update address callback */ }; static INTERRUPT_GEN( luckgrln_irq ) { luckgrln_state *state = device->machine().driver_data(); if(state->m_nmi_enable) cputag_set_input_line(device->machine(), "maincpu", INPUT_LINE_NMI, PULSE_LINE); } static MACHINE_CONFIG_START( luckgrln, luckgrln_state ) MCFG_CPU_ADD("maincpu", Z180,8000000) MCFG_CPU_PROGRAM_MAP(mainmap) MCFG_CPU_IO_MAP(portmap) MCFG_CPU_VBLANK_INT("screen", luckgrln_irq) MCFG_MC6845_ADD("crtc", H46505, 6000000/4, mc6845_intf) /* unknown clock, hand tuned to get ~60 fps */ MCFG_SCREEN_ADD("screen", RASTER) MCFG_SCREEN_REFRESH_RATE(60) MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(0)) MCFG_SCREEN_FORMAT(BITMAP_FORMAT_INDEXED16) MCFG_SCREEN_SIZE(512, 256) MCFG_SCREEN_VISIBLE_AREA(0, 512-1, 0, 256-1) MCFG_SCREEN_UPDATE(luckgrln) MCFG_GFXDECODE(luckgrln) MCFG_PALETTE_LENGTH(0x8000) MCFG_VIDEO_START(luckgrln) MCFG_SPEAKER_STANDARD_MONO("mono") MACHINE_CONFIG_END static DRIVER_INIT( luckgrln ) { int i; UINT8 x,v; UINT8* rom = machine.region("rom_data")->base(); for (i=0;i<0x20000;i++) { x = rom[i]; v = 0xfe + (i & 0xf)*0x3b + ((i >> 4) & 0xf)*0x9c + ((i >> 8) & 0xf)*0xe1 + ((i >> 12) & 0x7)*0x10; v += ((((i >> 4) & 0xf) + ((i >> 2) & 3)) >> 2) * 0x50; x ^= ~v; x = (x << (i & 7)) | (x >> (8-(i & 7))); rom[i] = x; } #if 0 { FILE *fp; char filename[256]; sprintf(filename,"decrypted_%s", machine.system().name); fp=fopen(filename, "w+b"); if (fp) { fwrite(rom, 0x20000, 1, fp); fclose(fp); } } #endif // ?? // memory_set_bankptr(machine, "bank1",&rom[0x010000]); } ROM_START( luckgrln ) ROM_REGION( 0x4000, "maincpu", 0 ) // internal Z180 rom ROM_LOAD( "lucky74.bin", 0x00000, 0x4000, CRC(fa128e05) SHA1(97a9534b8414f984159271db48b153b0724d22f9) ) ROM_REGION( 0x20000, "rom_data", 0 ) // external data / cpu rom ROM_LOAD( "falcon.13", 0x00000, 0x20000, CRC(f7a717fd) SHA1(49a39b84620876ee2faf73aaa405a1e17cab2da2) ) ROM_REGION( 0x60000, "reels", 0 ) ROM_LOAD( "eagle.1", 0x00000, 0x20000, CRC(37209082) SHA1(ffb30da5920886f37c6b97e03f5a8ec3b6265e68) ) // half unused, 5bpp ROM_LOAD( "eagle.2", 0x20000, 0x20000, CRC(bdb2d694) SHA1(3e58fe3f6b447181e3a85f0fc2a0c996231bc8e8) ) ROM_LOAD( "eagle.3", 0x40000, 0x20000, CRC(2c765389) SHA1(d5697c73cc939aa46f36c2dd87e90bba2536e347) ) ROM_REGION( 0x60000, "gfx2", 0 ) ROM_LOAD( "falcon.4", 0x00000, 0x20000, CRC(369eaddf) SHA1(52387ea63e5c8fb0c27b796026152a06b68467af) ) // half unused, 5bpp ROM_LOAD( "falcon.5", 0x20000, 0x20000, CRC(c9ac1fe7) SHA1(fc027002754b90cc49ca74fac5240a99a194c0b3) ) ROM_LOAD( "falcon.6", 0x40000, 0x20000, CRC(bfb02c87) SHA1(1b5ca562ed76eb3f1b4a52d379a6af07e79b6ee5) ) ROM_END /********************************************* * Game Drivers * ********************************************** YEAR NAME PARENT MACHINE INPUT INIT ROT COMPANY FULLNAME FLAGS LAYOUT */ GAMEL( 1991, luckgrln, 0, luckgrln, luckgrln, luckgrln, ROT0, "Wing Co., Ltd.", "Lucky Girl (newer Z180 based hardware)", GAME_NO_SOUND, layout_luckgrln )