summaryrefslogtreecommitdiffstatshomepage
path: root/src/devices/bus/a2bus/a2corvus.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/devices/bus/a2bus/a2corvus.c')
-rw-r--r--src/devices/bus/a2bus/a2corvus.c187
1 files changed, 187 insertions, 0 deletions
diff --git a/src/devices/bus/a2bus/a2corvus.c b/src/devices/bus/a2bus/a2corvus.c
new file mode 100644
index 00000000000..d3de7fdfee0
--- /dev/null
+++ b/src/devices/bus/a2bus/a2corvus.c
@@ -0,0 +1,187 @@
+// license:BSD-3-Clause
+// copyright-holders:R. Belmont
+/*********************************************************************
+
+ a2corvus.c
+
+ Implementation of the Corvus flat-cable hard disk interface
+ for the Apple II.
+
+ This same card was used in the Corvus Concept.
+
+ C0n0 = drive read/write
+ C0n1 = read status (busy in bit 7, data direction in bit 6)
+
+ Reads and writes to C0n2+ happen; the contents of the reads are thrown away
+ immediately by all the code I've examined, and sending the writes to the
+ drive's write port makes it not work so they're intended to be ignored too.
+
+ 5 MB: -chs 144,4,20 -ss 512
+ 10 MB: -chs 358,3,20 -ss 512
+ 20 MB: -chs 388,5,20 -ss 512
+
+ To set up a disk from scratch on the Apple II:
+ 1) Create a disk of your desired capacity using CHDMAN -c none and the parameters
+ listed above for each of the possible sizes.
+ 2) Boot apple2p with the corvus in slot 2 and a diskii(ng) in slot 6 with the
+ "Corvus Hard Drive - Diagnostics.dsk" mounted.
+ 3) Press F to format. Accept all the default options from now on;
+ there is no "format switch" to worry about with the current emulation.
+ 4) Quit MESS. Restart with the corvus in slot 6 and a diskii(ng) in slot 7
+ with the "Corvus Hard Drive - Utilities Disk 1.dsk" mounted.
+ 5) When you get the BASIC prompt, "RUN BSYSGEN"
+ 6) Choose drive 1 and press Y at "OK TO BSYSGEN?"
+ 7) When the format completes, type "RUN APPLESOFT BOOT PREP" and press Enter.
+ 8) Once it finishes, quit MESS. Remove the diskii(ng) from slot 7 and
+ the system will boot into DOS 3.3 from the Corvus HD.
+
+ TODO: but there are no Corvus drivers present after that, only
+ Disk II?
+
+*********************************************************************/
+
+#include "a2corvus.h"
+#include "includes/apple2.h"
+#include "imagedev/harddriv.h"
+
+/***************************************************************************
+ PARAMETERS
+***************************************************************************/
+
+//**************************************************************************
+// GLOBAL VARIABLES
+//**************************************************************************
+
+const device_type A2BUS_CORVUS = &device_creator<a2bus_corvus_device>;
+
+#define CORVUS_ROM_REGION "corvus_rom"
+#define CORVUS_HD_TAG "corvushd"
+
+static MACHINE_CONFIG_FRAGMENT(corvus)
+ MCFG_DEVICE_ADD(CORVUS_HD_TAG, CORVUS_HDC, 0)
+ MCFG_HARDDISK_ADD("harddisk1")
+ MCFG_HARDDISK_INTERFACE("corvus_hdd")
+ MCFG_HARDDISK_ADD("harddisk2")
+ MCFG_HARDDISK_INTERFACE("corvus_hdd")
+ MCFG_HARDDISK_ADD("harddisk3")
+ MCFG_HARDDISK_INTERFACE("corvus_hdd")
+ MCFG_HARDDISK_ADD("harddisk4")
+ MCFG_HARDDISK_INTERFACE("corvus_hdd")
+MACHINE_CONFIG_END
+
+ROM_START( corvus )
+ ROM_REGION(0x800, CORVUS_ROM_REGION, 0)
+ ROM_LOAD( "a4.7.u10", 0x0000, 0x0800, CRC(1cf6e32a) SHA1(dbd6efeb3b54c0523b8b4eda8b3d737413f6a91a) )
+ROM_END
+
+/***************************************************************************
+ FUNCTION PROTOTYPES
+***************************************************************************/
+
+//-------------------------------------------------
+// machine_config_additions - device-specific
+// machine configurations
+//-------------------------------------------------
+
+machine_config_constructor a2bus_corvus_device::device_mconfig_additions() const
+{
+ return MACHINE_CONFIG_NAME( corvus );
+}
+
+//-------------------------------------------------
+// rom_region - device-specific ROM region
+//-------------------------------------------------
+
+const rom_entry *a2bus_corvus_device::device_rom_region() const
+{
+ return ROM_NAME( corvus );
+}
+
+//**************************************************************************
+// LIVE DEVICE
+//**************************************************************************
+
+a2bus_corvus_device::a2bus_corvus_device(const machine_config &mconfig, device_type type, const char *name, const char *tag, device_t *owner, UINT32 clock, const char *shortname, const char *source) :
+ device_t(mconfig, type, name, tag, owner, clock, shortname, source),
+ device_a2bus_card_interface(mconfig, *this),
+ m_corvushd(*this, CORVUS_HD_TAG)
+{
+}
+
+a2bus_corvus_device::a2bus_corvus_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock) :
+ device_t(mconfig, A2BUS_CORVUS, "Corvus Flat Cable interface", tag, owner, clock, "a2corvus", __FILE__),
+ device_a2bus_card_interface(mconfig, *this),
+ m_corvushd(*this, CORVUS_HD_TAG)
+{
+}
+
+//-------------------------------------------------
+// device_start - device-specific startup
+//-------------------------------------------------
+
+void a2bus_corvus_device::device_start()
+{
+ // set_a2bus_device makes m_slot valid
+ set_a2bus_device();
+
+ m_rom = device().machine().root_device().memregion(this->subtag(CORVUS_ROM_REGION).c_str())->base();
+}
+
+void a2bus_corvus_device::device_reset()
+{
+}
+
+
+/*-------------------------------------------------
+ read_c0nx - called for reads from this card's c0nx space
+-------------------------------------------------*/
+
+UINT8 a2bus_corvus_device::read_c0nx(address_space &space, UINT8 offset)
+{
+ switch (offset)
+ {
+ case 0:
+ return m_corvushd->read(space, 0);
+
+ case 1:
+ return m_corvushd->status_r(space, 0);
+
+ default:
+ logerror("Corvus: read unhandled c0n%x (PC=%x)\n", offset, space.device().safe_pc());
+ break;
+ }
+
+ return 0xff;
+}
+
+
+/*-------------------------------------------------
+ write_c0nx - called for writes to this card's c0nx space
+-------------------------------------------------*/
+
+void a2bus_corvus_device::write_c0nx(address_space &space, UINT8 offset, UINT8 data)
+{
+ if (offset == 0)
+ {
+ m_corvushd->write(space, 0, data);
+ }
+}
+
+/*-------------------------------------------------
+ read_cnxx - called for reads from this card's cnxx space
+-------------------------------------------------*/
+
+UINT8 a2bus_corvus_device::read_cnxx(address_space &space, UINT8 offset)
+{
+ // one slot image at the end of the ROM, it appears
+ return m_rom[offset+0x700];
+}
+
+/*-------------------------------------------------
+ read_c800 - called for reads from this card's c800 space
+-------------------------------------------------*/
+
+UINT8 a2bus_corvus_device::read_c800(address_space &space, UINT16 offset)
+{
+ return m_rom[offset & 0x7ff];
+}