// license:BSD-3-Clause
// copyright-holders:R. Belmont
/***************************************************************************
Hewlett-Packard HP16500a/b/c Logic Analyzer
These are weird, the "a" has more in common with the older 1650/1651
than the 16500b.
16500a rev 00.00:
MC68000 @ 10 MHz
MC68A45 CRTC
FDC9793 floppy controller (WD1793 type)
TMS9914A GPIB bus interface
SCN2661 EPCI
IRQ1 = VBL, IRQ2 = 20b007, IRQ3 = ?, IRQ4 = 20d000, IRQ5 = 20d007,
IRQ6 = ?, IRQ7 = ?
16500a rev 00.02:
MC68000 @ 10 MHz
MC68A45 CRTC
Z0765A08PSC floppy controller (NEC765 type)
TMS9914A GPIB bus interface
SCN2661 EPCI
16500b:
MC68EC030 @ 25 MHz
WD37C65C floppy controller (NEC765 type)
Bt475 video RAMDAC
TMS9914A GPIB bus interface
Dallas DS1286 RTC/CMOS RAM
IRQ 1 = VBL
IRQ 2 = 35b8
IRQ 3 = 35ce (jump 840120)
IRQ 4 = 17768
IRQ 5 = 814a
IRQ 6 = 35c8 (jump 840120)
IRQ 7 = 35d4 (jump 840120)
16500c:
Same as 16500b, but add:
53C720 SCSI controller
DP83934 SONIC ethernet
****************************************************************************/
#include "emu.h"
#include "cpu/m68000/m68000.h"
#include "machine/mc2661.h"
#include "bus/hp_hil/hp_hil.h"
#include "bus/hp_hil/hil_devices.h"
#include "video/mc6845.h"
#include "screen.h"
#include "speaker.h"
class hp16500_state : public driver_device
{
public:
hp16500_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag),
m_maincpu(*this, "maincpu"),
m_mlc(*this, "mlc")
{ }
virtual void video_start() override;
uint32_t screen_update_hp16500(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect);
uint32_t screen_update_hp16500a(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect);
required_device<cpu_device> m_maincpu;
optional_device<hp_hil_mlc_device> m_mlc;
std::vector<uint8_t> m_vram;
uint8_t m_mask, m_val;
DECLARE_WRITE32_MEMBER(palette_w);
DECLARE_WRITE16_MEMBER(vram_w);
DECLARE_READ8_MEMBER (vram_r);
DECLARE_WRITE8_MEMBER (mask_w);
DECLARE_WRITE8_MEMBER (val_w);
DECLARE_READ32_MEMBER(vbl_state_r);
DECLARE_WRITE32_MEMBER(vbl_ack_w);
DECLARE_READ16_MEMBER(vbl_ack16_r);
DECLARE_WRITE16_MEMBER(vbl_ack16_w);
DECLARE_WRITE8_MEMBER(pal_ctrl_w);
DECLARE_WRITE8_MEMBER(pal_r_w);
DECLARE_WRITE8_MEMBER(pal_g_w);
DECLARE_WRITE8_MEMBER(pal_b_w);
DECLARE_WRITE16_MEMBER(maskval_w);
DECLARE_WRITE_LINE_MEMBER(irq_2);
DECLARE_WRITE_LINE_MEMBER(vsync_changed);
MC6845_UPDATE_ROW(crtc_update_row);
MC6845_UPDATE_ROW(crtc_update_row_1650);
void hp16500(machine_config &config);
void hp16500a(machine_config &config);
void hp1651(machine_config &config);
void hp1650(machine_config &config);
void hp16500_map(address_map &map);
void hp16500a_map(address_map &map);
void hp1650_map(address_map &map);
void hp1651_map(address_map &map);
private:
uint32_t m_palette[256], m_colors[3], m_count, m_clutoffs;
};
READ32_MEMBER(hp16500_state::vbl_state_r)
{
return 0x03000000; // bit 0 set means the interrupt handler advances the pSOS tick counter.
}
WRITE32_MEMBER(hp16500_state::vbl_ack_w)
{
m_maincpu->set_input_line(M68K_IRQ_1, CLEAR_LINE);
}
READ16_MEMBER(hp16500_state::vbl_ack16_r)
{
m_maincpu->set_input_line(M68K_IRQ_1, CLEAR_LINE);
return 0;
}
WRITE16_MEMBER(hp16500_state::vbl_ack16_w)
{
m_maincpu->set_input_line(M68K_IRQ_1, CLEAR_LINE);
}
WRITE_LINE_MEMBER( hp16500_state::vsync_changed )
{
if (state)
{
m_maincpu->set_input_line(M68K_IRQ_1, ASSERT_LINE);
}
}
MC6845_UPDATE_ROW( hp16500_state::crtc_update_row )
{
uint32_t *p = &bitmap.pix32(y);
int i, pos;
pos = y * 144;
for (i = 0; i < x_count; i++)
{
*p++ = m_palette[m_vram[pos+0x00000]];
*p++ = m_palette[m_vram[pos+0x10000]];
*p++ = m_palette[m_vram[pos+0x20000]];
*p++ = m_palette[m_vram[pos+0x30000]];
pos++;
*p++ = m_palette[m_vram[pos+0x00000]];
*p++ = m_palette[m_vram[pos+0x10000]];
*p++ = m_palette[m_vram[pos+0x20000]];
*p++ = m_palette[m_vram[pos+0x30000]];
pos++;
}
}
MC6845_UPDATE_ROW( hp16500_state::crtc_update_row_1650 )
{
uint32_t *p = &bitmap.pix32(y);
int i, pos;
pos = y * 148;
for (i = 0; i < x_count; i++)
{
*p++ = m_palette[m_vram[pos+0x00000]];
*p++ = m_palette[m_vram[pos+0x10000]];
*p++ = m_palette[m_vram[pos+0x20000]];
*p++ = m_palette[m_vram[pos+0x30000]];
pos++;
*p++ = m_palette[m_vram[pos+0x00000]];
*p++ = m_palette[m_vram[pos+0x10000]];
*p++ = m_palette[m_vram[pos+0x20000]];
*p++ = m_palette[m_vram[pos+0x30000]];
pos++;
}
}
WRITE8_MEMBER(hp16500_state::pal_ctrl_w)
{
m_clutoffs = data & 0xf;
}
WRITE8_MEMBER(hp16500_state::pal_r_w)
{
m_colors[0] = (data<<4);
m_palette[m_clutoffs] = rgb_t(m_colors[0], m_colors[1], m_colors[2]);
}
WRITE8_MEMBER(hp16500_state::pal_g_w)
{
m_colors[1] = (data<<4);
m_palette[m_clutoffs] = rgb_t(m_colors[0], m_colors[1], m_colors[2]);
}
WRITE8_MEMBER(hp16500_state::pal_b_w)
{
m_colors[2] = (data<<4);
m_palette[m_clutoffs] = rgb_t(m_colors[0], m_colors[1], m_colors[2]);
}
WRITE16_MEMBER(hp16500_state::maskval_w)
{
// by analogy with the string printer code from the 16500b, which
// appears to be a direct port...
m_val = ((data>>8) & 0xff) ^ 0xff;
m_mask = (data & 0xff) ^ 0xff;
}
WRITE_LINE_MEMBER(hp16500_state::irq_2)
{
m_maincpu->set_input_line_and_vector(M68K_IRQ_2, state, M68K_INT_ACK_AUTOVECTOR);
}
void hp16500_state::hp1650_map(address_map &map)
{
map(0x000000, 0x00ffff).rom().region("bios", 0);
map(0x201000, 0x201001).w(this, FUNC(hp16500_state::maskval_w));
map(0x204001, 0x204001).w(this, FUNC(hp16500_state::pal_ctrl_w));
map(0x205001, 0x205001).w(this, FUNC(hp16500_state::pal_r_w));
map(0x2050fe, 0x2050ff).noprw();
map(0x206000, 0x206001).nopr();
map(0x206001, 0x206001).w(this, FUNC(hp16500_state::pal_g_w));
map(0x207001, 0x207001).w(this, FUNC(hp16500_state::pal_b_w));
map(0x20a000, 0x20a007).rw("epci", FUNC(mc2661_device::read), FUNC(mc2661_device::write)).umask16(0x00ff);
map(0x20c001, 0x20c001).rw("crtc", FUNC(mc6845_device::status_r), FUNC(mc6845_device::address_w));
map(0x20c003, 0x20c003).rw("crtc", FUNC(mc6845_device::register_r), FUNC(mc6845_device::register_w));
map(0x20e000, 0x20e001).rw(this, FUNC(hp16500_state::vbl_ack16_r), FUNC(hp16500_state::vbl_ack16_w));
map(0x20f000, 0x20f001).noprw();
map(0x600000, 0x61ffff).w(this, FUNC(hp16500_state::vram_w));
map(0x600000, 0x67ffff).r(this, FUNC(hp16500_state::vram_r)).umask16(0x00ff);
map(0x900000, 0x9fffff).ram();
}
// like 1650 but moves main RAM to match 16500a
void hp16500_state::hp1651_map(address_map &map)
{
map(0x000000, 0x00ffff).rom().region("bios", 0);
map(0x201000, 0x201001).w(this, FUNC(hp16500_state::maskval_w));
map(0x204001, 0x204001).w(this, FUNC(hp16500_state::pal_ctrl_w));
map(0x205001, 0x205001).w(this, FUNC(hp16500_state::pal_r_w));
map(0x2050fe, 0x2050ff).noprw();
map(0x206000, 0x206001).nopr();
map(0x206001, 0x206001).w(this, FUNC(hp16500_state::pal_g_w));
map(0x207001, 0x207001).w(this, FUNC(hp16500_state::pal_b_w));
map(0x20a000, 0x20a007).rw("epci", FUNC(mc2661_device::read), FUNC(mc2661_device::write)).umask16(0x00ff);
map(0x20c001, 0x20c001).rw("crtc", FUNC(mc6845_device::status_r), FUNC(mc6845_device::address_w));
map(0x20c003, 0x20c003).rw("crtc", FUNC(mc6845_device::register_r), FUNC(mc6845_device::register_w));
map(0x20e000, 0x20e001).rw(this, FUNC(hp16500_state::vbl_ack16_r), FUNC(hp16500_state::vbl_ack16_w));
map(0x20f000, 0x20f001).noprw();
map(0x600000, 0x61ffff).w(this, FUNC(hp16500_state::vram_w));
map(0x600000, 0x67ffff).r(this, FUNC(hp16500_state::vram_r)).umask16(0x00ff);
map(0x980000, 0xa7ffff).ram();
}
void hp16500_state::hp16500a_map(address_map &map)
{
map(0x000000, 0x00ffff).rom().region("bios", 0);
map(0x201000, 0x201001).w(this, FUNC(hp16500_state::maskval_w));
map(0x204001, 0x204001).w(this, FUNC(hp16500_state::pal_ctrl_w));
map(0x205001, 0x205001).w(this, FUNC(hp16500_state::pal_r_w));
map(0x206001, 0x206001).w(this, FUNC(hp16500_state::pal_g_w));
map(0x207001, 0x207001).w(this, FUNC(hp16500_state::pal_b_w));
map(0x20c001, 0x20c001).rw("crtc", FUNC(mc6845_device::status_r), FUNC(mc6845_device::address_w));
map(0x20c003, 0x20c003).rw("crtc", FUNC(mc6845_device::register_r), FUNC(mc6845_device::register_w));
map(0x20e000, 0x20e001).rw(this, FUNC(hp16500_state::vbl_ack16_r), FUNC(hp16500_state::vbl_ack16_w));
map(0x600000, 0x61ffff).w(this, FUNC(hp16500_state::vram_w));
map(0x600000, 0x67ffff).r(this, FUNC(hp16500_state::vram_r)).umask16(0x00ff);
map(0x980000, 0xa7ffff).ram();
}
uint32_t hp16500_state::screen_update_hp16500a(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect)
{
return 0;
}
void hp16500_state::hp16500_map(address_map &map)
{
map(0x00000000, 0x0001ffff).rom().region("bios", 0);
map(0x0020f000, 0x0020f003).w(this, FUNC(hp16500_state::palette_w));
map(0x00202800, 0x00202803).w(this, FUNC(hp16500_state::vbl_ack_w));
map(0x00203000, 0x00203003).w(this, FUNC(hp16500_state::vbl_ack_w));
map(0x00209800, 0x00209803).r(this, FUNC(hp16500_state::vbl_state_r));
map(0x0020b800, 0x0020b8ff).ram(); // system ram test is really strange.
map(0x0020f800, 0x0020f80f).rw(m_mlc, FUNC(hp_hil_mlc_device::read), FUNC(hp_hil_mlc_device::write));
map(0x00600000, 0x0061ffff).w(this, FUNC(hp16500_state::vram_w));
map(0x00600000, 0x0067ffff).r(this, FUNC(hp16500_state::vram_r)).umask32(0x00ff00ff);
map(0x00700000, 0x00700000).w(this, FUNC(hp16500_state::mask_w));
map(0x00740000, 0x00740000).w(this, FUNC(hp16500_state::val_w));
map(0x00800000, 0x009fffff).ram();
}
void hp16500_state::video_start()
{
m_count = 0;
m_clutoffs = 0;
memset(m_palette, 0, sizeof(m_palette));
m_vram.resize(0x40000);
m_mask = 0;
m_val = 0;
}
// The test code is buggy, it writes a byte in the wrong position
// (even instead of odd). It still works because the 68k replicates
// the byte on the word and the hardware doesn't decode UDS/LDS. But
// that is why the handler needs to be 16 bits, or it won't be called
// in the first place.
WRITE16_MEMBER(hp16500_state::vram_w)
{
if(!ACCESSING_BITS_0_7)
data = data | (data >> 8);
for(int i=0; i<4; i++) {
int off = offset + i * 0x10000;
if(data & (8 >> i))
m_vram[off] = (m_vram[off] & ~m_mask) | (m_val & m_mask);
else
m_vram[off] = (m_vram[off] & ~m_mask);
}
}
READ8_MEMBER (hp16500_state::vram_r)
{
return m_vram[offset];
}
WRITE8_MEMBER(hp16500_state::mask_w)
{
m_mask = data;
}
WRITE8_MEMBER(hp16500_state::val_w)
{
m_val = data;
}
WRITE32_MEMBER(hp16500_state::palette_w)
{
if (mem_mask == 0xff000000)
{
m_clutoffs = (data>>24) & 0xff;
}
else if (mem_mask == 0x00ff0000)
{
m_colors[m_count++] = (data>>14) & 0xfc;
if (m_count == 3)
{
m_palette[m_clutoffs] = rgb_t(m_colors[0], m_colors[1], m_colors[2]);
m_clutoffs++;
if (m_clutoffs > 255)
{
m_clutoffs = 0;
}
m_count = 0;
}
}
}
// 4 bpp
// addr = ((Y * 0xfc0) + 0x360) + (X * 4)
uint32_t hp16500_state::screen_update_hp16500(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect)
{
int pos = 0;
for (int y = 0; y < 384; y++)
{
uint32_t *scanline = &bitmap.pix32(y);
for (int x = 0; x < 576; x+=4)
{
*scanline++ = m_palette[m_vram[pos+0x00000]];
*scanline++ = m_palette[m_vram[pos+0x10000]];
*scanline++ = m_palette[m_vram[pos+0x20000]];
*scanline++ = m_palette[m_vram[pos+0x30000]];
pos++;
}
}
return 0;
}
MACHINE_CONFIG_START(hp16500_state::hp1650)
/* basic machine hardware */
MCFG_DEVICE_ADD("maincpu", M68000, 10000000)
MCFG_DEVICE_PROGRAM_MAP(hp1650_map)
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_RAW_PARAMS(25000000, 0x330, 0, 0x250, 0x198, 0, 0x180 )
MCFG_SCREEN_UPDATE_DEVICE( "crtc", mc6845_device, screen_update )
MCFG_MC6845_ADD("crtc", MC6845, "screen", 25000000/9)
MCFG_MC6845_SHOW_BORDER_AREA(false)
MCFG_MC6845_CHAR_WIDTH(8)
MCFG_MC6845_UPDATE_ROW_CB(hp16500_state, crtc_update_row_1650)
MCFG_MC6845_OUT_VSYNC_CB(WRITELINE(*this, hp16500_state, vsync_changed))
MCFG_DEVICE_ADD("epci", MC2661, 5000000)
SPEAKER(config, "lspeaker").front_left();
SPEAKER(config, "rspeaker").front_right();
MACHINE_CONFIG_END
MACHINE_CONFIG_START(hp16500_state::hp1651)
/* basic machine hardware */
MCFG_DEVICE_ADD("maincpu", M68000, 10000000)
MCFG_DEVICE_PROGRAM_MAP(hp1651_map)
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_RAW_PARAMS(25000000, 0x330, 0, 0x250, 0x198, 0, 0x180 )
MCFG_SCREEN_UPDATE_DEVICE( "crtc", mc6845_device, screen_update )
MCFG_MC6845_ADD("crtc", MC6845, "screen", 25000000/9)
MCFG_MC6845_SHOW_BORDER_AREA(false)
MCFG_MC6845_CHAR_WIDTH(8)
MCFG_MC6845_UPDATE_ROW_CB(hp16500_state, crtc_update_row_1650)
MCFG_MC6845_OUT_VSYNC_CB(WRITELINE(*this, hp16500_state, vsync_changed))
MCFG_DEVICE_ADD("epci", MC2661, 5000000)
SPEAKER(config, "lspeaker").front_left();
SPEAKER(config, "rspeaker").front_right();
MACHINE_CONFIG_END
MACHINE_CONFIG_START(hp16500_state::hp16500a)
/* basic machine hardware */
MCFG_DEVICE_ADD("maincpu", M68000, 10000000)
MCFG_DEVICE_PROGRAM_MAP(hp16500a_map)
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_RAW_PARAMS(25000000, 0x320, 0, 0x240, 0x19c, 0, 0x170 )
MCFG_SCREEN_UPDATE_DEVICE( "crtc", mc6845_device, screen_update )
MCFG_MC6845_ADD("crtc", MC6845, "screen", 25000000/9)
MCFG_MC6845_SHOW_BORDER_AREA(false)
MCFG_MC6845_CHAR_WIDTH(8)
MCFG_MC6845_UPDATE_ROW_CB(hp16500_state, crtc_update_row)
MCFG_MC6845_OUT_VSYNC_CB(WRITELINE(*this, hp16500_state, vsync_changed))
SPEAKER(config, "lspeaker").front_left();
SPEAKER(config, "rspeaker").front_right();
MACHINE_CONFIG_END
MACHINE_CONFIG_START(hp16500_state::hp16500)
/* basic machine hardware */
MCFG_DEVICE_ADD("maincpu", M68EC030, 25000000)
MCFG_DEVICE_PROGRAM_MAP(hp16500_map)
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_UPDATE_DRIVER(hp16500_state, screen_update_hp16500)
MCFG_SCREEN_SIZE(576,384)
MCFG_SCREEN_VISIBLE_AREA(0, 576-1, 0, 384-1)
MCFG_SCREEN_REFRESH_RATE(60)
MCFG_SCREEN_VBLANK_CALLBACK(WRITELINE(*this, hp16500_state, vsync_changed))
// FIXME: Where is the AP line connected to? The MLC documentation recommends
// connecting it to VBLANK
MCFG_DEVCB_CHAIN_OUTPUT(WRITELINE("mlc", hp_hil_mlc_device, ap_w))
MCFG_DEVICE_ADD("mlc", HP_HIL_MLC, XTAL(15'920'000)/2)
MCFG_HP_HIL_INT_CALLBACK(WRITELINE(*this, hp16500_state, irq_2))
// TODO: for now hook up the ipc hil keyboard - this might be replaced
// later with a 16500b specific keyboard implementation
MCFG_HP_HIL_SLOT_ADD("mlc", "hil1", hp_hil_devices, "hp_ipc_kbd")
MCFG_HP_HIL_SLOT_ADD("mlc", "hil2", hp_hil_devices, "hp_ipc_kbd")
SPEAKER(config, "lspeaker").front_left();
SPEAKER(config, "rspeaker").front_right();
MACHINE_CONFIG_END
static INPUT_PORTS_START( hp16500 )
INPUT_PORTS_END
ROM_START( hp1650b )
ROM_REGION16_BE(0x20000, "bios", 0)
ROM_LOAD16_BYTE( "la1.bin", 0x000000, 0x008000, CRC(7c60e334) SHA1(c3661e4bb58e0951e9c13208b4991f5d9dda633b) )
ROM_LOAD16_BYTE( "la2.bin", 0x000001, 0x008000, CRC(b0c6fe60) SHA1(a77b2e7098f26af93b0946abe6e89711b3332210) )
ROM_END
ROM_START( hp1651b )
ROM_REGION16_BE(0x20000, "bios", 0)
ROM_LOAD16_BYTE( "u102.bin", 0x000000, 0x008000, CRC(d7e1b091) SHA1(af813cc7ae748aedf1b1d9d522ee2154961315c2) )
ROM_LOAD16_BYTE( "u103.bin", 0x000001, 0x008000, CRC(f32a37c7) SHA1(8addda59923f64fd9b7e909eb0e3a17cc02bb70e) )
ROM_END
ROM_START( hp165ka0 )
ROM_REGION16_BE(0x20000, "bios", 0)
ROM_LOAD16_BYTE( "16500-80002.bin", 0x000000, 0x008000, CRC(0324b75a) SHA1(837855fce9288139226c914cc0c43061e25b57d2) )
ROM_LOAD16_BYTE( "16500-80001.bin", 0x000001, 0x008000, CRC(362c8cbf) SHA1(812b79d1a31d09ec632a6842b11548168d82b5e7) )
ROM_END
ROM_START( hp16500b )
ROM_REGION32_BE(0x20000, "bios", 0)
ROM_LOAD32_BYTE( "16500-80014.bin", 0x000000, 0x008000, CRC(35187716) SHA1(82067737892ecd356a5454a43d9ce9b38ac2397f) )
ROM_LOAD32_BYTE( "16500-80015.bin", 0x000001, 0x008000, CRC(d8d26c1c) SHA1(b5b956c17c9d6e54519a686b5e4aa733b266bf6f) )
ROM_LOAD32_BYTE( "16500-80016.bin", 0x000002, 0x008000, CRC(61457b39) SHA1(f209315ec22a8ee9d44a0ec009b1afb47794bece) )
ROM_LOAD32_BYTE( "16500-80017.bin", 0x000003, 0x008000, CRC(e0b1096b) SHA1(426bb9a4756d8087bded4f6b61365d733ffbb09a) )
ROM_END
COMP( 1989, hp1650b, 0, 0, hp1650, hp16500, hp16500_state, empty_init, "Hewlett Packard", "HP 1650b", MACHINE_NOT_WORKING|MACHINE_NO_SOUND)
COMP( 1989, hp1651b, 0, 0, hp1651, hp16500, hp16500_state, empty_init, "Hewlett Packard", "HP 1651b", MACHINE_NOT_WORKING|MACHINE_NO_SOUND)
COMP( 1991, hp165ka0, 0, 0, hp16500a, hp16500, hp16500_state, empty_init, "Hewlett Packard", "HP 16500a", MACHINE_NOT_WORKING|MACHINE_NO_SOUND)
COMP( 1991, hp16500b, 0, 0, hp16500, hp16500, hp16500_state, empty_init, "Hewlett Packard", "HP 16500b", MACHINE_NOT_WORKING|MACHINE_NO_SOUND)