// license:BSD-3-Clause
// copyright-holders:Carl
#include "emu.h"
#include "cpu/i86/i86.h"
#include "cpu/mcs48/mcs48.h"
#include "machine/i8251.h"
#include "machine/input_merger.h"
#include "machine/pit8253.h"
#include "machine/pic8259.h"
#include "machine/upd765.h"
#include "machine/msm58321.h"
#include "machine/6840ptm.h"
#include "machine/z80sio.h"
#include "machine/pit8253.h"
#include "machine/am9517a.h"
#include "video/mc6845.h"
#include "screen.h"
#include "bus/rs232/rs232.h"
#include "bus/rs232/keyboard.h"
class duet16_state : public driver_device
{
public:
duet16_state(const machine_config &mconfig, device_type type, const char *tag) :
driver_device(mconfig, type, tag),
m_maincpu(*this, "maincpu"),
m_pic(*this, "pic"),
m_fdc(*this, "fdc"),
m_dmac(*this, "dmac"),
m_fd(*this, "fdc:%u", 0),
m_pal(*this, "palette"),
m_chrpal(*this, "chrpal"),
m_rtc(*this, "rtc"),
m_tmint(*this, "tmint"),
m_screen(*this, "screen"),
m_chrrom(*this, "char"),
m_cvram(*this, "cvram"),
m_gvram(*this, "gvram")
{ }
void duet16(machine_config &config);
protected:
void machine_reset() override;
private:
DECLARE_READ8_MEMBER(pic_r);
DECLARE_WRITE8_MEMBER(pic_w);
DECLARE_READ8_MEMBER(dma_mem_r);
DECLARE_WRITE8_MEMBER(dma_mem_w);
DECLARE_READ8_MEMBER(dmapg_r);
DECLARE_WRITE8_MEMBER(dmapg_w);
DECLARE_WRITE8_MEMBER(fdcctrl_w);
DECLARE_WRITE8_MEMBER(dispctrl_w);
DECLARE_WRITE8_MEMBER(pal_w);
DECLARE_WRITE_LINE_MEMBER(hrq_w);
DECLARE_READ8_MEMBER(rtc_r);
DECLARE_WRITE8_MEMBER(rtc_w);
DECLARE_READ8_MEMBER(rtc_stat_r);
DECLARE_WRITE8_MEMBER(rtc_addr_w);
DECLARE_READ16_MEMBER(sysstat_r);
DECLARE_WRITE_LINE_MEMBER(rtc_d0_w);
DECLARE_WRITE_LINE_MEMBER(rtc_d1_w);
DECLARE_WRITE_LINE_MEMBER(rtc_d2_w);
DECLARE_WRITE_LINE_MEMBER(rtc_d3_w);
DECLARE_WRITE_LINE_MEMBER(rtc_busy_w);
void rtc_irq_reset();
MC6845_UPDATE_ROW(crtc_update_row);
void duet16_io(address_map &map);
void duet16_mem(address_map &map);
required_device<cpu_device> m_maincpu;
required_device<pic8259_device> m_pic;
required_device<upd765a_device> m_fdc;
required_device<am9517a_device> m_dmac;
required_device_array<floppy_connector, 2> m_fd;
required_device<palette_device> m_pal;
required_device<palette_device> m_chrpal;
required_device<msm58321_device> m_rtc;
required_device<input_merger_device> m_tmint;
required_device<screen_device> m_screen;
required_memory_region m_chrrom;
required_shared_ptr<u16> m_cvram;
required_shared_ptr<u16> m_gvram;
u8 m_dmapg, m_dispctrl;
u8 m_rtc_d;
bool m_rtc_busy, m_rtc_irq;
};
void duet16_state::machine_reset()
{
m_rtc->cs1_w(ASSERT_LINE);
rtc_irq_reset();
}
READ8_MEMBER(duet16_state::pic_r)
{
return m_pic->read(space, offset ^ 1, mem_mask);
}
WRITE8_MEMBER(duet16_state::pic_w)
{
m_pic->write(space, offset ^ 1, data);
}
WRITE8_MEMBER(duet16_state::fdcctrl_w)
{
floppy_image_device *f = m_fd[BIT(data, 2) ? 1 : 0]->get_device();
m_fdc->set_floppy(f);
m_fd[0]->get_device()->mon_w(!BIT(data, 0));
m_fd[1]->get_device()->mon_w(!BIT(data, 0));
if(!BIT(data, 1))
m_fdc->soft_reset();
// TODO: bit 3 = LSPD
}
READ8_MEMBER(duet16_state::dma_mem_r)
{
return m_maincpu->space(AS_PROGRAM).read_byte((m_dmapg << 16) | offset);
}
WRITE8_MEMBER(duet16_state::dma_mem_w)
{
m_maincpu->space(AS_PROGRAM).write_byte((m_dmapg << 16) | offset, data);
}
READ8_MEMBER(duet16_state::dmapg_r)
{
return m_dmapg;
}
WRITE8_MEMBER(duet16_state::dmapg_w)
{
m_dmapg = data & 0xf;
}
WRITE_LINE_MEMBER(duet16_state::hrq_w)
{
m_maincpu->set_input_line(INPUT_LINE_HALT, state);
m_dmac->hack_w(state);
}
READ16_MEMBER(duet16_state::sysstat_r)
{
return 0xb484;
}
void duet16_state::duet16_mem(address_map &map)
{
map(0x00000, 0x8ffff).ram();
map(0xa8000, 0xbffff).ram().share("gvram");
map(0xc0000, 0xc0fff).ram().share("cvram");
map(0xf8000, 0xf801f).rw(this, FUNC(duet16_state::dmapg_r), FUNC(duet16_state::dmapg_w)).umask16(0x00ff);
map(0xf8000, 0xf801f).rw("dmac", FUNC(am9517a_device::read), FUNC(am9517a_device::write)).umask16(0xff00);
map(0xf8020, 0xf8023).rw(this, FUNC(duet16_state::pic_r), FUNC(duet16_state::pic_w)).umask16(0x00ff);
map(0xf8040, 0xf804f).rw("itm", FUNC(ptm6840_device::read), FUNC(ptm6840_device::write)).umask16(0x00ff);
map(0xf8060, 0xf8067).rw("bgpit", FUNC(pit8253_device::read), FUNC(pit8253_device::write)).umask16(0x00ff);
map(0xf8080, 0xf8087).rw("sio", FUNC(upd7201_new_device::ba_cd_r), FUNC(upd7201_new_device::ba_cd_w)).umask16(0x00ff);
map(0xf80a0, 0xf80a0).rw("kbusart", FUNC(i8251_device::data_r), FUNC(i8251_device::data_w));
map(0xf80a2, 0xf80a2).rw("kbusart", FUNC(i8251_device::status_r), FUNC(i8251_device::control_w));
map(0xf80c0, 0xf80c0).rw("crtc", FUNC(h46505_device::status_r), FUNC(h46505_device::address_w));
map(0xf80c2, 0xf80c2).rw("crtc", FUNC(h46505_device::register_r), FUNC(h46505_device::register_w));
map(0xf80e0, 0xf80e3).rw("i8741", FUNC(upi41_cpu_device::upi41_master_r), FUNC(upi41_cpu_device::upi41_master_w)).umask16(0x00ff);
map(0xf8100, 0xf8103).m("fdc", FUNC(upd765a_device::map)).umask16(0x00ff);
map(0xf8120, 0xf8120).rw(this, FUNC(duet16_state::rtc_r), FUNC(duet16_state::rtc_w));
map(0xf8160, 0xf819f).w(this, FUNC(duet16_state::pal_w));
map(0xf8200, 0xf8201).r(this, FUNC(duet16_state::sysstat_r));
map(0xf8220, 0xf8220).w(this, FUNC(duet16_state::fdcctrl_w));
map(0xf8260, 0xf8260).w(this, FUNC(duet16_state::rtc_addr_w));
map(0xf8280, 0xf8280).r(this, FUNC(duet16_state::rtc_stat_r));
map(0xf8280, 0xf8280).w(this, FUNC(duet16_state::dispctrl_w));
map(0xfe000, 0xfffff).rom().region("rom", 0);
}
void duet16_state::duet16_io(address_map &map)
{
}
WRITE8_MEMBER(duet16_state::pal_w)
{
int entry = (BIT(offset, 0) ? 2 : 0) | (BIT(offset, 5) ? 0 : 4);
m_pal->set_pen_color(entry, pal1bit(BIT(data, 1)), pal1bit(BIT(data, 2)), pal1bit(BIT(data, 0)));
m_pal->set_pen_color(entry + 1, pal1bit(BIT(data, 5)), pal1bit(BIT(data, 6)), pal1bit(BIT(data, 4)));
}
WRITE8_MEMBER(duet16_state::dispctrl_w)
{
m_dispctrl = data;
}
MC6845_UPDATE_ROW(duet16_state::crtc_update_row)
{
u8 *gvram = (u8 *)&m_gvram[0];
for(int i = 0; i < x_count; i++)
{
u16 coffset = (ma + i) & 0x07ff;
u16 goffset = (((ma * 16) + (ra * 80) + i) & 0x7fff) ^ 1;
u8 g2 = gvram[goffset];
u8 g1 = gvram[goffset + 0x08000];
u8 g0 = gvram[goffset + 0x10000];
u8 attr = m_cvram[coffset] >> 8;
u8 chr = m_cvram[coffset & ~BIT(attr, 6)] & 0xff;
u8 data = m_chrrom->base()[(chr * 16) + ra + (BIT(m_dispctrl, 3) * 0x1000)];
if(BIT(attr, 6))
{
if(!(i & 1))
data = bitswap<8>(data, 7, 7, 6, 6, 5, 5, 4, 4);
else
data = bitswap<8>(data, 3, 3, 2, 2, 1, 1, 0, 0);
}
if(BIT(attr, 4) && (m_screen->frame_number() & 32)) // ~1.7 Hz
data = 0;
if(BIT(attr, 3))
data ^= 0xff;
if(BIT(attr, 5) && (ra > 12)) // underline start?
{
attr |= 7;
data = 0xff;
}
if(((i & ~BIT(attr, 6)) == cursor_x) && (m_screen->frame_number() & 16)) // ~3.4 Hz
data ^= 0xff;
rgb_t fg = m_chrpal->pen_color(attr & 7);
for(int xi = 0; xi < 8; xi++)
{
rgb_t color;
if((data & (0x80 >> xi)) && BIT(m_dispctrl, 1))
color = fg;
else if(BIT(m_dispctrl, 0))
color = m_pal->pen_color((BIT(g2, 7 - xi) << 2) | (BIT(g1, 7 - xi) << 1) | BIT(g0, 7 - xi));
else
color = 0;
bitmap.pix32(y, (i * 8) + xi) = color;
}
}
}
WRITE_LINE_MEMBER(duet16_state::rtc_d0_w)
{
m_rtc_d = (m_rtc_d & ~1) | (state ? 1 : 0);
}
WRITE_LINE_MEMBER(duet16_state::rtc_d1_w)
{
m_rtc_d = (m_rtc_d & ~2) | (state ? 2 : 0);
}
WRITE_LINE_MEMBER(duet16_state::rtc_d2_w)
{
m_rtc_d = (m_rtc_d & ~4) | (state ? 4 : 0);
}
WRITE_LINE_MEMBER(duet16_state::rtc_d3_w)
{
m_rtc_d = (m_rtc_d & ~8) | (state ? 8 : 0);
}
WRITE_LINE_MEMBER(duet16_state::rtc_busy_w)
{
if (state && !m_rtc_busy && !m_rtc_irq)
{
m_rtc_irq = true;
m_tmint->in_w<1>(1);
}
m_rtc_busy = state;
}
void duet16_state::rtc_irq_reset()
{
m_rtc_irq = false;
m_tmint->in_w<1>(0);
}
READ8_MEMBER(duet16_state::rtc_r)
{
u8 ret;
m_rtc->cs2_w(ASSERT_LINE);
m_rtc->read_w(ASSERT_LINE);
ret = m_rtc_d;
m_rtc->read_w(CLEAR_LINE);
m_rtc->cs2_w(CLEAR_LINE);
return ret;
}
WRITE8_MEMBER(duet16_state::rtc_w)
{
m_rtc->d0_w(BIT(data, 0));
m_rtc->d1_w(BIT(data, 1));
m_rtc->d2_w(BIT(data, 2));
m_rtc->d3_w(BIT(data, 3));
m_rtc->cs2_w(ASSERT_LINE);
m_rtc->write_w(ASSERT_LINE);
m_rtc->write_w(CLEAR_LINE);
m_rtc->cs2_w(CLEAR_LINE);
}
READ8_MEMBER(duet16_state::rtc_stat_r)
{
u8 status = m_rtc_irq ? 0x80 : 0;
if (!machine().side_effects_disabled())
rtc_irq_reset();
return status;
}
WRITE8_MEMBER(duet16_state::rtc_addr_w)
{
m_rtc->d0_w(BIT(data, 0));
m_rtc->d1_w(BIT(data, 1));
m_rtc->d2_w(BIT(data, 2));
m_rtc->d3_w(BIT(data, 3));
m_rtc->cs2_w(ASSERT_LINE);
m_rtc->address_write_w(ASSERT_LINE);
m_rtc->address_write_w(CLEAR_LINE);
m_rtc->cs2_w(CLEAR_LINE);
}
static const gfx_layout duet16_charlayout =
{
8, 16, /* 8 x 16 characters */
512, /* 512 characters */
1, /* 1 bits per pixel */
{ 0 }, /* no bitplanes */
/* x offsets */
{ STEP8(0,1) },
/* y offsets */
{ STEP16(0,8) },
8*16 /* every char takes 8 bytes */
};
static GFXDECODE_START(gfx_duet16)
GFXDECODE_ENTRY( "char", 0x0000, duet16_charlayout, 0, 1 )
GFXDECODE_END
static void duet16_floppies(device_slot_interface &device)
{
device.option_add("525qd", FLOPPY_525_QD);
}
void duet16_keyboard_devices(device_slot_interface &device)
{
device.option_add("keyboard", SERIAL_KEYBOARD);
}
static DEVICE_INPUT_DEFAULTS_START(keyboard)
DEVICE_INPUT_DEFAULTS( "RS232_TXBAUD", 0xff, RS232_BAUD_1200 )
DEVICE_INPUT_DEFAULTS( "RS232_STARTBITS", 0xff, RS232_STARTBITS_1 )
DEVICE_INPUT_DEFAULTS( "RS232_DATABITS", 0xff, RS232_DATABITS_8 )
DEVICE_INPUT_DEFAULTS( "RS232_PARITY", 0xff, RS232_PARITY_NONE )
DEVICE_INPUT_DEFAULTS( "RS232_STOPBITS", 0xff, RS232_STOPBITS_2 )
DEVICE_INPUT_DEFAULTS_END
MACHINE_CONFIG_START(duet16_state::duet16)
MCFG_DEVICE_ADD("maincpu", I8086, 24_MHz_XTAL / 3)
MCFG_DEVICE_PROGRAM_MAP(duet16_mem)
MCFG_DEVICE_IO_MAP(duet16_io)
MCFG_DEVICE_IRQ_ACKNOWLEDGE_DEVICE("pic", pic8259_device, inta_cb)
MCFG_DEVICE_ADD("i8741", I8741, 20_MHz_XTAL / 4)
MCFG_DEVICE_ADD("pic", PIC8259, 0)
MCFG_PIC8259_OUT_INT_CB(INPUTLINE("maincpu", 0))
MCFG_DEVICE_ADD("dmac", AM9517A, 20_MHz_XTAL / 4)
MCFG_AM9517A_OUT_HREQ_CB(WRITELINE(*this, duet16_state, hrq_w))
MCFG_AM9517A_IN_MEMR_CB(READ8(*this, duet16_state, dma_mem_r))
MCFG_AM9517A_OUT_MEMW_CB(WRITE8(*this, duet16_state, dma_mem_w))
MCFG_AM9517A_IN_IOR_0_CB(READ8("fdc", upd765a_device, mdma_r))
MCFG_AM9517A_OUT_IOW_0_CB(WRITE8("fdc", upd765a_device, mdma_w))
MCFG_AM9517A_OUT_EOP_CB(WRITELINE("fdc", upd765a_device, tc_line_w))
MCFG_DEVICE_ADD("bgpit", PIT8253, 0)
MCFG_PIT8253_CLK0(8_MHz_XTAL / 13)
MCFG_PIT8253_CLK1(8_MHz_XTAL / 13)
MCFG_PIT8253_CLK2(8_MHz_XTAL / 13)
MCFG_PIT8253_OUT0_HANDLER(WRITELINE("sio", upd7201_new_device, txca_w)) // TODO: selected through LS153
MCFG_DEVCB_CHAIN_OUTPUT(WRITELINE("sio", upd7201_new_device, rxca_w))
MCFG_PIT8253_OUT1_HANDLER(WRITELINE("sio", upd7201_new_device, txcb_w))
MCFG_DEVCB_CHAIN_OUTPUT(WRITELINE("sio", upd7201_new_device, rxcb_w))
MCFG_PIT8253_OUT2_HANDLER(WRITELINE("kbusart", i8251_device, write_txc))
MCFG_DEVCB_CHAIN_OUTPUT(WRITELINE("kbusart", i8251_device, write_rxc))
MCFG_DEVICE_ADD("itm", PTM6840, 0)
MCFG_PTM6840_EXTERNAL_CLOCKS(0.0, 0.0, (8_MHz_XTAL / 8).dvalue()) // C3 = 1MHz
MCFG_PTM6840_O3_CB(WRITELINE("itm", ptm6840_device, set_c1)) // C1 = C2 = O3
MCFG_DEVCB_CHAIN_OUTPUT(WRITELINE("itm", ptm6840_device, set_c2))
MCFG_PTM6840_IRQ_CB(WRITELINE("tmint", input_merger_device, in_w<0>))
MCFG_DEVICE_ADD("sio", UPD7201_NEW, 8_MHz_XTAL / 2)
MCFG_Z80SIO_OUT_INT_CB(WRITELINE("pic", pic8259_device, ir1_w)) // INT5
MCFG_DEVICE_ADD("kbusart", I8251, 8_MHz_XTAL / 4)
MCFG_I8251_TXD_HANDLER(WRITELINE("kbd", rs232_port_device, write_txd))
MCFG_I8251_RTS_HANDLER(WRITELINE("kbusart", i8251_device, write_cts))
MCFG_I8251_RXRDY_HANDLER(WRITELINE("kbint", input_merger_device, in_w<0>))
MCFG_I8251_TXRDY_HANDLER(WRITELINE("kbint", input_merger_device, in_w<1>))
MCFG_DEVICE_ADD("kbd", RS232_PORT, duet16_keyboard_devices, "keyboard")
MCFG_RS232_RXD_HANDLER(WRITELINE("kbusart", i8251_device, write_rxd))
MCFG_SLOT_OPTION_DEVICE_INPUT_DEFAULTS("keyboard", keyboard)
MCFG_INPUT_MERGER_ANY_HIGH("kbint")
MCFG_INPUT_MERGER_OUTPUT_HANDLER(WRITELINE("pic", pic8259_device, ir5_w)) // INT2
MCFG_INPUT_MERGER_ANY_HIGH("tmint")
MCFG_INPUT_MERGER_OUTPUT_HANDLER(WRITELINE("pic", pic8259_device, ir0_w)) // INT6
MCFG_UPD765A_ADD("fdc", true, false)
MCFG_UPD765_DRQ_CALLBACK(WRITELINE("dmac", am9517a_device, dreq0_w))
MCFG_UPD765_INTRQ_CALLBACK(WRITELINE("pic", pic8259_device, ir3_w)) // INT4
MCFG_FLOPPY_DRIVE_ADD("fdc:0", duet16_floppies, "525qd", floppy_image_device::default_floppy_formats)
MCFG_SLOT_FIXED(true)
MCFG_FLOPPY_DRIVE_ADD("fdc:1", duet16_floppies, "525qd", floppy_image_device::default_floppy_formats)
MCFG_SLOT_FIXED(true)
MCFG_DEVICE_ADD("crtc", H46505, 2000000)
MCFG_MC6845_CHAR_WIDTH(8)
MCFG_MC6845_UPDATE_ROW_CB(duet16_state, crtc_update_row)
MCFG_PALETTE_ADD("palette", 8)
MCFG_PALETTE_ADD_3BIT_BRG("chrpal")
MCFG_DEVICE_ADD("gfxdecode", GFXDECODE, "chrpal", gfx_duet16)
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_REFRESH_RATE(60)
MCFG_SCREEN_SIZE(640, 480)
MCFG_SCREEN_VISIBLE_AREA(0, 640-1, 0, 480-1)
MCFG_SCREEN_UPDATE_DEVICE("crtc", h46505_device, screen_update)
MCFG_DEVICE_ADD("rtc", MSM58321, 32768_Hz_XTAL)
MCFG_MSM58321_D0_HANDLER(WRITELINE(*this, duet16_state, rtc_d0_w))
MCFG_MSM58321_D1_HANDLER(WRITELINE(*this, duet16_state, rtc_d1_w))
MCFG_MSM58321_D2_HANDLER(WRITELINE(*this, duet16_state, rtc_d2_w))
MCFG_MSM58321_D3_HANDLER(WRITELINE(*this, duet16_state, rtc_d3_w))
MCFG_MSM58321_BUSY_HANDLER(WRITELINE(*this, duet16_state, rtc_busy_w))
MCFG_MSM58321_YEAR0(1980)
MCFG_MSM58321_DEFAULT_24H(true)
MACHINE_CONFIG_END
ROM_START(duet16)
ROM_REGION(0x2000, "rom", 0)
ROM_LOAD16_BYTE("duet16_h516a_3.bin", 0x0001, 0x1000, CRC(936706aa) SHA1(412ff9c7bf4443d2ed29a8d792fc3c849c9393cc))
ROM_LOAD16_BYTE("duet16_h517a_z.bin", 0x0000, 0x1000, CRC(1633cce8) SHA1(5145d04a48921cacfed17a94873e8988772fc8d4))
ROM_REGION(0x2000, "char", 0)
ROM_LOAD("duet16_char_j500a_4.bin", 0x0000, 0x2000, CRC(edf860f8) SHA1(0dcc584db701d21b7c3304cd2296562ebda6fb4c))
ROM_REGION(0x400, "i8741", 0)
ROM_LOAD("duet16_key_8741ak001b_z.bin", 0x000, 0x400, CRC(d23ee68d) SHA1(3b6a86fe2a304823c5385cd673f9580a35199dac))
ROM_END
COMP( 1983, duet16, 0, 0, duet16, 0, duet16_state, empty_init, "Panafacom (Panasonic/Fujitsu)", "Duet-16", MACHINE_NOT_WORKING | MACHINE_NO_SOUND)