// license:BSD-3-Clause // copyright-holders:Miodrag Milanovic, Robbbert /**************************************************************************************************************** Ithaca Intersystems DPS-1 The last commercial release of a computer fitted with a front panel. It needs to boot from floppy before anything appears on screen. ToDo: - Need artwork of the front panel switches and LEDs, and port FF. ***************************************************************************************************************/ #include "emu.h" #include "cpu/z80/z80.h" #include "machine/am9519.h" #include "machine/upd765.h" #include "machine/mc2661.h" #include "bus/rs232/rs232.h" //#include "bus/s100/s100.h" #include "softlist.h" class dps1_state : public driver_device { public: dps1_state(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag) , m_maincpu(*this, "maincpu") , m_fdc(*this, "fdc") , m_floppy0(*this, "fdc:0") //, m_floppy1(*this, "fdc:1") { } DECLARE_WRITE8_MEMBER(portb2_w); DECLARE_WRITE8_MEMBER(portb4_w); DECLARE_WRITE8_MEMBER(portb6_w); DECLARE_WRITE8_MEMBER(portb8_w); DECLARE_WRITE8_MEMBER(portba_w); DECLARE_WRITE8_MEMBER(portbc_w); DECLARE_WRITE8_MEMBER(portbe_w); DECLARE_READ8_MEMBER(portff_r); DECLARE_WRITE8_MEMBER(portff_w); DECLARE_WRITE_LINE_MEMBER(fdc_drq_w); DECLARE_DRIVER_INIT(dps1); DECLARE_MACHINE_RESET(dps1); void dps1(machine_config &config); void io_map(address_map &map); void mem_map(address_map &map); private: bool m_dma_dir; uint16_t m_dma_adr; required_device m_maincpu; required_device m_fdc; required_device m_floppy0; //required_device m_floppy1; }; ADDRESS_MAP_START(dps1_state::mem_map) AM_RANGE(0x0000, 0x03ff) AM_READ_BANK("bankr0") AM_WRITE_BANK("bankw0") AM_RANGE(0x0400, 0xffff) AM_RAM ADDRESS_MAP_END ADDRESS_MAP_START(dps1_state::io_map) ADDRESS_MAP_GLOBAL_MASK(0xff) ADDRESS_MAP_UNMAP_HIGH AM_RANGE(0x00, 0x03) AM_DEVREADWRITE("uart", mc2661_device, read, write) // S2651 AM_RANGE(0xb0, 0xb1) AM_DEVICE("fdc", upd765_family_device, map) AM_RANGE(0xb2, 0xb3) AM_WRITE(portb2_w) // set dma fdc->memory AM_RANGE(0xb4, 0xb5) AM_WRITE(portb4_w) // set dma memory->fdc AM_RANGE(0xb6, 0xb7) AM_WRITE(portb6_w) // enable eprom AM_RANGE(0xb8, 0xb9) AM_WRITE(portb8_w) // set A16-23 AM_RANGE(0xba, 0xbb) AM_WRITE(portba_w) // set A8-15 AM_RANGE(0xbc, 0xbd) AM_WRITE(portbc_w) // set A0-7 AM_RANGE(0xbe, 0xbf) AM_WRITE(portbe_w) // disable eprom AM_RANGE(0xff, 0xff) AM_READWRITE(portff_r, portff_w) // other allocated ports, optional // AM_RANGE(0x04, 0x07) AM_DEVREADWRITE("uart2", mc2661_device, read, write) // S2651 // AM_RANGE(0x08, 0x0b) parallel ports // AM_RANGE(0x10, 0x11) // interrupt response AM_RANGE(0x14, 0x14) AM_DEVREADWRITE("am9519a", am9519_device, data_r, data_w) AM_RANGE(0x15, 0x15) AM_DEVREADWRITE("am9519a", am9519_device, stat_r, cmd_w) AM_RANGE(0x16, 0x16) AM_DEVREADWRITE("am9519b", am9519_device, data_r, data_w) AM_RANGE(0x17, 0x17) AM_DEVREADWRITE("am9519b", am9519_device, stat_r, cmd_w) // AM_RANGE(0x18, 0x1f) control lines 0 to 7 AM_RANGE(0xe0, 0xe3) AM_NOP //unknown device ADDRESS_MAP_END // read from disk, to memory WRITE8_MEMBER( dps1_state::portb2_w ) { m_dma_dir = 1; } // write to disk, from memory WRITE8_MEMBER( dps1_state::portb4_w ) { m_dma_dir = 0; } // enable eprom WRITE8_MEMBER( dps1_state::portb6_w ) { membank("bankr0")->set_entry(1); // point at rom } // set A16-23 WRITE8_MEMBER( dps1_state::portb8_w ) { } // set A8-15 WRITE8_MEMBER( dps1_state::portba_w ) { m_dma_adr = (data << 8) | (m_dma_adr & 0xff); } // set A0-7 WRITE8_MEMBER( dps1_state::portbc_w ) { m_dma_adr = (m_dma_adr & 0xff00) | data; } // disable eprom WRITE8_MEMBER( dps1_state::portbe_w ) { membank("bankr0")->set_entry(0); // point at ram } // read 8 front-panel switches READ8_MEMBER( dps1_state::portff_r ) { return 0x0e; } // write to 8 leds WRITE8_MEMBER( dps1_state::portff_w ) { } // do dma WRITE_LINE_MEMBER( dps1_state::fdc_drq_w ) { if (state) { // acknowledge drq by taking /dack low (unsupported) // then depending on direction, transfer a byte address_space& mem = m_maincpu->space(AS_PROGRAM); if (m_dma_dir) { // disk to mem mem.write_byte(m_dma_adr, m_fdc->mdma_r(mem, 0)); } else { // mem to disk m_fdc->mdma_w(mem, 0, mem.read_byte(m_dma_adr)); } m_dma_adr++; } // else take /dack high (unsupported) } MACHINE_RESET_MEMBER( dps1_state, dps1 ) { membank("bankr0")->set_entry(1); // point at rom membank("bankw0")->set_entry(0); // always write to ram // set fdc for 8 inch floppies m_fdc->set_rate(500000); // turn on the motor floppy_image_device *floppy = m_floppy0->get_device(); m_fdc->set_floppy(floppy); floppy->mon_w(0); } DRIVER_INIT_MEMBER( dps1_state, dps1 ) { uint8_t *main = memregion("maincpu")->base(); membank("bankr0")->configure_entry(1, &main[0x0000]); membank("bankr0")->configure_entry(0, &main[0x0400]); membank("bankw0")->configure_entry(0, &main[0x0400]); } static INPUT_PORTS_START( dps1 ) INPUT_PORTS_END static SLOT_INTERFACE_START( floppies ) SLOT_INTERFACE( "floppy0", FLOPPY_8_DSDD ) SLOT_INTERFACE_END MACHINE_CONFIG_START(dps1_state::dps1) // basic machine hardware MCFG_CPU_ADD("maincpu", Z80, 4000000) MCFG_CPU_PROGRAM_MAP(mem_map) MCFG_CPU_IO_MAP(io_map) MCFG_MACHINE_RESET_OVERRIDE(dps1_state, dps1) /* video hardware */ MCFG_DEVICE_ADD("uart", MC2661, XTAL(5'068'800)) MCFG_MC2661_TXD_HANDLER(DEVWRITELINE("rs232", rs232_port_device, write_txd)) MCFG_MC2661_RTS_HANDLER(DEVWRITELINE("rs232", rs232_port_device, write_rts)) MCFG_MC2661_DTR_HANDLER(DEVWRITELINE("rs232", rs232_port_device, write_dtr)) MCFG_RS232_PORT_ADD("rs232", default_rs232_devices, "terminal") MCFG_RS232_RXD_HANDLER(DEVWRITELINE("uart",mc2661_device,rx_w)) MCFG_RS232_DSR_HANDLER(DEVWRITELINE("uart",mc2661_device,dsr_w)) MCFG_RS232_CTS_HANDLER(DEVWRITELINE("uart",mc2661_device,cts_w)) MCFG_DEVICE_ADD("am9519a", AM9519, 0) MCFG_DEVICE_ADD("am9519b", AM9519, 0) // floppy MCFG_UPD765A_ADD("fdc", false, true) //MCFG_UPD765_INTRQ_CALLBACK(WRITELINE(dps1_state, fdc_int_w)) // doesn't appear to be used MCFG_UPD765_DRQ_CALLBACK(WRITELINE(dps1_state, fdc_drq_w)) MCFG_FLOPPY_DRIVE_ADD("fdc:0", floppies, "floppy0", floppy_image_device::default_floppy_formats) MCFG_FLOPPY_DRIVE_SOUND(true) //MCFG_FLOPPY_DRIVE_ADD("fdc:1", floppies, "floppy1", floppy_image_device::default_floppy_formats) //MCFG_FLOPPY_DRIVE_SOUND(true) // software lists MCFG_SOFTWARE_LIST_ADD("flop_list", "dps1") MACHINE_CONFIG_END ROM_START( dps1 ) ROM_REGION( 0x800, "maincpu", 0 ) ROM_LOAD( "boot 1280", 0x000, 0x400, CRC(9c2e98fa) SHA1(78e6c9d00aa6e8f6c4d3c65984cfdf4e99434c66) ) // actually on the FDC-2 board ROM_END COMP( 1979, dps1, 0, 0, dps1, dps1, dps1_state, dps1, "Ithaca InterSystems", "DPS-1", MACHINE_NO_SOUND_HW )