shattered / gist:5648339

Created May 25, 2013

diff --git a/src/emu/video/pc_cga.c b/src/emu/video/pc_cga.c
index e16684c..d178dc2 100644
--- a/src/emu/video/pc_cga.c
+++ b/src/emu/video/pc_cga.c
@@ -80,7 +80,7 @@
 #include "video/mc6845.h"
 #include "video/cgapal.h"
 
-#define VERBOSE_CGA 0       /* CGA (Color Graphics Adapter) */
+#define VERBOSE_CGA 1       /* CGA (Color Graphics Adapter) */
 
 #define CGA_LOG(N,M,A) \
   do { \
@@ -92,6 +92,16 @@
 		} \
 	} while (0)
 
+#define CGA_LOG2(N,M,A) \
+	do { \
+		if(VERBOSE_CGA>=N) \
+		{ \
+			if( M ) \
+				logerror("%11.6f at %s: %-24s",machine.time().as_double(),machine.describe_context(),(char*)M ); \
+			logerror A; \
+		} \
+	} while (0)
+
 /***************************************************************************
 
     Static declarations
@@ -146,6 +156,15 @@ INPUT_PORTS_START( pcvideo_mc1502 )
 	PORT_BIT ( 0xE0, 0x00, IPT_UNUSED ) /* Chipset is always IBM */
 INPUT_PORTS_END
 
+INPUT_PORTS_START( pcvideo_poisk1 )
+	PORT_START( "pcvideo_cga_config" )
+	PORT_BIT ( 0x03, 0x01, IPT_UNUSED ) /* via poisk2 */
+	PORT_CONFNAME( 0x1C, 0x00, "CGA monitor type")
+	PORT_CONFSETTING(0x00, "Colour RGB")
+	PORT_CONFSETTING(0x04, "Mono RGB")
+	PORT_BIT ( 0xE0, 0xA0, IPT_UNUSED ) /* Chipset is always Poisk-1 */
+INPUT_PORTS_END
+
 
 /* Dipswitch for font selection */
 #define CGA_FONT        (cga.config_input_port->read()&3)
@@ -166,6 +185,7 @@ INPUT_PORTS_END
 #define CGA_CHIPSET_PC200       0x40    /* PC200 in CGA mode */
 #define CGA_CHIPSET_ATI         0x60    /* ATI (supports Plantronics) */
 #define CGA_CHIPSET_PARADISE    0x80    /* Paradise (used in PC1640) */
+#define CGA_CHIPSET_POISK1      0xA0    /* Poisk-1 CGA emulator */
 
 
 static DECLARE_READ8_HANDLER( pc_cga8_r );
@@ -176,7 +196,9 @@ static WRITE_LINE_DEVICE_HANDLER( cga_vsync_changed );
 static VIDEO_START( pc1512 );
 static SCREEN_UPDATE_RGB32( mc6845_pc1512 );
 
+static VIDEO_START( cga_poisk1 );
 static VIDEO_START( cga_poisk2 );
+static SCREEN_UPDATE_RGB32( cga_poisk1 );
 static SCREEN_UPDATE_RGB32( cga_poisk2 );
 static VIDEO_START( cga_mc1502 );
 
@@ -217,6 +239,22 @@ MACHINE_CONFIG_FRAGMENT( pcvideo_cga32k )
 	MCFG_VIDEO_START( pc_cga32k )
 MACHINE_CONFIG_END
 
+MACHINE_CONFIG_FRAGMENT( pcvideo_poisk1 )
+	MCFG_SCREEN_ADD(CGA_SCREEN_NAME, RASTER)
+	MCFG_SCREEN_RAW_PARAMS(XTAL_15MHz,912,0,640,262,0,200)
+	MCFG_SCREEN_UPDATE_STATIC( cga_poisk1 )
+
+	/* XXX dummy */
+	MCFG_MC6845_ADD(CGA_MC6845_NAME, MC6845, XTAL_15MHz/8, mc6845_cga_intf)
+
+	/* XXX verify palette */
+	MCFG_PALETTE_LENGTH(/* CGA_PALETTE_SETS * 16*/ 65536 )
+	MCFG_PALETTE_INIT(pc_cga)
+
+	MCFG_VIDEO_START( cga_poisk1 )
+MACHINE_CONFIG_END
+
+
 MACHINE_CONFIG_FRAGMENT( pcvideo_poisk2 )
 	MCFG_FRAGMENT_ADD( pcvideo_cga )
 	MCFG_VIDEO_START( cga_poisk2 )
