Sprinter/mame
2
0
Fork 0
mirror of https://github.com/holub/mame synced 2025-06-12 15:45:52 +03:00
Code Issues Actions 12 Packages Projects Releases Wiki Activity

-f-32.cpp: royalpk2 fixes and updates (#8493) [Ryan Holtz]

Browse Source 
* royalpk2 is now essentially playable, but marked not working due to settings-saving issues.

-cpu/e132xs: Fixed issues with SARDI instruction (fixes mosaicf2). [Ryan Holtz]
This commit is contained in:
MooglyGuy 2021-08-29 17:46:50 +02:00 committed by GitHub
parent 0510428a31
commit cc99e96e30
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 329 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
src/devices/cpu/e132xs/e132xsdrc_ops.hxx
View File

@ -2704,9 +2704,55 @@ void hyperstone_device::generate_shri(drcuml_block &block, compiler_state &compi
template <hyperstone_device::shift_type HI_N> template <hyperstone_device::shift_type HI_N>
void hyperstone_device::generate_sardi(drcuml_block &block, compiler_state &compiler, const opcode_desc *desc) void hyperstone_device::generate_sardi(drcuml_block &block, compiler_state &compiler, const opcode_desc *desc)
{ {
printf("Unimplemented: generate_sardi (%08x)\n", desc->pc); UML_MOV(block, I7, mem(&m_core->clock_cycles_2));
fflush(stdout);
fatalerror(" "); uint16_t op = desc->opptr.w[0];
const uint32_t dst_code = (op & 0xf0) >> 4;
const uint32_t dstf_code = dst_code + 1;
generate_check_delay_pc(block, compiler, desc);
UML_ROLAND(block, I3, DRC_SR, 7, 0x7f);
UML_ADD(block, I2, I3, dst_code);
UML_AND(block, I4, I2, 0x3f);
UML_LOAD(block, I0, (void *)m_core->local_regs, I4, SIZE_DWORD, SCALE_x4);
UML_ADD(block, I2, I3, dstf_code);
UML_AND(block, I5, I2, 0x3f);
UML_LOAD(block, I1, (void *)m_core->local_regs, I5, SIZE_DWORD, SCALE_x4);
#ifndef PTR64
UML_DAND(block, I1, I1, 0x00000000ffffffff);
#endif
UML_DSHL(block, I2, I0, 32);
UML_DOR(block, I0, I1, I2);
UML_AND(block, I4, DRC_SR, ~(C_MASK | Z_MASK | N_MASK));
const uint32_t n = HI_N ? (0x10 | (op & 0xf)) : (op & 0xf);
if (HI_N || n)
{
int no_carry = compiler.m_labelnum++;
UML_DTEST(block, I2, (1 << (n - 1)));
UML_JMPc(block, uml::COND_Z, no_carry);
UML_OR(block, I4, I4, 1);
UML_LABEL(block, no_carry);
UML_DSAR(block, I2, I2, n);
}
UML_DTEST(block, I2, ~0ULL);
UML_MOVc(block, uml::COND_Z, I5, Z_MASK);
UML_MOVc(block, uml::COND_NZ, I5, 0);
UML_DROLINS(block, I5, I2, 3, N_MASK);
UML_OR(block, DRC_SR, I4, I5);
UML_STORE(block, (void *)m_core->local_regs, I6, I2, SIZE_DWORD, SCALE_x4);
UML_DSHR(block, I0, I2, 32);
UML_STORE(block, (void *)m_core->local_regs, I1, I0, SIZE_DWORD, SCALE_x4);
} }

41
src/devices/cpu/e132xs/e132xsop.hxx
View File

@ -1158,10 +1158,8 @@ void hyperstone_device::hyperstone_shrdi()
{ {
check_delay_PC(); check_delay_PC();
const uint32_t fp = GET_FP; const uint32_t dst_code = (DST_CODE + GET_FP) & 0x3f;
const uint32_t code = DST_CODE; const uint32_t dstf_code = (dst_code + 1) & 0x3f;
const uint32_t dst_code = (code + fp) & 0x3f;
const uint32_t dstf_code = (code + 1 + fp) & 0x3f;
uint32_t high_order = m_core->local_regs[dst_code]; uint32_t high_order = m_core->local_regs[dst_code];
const uint32_t low_order = m_core->local_regs[dstf_code]; const uint32_t low_order = m_core->local_regs[dstf_code];
@ -1196,9 +1194,8 @@ void hyperstone_device::hyperstone_shrd()
const uint32_t fp = GET_FP; const uint32_t fp = GET_FP;
const uint32_t src_code = (SRC_CODE + fp) & 0x3f; const uint32_t src_code = (SRC_CODE + fp) & 0x3f;
const uint32_t d_code = DST_CODE; const uint32_t dst_code = (DST_CODE + fp) & 0x3f;
const uint32_t dst_code = (d_code + fp) & 0x3f; const uint32_t dstf_code = (dst_code + 1) & 0x3f;
const uint32_t dstf_code = (d_code + 1 + fp) & 0x3f;
if (src_code == dst_code || src_code == dstf_code) if (src_code == dst_code || src_code == dstf_code)
{ {
@ -1260,8 +1257,10 @@ void hyperstone_device::hyperstone_sardi()
const uint32_t dst_code = (DST_CODE + GET_FP) & 0x3f; const uint32_t dst_code = (DST_CODE + GET_FP) & 0x3f;
const uint32_t dstf_code = (dst_code + 1) & 0x3f; const uint32_t dstf_code = (dst_code + 1) & 0x3f;
uint32_t high_order = m_core->local_regs[dst_code];
const uint32_t low_order = m_core->local_regs[dstf_code];
uint64_t val = concat_64(m_core->local_regs[dst_code], m_core->local_regs[dstf_code]); uint64_t val = concat_64(high_order, low_order);
SR &= ~(C_MASK | Z_MASK | N_MASK); SR &= ~(C_MASK | Z_MASK | N_MASK);
@ -1277,12 +1276,14 @@ void hyperstone_device::hyperstone_sardi()
val |= 0xffffffff00000000U << (32 - n); val |= 0xffffffff00000000U << (32 - n);
} }
high_order = extract_64hi(val);
if (val == 0) if (val == 0)
SR |= Z_MASK; SR |= Z_MASK;
SR |= SIGN_TO_N(m_core->local_regs[dst_code]); SR |= SIGN_TO_N(high_order);
m_core->local_regs[dst_code] = (uint32_t)(val >> 32); m_core->local_regs[dst_code] = high_order;
m_core->local_regs[dstf_code] = (uint32_t)val; m_core->local_regs[dstf_code] = extract_64lo(val);
m_core->icount -= m_core->clock_cycles_2; m_core->icount -= m_core->clock_cycles_2;
} }
@ -1303,7 +1304,10 @@ void hyperstone_device::hyperstone_sard()
return; return;
} }
uint64_t val = concat_64(m_core->local_regs[dst_code], m_core->local_regs[dstf_code]); uint32_t high_order = m_core->local_regs[dst_code];
const uint32_t low_order = m_core->local_regs[dstf_code];
uint64_t val = concat_64(high_order, low_order);
SR &= ~(C_MASK | Z_MASK | N_MASK); SR &= ~(C_MASK | Z_MASK | N_MASK);
@ -1313,22 +1317,21 @@ void hyperstone_device::hyperstone_sard()
{ {
SR |= (val >> (n - 1)) & 1; SR |= (val >> (n - 1)) & 1;
uint32_t sign_bit = val >> 63; const uint64_t sign_bit = val >> 63;
val >>= n; val >>= n;
if (sign_bit) if (sign_bit)
{
val |= 0xffffffff00000000L << (32 - n); val |= 0xffffffff00000000L << (32 - n);
} }
}
high_order = extract_64hi(val);
if (val == 0) if (val == 0)
SR |= Z_MASK; SR |= Z_MASK;
SR |= SIGN64_TO_N(val); SR |= SIGN_TO_N(high_order);
m_core->local_regs[dst_code] = (uint32_t)(val >> 32); m_core->local_regs[dst_code] = high_order;
m_core->local_regs[dstf_code] = (uint32_t)val; m_core->local_regs[dstf_code] = extract_64lo(val);
m_core->icount -= m_core->clock_cycles_2; m_core->icount -= m_core->clock_cycles_2;
} }

