mirror of
https://github.com/holub/mame
synced 2025-05-12 00:58:53 +03:00
316 lines
7.8 KiB
C
316 lines
7.8 KiB
C
/**********************************************************************
|
|
|
|
Coleco Adam Digital Data Pack emulation
|
|
|
|
Copyright MESS Team.
|
|
Visit http://mamedev.org for licensing and usage restrictions.
|
|
|
|
**********************************************************************/
|
|
|
|
#include "adam_ddp.h"
|
|
|
|
|
|
|
|
//**************************************************************************
|
|
// MACROS / CONSTANTS
|
|
//**************************************************************************
|
|
|
|
#define M6801_TAG "m6801"
|
|
|
|
|
|
|
|
//**************************************************************************
|
|
// DEVICE DEFINITIONS
|
|
//**************************************************************************
|
|
|
|
const device_type ADAM_DDP = &device_creator<adam_digital_data_pack_device>;
|
|
|
|
|
|
//-------------------------------------------------
|
|
// ROM( adam_ddp )
|
|
//-------------------------------------------------
|
|
|
|
ROM_START( adam_ddp )
|
|
ROM_REGION( 0x800, M6801_TAG, 0 )
|
|
ROM_LOAD( "tape rev a 8865.u24", 0x000, 0x800, CRC(6b9ea1cf) SHA1(b970f11e8f443fa130fba02ad1f60da51bf89673) )
|
|
ROM_END
|
|
|
|
|
|
//-------------------------------------------------
|
|
// rom_region - device-specific ROM region
|
|
//-------------------------------------------------
|
|
|
|
const rom_entry *adam_digital_data_pack_device::device_rom_region() const
|
|
{
|
|
return ROM_NAME( adam_ddp );
|
|
}
|
|
|
|
|
|
//-------------------------------------------------
|
|
// ADDRESS_MAP( adam_ddp_mem )
|
|
//-------------------------------------------------
|
|
|
|
static ADDRESS_MAP_START( adam_ddp_mem, AS_PROGRAM, 8, adam_digital_data_pack_device )
|
|
AM_RANGE(0x0000, 0x001f) AM_READWRITE_LEGACY(m6801_io_r, m6801_io_w)
|
|
AM_RANGE(0x0080, 0x00ff) AM_RAM
|
|
AM_RANGE(0x0400, 0x07ff) AM_RAM
|
|
AM_RANGE(0xf800, 0xffff) AM_ROM AM_REGION(M6801_TAG, 0)
|
|
ADDRESS_MAP_END
|
|
|
|
|
|
//-------------------------------------------------
|
|
// ADDRESS_MAP( adam_ddp_io )
|
|
//-------------------------------------------------
|
|
|
|
static ADDRESS_MAP_START( adam_ddp_io, AS_IO, 8, adam_digital_data_pack_device )
|
|
AM_RANGE(M6801_PORT1, M6801_PORT1) AM_WRITE(p1_w)
|
|
AM_RANGE(M6801_PORT2, M6801_PORT2) AM_READWRITE(p2_r, p2_w)
|
|
AM_RANGE(M6801_PORT3, M6801_PORT3) AM_NOP // Multiplexed Address/Data
|
|
AM_RANGE(M6801_PORT4, M6801_PORT4) AM_READ(p4_r) AM_WRITENOP
|
|
ADDRESS_MAP_END
|
|
|
|
|
|
//-------------------------------------------------
|
|
// cassette_interface adam_cassette_interface
|
|
//-------------------------------------------------
|
|
|
|
static const struct CassetteOptions adam_cassette_options =
|
|
{
|
|
2, /* channels */
|
|
16, /* bits per sample */
|
|
44100 /* sample frequency */
|
|
};
|
|
|
|
static const cassette_interface adam_cassette_interface =
|
|
{
|
|
coleco_adam_cassette_formats,
|
|
&adam_cassette_options,
|
|
(cassette_state)(CASSETTE_PLAY | CASSETTE_MOTOR_DISABLED | CASSETTE_SPEAKER_MUTED),
|
|
"adam_cass",
|
|
NULL
|
|
};
|
|
|
|
|
|
//-------------------------------------------------
|
|
// MACHINE_DRIVER( adam_ddp )
|
|
//-------------------------------------------------
|
|
|
|
static MACHINE_CONFIG_FRAGMENT( adam_ddp )
|
|
MCFG_CPU_ADD(M6801_TAG, M6801, XTAL_4MHz)
|
|
MCFG_CPU_PROGRAM_MAP(adam_ddp_mem)
|
|
MCFG_CPU_IO_MAP(adam_ddp_io)
|
|
|
|
MCFG_CASSETTE_ADD(CASSETTE_TAG, adam_cassette_interface)
|
|
MCFG_CASSETTE_ADD(CASSETTE2_TAG, adam_cassette_interface)
|
|
MACHINE_CONFIG_END
|
|
|
|
|
|
//-------------------------------------------------
|
|
// machine_config_additions - device-specific
|
|
// machine configurations
|
|
//-------------------------------------------------
|
|
|
|
machine_config_constructor adam_digital_data_pack_device::device_mconfig_additions() const
|
|
{
|
|
return MACHINE_CONFIG_NAME( adam_ddp );
|
|
}
|
|
|
|
|
|
|
|
//**************************************************************************
|
|
// LIVE DEVICE
|
|
//**************************************************************************
|
|
|
|
//-------------------------------------------------
|
|
// adam_digital_data_pack_device - constructor
|
|
//-------------------------------------------------
|
|
|
|
adam_digital_data_pack_device::adam_digital_data_pack_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
|
|
: device_t(mconfig, ADAM_DDP, "Adam DDP", tag, owner, clock),
|
|
device_adamnet_card_interface(mconfig, *this),
|
|
m_maincpu(*this, M6801_TAG),
|
|
m_ddp0(*this, CASSETTE_TAG),
|
|
m_ddp1(*this, CASSETTE2_TAG)
|
|
{
|
|
}
|
|
|
|
|
|
//-------------------------------------------------
|
|
// device_start - device-specific startup
|
|
//-------------------------------------------------
|
|
|
|
void adam_digital_data_pack_device::device_start()
|
|
{
|
|
// state saving
|
|
save_item(NAME(m_wr0));
|
|
save_item(NAME(m_wr1));
|
|
save_item(NAME(m_track));
|
|
}
|
|
|
|
|
|
//-------------------------------------------------
|
|
// adamnet_reset_w -
|
|
//-------------------------------------------------
|
|
|
|
void adam_digital_data_pack_device::adamnet_reset_w(int state)
|
|
{
|
|
m_maincpu->set_input_line(INPUT_LINE_RESET, state);
|
|
}
|
|
|
|
|
|
//-------------------------------------------------
|
|
// p1_w -
|
|
//-------------------------------------------------
|
|
|
|
WRITE8_MEMBER( adam_digital_data_pack_device::p1_w )
|
|
{
|
|
/*
|
|
|
|
bit description
|
|
|
|
0 SPD SEL (0=20 ips, 1=80ips)
|
|
1 STOP0
|
|
2 STOP1
|
|
3 _GO FWD
|
|
4 _GO REV
|
|
5 BRAKE
|
|
6 _WR0
|
|
7 _WR1
|
|
|
|
*/
|
|
|
|
if (m_ddp0->exists())
|
|
{
|
|
m_ddp0->set_speed(BIT(data, 0) ? (double) 80/1.875 : 20/1.875); // speed select
|
|
if(!(data & 0x08)) m_ddp0->go_forward();
|
|
if(!(data & 0x10)) m_ddp0->go_reverse();
|
|
m_ddp0->change_state(BIT(data, 1) ? CASSETTE_MOTOR_DISABLED : CASSETTE_MOTOR_ENABLED, CASSETTE_MASK_MOTOR); // motor control
|
|
}
|
|
|
|
if (m_ddp1->exists())
|
|
{
|
|
m_ddp1->set_speed(BIT(data, 0) ? (double) 80/1.875 : 20/1.875); // speed select
|
|
if(!(data & 0x08)) m_ddp1->go_forward();
|
|
if(!(data & 0x10)) m_ddp1->go_reverse();
|
|
m_ddp1->change_state(BIT(data, 2) ? CASSETTE_MOTOR_DISABLED : CASSETTE_MOTOR_ENABLED, CASSETTE_MASK_MOTOR); // motor control
|
|
}
|
|
|
|
// data write 0
|
|
m_wr0 = BIT(data, 6);
|
|
|
|
// data write 1
|
|
m_wr1 = BIT(data, 7);
|
|
}
|
|
|
|
|
|
//-------------------------------------------------
|
|
// p2_r -
|
|
//-------------------------------------------------
|
|
|
|
READ8_MEMBER( adam_digital_data_pack_device::p2_r )
|
|
{
|
|
/*
|
|
|
|
bit description
|
|
|
|
0 mode bit 0
|
|
1 mode bit 1 / CIP1
|
|
2 mode bit 2
|
|
3 NET RXD
|
|
4
|
|
|
|
*/
|
|
|
|
UINT8 data = 0;
|
|
|
|
if (m_bus->reset_r())
|
|
data |= M6801_MODE_6;
|
|
else
|
|
data |= m_ddp1->exists() << 1; // Cassette in place 1
|
|
|
|
// NET RXD
|
|
data |= m_bus->rxd_r(this) << 3;
|
|
|
|
return data;
|
|
}
|
|
|
|
|
|
//-------------------------------------------------
|
|
// p2_w -
|
|
//-------------------------------------------------
|
|
|
|
WRITE8_MEMBER( adam_digital_data_pack_device::p2_w )
|
|
{
|
|
/*
|
|
|
|
bit description
|
|
|
|
0 WRT DATA
|
|
1
|
|
2 TRACK A/B (0=B, 1=A)
|
|
3
|
|
4 NET TXD
|
|
|
|
*/
|
|
|
|
if (m_ddp0->exists())
|
|
{
|
|
m_ddp0->set_channel(!BIT(data, 2)); // Track select
|
|
if (!m_wr0) m_ddp0->output(BIT(data, 0) ? 1.0 : -1.0); // write data
|
|
}
|
|
|
|
if (m_ddp1->exists())
|
|
{
|
|
m_ddp1->set_channel(!BIT(data, 2));
|
|
if (!m_wr1) m_ddp1->output(BIT(data, 0) ? 1.0 : -1.0);
|
|
}
|
|
|
|
// NET TXD
|
|
m_bus->txd_w(this, BIT(data, 4));
|
|
}
|
|
|
|
|
|
//-------------------------------------------------
|
|
// p4_r -
|
|
//-------------------------------------------------
|
|
|
|
READ8_MEMBER( adam_digital_data_pack_device::p4_r )
|
|
{
|
|
/*
|
|
|
|
bit description
|
|
|
|
0 A8
|
|
1 A9
|
|
2 A10 (2114 _S)
|
|
3 MSENSE 0
|
|
4 MSENSE 1
|
|
5 CIP0
|
|
6 RD DATA 0 (always 1)
|
|
7 RD DATA 1 (data from drives ORed together)
|
|
|
|
*/
|
|
|
|
UINT8 data = 0;
|
|
|
|
// drive 0
|
|
if (m_ddp0->exists())
|
|
{
|
|
data |= ((m_ddp0->get_state() & CASSETTE_MASK_UISTATE) != CASSETTE_STOPPED) << 3; // motion sense
|
|
data |= 1 << 5; // cassette in place
|
|
data |= (m_ddp0->input() < 0) << 7; // read data
|
|
}
|
|
|
|
// drive 1
|
|
if (m_ddp1->exists())
|
|
{
|
|
data |= ((m_ddp1->get_state() & CASSETTE_MASK_UISTATE) != CASSETTE_STOPPED) << 4; // motion sense
|
|
data |= (m_ddp1->input() < 0) << 7; // read data
|
|
}
|
|
|
|
// read data 0 (always 1)
|
|
data |= 0x40;
|
|
|
|
return data;
|
|
}
|