@@ -272,7 +310,7 @@ static struct
 	UINT8   p3df;
 
 	size_t  videoram_size;
-	UINT8  *videoram;
+	UINT8  *videoram, *videoram_base;
 	UINT8 is_superimpose;
 } cga;
 
@@ -1674,3 +1712,50 @@ static SCREEN_UPDATE_RGB32( mc6845_pc1512 )
 
 	return 0;
 }
+
+/*
+ * Poisk-1 does not have a real mc6845 and always runs in graphics mode.
+ * Text mode is emulated by BIOS.
+ */
+static VIDEO_START( cga_poisk1 )
+{
+	address_space &space = machine.firstcpu->space( AS_PROGRAM );
+	rectangle visarea;
+
+	cga.videoram_size = 0x8000;
+	cga.videoram = cga.videoram_base = auto_alloc_array(machine, UINT8, cga.videoram_size);
+
+	space.install_readwrite_bank(0xb8000, 0xbffff, "bank11" );
+	machine.root_device().membank("bank11")->set_base(cga.videoram_base);
+
+	cga.config_input_port = machine.root_device().ioport(":pcvideo_cga_config" );
+	cga.videoram = cga.videoram_base + 0x4000;
+
+#if 0
+	cga.mode_control = 0x1E;
+	cga.color_select = 0x0F;
+	cga.update_row = cga_gfx_1bpp_update_row;
+#else
+	cga.mode_control = 0x0A;
+	cga.color_select = 0x20;
+	cga.update_row = cga_gfx_2bpp_update_row;
+#endif
+
+	pc_cga_set_palette_luts();
+}
+
+static SCREEN_UPDATE_RGB32( cga_poisk1 )
+{
+	mc6845_device *mc6845 = screen.machine().device<mc6845_device>(CGA_MC6845_NAME);
+	UINT16 y, ma;
+
+	ma = 0;
+
+	/* for each row in the visible region */
+	for (y = cliprect.min_y; y <= cliprect.max_y; y++)
+	{
+		cga_update_row(mc6845, bitmap, cliprect, ma, y, y, 40, 0/*unused*/, NULL);
+		if (y&1) ma += 40;
+	}
+	return 0;
+}
diff --git a/src/emu/video/pc_cga.h b/src/emu/video/pc_cga.h
index 416e349..546220c 100644
--- a/src/emu/video/pc_cga.h
+++ b/src/emu/video/pc_cga.h
@@ -11,6 +11,7 @@ MACHINE_CONFIG_EXTERN( pcvideo_cga32k );
 MACHINE_CONFIG_EXTERN( pcvideo_mc1502 );
 INPUT_PORTS_EXTERN( pcvideo_cga );
 INPUT_PORTS_EXTERN( pcvideo_mc1502 );
+INPUT_PORTS_EXTERN( pcvideo_poisk1 );
 SCREEN_UPDATE_RGB32( mc6845_cga );
 VIDEO_START( pc_cga_superimpose );
 
@@ -24,4 +25,5 @@ DECLARE_READ16_HANDLER( pc1512_16le_r );
 DECLARE_WRITE16_HANDLER( pc1512_16le_w );
 DECLARE_WRITE16_HANDLER( pc1512_videoram16le_w );
 
+MACHINE_CONFIG_EXTERN( pcvideo_poisk1 );
 MACHINE_CONFIG_EXTERN( pcvideo_poisk2 );
