summaryrefslogtreecommitdiffstatshomepage
path: root/src/mame/drivers/splus.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'src/mame/drivers/splus.cpp')
-rw-r--r--src/mame/drivers/splus.cpp726
1 files changed, 726 insertions, 0 deletions
diff --git a/src/mame/drivers/splus.cpp b/src/mame/drivers/splus.cpp
new file mode 100644
index 00000000000..7075b8c3372
--- /dev/null
+++ b/src/mame/drivers/splus.cpp
@@ -0,0 +1,726 @@
+// license:BSD-3-Clause
+// copyright-holders:Jim Stolis
+/**********************************************************************************
+
+ S-PLUS (S+)
+
+ Driver by Jim Stolis.
+
+ --- Technical Notes ---
+
+ Name: S+
+ Company: IGT - International Game Technology
+ Year: 1994
+
+ Hardware:
+
+ CPU = INTEL 83c02 ; I8052 compatible
+ SND = AY-3-8912 ; AY8910 compatible
+
+ History:
+
+***********************************************************************************/
+#include "emu.h"
+#include "sound/ay8910.h"
+#include "machine/nvram.h"
+#include "cpu/mcs51/mcs51.h"
+#include "machine/i2cmem.h"
+
+#include "splus.lh"
+
+#define DEBUG_OUTPUT 0
+
+class splus_state : public driver_device
+{
+public:
+ splus_state(const machine_config &mconfig, device_type type, const char *tag)
+ : driver_device(mconfig, type, tag),
+ m_cmosl_ram(*this, "cmosl"),
+ m_cmosh_ram(*this, "cmosh"),
+ m_program_ram(*this, "program_ram"),
+ m_reel_ram(*this, "reel_ram"),
+ m_io_port(*this, "io_port"),
+ m_i10(*this, "I10"),
+ m_i20(*this, "I20"),
+ m_i30(*this, "I30"),
+ m_sensor(*this, "SENSOR"),
+ m_maincpu(*this, "maincpu"),
+ m_i2cmem(*this, "i2cmem")
+ {
+ m_sda_dir = 0;
+ m_coin_state = 0;
+ m_last_cycles = 0;
+
+ m_bank10 = 0x00;
+ m_bank20 = 0x00;
+ m_bank30 = 0x00;
+ m_bank40 = 0x00;
+
+ m_p1_reels = 0x00;
+ m_p1_unknown = 0x00;
+ }
+
+ UINT32 screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
+ {
+ return 0;
+ }
+
+ // Pointers to External RAM
+ required_shared_ptr<UINT8> m_cmosl_ram;
+ required_shared_ptr<UINT8> m_cmosh_ram;
+
+ // Program and Reel Data
+ optional_shared_ptr<UINT8> m_program_ram;
+ required_shared_ptr<UINT8> m_reel_ram;
+
+ // IO Ports
+ required_shared_ptr<UINT8> m_io_port;
+ required_ioport m_i10;
+ required_ioport m_i20;
+ required_ioport m_i30;
+ required_ioport m_sensor;
+
+ // EEPROM States
+ int m_sda_dir;
+
+ // Coin-In States
+ UINT8 m_coin_state;
+ UINT64 m_last_cycles;
+ UINT64 m_last_coin_out;
+ UINT8 m_coin_out_state;
+
+ UINT8 m_bank10;
+ UINT8 m_bank20;
+ UINT8 m_bank30;
+ UINT8 m_bank40;
+
+ UINT8 m_p1_reels;
+ UINT8 m_p1_unknown;
+
+ INT16 m_stepper_pos[5];
+ UINT8 m_stop_pos[5];
+
+ DECLARE_WRITE8_MEMBER(splus_io_w);
+ DECLARE_WRITE8_MEMBER(splus_load_pulse_w);
+ DECLARE_WRITE8_MEMBER(splus_serial_w);
+ DECLARE_WRITE8_MEMBER(splus_7seg_w);
+ DECLARE_WRITE8_MEMBER(splus_duart_w);
+ DECLARE_READ8_MEMBER(splus_serial_r);
+ DECLARE_READ8_MEMBER(splus_m_reel_ram_r);
+ DECLARE_READ8_MEMBER(splus_io_r);
+ DECLARE_READ8_MEMBER(splus_duart_r);
+ DECLARE_READ8_MEMBER(splus_watchdog_r);
+ DECLARE_READ8_MEMBER(splus_registers_r);
+ DECLARE_WRITE8_MEMBER(i2c_nvram_w);
+ DECLARE_READ8_MEMBER(splus_reel_optics_r);
+ DECLARE_DRIVER_INIT(splus);
+ required_device<cpu_device> m_maincpu;
+ required_device<i2cmem_device> m_i2cmem;
+};
+
+/* Static Variables */
+#define MAX_STEPPER 200 // 1.8 Degree Stepper Motor = 200 full-steps per revolution, but 400 when in half-step mode
+#define STEPPER_DIVISOR 9.09 //18.18 // To allow for 22 stop positions
+
+static const UINT8 optics[200] = {
+ 0x07, 0x07, 0x00, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x07, 0x07, 0x00, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x07, 0x07, 0x00, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x07, 0x07, 0x00, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x07, 0x07, 0x00, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x07,
+ 0x07, 0x07, 0x00, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x07, 0x07, 0x00, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x07, 0x07, 0x00, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x07, 0x07, 0x00, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x07, 0x07, 0x00, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x07, 0x07, 0x00, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x00, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07, 0x07 };
+
+#define MASTER_CLOCK XTAL_20MHz
+#define CPU_CLOCK ((MASTER_CLOCK)/2) /* divided by 2 - 7474 */
+#define SOUND_CLOCK ((MASTER_CLOCK)/12)
+
+
+/*****************
+* Write Handlers *
+******************/
+
+WRITE8_MEMBER(splus_state::splus_io_w)
+{
+ // P1.0 = Reel 1 Controller
+ // P1.1 = Reel 2 Controller
+ // P1.2 = Reel 3 Controller
+ // P1.3 = Reel 4 Controller
+ // P1.4 = Reel 5 Controller
+ // P1.5 = 7-seg display, door
+ // P1.6 = 7-seg display, prog
+ // P1.7 = Unknown
+ int x = 0;
+
+ // Process Port 1
+ if (offset == 1 && ((data & 0x1f) != 0x00)) {
+ // Unknown Bit 7
+ m_p1_unknown = (~data & 0x80);
+
+ // Stepper Motor Engaged
+ if (((m_bank40 >> 0) & 1) == 0x01) {
+ // Reel Controllers Only
+ m_p1_reels = (data & 0x1f);
+
+ // Loop through Reel Controllers
+ for (x = 0; x < 5; x++) {
+ // Test Reel Controller
+ if (((m_p1_reels >> x) & 1) == 0x01) {
+ // Forward Direction
+ if (((m_bank10 >> 5) & 1) == 0x01) {
+ m_stepper_pos[x]++;
+ if (m_stepper_pos[x] == MAX_STEPPER)
+ m_stepper_pos[x] = 0;
+ } else {
+ m_stepper_pos[x]--;
+ if (m_stepper_pos[x] < 0)
+ m_stepper_pos[x] = MAX_STEPPER - 1;
+ }
+ m_stop_pos[x] = (int)(m_stepper_pos[x] / STEPPER_DIVISOR);
+ }
+ }
+ }
+#if DEBUG_OUTPUT
+ if ((data & 0x1f) == 0x01)
+ osd_printf_info("Steppers %02X-%02X-%02X-%02X-%02X Motor=%02X Dir=%02X reels=%02X unk=%02X\n", m_stop_pos[0],m_stop_pos[1],m_stop_pos[2],m_stop_pos[3],m_stop_pos[4],((m_bank40 >> 0) & 1),((m_bank10 >> 5) & 1),(data & 0x1f), m_p1_unknown);
+#endif
+ }
+
+ m_io_port[offset] = data;
+}
+
+WRITE8_MEMBER(splus_state::splus_load_pulse_w)
+{
+// UINT8 out = 0;
+// out = ((~m_io_port[1] & 0xf0)>>4); // Output Bank
+}
+
+WRITE8_MEMBER(splus_state::splus_serial_w)
+{
+ UINT8 out = 0;
+ out = ((~m_io_port[1] & 0xe0)>>5); // Output Bank
+
+ switch (out)
+ {
+ case 0x00: // Bank 10
+ if (((m_bank10 >> 0) & 1) != ((data >> 0) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Coin Drop Meter =%02X\n",(data >> 0) & 1);
+#endif
+ }
+ if (((m_bank10 >> 1) & 1) != ((data >> 1) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Coin Out Meter =%02X\n",(data >> 1) & 1);
+#endif
+ }
+ if (((m_bank10 >> 2) & 1) != ((data >> 2) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Coin In Meter =%02X\n",(data >> 2) & 1);
+#endif
+ }
+ if (((m_bank10 >> 3) & 1) != ((data >> 3) & 1)) {
+ //osd_printf_info("B Switch for SDS =%02X\n",(data >> 3) & 1);
+ }
+ if (((m_bank10 >> 4) & 1) != ((data >> 4) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Hopper Drive 2 =%02X\n",(data >> 4) & 1);
+#endif
+ }
+ if (((m_bank10 >> 5) & 1) != ((data >> 5) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Stepper Motor Direction =%02X\n",(data >> 5) & 1);
+#endif
+ }
+ if (((m_bank10 >> 6) & 1) != ((data >> 6) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Mechanical Bell =%02X\n",(data >> 6) & 1);
+#endif
+ }
+ if (((m_bank10 >> 7) & 1) != ((data >> 7) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Cancelled Credits Meter =%02X\n",(data >> 7) & 1);
+#endif
+ }
+ m_bank10 = data;
+
+ output_set_value("s_bnk10",(data >> 0) & 1); // Coin Drop Meter
+ output_set_value("s_bnk11",(data >> 1) & 1); // Coin Out Meter
+ output_set_value("s_bnk12",(data >> 2) & 1); // Coin In Meter
+ output_set_value("s_bnk13",(data >> 3) & 1); // B Switch for SDS
+ output_set_value("s_bnk14",(data >> 4) & 1); // Hopper Drive 2
+ output_set_value("s_bnk15",(data >> 5) & 1); // Stepper Motor Direction
+ output_set_value("s_bnk16",(data >> 6) & 1); // Mechanical Bell
+ output_set_value("s_bnk17",(data >> 7) & 1); // Cancelled Credits Meter
+ break;
+ case 0x01: // Bank 20
+ if (((m_bank20 >> 5) & 1) != ((data >> 5) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Games Played Meter =%02X\n",(data >> 5) & 1);
+#endif
+ }
+ if (((m_bank20 >> 6) & 1) != ((data >> 6) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Bill Acceptor Enable =%02X\n",(data >> 6) & 1);
+#endif
+ }
+ if (((m_bank20 >> 7) & 1) != ((data >> 7) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Jackpots Meter =%02X\n",(data >> 7) & 1);
+#endif
+ }
+ m_bank20 = data;
+
+ output_set_value("s_bnk20",(data >> 0) & 1); // Payline Lamp 3
+ output_set_value("s_bnk21",(data >> 1) & 1); // Payline Lamp 4
+ output_set_value("s_bnk22",(data >> 2) & 1); // Payline Lamp 5
+ output_set_value("s_bnk23",(data >> 3) & 1); // Payline Lamp 6
+ output_set_value("s_bnk24",(data >> 4) & 1); // Door Optics Transmitter
+ output_set_value("s_bnk25",(data >> 5) & 1); // Games Played Meter
+ output_set_value("s_bnk26",(data >> 6) & 1); // Bill Acceptor Enable
+ output_set_value("s_bnk27",(data >> 7) & 1); // Jackpots Meter
+ break;
+ case 0x02: // Bank 30
+ if (((m_bank30 >> 2) & 1) != ((data >> 2) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Handle Release =%02X\n",(data >> 2) & 1);
+#endif
+ }
+ if (((m_bank30 >> 3) & 1) != ((data >> 3) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Diverter =%02X\n",(data >> 3) & 1);
+#endif
+ }
+ if (((m_bank30 >> 4) & 1) != ((data >> 4) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Coin Lockout =%02X\n",(data >> 4) & 1);
+#endif
+ }
+ if (((m_bank30 >> 5) & 1) != ((data >> 5) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Hopper Drive 1 =%02X\n",(data >> 5) & 1);
+#endif
+ }
+ m_bank30 = data;
+
+ output_set_value("s_bnk30",(data >> 0) & 1); // Change Candle Lamp Bottom
+ output_set_value("s_bnk31",(data >> 1) & 1); // Change Candle Lamp Top
+ output_set_value("s_bnk32",(data >> 2) & 1); // Handle Release
+ output_set_value("s_bnk33",(data >> 3) & 1); // Diverter
+ output_set_value("s_bnk34",(data >> 4) & 1); // Coin Lockout
+ output_set_value("s_bnk35",(data >> 5) & 1); // Hopper Drive 1
+ output_set_value("s_bnk36",(data >> 6) & 1); // Payline Lamp 1
+ output_set_value("s_bnk37",(data >> 7) & 1); // Payline Lamp 2
+ break;
+ case 0x04: // Bank 40
+ if (((m_bank40 >> 0) & 1) != ((data >> 0) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Stepper Motor Power Supply =%02X\n",(data >> 0) & 1);
+#endif
+ }
+ if (((m_bank40 >> 3) & 1) != ((data >> 3) & 1)) {
+#if DEBUG_OUTPUT
+ osd_printf_info("Jackpot/Hand Pay Lamp =%02X\n",(data >> 3) & 1);
+#endif
+ }
+ m_bank40 = data;
+
+ output_set_value("s_bnk40",(data >> 0) & 1); // Stepper Motor Power Supply
+ output_set_value("s_bnk41",(data >> 1) & 1); // Insert Coin Lamp
+ output_set_value("s_bnk42",(data >> 2) & 1); // Coin Accepted Lamp
+ output_set_value("s_bnk43",(data >> 3) & 1); // Jackpot/Hand Pay Lamp
+ output_set_value("s_bnk44",(data >> 4) & 1); // Play Max Credits Lamp
+ output_set_value("s_bnk45",(data >> 5) & 1); // Bet One Credit Lamp
+ output_set_value("s_bnk46",(data >> 6) & 1); // Cashout Credit Lamp
+ output_set_value("s_bnk47",(data >> 7) & 1); // Spin Button Lamp
+ break;
+ }
+}
+
+WRITE8_MEMBER(splus_state::splus_7seg_w)
+{
+ static const UINT8 ls48_map[16] = { 0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7c,0x07,0x7f,0x67,0x58,0x4c,0x62,0x69,0x78,0x00 };
+
+ UINT8 seg;
+ UINT8 val;
+
+ seg = ((~data & 0xf0)>>4); // Segment Number
+ val = (~data & 0x0f); // Digit Value
+
+ // Need to add ~m_io_port[1]-1 to seg value
+ if (seg < 0x0a && (m_io_port[1] & 0xe0) == 0xe0)
+ output_set_digit_value(seg, ls48_map[val]);
+}
+
+WRITE8_MEMBER(splus_state::splus_duart_w)
+{
+ // Used for Slot Accounting System Communication
+}
+
+WRITE8_MEMBER(splus_state::i2c_nvram_w)
+{
+ m_i2cmem->write_scl(BIT(data, 2));
+ m_sda_dir = BIT(data, 1);
+ m_i2cmem->write_sda(BIT(data, 0));
+}
+
+/****************
+* Read Handlers *
+****************/
+
+READ8_MEMBER(splus_state::splus_serial_r)
+{
+ UINT8 coin_out = 0x00;
+ UINT8 coin_optics = 0x00;
+ UINT8 door_optics = 0x00;
+ UINT32 curr_cycles = m_maincpu->total_cycles();
+
+ UINT8 in = 0x00;
+ UINT8 val = 0x00;
+ in = ((~m_io_port[1] & 0xe0)>>5); // Input Bank
+
+ switch (in)
+ {
+ case 0x00: // Bank 40
+ // Reel #1 - 0=Low State, 1=High State
+ // Reel #2 - The state of Reel 1-5 inputs depends upon where each reel has stopped
+ // Reel #3
+ // Reel #4
+ // Reel #5
+ // Unknown
+ // Unknown
+ // Unknown
+ val = 0xaa;
+ break;
+ case 0x01: // Bank 10
+ // Test for Coin-In
+ if ((m_sensor->read() & 0x01) == 0x01 && m_coin_state == 0) {
+ m_coin_state = 1; // Start Coin Cycle
+ m_last_cycles = m_maincpu->total_cycles();
+#if DEBUG_OUTPUT
+ osd_printf_info("coin=%02X\n", m_coin_state);
+#endif
+ } else {
+ /* Process Next Coin Optic State */
+ if (curr_cycles - m_last_cycles > 10000 && m_coin_state != 0) {
+ m_coin_state++;
+ if (m_coin_state > 5)
+ m_coin_state = 0;
+ m_last_cycles = m_maincpu->total_cycles();
+#if DEBUG_OUTPUT
+ osd_printf_info("coin=%02X\n", m_coin_state);
+#endif
+ }
+ }
+
+ // Set Coin State
+ switch (m_coin_state)
+ {
+ case 0x00: // No Coin
+ coin_optics = 0x00;
+ break;
+ case 0x01: // Optic A
+ coin_optics = 0x01;
+ break;
+ case 0x02: // Optic AB
+ coin_optics = 0x03;
+ break;
+ case 0x03: // Optic ABC
+ coin_optics = 0x07;
+ break;
+ case 0x04: // Optic BC
+ coin_optics = 0x06;
+ break;
+ case 0x05: // Optic C
+ coin_optics = 0x04;
+ break;
+ }
+
+ // Determine Door Optics
+ if ((m_i10->read() & 0x08) == 0x08)
+ door_optics = 0x08;
+ else
+ door_optics = (((m_bank20 >> 4) & 1) << 3); // Use Door Optics Transmitter
+
+ // Test if Hopper 1 and Hopper 2 Motors On
+ if (((m_bank10 >> 4) & 1) || ((m_bank30 >> 5) & 1)) {
+ if (m_coin_out_state == 0)
+ m_coin_out_state = 3;
+ } else {
+ m_coin_out_state = 0;
+ }
+
+ // Process Coin Out
+ if (curr_cycles - m_last_coin_out > 700000 && m_coin_out_state != 0) {
+ if (m_coin_out_state != 2) {
+ m_coin_out_state = 2; // Coin-Out Off
+ } else {
+ m_coin_out_state = 3; // Coin-Out On
+ }
+
+ m_last_coin_out = m_maincpu->total_cycles();
+ }
+
+ // Set Coin Out State
+ switch (m_coin_out_state)
+ {
+ case 0x00: // No Coin-Out
+ coin_out = 0x00;
+ break;
+ case 0x01: // First Coin-Out On
+ coin_out = 0x10;
+ break;
+ case 0x02: // Coin-Out Off
+ coin_out = 0x00;
+ break;
+ case 0x03: // Additional Coin-Out On
+ coin_out = 0x10;
+ break;
+ }
+
+ val = val | coin_optics; // Coin In A B C
+ val = val | door_optics; // Door Optics Receiver
+ val = val | coin_out; // Hopper Coin OutR
+ val = val | 0x00; // Hopper Full
+ val = val | (m_i10->read() & 0x40); // Handle/Spin Button
+ val = val | (m_i10->read() & 0x80); // Jackpot Reset Key
+ break;
+ case 0x02: // Bank 20
+ val = val | (m_i20->read() & 0x01); // Bet One Credit
+ val = val | (m_i20->read() & 0x02); // Play Max Credits
+ val = val | (m_i20->read() & 0x04); // Cash Out
+ val = val | (m_i20->read() & 0x08); // Change Request
+ val = val | 0x00; // Reel Mechanism
+ val = val | (m_i20->read() & 0x20); // Self Test Button
+ val = val | 0x40; // Card Cage
+ val = val | 0x80; // Bill Acceptor
+ break;
+ case 0x04: // Bank 30
+ // Reserved
+ val = val | (m_i30->read() & 0x02); // Drop Door
+ // Jackpot to Credit Key
+ // Reserved
+ // Reserved
+ // Reserved
+ // Reserved
+ // Reserved
+ break;
+ }
+ return val;
+}
+
+READ8_MEMBER(splus_state::splus_m_reel_ram_r)
+{
+ return m_reel_ram[offset];
+}
+
+READ8_MEMBER(splus_state::splus_io_r)
+{
+ if (offset == 3)
+ return m_io_port[offset] & 0xf3; // Ignore Int0 and Int1, or machine will loop forever waiting
+ else
+ return m_io_port[offset];
+}
+
+READ8_MEMBER(splus_state::splus_duart_r)
+{
+ // Used for Slot Accounting System Communication
+ return 0x00;
+}
+
+READ8_MEMBER(splus_state::splus_watchdog_r)
+{
+ return 0x00; // Watchdog
+}
+
+READ8_MEMBER(splus_state::splus_registers_r)
+{
+ return 0xff; // Reset Registers in Real Time Clock
+}
+
+READ8_MEMBER(splus_state::splus_reel_optics_r)
+{
+/*
+ Bit 0 = REEL #1
+ Bit 1 = REEL #2
+ Bit 2 = REEL #3
+ Bit 3 = REEL #4
+ Bit 4 = REEL #5
+ Bit 5 = ???
+ Bit 6 = ???
+ Bit 7 = I2C EEPROM SDA
+*/
+ UINT8 reel_optics = 0x00;
+ UINT8 sda = 0;
+
+ // Return Reel Positions
+ reel_optics = (optics[199-(m_stepper_pos[4])] & 0x10) | (optics[199-(m_stepper_pos[3])] & 0x08) | (optics[199-(m_stepper_pos[2])] & 0x04) | (optics[199-(m_stepper_pos[1])] & 0x02) | (optics[199-(m_stepper_pos[0])] & 0x01);
+
+ if(!m_sda_dir)
+ {
+ sda = m_i2cmem->read_sda();
+ }
+
+ reel_optics = reel_optics | 0x40 | (sda<<7);
+
+ return reel_optics;
+}
+
+/**************
+* Driver Init *
+***************/
+
+DRIVER_INIT_MEMBER(splus_state,splus)
+{
+ UINT8 *reel_data = memregion( "reeldata" )->base();
+
+ // Load Reel Data
+ memcpy(m_reel_ram, &reel_data[0x0000], 0x2000);
+}
+
+
+/*************************
+* Memory map information *
+*************************/
+
+static ADDRESS_MAP_START( splus_map, AS_PROGRAM, 8, splus_state )
+ AM_RANGE(0x0000, 0xffff) AM_ROM AM_SHARE("prograram")
+ADDRESS_MAP_END
+
+static ADDRESS_MAP_START( splus_iomap, AS_IO, 8, splus_state )
+ // Serial I/O
+ AM_RANGE(0x0000, 0x0000) AM_READ(splus_serial_r) AM_WRITE(splus_serial_w)
+
+ // Battery-backed RAM (Lower 4K) 0x1500-0x16ff eeprom staging area
+ AM_RANGE(0x1000, 0x1fff) AM_RAM AM_SHARE("cmosl")
+
+ // Watchdog, 7-segment Display
+ AM_RANGE(0x2000, 0x2000) AM_READWRITE(splus_watchdog_r, splus_7seg_w)
+
+ // DUART
+ AM_RANGE(0x3000, 0x300f) AM_READWRITE(splus_duart_r, splus_duart_w)
+
+ // Dip Switches, Sound
+ AM_RANGE(0x4000, 0x4000) AM_READ_PORT("SW1") AM_DEVWRITE("aysnd", ay8910_device, address_w)
+ AM_RANGE(0x4001, 0x4001) AM_DEVWRITE("aysnd", ay8910_device, data_w)
+
+ // Reel Optics, EEPROM
+ AM_RANGE(0x5000, 0x5000) AM_READ(splus_reel_optics_r) AM_WRITE(i2c_nvram_w)
+
+ // Reset Registers in Realtime Clock, Serial I/O Load Pulse
+ AM_RANGE(0x6000, 0x6000) AM_READWRITE(splus_registers_r, splus_load_pulse_w)
+
+ // Battery-backed RAM (Upper 4K)
+ AM_RANGE(0x7000, 0x7fff) AM_RAM AM_SHARE("cmosh")
+
+ // SSxxxx Reel Chip
+ AM_RANGE(0x8000, 0x9fff) AM_READ(splus_m_reel_ram_r) AM_SHARE("reel_ram")
+
+ // Ports start here
+ AM_RANGE(MCS51_PORT_P0, MCS51_PORT_P3) AM_READ(splus_io_r) AM_WRITE(splus_io_w) AM_SHARE("io_port")
+ADDRESS_MAP_END
+
+/*************************
+* Input ports *
+*************************/
+
+static INPUT_PORTS_START( splus )
+ PORT_START("I10")
+ PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_UNKNOWN ) PORT_NAME("Door") PORT_CODE(KEYCODE_O) PORT_TOGGLE
+ PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_NAME("Spin") PORT_CODE(KEYCODE_Q)
+ PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_NAME("Jackpot Reset") PORT_CODE(KEYCODE_L)
+
+ PORT_START("I20")
+ PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_NAME("Play Credit") PORT_CODE(KEYCODE_R)
+ PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_NAME("Max Bet") PORT_CODE(KEYCODE_W)
+ PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_NAME("Cashout") PORT_CODE(KEYCODE_T)
+ PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_NAME("Change Request") PORT_CODE(KEYCODE_Y)
+ PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_NAME("Self Test") PORT_CODE(KEYCODE_K)
+
+ PORT_START("I30")
+ PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_UNKNOWN ) PORT_NAME("Drop Door") PORT_CODE(KEYCODE_D) PORT_TOGGLE
+
+ PORT_START("SENSOR")
+ PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_COIN1) PORT_NAME("Coin In") PORT_IMPULSE(1)
+
+ PORT_START("SW1")
+ PORT_DIPNAME( 0x01, 0x01, "Hopper Limit 1" )
+ PORT_DIPSETTING( 0x01, DEF_STR( Off ) )
+ PORT_DIPSETTING( 0x00, DEF_STR( On ) )
+ PORT_DIPNAME( 0x02, 0x02, "Hopper Limit 2" )
+ PORT_DIPSETTING( 0x02, DEF_STR( Off ) )
+ PORT_DIPSETTING( 0x00, DEF_STR( On ) )
+ PORT_DIPNAME( 0x04, 0x04, "Sound Generator" )
+ PORT_DIPSETTING( 0x04, DEF_STR( Off ) )
+ PORT_DIPSETTING( 0x00, DEF_STR( On ) )
+ PORT_DIPNAME( 0x08, 0x08, "Game Speed/Bills to Hopper" ) // Either Game Speed or Bills to Hopper depending on game
+ PORT_DIPSETTING( 0x08, "Normal/Set in Self Test" )
+ PORT_DIPSETTING( 0x00, "Fast/Auto Exchange" )
+ PORT_DIPNAME( 0x10, 0x10, "Progressives" )
+ PORT_DIPSETTING( 0x10, DEF_STR( None ) )
+ PORT_DIPSETTING( 0x00, "Allow" )
+ PORT_DIPNAME( 0x20, 0x20, "High/Low Progressives" )
+ PORT_DIPSETTING( 0x20, "Single Level Alternating" )
+ PORT_DIPSETTING( 0x00, "High/Low" )
+ PORT_DIPNAME( 0x40, 0x40, "Double Progressives" )
+ PORT_DIPSETTING( 0x40, DEF_STR( Single ) )
+ PORT_DIPSETTING( 0x00, "Double" )
+ PORT_DIPNAME( 0x80, 0x80, "Link Progressives" )
+ PORT_DIPSETTING( 0x80, "Standalone" )
+ PORT_DIPSETTING( 0x00, "Link" )
+INPUT_PORTS_END
+
+
+/*************************
+* Machine Driver *
+*************************/
+
+static MACHINE_CONFIG_START( splus, splus_state ) // basic machine hardware
+ MCFG_CPU_ADD("maincpu", I80C32, CPU_CLOCK)
+ MCFG_CPU_PROGRAM_MAP(splus_map)
+ MCFG_CPU_IO_MAP(splus_iomap)
+
+ // Fill NVRAM
+ MCFG_NVRAM_ADD_0FILL("cmosl")
+ MCFG_NVRAM_ADD_0FILL("cmosh")
+
+ // video hardware (ALL FAKE, NO VIDEO)
+ MCFG_PALETTE_ADD("palette", 16*16)
+ MCFG_SCREEN_ADD("scrn", RASTER)
+ MCFG_SCREEN_REFRESH_RATE(60)
+ MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(0))
+ MCFG_SCREEN_UPDATE_DRIVER(splus_state, screen_update)
+ MCFG_SCREEN_SIZE((52+1)*8, (31+1)*8)
+ MCFG_SCREEN_VISIBLE_AREA(0*8, 40*8-1, 0*8, 25*8-1)
+ MCFG_SCREEN_PALETTE("palette")
+
+ MCFG_X2404P_ADD("i2cmem")
+
+ // sound hardware
+ MCFG_SPEAKER_STANDARD_MONO("mono")
+
+ MCFG_SOUND_ADD("aysnd", AY8912, SOUND_CLOCK)
+ MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.75)
+MACHINE_CONFIG_END
+
+/*************************
+* Rom Load *
+*************************/
+
+ROM_START( spss4240 ) /* Coral Reef (SS4240) */
+ ROM_REGION( 0x10000, "maincpu", 0 )
+ ROM_LOAD( "sp1271.u52", 0x00000, 0x10000, CRC(dc164599) SHA1(7114652a733b26cd711dbe4d65dde065ba73619f) )
+
+ ROM_REGION( 0x02000, "reeldata", 0 )
+ ROM_LOAD( "ss4240.u53", 0x00000, 0x02000, CRC(c5715b9b) SHA1(8b0ca15b520a5c8e1ebec13e3a1dc304fb40aea0) )
+ROM_END
+
+/*************************
+* Game Drivers *
+*************************/
+
+/* YEAR NAME PARENT MACHINE INPUT INIT ROT COMPANY FULLNAME FLAGS LAYOUT */
+GAMEL( 1994, spss4240, 0, splus, splus, splus_state, splus, ROT0, "IGT - International Game Technology", "S-Plus (SS4240) Coral Reef", MACHINE_NOT_WORKING, layout_splus )