Previous

15994 Revisions

Next

r3571 Wednesday 26th November, 2008 at 09:12:29 UTC by Miodrag Milanović
[IRISHA][SAPI1][RT1715] Reenabled drivers

[src/mess]	mess.mak messdriv.c
[src/mess/drivers]	rt1715.c sapi1.c
[src/mess/includes]	sapi1.h
[src/mess/machine]	irisha.c rt1715.c sapi1.c
[src/mess/video]	irisha.c sapi1.c

src/mess/video/irisha.c

r3570	r3571
19	19	UINT8 code1,code2;
20	20	UINT8 col;
21	21	int y, x, b;
22
	22	const address_space *space = cpu_get_address_space(screen->machine->cpu[0], ADDRESS_SPACE_PROGRAM);
	23
23	24	// draw image
24	25	for (y = 0; y < 200; y++)
25	26	{
26	27	for (x = 0; x < 40; x++)
27	28	{
28		code1 = program_read_byte(0xe000 + x + y*40);
29		code2 = program_read_byte(0xc000 + x + y*40);
	29	code1 = memory_read_byte(space, 0xe000 + x + y*40);
	30	code2 = memory_read_byte(space, 0xc000 + x + y*40);
30	31	for (b = 0; b < 8; b++)
31	32	{
32	33	col = ((code1 >> b) & 0x01);

src/mess/video/sapi1.c

r3570	r3571
85	85	};
86	86
87	87	static UINT8 refresh_counter;
	88	UINT8* sapi_video_ram;
88	89
89	90	VIDEO_START( sapi1 )
90	91	{
r3570	r3571
99	100
100	101	for(y = 0; y < 24; y++ )
101	102	{
102		addr = 0x3800 + y*64;
	103	addr = y*64;
103	104	xpos = 0;
104	105	for(x = 0; x < 40; x++ )
105	106	{
106		UINT8 code = program_read_byte(addr + x);
	107	UINT8 code = sapi_video_ram[addr + x];
107	108	UINT8 attr = (code >> 6) & 3;
108	109	code &= 0x3f;
109	110	for(j = 0; j < 9; j++ )

src/mess/includes/sapi1.h

r3570	r3571
17	17	extern WRITE8_HANDLER(sapi1_keyboard_w );
18	18
19	19	/*----------- defined in video/sapi1.c -----------*/
	20	extern UINT8* sapi_video_ram;
20	21
21	22	extern VIDEO_START( sapi1 );
22	23	extern VIDEO_UPDATE( sapi1 );

src/mess/messdriv.c

r3570	r3571
1005	1005	//128u4   DRIVER (homelab4)
1006	1006
1007	1007	/* Irisha */
1008		//128u4   DRIVER (irisha)
	1008	DRIVER (irisha)
1009	1009
1010	1010	/* PK-8020 */
1011	1011	//128u4   DRIVER (korvet)
r3570	r3571
1014	1014	//128u4   DRIVER (vector06)
1015	1015
1016	1016	/* Robotron 1715 */
1017		//128u4   DRIVER (rt1715)
1018		//128u4   DRIVER (rt1715w)
	1017	DRIVER (rt1715)
	1018	DRIVER (rt1715w)
1019	1019
1020	1020	/* PP-01 */
1021	1021	//128u4   DRIVER (pp01)
r3570	r3571
1025	1025	//128u4   DRIVER (ondrav)
1026	1026
1027	1027	/* SAPI-1 */
1028		//128u4   DRIVER (sapi1)
	1028	DRIVER (sapi1)
1029	1029
1030	1030	/* Spectrum clones */
1031	1031

src/mess/machine/rt1715.c

r3570	r3571
20	20
21	21	MACHINE_RESET( rt1715 )
22	22	{
23		memory_set_bankptr(1, memory_region(machine, "main") + 0x10000);
24		memory_set_bankptr(2, mess_ram + 0x0800);
25		memory_set_bankptr(3, mess_ram);
	23	memory_set_bankptr(machine, 1, memory_region(machine, "main") + 0x10000);
	24	memory_set_bankptr(machine, 2, mess_ram + 0x0800);
	25	memory_set_bankptr(machine, 3, mess_ram);
26	26	}

src/mess/machine/irisha.c

r3570	r3571
64	64	{
65	65	UINT8 keycode;
66	66	if (irisha_keyboard_cnt!=0 && irisha_keyboard_cnt<11) {
67		keycode = input_port_read(machine, keynames[irisha_keyboard_cnt-1]) ^ 0xff;
	67	keycode = input_port_read(space->machine, keynames[irisha_keyboard_cnt-1]) ^ 0xff;
68	68	} else {
69	69	keycode = 0xff;
70	70	}
r3570	r3571
99	99
100	100	static PIC8259_SET_INT_LINE( irisha_pic_set_int_line )
101	101	{
102		cpunum_set_input_line(device->machine, 0, 0,interrupt ?  HOLD_LINE : CLEAR_LINE);
	102	cpu_set_input_line(device->machine->cpu[0], 0,interrupt ?  HOLD_LINE : CLEAR_LINE);
103	103	}
104	104
105	105	const struct pic8259_interface irisha_pic8259_config = {

src/mess/machine/sapi1.c

r3570	r3571
30	30	READ8_HANDLER (sapi1_keyboard_r )
31	31	{
32	32	UINT8 key = 0xff;
33		if ((sapi1_keyboard_mask & 0x01)!=0) { key &= input_port_read(machine,"LINE0"); }
34		if ((sapi1_keyboard_mask & 0x02)!=0) { key &= input_port_read(machine,"LINE1"); }
35		if ((sapi1_keyboard_mask & 0x04)!=0) { key &= input_port_read(machine,"LINE2"); }
36		if ((sapi1_keyboard_mask & 0x08)!=0) { key &= input_port_read(machine,"LINE3"); }
37		if ((sapi1_keyboard_mask & 0x10)!=0) { key &= input_port_read(machine,"LINE4"); }
	33	if ((sapi1_keyboard_mask & 0x01)!=0) { key &= input_port_read(space->machine,"LINE0"); }
	34	if ((sapi1_keyboard_mask & 0x02)!=0) { key &= input_port_read(space->machine,"LINE1"); }
	35	if ((sapi1_keyboard_mask & 0x04)!=0) { key &= input_port_read(space->machine,"LINE2"); }
	36	if ((sapi1_keyboard_mask & 0x08)!=0) { key &= input_port_read(space->machine,"LINE3"); }
	37	if ((sapi1_keyboard_mask & 0x10)!=0) { key &= input_port_read(space->machine,"LINE4"); }
38	38	return key;
39	39	}
40	40	WRITE8_HANDLER(sapi1_keyboard_w )

src/mess/mess.mak

r3570	r3571
370	370	$(MESSOBJ)/3do.a \
371	371	$(MESSOBJ)/mk2.a \
372	372	$(MESSOBJ)/votrax.a \
	373	$(MESSOBJ)/rt1715.a \
	374	$(MESSOBJ)/irisha.a \
	375	$(MESSOBJ)/sapi1.a \
373	376	$(MESSOBJ)/shared.a \
374	377
375	378	#   $(MESSOBJ)/acorn.a \
r3570	r3571
418	421	#   $(MESSOBJ)/homelab.a \
419	422	#   $(MESSOBJ)/hp48.a \
420	423	#   $(MESSOBJ)/intv.a \
421		#   $(MESSOBJ)/irisha.a \
422	424	#   $(MESSOBJ)/jupiter.a \
423	425	#   $(MESSOBJ)/kaypro.a \
424	426	#   $(MESSOBJ)/kim1.a \
r3570	r3571
455	457	#   $(MESSOBJ)/radio.a \
456	458	#   $(MESSOBJ)/rca.a \
457	459	#   $(MESSOBJ)/rockwell.a \
458		#   $(MESSOBJ)/rt1715.a \
459	460	#   $(MESSOBJ)/samcoupe.a \
460		#   $(MESSOBJ)/sapi1.a \
461	461	#   $(MESSOBJ)/sega.a \
462	462	#   $(MESSOBJ)/sgi.a \
463	463	#   $(MESSOBJ)/sharp.a \

src/mess/drivers/rt1715.c

r3570	r3571
18	18
19	19	WRITE8_HANDLER (rt1717_set_bank )
20	20	{
21		memory_set_bankptr(1, mess_ram);
22		memory_set_bankptr(3, mess_ram);
	21	memory_set_bankptr(space->machine, 1, mess_ram);
	22	memory_set_bankptr(space->machine, 3, mess_ram);
23	23	}
24	24
25	25	/* Address maps */

src/mess/drivers/sapi1.c

r3570	r3571
22	22	//AM_RANGE(0x2800, 0x2bff) AM_NOP // PORT 1
23	23	//AM_RANGE(0x2c00, 0x2fff) AM_NOP // PORT 2
24	24	//AM_RANGE(0x3000, 0x33ff) AM_NOP // 3214
25		AM_RANGE(0x3800, 0x3fff) AM_RAM // AND-1 (video RAM)
	25	AM_RANGE(0x3800, 0x3fff) AM_RAM AM_BASE(&sapi_video_ram) // AND-1 (video RAM)
26	26	AM_RANGE(0x4000, 0x4000) AM_RAM // REM-1
27	27	ADDRESS_MAP_END
28	28

Previous

15994 Revisions

Next

---

© 1998-2018 The MESS Team