diff --git a/src/mess/drivers/pc.c b/src/mess/drivers/pc.c
index b03e8fd..63732d6 100644
--- a/src/mess/drivers/pc.c
+++ b/src/mess/drivers/pc.c
@@ -72,6 +72,7 @@ video HW too.
 #include "machine/pit8253.h"
 #include "video/pc_vga.h"
 #include "video/pc_cga.h"
+#include "video/cgapal.h"
 #include "video/pc_aga.h"
 #include "video/pc_t1t.h"
 
@@ -188,6 +189,26 @@ static ADDRESS_MAP_START(mc1702_io, AS_IO, 16, pc_state )
 	AM_RANGE(0xaaa0, 0xaaaf) AM_RAM
 	AM_RANGE(0xfff0, 0xffff) AM_READ8(mc1702_entry_r, 0xffff)
 ADDRESS_MAP_END
+ 
+static ADDRESS_MAP_START( poisk1_map, AS_PROGRAM, 8, pc_state )
+	ADDRESS_MAP_UNMAP_HIGH
+	AM_RANGE(0x00000, 0x17fff) AM_RAMBANK("bank10")	/* 96K on mainboard */
+//	AM_RANGE(0xb8000, 0xbffff) AM_RAMBANK("bank11")	/* video memory */
+	AM_RANGE(0xc0000, 0xc1fff) AM_ROM		/* BASIC */
+	AM_RANGE(0xc0000, 0xfbfff) AM_NOP
+	AM_RANGE(0xfc000, 0xfffff) AM_ROM
+ADDRESS_MAP_END
+
+static ADDRESS_MAP_START( poisk1_io, AS_IO, 8, pc_state )
+	AM_RANGE(0x0020, 0x0021) AM_DEVREADWRITE("pic8259", pic8259_device, read, write)
+	AM_RANGE(0x0028, 0x002B) AM_READWRITE(poisk1_aux_r, poisk1_aux_w)
+	AM_RANGE(0x0040, 0x0043) AM_DEVREADWRITE_LEGACY("pit8253", pit8253_r, pit8253_w)
+	// can't use regular AM_DEVREADWRITE, because THIS IS SPARTA!
+	// 1st PPI occupies ports 60, 69, 6A and 6B; 2nd PPI -- 68, 61, 62 and 63.
+	AM_RANGE(0x0060, 0x006F) AM_READWRITE(poisk1_ppi_r, poisk1_ppi_w)
+	AM_RANGE(0x03D0, 0x03DF) AM_READWRITE(poisk1_cga_r, poisk1_cga_w)
+ADDRESS_MAP_END
+
 
 static ADDRESS_MAP_START( zenith_map, AS_PROGRAM, 8, pc_state )
 	ADDRESS_MAP_UNMAP_HIGH
@@ -820,6 +841,25 @@ static INPUT_PORTS_START( ibmpcjr )
 	PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("NumLock") PORT_CODE(KEYCODE_NUMLOCK)
 INPUT_PORTS_END
 
+static INPUT_PORTS_START( poisk1 )          /* fix */
+	PORT_START("IN0") /* IN0 */
+	PORT_BIT ( 0xf0, 0xf0,   IPT_UNUSED )
+	PORT_BIT ( 0x08, 0x08,   IPT_CUSTOM ) PORT_VBLANK("screen")
+	PORT_BIT ( 0x07, 0x07,   IPT_UNUSED )
+
+	PORT_START("DSW0") /* IN1 */
+	PORT_BIT ( 0xff, 0x21,   IPT_UNUSED )
+
+	PORT_START("DSW1") /* IN2 */
+	PORT_BIT ( 0xff, 0x00,   IPT_UNUSED )
+
+	PORT_START("DSW2") /* IN3 */
+	PORT_BIT ( 0xff, 0x03,   IPT_UNUSED )
+
+//	PORT_INCLUDE( poisk1_keyboard )
+	PORT_INCLUDE( pcvideo_poisk1 )
+INPUT_PORTS_END
+
 static INPUT_PORTS_START( mc1502 )          /* fix */
 	PORT_START("IN0") /* IN0 */
 	PORT_BIT ( 0xf0, 0xf0,   IPT_UNUSED )
