mirror of
https://github.com/holub/mame
synced 2025-05-23 22:20:01 +03:00
Improvements to re900.c driver [Roberto Fresca, Grull Osgo]
- Reworked inputs to allow 6 players through a selector. - Hooked all lamps (even the ball simulator array). - Added a internal layout and support for external artwork. - Extended the hardware to support Buena Suerte '94. - Cleaned up the driver. New games added or promoted from NOT_WORKING status --------------------------------------------------- Buena Suerte '94 [Grull Osgo, Roberto Fresca]
This commit is contained in:
Roberto Fresca
parent
ce7f16d0ef
commit
aaa8405a51
@ -1,26 +1,74 @@
|
||||
/*************************************************************************
|
||||
/***********************************************************************************
|
||||
|
||||
re900.c
|
||||
re900.c
|
||||
|
||||
Ruleta RE-900 - Entretenimientos GEMINI (1990)
|
||||
Ruleta RE-900 - Entretenimientos GEMINIS & GENATRON (C) 1993
|
||||
|
||||
Driver by Grull Osgo.
|
||||
Driver by Grull Osgo.
|
||||
Additional work by Roberto Fresca.
|
||||
|
||||
Games running on this hardware:
|
||||
Games running on this hardware:
|
||||
|
||||
* Ruleta RE-900, 1990, Entretenimientos GEMINI.
|
||||
* Buena Suerte '94 1990, Entretenimientos GEMINI.
|
||||
* Ruleta RE-900, 1993, Entretenimientos GEMINIS.
|
||||
* Buena Suerte '94 1994, Entretenimientos GEMINIS.
|
||||
|
||||
|
||||
Preliminary Version:
|
||||
************************************************************************************
|
||||
|
||||
Video: OK.
|
||||
Sound: OK.
|
||||
Inputs: Incomplete.
|
||||
Outputs: Incomplete.
|
||||
Layout: Incomplete.
|
||||
Hardware Info
|
||||
=============
|
||||
|
||||
* Main board:
|
||||
|
||||
1x AMD P80C31BH Main CPU.
|
||||
1x AY-3-8910 Sound & I/O System.
|
||||
1x TMS-9129-NL Video System.
|
||||
|
||||
1x 27C512 EPROM Program ROM.
|
||||
1x MS6264L-10PC (8Kx8) SRAM Data Memory (Battery Backed RAM).
|
||||
2x TMS4416-15NL (64Kx4) DRAM Video Memory.
|
||||
|
||||
1x 11.0592 MHz Crystal CPU clock.
|
||||
1x 10.738635 MHz. Crystal Video System clock.
|
||||
1x MAX691CPE Power supervisor system, Data RAM Protect and Watchdog.
|
||||
|
||||
1x 3.6 Ni-Cd Battery Data Memory.
|
||||
1x LM380N-8 1 Channel Audio Amplifier.
|
||||
|
||||
|
||||
************************************************************************************
|
||||
|
||||
Game Info
|
||||
=========
|
||||
|
||||
* RE-900 Electronic Roulette.- 6 Players - W/ Random Bonus Multiplier (up to 10x)
|
||||
|
||||
How to play...
|
||||
|
||||
This Roulette allow up to 6 players. To start the machine, turn the Operator Key
|
||||
(the the Operator Key light will turn green). Whilest this key is turned ON, you
|
||||
can insert credits, play, and payout. Once the key is turned OFF (red light), you
|
||||
can play, but credits can't be entered/taken.
|
||||
|
||||
You can select the player number through key "L" (the respective player light will
|
||||
lite on). Key-In for all 6 players are keys 1-2-3-4-5-6 and Key-Out are Q-W-E-R-T-Y
|
||||
respectively. Up-Down-Left-Right to place cursor, and left CTRL to place a bet.
|
||||
After a short time without activity, the roulette start to play, simulating the ball
|
||||
with an array of leds...
|
||||
|
||||
We made a full artwork that allow you to play this game with bells and whistles.
|
||||
|
||||
|
||||
* Buena Suerte ´94 Video Poker Game w/ Double Up feature - 1 Player.
|
||||
|
||||
This game is a reprogrammed version of the Buena Suerte! poker game, to run on this
|
||||
GEMINIS RE900 hardware.
|
||||
|
||||
Graphics are worse than original BS, but sounds are improved through the AY-8910.
|
||||
|
||||
|
||||
***********************************************************************************/
|
||||
|
||||
***************************************************************************/
|
||||
|
||||
#define MASTER_CLOCK 11059200
|
||||
#define VDP_CLOCK 10730000
|
||||
@ -30,88 +78,89 @@
|
||||
#include "cpu/mcs51/mcs51.h"
|
||||
#include "video/tms9928a.h"
|
||||
#include "sound/ay8910.h"
|
||||
//#include "re900.lh"
|
||||
#include "re900.lh"
|
||||
|
||||
static UINT8 *re900_rom;
|
||||
static UINT8 psg_pa, psg_pb = 0, mux_data = 0, ledant = 0, player = 1, stat_a= 1;
|
||||
|
||||
|
||||
/**********************
|
||||
* Read/Write Handlers *
|
||||
**********************/
|
||||
/****************
|
||||
* Read Handlers *
|
||||
****************/
|
||||
|
||||
static READ8_HANDLER (in_port_0_r)
|
||||
static READ8_HANDLER (re_psg_portA_r)
|
||||
{
|
||||
if ((input_port_read(machine, "IN0") & 0x01) == 0) output_set_lamp_value(1,1); else output_set_lamp_value(1,0);
|
||||
if ((input_port_read(machine, "IN0") & 0x02) == 0) output_set_lamp_value(2,1); else output_set_lamp_value(2,0);
|
||||
if ((input_port_read(machine, "IN0") & 0x01) == 0)
|
||||
{
|
||||
output_set_lamp_value(0,1); // Operator Key ON
|
||||
}
|
||||
|
||||
else
|
||||
{
|
||||
output_set_lamp_value(0,0); // Operator Key OFF
|
||||
}
|
||||
|
||||
return input_port_read(machine, "IN0");
|
||||
}
|
||||
|
||||
static READ8_HANDLER (in_port_1_r)
|
||||
{
|
||||
if ((input_port_read(machine, "IN1") & 0x01) == 0) output_set_lamp_value(3,1); else output_set_lamp_value(3,0);
|
||||
if ((input_port_read(machine, "IN1") & 0x02) == 0) output_set_lamp_value(4,1); else output_set_lamp_value(4,0);
|
||||
if ((input_port_read(machine, "IN1") & 0x04) == 0) output_set_lamp_value(5,1); else output_set_lamp_value(5,0);
|
||||
if ((input_port_read(machine, "IN1") & 0x08) == 0) output_set_lamp_value(6,1); else output_set_lamp_value(6,0);
|
||||
if ((input_port_read(machine, "IN1") & 0x10) == 0) output_set_lamp_value(7,1); else output_set_lamp_value(7,0);
|
||||
return input_port_read(machine, "IN1") | 0x80;
|
||||
}
|
||||
|
||||
static WRITE8_HANDLER (output_port_3_w)
|
||||
{
|
||||
|
||||
output_set_lamp_value(1,1 ^ ( (data >> 4) & 1)); /* Cont. Sal */
|
||||
output_set_lamp_value(2,1 ^ ( (data >> 5) & 1)); /* Cont. Ent */
|
||||
//output_set_lamp_value(20,1);
|
||||
|
||||
}
|
||||
|
||||
static UINT8 mux_data = 0, ledant = 0;
|
||||
static UINT8 psg_pb = 0;
|
||||
static UINT8 psg_pa;
|
||||
|
||||
|
||||
static WRITE8_HANDLER (mux_port_A_w)
|
||||
{
|
||||
psg_pa = data;
|
||||
mux_data = ((data >> 2) & 0x3f) ^ 0x3f;
|
||||
}
|
||||
|
||||
static READ8_HANDLER (mux_port_B_r)
|
||||
static READ8_HANDLER (re_psg_portB_r)
|
||||
{
|
||||
UINT8 retval = 0xff;
|
||||
logerror("llamada a re_psg_portB_r\n");
|
||||
/* This is a hack to select the active player due to Keyboard size restrictions */
|
||||
|
||||
output_set_lamp_value(player,1);
|
||||
|
||||
if (input_port_read(machine, "IN_S"))
|
||||
{
|
||||
if (!stat_a)
|
||||
{
|
||||
output_set_lamp_value(1, 0);
|
||||
output_set_lamp_value(2, 0);
|
||||
output_set_lamp_value(3, 0);
|
||||
output_set_lamp_value(4, 0);
|
||||
output_set_lamp_value(5, 0);
|
||||
output_set_lamp_value(6, 0);
|
||||
player++;
|
||||
|
||||
if (player == 7)
|
||||
{
|
||||
player = 1;
|
||||
}
|
||||
|
||||
output_set_lamp_value(player, 1); /* It shows active player via layout buttons */
|
||||
stat_a = 1;
|
||||
}
|
||||
}
|
||||
|
||||
else
|
||||
{
|
||||
stat_a = 0;
|
||||
}
|
||||
/* End of Select Player Hack */
|
||||
|
||||
/* "INA": Unified port to share the player Keys among all players - Key In & Key Out have their own buttons on keyboard. */
|
||||
switch( mux_data )
|
||||
{
|
||||
case 0x20: retval = in_port_1_r(machine, 1); break; // Player 1
|
||||
case 0x10: retval = input_port_read(machine, "IN2"); break; // Player 2
|
||||
case 0x01: retval = input_port_read(machine, "IN3"); break; // Player 6
|
||||
case 0x01: retval = (input_port_read(machine, "IN6") | 0x80 ) - (( player == 6 ) ? (input_port_read(machine, "INA") | 0x80 ) ^ 0xff: 0x00 ); break; /* Player 6 */
|
||||
case 0x02: retval = (input_port_read(machine, "IN5") | 0x80 ) - (( player == 5 ) ? (input_port_read(machine, "INA") | 0x80 ) ^ 0xff: 0x00 ); break; /* Player 5 */
|
||||
case 0x04: retval = (input_port_read(machine, "IN4") | 0x80 ) - (( player == 4 ) ? (input_port_read(machine, "INA") | 0x80 ) ^ 0xff: 0x00 ); break; /* Player 4 */
|
||||
case 0x08: retval = (input_port_read(machine, "IN3") | 0x80 ) - (( player == 3 ) ? (input_port_read(machine, "INA") | 0x80 ) ^ 0xff: 0x00 ); break; /* Player 3 */
|
||||
case 0x10: retval = (input_port_read(machine, "IN2") | 0x80 ) - (( player == 2 ) ? (input_port_read(machine, "INA") | 0x80 ) ^ 0xff: 0x00 ); break; /* Player 2 */
|
||||
case 0x20: retval = (input_port_read(machine, "IN1") | 0x80 ) - (( player == 1 ) ? (input_port_read(machine, "INA") | 0x80 ) ^ 0xff: 0x00 ); break; /* Player 1 */
|
||||
}
|
||||
|
||||
return retval;
|
||||
}
|
||||
|
||||
static WRITE8_HANDLER (mux_port_B_w)
|
||||
static READ8_HANDLER (bs94_portA_r)
|
||||
{
|
||||
UINT8 led;
|
||||
psg_pb = data;
|
||||
//stb = (data >> 7) & 1;
|
||||
led = (psg_pa >> 2) & 0x3f;
|
||||
return input_port_read(machine, "IN0");
|
||||
}
|
||||
|
||||
if (data == 0x7f)
|
||||
{
|
||||
logerror("LED Ruleta %x \n", led);
|
||||
output_set_lamp_value(20 + led,1);
|
||||
|
||||
if (led != ledant)
|
||||
{
|
||||
output_set_lamp_value(20 + ledant,0);
|
||||
ledant = led;
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
//popmessage("PSG_B=%x", psg_pb);
|
||||
//output_set_lamp_value(0, 1 ^ ((data >> 7) & 1)); /* Strobe Led's Ruleta */
|
||||
static READ8_HANDLER (bs94_portB_r)
|
||||
{
|
||||
return input_port_read(machine, "IN1");
|
||||
}
|
||||
|
||||
static READ8_HANDLER (rom_r)
|
||||
@ -119,29 +168,50 @@ static READ8_HANDLER (rom_r)
|
||||
return re900_rom[offset];
|
||||
}
|
||||
|
||||
/*
|
||||
External RAM Callback for I8052
|
||||
READ32_HANDLER(re900_external_ram_iaddr)
|
||||
|
||||
/***********************
|
||||
* Write Handlers *
|
||||
***********************/
|
||||
|
||||
static WRITE8_HANDLER (re_mux_port_A_w)
|
||||
{
|
||||
UINT8 p2 = i8051_get_intram(P2);
|
||||
if (offset < 0x100)
|
||||
{
|
||||
return ((p2 << 8) | offset);
|
||||
}
|
||||
else
|
||||
return offset;
|
||||
psg_pa = data;
|
||||
mux_data = ((data >> 2) & 0x3f) ^ 0x3f;
|
||||
}
|
||||
|
||||
static WRITE8_HANDLER (re_mux_port_B_w)
|
||||
{
|
||||
UINT8 led;
|
||||
psg_pb = data;
|
||||
led = (psg_pa >> 2) & 0x3f;
|
||||
|
||||
if (data == 0x7f)
|
||||
{
|
||||
output_set_lamp_value(20 + led, 1);
|
||||
|
||||
if (led != ledant)
|
||||
{
|
||||
output_set_lamp_value(20 + ledant, 0);
|
||||
ledant = led;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
static WRITE8_HANDLER (cpu_port_0_w)
|
||||
{
|
||||
// output_set_lamp_value(7,1 ^ ( (data >> 4) & 1)); /* Cont. Sal */
|
||||
// output_set_lamp_value(8,1 ^ ( (data >> 5) & 1)); /* Cont. Ent */
|
||||
}
|
||||
*/
|
||||
|
||||
static WRITE8_HANDLER(re900_watchdog_reset_w)
|
||||
{
|
||||
//watchdog_reset_w(machine,0,0); /* To do ! */
|
||||
//watchdog_reset_w(machine,0,0); /* To do! */
|
||||
}
|
||||
|
||||
|
||||
/*****************************
|
||||
* Memory Map Information *
|
||||
*****************************/
|
||||
/*******************************
|
||||
* Memory Map Information *
|
||||
*******************************/
|
||||
|
||||
static ADDRESS_MAP_START( mem_prg, ADDRESS_SPACE_PROGRAM, 8 )
|
||||
AM_RANGE(0x0000, 0xffff) AM_ROM AM_BASE(&re900_rom)
|
||||
@ -156,15 +226,11 @@ static ADDRESS_MAP_START( mem_io, ADDRESS_SPACE_IO, 8 )
|
||||
AM_RANGE(0xe801, 0xe801) AM_WRITE(ay8910_write_port_0_w)
|
||||
AM_RANGE(0xe802, 0xe802) AM_READ(ay8910_read_port_0_r)
|
||||
AM_RANGE(0xe000, 0xefff) AM_WRITE(re900_watchdog_reset_w)
|
||||
AM_RANGE(MCS51_PORT_P0, MCS51_PORT_P0) AM_WRITE(output_port_3_w)
|
||||
AM_RANGE(MCS51_PORT_P2, MCS51_PORT_P2) AM_RAM
|
||||
AM_RANGE(MCS51_PORT_P0, MCS51_PORT_P0) AM_WRITE(cpu_port_0_w)
|
||||
AM_RANGE(MCS51_PORT_P2, MCS51_PORT_P2) AM_NOP
|
||||
AM_RANGE(MCS51_PORT_P3, MCS51_PORT_P3) AM_NOP
|
||||
ADDRESS_MAP_END
|
||||
/*
|
||||
static ADDRESS_MAP_START( mem_io, ADDRESS_SPACE_IO, 8 )
|
||||
AM_RANGE(0x00, 0x00) AM_WRITE(output_port_3_w)
|
||||
AM_RANGE(0x02, 0x02) AM_RAM
|
||||
ADDRESS_MAP_END
|
||||
*/
|
||||
|
||||
|
||||
static INTERRUPT_GEN( re900_video_interrupt )
|
||||
{
|
||||
@ -182,77 +248,161 @@ static void vdp_interrupt (running_machine *machine, int state)
|
||||
************************/
|
||||
|
||||
INPUT_PORTS_START( re900 )
|
||||
|
||||
PORT_START("IN0")
|
||||
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_SERVICE ) PORT_NAME("Operator Key") PORT_TOGGLE PORT_CODE(KEYCODE_0)
|
||||
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_SERVICE ) PORT_NAME("Auditor Key") PORT_TOGGLE PORT_CODE(KEYCODE_9)
|
||||
|
||||
PORT_START("INA")
|
||||
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_NAME("Bet")
|
||||
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_BUTTON2 ) PORT_NAME("Left") PORT_CODE(KEYCODE_LEFT)
|
||||
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_BUTTON3 ) PORT_NAME("Right") PORT_CODE(KEYCODE_RIGHT)
|
||||
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_BUTTON4 ) PORT_NAME("Up") PORT_CODE(KEYCODE_UP)
|
||||
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_BUTTON5 ) PORT_NAME("Down") PORT_CODE(KEYCODE_DOWN)
|
||||
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
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_BUTTON1 ) PORT_NAME("P1-Apuesta") PORT_CODE(KEYCODE_Q)
|
||||
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_BUTTON2 ) PORT_NAME("P1-Izquierda") PORT_CODE(KEYCODE_W)
|
||||
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_BUTTON3 ) PORT_NAME("P1-Derecha") PORT_CODE(KEYCODE_E)
|
||||
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_BUTTON4 ) PORT_NAME("P1-Arriba") PORT_CODE(KEYCODE_R)
|
||||
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_BUTTON5 ) PORT_NAME("P1-Abajo") PORT_CODE(KEYCODE_T)
|
||||
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_BUTTON6 ) PORT_NAME("P1-Carga") PORT_CODE(KEYCODE_Y)
|
||||
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_BUTTON8 ) PORT_NAME("P1-Descarga") PORT_CODE(KEYCODE_U)
|
||||
PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_SERVICE1 ) PORT_NAME("P1 Key-In") PORT_CODE(KEYCODE_1)
|
||||
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_SERVICE1 ) PORT_NAME("P1 Key-Out") PORT_CODE(KEYCODE_Q)
|
||||
PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
|
||||
PORT_START("IN2")
|
||||
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_NAME("P2-Apuesta") PORT_CODE(KEYCODE_A)
|
||||
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_BUTTON2 ) PORT_NAME("P2-Izquierda") PORT_CODE(KEYCODE_S)
|
||||
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_BUTTON3 ) PORT_NAME("P2-Derecha") PORT_CODE(KEYCODE_D)
|
||||
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_BUTTON4 ) PORT_NAME("P2-Arriba") PORT_CODE(KEYCODE_F)
|
||||
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_BUTTON5 ) PORT_NAME("P2-Abajo") PORT_CODE(KEYCODE_G)
|
||||
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_BUTTON6 ) PORT_NAME("P2-Carga") PORT_CODE(KEYCODE_H)
|
||||
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_BUTTON8 ) PORT_NAME("P2-Descarga") PORT_CODE(KEYCODE_J)
|
||||
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_SERVICE1 ) PORT_NAME("P2 Key-In") PORT_CODE(KEYCODE_2)
|
||||
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_SERVICE1 ) PORT_NAME("P2 Key-Out") PORT_CODE(KEYCODE_W)
|
||||
PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
|
||||
PORT_START("IN3")
|
||||
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_NAME("P3-Apuesta") PORT_CODE(KEYCODE_Z)
|
||||
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_BUTTON2 ) PORT_NAME("P3-Izquierda") PORT_CODE(KEYCODE_X)
|
||||
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_BUTTON3 ) PORT_NAME("P3-Derecha") PORT_CODE(KEYCODE_C)
|
||||
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_BUTTON4 ) PORT_NAME("P3-Arriba") PORT_CODE(KEYCODE_V)
|
||||
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_BUTTON5 ) PORT_NAME("P3-Abajo") PORT_CODE(KEYCODE_B)
|
||||
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_BUTTON6 ) PORT_NAME("P3-Carga") PORT_CODE(KEYCODE_N)
|
||||
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_BUTTON8 ) PORT_NAME("P3-Descarga") PORT_CODE(KEYCODE_M)
|
||||
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_SERVICE1 ) PORT_NAME("P3 Key-In") PORT_CODE(KEYCODE_3)
|
||||
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_SERVICE1 ) PORT_NAME("P3 Key-Out") PORT_CODE(KEYCODE_E)
|
||||
PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
|
||||
PORT_START("IN4")
|
||||
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_SERVICE1 ) PORT_NAME("P4 Key-In") PORT_CODE(KEYCODE_4)
|
||||
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_SERVICE1 ) PORT_NAME("P4 Key-Out") PORT_CODE(KEYCODE_R)
|
||||
PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
|
||||
PORT_START("IN5")
|
||||
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_SERVICE1 ) PORT_NAME("P5 Key-In") PORT_CODE(KEYCODE_5)
|
||||
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_SERVICE1 ) PORT_NAME("P5 Key-Out") PORT_CODE(KEYCODE_T)
|
||||
PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
|
||||
PORT_START("IN6")
|
||||
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_SERVICE1 ) PORT_NAME("P6 Key-In") PORT_CODE(KEYCODE_6)
|
||||
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_SERVICE1 ) PORT_NAME("P6 Key-Out") PORT_CODE(KEYCODE_Y)
|
||||
PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_UNUSED )
|
||||
|
||||
PORT_START("IN_S")
|
||||
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON8 ) PORT_NAME("Player Select") PORT_CODE(KEYCODE_L)
|
||||
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_UNUSED )
|
||||
PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_UNUSED )
|
||||
PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_UNUSED )
|
||||
PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_UNUSED )
|
||||
PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_UNUSED )
|
||||
PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_UNUSED )
|
||||
PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_UNUSED )
|
||||
INPUT_PORTS_END
|
||||
|
||||
INPUT_PORTS_START( bs94 )
|
||||
PORT_START("IN0")
|
||||
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_NAME("Bet") PORT_CODE(KEYCODE_2)
|
||||
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_BUTTON2 ) PORT_NAME("Double") PORT_CODE(KEYCODE_3)
|
||||
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_BUTTON3 ) PORT_NAME("Deal/Draw") PORT_CODE(KEYCODE_1)
|
||||
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_BUTTON4 ) PORT_NAME("Hold 5") PORT_CODE(KEYCODE_B)
|
||||
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_BUTTON5 ) PORT_NAME("Take") PORT_CODE(KEYCODE_4)
|
||||
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_BUTTON6 ) PORT_NAME("Hold 4") PORT_CODE(KEYCODE_V)
|
||||
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_BUTTON7 ) PORT_NAME("Cancel") PORT_CODE(KEYCODE_N)
|
||||
PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_BUTTON8 ) PORT_NAME("Hold 3") PORT_CODE(KEYCODE_C)
|
||||
|
||||
PORT_START("IN1")
|
||||
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_NAME("Operator") PORT_TOGGLE PORT_CODE(KEYCODE_0)
|
||||
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_BUTTON2 ) PORT_NAME("Hold 2") PORT_CODE(KEYCODE_X)
|
||||
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_BUTTON3 ) PORT_NAME("Card High") PORT_CODE(KEYCODE_A)
|
||||
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_BUTTON4 ) PORT_NAME("Hold 1") PORT_CODE(KEYCODE_Z)
|
||||
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_BUTTON5 ) PORT_NAME("Card Low") PORT_CODE(KEYCODE_S)
|
||||
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_BUTTON6 ) PORT_NAME("Key In") PORT_CODE(KEYCODE_5)
|
||||
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_BUTTON7 ) PORT_NAME("Key Out") PORT_CODE(KEYCODE_8)
|
||||
PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_BUTTON8 ) PORT_NAME("Auditor") PORT_CODE(KEYCODE_9)
|
||||
INPUT_PORTS_END
|
||||
|
||||
|
||||
/**********************
|
||||
* TMS9928a Interfase *
|
||||
**********************/
|
||||
/***************************
|
||||
* TMS9928a Interfase *
|
||||
***************************/
|
||||
|
||||
static const TMS9928a_interface tms9928a_interface =
|
||||
{
|
||||
TMS99x8A, /* TMS9128NL on pcb */
|
||||
0x4000,
|
||||
0,0,
|
||||
0, 0,
|
||||
vdp_interrupt
|
||||
};
|
||||
|
||||
|
||||
/*********************
|
||||
* AY8910 Interfase *
|
||||
*********************/
|
||||
/*************************
|
||||
* AY8910 Interfase *
|
||||
*************************/
|
||||
|
||||
static const ay8910_interface ay8910_config =
|
||||
static const ay8910_interface ay8910_re900 =
|
||||
{
|
||||
AY8910_LEGACY_OUTPUT,
|
||||
AY8910_DEFAULT_LOADS,
|
||||
in_port_0_r, mux_port_B_r, mux_port_A_w, mux_port_B_w
|
||||
re_psg_portA_r,
|
||||
re_psg_portB_r,
|
||||
re_mux_port_A_w,
|
||||
re_mux_port_B_w
|
||||
};
|
||||
|
||||
static const ay8910_interface ay8910_bs94 =
|
||||
{
|
||||
AY8910_LEGACY_OUTPUT,
|
||||
AY8910_DEFAULT_LOADS,
|
||||
bs94_portA_r,
|
||||
bs94_portB_r,
|
||||
0,
|
||||
0
|
||||
};
|
||||
|
||||
/*********************
|
||||
* Machine driver *
|
||||
*********************/
|
||||
/***************************
|
||||
* Machine Driver *
|
||||
***************************/
|
||||
|
||||
static MACHINE_DRIVER_START( re900 )
|
||||
|
||||
/* basic machine hardware */
|
||||
MDRV_CPU_ADD("main", I8051, MASTER_CLOCK)
|
||||
MDRV_CPU_PROGRAM_MAP(mem_prg, 0)
|
||||
//MDRV_CPU_DATA_MAP(mem_data, 0)
|
||||
MDRV_CPU_IO_MAP(mem_io, 0)
|
||||
MDRV_CPU_VBLANK_INT("main", re900_video_interrupt)
|
||||
|
||||
@ -265,10 +415,19 @@ static MACHINE_DRIVER_START( re900 )
|
||||
|
||||
/* sound hardware */
|
||||
MDRV_SPEAKER_STANDARD_MONO("mono")
|
||||
MDRV_SOUND_ADD("ay", AY8910, TMS_CLOCK) /* From TMS9128NL - Pin 37 (GROMCLK) */
|
||||
MDRV_SOUND_CONFIG(ay8910_config)
|
||||
MDRV_SOUND_ADD("ay_re900", AY8910, TMS_CLOCK) /* From TMS9128NL - Pin 37 (GROMCLK) */
|
||||
MDRV_SOUND_CONFIG(ay8910_re900)
|
||||
MDRV_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.5)
|
||||
MACHINE_DRIVER_END
|
||||
|
||||
static MACHINE_DRIVER_START( bs94 )
|
||||
|
||||
MDRV_IMPORT_FROM(re900)
|
||||
|
||||
/* sound hardware */
|
||||
MDRV_SOUND_MODIFY("ay_re900")
|
||||
MDRV_SOUND_CONFIG(ay8910_bs94)
|
||||
MDRV_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.5)
|
||||
MACHINE_DRIVER_END
|
||||
|
||||
|
||||
@ -281,6 +440,11 @@ ROM_START( re900 )
|
||||
ROM_LOAD( "re900.bin", 0x0000, 0x10000, CRC(967ae944) SHA1(104bab79fd50a8e38ae15058dbe47a59f1ec4b05) )
|
||||
ROM_END
|
||||
|
||||
ROM_START( bs94 )
|
||||
ROM_REGION( 0x10000, "main", 0 )
|
||||
ROM_LOAD( "bs94.bin", 0x0000, 0x10000, CRC(bbd484ce) SHA1(4128e488ca806842c3639e05c4c9cf4c0da2990d) )
|
||||
ROM_END
|
||||
|
||||
|
||||
/************************
|
||||
* Driver Init *
|
||||
@ -288,15 +452,16 @@ ROM_END
|
||||
|
||||
static DRIVER_INIT( re900 )
|
||||
{
|
||||
/* External RAM callback */
|
||||
//i8051_set_eram_iaddr_callback(re900_external_ram_iaddr);
|
||||
TMS9928A_configure(&tms9928a_interface);
|
||||
player = 1;
|
||||
stat_a = 1;
|
||||
}
|
||||
|
||||
|
||||
/*************************
|
||||
* Game Drivers *
|
||||
*************************/
|
||||
|
||||
/* YEAR NAME PARENT MACHINE INPUT INIT ROT COMPANY FULLNAME FLAGS */
|
||||
GAME( 1990, re900, 0, re900, re900, re900, ROT90, "Entretenimientos GEMINI", "Ruleta RE-900", 0 )
|
||||
//GAMEL( 1990, re900, 0, re900, re900, re900, ROT90, "GEMINI", "Ruleta RE-900", 0, layout_re900 )
|
||||
/* YEAR NAME PARENT MACHINE INPUT INIT ROT COMPANY FULLNAME FLAGS LAYOUT */
|
||||
GAMEL( 1993, re900, 0, re900, re900, re900, ROT90, "Entretenimientos GEMINIS", "Ruleta RE-900", 0, layout_re900)
|
||||
GAME ( 1994, bs94 , 0, bs94, bs94 , re900, ROT0, "Entretenimientos GEMINIS", "Buena Suerte '94", 0)
|
||||
|
||||
@ -1769,6 +1769,8 @@ $(DRIVERS)/pmpoker.o: $(LAYOUT)/pmpoker.lh \
|
||||
|
||||
$(DRIVERS)/qix.o: $(LAYOUT)/elecyoyo.lh
|
||||
|
||||
$(DRIVERS)/re900.o: $(LAYOUT)/re900.lh
|
||||
|
||||
$(DRIVERS)/sbrkout.o: $(LAYOUT)/sbrkout.lh
|
||||
|
||||
$(DRIVERS)/sderby.o: $(LAYOUT)/sderby.lh \
|
||||
|
||||
@ -8281,7 +8281,8 @@ Other Sun games
|
||||
DRIVER( lucky74a ) /* (c) 1988 Wing Co., Ltd */
|
||||
DRIVER( magictg ) /* (c) 199? Acclaim */
|
||||
DRIVER( magictga ) /* (c) 199? Acclaim */
|
||||
DRIVER( re900 ) /* (c) 1990 Entretenimientos GEMINI */
|
||||
DRIVER( re900 ) /* (c) 1993 Entretenimientos GEMINIS */
|
||||
DRIVER( bs94 ) /* (c) 1994 Entretenimientos GEMINIS */
|
||||
DRIVER( jokrwild ) /* (c) 1988 Sigma */
|
||||
|
||||
/* InterFlip / Recreativos Franco */
|
||||
|
||||
Loading…
Reference in New Issue
Block a user