607 lines
14 KiB
C
607 lines
14 KiB
C
/**********************************************************************
|
|
|
|
Commodore 9060/9090 Hard Disk Drive emulation
|
|
|
|
Copyright MESS Team.
|
|
Visit http://mamedev.org for licensing and usage restrictions.
|
|
|
|
**********************************************************************/
|
|
|
|
#include "d9060.h"
|
|
#include "machine/scsihd.h"
|
|
|
|
|
|
|
|
//**************************************************************************
|
|
// MACROS / CONSTANTS
|
|
//**************************************************************************
|
|
|
|
#define M6502_DOS_TAG "7e"
|
|
#define M6532_0_TAG "7f"
|
|
#define M6532_1_TAG "7g"
|
|
|
|
#define M6502_HDC_TAG "4a"
|
|
#define M6522_TAG "4b"
|
|
|
|
#define AM2910_TAG "9d"
|
|
|
|
#define SASIBUS_TAG "sasi"
|
|
|
|
enum
|
|
{
|
|
LED_POWER = 0,
|
|
LED_READY,
|
|
LED_ERROR
|
|
};
|
|
|
|
|
|
|
|
//**************************************************************************
|
|
// DEVICE DEFINITIONS
|
|
//**************************************************************************
|
|
|
|
const device_type D9060 = &device_creator<d9060_device>;
|
|
const device_type D9090 = &device_creator<d9090_device>;
|
|
|
|
|
|
//-------------------------------------------------
|
|
// device_config_complete - perform any
|
|
// operations now that the configuration is
|
|
// complete
|
|
//-------------------------------------------------
|
|
|
|
void base_d9060_device::device_config_complete()
|
|
{
|
|
switch (m_variant)
|
|
{
|
|
default:
|
|
case TYPE_9060:
|
|
m_shortname = "d9060";
|
|
break;
|
|
|
|
case TYPE_9090:
|
|
m_shortname = "d9090";
|
|
break;
|
|
}
|
|
}
|
|
|
|
|
|
//-------------------------------------------------
|
|
// ROM( d9060 )
|
|
//-------------------------------------------------
|
|
|
|
ROM_START( d9060 )
|
|
ROM_REGION( 0x4000, M6502_DOS_TAG, 0 )
|
|
ROM_DEFAULT_BIOS("rc")
|
|
ROM_SYSTEM_BIOS( 0, "ra", "Revision A" )
|
|
ROMX_LOAD( "300516-001.7c", 0x0000, 0x2000, NO_DUMP, ROM_BIOS(1) )
|
|
ROMX_LOAD( "300517-001.7d", 0x2000, 0x2000, CRC(566df630) SHA1(b1602dfff408b165ee52a6a4ca3e2ec27e689ba9), ROM_BIOS(1) )
|
|
ROM_SYSTEM_BIOS( 1, "rb", "Revision B" )
|
|
ROMX_LOAD( "300516-002.7c", 0x0000, 0x2000, CRC(2d758a14) SHA1(c959cc9dde84fc3d64e95e58a0a096a26d8107fd), ROM_BIOS(2) )
|
|
ROMX_LOAD( "300517-002.7d", 0x2000, 0x2000, CRC(f0382bc3) SHA1(0b0a8dc520f5b41ffa832e4a636b3d226ccbb7f1), ROM_BIOS(2) )
|
|
ROM_SYSTEM_BIOS( 2, "rc", "Revision C" )
|
|
ROMX_LOAD( "300516-003.7c", 0x0000, 0x2000, CRC(d6a3e88f) SHA1(bb1ddb5da94a86266012eca54818aa21dc4cef6a), ROM_BIOS(3) )
|
|
ROMX_LOAD( "300517-003.7d", 0x2000, 0x2000, CRC(2a9ad4ad) SHA1(4c17d014de48c906871b9b6c7d037d8736b1fd52), ROM_BIOS(3) )
|
|
|
|
ROM_REGION( 0x800, M6502_HDC_TAG, 0 )
|
|
ROM_LOAD( "300515-001.4c", 0x000, 0x800, CRC(99e096f7) SHA1(a3d1deb27bf5918b62b89c27fa3e488eb8f717a4) ) // Revision A
|
|
ROM_LOAD( "300515-002.4c", 0x000, 0x800, CRC(49adf4fb) SHA1(59dafbd4855083074ba8dc96a04d4daa5b76e0d6) ) // Revision B
|
|
|
|
ROM_REGION( 0x5000, AM2910_TAG, 0 )
|
|
ROM_LOAD( "441.5b", 0x0000, 0x1000, NO_DUMP ) // 82S137
|
|
ROM_LOAD( "442.6b", 0x1000, 0x1000, NO_DUMP ) // 82S137
|
|
ROM_LOAD( "573.7b", 0x2000, 0x1000, NO_DUMP ) // 82S137
|
|
ROM_LOAD( "444.8b", 0x3000, 0x1000, NO_DUMP ) // 82S137
|
|
ROM_LOAD( "445.9b", 0x4000, 0x1000, NO_DUMP ) // 82S137
|
|
ROM_END
|
|
|
|
|
|
//-------------------------------------------------
|
|
// rom_region - device-specific ROM region
|
|
//-------------------------------------------------
|
|
|
|
const rom_entry *base_d9060_device::device_rom_region() const
|
|
{
|
|
return ROM_NAME( d9060 );
|
|
}
|
|
|
|
|
|
//-------------------------------------------------
|
|
// ADDRESS_MAP( d9060_main_mem )
|
|
//-------------------------------------------------
|
|
|
|
static ADDRESS_MAP_START( d9060_main_mem, AS_PROGRAM, 8, base_d9060_device )
|
|
AM_RANGE(0x0000, 0x007f) AM_MIRROR(0x0100) AM_RAM // 6532 #1
|
|
AM_RANGE(0x0080, 0x00ff) AM_MIRROR(0x0100) AM_RAM // 6532 #2
|
|
AM_RANGE(0x0200, 0x021f) AM_MIRROR(0x0d60) AM_DEVREADWRITE_LEGACY(M6532_0_TAG, riot6532_r, riot6532_w)
|
|
AM_RANGE(0x0280, 0x029f) AM_MIRROR(0x0d60) AM_DEVREADWRITE_LEGACY(M6532_1_TAG, riot6532_r, riot6532_w)
|
|
AM_RANGE(0x1000, 0x13ff) AM_MIRROR(0x0c00) AM_RAM AM_SHARE("share1")
|
|
AM_RANGE(0x2000, 0x23ff) AM_MIRROR(0x0c00) AM_RAM AM_SHARE("share2")
|
|
AM_RANGE(0x3000, 0x33ff) AM_MIRROR(0x0c00) AM_RAM AM_SHARE("share3")
|
|
AM_RANGE(0x4000, 0x43ff) AM_MIRROR(0x0c00) AM_RAM AM_SHARE("share4")
|
|
AM_RANGE(0xc000, 0xffff) AM_ROM AM_REGION(M6502_DOS_TAG, 0)
|
|
ADDRESS_MAP_END
|
|
|
|
|
|
//-------------------------------------------------
|
|
// ADDRESS_MAP( d9060_hdc_mem )
|
|
//-------------------------------------------------
|
|
|
|
static ADDRESS_MAP_START( d9060_hdc_mem, AS_PROGRAM, 8, base_d9060_device )
|
|
ADDRESS_MAP_GLOBAL_MASK(0x1fff)
|
|
AM_RANGE(0x0000, 0x007f) AM_MIRROR(0x300) AM_RAM
|
|
AM_RANGE(0x0080, 0x008f) AM_MIRROR(0x380) AM_DEVREADWRITE(M6522_TAG, via6522_device, read, write)
|
|
AM_RANGE(0x0400, 0x07ff) AM_RAM AM_SHARE("share1")
|
|
AM_RANGE(0x0800, 0x0bff) AM_RAM AM_SHARE("share2")
|
|
AM_RANGE(0x0c00, 0x0fff) AM_RAM AM_SHARE("share3")
|
|
AM_RANGE(0x1000, 0x13ff) AM_RAM AM_SHARE("share4")
|
|
AM_RANGE(0x1800, 0x1fff) AM_ROM AM_REGION(M6502_HDC_TAG, 0)
|
|
ADDRESS_MAP_END
|
|
|
|
|
|
//-------------------------------------------------
|
|
// SCSIBus_interface sasi_intf
|
|
//-------------------------------------------------
|
|
|
|
static const SCSIConfigTable sasi_dev_table =
|
|
{
|
|
1, /* 1 SCSI device */
|
|
{
|
|
{ "harddisk0" }
|
|
}
|
|
};
|
|
|
|
WRITE_LINE_MEMBER( base_d9060_device::req_w )
|
|
{
|
|
m_via->write_ca1(!state);
|
|
}
|
|
|
|
static const SCSIBus_interface sasi_intf =
|
|
{
|
|
&sasi_dev_table,
|
|
NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_DEVICE_LINE_MEMBER(DEVICE_SELF_OWNER, base_d9060_device, req_w),
|
|
DEVCB_NULL
|
|
};
|
|
|
|
|
|
//-------------------------------------------------
|
|
// riot6532_interface riot0_intf
|
|
//-------------------------------------------------
|
|
|
|
READ8_MEMBER( base_d9060_device::dio_r )
|
|
{
|
|
/*
|
|
|
|
bit description
|
|
|
|
PA0 DI0
|
|
PA1 DI1
|
|
PA2 DI2
|
|
PA3 DI3
|
|
PA4 DI4
|
|
PA5 DI5
|
|
PA6 DI6
|
|
PA7 DI7
|
|
|
|
*/
|
|
|
|
return m_bus->dio_r();
|
|
}
|
|
|
|
|
|
WRITE8_MEMBER( base_d9060_device::dio_w )
|
|
{
|
|
/*
|
|
|
|
bit description
|
|
|
|
PB0 DO0
|
|
PB1 DO1
|
|
PB2 DO2
|
|
PB3 DO3
|
|
PB4 DO4
|
|
PB5 DO5
|
|
PB6 DO6
|
|
PB7 DO7
|
|
|
|
*/
|
|
|
|
m_bus->dio_w(this, data);
|
|
}
|
|
|
|
|
|
static const riot6532_interface riot0_intf =
|
|
{
|
|
DEVCB_DEVICE_MEMBER(DEVICE_SELF_OWNER, base_d9060_device, dio_r),
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_DEVICE_MEMBER(DEVICE_SELF_OWNER, base_d9060_device, dio_w),
|
|
DEVCB_NULL
|
|
};
|
|
|
|
|
|
//-------------------------------------------------
|
|
// riot6532_interface riot1_intf
|
|
//-------------------------------------------------
|
|
|
|
READ8_MEMBER( base_d9060_device::riot1_pa_r )
|
|
{
|
|
/*
|
|
|
|
bit description
|
|
|
|
PA0
|
|
PA1
|
|
PA2
|
|
PA3
|
|
PA4
|
|
PA5 EOII
|
|
PA6 DAVI
|
|
PA7 _ATN
|
|
|
|
*/
|
|
|
|
UINT8 data = 0;
|
|
|
|
// end or identify in
|
|
data |= m_bus->eoi_r() << 5;
|
|
|
|
// data valid in
|
|
data |= m_bus->dav_r() << 6;
|
|
|
|
// attention
|
|
data |= !m_bus->atn_r() << 7;
|
|
|
|
return data;
|
|
}
|
|
|
|
WRITE8_MEMBER( base_d9060_device::riot1_pa_w )
|
|
{
|
|
/*
|
|
|
|
bit description
|
|
|
|
PA0 ATNA
|
|
PA1 DACO
|
|
PA2 RFDO
|
|
PA3 EOIO
|
|
PA4 DAVO
|
|
PA5
|
|
PA6
|
|
PA7
|
|
|
|
*/
|
|
|
|
// attention acknowledge
|
|
m_atna = BIT(data, 0);
|
|
|
|
// data accepted out
|
|
m_daco = BIT(data, 1);
|
|
|
|
// not ready for data out
|
|
m_rfdo = BIT(data, 2);
|
|
|
|
// end or identify out
|
|
m_bus->eoi_w(this, BIT(data, 3));
|
|
|
|
// data valid out
|
|
m_bus->dav_w(this, BIT(data, 4));
|
|
|
|
update_ieee_signals();
|
|
}
|
|
|
|
READ8_MEMBER( base_d9060_device::riot1_pb_r )
|
|
{
|
|
/*
|
|
|
|
bit description
|
|
|
|
PB0 device #
|
|
PB1 device #
|
|
PB2 device #
|
|
PB3
|
|
PB4
|
|
PB5
|
|
PB6 DACI
|
|
PB7 RFDI
|
|
|
|
*/
|
|
|
|
UINT8 data = 0;
|
|
|
|
// device number selection
|
|
data |= m_address - 8;
|
|
|
|
// data accepted in
|
|
data |= m_bus->ndac_r() << 6;
|
|
|
|
// ready for data in
|
|
data |= m_bus->nrfd_r() << 7;
|
|
|
|
return data;
|
|
}
|
|
|
|
WRITE8_MEMBER( base_d9060_device::riot1_pb_w )
|
|
{
|
|
/*
|
|
|
|
bit description
|
|
|
|
PB0
|
|
PB1
|
|
PB2
|
|
PB3
|
|
PB4 DRIVE RDY
|
|
PB5 PWR ON AND NO ERRORS
|
|
PB6
|
|
PB7
|
|
|
|
*/
|
|
|
|
// ready led
|
|
output_set_led_value(LED_READY, BIT(data, 4));
|
|
|
|
// power led
|
|
output_set_led_value(LED_POWER, BIT(data, 5));
|
|
|
|
// error led
|
|
output_set_led_value(LED_ERROR, !BIT(data, 5));
|
|
}
|
|
|
|
static const riot6532_interface riot1_intf =
|
|
{
|
|
DEVCB_DEVICE_MEMBER(DEVICE_SELF_OWNER, base_d9060_device, riot1_pa_r),
|
|
DEVCB_DEVICE_MEMBER(DEVICE_SELF_OWNER, base_d9060_device, riot1_pb_r),
|
|
DEVCB_DEVICE_MEMBER(DEVICE_SELF_OWNER, base_d9060_device, riot1_pa_w),
|
|
DEVCB_DEVICE_MEMBER(DEVICE_SELF_OWNER, base_d9060_device, riot1_pb_w),
|
|
DEVCB_CPU_INPUT_LINE(M6502_DOS_TAG, INPUT_LINE_IRQ0)
|
|
};
|
|
|
|
|
|
//-------------------------------------------------
|
|
// via6522_interface via_intf
|
|
//-------------------------------------------------
|
|
|
|
READ8_MEMBER( base_d9060_device::via_pb_r )
|
|
{
|
|
/*
|
|
|
|
bit description
|
|
|
|
PB0
|
|
PB1
|
|
PB2 C/D
|
|
PB3 BUSY
|
|
PB4 J14 (1=9060, 0=9090)
|
|
PB5 J13
|
|
PB6 I/O
|
|
PB7 MSG
|
|
|
|
*/
|
|
|
|
UINT8 data = 0;
|
|
|
|
data |= !m_sasibus->scsi_cd_r() << 2;
|
|
data |= !m_sasibus->scsi_bsy_r() << 3;
|
|
data |= !m_sasibus->scsi_io_r() << 6;
|
|
data |= !m_sasibus->scsi_msg_r() << 7;
|
|
|
|
// drive type
|
|
data |= (m_variant == TYPE_9060) << 4;
|
|
|
|
return data;
|
|
}
|
|
|
|
WRITE8_MEMBER( base_d9060_device::via_pb_w )
|
|
{
|
|
/*
|
|
|
|
bit description
|
|
|
|
PB0 SEL
|
|
PB1 RST
|
|
PB2
|
|
PB3
|
|
PB4
|
|
PB5
|
|
PB6
|
|
PB7
|
|
|
|
*/
|
|
|
|
m_sasibus->scsi_sel_w(!BIT(data, 0));
|
|
m_sasibus->scsi_rst_w(!BIT(data, 1));
|
|
}
|
|
|
|
READ_LINE_MEMBER( base_d9060_device::req_r )
|
|
{
|
|
return !m_sasibus->scsi_req_r();
|
|
}
|
|
|
|
WRITE_LINE_MEMBER( base_d9060_device::ack_w )
|
|
{
|
|
m_sasibus->scsi_ack_w(state);
|
|
}
|
|
|
|
WRITE_LINE_MEMBER( base_d9060_device::enable_w )
|
|
{
|
|
m_enable = state;
|
|
}
|
|
|
|
static const via6522_interface via_intf =
|
|
{
|
|
DEVCB_DEVICE_MEMBER(SASIBUS_TAG, scsibus_device, scsi_data_r),
|
|
DEVCB_DEVICE_MEMBER(DEVICE_SELF_OWNER, base_d9060_device, via_pb_r),
|
|
DEVCB_DEVICE_LINE_MEMBER(DEVICE_SELF_OWNER, base_d9060_device, req_r),
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
|
|
DEVCB_DEVICE_MEMBER(SASIBUS_TAG, scsibus_device, scsi_data_w),
|
|
DEVCB_DEVICE_MEMBER(DEVICE_SELF_OWNER, base_d9060_device, via_pb_w),
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_DEVICE_LINE_MEMBER(DEVICE_SELF_OWNER, base_d9060_device, ack_w),
|
|
DEVCB_DEVICE_LINE_MEMBER(DEVICE_SELF_OWNER, base_d9060_device, enable_w),
|
|
|
|
DEVCB_CPU_INPUT_LINE(M6502_HDC_TAG, INPUT_LINE_IRQ0)
|
|
};
|
|
|
|
|
|
//-------------------------------------------------
|
|
// MACHINE_CONFIG_FRAGMENT( d9060 )
|
|
//-------------------------------------------------
|
|
|
|
static MACHINE_CONFIG_FRAGMENT( d9060 )
|
|
// DOS
|
|
MCFG_CPU_ADD(M6502_DOS_TAG, M6502, XTAL_4MHz/4)
|
|
MCFG_CPU_PROGRAM_MAP(d9060_main_mem)
|
|
|
|
MCFG_RIOT6532_ADD(M6532_0_TAG, XTAL_4MHz/4, riot0_intf)
|
|
MCFG_RIOT6532_ADD(M6532_1_TAG, XTAL_4MHz/4, riot1_intf)
|
|
|
|
// controller
|
|
MCFG_CPU_ADD(M6502_HDC_TAG, M6502, XTAL_4MHz/4)
|
|
MCFG_CPU_PROGRAM_MAP(d9060_hdc_mem)
|
|
|
|
MCFG_VIA6522_ADD(M6522_TAG, XTAL_4MHz/4, via_intf)
|
|
|
|
MCFG_SCSIBUS_ADD(SASIBUS_TAG, sasi_intf)
|
|
MCFG_SCSIDEV_ADD("harddisk0", SCSIHD, SCSI_ID_0)
|
|
MACHINE_CONFIG_END
|
|
|
|
|
|
//-------------------------------------------------
|
|
// machine_config_additions - device-specific
|
|
// machine configurations
|
|
//-------------------------------------------------
|
|
|
|
machine_config_constructor base_d9060_device::device_mconfig_additions() const
|
|
{
|
|
return MACHINE_CONFIG_NAME( d9060 );
|
|
}
|
|
|
|
|
|
|
|
//**************************************************************************
|
|
// INLINE HELPERS
|
|
//**************************************************************************
|
|
|
|
//-------------------------------------------------
|
|
// update_ieee_signals -
|
|
//-------------------------------------------------
|
|
|
|
inline void base_d9060_device::update_ieee_signals()
|
|
{
|
|
int atn = m_bus->atn_r();
|
|
int nrfd = !(!(!(atn && m_atna) && m_rfdo) || !(atn || m_atna));
|
|
int ndac = !(m_daco || !(atn || m_atna));
|
|
|
|
m_bus->nrfd_w(this, nrfd);
|
|
m_bus->ndac_w(this, ndac);
|
|
}
|
|
|
|
|
|
|
|
//**************************************************************************
|
|
// LIVE DEVICE
|
|
//**************************************************************************
|
|
|
|
//-------------------------------------------------
|
|
// base_d9060_device - constructor
|
|
//-------------------------------------------------
|
|
|
|
base_d9060_device::base_d9060_device(const machine_config &mconfig, device_type type, const char *name, const char *tag, device_t *owner, UINT32 clock, UINT32 variant)
|
|
: device_t(mconfig, type, name, tag, owner, clock),
|
|
device_ieee488_interface(mconfig, *this),
|
|
m_maincpu(*this, M6502_DOS_TAG),
|
|
m_hdccpu(*this, M6502_HDC_TAG),
|
|
m_riot0(*this, M6532_0_TAG),
|
|
m_riot1(*this, M6532_1_TAG),
|
|
m_via(*this, M6522_TAG),
|
|
m_sasibus(*this, SASIBUS_TAG),
|
|
m_rfdo(1),
|
|
m_daco(1),
|
|
m_atna(1),
|
|
m_enable(1),
|
|
m_variant(variant)
|
|
{
|
|
}
|
|
|
|
|
|
//-------------------------------------------------
|
|
// d9060_device - constructor
|
|
//-------------------------------------------------
|
|
|
|
d9060_device::d9060_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
|
|
: base_d9060_device(mconfig, D9060, "D9060", tag, owner, clock, TYPE_9060) { }
|
|
|
|
|
|
//-------------------------------------------------
|
|
// d9090_device - constructor
|
|
//-------------------------------------------------
|
|
|
|
d9090_device::d9090_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
|
|
: base_d9060_device(mconfig, D9090, "D9090", tag, owner, clock, TYPE_9090) { }
|
|
|
|
|
|
//-------------------------------------------------
|
|
// device_start - device-specific startup
|
|
//-------------------------------------------------
|
|
|
|
void base_d9060_device::device_start()
|
|
{
|
|
// state saving
|
|
save_item(NAME(m_rfdo));
|
|
save_item(NAME(m_daco));
|
|
save_item(NAME(m_atna));
|
|
save_item(NAME(m_enable));
|
|
}
|
|
|
|
|
|
//-------------------------------------------------
|
|
// device_reset - device-specific reset
|
|
//-------------------------------------------------
|
|
|
|
void base_d9060_device::device_reset()
|
|
{
|
|
m_sasibus->init_scsibus(256);
|
|
|
|
m_maincpu->set_input_line(M6502_SET_OVERFLOW, ASSERT_LINE);
|
|
m_maincpu->set_input_line(M6502_SET_OVERFLOW, CLEAR_LINE);
|
|
|
|
m_hdccpu->set_input_line(M6502_SET_OVERFLOW, ASSERT_LINE);
|
|
}
|
|
|
|
|
|
//-------------------------------------------------
|
|
// ieee488_atn - attention
|
|
//-------------------------------------------------
|
|
|
|
void base_d9060_device::ieee488_atn(int state)
|
|
{
|
|
update_ieee_signals();
|
|
|
|
// set RIOT PA7
|
|
riot6532_porta_in_set(m_riot1, !state << 7, 0x80);
|
|
}
|
|
|
|
|
|
//-------------------------------------------------
|
|
// ieee488_ifc - interface clear
|
|
//-------------------------------------------------
|
|
|
|
void base_d9060_device::ieee488_ifc(int state)
|
|
{
|
|
if (!state)
|
|
{
|
|
device_reset();
|
|
}
|
|
}
|