314
src/mame/drivers/f-32.cpp
View File

@ -12,60 +12,131 @@
driver by Pierpaolo Prazzoli driver by Pierpaolo Prazzoli
Outputs for Royal Poker 2 (royalpk2):
0: High button
1: Stop button
2: Double Up button
3: Low button *and* Bet button
4: Max Bet button
5: Change button
6: Gift button
7: Hold 1 button
8: Hold 2 button
9: Hold 3 button
10: Hold 4 button
11: Hold 5 button
12: Hold Clear button
13: Staff Call button
14: Start / Deal / Draw button
15: Half Double button
16: 2x Double button
17: Gift 1 lamp
18: Gift 2 lamp
19: Gift 3 lamp
20: 'Medal' (coin output) lamp
21: Counter 1 lamp
22: Counter 2 lamp
23: Counter 3 lamp
24: Counter 4 lamp
25: Counter 5 lamp
26: Light 1 lamp
27: Light 2 lamp
28: Light 3 lamp
29: Light 4 lamp
30: Light 5 lamp
TODO: royalpk2 is marked non-working, as the machine will soft-lock
when attempting to use either settings-save options in the service
menu.
*********************************************************************/ *********************************************************************/
/*
royalpk2 : to get 'secret. OK.'
0002D92C: MOV L18, L29
0002D92E: CMPI L18, $1
0002D930: BNE $2d94c
go 2d92c
do l29 = 1
f5
*/
#include "emu.h" #include "emu.h"
#include "cpu/e132xs/e132xs.h" #include "cpu/e132xs/e132xs.h"
#include "machine/eepromser.h" #include "machine/eepromser.h"
#include "machine/nvram.h"
#include "machine/ticket.h"
#include "sound/okim6295.h" #include "sound/okim6295.h"
#include "sound/ymopm.h" #include "sound/ymopm.h"
#include "emupal.h" #include "emupal.h"
#include "screen.h" #include "screen.h"
#include "speaker.h" #include "speaker.h"
namespace {
class mosaicf2_state : public driver_device class fe132_state : public driver_device
{
public:
fe132_state(const machine_config &mconfig, device_type type, const char *tag) :
driver_device(mconfig, type, tag),
m_maincpu(*this, "maincpu"),
m_eeprom(*this, "eeprom"),
m_videoram(*this, "videoram"),
m_p1(*this, "P1"),
m_system_p2(*this, "SYSTEM_P2")
{ }
protected:
uint32_t screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect);
void common_map(address_map &map);
required_device<hyperstone_device> m_maincpu;
required_device<eeprom_serial_93cxx_device> m_eeprom;
required_shared_ptr<uint32_t> m_videoram;
required_ioport m_p1;
required_ioport m_system_p2;
};
class mosaicf2_state : public fe132_state
{ {
public: public:
mosaicf2_state(const machine_config &mconfig, device_type type, const char *tag) : mosaicf2_state(const machine_config &mconfig, device_type type, const char *tag) :
driver_device(mconfig, type, tag), fe132_state(mconfig, type, tag)
m_maincpu(*this, "maincpu") ,
m_videoram(*this, "videoram")
{ } { }
void mosaicf2(machine_config &config); void mosaicf2(machine_config &config);
void royalpk2(machine_config &config);
private: protected:
/* devices */ uint32_t input_port_1_r();
required_device<hyperstone_device> m_maincpu;
/* memory pointers */
required_shared_ptr<uint32_t> m_videoram;
uint32_t f32_input_port_1_r();
uint32_t screen_update_mosaicf2(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect);
void common_map(address_map &map);
void mosaicf2_io(address_map &map); void mosaicf2_io(address_map &map);
void royalpk2_io(address_map &map);
void royalpk2_map(address_map &map);
}; };
class royalpk2_state : public fe132_state
{
public:
royalpk2_state(const machine_config &mconfig, device_type type, const char *tag) :
fe132_state(mconfig, type, tag),
m_nvram(*this, "nvram"),
m_hopper(*this, "hopper"),
m_lamps(*this, "lamps%u", 0U)
{ }
uint32_t mosaicf2_state::screen_update_mosaicf2(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect) void royalpk2(machine_config &config);
int hopper_r();
protected:
virtual void machine_start() override;
virtual void machine_reset() override;
void royalpk2_io(address_map &map);
void royalpk2_map(address_map &map);
void protection_seed_w(offs_t offset, uint32_t data);
uint32_t protection_response_r();
template <int Bank> void outputs_w(uint32_t data);
required_device<nvram_device> m_nvram;
required_device<hopper_device> m_hopper;
output_finder<31> m_lamps;
uint16_t m_protection_index;
uint8_t m_protection_response_byte;
int m_protection_response_bit;
};
uint32_t fe132_state::screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
{ {
for (offs_t offs = 0; offs < 0x10000; offs++) for (offs_t offs = 0; offs < 0x10000; offs++)
{ {
@ -84,7 +155,7 @@ uint32_t mosaicf2_state::screen_update_mosaicf2(screen_device &screen, bitmap_in
void mosaicf2_state::common_map(address_map &map) void fe132_state::common_map(address_map &map)
{ {
map(0x00000000, 0x001fffff).ram(); map(0x00000000, 0x001fffff).ram();
map(0x40000000, 0x4003ffff).ram().share("videoram"); map(0x40000000, 0x4003ffff).ram().share("videoram");
@ -92,15 +163,15 @@ void mosaicf2_state::common_map(address_map &map)
map(0xfff00000, 0xffffffff).rom().region("user1", 0); map(0xfff00000, 0xffffffff).rom().region("user1", 0);
} }
uint32_t mosaicf2_state::f32_input_port_1_r() uint32_t mosaicf2_state::input_port_1_r()
{ {
/* burn a bunch of cycles because this is polled frequently during busy loops */ // burn a bunch of cycles because this is polled frequently during busy loops
offs_t pc = m_maincpu->pc(); offs_t pc = m_maincpu->pc();
if ((pc == 0x000379de) || (pc == 0x000379cc) ) if (pc == 0x000379de || pc == 0x000379cc)
m_maincpu->eat_cycles(100); m_maincpu->eat_cycles(100);
//else printf("PC %08x\n", pc ); //else printf("PC %08x\n", pc );
return ioport("SYSTEM_P2")->read(); return m_system_p2->read();
} }
@ -109,7 +180,7 @@ void mosaicf2_state::mosaicf2_io(address_map &map)
map(0x4003, 0x4003).r("oki", FUNC(okim6295_device::read)); map(0x4003, 0x4003).r("oki", FUNC(okim6295_device::read));
map(0x4813, 0x4813).r("ymsnd", FUNC(ym2151_device::status_r)); map(0x4813, 0x4813).r("ymsnd", FUNC(ym2151_device::status_r));
map(0x5000, 0x5003).portr("P1"); map(0x5000, 0x5003).portr("P1");
map(0x5200, 0x5203).r(FUNC(mosaicf2_state::f32_input_port_1_r)); map(0x5200, 0x5203).r(FUNC(mosaicf2_state::input_port_1_r));
map(0x5400, 0x5403).portr("EEPROMIN"); map(0x5400, 0x5403).portr("EEPROMIN");
map(0x6003, 0x6003).w("oki", FUNC(okim6295_device::write)); map(0x6003, 0x6003).w("oki", FUNC(okim6295_device::write));
map(0x6803, 0x6803).w("ymsnd", FUNC(ym2151_device::data_w)); map(0x6803, 0x6803).w("ymsnd", FUNC(ym2151_device::data_w));
@ -174,9 +245,9 @@ void mosaicf2_state::mosaicf2(machine_config &config)
m_maincpu->set_addrmap(AS_IO, &mosaicf2_state::mosaicf2_io); m_maincpu->set_addrmap(AS_IO, &mosaicf2_state::mosaicf2_io);
m_maincpu->set_vblank_int("screen", FUNC(mosaicf2_state::irq0_line_hold)); m_maincpu->set_vblank_int("screen", FUNC(mosaicf2_state::irq0_line_hold));
EEPROM_93C46_16BIT(config, "eeprom") EEPROM_93C46_16BIT(config, m_eeprom);
.erase_time(attotime::from_usec(1)) m_eeprom->erase_time(attotime::from_usec(1));
.write_time(attotime::from_usec(1)); m_eeprom->write_time(attotime::from_usec(1));
/* video hardware */ /* video hardware */
screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER)); screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER));
@ -184,7 +255,7 @@ void mosaicf2_state::mosaicf2(machine_config &config)
screen.set_vblank_time(ATTOSECONDS_IN_USEC(2500) /* not accurate */); screen.set_vblank_time(ATTOSECONDS_IN_USEC(2500) /* not accurate */);
screen.set_size(512, 512); screen.set_size(512, 512);
screen.set_visarea(0, 319, 0, 223); screen.set_visarea(0, 319, 0, 223);
screen.set_screen_update(FUNC(mosaicf2_state::screen_update_mosaicf2)); screen.set_screen_update(FUNC(mosaicf2_state::screen_update));
screen.set_palette("palette"); screen.set_palette("palette");
PALETTE(config, "palette", palette_device::RGB_555); PALETTE(config, "palette", palette_device::RGB_555);
@ -206,13 +277,45 @@ void mosaicf2_state::mosaicf2(machine_config &config)
static INPUT_PORTS_START( royalpk2 ) static INPUT_PORTS_START( royalpk2 )
PORT_START("P1") PORT_START("P1")
PORT_BIT( 0x0000ffff, IP_ACTIVE_LOW, IPT_UNKNOWN )
PORT_BIT( 0x00010000, IP_ACTIVE_LOW, IPT_GAMBLE_HIGH )
PORT_BIT( 0x00020000, IP_ACTIVE_LOW, IPT_GAMBLE_LOW )
PORT_BIT( 0x00040000, IP_ACTIVE_LOW, IPT_GAMBLE_PAYOUT )
PORT_BIT( 0x00080000, IP_ACTIVE_LOW, IPT_GAMBLE_D_UP )
PORT_BIT( 0x00100000, IP_ACTIVE_LOW, IPT_GAMBLE_BET )
PORT_BIT( 0x00200000, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_NAME("Max Bet")
PORT_BIT( 0x00400000, IP_ACTIVE_LOW, IPT_BUTTON2 ) PORT_NAME("Change")
PORT_BIT( 0x00800000, IP_ACTIVE_LOW, IPT_BUTTON3 ) PORT_NAME("Gift")
PORT_BIT( 0x01000000, IP_ACTIVE_LOW, IPT_POKER_HOLD1 )
PORT_BIT( 0x02000000, IP_ACTIVE_LOW, IPT_POKER_HOLD2 )
PORT_BIT( 0x04000000, IP_ACTIVE_LOW, IPT_POKER_HOLD3 )
PORT_BIT( 0x08000000, IP_ACTIVE_LOW, IPT_POKER_HOLD4 )
PORT_BIT( 0x10000000, IP_ACTIVE_LOW, IPT_POKER_HOLD5 )
PORT_BIT( 0x20000000, IP_ACTIVE_LOW, IPT_POKER_CANCEL )
PORT_BIT( 0x40000000, IP_ACTIVE_LOW, IPT_BUTTON4 ) PORT_NAME("Staff Call") PORT_CODE(KEYCODE_Q)
PORT_BIT( 0x80000000, IP_ACTIVE_LOW, IPT_GAMBLE_DEAL ) PORT_NAME("Start/Deal/Draw") PORT_CODE(KEYCODE_1)
PORT_START("SYSTEM_P2") PORT_START("SYSTEM_P2")
PORT_BIT( 0x0000ffff, IP_ACTIVE_LOW, IPT_UNKNOWN )
PORT_BIT( 0x00010000, IP_ACTIVE_LOW, IPT_GAMBLE_HALF )
PORT_BIT( 0x00020000, IP_ACTIVE_LOW, IPT_BUTTON5 ) PORT_NAME("2x Double") PORT_CODE(KEYCODE_4)
PORT_BIT( 0x00040000, IP_ACTIVE_LOW, IPT_BUTTON6 ) PORT_NAME("Credit Clear") PORT_CODE(KEYCODE_W)
PORT_BIT( 0x00080000, IP_ACTIVE_LOW, IPT_BUTTON7 ) PORT_NAME("Credit Pay Out") PORT_CODE(KEYCODE_E)
PORT_BIT( 0x00100000, IP_ACTIVE_LOW, IPT_BUTTON8 ) PORT_NAME("Income") PORT_CODE(KEYCODE_R)
PORT_BIT( 0x00200000, IP_ACTIVE_LOW, IPT_BUTTON9 ) PORT_NAME("Income Clear") PORT_CODE(KEYCODE_T)
PORT_BIT( 0x00400000, IP_ACTIVE_LOW, IPT_GAMBLE_SERVICE )
PORT_BIT( 0x00800000, IP_ACTIVE_LOW, IPT_CUSTOM ) PORT_VBLANK("screen") PORT_BIT( 0x00800000, IP_ACTIVE_LOW, IPT_CUSTOM ) PORT_VBLANK("screen")
PORT_BIT( 0xff7fffff, IP_ACTIVE_HIGH, IPT_UNKNOWN ) PORT_BIT( 0x01000000, IP_ACTIVE_LOW, IPT_COIN1 )
PORT_BIT( 0x02000000, IP_ACTIVE_LOW, IPT_COIN2 )
PORT_BIT( 0x04000000, IP_ACTIVE_LOW, IPT_COIN3 )
PORT_BIT( 0x08000000, IP_ACTIVE_LOW, IPT_BUTTON10 ) PORT_NAME("Medal Clear") PORT_CODE(KEYCODE_Y)
PORT_BIT( 0x10000000, IP_ACTIVE_LOW, IPT_BUTTON11 ) PORT_NAME("Operator Gift") PORT_CODE(KEYCODE_U)
PORT_BIT( 0x20000000, IP_ACTIVE_LOW, IPT_CUSTOM ) PORT_READ_LINE_MEMBER(royalpk2_state, hopper_r)
PORT_BIT( 0x40000000, IP_ACTIVE_LOW, IPT_BUTTON13 ) PORT_NAME("Over Flow") PORT_CODE(KEYCODE_O)
PORT_BIT( 0x80000000, IP_ACTIVE_LOW, IPT_BUTTON14 ) PORT_NAME("Medal Empty") PORT_CODE(KEYCODE_L)
PORT_START( "EEPROMIN" ) PORT_START( "EEPROMIN" )
PORT_BIT( 0x00000001, IP_ACTIVE_HIGH, IPT_CUSTOM ) PORT_READ_LINE_DEVICE_MEMBER("eeprom", eeprom_serial_93cxx_device, do_read) PORT_BIT( 0x00000080, IP_ACTIVE_HIGH, IPT_CUSTOM ) PORT_READ_LINE_DEVICE_MEMBER("eeprom", eeprom_serial_93cxx_device, do_read)
PORT_START( "EEPROMOUT" ) PORT_START( "EEPROMOUT" )
PORT_BIT( 0x00000001, IP_ACTIVE_HIGH, IPT_OUTPUT ) PORT_WRITE_LINE_DEVICE_MEMBER("eeprom", eeprom_serial_93cxx_device, di_write) PORT_BIT( 0x00000001, IP_ACTIVE_HIGH, IPT_OUTPUT ) PORT_WRITE_LINE_DEVICE_MEMBER("eeprom", eeprom_serial_93cxx_device, di_write)
@ -224,9 +327,7 @@ static INPUT_PORTS_START( royalpk2 )
PORT_BIT( 0x00000001, IP_ACTIVE_HIGH, IPT_OUTPUT ) PORT_WRITE_LINE_DEVICE_MEMBER("eeprom", eeprom_serial_93cxx_device, cs_write) PORT_BIT( 0x00000001, IP_ACTIVE_HIGH, IPT_OUTPUT ) PORT_WRITE_LINE_DEVICE_MEMBER("eeprom", eeprom_serial_93cxx_device, cs_write)
INPUT_PORTS_END INPUT_PORTS_END
void royalpk2_state::royalpk2_map(address_map &map)
void mosaicf2_state::royalpk2_map(address_map &map)
{ {
map(0x00000000, 0x003fffff).ram(); map(0x00000000, 0x003fffff).ram();
map(0x40000000, 0x4003ffff).ram().share("videoram"); map(0x40000000, 0x4003ffff).ram().share("videoram");
@ -234,28 +335,128 @@ void mosaicf2_state::royalpk2_map(address_map &map)
map(0xfff00000, 0xffffffff).rom().region("user1", 0); map(0xfff00000, 0xffffffff).rom().region("user1", 0);
} }
void mosaicf2_state::royalpk2_io(address_map &map) int royalpk2_state::hopper_r()
{ {
return m_hopper->line_r() ? 0 : 1;
}
void royalpk2_state::royalpk2_io(address_map &map)
{
map(0x4800, 0x4803).portr("P1");
map(0x4900, 0x4903).portr("SYSTEM_P2"); map(0x4900, 0x4903).portr("SYSTEM_P2");
map(0x4a00, 0x4a03).portr("EEPROMIN"); map(0x4a00, 0x4a03).portr("EEPROMIN");
map(0x4b00, 0x4b03).r(FUNC(royalpk2_state::protection_response_r));
map(0x6000, 0x61ff).ram().share("nvram");
map(0x6800, 0x6803).portw("EEPROMCLK"); map(0x6800, 0x6803).portw("EEPROMCLK");
map(0x6900, 0x6903).portw("EEPROMCS"); map(0x6900, 0x6903).portw("EEPROMCS");
map(0x6a00, 0x6a03).portw("EEPROMOUT"); map(0x6a00, 0x6a03).portw("EEPROMOUT");
map(0x6d00, 0x6d03).w(FUNC(royalpk2_state::protection_seed_w));
map(0x7000, 0x7003).w(FUNC(royalpk2_state::outputs_w<0>));
map(0x7100, 0x7103).w(FUNC(royalpk2_state::outputs_w<1>));
map(0x7200, 0x7203).w(FUNC(royalpk2_state::outputs_w<2>));
map(0x7300, 0x7303).w(FUNC(royalpk2_state::outputs_w<3>));
map(0x7400, 0x7403).w(FUNC(royalpk2_state::outputs_w<4>));
} }
void mosaicf2_state::royalpk2(machine_config &config) void royalpk2_state::machine_start()
{
save_item(NAME(m_protection_index));
save_item(NAME(m_protection_response_byte));
save_item(NAME(m_protection_response_bit));
m_lamps.resolve();
for (int i = 0; i < 31; i++)
m_lamps[i] = 0;
}
void royalpk2_state::machine_reset()
{
m_protection_index = 0;
m_protection_response_byte = 0;
m_protection_response_bit = 0;
}
void royalpk2_state::protection_seed_w(offs_t offset, uint32_t data)
{
if ((m_protection_index % 2) == 0)
m_protection_response_byte = 0x85;
else if ((m_protection_index % 2) == 1)
m_protection_response_byte = 0x81;
m_protection_index++;
m_protection_response_bit = 7;
}
uint32_t royalpk2_state::protection_response_r()
{
uint32_t data = BIT(m_protection_response_byte, m_protection_response_bit) << 6;
if (m_protection_response_bit > 0)
{
m_protection_response_bit--;
}
else
{
logerror("Protection response byte fully sent.\n");
}
return data;
}
template <int Bank>
void royalpk2_state::outputs_w(uint32_t data)
{
// TODO: Lamps 26 to 30 occupy multiple bits of a given output port. Find out if it's due to brightness control or something else.
switch (Bank)
{
case 0:
m_lamps[0] = BIT(data, 8);
for (int i = 0; i < 6; i++)
m_lamps[1 + i] = BIT(data, 10 + i);
break;
case 1:
for (int i = 0; i < 8; i++)
m_lamps[7 + i] = BIT(data, 8 + i);
break;
case 2:
for (int i = 0; i < 8; i++)
m_lamps[15 + i] = BIT(data, 8 + i);
break;
case 3:
for (int i = 0; i < 3; i++)
m_lamps[23 + i] = BIT(data, 8 + i);
m_lamps[26] = (data & 0x3000) ? 1 : 0;
m_lamps[27] = (data & 0xc000) ? 1 : 0;
break;
case 4:
m_lamps[28] = (data & 0x0f00) ? 1 : 0;
m_lamps[29] = (data & 0x3000) ? 1 : 0;
m_lamps[30] = (data & 0xc000) ? 1 : 0;
break;
}
}
void royalpk2_state::royalpk2(machine_config &config)
{ {
/* basic machine hardware */ /* basic machine hardware */
GMS30C2132(config, m_maincpu, XTAL(50'000'000)); GMS30C2132(config, m_maincpu, XTAL(50'000'000));
m_maincpu->set_addrmap(AS_PROGRAM, &mosaicf2_state::royalpk2_map); m_maincpu->set_addrmap(AS_PROGRAM, &royalpk2_state::royalpk2_map);
m_maincpu->set_addrmap(AS_IO, &mosaicf2_state::royalpk2_io); m_maincpu->set_addrmap(AS_IO, &royalpk2_state::royalpk2_io);
m_maincpu->set_vblank_int("screen", FUNC(mosaicf2_state::irq1_line_hold)); m_maincpu->set_vblank_int("screen", FUNC(royalpk2_state::irq1_line_hold));
EEPROM_93C46_16BIT(config, "eeprom") EEPROM_93C46_16BIT(config, m_eeprom);
.erase_time(attotime::from_usec(1)) m_eeprom->erase_time(attotime::from_usec(1));
.write_time(attotime::from_usec(1)); m_eeprom->write_time(attotime::from_usec(1));
NVRAM(config, m_nvram, nvram_device::DEFAULT_ALL_0);
HOPPER(config, m_hopper, attotime::from_msec(100), TICKET_MOTOR_ACTIVE_HIGH, TICKET_STATUS_ACTIVE_LOW);
/* video hardware */ /* video hardware */
screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER)); screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER));
@ -263,7 +464,7 @@ void mosaicf2_state::royalpk2(machine_config &config)
screen.set_vblank_time(ATTOSECONDS_IN_USEC(2500) /* not accurate */); screen.set_vblank_time(ATTOSECONDS_IN_USEC(2500) /* not accurate */);
screen.set_size(512, 512); screen.set_size(512, 512);
screen.set_visarea(0, 319, 0, 223); screen.set_visarea(0, 319, 0, 223);
screen.set_screen_update(FUNC(mosaicf2_state::screen_update_mosaicf2)); screen.set_screen_update(FUNC(royalpk2_state::screen_update));
screen.set_palette("palette"); screen.set_palette("palette");
PALETTE(config, "palette", palette_device::RGB_555); PALETTE(config, "palette", palette_device::RGB_555);
@ -377,6 +578,7 @@ ROM_START( royalpk2 )
ROM_LOAD( "snd2", 0x000000, 0x080000, CRC(f25e3315) SHA1(ce5350ecba6769b17bb01d82b55f26ded4d51773) ) ROM_LOAD( "snd2", 0x000000, 0x080000, CRC(f25e3315) SHA1(ce5350ecba6769b17bb01d82b55f26ded4d51773) )
ROM_END ROM_END
} // anonymous namespace
GAME( 1999, mosaicf2, 0, mosaicf2, mosaicf2, mosaicf2_state, empty_init, ROT0, "F2 System", "Mosaic (F2 System)", MACHINE_SUPPORTS_SAVE ) GAME( 1999, mosaicf2, 0, mosaicf2, mosaicf2, mosaicf2_state, empty_init, ROT0, "F2 System", "Mosaic (F2 System)", MACHINE_SUPPORTS_SAVE )
GAME( 1999, royalpk2, 0, royalpk2, royalpk2, mosaicf2_state, empty_init, ROT0, "F2 System", "Royal Poker 2 (Network version 3.12)", MACHINE_NOT_WORKING ) GAME( 1999, royalpk2, 0, royalpk2, royalpk2, royalpk2_state, empty_init, ROT0, "F2 System", "Royal Poker 2 (Network version 3.12)", MACHINE_NOT_WORKING )