diff options
Diffstat (limited to 'src/mame/skeleton/cdc721.cpp')
-rw-r--r-- | src/mame/skeleton/cdc721.cpp | 410 |
1 files changed, 410 insertions, 0 deletions
diff --git a/src/mame/skeleton/cdc721.cpp b/src/mame/skeleton/cdc721.cpp new file mode 100644 index 00000000000..bab98c093c9 --- /dev/null +++ b/src/mame/skeleton/cdc721.cpp @@ -0,0 +1,410 @@ +// license:BSD-3-Clause +// copyright-holders:AJR +/************************************************************************************************************ + +Control Data Corporation CDC 721 Terminal (Viking) + +2013-08-13 Skeleton + + +*************************************************************************************************************/ + +#include "emu.h" +#include "bus/rs232/rs232.h" +#include "cpu/z80/z80.h" +#include "machine/i8255.h" +#include "machine/input_merger.h" +#include "machine/ins8250.h" +#include "machine/nvram.h" +#include "machine/output_latch.h" +#include "machine/z80ctc.h" +#include "video/tms9927.h" +#include "emupal.h" +#include "screen.h" + + +namespace { + +class cdc721_state : public driver_device +{ +public: + cdc721_state(const machine_config &mconfig, device_type type, const char *tag) + : driver_device(mconfig, type, tag) + , m_maincpu(*this, "maincpu") + , m_block0(*this, "block0") + , m_block4(*this, "block4") + , m_block8(*this, "block8") + , m_blockc(*this, "blockc") + , m_crtc(*this, "crtc") + , m_rom_chargen(*this, "chargen") + , m_ram_chargen(*this, "chargen") + , m_videoram(*this, "videoram") + , m_nvram(*this, "nvram") + { } + + void cdc721(machine_config &config); + +protected: + virtual void machine_start() override ATTR_COLD; + virtual void machine_reset() override ATTR_COLD; + +private: + uint32_t screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect); + void cdc721_palette(palette_device &palette) const; + void interrupt_mask_w(u8 data); + void misc_w(u8 data); + void block_select_w(u8 data); + void nvram_w(offs_t offset, u8 data); + + template<int Line> void int_w(int state); + TIMER_CALLBACK_MEMBER(update_interrupts); + IRQ_CALLBACK_MEMBER(restart_cb); + + template<int Bit> void foreign_char_bank_w(int state); + + void io_map(address_map &map) ATTR_COLD; + void mem_map(address_map &map) ATTR_COLD; + + u8 m_flashcnt = 0; + u8 m_foreign_char_bank = 0; + + u8 m_pending_interrupts = 0; + u8 m_active_interrupts = 0; + u8 m_interrupt_mask = 0; + + required_device<cpu_device> m_maincpu; + memory_view m_block0, m_block4, m_block8, m_blockc; + required_device<crt5037_device> m_crtc; + required_region_ptr<u8> m_rom_chargen; + required_shared_ptr<u8> m_ram_chargen; + required_shared_ptr<u8> m_videoram; + required_shared_ptr<u8> m_nvram; +}; + +void cdc721_state::interrupt_mask_w(u8 data) +{ + m_interrupt_mask = data ^ 0xff; + machine().scheduler().synchronize(timer_expired_delegate(FUNC(cdc721_state::update_interrupts), this)); +} + +template <int Line> +void cdc721_state::int_w(int state) +{ + if (BIT(m_pending_interrupts, Line) == state) + return; + + if (state) + m_pending_interrupts |= 0x01 << Line; + else + m_pending_interrupts &= ~(0x01 << Line); + + machine().scheduler().synchronize(timer_expired_delegate(FUNC(cdc721_state::update_interrupts), this)); +} + +TIMER_CALLBACK_MEMBER(cdc721_state::update_interrupts) +{ + m_active_interrupts = m_pending_interrupts & m_interrupt_mask; + m_maincpu->set_input_line(INPUT_LINE_IRQ0, m_active_interrupts != 0 ? ASSERT_LINE : CLEAR_LINE); +} + +IRQ_CALLBACK_MEMBER(cdc721_state::restart_cb) +{ + // IM 2 vector is produced through a SN74LS148N priority encoder plus some buffers and a latch + // The CTC vector is not even fetched + u8 vector = 0x00; + u8 active = m_active_interrupts; + while (vector < 0x0e && !BIT(active, 0)) + { + active >>= 1; + vector += 0x02; + } + return vector; +} + +void cdc721_state::misc_w(u8 data) +{ + // 7: Stop Refresh Operation + // 6: Enable RAM Char Gen + // 5: Enable Block Cursor + // 4: Reverse Video + // 3: 132/80 + // 2: Enable Blink + // 1: Enable Blinking Cursor + // 0: Alarm + + logerror("%s: %d-column display selected\n", machine().describe_context(), BIT(data, 3) ? 132 : 80); +} + +void cdc721_state::block_select_w(u8 data) +{ + logerror("%s: Bank select = %02X\n", machine().describe_context(), data); + m_block0.select(BIT(data, 0, 2)); + m_block4.select(BIT(data, 2, 2)); + m_block8.select(BIT(data, 4, 2)); + m_blockc.select(BIT(data, 6, 2)); +} + +void cdc721_state::nvram_w(offs_t offset, u8 data) +{ + m_nvram[offset] = data & 0x0f; +} + +template<int Bit> +void cdc721_state::foreign_char_bank_w(int state) +{ + if (state) + m_foreign_char_bank |= 1 << Bit; + else + m_foreign_char_bank &= ~(1 << Bit); +} + +void cdc721_state::mem_map(address_map &map) +{ + map(0x0000, 0x3fff).view(m_block0); + m_block0[0](0x0000, 0x3fff).rom().region("resident", 0); + m_block0[1](0x0000, 0x3fff).unmaprw(); + m_block0[2](0x0000, 0x3fff).ram(); + m_block0[3](0x0000, 0x3fff).unmaprw(); + map(0x4000, 0x7fff).view(m_block4); + m_block4[0](0x4000, 0x40ff).mirror(0x2700).ram().share("nvram").w(FUNC(cdc721_state::nvram_w)); + m_block4[0](0x4800, 0x4bff).mirror(0x2400).ram().share("chargen"); // 2x P2114AL-2 + m_block4[1](0x4000, 0x7fff).unmaprw(); + m_block4[2](0x4000, 0x7fff).rom().region("16krom", 0); + m_block4[3](0x4000, 0x7fff).ram(); + map(0x8000, 0xbfff).view(m_block8); + m_block8[0](0x8000, 0xbfff).rom().region("rompack", 0); + m_block8[1](0x8000, 0xbfff).ram(); + m_block8[2](0x8000, 0xbfff).unmaprw(); + m_block8[3](0x8000, 0xbfff).unmaprw(); + map(0xc000, 0xffff).view(m_blockc); + m_blockc[0](0xc000, 0xdfff).ram(); + m_blockc[0](0xe000, 0xffff).ram().share("videoram"); + m_blockc[1](0xc000, 0xc0ff).mirror(0x2700).ram().share("nvram").w(FUNC(cdc721_state::nvram_w)); + m_blockc[1](0xc800, 0xcbff).mirror(0x2400).ram().share("chargen"); + m_blockc[2](0xc000, 0xffff).unmaprw(); + m_blockc[3](0xc000, 0xffff).unmaprw(); +} + +void cdc721_state::io_map(address_map &map) +{ + map.global_mask(0xff); + map(0x00, 0x03).rw("ctc", FUNC(z80ctc_device::read), FUNC(z80ctc_device::write)); + map(0x10, 0x1f).rw("crtc", FUNC(crt5037_device::read), FUNC(crt5037_device::write)); + map(0x20, 0x27).rw("kbduart", FUNC(ins8250_device::ins8250_r), FUNC(ins8250_device::ins8250_w)); + map(0x30, 0x33).rw("ppi", FUNC(i8255_device::read), FUNC(i8255_device::write)); + map(0x40, 0x47).rw("comuart", FUNC(ins8250_device::ins8250_r), FUNC(ins8250_device::ins8250_w)); + map(0x50, 0x50).w("ledlatch", FUNC(output_latch_device::write)); + map(0x70, 0x70).w(FUNC(cdc721_state::block_select_w)); + map(0x80, 0x87).rw("pauart", FUNC(ins8250_device::ins8250_r), FUNC(ins8250_device::ins8250_w)); + map(0x90, 0x97).rw("pbuart", FUNC(ins8250_device::ins8250_r), FUNC(ins8250_device::ins8250_w)); +} + +static INPUT_PORTS_START( cdc721 ) +INPUT_PORTS_END + +void cdc721_state::machine_reset() +{ + m_block0.select(0); + m_block4.select(0); + m_block8.select(0); + m_blockc.select(0); +} + +void cdc721_state::machine_start() +{ + m_pending_interrupts = 0; + m_active_interrupts = 0; + m_interrupt_mask = 0; + m_foreign_char_bank = 0; + + save_item(NAME(m_pending_interrupts)); + save_item(NAME(m_active_interrupts)); + save_item(NAME(m_interrupt_mask)); + save_item(NAME(m_foreign_char_bank)); +} + +/* F4 Character Displayer */ +static const gfx_layout cdc721_charlayout = +{ + 8, 16, /* 8 x 16 characters */ + 256, /* 256 characters */ + 1, /* 1 bits per pixel */ + { 0 }, /* no bitplanes */ + /* x offsets */ + { 7, 6, 5, 4, 3, 2, 1, 0 }, + /* y offsets */ + { 0*8, 0x100*8, 0x200*8, 0x300*8, 0x400*8, 0x500*8, 0x600*8, 0x700*8, + 0x800*8, 0x900*8, 0xa00*8, 0xb00*8, 0xc00*8, 0xd00*8, 0xe00*8, 0xf00*8 }, + 8 /* every char takes 16 x 1 bytes */ +}; + +static GFXDECODE_START( gfx_cdc721 ) + GFXDECODE_ENTRY( "chargen", 0x0000, cdc721_charlayout, 0, 1 ) +GFXDECODE_END + +void cdc721_state::cdc721_palette(palette_device &palette) const +{ + palette.set_pen_color(0, 0, 0, 0 ); // Black + palette.set_pen_color(1, 0, 255, 0 ); // Full + palette.set_pen_color(2, 0, 128, 0 ); // Dimmed +} + +uint32_t cdc721_state::screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect) +{ + uint16_t sy=0; + m_flashcnt++; + + for (uint8_t y = 0; y < 30; y++) + { + uint16_t ma = m_videoram[y * 2] | m_videoram[y * 2 + 1] << 8; + + for (uint8_t ra = 0; ra < 15; ra++) + { + uint16_t *p = &bitmap.pix(sy++); + + for (uint16_t x = 0; x < 160; x+=2) + { + uint8_t pen = 1; + uint8_t chr = m_videoram[(x + ma) & 0x1fff]; + uint8_t attr = m_videoram[(x + ma + 1) & 0x1fff]; + uint8_t gfx = m_rom_chargen[chr | (ra << 8) ]; + if (BIT(attr, 0)) // blank + pen = 0; + if (BIT(attr, 1) && (ra == 14)) // underline + gfx = 0xff; + if (BIT(attr, 4)) // dim + pen = 2; + if (BIT(attr, 2)) // rv + gfx ^= 0xff; + if (BIT(attr, 3) && BIT(m_flashcnt, 6)) // blink + gfx = 0; + + /* Display a scanline of a character */ + *p++ = BIT(gfx, 0) ? pen : 0; + *p++ = BIT(gfx, 1) ? pen : 0; + *p++ = BIT(gfx, 2) ? pen : 0; + *p++ = BIT(gfx, 3) ? pen : 0; + *p++ = BIT(gfx, 4) ? pen : 0; + *p++ = BIT(gfx, 5) ? pen : 0; + *p++ = BIT(gfx, 6) ? pen : 0; + *p++ = BIT(gfx, 7) ? pen : 0; + } + } + } + return 0; +} + +void cdc721_state::cdc721(machine_config &config) +{ + // basic machine hardware + Z80(config, m_maincpu, 6_MHz_XTAL); // Zilog Z8400B (Z80B) + m_maincpu->set_addrmap(AS_PROGRAM, &cdc721_state::mem_map); + m_maincpu->set_addrmap(AS_IO, &cdc721_state::io_map); + m_maincpu->set_irq_acknowledge_callback(FUNC(cdc721_state::restart_cb)); + + NVRAM(config, "nvram", nvram_device::DEFAULT_ALL_0); // MCM51L01C45 (256x4) + battery + + /* video hardware */ + screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER)); + screen.set_raw(12.936_MHz_XTAL, 800, 0, 640, 539, 0, 450); + screen.set_screen_update(FUNC(cdc721_state::screen_update)); + screen.set_palette("palette"); + PALETTE(config, "palette", FUNC(cdc721_state::cdc721_palette), 3); + GFXDECODE(config, "gfxdecode", "palette", gfx_cdc721); + + CRT5037(config, m_crtc, 12.936_MHz_XTAL / 8).set_char_width(8); + m_crtc->set_screen("screen"); + + z80ctc_device& ctc(Z80CTC(config, "ctc", 6_MHz_XTAL)); // Zilog Z8430B (M1 pulled up) + ctc.intr_callback().set(FUNC(cdc721_state::int_w<6>)); + ctc.zc_callback<1>().set("ctc", FUNC(z80ctc_device::trg2)); + //ctc.zc_callback<2>().set("comuart", FUNC(ins8250_device::rclk_w)); + + i8255_device &ppi(I8255A(config, "ppi")); + ppi.out_pb_callback().set(FUNC(cdc721_state::interrupt_mask_w)); + ppi.out_pc_callback().set(FUNC(cdc721_state::misc_w)); + + output_latch_device &ledlatch(OUTPUT_LATCH(config, "ledlatch")); + ledlatch.bit_handler<0>().set_output("error").invert(); + ledlatch.bit_handler<1>().set_output("alert").invert(); + ledlatch.bit_handler<2>().set_output("lock").invert(); + ledlatch.bit_handler<3>().set_output("message").invert(); + ledlatch.bit_handler<4>().set_output("prog1").invert(); + ledlatch.bit_handler<5>().set_output("prog2").invert(); + ledlatch.bit_handler<6>().set_output("prog3").invert(); + ledlatch.bit_handler<7>().set_output("dsr").invert(); + + ins8250_device &comuart(INS8250(config, "comuart", 1.8432_MHz_XTAL)); + comuart.out_int_callback().set(FUNC(cdc721_state::int_w<0>)); + comuart.out_tx_callback().set("comm", FUNC(rs232_port_device::write_txd)); + comuart.out_dtr_callback().set("comm", FUNC(rs232_port_device::write_dtr)); + comuart.out_rts_callback().set("comm", FUNC(rs232_port_device::write_rts)); + + rs232_port_device &comm(RS232_PORT(config, "comm", default_rs232_devices, nullptr)); + comm.rxd_handler().set("comuart", FUNC(ins8250_device::rx_w)); + comm.dsr_handler().set("comuart", FUNC(ins8250_device::dsr_w)); + comm.dcd_handler().set("comuart", FUNC(ins8250_device::dcd_w)); + comm.cts_handler().set("comuart", FUNC(ins8250_device::cts_w)); + comm.ri_handler().set("comuart", FUNC(ins8250_device::ri_w)); + + ins8250_device &kbduart(INS8250(config, "kbduart", 1.8432_MHz_XTAL)); + kbduart.out_int_callback().set(FUNC(cdc721_state::int_w<5>)); + kbduart.out_dtr_callback().set(FUNC(cdc721_state::foreign_char_bank_w<2>)); + //kbduart.out_rts_callback().set(FUNC(cdc721_state::alarm_high_low_w)); + kbduart.out_out1_callback().set(FUNC(cdc721_state::foreign_char_bank_w<1>)); + kbduart.out_out2_callback().set(FUNC(cdc721_state::foreign_char_bank_w<0>)); + + ins8250_device &pauart(INS8250(config, "pauart", 1.8432_MHz_XTAL)); + pauart.out_int_callback().set("int2", FUNC(input_merger_device::in_w<1>)); + pauart.out_tx_callback().set("cha", FUNC(rs232_port_device::write_txd)); + pauart.out_dtr_callback().set("cha", FUNC(rs232_port_device::write_dtr)); + pauart.out_rts_callback().set("cha", FUNC(rs232_port_device::write_rts)); + + rs232_port_device &cha(RS232_PORT(config, "cha", default_rs232_devices, nullptr)); + cha.rxd_handler().set("pauart", FUNC(ins8250_device::rx_w)); + cha.dsr_handler().set("pauart", FUNC(ins8250_device::dsr_w)); + cha.dcd_handler().set("pauart", FUNC(ins8250_device::dcd_w)); + cha.cts_handler().set("pauart", FUNC(ins8250_device::cts_w)); + cha.ri_handler().set("pauart", FUNC(ins8250_device::ri_w)); + + ins8250_device &pbuart(INS8250(config, "pbuart", 1.8432_MHz_XTAL)); + pbuart.out_int_callback().set("int2", FUNC(input_merger_device::in_w<0>)); + pbuart.out_tx_callback().set("chb", FUNC(rs232_port_device::write_txd)); + pbuart.out_dtr_callback().set("chb", FUNC(rs232_port_device::write_dtr)); + pbuart.out_rts_callback().set("chb", FUNC(rs232_port_device::write_rts)); + + rs232_port_device &chb(RS232_PORT(config, "chb", default_rs232_devices, nullptr)); + chb.rxd_handler().set("pbuart", FUNC(ins8250_device::rx_w)); + chb.dsr_handler().set("pbuart", FUNC(ins8250_device::dsr_w)); + chb.dcd_handler().set("pbuart", FUNC(ins8250_device::dcd_w)); + chb.cts_handler().set("pbuart", FUNC(ins8250_device::cts_w)); + chb.ri_handler().set("pbuart", FUNC(ins8250_device::ri_w)); + + INPUT_MERGER_ANY_HIGH(config, "int2").output_handler().set(FUNC(cdc721_state::int_w<2>)); // 74S05 (open collector) +} + +ROM_START( cdc721 ) + ROM_REGION( 0x4000, "resident", 0 ) + ROM_LOAD( "66315359", 0x0000, 0x2000, CRC(20ff3eb4) SHA1(5f15cb14893d75a46dc66d3042356bb054d632c2) ) + ROM_LOAD( "66315361", 0x2000, 0x2000, CRC(21d59d09) SHA1(9c087537d68c600ddf1eb9b009cf458231c279f4) ) + + ROM_REGION( 0x4000, "16krom", 0 ) + ROM_LOAD( "66315360", 0x0000, 0x1000, CRC(feaa0fc5) SHA1(f06196553a1f10c07b2f7e495823daf7ea26edee) ) + //ROM_FILL(0x0157,1,0xe0) + + ROM_REGION( 0x4000, "rompack", ROMREGION_ERASE00 ) + + ROM_REGION( 0x2000, "chargen", 0 ) + ROM_LOAD( "66315039", 0x0000, 0x1000, CRC(5c9aa968) SHA1(3ec7c5f25562579e6ed3fda7562428ff5e6b9550) ) + ROM_LOAD( "66307828", 0x1000, 0x1000, CRC(ac97136f) SHA1(0d280e1aa4b9502bd390d260f83af19bf24905cd) ) // foreign character ROM + + // Graphics Firmware pack + ROM_REGION( 0x4000, "gfxfw", 0 ) // load at 0x8000 + ROM_LOAD( "66315369.bin", 0x0000, 0x2000, CRC(224d3368) SHA1(e335ef6cd56d77194235f5a2a7cf2af9ebf42342) ) + ROM_LOAD( "66315370.bin", 0x2000, 0x2000, CRC(2543bf32) SHA1(1ac73a0e475d9fd86fba054e1a7a443d5bad1987) ) +ROM_END + +} // anonymous namespace + + +COMP( 1981, cdc721, 0, 0, cdc721, cdc721, cdc721_state, empty_init, "Control Data Corporation", "721 Display Terminal", MACHINE_NOT_WORKING | MACHINE_NO_SOUND_HW ) |