// license:BSD-3-Clause // copyright-holders:Patrick Mackinlay /* * An emulation of systems based on the Jazz computer architecture, originally * developed by Microsoft. Specific systems which implemented this architecture * include the MIPS Magnum/Millenium 4000 and Olivetti M700-10. * * References: * * https://www.linux-mips.org/wiki/Jazz * http://gunkies.org/wiki/MIPS_Magnum * http://www.sensi.org/~alec/mips/mips-history.html * * TODO * - big-endian support for RISC/os * - EISA bus and slots * - slotify and improve graphics board * - other models/variants * - sound and other loose ends * * Unconfirmed parts lists from ARCSystem reference design (which appears to * be very similar or identical to the Jazz system) taken from: * https://www.linux-mips.org/archives/riscy/1993-12/msg00013.html * * Ref Part Function * * System board: * * Dallas DS1287 RTC and NVRAM * Dallas DS1225Y 8k non-volatile SRAM * WD16C552 Dual serial and parallel port controller * Intel N82077A Floppy drive controller * National DP83932BFV Ethernet controller * Intel 82358 EISA Bus Controller * Intel 82357 EISA Integrated System Peripheral (ISP) * Intel 82352 x 2 EISA Bus Buffer (EBB) * Emulex FAS216 SCSI controller * 27C01 128k EPROM * 28F020 256k flash memory * NEC μPD31432 ARC address path ASIC * NEC μPD31431 x 2 ARC data path ASIC * NEC μPD30400 R4000PC/50 CPU * * Audio board: * * Crystal CS4215 Audio codec * Altera FPGA x 4 Audio DMA * * Video board: * * 27C010 128k EPROM * IMS G364-11S Video controller * NEC μPD42274V-80 x 16 256kx4 VRAM (2MiB) */ #include "emu.h" #include "includes/jazz.h" #include "debugger.h" #include "jazz.lh" #define VERBOSE 0 #include "logmacro.h" void jazz_state::machine_start() { m_led.resolve(); } void jazz_state::machine_reset() { // HACK: make sure the RTC is running m_rtc->write_direct(0x0a, 0x20); } void jazz_state::init_common() { // map the configured ram and vram m_mct_adr->space(0).install_ram(0x00000000, 0x00000000 | m_ram->mask(), m_ram->pointer()); m_mct_adr->space(0).install_ram(0x40000000, 0x40000000 | m_vram->mask(), m_vram->pointer()); } void jazz_state::cpu_map(address_map &map) { map(0x00000000, 0xffffffff).rw(m_mct_adr, FUNC(mct_adr_device::r4k_r), FUNC(mct_adr_device::r4k_w)); } void jazz_state::mct_map(address_map &map) { map(0x1fc00000, 0x1fc3ffff).r(m_flash, FUNC(amd_28f020_device::read)); // VDR1 //map(0x60000000, 0x60001fff).m(m_cvc, FUNC(g364_device::map)); //map(0x60010000, 0x60010000); // id (r/w) //map(0x60020000, 0x60020000); // reset // VDR1F "Fission" map(0x60000000, 0x6007ffff).rom().region("graphics", 0); map(0x60080000, 0x60081fff).m(m_cvc, FUNC(g364_device::map)); map(0x60100000, 0x60100000).lw8([this] (u8 data) { m_cvc->set_swapped(ENDIANNESS_NATIVE == ENDIANNESS_BIG); }, "little_endian"); map(0x60102000, 0x60102000).lw8([this] (u8 data) { m_cvc->set_swapped(ENDIANNESS_NATIVE == ENDIANNESS_LITTLE); }, "big_endian"); map(0x60180000, 0x60180000).lw8([this] (u8 data) { m_cvc->reset(); }, "g364_reset"); //map(0x60182000, 0x60182000); // TODO: monitor // VDR2 //map(0x60000000, 0x60000fff).m(m_cvc, FUNC(g300_device::map)); //map(0x60008000, 0x60008fff).m(m_cursor, FUNC(bt431_device::map)).umask32(0x000000ff); map(0x80000000, 0x80000fff).m(m_mct_adr, FUNC(mct_adr_device::map)); map(0x80001000, 0x800010ff).m(m_net, FUNC(dp83932c_device::map)).umask32(0x0000ffff); map(0x80002000, 0x8000200f).m(m_scsi, FUNC(ncr53c94_device::map)); map(0x80003000, 0x8000300f).m(m_fdc, FUNC(n82077aa_device::map)); // LE: only reads 4000 // BE: read 400d, write 400d, write 400c map(0x80004000, 0x8000400f).lrw8( NAME([this] (offs_t offset) { return m_rtc->read(1); }), NAME([this] (offs_t offset, u8 data) { m_rtc->write(1, data); })); map(0x80005000, 0x80005000).rw(m_kbdc, FUNC(ps2_keyboard_controller_device::data_r), FUNC(ps2_keyboard_controller_device::data_w)); map(0x80005001, 0x80005001).rw(m_kbdc, FUNC(ps2_keyboard_controller_device::status_r), FUNC(ps2_keyboard_controller_device::command_w)); map(0x80006000, 0x80006007).rw(m_ace[0], FUNC(ns16550_device::ins8250_r), FUNC(ns16550_device::ins8250_w)); map(0x80007000, 0x80007007).rw(m_ace[1], FUNC(ns16550_device::ins8250_r), FUNC(ns16550_device::ins8250_w)); map(0x80008000, 0x80008003).rw(m_lpt, FUNC(pc_lpt_device::read), FUNC(pc_lpt_device::write)); map(0x80009000, 0x8000afff).ram().share("nvram"); map(0x8000b000, 0x8000b007).lr8( [] (offs_t offset) { // mac address and checksum static u8 const mac[] = { 0x00, 0x00, 0x6b, 0x12, 0x34, 0x56, 0x00, 0xf7 }; return mac[offset]; }, "mac"); //map(0x8000c000, 0x8000cfff) // sound //map(0x8000d000, 0x8000dfff).noprw(); // dummy dma device? map(0x8000d600, 0x8000d607).nopw(); map(0x8000f000, 0x8000f000).w(FUNC(jazz_state::led_w)); // lots of byte data written to 800 //map(0x800e0000, 0x800fffff).m() // dram config map(0x90000000, 0x90ffffff).m(m_isp, FUNC(i82357_device::map)); // HACK: empty eisa slots map(0x90001c80, 0x90001c87).ram(); map(0x90002c80, 0x90002c87).ram(); map(0x90003c80, 0x90003c87).ram(); map(0x90004c80, 0x90004c87).ram(); //map(0x91000000, 0x91ffffff).m(); //map(0x92000000, 0x92ffffff).m(); // EISA I/O ports? //map(0x93000000, 0x93ffffff).m(); // EISA memory map(0xf0000000, 0xf0000001).r(m_mct_adr, FUNC(mct_adr_device::isr_r)); map(0xf0000002, 0xf0000003).rw(m_mct_adr, FUNC(mct_adr_device::imr_r), FUNC(mct_adr_device::imr_w)); map(0xfff00000, 0xfff3ffff).r(m_flash, FUNC(amd_28f020_device::read)); // mirror? } static void jazz_scsi_devices(device_slot_interface &device) { device.option_add("harddisk", NSCSI_HARDDISK); device.option_add("cdrom", NSCSI_CDROM); } FLOPPY_FORMATS_MEMBER(jazz_state::floppy_formats) FLOPPY_PC_FORMAT FLOPPY_FORMATS_END void jazz_state::jazz(machine_config &config) { // FIXME: slow the cpu clock to get past session manager bugcheck R4000(config, m_cpu, 50_MHz_XTAL / 5); m_cpu->set_addrmap(0, &jazz_state::cpu_map); RAM(config, m_ram); m_ram->set_default_size("16M"); m_ram->set_extra_options("32M,64M,128M,256M"); m_ram->set_default_value(0); RAM(config, m_vram); m_vram->set_default_size("2M"); m_vram->set_default_value(0); // local bus dma, timer and interrupt controller MCT_ADR(config, m_mct_adr, 0); m_mct_adr->set_addrmap(0, &jazz_state::mct_map); m_mct_adr->out_int_dma_cb().set_inputline(m_cpu, INPUT_LINE_IRQ0); m_mct_adr->out_int_device_cb().set_inputline(m_cpu, INPUT_LINE_IRQ1); m_mct_adr->out_int_timer_cb().set_inputline(m_cpu, INPUT_LINE_IRQ4); m_mct_adr->eisa_iack_cb().set(m_isp, FUNC(i82357_device::eisa_irq_ack)); // scsi bus and devices NSCSI_BUS(config, m_scsibus); NSCSI_CONNECTOR(config, "scsi:0", jazz_scsi_devices, "harddisk"); NSCSI_CONNECTOR(config, "scsi:1", jazz_scsi_devices, nullptr); NSCSI_CONNECTOR(config, "scsi:2", jazz_scsi_devices, nullptr); NSCSI_CONNECTOR(config, "scsi:3", jazz_scsi_devices, nullptr); NSCSI_CONNECTOR(config, "scsi:4", jazz_scsi_devices, nullptr); NSCSI_CONNECTOR(config, "scsi:5", jazz_scsi_devices, nullptr); NSCSI_CONNECTOR(config, "scsi:6", jazz_scsi_devices, "cdrom"); // scsi host adapter NSCSI_CONNECTOR(config, "scsi:7").option_set("ncr53c94", NCR53C94).clock(24_MHz_XTAL).machine_config( [this] (device_t *device) { ncr53c94_device &adapter = downcast(*device); adapter.irq_handler_cb().set(m_mct_adr, FUNC(mct_adr_device::irq<5>)); adapter.drq_handler_cb().set(m_mct_adr, FUNC(mct_adr_device::drq<0>)); subdevice(":mct_adr")->dma_r_cb<0>().set(adapter, FUNC(ncr53c94_device::dma_r)); subdevice(":mct_adr")->dma_w_cb<0>().set(adapter, FUNC(ncr53c94_device::dma_w)); }); // floppy controller and drive N82077AA(config, m_fdc, 24_MHz_XTAL); m_fdc->intrq_wr_callback().set(m_mct_adr, FUNC(mct_adr_device::irq<1>)); m_fdc->drq_wr_callback().set(m_mct_adr, FUNC(mct_adr_device::drq<1>)); FLOPPY_CONNECTOR(config, "fdc:0", "35hd", FLOPPY_35_HD, true, jazz_state::floppy_formats).enable_sound(false); m_mct_adr->dma_r_cb<1>().set(m_fdc, FUNC(n82077aa_device::dma_r)); m_mct_adr->dma_w_cb<1>().set(m_fdc, FUNC(n82077aa_device::dma_w)); MC146818(config, m_rtc, 32.768_kHz_XTAL); m_rtc->set_epoch(1980); NVRAM(config, m_nvram, nvram_device::DEFAULT_ALL_0); AMD_28F020(config, m_flash); // pc keyboard connector pc_kbdc_device &kbd_con(PC_KBDC(config, "kbd_con", 0)); kbd_con.out_clock_cb().set(m_kbdc, FUNC(ps2_keyboard_controller_device::kbd_clk_w)); kbd_con.out_data_cb().set(m_kbdc, FUNC(ps2_keyboard_controller_device::kbd_data_w)); // keyboard port pc_kbdc_slot_device &kbd(PC_KBDC_SLOT(config, "kbd", pc_at_keyboards, STR_KBD_MICROSOFT_NATURAL)); kbd.set_pc_kbdc_slot(&kbd_con); // auxiliary connector pc_kbdc_device &aux_con(PC_KBDC(config, "aux_con", 0)); aux_con.out_clock_cb().set(m_kbdc, FUNC(ps2_keyboard_controller_device::aux_clk_w)); aux_con.out_data_cb().set(m_kbdc, FUNC(ps2_keyboard_controller_device::aux_data_w)); // auxiliary port pc_kbdc_slot_device &aux(PC_KBDC_SLOT(config, "aux", ps2_mice, STR_HLE_PS2_MOUSE)); aux.set_pc_kbdc_slot(&aux_con); // keyboard controller PS2_KEYBOARD_CONTROLLER(config, m_kbdc, 12_MHz_XTAL); // FIXME: reset is probably routed through the MCT-ADR m_kbdc->hot_res().set([this] (int state) { machine().schedule_soft_reset(); }); m_kbdc->kbd_clk().set(kbd_con, FUNC(pc_kbdc_device::clock_write_from_mb)); m_kbdc->kbd_data().set(kbd_con, FUNC(pc_kbdc_device::data_write_from_mb)); m_kbdc->kbd_irq().set(m_mct_adr, FUNC(mct_adr_device::irq<6>)); m_kbdc->aux_clk().set(aux_con, FUNC(pc_kbdc_device::clock_write_from_mb)); m_kbdc->aux_data().set(aux_con, FUNC(pc_kbdc_device::data_write_from_mb)); m_kbdc->aux_irq().set(m_mct_adr, FUNC(mct_adr_device::irq<7>)); SCREEN(config, m_screen, SCREEN_TYPE_RASTER); m_screen->set_raw(78643200, 1280, 0, 1280, 1024, 0, 1024); m_screen->set_screen_update(m_cvc, FUNC(g364_device::screen_update)); m_screen->screen_vblank().set(m_mct_adr, FUNC(mct_adr_device::irq<3>)); // maybe? G364(config, m_cvc, 5_MHz_XTAL); // FIXME: guessed clock m_cvc->set_screen(m_screen); m_cvc->set_vram(m_vram); // WD16C552 (two 16550 + pc_lpt) NS16550(config, m_ace[0], 4233600); rs232_port_device &serial0(RS232_PORT(config, "serial0", default_rs232_devices, nullptr)); m_ace[0]->out_dtr_callback().set(serial0, FUNC(rs232_port_device::write_dtr)); m_ace[0]->out_rts_callback().set(serial0, FUNC(rs232_port_device::write_rts)); m_ace[0]->out_tx_callback().set(serial0, FUNC(rs232_port_device::write_txd)); m_ace[0]->out_int_callback().set(m_mct_adr, FUNC(mct_adr_device::irq<8>)); serial0.cts_handler().set(m_ace[0], FUNC(ns16550_device::cts_w)); serial0.dcd_handler().set(m_ace[0], FUNC(ns16550_device::dcd_w)); serial0.dsr_handler().set(m_ace[0], FUNC(ns16550_device::dsr_w)); serial0.ri_handler().set(m_ace[0], FUNC(ns16550_device::ri_w)); serial0.rxd_handler().set(m_ace[0], FUNC(ns16550_device::rx_w)); NS16550(config, m_ace[1], 8_MHz_XTAL); rs232_port_device &serial1(RS232_PORT(config, "serial1", default_rs232_devices, nullptr)); m_ace[1]->out_dtr_callback().set(serial1, FUNC(rs232_port_device::write_dtr)); m_ace[1]->out_rts_callback().set(serial1, FUNC(rs232_port_device::write_rts)); m_ace[1]->out_tx_callback().set(serial1, FUNC(rs232_port_device::write_txd)); m_ace[1]->out_int_callback().set(m_mct_adr, FUNC(mct_adr_device::irq<9>)); serial1.cts_handler().set(m_ace[1], FUNC(ns16550_device::cts_w)); serial1.dcd_handler().set(m_ace[1], FUNC(ns16550_device::dcd_w)); serial1.dsr_handler().set(m_ace[1], FUNC(ns16550_device::dsr_w)); serial1.ri_handler().set(m_ace[1], FUNC(ns16550_device::ri_w)); serial1.rxd_handler().set(m_ace[1], FUNC(ns16550_device::rx_w)); PC_LPT(config, m_lpt, 0); m_lpt->irq_handler().set(m_mct_adr, FUNC(mct_adr_device::irq<0>)); // TODO: sound, interrupt 2, drq 2(l) & 3(r) // buzzer SPEAKER(config, "mono").front_center(); SPEAKER_SOUND(config, m_buzzer); m_buzzer->add_route(ALL_OUTPUTS, "mono", 0.50); DP83932C(config, m_net, 20_MHz_XTAL); m_net->out_int_cb().set(m_mct_adr, FUNC(mct_adr_device::irq<4>)); m_net->set_bus(m_mct_adr, 1); I82357(config, m_isp, 14.318181_MHz_XTAL); m_isp->out_rtc_cb().set(m_rtc, FUNC(mc146818_device::write)); m_isp->out_int_cb().set_inputline(m_cpu, INPUT_LINE_IRQ2); m_isp->out_nmi_cb().set_inputline(m_cpu, INPUT_LINE_IRQ3); m_isp->out_spkr_cb().set(m_buzzer, FUNC(speaker_sound_device::level_w)); // TODO: 4 EISA slots config.set_default_layout(layout_jazz); // software list SOFTWARE_LIST(config, m_softlist).set_original("jazz"); } void jazz_state::led_w(u8 data) { // 7-segment diagnostic led static u8 const patterns[16] = { // test output 0x3f, // mct-adr 0 0x06, // network 1 0x5b, // scsi 2 0x4f, // floppy 3 0x66, // isp/rtc 4 0x6d, // keyboard 5 0x7d, // serial 6 0x07, // nvram 7 0x7f, // 8? 0x6f, // video 9 0x77, // memory A 0x40, // - 0x39, // flash C 0x00, // (blank) 0x79, // cpu E 0x71, // F? }; m_led = patterns[data & 0xf] | (BIT(data, 4) ? 0x80 : 0); } void jazz_state::mmr4000be(machine_config &config) { jazz(config); m_cpu->set_config(r4000_device::CONFIG_BE, r4000_device::CONFIG_BE); } void jazz_state::mmr4000le(machine_config &config) { jazz(config); m_cpu->set_config(0, r4000_device::CONFIG_BE); } ROM_START(mmr4000be) ROM_REGION32_LE(0x40000, "flash", 0) ROM_SYSTEM_BIOS(0, "riscos", "R4000 RISC/os PROM") ROMX_LOAD("riscos.bin", 0x00000, 0x40000, CRC(cea6bc8f) SHA1(3e47b4ad5d1a0c7aac649e6aef3df1bf86fc938b), ROM_BIOS(0)) ROM_REGION32_LE(0x800000, "graphics", 0) ROM_LOAD64_BYTE("mips_g364.bin", 0x000000, 0x020000, CRC(be6a726e) SHA1(225c198f6a7f8445dac3de052ecceecbb5be6bc7) BAD_DUMP) ROM_END ROM_START(mmr4000le) ROM_REGION32_LE(0x40000, "flash", 0) ROM_SYSTEM_BIOS(0, "ntprom", "R4000 Windows NT PROM") ROMX_LOAD("ntprom.bin", 0x00000, 0x40000, CRC(d91018d7) SHA1(316de17820192c89b8ee6d9936ab8364a739ca53), ROM_BIOS(0)) ROM_REGION32_LE(0x800000, "graphics", 0) // Jazz G300 (8.125MHz video clock, Bt431) //ROM_LOAD64_BYTE("jazz_g300.bin", 0x00, 0x40, CRC(258eb00a) SHA1(6e3fd0272957524de82e7042d6e36aca492c4d26) BAD_DUMP) // Jazz G364 (8.125MHz video clock) //ROM_LOAD64_BYTE("jazz_g364.bin", 0x000000, 0x020000, CRC(495fb417) SHA1(c341f3d498822ec1ee07a70076d7bbbf7aa60cb5) BAD_DUMP) // Jazz VXL (aka Jaguar, part number 09-00184, Bt484 or Bt485) //ROM_LOAD64_BYTE("jazz_vxl.bin", 0x000000, 0x010000, CRC(8edf1a62) SHA1(7750833eac0708ee79f01f36523554d29a094692) BAD_DUMP) // MIPS G364 (5MHz video clock, part number 09-00176) ROM_LOAD64_BYTE("mips_g364.bin", 0x000000, 0x020000, CRC(be6a726e) SHA1(225c198f6a7f8445dac3de052ecceecbb5be6bc7) BAD_DUMP) ROM_END /* YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS */ COMP(1992, mmr4000be, 0, 0, mmr4000be, 0, jazz_state, init_common, "MIPS", "Magnum R4000 (be)", MACHINE_NO_SOUND) COMP(1992, mmr4000le, 0, 0, mmr4000le, 0, jazz_state, init_common, "MIPS", "Magnum R4000 (le)", MACHINE_NO_SOUND)