@@ -1760,6 +1800,36 @@ static MACHINE_CONFIG_START( iskr3104, pc_state )
 MACHINE_CONFIG_END
 
 
+static MACHINE_CONFIG_START( poisk1, pc_state )
+	/* basic machine hardware */
+	MCFG_CPU_PC(poisk1, poisk1, I8088, 5000000, pcjr_frame_interrupt)	/* XXX verify frame interrupt */
+
+	MCFG_MACHINE_START_OVERRIDE(pc_state,poisk1)
+	MCFG_MACHINE_RESET_OVERRIDE(pc_state,pc)
+
+	MCFG_PIT8253_ADD( "pit8253", mc1502_pit8253_config )
+	MCFG_PIC8259_ADD( "pic8259", INPUTLINE("maincpu", 0), VCC, NULL )
+
+	MCFG_I8255_ADD( "ppi8255", poisk1_ppi8255_interface )
+	MCFG_I8255_ADD( "ppi8255n2", poisk1_ppi8255_interface_2 )
+
+	MCFG_FRAGMENT_ADD( pcvideo_poisk1 )
+	MCFG_GFXDECODE(ibm5150)
+
+	/* sound hardware */
+	MCFG_SPEAKER_STANDARD_MONO("mono")
+	MCFG_SOUND_ADD("speaker", SPEAKER_SOUND, 0)
+	MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.80)
+
+	/* cassette -- XXX verify */
+	MCFG_CASSETTE_ADD( "cassette", ibm5150_cassette_interface )
+
+	/* internal ram */
+	MCFG_RAM_ADD(RAM_TAG)
+	MCFG_RAM_DEFAULT_SIZE("96K")					/* XXX 96 base + 512 on expansion card */
+MACHINE_CONFIG_END
+
+
 static MACHINE_CONFIG_START( poisk2, pc_state )
 	/* basic machine hardware */
 	MCFG_CPU_PC(pc16, pc16, I8086, 4772720, pc_frame_interrupt)
@@ -2370,23 +2440,26 @@ ROM_END
 
 ROM_START( poisk1 )
 	ROM_REGION16_LE(0x100000,"maincpu", 0)
-	ROM_LOAD( "b_hd_v11.rf2", 0xc8000, 0x0800, CRC(a19c39b2) SHA1(57faa56b320abf801fedbed578cf97d253e5b777)) // HDD controller ver 1.1
-	ROM_LOAD( "b942_5mb.bin", 0x00000, 0x0800, CRC(a3cfa240) SHA1(0b0aa1ce839a957153bfbbe70310480ca9fe21b6)) // HDD controller ver 1.4
 
-	ROM_LOAD( "b_ngmd_n.rf2", 0x0000, 0x0800, CRC(967e172a) SHA1(95117c40fd9f624fee08ccf37f615b16ff249688)) // Floppy
-	ROM_LOAD( "b_ngmd_t.rf2", 0x0000, 0x0800, CRC(630010b1) SHA1(50876fe4f5f4f32a242faa70f9154574cd315ec4)) // Floppy
 	ROM_SYSTEM_BIOS(0, "v89", "1989")
-	ROMX_LOAD( "biosp1s.rf4",    0xfe000, 0x2000, CRC(1a85f671) SHA1(f0e59b2c4d92164abca55a96a58071ce869ff988), ROM_BIOS(1)) // Main BIOS
+	ROMX_LOAD( "biosp1s.rf4", 0xfe000, 0x2000, CRC(1a85f671) SHA1(f0e59b2c4d92164abca55a96a58071ce869ff988), ROM_BIOS(1)) // Main BIOS
 	ROM_SYSTEM_BIOS(1, "v91", "1991")
 	ROMX_LOAD( "poisk_1991.bin", 0xfe000, 0x2000, CRC(d61c56fd) SHA1(de202e1f7422d585a1385a002a4fcf9d756236e5), ROM_BIOS(2))
