// license:MAME // copyright-holders:Robbbert, R. Belmont /*************************************************************************** Peripheral Technology PT68K4 2011-01-03 Skeleton driver. 2013-09-30 Connected to a terminal 2014-01-03 Connect real DUARTs, FDC, and TimeKeeper. Settings now save properly, floppies can be read. 2014-01-19 ISA bus and compatible cards, PC keyboard support, speaker support This has the appearance of a PC, including pc power supply, slots, etc on a conventional pc-like motherboard and case. Some pics: http://www.wormfood.net/old_computers/ Chips: 68230 Parallel Interface/Timer @ FE0081 68681 DUART/Timer (x2) @ FE0001 and FE0041 WD37C65 FDC (PC FDC compatible, even mapped as an ISA device) MK48T02 TimeKeeper @ odd bytes from FF0001 to FF0FFF. even bytes in that range are a standard SRAM chip which is not backed up. Keyboard at FE01C1 (status/IRQ clear)/FE01C3 (AT scan codes) WD1002 HDD controller @ FE0141-FE014F. "Monk" BIOS also supports an 8-bit ISA IDE card. Video: ISA MDA or CGA/EGA/VGA-style boards ISA memory is C00001-DFFFFF odd bytes only. So the MDA B0000 framebuffer becames (B0000*2) + C00001 = D60001. ISA I/O is at FA0001-FBFFFF odd bytes only, and the mapping is similar. HUMBUG BIOS tests MDA and CGA VRAM to determine existence, falls back to serial console if neither exists. If both exist, MDA is used. VRAM is every other byte for ISA cards. (Only 8 bit cards are supported). OP3 on DUART1 drives a speaker. IP2 on DUART1 signals if a new keyboard scan code is available. IRQs: 2: 68230 PIT 4: DUART2 5: DUART1 6: PC FDC IRQ TODO: 68230 device. Better hardware documentation would be nice too, and working OS disks. ****************************************************************************/ #include "emu.h" #include "cpu/m68000/m68000.h" #include "machine/mc68681.h" #include "machine/timekpr.h" #include "machine/pc_fdc.h" #include "formats/imd_dsk.h" #include "bus/isa/isa.h" #include "bus/isa/isa_cards.h" #include "bus/pc_kbd/pc_kbdc.h" #include "bus/pc_kbd/keyboards.h" #include "sound/speaker.h" #define M68K_TAG "maincpu" #define DUART1_TAG "duart1" #define DUART2_TAG "duart2" #define TIMEKEEPER_TAG "timekpr" #define ISABUS_TAG "isa" #define KBDC_TAG "pc_kbdc" #define SPEAKER_TAG "speaker" class pt68k4_state : public driver_device { public: pt68k4_state(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag) , m_p_base(*this, "rambase") , m_maincpu(*this, M68K_TAG) , m_duart1(*this, DUART1_TAG) , m_duart2(*this, DUART2_TAG) , m_isa(*this, ISABUS_TAG) , m_speaker(*this, SPEAKER_TAG) { } DECLARE_READ8_MEMBER(hiram_r); DECLARE_WRITE8_MEMBER(hiram_w); DECLARE_READ8_MEMBER(keyboard_r); DECLARE_WRITE8_MEMBER(keyboard_w); DECLARE_WRITE8_MEMBER(duart1_out); DECLARE_WRITE_LINE_MEMBER(duart1_irq); DECLARE_WRITE_LINE_MEMBER(duart2_irq); DECLARE_WRITE_LINE_MEMBER(keyboard_clock_w); DECLARE_WRITE_LINE_MEMBER(keyboard_data_w); private: virtual void machine_reset(); required_shared_ptr m_p_base; required_device m_maincpu; required_device m_duart1; required_device m_duart2; required_device m_isa; required_device m_speaker; UINT8 m_hiram[0x800]; bool m_kclk; UINT8 m_kdata; UINT8 m_scancode; UINT8 m_kbdflag; int m_kbit; }; // XT keyboard interface - done in TTL instead of an 804x WRITE_LINE_MEMBER(pt68k4_state::keyboard_clock_w) { // printf("KCLK: %d\n", state ? 1 : 0); // rising edge? if ((state == ASSERT_LINE) && (!m_kclk)) { if (m_kbit >= 1 && m_kbit <= 8) { m_scancode >>= 1; m_scancode |= m_kdata; } // stop bit? if (m_kbit == 9) { // printf("scancode %02x\n", m_scancode); m_kbit = 0; m_kbdflag = 0x80; m_duart1->ip2_w(CLEAR_LINE); } else { m_kbit++; } } m_kclk = (state == ASSERT_LINE) ? true : false; } WRITE_LINE_MEMBER(pt68k4_state::keyboard_data_w) { // printf("KDATA: %d\n", state ? 1 : 0); m_kdata = (state == ASSERT_LINE) ? 0x80 : 0x00; } WRITE8_MEMBER(pt68k4_state::duart1_out) { m_speaker->level_w((data >> 3) & 1); } static ADDRESS_MAP_START(pt68k4_mem, AS_PROGRAM, 16, pt68k4_state) ADDRESS_MAP_UNMAP_HIGH AM_RANGE(0x000000, 0x0fffff) AM_RAM AM_SHARE("rambase") // 1MB RAM (OS9 needs more) AM_RANGE(0xf80000, 0xf8ffff) AM_ROM AM_REGION("roms", 0) AM_RANGE(0xc00000, 0xdfffff) AM_DEVREADWRITE8(ISABUS_TAG, isa8_device, prog_r, prog_w, 0x00ff) AM_RANGE(0xfa0000, 0xfbffff) AM_DEVREADWRITE8(ISABUS_TAG, isa8_device, io_r, io_w, 0x00ff) AM_RANGE(0xfe0000, 0xfe001f) AM_DEVREADWRITE8(DUART1_TAG, mc68681_device, read, write, 0x00ff) AM_RANGE(0xfe0040, 0xfe005f) AM_DEVREADWRITE8(DUART2_TAG, mc68681_device, read, write, 0x00ff) AM_RANGE(0xfe01c0, 0xfe01c3) AM_READWRITE8(keyboard_r, keyboard_w, 0x00ff) AM_RANGE(0xff0000, 0xff0fff) AM_READWRITE8(hiram_r, hiram_w, 0xff00) AM_RANGE(0xff0000, 0xff0fff) AM_DEVREADWRITE8(TIMEKEEPER_TAG, timekeeper_device, read, write, 0x00ff) ADDRESS_MAP_END /* Input ports */ static INPUT_PORTS_START( pt68k4 ) INPUT_PORTS_END /* built in keyboard: offset 0 reads 0x80 if key ready, 0 if not. If key ready, offset 1 reads scancode. Read or write to offs 0 clears key ready */ READ8_MEMBER(pt68k4_state::keyboard_r) { if (offset == 0) { UINT8 rv = m_kbdflag; m_kbdflag = 0; m_duart1->ip2_w(ASSERT_LINE); return rv; } return m_scancode; } WRITE8_MEMBER(pt68k4_state::keyboard_w) { m_kbdflag = 0; m_duart1->ip2_w(ASSERT_LINE); } READ8_MEMBER(pt68k4_state::hiram_r) { return m_hiram[offset]; } WRITE8_MEMBER(pt68k4_state::hiram_w) { m_hiram[offset] = data; } void pt68k4_state::machine_reset() { UINT8* user1 = memregion("roms")->base(); memcpy((UINT8*)m_p_base.target(), user1, 8); m_maincpu->reset(); m_kclk = true; m_kbit = 0; m_scancode = 0; m_kbdflag = 0; // set line to asserted (no key code ready) m_duart1->ip2_w(ASSERT_LINE); } WRITE_LINE_MEMBER(pt68k4_state::duart1_irq) { m_maincpu->set_input_line(M68K_IRQ_5, state); } WRITE_LINE_MEMBER(pt68k4_state::duart2_irq) { m_maincpu->set_input_line(M68K_IRQ_4, state); } // these are cards supported by the HUMBUG and Monk BIOSes SLOT_INTERFACE_START( pt68k4_isa8_cards ) SLOT_INTERFACE("mda", ISA8_MDA) SLOT_INTERFACE("cga", ISA8_CGA) SLOT_INTERFACE("ega", ISA8_EGA) // Monk only SLOT_INTERFACE("vga", ISA8_VGA) // Monk only SLOT_INTERFACE("fdc_at", ISA8_FDC_AT) SLOT_INTERFACE("wdxt_gen", ISA8_WDXT_GEN) SLOT_INTERFACE("lpt", ISA8_LPT) SLOT_INTERFACE("xtide", ISA8_XTIDE) // Monk only SLOT_INTERFACE_END static MACHINE_CONFIG_START( pt68k4, pt68k4_state ) /* basic machine hardware */ MCFG_CPU_ADD(M68K_TAG, M68000, XTAL_16MHz) MCFG_CPU_PROGRAM_MAP(pt68k4_mem) // add the DUARTS. first one has the console on channel A at 19200. MCFG_MC68681_ADD("duart1", XTAL_16MHz / 4) MCFG_MC68681_IRQ_CALLBACK(WRITELINE(pt68k4_state, duart1_irq)) MCFG_MC68681_OUTPORT_CALLBACK(WRITE8(pt68k4_state, duart1_out)) MCFG_MC68681_ADD("duart2", XTAL_16MHz / 4) MCFG_DEVICE_ADD(KBDC_TAG, PC_KBDC, 0) MCFG_PC_KBDC_OUT_CLOCK_CB(WRITELINE(pt68k4_state, keyboard_clock_w)) MCFG_PC_KBDC_OUT_DATA_CB(WRITELINE(pt68k4_state, keyboard_data_w)) MCFG_PC_KBDC_SLOT_ADD(KBDC_TAG, "kbd", pc_xt_keyboards, STR_KBD_IBM_PC_XT_83) MCFG_M48T02_ADD(TIMEKEEPER_TAG) MCFG_DEVICE_ADD(ISABUS_TAG, ISA8, 0) MCFG_ISA8_CPU(":"M68K_TAG) MCFG_ISA8_BUS_CUSTOM_SPACES() MCFG_ISA8_SLOT_ADD(ISABUS_TAG, "isa1", pt68k4_isa8_cards, "fdc_at", false) MCFG_ISA8_SLOT_ADD(ISABUS_TAG, "isa2", pt68k4_isa8_cards, "mda", false) MCFG_ISA8_SLOT_ADD(ISABUS_TAG, "isa3", pt68k4_isa8_cards, "wdxt_gen", false) MCFG_ISA8_SLOT_ADD(ISABUS_TAG, "isa4", pt68k4_isa8_cards, NULL, false) MCFG_ISA8_SLOT_ADD(ISABUS_TAG, "isa5", pt68k4_isa8_cards, NULL, false) MCFG_ISA8_SLOT_ADD(ISABUS_TAG, "isa6", pt68k4_isa8_cards, NULL, false) MCFG_ISA8_SLOT_ADD(ISABUS_TAG, "isa7", pt68k4_isa8_cards, NULL, false) MCFG_SPEAKER_STANDARD_MONO("mono") MCFG_SOUND_ADD(SPEAKER_TAG, SPEAKER_SOUND, 0) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 1.00) MACHINE_CONFIG_END /* ROM definition */ ROM_START( pt68k4 ) ROM_REGION16_BE( 0x10000, "roms", 0 ) ROM_SYSTEM_BIOS( 0, "humbug", "Humbug" ) ROMX_LOAD( "humpta40.bin", 0x0000, 0x8000, CRC(af67ff64) SHA1(da9fa31338c6847bb0e66118679b1ec01f6dc30b), ROM_SKIP(1) | ROM_BIOS(1)) ROMX_LOAD( "humpta41.bin", 0x0001, 0x8000, CRC(a8b16e27) SHA1(218802f6e20d14cff736bb7423f06ce2f66e074c), ROM_SKIP(1) | ROM_BIOS(1)) ROM_SYSTEM_BIOS( 1, "monk", "Monk" ) ROMX_LOAD( "monk_0.bin", 0x0000, 0x8000, CRC(420d6a4b) SHA1(fca8c53c9c3c8ebd09370499cf34f4cc75ed9463), ROM_SKIP(1) | ROM_BIOS(2)) ROMX_LOAD( "monk_1.bin", 0x0001, 0x8000, CRC(fc495e82) SHA1(f7b720d87db4d72a23e6c42d2cdd03216db04b60), ROM_SKIP(1) | ROM_BIOS(2)) ROM_REGION( 0x0900, "proms", 0 ) ROM_LOAD_OPTIONAL( "20l8.u71", 0x0000, 0x000149, CRC(77365121) SHA1(5ecf490ead119966a5c097d90740acde60462ab0) ) ROM_LOAD_OPTIONAL( "16l8.u53", 0x0200, 0x000109, CRC(cb6a9984) SHA1(45b9b14e7b45cda6f0edfcbb9895b6a14eacb852) ) ROM_LOAD_OPTIONAL( "22v10.u40", 0x0400, 0x0002e1, CRC(24df92e4) SHA1(c183113956bb0db132b6f37b239ca0bb7fac2d82) ) ROM_LOAD_OPTIONAL( "16l8.u11", 0x0700, 0x000109, CRC(397a1363) SHA1(aca2a02e1bf1f7cdb9b0ca24ebecb0b01ae472e8) ) ROM_END /* Driver */ /* YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS */ COMP( 1990, pt68k4, 0, 0, pt68k4, pt68k4, driver_device, 0, "Peripheral Technology", "PT68K4", GAME_NOT_WORKING )