diff options
Diffstat (limited to 'src/mame/drivers/poly88.cpp')
-rw-r--r-- | src/mame/drivers/poly88.cpp | 159 |
1 files changed, 68 insertions, 91 deletions
diff --git a/src/mame/drivers/poly88.cpp b/src/mame/drivers/poly88.cpp index c4eed823ae1..d4f80d7fb15 100644 --- a/src/mame/drivers/poly88.cpp +++ b/src/mame/drivers/poly88.cpp @@ -10,9 +10,7 @@ Poly-88 driver by Miodrag Milanovic All input must be UPPERcase. ToDo: -- POLY88 - Polyphase format not working because 8251 device doesn't support sync. -- POLY8813 - Schematic shows a 8251 on the main board. -- POLY8813 - Schematic of FDC shows a mc6852 and i8255, no dedicated fdc chip. +- Polyphase format not working because 8251 device doesn't support sync. Poly-8813 is a disk-based computer with 3 mini-floppy drives. @@ -45,119 +43,87 @@ at least some models of the Poly-88 are known to have used.) #include "emu.h" #include "includes/poly88.h" +#include "bus/s100/polyfdc.h" +#include "bus/s100/polyvti.h" +#include "bus/s100/seals8k.h" + #include "cpu/i8085/i8085.h" -//#include "bus/s100/s100.h" #include "imagedev/cassette.h" -#include "machine/keyboard.h" -#include "emupal.h" -#include "screen.h" #include "speaker.h" -void poly88_state::poly88_mem(address_map &map) +void poly88_state::s100_mem(address_map &map) { - map.unmap_value_high(); - map(0x0000, 0x03ff).rom(); // Monitor ROM - map(0x0400, 0x0bff).rom(); // ROM Expansion - map(0x0c00, 0x0dff).ram().mirror(0x200); // System RAM (mirrored) - map(0x1000, 0x1fff).rom(); // System Expansion area - map(0x2000, 0x3fff).ram(); // Minimal user RAM area - map(0x4000, 0xf7ff).ram(); - map(0xf800, 0xfbff).ram().share("video_ram"); // Video RAM + map(0x0000, 0xffff).rw(FUNC(poly88_state::mem_r), FUNC(poly88_state::mem_w)); } -void poly88_state::poly88_io(address_map &map) +void poly88_state::s100_io(address_map &map) { - map.unmap_value_high(); - map.global_mask(0xff); - map(0x00, 0x01).rw(m_usart, FUNC(i8251_device::read), FUNC(i8251_device::write)); - map(0x04, 0x04).w(FUNC(poly88_state::baud_rate_w)); - map(0x08, 0x08).w(FUNC(poly88_state::intr_w)); - map(0xf8, 0xf8).r(FUNC(poly88_state::keyboard_r)); + map(0x00, 0xff).rw(FUNC(poly88_state::in_r), FUNC(poly88_state::out_w)); } -void poly88_state::poly8813_mem(address_map &map) +void poly88_state::poly88_io(address_map &map) { map.unmap_value_high(); - map(0x0000, 0x03ff).rom(); // Monitor ROM - map(0x0400, 0x0bff).rom(); // Disk System ROM - map(0x0c00, 0x0fff).ram(); // System RAM - map(0x1800, 0x1bff).ram().share("video_ram"); // Video RAM - map(0x2000, 0xffff).ram(); // RAM + map(0x00, 0x01).mirror(2).rw(m_usart, FUNC(i8251_device::read), FUNC(i8251_device::write)); + map(0x04, 0x04).mirror(3).w(FUNC(poly88_state::baud_rate_w)); + map(0x08, 0x08).mirror(3).w(FUNC(poly88_state::intr_w)); } void poly88_state::poly8813_io(address_map &map) { map.unmap_value_high(); - map.global_mask(0xff); - map(0x00, 0x01).rw(m_usart, FUNC(i8251_device::read), FUNC(i8251_device::write)); - map(0x04, 0x04).w(FUNC(poly88_state::baud_rate_w)); + map(0x00, 0x01).mirror(2).rw(m_usart, FUNC(i8251_device::read), FUNC(i8251_device::write)); + map(0x04, 0x04).mirror(3).w(FUNC(poly88_state::baud_rate_w)); map(0x08, 0x0b); //.r(ROM on for CPM).w(RTC reset); map(0x0c, 0x0f); //.r(ROM off for CPM).w(Single-step trigger); - map(0x18, 0x18).r(FUNC(poly88_state::keyboard_r)); - map(0x20, 0x2f);//single-density fdc } /* Input ports */ static INPUT_PORTS_START( poly88 ) PORT_START("CONFIG") - PORT_CONFNAME( 0x80, 0x00, "Tape Mode") - PORT_CONFSETTING( 0x00, "Byte (300 baud)") - PORT_CONFSETTING( 0x80, "Polyphase (2400 baud)") + PORT_CONFNAME(0x80, 0x00, "Tape Mode") + PORT_CONFSETTING( 0x00, "Byte (300 baud)") + PORT_CONFSETTING( 0x80, "Polyphase (2400 baud)") + + PORT_START("ONBOARD") + PORT_CONFNAME(7, 0, "Onboard Addresses") + PORT_CONFSETTING(0, "0000-0FFF (M), 00-0F (I/O)") // jumper J + PORT_CONFSETTING(4, "8000-8FFF (M), 80-8F (I/O)") // jumper S + PORT_CONFSETTING(7, "E000-EFFF (M), E0-EF (I/O)") // jumper T INPUT_PORTS_END -void poly88_state::kbd_put(u8 data) +static void poly88_s100_devices(device_slot_interface &device) { - if (data) - { - if (data==8) - data=127; // fix backspace - m_last_code = data; - m_int_vector = 0xef; - m_maincpu->set_input_line(0, HOLD_LINE); - } + device.option_add("vti", S100_POLY_VTI); + device.option_add("8ksc", S100_8K_SC); + device.option_add("8kscbb", S100_8K_SC_BB); + device.option_add("polyfdc", S100_POLY_FDC); } +DEVICE_INPUT_DEFAULTS_START(poly88_vti_1800) + DEVICE_INPUT_DEFAULTS("ADDRESS", 0x3f, 0x06) // 1800-1FFF +DEVICE_INPUT_DEFAULTS_END -/* F4 Character Displayer */ -static const gfx_layout poly88_charlayout = -{ - 8, 16, /* text = 7 x 9 */ - 128, /* 128 characters */ - 1, /* 1 bits per pixel */ - { 0 }, /* no bitplanes */ - /* x offsets */ - { 0, 1, 2, 3, 4, 5, 6, 7 }, - /* y offsets */ - { 0*8, 1*8, 2*8, 3*8, 4*8, 5*8, 6*8, 7*8, 8*8, 9*8, 10*8, 11*8, 12*8, 13*8, 14*8, 15*8 }, - 8*16 /* every char takes 16 bytes */ -}; - -static GFXDECODE_START( gfx_poly88 ) - GFXDECODE_ENTRY( "chargen", 0x0000, poly88_charlayout, 0, 1 ) -GFXDECODE_END +DEVICE_INPUT_DEFAULTS_START(poly88_8ksc_2000) + DEVICE_INPUT_DEFAULTS("DSW", 0xff, 0xfd) // 2000-3FFF +DEVICE_INPUT_DEFAULTS_END void poly88_state::poly88(machine_config &config) { /* basic machine hardware */ I8080A(config, m_maincpu, 16.5888_MHz_XTAL / 9); // uses 8224 clock generator - m_maincpu->set_addrmap(AS_PROGRAM, &poly88_state::poly88_mem); - m_maincpu->set_addrmap(AS_IO, &poly88_state::poly88_io); - m_maincpu->set_vblank_int("screen", FUNC(poly88_state::poly88_interrupt)); + m_maincpu->set_addrmap(AS_PROGRAM, &poly88_state::s100_mem); + m_maincpu->set_addrmap(AS_IO, &poly88_state::s100_io); m_maincpu->set_irq_acknowledge_callback(FUNC(poly88_state::poly88_irq_callback)); - /* video hardware */ - screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER)); - screen.set_refresh_hz(60); - screen.set_vblank_time(ATTOSECONDS_IN_USEC(2500)); /* not accurate */ - screen.set_size(64*10, 16*15); - screen.set_visarea(0, 64*10-1, 0, 16*15-1); - screen.set_screen_update(FUNC(poly88_state::screen_update_poly88)); - screen.set_palette("palette"); + ADDRESS_MAP_BANK(config, m_onboard_io); + m_onboard_io->set_addrmap(0, &poly88_state::poly88_io); + m_onboard_io->set_data_width(8); + m_onboard_io->set_addr_width(4); - GFXDECODE(config, "gfxdecode", "palette", gfx_poly88); - PALETTE(config, "palette", palette_device::MONOCHROME); + TIMER(config, "rtc").configure_periodic(FUNC(poly88_state::rtc_tick), attotime::from_hz(60)); // from AC power /* audio hardware */ SPEAKER(config, "mono").front_center(); @@ -179,45 +145,56 @@ void poly88_state::poly88(machine_config &config) MM5307AA(config, m_brg, 16.5888_MHz_XTAL / 18); m_brg->output_cb().set(FUNC(poly88_state::cassette_clock_w)); - generic_keyboard_device &keyboard(GENERIC_KEYBOARD(config, "keyboard", 0)); - keyboard.set_keyboard_callback(FUNC(poly88_state::kbd_put)); - /* snapshot */ SNAPSHOT(config, "snapshot", "img", attotime::from_seconds(2)).set_load_callback(FUNC(poly88_state::snapshot_cb), this); + + S100_BUS(config, m_s100, 16.5888_MHz_XTAL / 9); + m_s100->vi2().set(FUNC(poly88_state::vi2_w)); + m_s100->vi5().set(FUNC(poly88_state::vi5_w)); + + S100_SLOT(config, m_s100_slot[0], poly88_s100_devices, "vti"); + S100_SLOT(config, m_s100_slot[1], poly88_s100_devices, nullptr); + S100_SLOT(config, m_s100_slot[2], poly88_s100_devices, nullptr); + S100_SLOT(config, m_s100_slot[3], poly88_s100_devices, nullptr); } void poly88_state::poly8813(machine_config &config) { poly88(config); - m_maincpu->set_addrmap(AS_PROGRAM, &poly88_state::poly8813_mem); - m_maincpu->set_addrmap(AS_IO, &poly88_state::poly8813_io); + m_onboard_io->set_addrmap(0, &poly88_state::poly8813_io); + + m_s100_slot[0]->set_option_device_input_defaults("vti", DEVICE_INPUT_DEFAULTS_NAME(poly88_vti_1800)); + m_s100_slot[1]->set_default_option("8ksc"); + m_s100_slot[1]->set_option_device_input_defaults("8ksc", DEVICE_INPUT_DEFAULTS_NAME(poly88_8ksc_2000)); + m_s100_slot[2]->set_default_option("polyfdc"); + + // Poly-8813 backplane has 10 slots, but CPU uses one + S100_SLOT(config, m_s100_slot[4], poly88_s100_devices, nullptr); + S100_SLOT(config, m_s100_slot[5], poly88_s100_devices, nullptr); + S100_SLOT(config, m_s100_slot[6], poly88_s100_devices, nullptr); + S100_SLOT(config, m_s100_slot[7], poly88_s100_devices, nullptr); + S100_SLOT(config, m_s100_slot[8], poly88_s100_devices, nullptr); } /* ROM definition */ ROM_START( poly88 ) - ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF ) + ROM_REGION( 0xc00, "maincpu", ROMREGION_ERASEFF ) ROM_LOAD( "polymon4.bin", 0x0000, 0x0400, CRC(0baa1a4c) SHA1(c6cf4b89bdde200813d34aab08150d5f3025ce33)) ROM_LOAD( "tbasic_1.rom", 0x0400, 0x0400, CRC(ec22740e) SHA1(bc606c58ef5f046200bdf402eda66ec070464306)) ROM_LOAD( "tbasic_2.rom", 0x0800, 0x0400, CRC(f2619232) SHA1(eb6fb0356d2fb153111cfddf39eab10253cb4c53)) - - ROM_REGION( 0x800, "chargen", 0 ) - ROM_LOAD( "6571.bin", 0x0000, 0x0800, CRC(5a25144b) SHA1(7b9fee0c8ef2605b85d12b6d9fe8feb82418c63a) ) ROM_END ROM_START( poly8813 ) - ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF ) + ROM_REGION( 0xc00, "maincpu", ROMREGION_ERASEFF ) ROM_LOAD( "poly8813.27", 0x0000, 0x0400, CRC(0baa1a4c) SHA1(c6cf4b89bdde200813d34aab08150d5f3025ce33) ) ROM_LOAD( "poly8813.26", 0x0400, 0x0400, CRC(7011f3a3) SHA1(228eb54b9f62649b3b674e9f1bf21f2981e12c03) ) ROM_LOAD( "poly8813.25", 0x0800, 0x0400, CRC(9f7570e2) SHA1(767f2111b4eb856a077b1b4afe9209aca3866e52) ) //ROM_LOAD( "poly8813-1.bin", 0x0000, 0x0400, CRC(7fd980a0) SHA1(a71d5999deb4323a11db1c0ea0dcb1dacfaf47ef)) //ROM_LOAD( "poly8813-2.rom", 0x0400, 0x0400, CRC(1ad7c06c) SHA1(c96b8f03c184de58dbdcee18d297dbccf2d77176)) //ROM_LOAD( "poly8813-3.rom", 0x0800, 0x0400, CRC(3df57e5b) SHA1(5b0c4febfc7515fc07e63dcb21d0ab32bc6a2e46)) - - ROM_REGION( 0x800, "chargen", 0 ) - ROM_LOAD( "6571.bin", 0x0000, 0x0800, CRC(5a25144b) SHA1(7b9fee0c8ef2605b85d12b6d9fe8feb82418c63a) ) ROM_END /* Driver */ // YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS -COMP( 1976, poly88, 0, 0, poly88, poly88, poly88_state, init_poly88, "PolyMorphic Systems", "Poly-88", 0 ) -COMP( 1977, poly8813, poly88, 0, poly8813, poly88, poly88_state, init_poly88, "PolyMorphic Systems", "Poly-8813", MACHINE_NOT_WORKING ) +COMP( 1976, poly88, 0, 0, poly88, poly88, poly88_state, empty_init, "PolyMorphic Systems", "Poly-88", 0 ) +COMP( 1977, poly8813, poly88, 0, poly8813, poly88, poly88_state, empty_init, "PolyMorphic Systems", "Poly-8813", MACHINE_NOT_WORKING ) |