(MESS) New skeleton [Al Kossow, Robbbert]

-------------------------------------------------
Genrad Futuredata 2301 Network Control Processor

.gitattributes

@@ -6274,6 +6274,7 @@ src/mess/drivers/glasgow.c svneol=native#text/plain
 src/mess/drivers/gmaster.c svneol=native#text/plain
 src/mess/drivers/gp2x.c svneol=native#text/plain
 src/mess/drivers/gp32.c svneol=native#text/plain
+src/mess/drivers/grfd2301.c svneol=native#text/plain
 src/mess/drivers/h19.c svneol=native#text/plain
 src/mess/drivers/h8.c svneol=native#text/plain
 src/mess/drivers/h89.c svneol=native#text/plain

src/mess/drivers/grfd2301.c

@@ -0,0 +1,136 @@
+/************************************************************************************************************
+
+Genrad Futuredata 2301 Network Control Processor
+
+2013-08-11 Skeleton
+
+Has a number of plug-in daughter boards, some of which are:
+- CPU board: Mostek Z80 CPU, 24MHz crystal, 2 eproms (U2.PB72.2300.4039 1.0 ; U23.N.C.P.2300.4023 3.0)
+- IO board: 5.0688MHz crystal, D8253C, 2x S2651
+- Memory board: 16 static ram consisting of 32x TMS2147H-7 chips, 1 prom? with sticker U36.2300.4035 1.0
+- 2301 board: 2x D8253C, 4x S2651
+
+Back panel has a number of DB25 sockets, labelled thus:
+- Station 1-4
+- Station 5-8
+- EIA 1
+- EIA 2
+- Printer
+- 3 unlabelled ones
+
+A sticker on the back panel says: GenRad, Culver City CA, Model 2301-9001
+
+
+- No schematic or documents are available. Everything in this driver is a guess.
+- Only one rom has been dumped. The best guess would be U23, as this is adjacent to the Z80.
+- Although there's no display device, it has display ram. This has been hooked up with a chargen rom
+  from another system.
+
+*************************************************************************************************************/
+
+
+#include "emu.h"
+#include "cpu/z80/z80.h"
+
+class grfd2301_state : public driver_device
+{
+public:
+	grfd2301_state(const machine_config &mconfig, device_type type, const char *tag)
+		: driver_device(mconfig, type, tag)
+	, m_p_videoram(*this, "videoram")
+	, m_maincpu(*this, "maincpu")
+	{ }
+
+public:
+	virtual void machine_reset();
+	const UINT8 *m_p_chargen;
+	UINT32 screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect);
+	required_shared_ptr<const UINT8> m_p_videoram;
+private:
+	required_device<cpu_device> m_maincpu;
+
+
+};
+
+static ADDRESS_MAP_START( grfd2301_mem, AS_PROGRAM, 8, grfd2301_state )
+	AM_RANGE(0xe000, 0xefff) AM_ROM AM_REGION("maincpu", 0)
+	AM_RANGE(0xf000, 0xf7ff) AM_RAM
+	AM_RANGE(0xf800, 0xffff) AM_RAM AM_SHARE("videoram")
+ADDRESS_MAP_END
+
+static ADDRESS_MAP_START( grfd2301_io, AS_IO, 8, grfd2301_state )
+	ADDRESS_MAP_GLOBAL_MASK(0xff)
+ADDRESS_MAP_END
+
+static INPUT_PORTS_START( grfd2301 )
+INPUT_PORTS_END
+
+void grfd2301_state::machine_reset()
+{
+	m_p_chargen = memregion("chargen")->base();
+	m_maincpu->set_pc(0xe000);
+}
+
+UINT32 grfd2301_state::screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
+{
+	UINT8 y,ra,chr,gfx;
+	UINT16 sy=0,ma=0,x;
+
+	for (y = 0; y < 24; y++)
+	{
+		for (ra = 0; ra < 10; ra++)
+		{
+			UINT16 *p = &bitmap.pix16(sy++);
+
+			for (x = 0; x < 80; x++)
+			{
+				gfx = 0;
+				if (ra < 9)
+				{
+					chr = m_p_videoram[x+ma];
+
+					gfx = m_p_chargen[(chr<<4) | ra ];
+				}
+				/* Display a scanline of a character */
+				*p++ = BIT(gfx, 7);
+				*p++ = BIT(gfx, 6);
+				*p++ = BIT(gfx, 5);
+				*p++ = BIT(gfx, 4);
+				*p++ = BIT(gfx, 3);
+				*p++ = BIT(gfx, 2);
+				*p++ = BIT(gfx, 1);
+				*p++ = BIT(gfx, 0);
+			}
+		}
+		ma+=80;
+	}
+	return 0;
+}
+
+static MACHINE_CONFIG_START( grfd2301, grfd2301_state )
+	// basic machine hardware
+	MCFG_CPU_ADD("maincpu", Z80, 4000000)
+	MCFG_CPU_PROGRAM_MAP(grfd2301_mem)
+	MCFG_CPU_IO_MAP(grfd2301_io)
+
+	/* video hardware */
+	MCFG_SCREEN_ADD("screen", RASTER)
+	MCFG_SCREEN_REFRESH_RATE(60)
+	MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */
+	MCFG_SCREEN_UPDATE_DRIVER(grfd2301_state, screen_update)
+	MCFG_SCREEN_SIZE(640, 240)
+	MCFG_SCREEN_VISIBLE_AREA(0, 639, 0, 239)
+	MCFG_PALETTE_LENGTH(2)
+	MCFG_PALETTE_INIT_OVERRIDE(driver_device, black_and_white)
+MACHINE_CONFIG_END
+
+ROM_START( grfd2301 )
+	ROM_REGION( 0x1000, "maincpu", 0 )
+	ROM_LOAD( "boot2301", 0x000, 0x1000, CRC(feec0cbd) SHA1(ec8138aca7ed489d86aaf2e07225c8d715440db7) )
+
+	// Using the chargen from 'c10' for now.
+	ROM_REGION( 0x2000, "chargen", 0 )
+	ROM_LOAD( "c10_char.bin", 0x0000, 0x2000, BAD_DUMP CRC(cb530b6f) SHA1(95590bbb433db9c4317f535723b29516b9b9fcbf))
+ROM_END
+
+COMP( 198?, grfd2301, 0, 0, grfd2301, grfd2301, driver_device, 0, "Genrad",  "Futuredata 2301 Network Processor", GAME_NOT_WORKING | GAME_NO_SOUND_HW )

src/mess/mess.lst

@@ -2236,3 +2236,4 @@ softbox
 dps1
 octopus
 dsb46
+grfd2301

src/mess/mess.mak

@@ -2378,6 +2378,7 @@ $(MESSOBJ)/skeleton.a:          \
 	$(MESS_DRIVERS)/eti660.o    \
 	$(MESS_DRIVERS)/fk1.o       \
 	$(MESS_DRIVERS)/fidelz80.o  \
+	$(MESS_DRIVERS)/grfd2301.o  \
 	$(MESS_DRIVERS)/harriet.o   \
 	$(MESS_DRIVERS)/hpz80unk.o  \
 	$(MESS_DRIVERS)/ht68k.o     \