Previous

199869 Revisions

Next

r20484 Saturday 26th January, 2013 at 12:45:37 UTC by Wilbert Pol
(MESS) poly88.c: Cleanups (nw)

[src/mess/includes]	poly88.h
[src/mess/machine]	poly88.c

trunk/src/mess/machine/poly88.c

r20483	r20484
15	15	TIMER_CALLBACK_MEMBER(poly88_state::poly88_usart_timer_callback)
16	16	{
17	17	m_int_vector = 0xe7;
18		machine().device("maincpu")->execute().set_input_line(0, HOLD_LINE);
	18	m_maincpu->set_input_line(0, HOLD_LINE);
19	19	}
20	20
21	21	WRITE8_MEMBER(poly88_state::poly88_baud_rate_w)
r20483	r20484
40	40
41	41	TIMER_CALLBACK_MEMBER(poly88_state::keyboard_callback)
42	42	{
43		static const char *const keynames[] = { "LINE0", "LINE1", "LINE2", "LINE3", "LINE4", "LINE5", "LINE6" };
44
45	43	int i;
46	44	UINT8 code;
47	45	UINT8 key_code = 0;
48		UINT8 shift = machine().root_device().ioport("LINEC")->read() & 0x02 ? 1 : 0;
49		UINT8 ctrl =  machine().root_device().ioport("LINEC")->read() & 0x01 ? 1 : 0;
	46	UINT8 shift = m_linec->read() & 0x02 ? 1 : 0;
	47	UINT8 ctrl =  m_linec->read() & 0x01 ? 1 : 0;
50	48
51	49	for(i = 0; i < 7; i++)
52	50	{
53		code =  machine().root_device().ioport(keynames[i])->read();
	51	switch ( i )
	52	{
	53	case 0: code = m_line0->read(); break;
	54	case 1: code = m_line1->read(); break;
	55	case 2: code = m_line2->read(); break;
	56	case 3: code = m_line3->read(); break;
	57	case 4: code = m_line4->read(); break;
	58	case 5: code = m_line5->read(); break;
	59	case 6: code = m_line6->read(); break;
	60	default: code = 0;
	61	}
54	62	if (code != 0)
55	63	{
56	64	if (i==0 && shift==0) {
r20483	r20484
116	124	}
117	125	if (key_code==0 && m_last_code !=0){
118	126	m_int_vector = 0xef;
119		machine().device("maincpu")->execute().set_input_line(0, HOLD_LINE);
	127	m_maincpu->set_input_line(0, HOLD_LINE);
120	128	} else {
121	129	m_last_code = key_code;
122	130	}
r20483	r20484
132	140	{
133	141	int data;
134	142	int current_level;
135		i8251_device *uart = machine().device<i8251_device>("uart");
136		serial_source_device *ser = machine().device<serial_source_device>("sercas");
137	143
138	144	//  if (!(machine().root_device().ioport("DSW0")->read() & 0x02)) /* V.24 / Tape Switch */
139	145	//{
140	146	/* tape reading */
141		if (machine().device<cassette_image_device>(CASSETTE_TAG)->get_state()&CASSETTE_PLAY)
	147	if (m_cassette->get_state()&CASSETTE_PLAY)
142	148	{
143	149	if (m_clk_level_tape)
144	150	{
145		m_previous_level = ((machine().device<cassette_image_device>(CASSETTE_TAG))->input() > 0.038) ? 1 : 0;
	151	m_previous_level = (m_cassette->input() > 0.038) ? 1 : 0;
146	152	m_clk_level_tape = 0;
147	153	}
148	154	else
149	155	{
150		current_level = ((machine().device<cassette_image_device>(CASSETTE_TAG))->input() > 0.038) ? 1 : 0;
	156	current_level = (m_cassette->input() > 0.038) ? 1 : 0;
151	157
152	158	if (m_previous_level!=current_level)
153	159	{
154	160	data = (!m_previous_level && current_level) ? 1 : 0;
155	161	//data = current_level;
156		ser->send_bit(data);
157		uart->receive_clock();
	162	m_sercas->send_bit(data);
	163	m_uart->receive_clock();
158	164
159	165	m_clk_level_tape = 1;
160	166	}
r20483	r20484
162	168	}
163	169
164	170	/* tape writing */
165		if (machine().device<cassette_image_device>(CASSETTE_TAG)->get_state()&CASSETTE_RECORD)
	171	if (m_cassette->get_state()&CASSETTE_RECORD)
166	172	{
167		data = ser->get_in_data_bit();
	173	data = m_sercas->get_in_data_bit();
168	174	data ^= m_clk_level_tape;
169		machine().device<cassette_image_device>(CASSETTE_TAG)->output(data&0x01 ? 1 : -1);
	175	m_cassette->output(data&0x01 ? 1 : -1);
170	176
171	177	if (!m_clk_level_tape)
172		uart->transmit_clock();
	178	m_uart->transmit_clock();
173	179
174	180	m_clk_level_tape = m_clk_level_tape ? 0 : 1;
175	181
r20483	r20484
179	185	m_clk_level_tape = 1;
180	186
181	187	if (!m_clk_level)
182		uart->transmit_clock();
	188	m_uart->transmit_clock();
183	189	m_clk_level = m_clk_level ? 0 : 1;
184	190	//  }
185	191	}
r20483	r20484
187	193
188	194	TIMER_CALLBACK_MEMBER(poly88_state::setup_machine_state)
189	195	{
190		i8251_device *uart = machine().device<i8251_device>("uart");
191		serial_source_device *ser = machine().device<serial_source_device>("sercas");
192		uart->connect(ser);
	196	m_uart->connect(m_sercas);
193	197	}
194	198
195	199	DRIVER_INIT_MEMBER(poly88_state,poly88)
r20483	r20484
204	208
205	209	void poly88_state::machine_reset()
206	210	{
207		machine().device("maincpu")->execute().set_irq_acknowledge_callback(poly88_irq_callback);
	211	m_maincpu->set_irq_acknowledge_callback(poly88_irq_callback);
208	212	m_intr = 0;
209	213	m_last_code = 0;
210	214
r20483	r20484
239	243	READ8_MEMBER(poly88_state::poly88_keyboard_r)
240	244	{
241	245	UINT8 retVal = m_last_code;
242		machine().device("maincpu")->execute().set_input_line(0, CLEAR_LINE);
	246	m_maincpu->set_input_line(0, CLEAR_LINE);
243	247	m_last_code = 0x00;
244	248	return retVal;
245	249	}
246	250
247	251	WRITE8_MEMBER(poly88_state::poly88_intr_w)
248	252	{
249		machine().device("maincpu")->execute().set_input_line(0, CLEAR_LINE);
	253	m_maincpu->set_input_line(0, CLEAR_LINE);
250	254	}
251	255
252	256	SNAPSHOT_LOAD( poly88 )

trunk/src/mess/includes/poly88.h

r20483	r20484
8	8	#define POLY88_H_
9	9
10	10	#include "machine/i8251.h"
	11	#include "imagedev/cassette.h"
11	12	#include "imagedev/snapquik.h"
12	13
13	14	class poly88_state : public driver_device
14	15	{
15	16	public:
16	17	poly88_state(const machine_config &mconfig, device_type type, const char *tag)
17		: driver_device(mconfig, type, tag) ,
18		m_video_ram(*this, "video_ram"){ }
	18	: driver_device(mconfig, type, tag)
	19	, m_video_ram(*this, "video_ram")
	20	, m_maincpu(*this, "maincpu")
	21	, m_uart(*this, "uart")
	22	, m_sercas(*this, "sercas")
	23	, m_cassette(*this, CASSETTE_TAG)
	24	, m_linec(*this, "LINEC")
	25	, m_line0(*this, "LINE0")
	26	, m_line1(*this, "LINE1")
	27	, m_line2(*this, "LINE2")
	28	, m_line3(*this, "LINE3")
	29	, m_line4(*this, "LINE4")
	30	, m_line5(*this, "LINE5")
	31	, m_line6(*this, "LINE6")
	32	{ }
19	33
20	34	required_shared_ptr<UINT8> m_video_ram;
21	35	UINT8 *m_FNT;
r20483	r20484
40	54	TIMER_CALLBACK_MEMBER(poly88_cassette_timer_callback);
41	55	TIMER_CALLBACK_MEMBER(setup_machine_state);
42	56	DECLARE_WRITE_LINE_MEMBER(poly88_usart_rxready);
	57
	58	protected:
	59	required_device<cpu_device> m_maincpu;
	60	required_device<i8251_device> m_uart;
	61	required_device<serial_source_device> m_sercas;
	62	required_device<cassette_image_device> m_cassette;
	63	required_ioport m_linec;
	64	required_ioport m_line0;
	65	required_ioport m_line1;
	66	required_ioport m_line2;
	67	required_ioport m_line3;
	68	required_ioport m_line4;
	69	required_ioport m_line5;
	70	required_ioport m_line6;
43	71	};
44	72
45	73

Previous

199869 Revisions

Next

---

© 1997-2024 The MAME Team