/***************************************************************************
Intel iPDS
17/12/2009 Skeleton driver.
****************************************************************************/
#include "emu.h"
#include "cpu/i8085/i8085.h"
#include "video/i8275.h"
#include "machine/keyboard.h"
#define KEYBOARD_TAG "keyboard"
class ipds_state : public driver_device
{
public:
ipds_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag),
m_maincpu(*this, "maincpu"),
m_crtc(*this, "i8275"),
m_palette(*this, "palette")
{
}
required_device<cpu_device> m_maincpu;
required_device<i8275_device> m_crtc;
required_device<palette_device> m_palette;
DECLARE_READ8_MEMBER(ipds_b0_r);
DECLARE_READ8_MEMBER(ipds_b1_r);
DECLARE_READ8_MEMBER(ipds_c0_r);
DECLARE_WRITE8_MEMBER(ipds_b1_w);
DECLARE_WRITE8_MEMBER(kbd_put);
UINT8 m_term_data;
virtual void machine_reset();
};
READ8_MEMBER( ipds_state::ipds_b0_r )
{
if (m_term_data)
return 0xc0;
else
return 0x80;
}
READ8_MEMBER( ipds_state::ipds_b1_r )
{
UINT8 ret = m_term_data;
m_term_data = 0;
return ret;
}
READ8_MEMBER( ipds_state::ipds_c0_r ) { return 0x55; }
WRITE8_MEMBER( ipds_state::ipds_b1_w )
{
}
static ADDRESS_MAP_START(ipds_mem, AS_PROGRAM, 8, ipds_state)
ADDRESS_MAP_UNMAP_HIGH
AM_RANGE(0x0000, 0x07ff) AM_ROM
AM_RANGE(0x0800, 0xffff) AM_RAM
ADDRESS_MAP_END
static ADDRESS_MAP_START( ipds_io, AS_IO, 8, ipds_state)
ADDRESS_MAP_GLOBAL_MASK(0xff)
ADDRESS_MAP_UNMAP_HIGH
AM_RANGE(0xb0, 0xb0) AM_READ(ipds_b0_r)
AM_RANGE(0xb1, 0xb1) AM_READWRITE(ipds_b1_r,ipds_b1_w)
AM_RANGE(0xc0, 0xc0) AM_READ(ipds_c0_r)
ADDRESS_MAP_END
/* Input ports */
static INPUT_PORTS_START( ipds )
INPUT_PORTS_END
void ipds_state::machine_reset()
{
}
static I8275_DISPLAY_PIXELS(ipds_display_pixels)
{
int i;
ipds_state *state = device->machine().driver_data<ipds_state>();
const rgb_t *palette = state->m_palette->palette()->entry_list_raw();
UINT8 *charmap = state->memregion("chargen")->base();
UINT8 pixels = charmap[(linecount & 7) + (charcode << 3)] ^ 0xff;
if (vsp)
pixels = 0;
if (lten)
pixels = 0xff;
if (rvv)
pixels ^= 0xff;
for(i=0;i<6;i++)
bitmap.pix32(y, x + i) = palette[(pixels >> (5-i)) & 1 ? (hlgt ? 2 : 1) : 0];
}
const i8275_interface ipds_i8275_interface =
{
6,
0,
DEVCB_NULL,
DEVCB_NULL,
DEVCB_NULL,
DEVCB_NULL,
ipds_display_pixels
};
/* F4 Character Displayer */
static const gfx_layout ipds_charlayout =
{
8, 11, /* 8 x 11 characters */
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 },
8*16 /* every char takes 16 bytes */
};
static GFXDECODE_START( ipds )
GFXDECODE_ENTRY( "chargen", 0x0000, ipds_charlayout, 0, 1 )
GFXDECODE_END
WRITE8_MEMBER( ipds_state::kbd_put )
{
m_term_data = data;
}
static MACHINE_CONFIG_START( ipds, ipds_state )
/* basic machine hardware */
MCFG_CPU_ADD("maincpu",I8085A, XTAL_19_6608MHz / 4)
MCFG_CPU_PROGRAM_MAP(ipds_mem)
MCFG_CPU_IO_MAP(ipds_io)
/* video hardware */
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_UPDATE_DEVICE("i8275", i8275_device, screen_update)
MCFG_SCREEN_REFRESH_RATE(50)
MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */
MCFG_SCREEN_SIZE(640, 480)
MCFG_SCREEN_VISIBLE_AREA(0, 640-1, 0, 480-1)
MCFG_GFXDECODE_ADD("gfxdecode", "palette", ipds)
MCFG_PALETTE_ADD_MONOCHROME_GREEN("palette")
MCFG_I8275_ADD ( "i8275", ipds_i8275_interface)
MCFG_DEVICE_ADD(KEYBOARD_TAG, GENERIC_KEYBOARD, 0)
MCFG_GENERIC_KEYBOARD_CB(WRITE8(ipds_state, kbd_put))
MACHINE_CONFIG_END
/* ROM definition */
ROM_START( ipds )
ROM_REGION( 0x10000, "maincpu", 0 )
ROM_LOAD( "164180.bin", 0x0000, 0x0800, CRC(10ba23ce) SHA1(67a9d03a08cdd7c70a867fb7e069703c7a0b9094) )
ROM_REGION( 0x10000, "slavecpu", ROMREGION_ERASEFF )
ROM_LOAD( "164196.bin", 0x0000, 0x1000, CRC(d3e18bc6) SHA1(01bc233be154bdfea9e8015839c5885cdaa08f11) )
ROM_REGION(0x0800, "chargen",0)
ROM_LOAD( "163642.bin", 0x0000, 0x0800, CRC(3d81b2d1) SHA1(262a42920f15f1156ad0717c876cc0b2ed947ec5) )
ROM_END
/* Driver */
/* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS */
COMP( 1982, ipds, 0, 0, ipds, ipds, driver_device, 0, "Intel", "iPDS", GAME_NOT_WORKING | GAME_NO_SOUND)