summaryrefslogtreecommitdiffstatshomepage
path: root/src/mame/drivers/xor100.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'src/mame/drivers/xor100.cpp')
-rw-r--r--src/mame/drivers/xor100.cpp567
1 files changed, 0 insertions, 567 deletions
diff --git a/src/mame/drivers/xor100.cpp b/src/mame/drivers/xor100.cpp
deleted file mode 100644
index 5392e0a0e2a..00000000000
--- a/src/mame/drivers/xor100.cpp
+++ /dev/null
@@ -1,567 +0,0 @@
-// license:BSD-3-Clause
-// copyright-holders:Curt Coder
-/****************************************************************************************************
-
-XOR S-100-12
-
-XOR Data Science was apparently a 1982 reincorporation of a Huntington Beach-based
-company previously known as Delta Products. At least some of the S-100 boards used
-in XOR's systems were originally developed and documented under the former company
-name.
-
-*****************************************************************************************************
-
-All input must be in upper case.
-Summary of Monitor commands:
-
-D xxxx yyyy = dump memory to screen
-F xxxx yyyy zz = fill memory from xxxx to yyyy-1 with zz
-G xxxx = execute program at xxxx
-H xxxx yyyy aa bb... = Search memory for a string of bytes
-L xxxx = edit memory (. to exit)
-M xxxx yyyy zzzz = Move (copy) memory
-R = Read cassette (not in all bios versions)
-V xxxx = Ascii dump of memory to the screen (cr to continue, space to exit)
-W = Write cassette (not in all bios versions)
-X n = Select a bank (0 works, others freeze)
-^C = Boot from floppy
-
-Note some of the commands are a bit buggy, eg F doesn't fill the last byte
-
-
-TODO:
-- Fix floppy. It needs to WAIT the cpu whenever port 0xFC is read, wait
- for either DRQ or INTRQ to assert, then release the cpu and then do the
- actual port read. Our Z80 cannot do that.
-- The only available disks crash MAME when loaded.
-- honor jumper settings
-- CTC signal header
-- serial printer
-- cassette (no information, assumed to be on another card)
-
-*****************************************************************************************************/
-
-
-#include "emu.h"
-#include "includes/xor100.h"
-#include "bus/rs232/rs232.h"
-
-/* Read/Write Handlers */
-
-enum
-{
- EPROM_0000 = 0,
- EPROM_F800,
- EPROM_OFF
-};
-
-void xor100_state::bankswitch()
-{
- address_space &program = m_maincpu->space(AS_PROGRAM);
- int banks = m_ram->size() / 0x10000;
-
- switch (m_mode)
- {
- case EPROM_0000:
- if (m_bank < banks)
- {
- program.install_write_bank(0x0000, 0xffff, "bank1");
- membank("bank1")->set_entry(1 + m_bank);
- }
- else
- {
- program.unmap_write(0x0000, 0xffff);
- }
-
- program.install_read_bank(0x0000, 0x07ff, 0xf000, "bank2");
- program.install_read_bank(0xf800, 0xffff, "bank3");
- membank("bank2")->set_entry(0);
- membank("bank3")->set_entry(0);
- break;
-
- case EPROM_F800:
- if (m_bank < banks)
- {
- program.install_write_bank(0x0000, 0xffff, "bank1");
- program.install_read_bank(0x0000, 0xf7ff, "bank2");
- membank("bank1")->set_entry(1 + m_bank);
- membank("bank2")->set_entry(1 + m_bank);
- }
- else
- {
- program.unmap_write(0x0000, 0xffff);
- program.unmap_read(0x0000, 0xf7ff);
- }
-
- program.install_read_bank(0xf800, 0xffff, "bank3");
- membank("bank3")->set_entry(0);
- break;
-
- case EPROM_OFF:
- if (m_bank < banks)
- {
- program.install_write_bank(0x0000, 0xffff, "bank1");
- program.install_read_bank(0x0000, 0xf7ff, "bank2");
- program.install_read_bank(0xf800, 0xffff, "bank3");
- membank("bank1")->set_entry(1 + m_bank);
- membank("bank2")->set_entry(1 + m_bank);
- membank("bank3")->set_entry(1 + m_bank);
- }
- else
- {
- program.unmap_write(0x0000, 0xffff);
- program.unmap_read(0x0000, 0xf7ff);
- program.unmap_read(0xf800, 0xffff);
- }
- break;
- }
-}
-
-WRITE8_MEMBER( xor100_state::mmu_w )
-{
- /*
-
- bit description
-
- 0 A16
- 1 A17
- 2 A18
- 3 A19
- 4
- 5
- 6
- 7
-
- */
-
- m_bank = data & 0x07;
-
- bankswitch();
-}
-
-WRITE8_MEMBER( xor100_state::prom_toggle_w )
-{
- switch (m_mode)
- {
- case EPROM_OFF: m_mode = EPROM_F800; break;
- case EPROM_F800: m_mode = EPROM_OFF; break;
- }
-
- bankswitch();
-}
-
-READ8_MEMBER( xor100_state::prom_disable_r )
-{
- m_mode = EPROM_F800;
-
- bankswitch();
-
- return 0xff;
-}
-
-READ8_MEMBER( xor100_state::fdc_wait_r )
-{
- /*
-
- bit description
-
- 0
- 1
- 2
- 3
- 4
- 5
- 6
- 7 FDC IRQ
-
- */
-
- if (!machine().side_effects_disabled())
- {
- if (!m_fdc_irq && !m_fdc_drq)
- {
- m_maincpu->set_input_line(Z80_INPUT_LINE_BOGUSWAIT, ASSERT_LINE);
- }
- }
-
- return m_fdc_irq ? 0x7f : 0xff;
-}
-
-WRITE8_MEMBER( xor100_state::fdc_dcont_w )
-{
- /*
-
- bit description
-
- 0 DS0
- 1 DS1
- 2 DS2
- 3 DS3
- 4
- 5
- 6
- 7 _HLSTB
-
- */
-
- // drive select
- floppy_image_device *floppy = nullptr;
-
- if (BIT(data, 0)) floppy = m_floppy0->get_device();
- if (BIT(data, 1)) floppy = m_floppy1->get_device();
- if (BIT(data, 2)) floppy = m_floppy2->get_device();
- if (BIT(data, 3)) floppy = m_floppy3->get_device();
-
- m_fdc->set_floppy(floppy);
-
- if (floppy) floppy->mon_w(0);
-}
-
-WRITE8_MEMBER( xor100_state::fdc_dsel_w )
-{
- /*
-
- bit description
-
- 0 J
- 1 K
- 2
- 3
- 4
- 5
- 6
- 7
-
- */
-
- switch (data & 0x03)
- {
- case 0: break;
- case 1: m_fdc_dden = 1; break;
- case 2: m_fdc_dden = 0; break;
- case 3: m_fdc_dden = !m_fdc_dden; break;
- }
-
- m_fdc->dden_w(m_fdc_dden);
-}
-
-/* Memory Maps */
-
-void xor100_state::xor100_mem(address_map &map)
-{
- map(0x0000, 0xffff).bankw("bank1");
- map(0x0000, 0xf7ff).bankr("bank2");
- map(0xf800, 0xffff).bankr("bank3");
-}
-
-void xor100_state::xor100_io(address_map &map)
-{
- map.global_mask(0xff);
- map(0x00, 0x01).rw(m_uart_a, FUNC(i8251_device::read), FUNC(i8251_device::write));
- map(0x02, 0x03).rw(m_uart_b, FUNC(i8251_device::read), FUNC(i8251_device::write));
- map(0x04, 0x07).rw(I8255A_TAG, FUNC(i8255_device::read), FUNC(i8255_device::write));
- map(0x08, 0x08).w(FUNC(xor100_state::mmu_w));
- map(0x09, 0x09).w(FUNC(xor100_state::prom_toggle_w));
- map(0x0a, 0x0a).r(FUNC(xor100_state::prom_disable_r));
- map(0x0b, 0x0b).portr("DSW0").w(COM5016_TAG, FUNC(com8116_device::stt_str_w));
- map(0x0c, 0x0f).rw(m_ctc, FUNC(z80ctc_device::read), FUNC(z80ctc_device::write));
- map(0xf8, 0xfb).lrw8("fdc",
- [this](offs_t offset) { return m_fdc->read(offset) ^ 0xff; },
- [this](offs_t offset, u8 data) { m_fdc->write(offset, data ^ 0xff); });
- map(0xfc, 0xfc).rw(FUNC(xor100_state::fdc_wait_r), FUNC(xor100_state::fdc_dcont_w));
- map(0xfd, 0xfd).w(FUNC(xor100_state::fdc_dsel_w));
-}
-
-/* Input Ports */
-
-static INPUT_PORTS_START( xor100 )
-
- PORT_START("DSW0")
- PORT_DIPNAME( 0x0f, 0x05, "Serial Port A" )
- PORT_DIPSETTING( 0x00, "50 baud" )
- PORT_DIPSETTING( 0x01, "75 baud" )
- PORT_DIPSETTING( 0x02, "110 baud" )
- PORT_DIPSETTING( 0x03, "134.5 baud" )
- PORT_DIPSETTING( 0x04, "150 baud" )
- PORT_DIPSETTING( 0x05, "300 baud" )
- PORT_DIPSETTING( 0x06, "600 baud" )
- PORT_DIPSETTING( 0x07, "1200 baud" )
- PORT_DIPSETTING( 0x08, "1800 baud" )
- PORT_DIPSETTING( 0x09, "2000 baud" )
- PORT_DIPSETTING( 0x0a, "2400 baud" )
- PORT_DIPSETTING( 0x0b, "3600 baud" )
- PORT_DIPSETTING( 0x0c, "4800 baud" )
- PORT_DIPSETTING( 0x0d, "7200 baud" )
- PORT_DIPSETTING( 0x0e, "9600 baud" )
- PORT_DIPSETTING( 0x0f, "19200 baud" )
- PORT_DIPNAME( 0xf0, 0xe0, "Serial Port B" )
- PORT_DIPSETTING( 0x00, "50 baud" )
- PORT_DIPSETTING( 0x10, "75 baud" )
- PORT_DIPSETTING( 0x20, "110 baud" )
- PORT_DIPSETTING( 0x30, "134.5 baud" )
- PORT_DIPSETTING( 0x40, "150 baud" )
- PORT_DIPSETTING( 0x50, "300 baud" )
- PORT_DIPSETTING( 0x60, "600 baud" )
- PORT_DIPSETTING( 0x70, "1200 baud" )
- PORT_DIPSETTING( 0x80, "1800 baud" )
- PORT_DIPSETTING( 0x90, "2000 baud" )
- PORT_DIPSETTING( 0xa0, "2400 baud" )
- PORT_DIPSETTING( 0xb0, "3600 baud" )
- PORT_DIPSETTING( 0xc0, "4800 baud" )
- PORT_DIPSETTING( 0xd0, "7200 baud" )
- PORT_DIPSETTING( 0xe0, "9600 baud" )
- PORT_DIPSETTING( 0xf0, "19200 baud" )
-
- PORT_START("J1")
- PORT_CONFNAME( 0x01, 0x01, "J1 Wait State")
- PORT_CONFSETTING( 0x00, "No Wait States" )
- PORT_CONFSETTING( 0x01, "1 M1 Wait State" )
-
- PORT_START("J2")
- PORT_CONFNAME( 0x01, 0x01, "J2 CPU Speed")
- PORT_CONFSETTING( 0x00, "2 MHz" )
- PORT_CONFSETTING( 0x01, "4 MHz" )
-
- PORT_START("J3")
- PORT_CONFNAME( 0x01, 0x00, "J3")
- PORT_CONFSETTING( 0x00, "" )
- PORT_CONFSETTING( 0x01, "" )
-
- PORT_START("J4-J5")
- PORT_CONFNAME( 0x01, 0x01, "J4/J5 EPROM Type")
- PORT_CONFSETTING( 0x00, "2708" )
- PORT_CONFSETTING( 0x01, "2716" )
-
- PORT_START("J6")
- PORT_CONFNAME( 0x01, 0x01, "J6 EPROM")
- PORT_CONFSETTING( 0x00, "Disabled" )
- PORT_CONFSETTING( 0x01, "Enabled" )
-
- PORT_START("J7")
- PORT_CONFNAME( 0x01, 0x00, "J7 I/O Port Addresses")
- PORT_CONFSETTING( 0x00, "00-0F" )
- PORT_CONFSETTING( 0x01, "10-1F" )
-
- PORT_START("J8")
- PORT_CONFNAME( 0x01, 0x00, "J8")
- PORT_CONFSETTING( 0x00, "" )
- PORT_CONFSETTING( 0x01, "" )
-
- PORT_START("J9")
- PORT_CONFNAME( 0x01, 0x01, "J9 Power On RAM")
- PORT_CONFSETTING( 0x00, "Enabled" )
- PORT_CONFSETTING( 0x01, "Disabled" )
-INPUT_PORTS_END
-
-/* Printer 8255A Interface */
-
-WRITE_LINE_MEMBER( xor100_state::write_centronics_busy )
-{
- m_centronics_busy = state;
-}
-
-WRITE_LINE_MEMBER( xor100_state::write_centronics_select )
-{
- m_centronics_select = state;
-}
-
-READ8_MEMBER(xor100_state::i8255_pc_r)
-{
- /*
-
- bit description
-
- PC0
- PC1
- PC2
- PC3
- PC4 ON LINE
- PC5 BUSY
- PC6 _ACK
- PC7
-
- */
-
- uint8_t data = 0;
-
- /* on line */
- data |= m_centronics_select << 4;
-
- /* busy */
- data |= m_centronics_busy << 5;
-
- return data;
-}
-
-/* Z80-CTC Interface */
-
-WRITE_LINE_MEMBER( xor100_state::ctc_z0_w )
-{
-}
-
-WRITE_LINE_MEMBER( xor100_state::ctc_z1_w )
-{
-}
-
-WRITE_LINE_MEMBER( xor100_state::ctc_z2_w )
-{
-}
-
-/* WD1795-02 Interface */
-
-static void xor100_floppies(device_slot_interface &device)
-{
- device.option_add("8ssdd", FLOPPY_8_SSDD); // Shugart SA-100
-}
-
-void xor100_state::fdc_intrq_w(bool state)
-{
- m_fdc_irq = state;
- m_ctc->trg0(state);
-
- if (state)
- m_maincpu->set_input_line(Z80_INPUT_LINE_WAIT, CLEAR_LINE);
-}
-
-void xor100_state::fdc_drq_w(bool state)
-{
- m_fdc_drq = state;
-
- if (state)
- m_maincpu->set_input_line(Z80_INPUT_LINE_WAIT, CLEAR_LINE);
-}
-
-
-static void xor100_s100_cards(device_slot_interface &device)
-{
-}
-
-/* Machine Initialization */
-
-void xor100_state::machine_start()
-{
- int banks = m_ram->size() / 0x10000;
- uint8_t *ram = m_ram->pointer();
- uint8_t *rom = m_rom->base();
-
- /* setup memory banking */
- membank("bank1")->configure_entries(1, banks, ram, 0x10000);
- membank("bank2")->configure_entry(0, rom);
- membank("bank2")->configure_entries(1, banks, ram, 0x10000);
- membank("bank3")->configure_entry(0, rom);
- membank("bank3")->configure_entries(1, banks, ram + 0xf800, 0x10000);
-
- machine().save().register_postload(save_prepost_delegate(FUNC(xor100_state::post_load), this));
-
- /* register for state saving */
- save_item(NAME(m_mode));
- save_item(NAME(m_bank));
- save_item(NAME(m_fdc_irq));
- save_item(NAME(m_fdc_drq));
- save_item(NAME(m_fdc_dden));
- save_item(NAME(m_centronics_busy));
- save_item(NAME(m_centronics_select));
-}
-
-void xor100_state::machine_reset()
-{
- m_mode = EPROM_0000;
-
- bankswitch();
-}
-
-void xor100_state::post_load()
-{
- bankswitch();
-}
-
-/* Machine Driver */
-
-void xor100_state::xor100(machine_config &config)
-{
- /* basic machine hardware */
- Z80(config, m_maincpu, 8_MHz_XTAL / 2);
- m_maincpu->set_addrmap(AS_PROGRAM, &xor100_state::xor100_mem);
- m_maincpu->set_addrmap(AS_IO, &xor100_state::xor100_io);
-
- /* devices */
- I8251(config, m_uart_a, 0/*8_MHz_XTAL / 2,*/);
- m_uart_a->txd_handler().set(RS232_A_TAG, FUNC(rs232_port_device::write_txd));
- m_uart_a->dtr_handler().set(RS232_A_TAG, FUNC(rs232_port_device::write_dtr));
- m_uart_a->rts_handler().set(RS232_A_TAG, FUNC(rs232_port_device::write_rts));
-
- rs232_port_device &rs232a(RS232_PORT(config, RS232_A_TAG, default_rs232_devices, nullptr));
- rs232a.rxd_handler().set(m_uart_a, FUNC(i8251_device::write_rxd));
- rs232a.dsr_handler().set(m_uart_a, FUNC(i8251_device::write_dsr));
-
- I8251(config, m_uart_b, 0/*8_MHz_XTAL / 2,*/);
- m_uart_b->txd_handler().set(RS232_B_TAG, FUNC(rs232_port_device::write_txd));
- m_uart_b->dtr_handler().set(RS232_B_TAG, FUNC(rs232_port_device::write_dtr));
- m_uart_b->rts_handler().set(RS232_B_TAG, FUNC(rs232_port_device::write_rts));
-
- rs232_port_device &rs232b(RS232_PORT(config, RS232_B_TAG, default_rs232_devices, "terminal"));
- rs232b.rxd_handler().set(m_uart_b, FUNC(i8251_device::write_rxd));
- rs232b.dsr_handler().set(m_uart_b, FUNC(i8251_device::write_dsr));
- rs232b.cts_handler().set(m_uart_b, FUNC(i8251_device::write_cts));
-
- com8116_device &brg(COM8116(config, COM5016_TAG, 5.0688_MHz_XTAL));
- brg.fr_handler().set(m_uart_a, FUNC(i8251_device::write_txc));
- brg.fr_handler().append(m_uart_a, FUNC(i8251_device::write_rxc));
- brg.ft_handler().set(m_uart_b, FUNC(i8251_device::write_txc));
- brg.ft_handler().append(m_uart_b, FUNC(i8251_device::write_rxc));
-
- i8255_device &ppi(I8255A(config, I8255A_TAG));
- ppi.out_pa_callback().set("cent_data_out", FUNC(output_latch_device::bus_w));
- ppi.out_pb_callback().set(m_centronics, FUNC(centronics_device::write_strobe));
- ppi.in_pc_callback().set(FUNC(xor100_state::i8255_pc_r));
-
- Z80CTC(config, m_ctc, 8_MHz_XTAL / 2);
- m_ctc->intr_callback().set_inputline(m_maincpu, INPUT_LINE_IRQ0);
- m_ctc->zc_callback<0>().set(FUNC(xor100_state::ctc_z0_w));
- m_ctc->zc_callback<1>().set(FUNC(xor100_state::ctc_z1_w));
- m_ctc->zc_callback<2>().set(FUNC(xor100_state::ctc_z2_w));
-
- FD1795(config, m_fdc, 8_MHz_XTAL / 4);
- FLOPPY_CONNECTOR(config, WD1795_TAG":0", xor100_floppies, "8ssdd", floppy_image_device::default_floppy_formats);
- FLOPPY_CONNECTOR(config, WD1795_TAG":1", xor100_floppies, "8ssdd", floppy_image_device::default_floppy_formats);
- FLOPPY_CONNECTOR(config, WD1795_TAG":2", xor100_floppies, nullptr, floppy_image_device::default_floppy_formats);
- FLOPPY_CONNECTOR(config, WD1795_TAG":3", xor100_floppies, nullptr, floppy_image_device::default_floppy_formats);
-
- CENTRONICS(config, m_centronics, centronics_devices, "printer");
- m_centronics->ack_handler().set(I8255A_TAG, FUNC(i8255_device::pc4_w));
- m_centronics->busy_handler().set(FUNC(xor100_state::write_centronics_busy));
- m_centronics->select_handler().set(FUNC(xor100_state::write_centronics_select));
-
- output_latch_device &cent_data_out(OUTPUT_LATCH(config, "cent_data_out"));
- m_centronics->set_output_latch(cent_data_out);
-
- // S-100
- S100_BUS(config, m_s100, 8_MHz_XTAL / 4);
- m_s100->rdy().set_inputline(m_maincpu, Z80_INPUT_LINE_BOGUSWAIT);
- S100_SLOT(config, S100_TAG ":1", xor100_s100_cards, nullptr);
- S100_SLOT(config, S100_TAG ":2", xor100_s100_cards, nullptr);
- S100_SLOT(config, S100_TAG ":3", xor100_s100_cards, nullptr);
- S100_SLOT(config, S100_TAG ":4", xor100_s100_cards, nullptr);
- S100_SLOT(config, S100_TAG ":5", xor100_s100_cards, nullptr);
- S100_SLOT(config, S100_TAG ":6", xor100_s100_cards, nullptr);
- S100_SLOT(config, S100_TAG ":7", xor100_s100_cards, nullptr);
- S100_SLOT(config, S100_TAG ":8", xor100_s100_cards, nullptr);
- S100_SLOT(config, S100_TAG ":9", xor100_s100_cards, nullptr);
- S100_SLOT(config, S100_TAG ":10", xor100_s100_cards, nullptr);
-
- /* internal ram */
- RAM(config, RAM_TAG).set_default_size("64K").set_extra_options("128K,192K,256K,320K,384K,448K,512K");
-}
-
-/* ROMs */
-
-ROM_START( xor100 )
- ROM_REGION( 0x800, Z80_TAG, 0 )
- ROM_SYSTEM_BIOS( 0, "v185", "v1.85" )
- ROMX_LOAD( "xp 185.8b", 0x000, 0x800, CRC(0d0bda8d) SHA1(11c83f7cd7e6a570641b44a2f2cc5737a7dd8ae3), ROM_BIOS(0) )
-ROM_END
-
-/* System Drivers */
-
-// YEAR NAME PARENT COMPAT MACHINE INPUT STATE INIT COMPANY FULLNAME FLAGS
-COMP( 1980, xor100, 0, 0, xor100, xor100, xor100_state, empty_init, "XOR Data Science", "XOR S-100-12", MACHINE_NOT_WORKING | MACHINE_SUPPORTS_SAVE | MACHINE_NO_SOUND_HW )