-	ROM_SYSTEM_BIOS(2, "t1", "Test I/O")
-	ROMX_LOAD( "p1_t_i_o.rf4", 0xfe000, 0x2000, CRC(18a781de) SHA1(7267970ee27e3ea1d972bee8e74b17bac1051619), ROM_BIOS(3))
-	ROM_SYSTEM_BIOS(3, "t2", "Test MB")
-	ROMX_LOAD( "p1_t_pls.rf4", 0xfe000, 0x2000, CRC(c8210ffb) SHA1(f2d1a6c90e4708bcc56186b2fb906fa852667084), ROM_BIOS(4))
-	ROM_SYSTEM_BIOS(4, "t3", "Test RAM")
-	ROMX_LOAD( "p1_t_ram.rf4", 0xfe000, 0x2000, CRC(e42f5a61) SHA1(ce2554eae8f0d2b6d482890dd198cf7e2d29c655), ROM_BIOS(5))
-
-	ROM_LOAD( "boot_net.rf4", 0x0000, 0x2000, CRC(316c2030) SHA1(d043325596455772252e465b85321f1b5c529d0b)) // NET BUIS
+
+	ROM_LOAD( "b_hd_v11.rf2", 0x00000, 0x0800, CRC(a19c39b2) SHA1(57faa56b320abf801fedbed578cf97d253e5b777)) // HDD controller ver 1.1
+	ROM_LOAD( "b942_5mb.bin", 0x00000, 0x0800, CRC(a3cfa240) SHA1(0b0aa1ce839a957153bfbbe70310480ca9fe21b6)) // HDD controller ver 1.4
+	ROM_LOAD( "b_ngmd_n.rf2", 0x00000, 0x0800, CRC(967e172a) SHA1(95117c40fd9f624fee08ccf37f615b16ff249688)) // Floppy
+	ROM_LOAD( "b_ngmd_t.rf2", 0x00000, 0x0800, CRC(630010b1) SHA1(50876fe4f5f4f32a242faa70f9154574cd315ec4)) // Floppy
+	// 0xc0000, sets 80x25 text
+	ROM_LOAD( "boot_net.rf4", 0x00000, 0x2000, CRC(316c2030) SHA1(d043325596455772252e465b85321f1b5c529d0b)) // NET BIOS
+
+	// 0xc0000, sets 640x200 graphics. "Test #4"
+	ROM_LOAD( "p1_t_i_o.rf4", 0x00000, 0x2000, CRC(18a781de) SHA1(7267970ee27e3ea1d972bee8e74b17bac1051619)) // I/O test
+	// 0xc0000
+	ROM_LOAD( "p1_t_pls.rf4", 0x00000, 0x2000, CRC(c8210ffb) SHA1(f2d1a6c90e4708bcc56186b2fb906fa852667084)) // MB test
+	// 0xc0000, sets 640x200 graphics. "Test #3"
+	ROM_LOAD( "p1_t_ram.rf4", 0x00000, 0x2000, CRC(e42f5a61) SHA1(ce2554eae8f0d2b6d482890dd198cf7e2d29c655)) // RAM test
+
 	ROM_REGION(0x2000,"gfx1", ROMREGION_ERASE00)
 	ROM_LOAD( "poisk.cga", 0x0000, 0x0800, CRC(f6eb39f0) SHA1(0b788d8d7a8e92cc612d044abcb2523ad964c200))
 ROM_END
@@ -2569,7 +2642,7 @@ ROM_END
 
 ***************************************************************************/
 
-/*    YEAR  NAME        PARENT      COMPAT      MACHINE     INPUT       INIT        COMPANY            FULLNAME */
+/*    YEAR  NAME        PARENT      COMPAT      MACHINE     INPUT                 INIT        COMPANY            FULLNAME */
 COMP( 1984, dgone,      ibm5150,    0,          pccga,      pccga, pc_state,      pccga,      "Data General", "Data General/One" , GAME_NOT_WORKING)/* CGA, 2x 3.5" disk drives */
 COMP( 1985, bw230,      ibm5150,    0,          pccga,      bondwell, pc_state,   bondwell,   "Bondwell Holding", "BW230 (PRO28 Series)", 0 )
 COMP( 1988, europc,     ibm5150,    0,          europc,     europc, europc_pc_state,     europc,     "Schneider Rdf. AG", "EURO PC", GAME_NOT_WORKING)
@@ -2595,7 +2668,7 @@ COMP( 1987, ec1840,     ibm5150,    0,          iskr1031,   pccga, pc_state,
 COMP( 1987, ec1841,     ibm5150,    0,          ec1841,     pccga, pc_state,      pccga,      "<unknown>", "EC-1841", GAME_NOT_WORKING)
 COMP( 1989, ec1845,     ibm5150,    0,          iskr1031,   pccga, pc_state,      pccga,      "<unknown>", "EC-1845", GAME_NOT_WORKING)
 COMP( 1989, mk88,       ibm5150,    0,          iskr1031,   pccga, pc_state,      pccga,      "<unknown>", "MK-88", GAME_NOT_WORKING)
-COMP( 1990, poisk1,     ibm5150,    0,          iskr1031,   pccga, pc_state,      pccga,      "<unknown>", "Poisk-1", GAME_NOT_WORKING)
+COMP( 1990, poisk1,     ibm5150,    0,          poisk1,     poisk1, pc_state,     poisk1,     "<unknown>", "Poisk-1", 0)
 COMP( 1991, poisk2,     ibm5150,    0,          poisk2,     pccga, pc_state,      pccga,      "<unknown>", "Poisk-2", GAME_NOT_WORKING)
 COMP( 1990, mc1702,     ibm5150,    0,          mc1702,     mc1702, pc_state,     mc1702,     "<unknown>", "Elektronika MC-1702", GAME_NOT_WORKING)
 COMP( 1989, mc1502,     ibm5150,    0,          mc1502,     mc1502, pc_state,     mc1502,     "NPO Microprocessor", "Elektronika MC-1502", GAME_NOT_WORKING | GAME_NO_SOUND)
diff --git a/src/mess/includes/pc.h b/src/mess/includes/pc.h
index b74beb0..d246f06 100644
--- a/src/mess/includes/pc.h
+++ b/src/mess/includes/pc.h
@@ -87,6 +87,7 @@ public:
  	DECLARE_READ8_MEMBER(mc1702_entry_r);
 	DECLARE_DRIVER_INIT(mc1502);
 	DECLARE_DRIVER_INIT(mc1702);
+	DECLARE_DRIVER_INIT(poisk1);
 	DECLARE_DRIVER_INIT(bondwell);
 	DECLARE_DRIVER_INIT(pcjr);
 	DECLARE_DRIVER_INIT(pccga);
@@ -99,6 +100,7 @@ public:
 	DECLARE_MACHINE_RESET(pcjr);
 	DECLARE_MACHINE_START(mc1502);
 	DECLARE_MACHINE_START(mc1702);
+	DECLARE_MACHINE_START(poisk1);
 	TIMER_CALLBACK_MEMBER(pcjr_delayed_pic8259_irq);
 	TIMER_CALLBACK_MEMBER(pcjr_keyb_signal_callback);
 	TIMER_CALLBACK_MEMBER(pcjr_fdc_watchdog);
@@ -142,6 +144,15 @@ public:
 	DECLARE_WRITE8_MEMBER(mc1502_wd17xx_aux_w);
 	DECLARE_READ8_MEMBER(mc1502_wd17xx_drq_r);
 	DECLARE_READ8_MEMBER(mc1502_wd17xx_motor_r);
+	DECLARE_READ8_MEMBER(poisk1_aux_r);
+	DECLARE_WRITE8_MEMBER(poisk1_aux_w);
+	DECLARE_READ8_MEMBER(poisk1_cga_r);
+	DECLARE_WRITE8_MEMBER(poisk1_cga_w);
+	DECLARE_READ8_MEMBER(poisk1_ppi_r);
+	DECLARE_WRITE8_MEMBER(poisk1_ppi_w);
+	DECLARE_WRITE8_MEMBER(poisk1_vram_w);
+	DECLARE_WRITE8_MEMBER(poisk1_ppi_portb_w);
+	DECLARE_WRITE8_MEMBER(poisk1_ppi2_porta_w);
 	DECLARE_WRITE8_MEMBER(pcjr_fdc_dor_w);
 	DECLARE_READ8_MEMBER(pcjx_port_1ff_r);
 	DECLARE_WRITE8_MEMBER(pcjx_port_1ff_w);
@@ -202,5 +213,7 @@ extern const i8255_interface pc_ppi8255_interface;
 extern const i8255_interface pcjr_ppi8255_interface;
 extern const i8255_interface mc1502_ppi8255_interface;
 extern const i8255_interface mc1502_ppi8255_interface_2;
+extern const i8255_interface poisk1_ppi8255_interface;
+extern const i8255_interface poisk1_ppi8255_interface_2;
 
 #endif /* PC_H_ */
diff --git a/src/mess/machine/pc.c b/src/mess/machine/pc.c
index d166683..a543f9b 100644
--- a/src/mess/machine/pc.c
+++ b/src/mess/machine/pc.c
@@ -52,7 +52,7 @@
 		} \
 	} while (0)
 
-#define VERBOSE_DBG 0       /* general debug messages */
+#define VERBOSE_DBG 1       /* general debug messages */
 
 #define DBG_LOG(N,M,A) \
 	do { \
@@ -652,6 +652,26 @@ void pc_state::pcjr_keyb_init()
 }
 
 
+I8255_INTERFACE( poisk1_ppi8255_interface )
+{
+	DEVCB_NULL,
+	DEVCB_NULL,
+	DEVCB_NULL,
+	DEVCB_DRIVER_MEMBER(pc_state,poisk1_ppi_portb_w),
+	DEVCB_NULL,
+	DEVCB_NULL
+};
+
+I8255_INTERFACE( poisk1_ppi8255_interface_2 )
+{
+	DEVCB_NULL,
+	DEVCB_DRIVER_MEMBER(pc_state,poisk1_ppi2_porta_w),
+	DEVCB_NULL,				// keyboard poll - in
+	DEVCB_NULL,
+	DEVCB_NULL,				// keyboard poll - in
+	DEVCB_NULL				// "cga" control
+};
+
 
 /**********************************************************
  *
@@ -1245,6 +1265,106 @@ READ8_MEMBER(pc_state::pcjx_port_1ff_r)
 }
 
 /*
+ * Poisk-1 doesn't have a mc6845 and always runs in graphics mode.  Text mode is emulated by BIOS;
+ * NMI is triggered on access to video memory and to mc6845 ports.  Address and data are latched into:
+ *
+ * Port 28H (offset 0) -- lower 8 bits of address
+ * Port 29H (offset 1) -- high  -//- and mode bits
+ * Port 2AH (offset 2) -- data
+ */
+
+READ8_MEMBER(pc_state::poisk1_cga_r)
+{
+	space.machine().firstcpu->set_input_line(INPUT_LINE_NMI, ASSERT_LINE);
+	return 0;
+}
+
+WRITE8_MEMBER(pc_state::poisk1_cga_w)
+{
+	space.machine().firstcpu->set_input_line(INPUT_LINE_NMI, ASSERT_LINE);
+}
+
+READ8_MEMBER(pc_state::poisk1_aux_r)
+{
+	UINT8 data = 0;
+	DBG_LOG(1,"p1aux",("R %.2x $%02x\n", 0x28+offset, data));
+	space.machine().firstcpu->set_input_line(INPUT_LINE_NMI, CLEAR_LINE);
+	return data;
+}
+
+WRITE8_MEMBER(pc_state::poisk1_aux_w)
+{
+	DBG_LOG(1,"p1aux",("W %.2x $%02x\n", 0x28+offset, data));
+}
+
+WRITE8_MEMBER(pc_state::poisk1_vram_w)
+{
+	DBG_LOG(1,"vram",("W %.4x $%02x\n", offset, data));
+	space.machine().firstcpu->set_input_line(INPUT_LINE_NMI, ASSERT_LINE);
+}
+
+READ8_MEMBER(pc_state::poisk1_ppi_r)
+{
+	switch (offset) {
+		case 0:
+			return machine().device<i8255_device>("ppi8255")->read(space, 0);
+		case 9:
+		case 10:
+		case 11:
+			return machine().device<i8255_device>("ppi8255")->read(space, offset - 8);
+		case 8:
+			return machine().device<i8255_device>("ppi8255n2")->read(space, 0);
+		case 1:
+		case 2:
+		case 3:
+			return machine().device<i8255_device>("ppi8255n2")->read(space, offset);
+		default:
+			DBG_LOG(1,"p1ppi",("R %.2x (unimp)\n", 0x60+offset));
+			return 0;
+	}
+}
+
+WRITE8_MEMBER(pc_state::poisk1_ppi_w)
+{
+	switch (offset) {
+		case 0:
+			return machine().device<i8255_device>("ppi8255")->write(space, 0, data);
+		case 9:
+		case 10:
+		case 11:
+			return machine().device<i8255_device>("ppi8255")->write(space, offset - 8, data);
+		case 8:
+			return machine().device<i8255_device>("ppi8255n2")->write(space, 0, data);
+		case 1:
+		case 2:
+		case 3:
+			return machine().device<i8255_device>("ppi8255n2")->write(space, offset, data);
+		default:
+			DBG_LOG(1,"p1ppi",("W %.2x $%02x (unimp)\n", 0x60+offset, data));
+			return;
+	}
+}
+
+WRITE8_MEMBER(pc_state::poisk1_ppi2_porta_w)
+{
+	address_space &space_prg = machine().firstcpu->space(AS_PROGRAM);
+
+	DBG_LOG(1,"p1_68H",("W $%02x\n", data));
+	// NMI DISABLE
+	if (BIT(data, 3)) {
+		space_prg.install_write_bank(0xb8000, 0xbbfff, "bank11");
+	} else {
+		space_prg.install_write_handler(0xb8000, 0xbbfff, write8_delegate(FUNC(pc_state::poisk1_vram_w), this) );
+	}
+}
+
+WRITE8_MEMBER(pc_state::poisk1_ppi_portb_w)
+{
+	pit8253_gate2_w(machine().device("pit8253"), BIT(data, 0));
+	pc_speaker_set_spkrdata( data & 0x02 );
+}
+
+/*
  * MC1502 uses a FD1793 clone instead of uPD765
  */
 
@@ -1442,6 +1562,11 @@ DRIVER_INIT_MEMBER(pc_state,mc1702)
 	mess_init_pc_common(NULL);
 }
 
+DRIVER_INIT_MEMBER(pc_state,poisk1)
+{
+	mess_init_pc_common(NULL);
+}
+
 DRIVER_INIT_MEMBER(pc_state,t1000hx)
 {
 	mess_init_pc_common(pc_set_keyb_int);
@@ -1530,6 +1655,14 @@ MACHINE_START_MEMBER(pc_state,mc1702)
 	m_pic8259 = machine().device<pic8259_device>("pic8259");
 	m_pit8253 = machine().device("pit8253");
 }
+ 
+MACHINE_START_MEMBER(pc_state,poisk1)
+{
+	m_maincpu->set_irq_acknowledge_callback(device_irq_acknowledge_delegate(FUNC(pc_state::pc_irq_callback),this));
+
+	m_pic8259 = machine().device<pic8259_device>("pic8259");
+	m_pit8253 = machine().device("pit8253");
+}
 
 
 MACHINE_START_MEMBER(pc_state,pcjr)