Previous

199869 Revisions

Next

r40532 Friday 28th August, 2015 at 16:59:04 UTC by R. Belmont
Merge pull request #293 from JoakimLarsson/m0165_fcc1_3 M0165 fcc1 3

[/trunk]	.gitignore
[hash]	megadriv.xml x1_cass.xml
[src/emu/drivers]	emudummy.c
[src/emu/netlist]	nl_base.h nl_setup.h
[src/emu/netlist/plib]	pstring.c pstring.h
[src/emu/netlist/solver]	nld_solver.h
[src/emu/sound]	c352.c c352.h tms5110.c tms5110.h tms5220.c tms5220.h
[src/mame]	arcade.lst
[src/mame/drivers]	fcrash.c lethalj.c midxunit.c namcofl.c namconb1.c namcond1.c namcos11.c namcos12.c namcos22.c namcos23.c quantum.c
[src/mame/includes]	chihiro.h
[src/mame/machine]	xbox.c
[src/mame/video]	chihiro.c
[src/mess/drivers]	mc1000.c
[src/osd/modules/debugger/win]	debugviewinfo.c debugwininfo.c editwininfo.c
[src/osd/windows]	input.c output.c window.c winmain.c winutil.c winutil.h

trunk/.gitignore

r249043	r249044
1	1	*~
2	2	/*
3		!/*/
	3	/*/
	4	!/3rdparty/
	5	!/artwork/
	6	!/docs/
	7	!/hash/
	8	!/hlsl/
	9	!/keymaps/
	10	!/nl_examples/
	11	!/samples/
	12	!/scripts/
	13	!/src/
	14	!/tests/
	15	!/web/
4	16	!/.gitattributes
5	17	!/.gitignore
6	18	!/.travis.yml
7	19	!/makefile
8		!/mame.doxygen
	20	!/mame.doxygen
9	21	!/*.md
10		/cfg
11		/diff
12		/ini
13		/inp
14		/nvram
15		/obj
16		/roms
17		/snap
18	22	src/regtests/chdman/temp
19	23	src/regtests/jedutil/output
20		/sta
21		*.pyc
22		/build
23		/documentation
		No newline at end of file
	24	*.pyc
		No newline at end of file

trunk/hash/megadriv.xml

r249043	r249044
16204	16204	<info name="release" value="19920710"/>
16205	16205	<info name="alt_title" value="炎の闘球児 ドッジ弾平"/>
16206	16206	<part name="cart" interface="megadriv_cart">
	16207	<feature name="slot" value="rom_eeprom"/>
16207	16208	<dataarea name="rom" width="16" endianness="big" size="524288">
16208	16209	<rom name="mpr-14856.bin" size="524288" crc="630f07c6" sha1="ebdf20fd8aaeb3c7ec97302089b3330265118cf0" offset="0x000000"/>
16209	16210	</dataarea>
r249043	r249044
18270	18271	<info name="release" value="19941021"/>
18271	18272	<info name="alt_title" value="ロックマン メガワールド"/>
18272	18273	<part name="cart" interface="megadriv_cart">
	18274	<feature name="slot" value="rom_sram"/>
18273	18275	<dataarea name="rom" width="16" endianness="big" size="2097152">
18274	18276	<rom name="rockman mega world (jpn) (alt).bin" size="2097152" crc="85c956ef" sha1="a435ac53589a29dbb655662c942daab425d3f6bd" offset="0x000000"/>
18275	18277	</dataarea>
	18278	<dataarea name="sram" size="16384">
	18279	</dataarea>
18276	18280	</part>
18277	18281	</software>
18278	18282
r249043	r249044
20362	20366	<info name="release" value="19911205"/>
20363	20367	<info name="alt_title" value="忍者武雷伝説"/>
20364	20368	<part name="cart" interface="megadriv_cart">
	20369	<feature name="slot" value="rom_eeprom"/>
20365	20370	<dataarea name="rom" width="16" endianness="big" size="1048576">
20366	20371	<rom name="ninja burai densetsu (jpn).bin" size="1048576" crc="a8d828a0" sha1="9cc3419ca7ecaf0d106aa896ffc0266c7145fff7" offset="0x000000"/>
20367	20372	</dataarea>

trunk/hash/x1_cass.xml

r249043	r249044
12	12
13	13	<softwarelist name="x1_cass" description="Sharp X1 cassettes">
14	14
	15	<software name="alamein">
	16	<description>El Alamein</description>
	17	<year>1983</year>
	18	<publisher>ポニカ (Pony Canyon)</publisher>
	19	<info name="alt_title" value="エル・アラメイン"/>
	20	<info name="usage" value="In BASIC, type LOAD and then RUN"/>
	21	<sharedfeat name="requirement" value="x1_flop:tapbas"/>
	22	<part name="cass" interface="x1_cass">
	23	<dataarea name="side1" size="12742140">
	24	<rom name="alamein.wav" size="12742140" crc="04e00f60" sha1="42f3ef356fdb67ddd0fbdb57e473c23d267f9bf4" offset="0" />
	25	</dataarea>
	26	</part>
	27	</software>
	28
15	29	<software name="blckonyx" supported="no">
16	30	<description>The Black Onyx</description>
17	31	<year>1985</year>
r249043	r249044
76	90	</dataarea>
77	91	</part>
78	92	</software>
	93
	94	<software name="cball">
	95	<description>Cannon Ball</description>
	96	<year>1983</year>
	97	<publisher>ハドソン (Hudson Soft)</publisher>
	98	<info name="alt_title" value="キャノンボール"/>
	99	<part name="cass" interface="x1_cass">
	100	<dataarea name="side1" size="4857558">
	101	<rom name="cball.wav" size="4857558" crc="4405cf21" sha1="769a43d97f69b5d72347ca8b72547e464b9d059b" offset="0" />
	102	</dataarea>
	103	</part>
	104	</software>
79	105
80	106	<software name="cprowsp">
81	107	<description>Champion ProWres Special</description>
r249043	r249044
296	322	</dataarea>
297	323	</part>
298	324	</software>
	325
	326	<software name="machgjoe">
	327	<description>Ginkou Goutou - Machinegun Joe vs. the Mafia</description>
	328	<year>1983</year>
	329	<publisher>ハドソン (Hudson Soft)</publisher>
	330	<info name="alt_title" value="銀行強盗 マシンガンジョー VS ザ・マフィア"/>
	331	<part name="cass" interface="x1_cass">
	332	<dataarea name="side1" size="15591932">
	333	<rom name="machgjoe.wav" size="15591932" crc="3769199a" sha1="81614c317f432055f2c5fdcce51438de9fbdad7f" offset="0" />
	334	</dataarea>
	335	</part>
	336	</software>
299	337
300	338	<software name="mappy">
301	339	<description>Mappy</description>

trunk/src/emu/drivers/emudummy.c

r249043	r249044
33	33	ROM_END
34	34
35	35
36		GAME( 1900, __dummy, 0, __dummy, 0, driver_device, 0, ROT0, "(none)", "Dummy", GAME_NO_SOUND )
	36	GAME( 1900, __dummy, 0, __dummy, 0, driver_device, 0, ROT0, "(none)", "Dummy", MACHINE_NO_SOUND )

trunk/src/emu/netlist/nl_base.h

r249043	r249044
1233	1233	pnamedlist_t<core_device_t *> m_started_devices;
1234	1234	#endif
1235	1235
	1236	ATTR_COLD plog_base<NL_DEBUG> &log() { return m_log; }
1236	1237	ATTR_COLD const plog_base<NL_DEBUG> &log() const { return m_log; }
1237	1238
1238	1239	protected:

trunk/src/emu/netlist/nl_setup.h

r249043	r249044
198	198
199	199	void model_parse(const pstring &model, model_map_t &map);
200	200
	201	plog_base<NL_DEBUG> &log() { return netlist().log(); }
201	202	const plog_base<NL_DEBUG> &log() const { return netlist().log(); }
202	203
203	204	protected:

trunk/src/emu/netlist/plib/pstring.c

r249043	r249044
14	14
15	15	#include "pstring.h"
16	16	#include "palloc.h"
	17	#include "plists.h"
17	18
18	19	template<>
19	20	pstr_t pstring_t<putf8_traits>::m_zero = pstr_t(0);
r249043	r249044
305	306	// static stuff ...
306	307	// ----------------------------------------------------------------------------------------
307	308
	309	/*
	310	* Cached allocation of string memory
	311	*
	312	* This improves startup performance by 30%.
	313	*/
	314
	315	#if 1
	316
	317	static pstack_t<pstr_t *> *stk = NULL;
	318
	319	static inline unsigned countleadbits(unsigned x)
	320	{
	321	#ifndef count_leading_zeros
	322	unsigned msk;
	323	unsigned ret;
	324	if (x < 0x100)
	325	{
	326	msk = 0x80;
	327	ret = 24;
	328	}
	329	else if (x < 0x10000)
	330	{
	331	msk = 0x8000;
	332	ret = 16;
	333	}
	334	else if (x < 0x1000000)
	335	{
	336	msk = 0x800000;
	337	ret = 8;
	338	}
	339	else
	340	{
	341	msk = 0x80000000;
	342	ret = 0;
	343	}
	344	while ((msk & x) == 0 && ret < 31)
	345	{
	346	msk = msk >> 1;
	347	ret++;
	348	}
	349	return ret;
	350	#else
	351	return count_leading_zeros(x);
	352	#endif
	353	}
	354
308	355	template<typename F>
309	356	void pstring_t<F>::sfree(pstr_t *s)
310	357	{
311	358	s->m_ref_count--;
312	359	if (s->m_ref_count == 0 && s != &m_zero)
313	360	{
	361	if (stk != NULL)
	362	{
	363	unsigned sn= ((32 - countleadbits(s->len())) + 1) / 2;
	364	stk[sn].push(s);
	365	}
	366	else
	367	pfree_array(((char *)s));
	368	//_mm_free(((char *)s));
	369	}
	370	}
	371
	372	template<typename F>
	373	pstr_t *pstring_t<F>::salloc(int n)
	374	{
	375	if (stk == NULL)
	376	stk = palloc_array(pstack_t<pstr_t *>, 17);
	377	pstr_t *p;
	378	unsigned sn= ((32 - countleadbits(n)) + 1) / 2;
	379	unsigned size = sizeof(pstr_t) + (1<<(sn * 2)) + 1;
	380	if (stk[sn].empty())
	381	p = (pstr_t *) palloc_array(char, size);
	382	else
	383	{
	384	//printf("%u %u\n", sn, (unsigned) stk[sn].count());
	385	p = stk[sn].pop();
	386	}
	387
	388	//  str_t *p = (str_t *) _mm_malloc(size, 8);
	389	p->init(n);
	390	return p;
	391	}
	392	template<typename F>
	393	void pstring_t<F>::resetmem()
	394	{
	395	if (stk != NULL)
	396	{
	397	for (unsigned i=0; i<=16; i++)
	398	{
	399	for (; stk[i].count() > 0; )
	400	pfree_array(stk[i].pop());
	401	}
	402	pfree_array(stk);
	403	stk = NULL;
	404	}
	405	}
	406
	407
	408	#else
	409	template<typename F>
	410	void pstring_t<F>::sfree(pstr_t *s)
	411	{
	412	s->m_ref_count--;
	413	if (s->m_ref_count == 0 && s != &m_zero)
	414	{
314	415	pfree_array(((char *)s));
315	416	//_mm_free(((char *)s));
316	417	}
r249043	r249044
331	432	{
332	433	// Release the 0 string
333	434	}
	435	#endif
334	436
	437
335	438	// ----------------------------------------------------------------------------------------
336	439	// pstring ...
337	440	// ----------------------------------------------------------------------------------------

trunk/src/emu/netlist/plib/pstring.h

r249043	r249044
22	22	struct pstr_t
23	23	{
24	24	//str_t() : m_ref_count(1), m_len(0) { m_str[0] = 0; }
25		pstr_t(const int alen)
	25	pstr_t(const unsigned alen)
26	26	{
27	27	init(alen);
28	28	}
29		void init(const int alen)
	29	void init(const unsigned alen)
30	30	{
31	31	m_ref_count = 1;
32	32	m_len = alen;
33	33	m_str[0] = 0;
34	34	}
35	35	char *str() { return &m_str[0]; }
36		int len() const  { return m_len; }
	36	unsigned len() const  { return m_len; }
37	37	int m_ref_count;
38	38	private:
39		int m_len;
	39	unsigned m_len;
40	40	char m_str[1];
41	41	};
42	42
r249043	r249044
548	548	class pfmt_writer_t
549	549	{
550	550	public:
551		pfmt_writer_t()  { }
	551	pfmt_writer_t() : m_enabled(true) { }
552	552	virtual ~pfmt_writer_t() { }
553	553
554	554	ATTR_COLD void operator ()(const char *fmt) const
555	555	{
556		if (build_enabled) vdowrite(fmt);
	556	if (build_enabled && m_enabled) vdowrite(fmt);
557	557	}
558	558
559	559	template<typename T1>
560	560	ATTR_COLD void operator ()(const char *fmt, const T1 &v1) const
561	561	{
562		if (build_enabled) vdowrite(pfmt(fmt)(v1));
	562	if (build_enabled && m_enabled) vdowrite(pfmt(fmt)(v1));
563	563	}
564	564
565	565	template<typename T1, typename T2>
566	566	ATTR_COLD void operator ()(const char *fmt, const T1 &v1, const T2 &v2) const
567	567	{
568		if (build_enabled) vdowrite(pfmt(fmt)(v1)(v2));
	568	if (build_enabled && m_enabled) vdowrite(pfmt(fmt)(v1)(v2));
569	569	}
570	570
571	571	template<typename T1, typename T2, typename T3>
572	572	ATTR_COLD void operator ()(const char *fmt, const T1 &v1, const T2 &v2, const T3 &v3) const
573	573	{
574		if (build_enabled) vdowrite(pfmt(fmt)(v1)(v2)(v3));
	574	if (build_enabled && m_enabled) vdowrite(pfmt(fmt)(v1)(v2)(v3));
575	575	}
576	576
577	577	template<typename T1, typename T2, typename T3, typename T4>
578	578	ATTR_COLD void operator ()(const char *fmt, const T1 &v1, const T2 &v2, const T3 &v3, const T4 &v4) const
579	579	{
580		if (build_enabled) vdowrite(pfmt(fmt)(v1)(v2)(v3)(v4));
	580	if (build_enabled && m_enabled) vdowrite(pfmt(fmt)(v1)(v2)(v3)(v4));
581	581	}
582	582
583	583	template<typename T1, typename T2, typename T3, typename T4, typename T5>
584	584	ATTR_COLD void operator ()(const char *fmt, const T1 &v1, const T2 &v2, const T3 &v3, const T4 &v4, const T5 &v5) const
585	585	{
586		if (build_enabled) vdowrite(pfmt(fmt)(v1)(v2)(v3)(v4)(v5));
	586	if (build_enabled && m_enabled) vdowrite(pfmt(fmt)(v1)(v2)(v3)(v4)(v5));
587	587	}
588	588
	589	void set_enabled(const bool v)
	590	{
	591	m_enabled = v;
	592	}
	593
	594	bool is_enabled() const { return m_enabled; }
	595
589	596	protected:
590	597	virtual void vdowrite(const pstring &ls) const {}
591	598
	599	private:
	600	bool m_enabled;
	601
592	602	};
593	603
594	604	template <plog_level L, bool build_enabled = true>

trunk/src/emu/netlist/solver/nld_solver.h

r249043	r249044
135	135	ATTR_COLD int get_net_idx(net_t *net);
136	136
137	137	inline eSolverType type() const { return m_type; }
138		const plog_base<NL_DEBUG> &log() const { return netlist().log(); }
	138	plog_base<NL_DEBUG> &log() { return netlist().log(); }
139	139
140	140	virtual void log_stats();
141	141

trunk/src/emu/sound/c352.c

r249043	r249044
13	13	Supports 8-bit linear and 8-bit muLaw samples
14	14	Output: digital, 16 bit, 4 channels
15	15	Output sample rate is the input clock / (288 * 2).
	16
	17	superctr: The clock divider appears to be configurable for each system.
	18	Below is a list of the divider values followed by the systems that use it.
	19
	20	* 228: System 11.
	21	* 288: System 22, Super 22, NB-1/2, ND-1, FL.
	22	* 296: System 23, Super 23.
	23	* 332: System 12.
16	24	*/
17	25
18	26	#include "emu.h"
r249043	r249044
468	476
469	477	void c352_device::device_start()
470	478	{
471		int i, divider;
	479	int i;
472	480	double x_max = 32752.0;
473	481	double y_max = 127.0;
474	482	double u = 10.0;
r249043	r249044
476	484	// find our direct access
477	485	m_direct = &space().direct();
478	486
479		switch(m_divider)
480		{
481		case C352_DIVIDER_228:
482		divider=228;
483		break;
484		case C352_DIVIDER_288:
485		default:
486		divider=288;
487		break;
488		case C352_DIVIDER_332:
489		divider=332;
490		break;
491		}
	487	m_sample_rate_base = clock() / m_divider;
492	488
493		m_sample_rate_base = clock() / divider;
494
495	489	m_stream = machine().sound().stream_alloc(*this, 0, 4, m_sample_rate_base);
496	490
497	491	// generate mulaw table for mulaw format samples

trunk/src/emu/sound/c352.h

r249043	r249044
6	6	#define __C352_H__
7	7
8	8	//**************************************************************************
9		//  CONSTANTS
10		//**************************************************************************
11
12		enum
13		{
14		C352_DIVIDER_228 = 0,
15		C352_DIVIDER_288 = 1,
16		C352_DIVIDER_332 = 2
17		};
18
19		//**************************************************************************
20	9	//  INTERFACE CONFIGURATION MACROS
21	10	//**************************************************************************
22	11

trunk/src/emu/sound/tms5110.c

r249043	r249044
14	14
15	15	Todo:
16	16	- implement CS
17		- implement missing commands
18	17	- TMS5110_CMD_TEST_TALK is only partially implemented
19	18
20	19	TMS5100:
r249043	r249044
212	211	{
213	212	save_item(NAME(m_variant));
214	213
215		save_item(NAME(m_fifo));
216		save_item(NAME(m_fifo_head));
217		save_item(NAME(m_fifo_tail));
218		save_item(NAME(m_fifo_count));
219
220	214	save_item(NAME(m_PDC));
221	215	save_item(NAME(m_CTL_pins));
222	216	save_item(NAME(m_SPEN));
r249043	r249044
241	235	save_item(NAME(m_old_frame_pitch_idx));
242	236	save_item(NAME(m_old_frame_k_idx));
243	237	save_item(NAME(m_old_zpar));
	238	save_item(NAME(m_old_uv_zpar));
244	239	#endif
245	240	save_item(NAME(m_current_energy));
246	241	save_item(NAME(m_current_pitch));
r249043	r249044
310	305	}
311	306	#endif
312	307
313
314	308	/******************************************************************************************
315	309
316		FIFO_data_write -- handle bit data write to the TMS5110 (as a result of toggling M0 pin)
	310	extract_bits -- extract a specific number of bits from the VSM
317	311
318	312	******************************************************************************************/
319		void tms5110_device::FIFO_data_write(int data)
320		{
321		/* add this bit to the FIFO */
322		if (m_fifo_count < FIFO_SIZE)
323		{
324		m_fifo[m_fifo_tail] = (data&1); /* set bit to 1 or 0 */
325	313
326		m_fifo_tail = (m_fifo_tail + 1) % FIFO_SIZE;
327		m_fifo_count++;
328
329		if (DEBUG_5110) logerror("Added bit to FIFO (size=%2d)\n", m_fifo_count);
330		}
331		else
332		{
333		if (DEBUG_5110) logerror("Ran out of room in the FIFO!\n");
334		}
335		}
336
337		/******************************************************************************************
338
339		extract_bits -- extract a specific number of bits from the FIFO
340
341		******************************************************************************************/
342
343	314	int tms5110_device::extract_bits(int count)
344	315	{
345	316	int val = 0;
346		if (DEBUG_5110) logerror("requesting %d bits from fifo: ", count);
347		while (count--)
	317	if (DEBUG_5110) logerror("requesting %d bits", count);
	318	for (int i = 0; i < count; i++)
348	319	{
349		val = (val << 1) | (m_fifo[m_fifo_head] & 1);
350		m_fifo_count--;
351		m_fifo_head = (m_fifo_head + 1) % FIFO_SIZE;
	320	val = (val<<1) | new_int_read();
	321	if (DEBUG_5110) logerror("bit read: %d\n", val&1);
352	322	}
353	323	if (DEBUG_5110) logerror("returning: %02x\n", val);
354	324	return val;
355	325	}
356	326
357		void tms5110_device::request_bits(int no)
358		{
359		for (int i = 0; i < no; i++)
360		{
361		UINT8 data = new_int_read();
362		if (DEBUG_5110) logerror("bit added to fifo: %d\n", data);
363		FIFO_data_write(data);
364		}
365		}
366	327
367	328	void tms5110_device::perform_dummy_read()
368	329	{
r249043	r249044
389	350	int i, bitout;
390	351	INT32 this_sample;
391	352
392		/* if we're not speaking, fill with nothingness */
393		if (!m_TALKD)
394		goto empty;
395
396	353	/* loop until the buffer is full or we've stopped speaking */
397		while ((size > 0) && m_TALKD)
	354	while (size > 0)
398	355	{
399		/* if it is the appropriate time to update the old energy/pitch indices,
400		* i.e. when IP=7, PC=12, T=17, subcycle=2, do so. Since IP=7 PC=12 T=17
401		* is JUST BEFORE the transition to IP=0 PC=0 T=0 sybcycle=(0 or 1),
402		* which happens 4 T-cycles later), we change on the latter.
403		* The indices are updated here ~12 PCs before the new frame is applied.
404		*/
405		/** TODO: the patents 4331836, 4335277, and 4419540 disagree about the timing of this **/
406		if ((m_IP == 0) && (m_PC == 0) && (m_subcycle < 2))
	356	if(m_TALKD) // speaking
407	357	{
408		m_OLDE = (m_new_frame_energy_idx == 0);
409		m_OLDP = (m_new_frame_pitch_idx == 0);
410		}
	358	/* if we're ready for a new frame to be applied, i.e. when IP=0, PC=12, Sub=1
	359	* (In reality, the frame was really loaded incrementally during the entire IP=0
	360	* PC=x time period, but it doesn't affect anything until IP=0 PC=12 happens)
	361	*/
	362	if ((m_IP == 0) && (m_PC == 12) && (m_subcycle == 1))
	363	{
	364	// HACK for regression testing, be sure to comment out before release!
	365	//m_RNG = 0x1234;
	366	// end HACK
411	367
412		/* if we're ready for a new frame to be applied, i.e. when IP=0, PC=12, Sub=1
413		* (In reality, the frame was really loaded incrementally during the entire IP=0
414		* PC=x time period, but it doesn't affect anything until IP=0 PC=12 happens)
415		*/
416		if ((m_IP == 0) && (m_PC == 12) && (m_subcycle == 1))
417		{
418		// HACK for regression testing, be sure to comment out before release!
419		//m_RNG = 0x1234;
420		// end HACK
421
422	368	#ifdef PERFECT_INTERPOLATION_HACK
423		/* remember previous frame energy, pitch, and coefficients */
424		m_old_frame_energy_idx = m_new_frame_energy_idx;
425		m_old_frame_pitch_idx = m_new_frame_pitch_idx;
426		for (i = 0; i < m_coeff->num_k; i++)
427		m_old_frame_k_idx[i] = m_new_frame_k_idx[i];
	369	/* remember previous frame energy, pitch, and coefficients */
	370	m_old_frame_energy_idx = m_new_frame_energy_idx;
	371	m_old_frame_pitch_idx = m_new_frame_pitch_idx;
	372	for (i = 0; i < m_coeff->num_k; i++)
	373	m_old_frame_k_idx[i] = m_new_frame_k_idx[i];
428	374	#endif
429	375
430		/* Parse a new frame into the new_target_energy, new_target_pitch and new_target_k[] */
431		parse_frame();
432		#ifdef DEBUG_PARSE_FRAME_DUMP
433		fprintf(stderr,"\n");
	376	/* Parse a new frame into the new_target_energy, new_target_pitch and new_target_k[] */
	377	parse_frame();
	378
	379	// if the new frame is unvoiced (or silenced via ZPAR), be sure to zero out the k5-k10 parameters
	380	// NOTE: this is probably the bug the tms5100/tmc0280 has, pre-rev D, I think.
	381	// GUESS: Pre-rev D versions start zeroing k5-k10 immediately upon new frame load regardless of interpolation inhibit
	382	// I.e. ZPAR = /TALKD || (PC>5&&P=0)
	383	// GUESS: D and later versions only start or stop zeroing k5-k10 at the IP7->IP0 transition AFTER the frame
	384	// I.e. ZPAR = /TALKD || (PC>5&&OLDP)
	385	#ifdef PERFECT_INTERPOLATION_HACK
	386	m_old_uv_zpar = m_uv_zpar;
	387	m_old_zpar = m_zpar; // unset old zpar on new frame
434	388	#endif
435		/* if the new frame is unvoiced (or silenced via ZPAR), be sure to zero out the k5-k10 parameters */
436		m_uv_zpar = NEW_FRAME_UNVOICED_FLAG | m_zpar;
	389	m_zpar = 0;
	390	//m_uv_zpar = (OLD_FRAME_UNVOICED_FLAG||m_zpar); // GUESS: fixed version in tmc0280d/tms5100a/cd280x/tms5110
	391	m_uv_zpar = (NEW_FRAME_UNVOICED_FLAG||m_zpar); // GUESS: buggy version in tmc0280/tms5100
437	392
438		/* if the new frame is a stop frame, unset both TALK and SPEN. TALKD remains active while the energy is ramping to 0. */
439		if (NEW_FRAME_STOP_FLAG == 1)
440		{
441		m_TALK = m_SPEN = 0;
442		}
	393	/* if the new frame is a stop frame, unset both TALK and SPEN (via TCON). TALKD remains active while the energy is ramping to 0. */
	394	if (NEW_FRAME_STOP_FLAG == 1)
	395	{
	396	m_TALK = m_SPEN = 0;
	397	}
443	398
444		/* in all cases where interpolation would be inhibited, set the inhibit flag; otherwise clear it.
445		Interpolation inhibit cases:
446		* Old frame was voiced, new is unvoiced
447		* Old frame was silence/zero energy, new has nonzero energy
448		* Old frame was unvoiced, new is voiced (note this is the case on the patent but may not be correct on the real final chip)
449		*/
450		if ( ((OLD_FRAME_UNVOICED_FLAG == 0) && (NEW_FRAME_UNVOICED_FLAG == 1))
451		|| ((OLD_FRAME_UNVOICED_FLAG == 1) && (NEW_FRAME_UNVOICED_FLAG == 0)) /* this line needs further investigation, starwars tie fighters may sound better without it */
452		|| ((OLD_FRAME_SILENCE_FLAG == 1) && (NEW_FRAME_SILENCE_FLAG == 0)) )
453		m_inhibit = 1;
454		else // normal frame, normal interpolation
455		m_inhibit = 0;
	399	/* in all cases where interpolation would be inhibited, set the inhibit flag; otherwise clear it.
	400	Interpolation inhibit cases:
	401	* Old frame was voiced, new is unvoiced
	402	* Old frame was silence/zero energy, new has nonzero energy
	403	* Old frame was unvoiced, new is voiced (note this is the case on the patent but may not be correct on the real final chip)
	404	*/
	405	if ( ((OLD_FRAME_UNVOICED_FLAG == 0) && (NEW_FRAME_UNVOICED_FLAG == 1))
	406	|| ((OLD_FRAME_UNVOICED_FLAG == 1) && (NEW_FRAME_UNVOICED_FLAG == 0)) /* this line needs further investigation, starwars tie fighters may sound better without it */
	407	|| ((OLD_FRAME_SILENCE_FLAG == 1) && (NEW_FRAME_SILENCE_FLAG == 0)) )
	408	m_inhibit = 1;
	409	else // normal frame, normal interpolation
	410	m_inhibit = 0;
456	411
457	412	#ifdef DEBUG_GENERATION
458		/* Debug info for current parsed frame */
459		fprintf(stderr, "OLDE: %d; OLDP: %d; ", m_OLDE, m_OLDP);
460		fprintf(stderr,"Processing frame: ");
461		if (m_inhibit == 0)
462		fprintf(stderr, "Normal Frame\n");
463		else
464		fprintf(stderr,"Interpolation Inhibited\n");
465		fprintf(stderr,"*** current Energy, Pitch and Ks =      %04d,   %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d\n",m_current_energy, m_current_pitch, m_current_k[0], m_current_k[1], m_current_k[2], m_current_k[3], m_current_k[4], m_current_k[5], m_current_k[6], m_current_k[7], m_current_k[8], m_current_k[9]);
466		fprintf(stderr,"*** target Energy(idx), Pitch, and Ks = %04d(%x),%04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d\n",
467		(m_coeff->energytable[m_new_frame_energy_idx] * (1-m_zpar)),
468		m_new_frame_energy_idx,
469		(m_coeff->pitchtable[m_new_frame_pitch_idx] * (1-m_zpar)),
470		(m_coeff->ktable[0][m_new_frame_k_idx[0]] * (1-m_zpar)),
471		(m_coeff->ktable[1][m_new_frame_k_idx[1]] * (1-m_zpar)),
472		(m_coeff->ktable[2][m_new_frame_k_idx[2]] * (1-m_zpar)),
473		(m_coeff->ktable[3][m_new_frame_k_idx[3]] * (1-m_zpar)),
474		(m_coeff->ktable[4][m_new_frame_k_idx[4]] * (1-m_uv_zpar)),
475		(m_coeff->ktable[5][m_new_frame_k_idx[5]] * (1-m_uv_zpar)),
476		(m_coeff->ktable[6][m_new_frame_k_idx[6]] * (1-m_uv_zpar)),
477		(m_coeff->ktable[7][m_new_frame_k_idx[7]] * (1-m_uv_zpar)),
478		(m_coeff->ktable[8][m_new_frame_k_idx[8]] * (1-m_uv_zpar)),
479		(m_coeff->ktable[9][m_new_frame_k_idx[9]] * (1-m_uv_zpar)) );
	413	/* Debug info for current parsed frame */
	414	fprintf(stderr, "OLDE: %d; OLDP: %d; ", m_OLDE, m_OLDP);
	415	fprintf(stderr,"Processing new frame: ");
	416	if (m_inhibit == 0)
	417	fprintf(stderr, "Normal Frame\n");
	418	else
	419	fprintf(stderr,"Interpolation Inhibited\n");
	420	fprintf(stderr,"*** current Energy, Pitch and Ks =      %04d,   %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d\n",m_current_energy, m_current_pitch, m_current_k[0], m_current_k[1], m_current_k[2], m_current_k[3], m_current_k[4], m_current_k[5], m_current_k[6], m_current_k[7], m_current_k[8], m_current_k[9]);
	421	fprintf(stderr,"*** target Energy(idx), Pitch, and Ks = %04d(%x),%04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d\n",
	422	(m_coeff->energytable[m_new_frame_energy_idx] * (1-m_zpar)),
	423	m_new_frame_energy_idx,
	424	(m_coeff->pitchtable[m_new_frame_pitch_idx] * (1-m_zpar)),
	425	(m_coeff->ktable[0][m_new_frame_k_idx[0]] * (1-m_zpar)),
	426	(m_coeff->ktable[1][m_new_frame_k_idx[1]] * (1-m_zpar)),
	427	(m_coeff->ktable[2][m_new_frame_k_idx[2]] * (1-m_zpar)),
	428	(m_coeff->ktable[3][m_new_frame_k_idx[3]] * (1-m_zpar)),
	429	(m_coeff->ktable[4][m_new_frame_k_idx[4]] * (1-m_uv_zpar)),
	430	(m_coeff->ktable[5][m_new_frame_k_idx[5]] * (1-m_uv_zpar)),
	431	(m_coeff->ktable[6][m_new_frame_k_idx[6]] * (1-m_uv_zpar)),
	432	(m_coeff->ktable[7][m_new_frame_k_idx[7]] * (1-m_uv_zpar)),
	433	(m_coeff->ktable[8][m_new_frame_k_idx[8]] * (1-m_uv_zpar)),
	434	(m_coeff->ktable[9][m_new_frame_k_idx[9]] * (1-m_uv_zpar)) );
480	435	#endif
481	436
482		}
483		else // Not a new frame, just interpolate the existing frame.
484		{
485		int inhibit_state = ((m_inhibit==1)&&(m_IP != 0)); // disable inhibit when reaching the last interp period, but don't overwrite the m_inhibit value
486		#ifdef PERFECT_INTERPOLATION_HACK
487		int samples_per_frame = m_subc_reload?175:266; // either (13 A cycles + 12 B cycles) * 7 interps for normal SPEAK/SPKEXT, or (13*2 A cycles + 12 B cycles) * 7 interps for SPKSLOW
488		//int samples_per_frame = m_subc_reload?200:304; // either (13 A cycles + 12 B cycles) * 8 interps for normal SPEAK/SPKEXT, or (13*2 A cycles + 12 B cycles) * 8 interps for SPKSLOW
489		int current_sample = (m_subcycle - m_subc_reload)+(m_PC*(3-m_subc_reload))+((m_subc_reload?25:38)*((m_IP-1)&7));
490		//fprintf(stderr, "CS: %03d", current_sample);
491		// reset the current energy, pitch, etc to what it was at frame start
492		m_current_energy = (m_coeff->energytable[m_old_frame_energy_idx] * (1-m_zpar));
493		m_current_pitch = (m_coeff->pitchtable[m_old_frame_pitch_idx] * (1-m_old_zpar));
494		for (i = 0; i < 4; i++)
495		m_current_k[i] = (m_coeff->ktable[i][m_old_frame_k_idx[i]] * (1-m_old_zpar));
496		for (i = 4; i < m_coeff->num_k; i++)
497		m_current_k[i] = (m_coeff->ktable[i][m_old_frame_k_idx[i]] * (1-m_uv_zpar));
498		// now adjust each value to be exactly correct for each of the samples per frame
499		if (m_IP != 0) // if we're still interpolating...
500		{
501		m_current_energy += ((((m_coeff->energytable[m_new_frame_energy_idx] * (1-m_zpar)) - m_current_energy)*(1-inhibit_state))*current_sample)/samples_per_frame;
502		m_current_pitch += ((((m_coeff->pitchtable[m_new_frame_pitch_idx] * (1-m_zpar)) - m_current_pitch)*(1-inhibit_state))*current_sample)/samples_per_frame;
503		for (i = 0; i < m_coeff->num_k; i++)
504		m_current_k[i] += ((((m_coeff->ktable[i][m_new_frame_k_idx[i]] * (1-((i<4)?m_zpar:m_uv_zpar))) - m_current_k[i])*(1-inhibit_state))*current_sample)/samples_per_frame;
505	437	}
506		else // we're done, play this frame for 1/8 frame.
	438	else // Not a new frame, just interpolate the existing frame.
507	439	{
508		m_current_energy = (m_coeff->energytable[m_new_frame_energy_idx] * (1-m_zpar));
509		m_current_pitch = (m_coeff->pitchtable[m_new_frame_pitch_idx] * (1-m_zpar));
	440	int inhibit_state = ((m_inhibit==1)&&(m_IP != 0)); // disable inhibit when reaching the last interp period, but don't overwrite the m_inhibit value
	441	#ifdef PERFECT_INTERPOLATION_HACK
	442	int samples_per_frame = m_subc_reload?175:266; // either (13 A cycles + 12 B cycles) * 7 interps for normal SPEAK/SPKEXT, or (13*2 A cycles + 12 B cycles) * 7 interps for SPKSLOW
	443	//int samples_per_frame = m_subc_reload?200:304; // either (13 A cycles + 12 B cycles) * 8 interps for normal SPEAK/SPKEXT, or (13*2 A cycles + 12 B cycles) * 8 interps for SPKSLOW
	444	int current_sample = (m_subcycle - m_subc_reload)+(m_PC*(3-m_subc_reload))+((m_subc_reload?25:38)*((m_IP-1)&7));
	445	//fprintf(stderr, "CS: %03d", current_sample);
	446	// reset the current energy, pitch, etc to what it was at frame start
	447	m_current_energy = (m_coeff->energytable[m_old_frame_energy_idx] * (1-m_old_zpar));
	448	m_current_pitch = (m_coeff->pitchtable[m_old_frame_pitch_idx] * (1-m_old_zpar));
510	449	for (i = 0; i < m_coeff->num_k; i++)
511		m_current_k[i] = (m_coeff->ktable[i][m_new_frame_k_idx[i]] * (1-((i<4)?m_zpar:m_uv_zpar)));
512		}
	450	m_current_k[i] = (m_coeff->ktable[i][m_old_frame_k_idx[i]] * (1-((i<4)?m_old_zpar:m_old_uv_zpar)));
	451	// now adjust each value to be exactly correct for each of the samples per frame
	452	if (m_IP != 0) // if we're still interpolating...
	453	{
	454	m_current_energy = (m_current_energy + (((m_coeff->energytable[m_new_frame_energy_idx] - m_current_energy)*(1-inhibit_state))*current_sample)/samples_per_frame)*(1-m_zpar);
	455	m_current_pitch = (m_current_pitch + (((m_coeff->pitchtable[m_new_frame_pitch_idx] - m_current_pitch)*(1-inhibit_state))*current_sample)/samples_per_frame)*(1-m_zpar);
	456	for (i = 0; i < m_coeff->num_k; i++)
	457	m_current_k[i] = (m_current_k[i] + (((m_coeff->ktable[i][m_new_frame_k_idx[i]] - m_current_k[i])*(1-inhibit_state))*current_sample)/samples_per_frame)*(1-((i<4)?m_zpar:m_uv_zpar));
	458	}
	459	else // we're done, play this frame for 1/8 frame.
	460	{
	461	m_current_energy = (m_coeff->energytable[m_new_frame_energy_idx] * (1-m_zpar));
	462	m_current_pitch = (m_coeff->pitchtable[m_new_frame_pitch_idx] * (1-m_zpar));
	463	for (i = 0; i < m_coeff->num_k; i++)
	464	m_current_k[i] = (m_coeff->ktable[i][m_new_frame_k_idx[i]] * (1-((i<4)?m_zpar:m_uv_zpar)));
	465	}
513	466	#else
514		//Updates to parameters only happen on subcycle '2' (B cycle) of PCs.
515		if (m_subcycle == 2)
516		{
517		switch(m_PC)
	467	//Updates to parameters only happen on subcycle '2' (B cycle) of PCs.
	468	if (m_subcycle == 2)
518	469	{
519		case 0: /* PC = 0, B cycle, write updated energy */
520		m_current_energy += ((((m_coeff->energytable[m_new_frame_energy_idx] * (1-m_zpar)) - m_current_energy)*(1-inhibit_state)) INTERP_SHIFT);
521		break;
522		case 1: /* PC = 1, B cycle, write updated pitch */
523		m_current_pitch += ((((m_coeff->pitchtable[m_new_frame_pitch_idx] * (1-m_zpar)) - m_current_pitch)*(1-inhibit_state)) INTERP_SHIFT);
524		break;
525		case 2: case 3: case 4: case 5: case 6: case 7: case 8: case 9: case 10: case 11:
526		/* PC = 2 through 11, B cycle, write updated K1 through K10 */
527		m_current_k[m_PC-2] += ((((m_coeff->ktable[m_PC-2][m_new_frame_k_idx[m_PC-2]] * (1-(((m_PC-2)<4)?m_zpar:m_uv_zpar))) - m_current_k[m_PC-2])*(1-inhibit_state)) INTERP_SHIFT);
528		break;
529		case 12: /* PC = 12, do nothing */
530		break;
	470	switch(m_PC)
	471	{
	472	case 0: /* PC = 0, B cycle, write updated energy */
	473	m_current_energy = (m_current_energy + (((m_coeff->energytable[m_new_frame_energy_idx] - m_current_energy)*(1-inhibit_state)) INTERP_SHIFT))*(1-m_zpar);
	474	break;
	475	case 1: /* PC = 1, B cycle, write updated pitch */
	476	m_current_pitch = (m_current_pitch + (((m_coeff->pitchtable[m_new_frame_pitch_idx] - m_current_pitch)*(1-inhibit_state)) INTERP_SHIFT))*(1-m_zpar);
	477	break;
	478	case 2: case 3: case 4: case 5: case 6: case 7: case 8: case 9: case 10: case 11:
	479	/* PC = 2 through 11, B cycle, write updated K1 through K10 */
	480	m_current_k[m_PC-2] = (m_current_k[m_PC-2] + (((m_coeff->ktable[m_PC-2][m_new_frame_k_idx[m_PC-2]] - m_current_k[m_PC-2])*(1-inhibit_state)) INTERP_SHIFT))*(((m_PC-2)>4)?(1-m_uv_zpar):(1-m_zpar));
	481	break;
	482	case 12: /* PC = 12 */
	483	/* we should NEVER reach this point, PC=12 doesn't have a subcycle 2 */
	484	break;
	485	}
531	486	}
532		}
533	487	#endif
534		}
	488	}
535	489
536		// calculate the output
537		if (OLD_FRAME_UNVOICED_FLAG == 1)
538		{
539		// generate unvoiced samples here
540		if (m_RNG & 1)
541		m_excitation_data = ~0x3F; /* according to the patent it is (either + or -) half of the maximum value in the chirp table, so either 01000000(0x40) or 11000000(0xC0)*/
542		else
543		m_excitation_data = 0x40;
544		}
545		else /* (OLD_FRAME_UNVOICED_FLAG == 0) */
546		{
547		// generate voiced samples here
548		/* US patent 4331836 Figure 14B shows, and logic would hold, that a pitch based chirp
549		* function has a chirp/peak and then a long chain of zeroes.
550		* The last entry of the chirp rom is at address 0b110011 (51d), the 52nd sample,
551		* and if the address reaches that point the ADDRESS incrementer is
552		* disabled, forcing all samples beyond 51d to be == 51d
553		*/
554		if (m_pitch_count >= 51)
555		m_excitation_data = (INT8)m_coeff->chirptable[51];
556		else /*m_pitch_count < 51*/
557		m_excitation_data = (INT8)m_coeff->chirptable[m_pitch_count];
558		}
	490	// calculate the output
	491	if (OLD_FRAME_UNVOICED_FLAG == 1)
	492	{
	493	// generate unvoiced samples here
	494	if (m_RNG & 1)
	495	m_excitation_data = ~0x3F; /* according to the patent it is (either + or -) half of the maximum value in the chirp table, so either 01000000(0x40) or 11000000(0xC0)*/
	496	else
	497	m_excitation_data = 0x40;
	498	}
	499	else /* (OLD_FRAME_UNVOICED_FLAG == 0) */
	500	{
	501	// generate voiced samples here
	502	/* US patent 4331836 Figure 14B shows, and logic would hold, that a pitch based chirp
	503	* function has a chirp/peak and then a long chain of zeroes.
	504	* The last entry of the chirp rom is at address 0b110011 (51d), the 52nd sample,
	505	* and if the address reaches that point the ADDRESS incrementer is
	506	* disabled, forcing all samples beyond 51d to be == 51d
	507	*/
	508	if (m_pitch_count >= 51)
	509	m_excitation_data = (INT8)m_coeff->chirptable[51];
	510	else /*m_pitch_count < 51*/
	511	m_excitation_data = (INT8)m_coeff->chirptable[m_pitch_count];
	512	}
559	513
560		// Update LFSR *20* times every sample (once per T cycle), like patent shows
561		for (i=0; i<20; i++)
562		{
563		bitout = ((m_RNG >> 12) & 1) ^
564		((m_RNG >>  3) & 1) ^
565		((m_RNG >>  2) & 1) ^
566		((m_RNG >>  0) & 1);
567		m_RNG <<= 1;
568		m_RNG |= bitout;
569		}
570		this_sample = lattice_filter(); /* execute lattice filter */
	514	// Update LFSR *20* times every sample (once per T cycle), like patent shows
	515	for (i=0; i<20; i++)
	516	{
	517	bitout = ((m_RNG >> 12) & 1) ^
	518	((m_RNG >>  3) & 1) ^
	519	((m_RNG >>  2) & 1) ^
	520	((m_RNG >>  0) & 1);
	521	m_RNG <<= 1;
	522	m_RNG |= bitout;
	523	}
	524	this_sample = lattice_filter(); /* execute lattice filter */
571	525	#ifdef DEBUG_GENERATION_VERBOSE
572		//fprintf(stderr,"C:%01d; ",m_subcycle);
573		fprintf(stderr,"IP:%01d PC:%02d X:%04d E:%03d P:%03d Pc:%03d ",m_IP, m_PC, m_excitation_data, m_current_energy, m_current_pitch, m_pitch_count);
574		//fprintf(stderr,"X:%04d E:%03d P:%03d Pc:%03d ", m_excitation_data, m_current_energy, m_current_pitch, m_pitch_count);
575		for (i=0; i<10; i++)
576		fprintf(stderr,"K%d:%04d ", i+1, m_current_k[i]);
577		fprintf(stderr,"Out:%06d", this_sample);
578		fprintf(stderr,"\n");
	526	//fprintf(stderr,"C:%01d; ",m_subcycle);
	527	fprintf(stderr,"IP:%01d PC:%02d X:%04d E:%03d P:%03d Pc:%03d ",m_IP, m_PC, m_excitation_data, m_current_energy, m_current_pitch, m_pitch_count);
	528	//fprintf(stderr,"X:%04d E:%03d P:%03d Pc:%03d ", m_excitation_data, m_current_energy, m_current_pitch, m_pitch_count);
	529	for (i=0; i<10; i++)
	530	fprintf(stderr,"K%d:%04d ", i+1, m_current_k[i]);
	531	fprintf(stderr,"Out:%06d ", this_sample);
	532	//#ifdef PERFECT_INTERPOLATION_HACK
	533	//         fprintf(stderr,"%d%d%d%d",m_old_zpar,m_zpar,m_old_uv_zpar,m_uv_zpar);
	534	//#else
	535	//         fprintf(stderr,"x%dx%d",m_zpar,m_uv_zpar);
	536	//#endif
	537	fprintf(stderr,"\n");
579	538	#endif
580		/* next, force result to 14 bits (since its possible that the addition at the final (k1) stage of the lattice overflowed) */
581		while (this_sample > 16383) this_sample -= 32768;
582		while (this_sample < -16384) this_sample += 32768;
583		if (m_digital_select == 0) // analog SPK pin output is only 8 bits, with clipping
584		buffer[buf_count] = clip_analog(this_sample);
585		else // digital I/O pin output is 12 bits
586		{
	539	/* next, force result to 14 bits (since its possible that the addition at the final (k1) stage of the lattice overflowed) */
	540	while (this_sample > 16383) this_sample -= 32768;
	541	while (this_sample < -16384) this_sample += 32768;
	542	if (m_digital_select == 0) // analog SPK pin output is only 8 bits, with clipping
	543	buffer[buf_count] = clip_analog(this_sample);
	544	else // digital I/O pin output is 12 bits
	545	{
587	546	#ifdef ALLOW_4_LSB
588		// input:  ssss ssss ssss ssss ssnn nnnn nnnn nnnn
589		// N taps:                       ^                 = 0x2000;
590		// output: ssss ssss ssss ssss snnn nnnn nnnn nnnN
591		buffer[buf_count] = (this_sample<<1)|((this_sample&0x2000)>>13);
	547	// input:  ssss ssss ssss ssss ssnn nnnn nnnn nnnn
	548	// N taps:                       ^                 = 0x2000;
	549	// output: ssss ssss ssss ssss snnn nnnn nnnn nnnN
	550	buffer[buf_count] = (this_sample<<1)|((this_sample&0x2000)>>13);
592	551	#else
593		this_sample &= ~0xF;
594		// input:  ssss ssss ssss ssss ssnn nnnn nnnn 0000
595		// N taps:                       ^^ ^^^            = 0x3E00;
596		// output: ssss ssss ssss ssss snnn nnnn nnnN NNNN
597		buffer[buf_count] = (this_sample<<1)|((this_sample&0x3E00)>>9);
	552	this_sample &= ~0xF;
	553	// input:  ssss ssss ssss ssss ssnn nnnn nnnn 0000
	554	// N taps:                       ^^ ^^^            = 0x3E00;
	555	// output: ssss ssss ssss ssss snnn nnnn nnnN NNNN
	556	buffer[buf_count] = (this_sample<<1)|((this_sample&0x3E00)>>9);
598	557	#endif
599		}
600		// Update all counts
	558	}
	559	// Update all counts
601	560
602		m_subcycle++;
603		if ((m_subcycle == 2) && (m_PC == 12)) // RESETF3
604		{
605		/* Circuit 412 in the patent acts a reset, resetting the pitch counter to 0
606		* if INHIBIT was true during the most recent frame transition.
607		* The exact time this occurs is betwen IP=7, PC=12 sub=0, T=t12
608		* and m_IP = 0, PC=0 sub=0, T=t12, a period of exactly 20 cycles,
609		* which overlaps the time OLDE and OLDP are updated at IP=7 PC=12 T17
610		* (and hence INHIBIT itself 2 t-cycles later). We do it here because it is
611		* convenient and should make no difference in output.
612		*/
613		if ((m_IP == 7)&&(m_inhibit==1)) m_pitch_zero = 1;
614		if ((m_IP == 0)&&(m_pitch_zero==1)) m_pitch_zero = 0;
615		#ifdef PERFECT_INTERPOLATION_HACK
616		m_old_zpar = m_zpar;
617		#endif
618		m_zpar = 0; /* this gets effectively reset by resetf3, same signal which resets m_PC to 0 */
619		if (m_IP == 7) // RESETL4
	561	m_subcycle++;
	562	if ((m_subcycle == 2) && (m_PC == 12)) // RESETF3
620	563	{
621		/* if TALK was clear last frame, halt speech now, since TALKD (latched from TALK on new frame) just went inactive. */
	564	/* Circuit 412 in the patent acts a reset, resetting the pitch counter to 0
	565	* if INHIBIT was true during the most recent frame transition.
	566	* The exact time this occurs is betwen IP=7, PC=12 sub=0, T=t12
	567	* and m_IP = 0, PC=0 sub=0, T=t12, a period of exactly 20 cycles,
	568	* which overlaps the time OLDE and OLDP are updated at IP=7 PC=12 T17
	569	* (and hence INHIBIT itself 2 t-cycles later). We do it here because it is
	570	* convenient and should make no difference in output.
	571	*/
	572	if ((m_IP == 7)&&(m_inhibit==1)) m_pitch_zero = 1;
	573	if ((m_IP == 0)&&(m_pitch_zero==1)) m_pitch_zero = 0;
	574	if (m_IP == 7) // RESETL4
	575	{
	576	// Latch OLDE and OLDP
	577	OLD_FRAME_SILENCE_FLAG = NEW_FRAME_SILENCE_FLAG; // m_OLDE
	578	OLD_FRAME_UNVOICED_FLAG = NEW_FRAME_UNVOICED_FLAG; // m_OLDP
	579	/* if TALK was clear last frame, halt speech now, since TALKD (latched from TALK on new frame) just went inactive. */
622	580	#ifdef DEBUG_GENERATION
623		if (m_TALK == 0)
624		fprintf(stderr,"tms5110_process: processing frame: TALKD = 0 caused by stop frame or buffer empty, halting speech.\n");
	581	if (m_TALK == 0)
	582	fprintf(stderr,"tms5110_process: processing frame: TALKD = 0 caused by stop frame or buffer empty, halting speech.\n");
625	583	#endif
626		m_TALKD = m_TALK; // TALKD is latched from TALK
627		m_TALK = m_SPEN; // TALK is latched from SPEN
	584	m_TALKD = m_TALK; // TALKD is latched from TALK
	585	m_TALK = m_SPEN; // TALK is latched from SPEN
	586	}
	587	m_subcycle = m_subc_reload;
	588	m_PC = 0;
	589	m_IP++;
	590	m_IP&=0x7;
628	591	}
629		m_subcycle = m_subc_reload;
630		m_PC = 0;
631		m_IP++;
632		m_IP&=0x7;
	592	else if (m_subcycle == 3)
	593	{
	594	m_subcycle = m_subc_reload;
	595	m_PC++;
	596	}
	597	m_pitch_count++;
	598	if ((m_pitch_count >= m_current_pitch)||(m_pitch_zero == 1)) m_pitch_count = 0;
	599	m_pitch_count &= 0x1FF;
633	600	}
634		else if (m_subcycle == 3)
	601	else // m_TALKD == 0
635	602	{
636		m_subcycle = m_subc_reload;
637		m_PC++;
638		}
639		m_pitch_count++;
640		if ((m_pitch_count >= m_current_pitch)||(m_pitch_zero == 1)) m_pitch_count = 0;
641		m_pitch_count &= 0x1FF;
642		buf_count++;
643		size--;
644		}
645
646		empty:
647
648		while (size > 0)
649		{
650		m_subcycle++;
651		if ((m_subcycle == 2) && (m_PC == 12)) // RESETF3
652		{
653		if (m_IP == 7) // RESETL4
	603	m_subcycle++;
	604	if ((m_subcycle == 2) && (m_PC == 12)) // RESETF3
654	605	{
655		m_TALKD = m_TALK; // TALKD is latched from TALK
656		m_TALK = m_SPEN; // TALK is latched from SPEN
	606	if (m_IP == 7) // RESETL4
	607	{
	608	m_TALKD = m_TALK; // TALKD is latched from TALK
	609	m_TALK = m_SPEN; // TALK is latched from SPEN
	610	}
	611	m_subcycle = m_subc_reload;
	612	m_PC = 0;
	613	m_IP++;
	614	m_IP&=0x7;
657	615	}
658		m_subcycle = m_subc_reload;
659		m_PC = 0;
660		m_IP++;
661		m_IP&=0x7;
	616	else if (m_subcycle == 3)
	617	{
	618	m_subcycle = m_subc_reload;
	619	m_PC++;
	620	}
	621	buffer[buf_count] = -1; /* should be just -1; actual chip outputs -1 every idle sample; (cf note in data sheet, p 10, table 4) */
662	622	}
663		else if (m_subcycle == 3)
664		{
665		m_subcycle = m_subc_reload;
666		m_PC++;
667		}
668		buffer[buf_count] = -1; /* should be just -1; actual chip outputs -1 every idle sample; (cf note in data sheet, p 10, table 4) */
669		buf_count++;
670		size--;
	623	buf_count++;
	624	size--;
671	625	}
672	626	}
673	627
r249043	r249044
899	853	m_SPEN = 1; /* start immediately */
900	854	/* clear out variables before speaking */
901	855	m_zpar = 1; // zero all the parameters
	856	m_uv_zpar = 1; // zero k4-k10 as well
	857	m_OLDE = 1; // 'silence/zpar' frames are zero energy
	858	m_OLDP = 1; // 'silence/zpar' frames are zero pitch
	859	#ifdef PERFECT_INTERPOLATION_HACK
	860	m_old_zpar = 1; // zero all the old parameters
	861	m_old_uv_zpar = 1; // zero old k4-k10 as well
	862	#endif
902	863	m_subc_reload = 0; // SPKSLOW means this is 0
903		m_subcycle = m_subc_reload;
904		m_PC = 0;
905		m_IP = 0;
906	864	break;
907	865
908	866	case TMS5110_CMD_READ_BIT:
r249043	r249044
916	874	#ifdef DEBUG_COMMAND_DUMP
917	875	fprintf(stderr,"actually reading a bit now\n");
918	876	#endif
919		request_bits(1);
920	877	m_CTL_buffer >>= 1;
921	878	m_CTL_buffer |= (extract_bits(1)<<3);
922	879	m_CTL_buffer &= 0xF;
r249043	r249044
931	888	m_SPEN = 1; /* start immediately */
932	889	/* clear out variables before speaking */
933	890	m_zpar = 1; // zero all the parameters
	891	m_uv_zpar = 1; // zero k4-k10 as well
	892	m_OLDE = 1; // 'silence/zpar' frames are zero energy
	893	m_OLDP = 1; // 'silence/zpar' frames are zero pitch
	894	#ifdef PERFECT_INTERPOLATION_HACK
	895	m_old_zpar = 1; // zero all the old parameters
	896	m_old_uv_zpar = 1; // zero old k4-k10 as well
	897	#endif
934	898	m_subc_reload = 1; // SPEAK means this is 1
935		m_subcycle = m_subc_reload;
936		m_PC = 0;
937		m_IP = 0;
938	899	break;
939	900
940	901	case TMS5110_CMD_READ_BRANCH:
r249043	r249044
979	940
980	941	void tms5110_device::parse_frame()
981	942	{
982		int bits, i, rep_flag;
983		/** TODO: get rid of bits handling here and move into extract_bits (as in tms5220.c) **/
984		/* count the total number of bits available */
985		bits = m_fifo_count;
	943	int i, rep_flag;
986	944
987		/* attempt to extract the energy index */
988		bits -= m_coeff->energy_bits;
989		if (bits < 0)
990		{
991		request_bits( -bits ); /* toggle M0 to receive needed bits */
992		bits = 0;
993		}
994	945	// attempt to extract the energy index
995	946	m_new_frame_energy_idx = extract_bits(m_coeff->energy_bits);
996	947	#ifdef DEBUG_PARSE_FRAME_DUMP
r249043	r249044
998	949	fprintf(stderr," ");
999	950	#endif
1000	951
1001		/* if the energy index is 0 or 15, we're done
1002
1003		if ((indx == 0) || (indx == 15))
1004		{
1005		if (DEBUG_5110) logerror("  (4-bit energy=%d frame)\n",m_new_energy);
1006
1007		// clear the k's
1008		if (indx == 0)
1009		{
1010		for (i = 0; i < m_coeff->num_k; i++)
1011		m_new_k[i] = 0;
1012		}
1013
1014		// clear fifo if stop frame encountered
1015		if (indx == 15)
1016		{
1017		if (DEBUG_5110) logerror("  (4-bit energy=%d STOP frame)\n",m_new_energy);
1018		m_fifo_head = m_fifo_tail = m_fifo_count = 0;
1019		}
1020		return;
1021		}*/
1022	952	// if the energy index is 0 or 15, we're done
1023	953	if ((m_new_frame_energy_idx == 0) || (m_new_frame_energy_idx == 15))
1024	954	return;
1025	955
1026
1027		/* attempt to extract the repeat flag */
1028		bits -= 1;
1029		if (bits < 0)
1030		{
1031		request_bits( -bits ); /* toggle M0 to receive needed bits */
1032		bits = 0;
1033		}
1034	956	rep_flag = extract_bits(1);
1035	957	#ifdef DEBUG_PARSE_FRAME_DUMP
1036	958	printbits(rep_flag, 1);
1037	959	fprintf(stderr," ");
1038	960	#endif
1039	961
1040		/* attempt to extract the pitch */
1041		bits -= m_coeff->pitch_bits;
1042		if (bits < 0)
1043		{
1044		request_bits( -bits ); /* toggle M0 to receive needed bits */
1045		bits = 0;
1046		}
1047	962	m_new_frame_pitch_idx = extract_bits(m_coeff->pitch_bits);
1048	963	#ifdef DEBUG_PARSE_FRAME_DUMP
1049	964	printbits(m_new_frame_pitch_idx,m_coeff->pitch_bits);
r249043	r249044
1056	971	// extract first 4 K coefficients
1057	972	for (i = 0; i < 4; i++)
1058	973	{
1059		/* attempt to extract 4 K's */
1060		bits -= m_coeff->kbits[i];
1061		if (bits < 0)
1062		{
1063		request_bits( -bits ); /* toggle M0 to receive needed bits */
1064		bits = 0;
1065		}
1066	974	m_new_frame_k_idx[i] = extract_bits(m_coeff->kbits[i]);
1067	975	#ifdef DEBUG_PARSE_FRAME_DUMP
1068	976	printbits(m_new_frame_k_idx[i],m_coeff->kbits[i]);
r249043	r249044
1080	988	// If we got here, we need the remaining 6 K's
1081	989	for (i = 4; i < m_coeff->num_k; i++)
1082	990	{
1083		bits -= m_coeff->kbits[i];
1084		if (bits < 0)
1085		{
1086		request_bits( -bits ); /* toggle M0 to receive needed bits */
1087		bits = 0;
1088		}
1089	991	m_new_frame_k_idx[i] = extract_bits(m_coeff->kbits[i]);
1090	992	#ifdef DEBUG_PARSE_FRAME_DUMP
1091	993	printbits(m_new_frame_k_idx[i],m_coeff->kbits[i]);
1092	994	fprintf(stderr," ");
1093	995	#endif
1094	996	}
	997	#ifdef DEBUG_PARSE_FRAME_DUMP
	998	fprintf(stderr,"\n");
	999	#endif
1095	1000	#ifdef VERBOSE
1096		if (m_speak_external)
1097		logerror("Parsed a frame successfully in FIFO - %d bits remaining\n", (m_fifo_count*8)-(m_fifo_bits_taken));
1098		else
1099	1001	logerror("Parsed a frame successfully in ROM\n");
1100	1002	#endif
1101	1003	return;
r249043	r249044
1239	1141	void tms5110_device::device_reset()
1240	1142	{
1241	1143	m_digital_select = FORCE_DIGITAL; // assume analog output
1242		/* initialize the FIFO */
1243		memset(m_fifo, 0, sizeof(m_fifo));
1244		m_fifo_head = m_fifo_tail = m_fifo_count = 0;
1245	1144
1246	1145	/* initialize the chip state */
1247	1146	m_SPEN = m_TALK = m_TALKD = 0;
r249043	r249044
1254	1153	#ifdef PERFECT_INTERPOLATION_HACK
1255	1154	m_old_frame_energy_idx = m_old_frame_pitch_idx = 0;
1256	1155	memset(m_old_frame_k_idx, 0, sizeof(m_old_frame_k_idx));
1257		m_old_zpar = 0;
	1156	m_old_zpar = m_old_uv_zpar = 0;
1258	1157	#endif
1259	1158	m_new_frame_energy_idx = m_current_energy = m_previous_energy = 0;
1260	1159	m_new_frame_pitch_idx = m_current_pitch = 0;
r249043	r249044
1391	1290	}
1392	1291
1393	1292
1394
1395	1293	/******************************************************************************
1396	1294
1397		tms5110_ready_r -- return the not ready status from the sound chip
1398
1399		******************************************************************************/
1400
1401		int tms5110_device::ready_r()
1402		{
1403		/* bring up to date first */
1404		m_stream->update();
1405		return (m_fifo_count < FIFO_SIZE-1);
1406		}
1407
1408
1409
1410		/******************************************************************************
1411
1412	1295	tms5110_update -- update the sound chip so that it is in sync with CPU execution
1413	1296
1414	1297	******************************************************************************/

trunk/src/emu/sound/tms5110.h

r249043	r249044
7	7
8	8	#include "emu.h"
9	9
10		#define FIFO_SIZE               64 // TODO: technically the tms51xx chips don't have a fifo at all
	10	/* HACK: if defined, uses impossibly perfect 'straight line' interpolation */
	11	#undef PERFECT_INTERPOLATION_HACK
11	12
12	13	/* TMS5110 commands */
13	14	/* CTL8  CTL4  CTL2  CTL1  |   PDC's  */
r249043	r249044
15	16	#define TMS5110_CMD_RESET        (0) /*    0     0     0     x  |     1    */
16	17	#define TMS5110_CMD_LOAD_ADDRESS (2) /*    0     0     1     x  |     2    */
17	18	#define TMS5110_CMD_OUTPUT       (4) /*    0     1     0     x  |     3    */
18		#define TMS5110_CMD_SPKSLOW      (6) /*    0     1     1     x  |     1    | Note: this command is undocumented on the datasheets, it only appears on the patents. It might not actually work properly on some of the real chips as manufactured. Acts the same as CMD_SPEAK, but makes the interpolator take two A cycles whereever it would normally only take one, effectively making speech of any given word take about twice as long as normal. */
	19	#define TMS5110_CMD_SPKSLOW      (6) /*    0     1     1     x  |     1    | Note: this command is undocumented on the datasheets, it only appears on the patents. It might not actually work properly on some of the real chips as manufactured. Acts the same as CMD_SPEAK, but makes the interpolator take three A cycles whereever it would normally only take one, effectively making speech of any given word take twice as long as normal. */
19	20	#define TMS5110_CMD_READ_BIT     (8) /*    1     0     0     x  |     1    */
20	21	#define TMS5110_CMD_SPEAK       (10) /*    1     0     1     x  |     1    */
21	22	#define TMS5110_CMD_READ_BRANCH (12) /*    1     1     0     x  |     1    */
r249043	r249044
64	65	*/
65	66	DECLARE_READ8_MEMBER( romclk_hack_r );
66	67
67		int ready_r();
68	68	void set_frequency(int frequency);
69	69
70	70	int _speech_rom_read_bit();
r249043	r249044
93	93	void new_int_write_addr(UINT8 addr);
94	94	UINT8 new_int_read();
95	95	void register_for_save_states();
96		void FIFO_data_write(int data);
97	96	int extract_bits(int count);
98		void request_bits(int no);
99	97	void perform_dummy_read();
100	98	INT32 lattice_filter();
101	99	void process(INT16 *buffer, unsigned int size);
r249043	r249044
109	107	/* coefficient tables */
110	108	const struct tms5100_coeffs *m_coeff;
111	109
112		/* these contain data that describes the 4 bit "FIFO" */
113		UINT8 m_fifo[FIFO_SIZE];
114		UINT8 m_fifo_head;
115		UINT8 m_fifo_tail;
116		UINT8 m_fifo_count;
117
118	110	/* these contain global status bits */
119	111	UINT8 m_PDC;
120	112	UINT8 m_CTL_pins;
r249043	r249044
162	154	UINT8 m_old_frame_pitch_idx;
163	155	UINT8 m_old_frame_k_idx[10];
164	156	UINT8 m_old_zpar;
	157	UINT8 m_old_uv_zpar;
165	158
166	159	INT32 m_current_energy;
167	160	INT32 m_current_pitch;

trunk/src/emu/sound/tms5220.c

r249043	r249044
271	271	* or clip logic, even though the real hardware doesn't do this, partially verified by decap */
272	272	#undef ALLOW_4_LSB
273	273
	274	/* forces m_TALK active instantly whenever m_SPEN would be activated, causing speech delay to be reduced by up to one frame time */
	275	/* for some reason, this hack makes victory behave better, though it does not match the patent */
	276	#define FAST_START_HACK 1
274	277
	278
275	279	/* *****configuration of chip connection stuff***** */
276	280	/* must be defined; if 0, output the waveform as if it was tapped on the speaker pin as usual, if 1, output the waveform as if it was tapped on the i/o pin (volume is much lower in the latter case) */
277	281	#define FORCE_DIGITAL 0
r249043	r249044
361	365	save_item(NAME(m_fifo_count));
362	366	save_item(NAME(m_fifo_bits_taken));
363	367
364		save_item(NAME(m_speaking_now));
365		save_item(NAME(m_speak_external));
366		save_item(NAME(m_talk_status));
	368	save_item(NAME(m_previous_TALK_STATUS));
	369	save_item(NAME(m_SPEN));
	370	save_item(NAME(m_DDIS));
	371	save_item(NAME(m_TALK));
	372	save_item(NAME(m_TALKD));
367	373	save_item(NAME(m_buffer_low));
368	374	save_item(NAME(m_buffer_empty));
369	375	save_item(NAME(m_irq_pin));
r249043	r249044
384	390	save_item(NAME(m_current_pitch));
385	391	save_item(NAME(m_current_k));
386	392
387		save_item(NAME(m_target_energy));
388		save_item(NAME(m_target_pitch));
389		save_item(NAME(m_target_k));
390
391	393	save_item(NAME(m_previous_energy));
392	394
393	395	save_item(NAME(m_subcycle));
r249043	r249044
395	397	save_item(NAME(m_PC));
396	398	save_item(NAME(m_IP));
397	399	save_item(NAME(m_inhibit));
	400	save_item(NAME(m_uv_zpar));
	401	save_item(NAME(m_zpar));
	402	save_item(NAME(m_pitch_zero));
398	403	save_item(NAME(m_c_variant_rate));
399	404	save_item(NAME(m_pitch_count));
400	405
r249043	r249044
465	470
466	471	void tms5220_device::data_write(int data)
467	472	{
	473	int old_buffer_low = m_buffer_low;
468	474	#ifdef DEBUG_DUMP_INPUT_DATA
469	475	fprintf(stdout, "%c",data);
470	476	#endif
471		if (m_speak_external) // If we're in speak external mode
	477	if (m_DDIS) // If we're in speak external mode
472	478	{
473	479	// add this byte to the FIFO
474	480	if (m_fifo_count < FIFO_SIZE)
r249043	r249044
477	483	m_fifo_tail = (m_fifo_tail + 1) % FIFO_SIZE;
478	484	m_fifo_count++;
479	485	#ifdef DEBUG_FIFO
480		logerror("data_write: Added byte to FIFO (current count=%2d)\n", m_fifo_count);
	486	fprintf(stderr,"data_write: Added byte to FIFO (current count=%2d)\n", m_fifo_count);
481	487	#endif
482	488	update_fifo_status_and_ints();
483		if ((m_talk_status == 0) && (m_buffer_low == 0)) // we just unset buffer low with that last write, and talk status *was* zero...
	489	// if we just unset buffer low with that last write, and SPEN *was* zero (see circuit 251, sheet 12)
	490	if ((m_SPEN == 0) && ((old_buffer_low == 1) && (m_buffer_low == 0))) // MUST HAVE EDGE DETECT
484	491	{
485		int i;
	492	int i;
486	493	#ifdef DEBUG_FIFO
487		logerror("data_write triggered talk status to go active!\n");
	494	fprintf(stderr,"data_write triggered SPEN to go active!\n");
488	495	#endif
489		// ...then we now have enough bytes to start talking; clear out the new frame parameters (it will become old frame just before the first call to parse_frame() )
490		// TODO: the 3 lines below (and others) are needed for victory to not fail its selftest due to a sample ending too late, may require additional investigation
491		m_subcycle = m_subc_reload;
492		m_PC = 0;
493		m_IP = reload_table[m_c_variant_rate&0x3]; // is this correct? should this be always 7 instead, so that the new frame is loaded quickly?
	496	// ...then we now have enough bytes to start talking; set zpar and clear out the new frame parameters (it will become old frame just before the first call to parse_frame() )
	497	m_zpar = 1;
	498	m_uv_zpar = 1; // zero k4-k10 as well
	499	m_OLDE = 1; // 'silence/zpar' frames are zero energy
	500	m_OLDP = 1; // 'silence/zpar' frames are zero pitch
	501	#ifdef PERFECT_INTERPOLATION_HACK
	502	m_old_zpar = 1; // zero all the old parameters
	503	m_old_uv_zpar = 1; // zero old k4-k10 as well
	504	#endif
	505	m_SPEN = 1;
	506	#ifdef FAST_START_HACK
	507	m_TALK = 1;
	508	#endif
494	509	m_new_frame_energy_idx = 0;
495	510	m_new_frame_pitch_idx = 0;
496	511	for (i = 0; i < 4; i++)
r249043	r249044
499	514	m_new_frame_k_idx[i] = 0xF;
500	515	for (i = 7; i < m_coeff->num_k; i++)
501	516	m_new_frame_k_idx[i] = 0x7;
502		m_talk_status = m_speaking_now = 1;
	517
503	518	}
504	519	}
505	520	else
506	521	{
507	522	#ifdef DEBUG_FIFO
508		logerror("data_write: Ran out of room in the tms52xx FIFO! this should never happen!\n");
	523	fprintf(stderr,"data_write: Ran out of room in the tms52xx FIFO! this should never happen!\n");
509	524	// at this point, /READY should remain HIGH/inactive until the fifo has at least one byte open in it.
510	525	#endif
511	526	}
512	527
513	528
514	529	}
515		else //(! m_speak_external)
	530	else //(! m_DDIS)
516	531	// R Nabet : we parse commands at once.  It is necessary for such commands as read.
517	532	process_command(data);
518	533	}
r249043	r249044
560	575	m_buffer_low = 0;
561	576
562	577	/* BE is set if neither byte 15 nor 14 of the fifo are in use; this
563		translates to having fifo_count equal to exactly 0 */
	578	translates to having fifo_count equal to exactly 0
	579	*/
564	580	if (m_fifo_count == 0)
565	581	{
566	582	// generate an interrupt if necessary; if /BE was inactive and is now active, set int.
567	583	if (!m_buffer_empty)
568	584	set_interrupt_state(1);
569	585	m_buffer_empty = 1;
	586	m_TALK = m_SPEN = 0; // /BE being active clears the TALK(TCON) status which in turn clears SPEN
570	587	}
571	588	else
572	589	m_buffer_empty = 0;
573	590
574		/* TS is talk status and is set elsewhere in the fifo parser and in
575		the SPEAK command handler; however, if /BE is true during speak external
576		mode, it is immediately unset here. */
577		if ((m_speak_external == 1) && (m_buffer_empty == 1))
	591	// generate an interrupt if /TS was active, and is now inactive.
	592	// also, in this case, regardless if DDIS was set, unset it.
	593	if (m_previous_TALK_STATUS == 1 && (TALK_STATUS == 0))
578	594	{
579		// generate an interrupt: /TS was active, and is now inactive.
580		if (m_talk_status == 1)
581		{
582		m_talk_status = m_speak_external = 0;
583		set_interrupt_state(1);
584		}
	595	#ifdef VERBOSE
	596	fprintf(stderr,"Talk status WAS 1, is now 0, unsetting DDIS and firing an interrupt!\n");
	597	#endif
	598	set_interrupt_state(1);
	599	m_DDIS = 0;
585	600	}
586		/* Note that TS being unset will also generate an interrupt when a STOP
587		frame is encountered; this is handled in the sample generator code and not here */
	601	m_previous_TALK_STATUS = TALK_STATUS;
	602
588	603	}
589	604
590	605	/**********************************************************************************************
r249043	r249044
597	612	{
598	613	int val = 0;
599	614
600		if (m_speak_external)
	615	if (m_DDIS)
601	616	{
602	617	// extract from FIFO
603	618	while (count--)
r249043	r249044
643	658	/* clear the interrupt pin on status read */
644	659	set_interrupt_state(0);
645	660	#ifdef DEBUG_PIN_READS
646		logerror("Status read: TS=%d BL=%d BE=%d\n", m_talk_status, m_buffer_low, m_buffer_empty);
	661	fprintf(stderr,"Status read: TS=%d BL=%d BE=%d\n", TALK_STATUS, m_buffer_low, m_buffer_empty);
647	662	#endif
648	663
649		return (m_talk_status << 7) | (m_buffer_low << 6) | (m_buffer_empty << 5);
	664	return (TALK_STATUS << 7) | (m_buffer_low << 6) | (m_buffer_empty << 5);
650	665	}
651	666	}
652	667
r249043	r249044
660	675	int tms5220_device::ready_read()
661	676	{
662	677	#ifdef DEBUG_PIN_READS
663		logerror("ready_read: ready pin read, io_ready is %d, fifo count is %d\n", m_io_ready, m_fifo_count);
	678	fprintf(stderr,"ready_read: ready pin read, io_ready is %d, fifo count is %d, DDIS(speak external) is %d\n", m_io_ready, m_fifo_count, m_DDIS);
664	679	#endif
665		return ((m_fifo_count < FIFO_SIZE)||(!m_speak_external)) && m_io_ready;
	680	return ((m_fifo_count < FIFO_SIZE)||(!m_DDIS)) && m_io_ready;
666	681	}
667	682
668	683
r249043	r249044
718	733	int tms5220_device::int_read()
719	734	{
720	735	#ifdef DEBUG_PIN_READS
721		logerror("int_read: irq pin read, state is %d\n", m_irq_pin);
	736	fprintf(stderr,"int_read: irq pin read, state is %d\n", m_irq_pin);
722	737	#endif
723	738	return m_irq_pin;
724	739	}
r249043	r249044
733	748	void tms5220_device::process(INT16 *buffer, unsigned int size)
734	749	{
735	750	int buf_count=0;
736		int i, bitout, zpar;
	751	int i, bitout;
737	752	INT32 this_sample;
738	753
739		/* the following gotos are probably safe to remove */
740		/* if we're empty and still not speaking, fill with nothingness */
741		if (!m_speaking_now)
742		goto empty;
	754	#ifdef VERBOSE
	755	fprintf(stderr,"process called with size of %d; IP=%d, PC=%d, subcycle=%d, m_SPEN=%d, m_TALK=%d, m_TALKD=%d\n", size, m_IP, m_PC, m_subcycle, m_SPEN, m_TALK, m_TALKD);
	756	#endif
743	757
744		/* if speak external is set, but talk status is not (yet) set,
745		wait for buffer low to clear */
746		if (!m_talk_status && m_speak_external && m_buffer_low)
747		goto empty;
748
749	758	/* loop until the buffer is full or we've stopped speaking */
750		while ((size > 0) && m_speaking_now)
	759	while (size > 0)
751	760	{
752		/* if it is the appropriate time to update the old energy/pitch indices,
753		* i.e. when IP=7, PC=12, T=17, subcycle=2, do so. Since IP=7 PC=12 T=17
754		* is JUST BEFORE the transition to IP=0 PC=0 T=0 sybcycle=(0 or 1),
755		* which happens 4 T-cycles later), we change on the latter.
756		* The indices are updated here ~12 PCs before the new frame is applied.
757		*/
758		/** TODO: the patents 4331836, 4335277, and 4419540 disagree about the timing of this **/
759		if ((m_IP == 0) && (m_PC == 0) && (m_subcycle < 2))
	761	if(m_TALKD) // speaking
760	762	{
761		m_OLDE = (m_new_frame_energy_idx == 0);
762		m_OLDP = (m_new_frame_pitch_idx == 0);
763		}
	763	/* if we're ready for a new frame to be applied, i.e. when IP=0, PC=12, Sub=1
	764	* (In reality, the frame was really loaded incrementally during the entire IP=0
	765	* PC=x time period, but it doesn't affect anything until IP=0 PC=12 happens)
	766	*/
	767	if ((m_IP == 0) && (m_PC == 12) && (m_subcycle == 1))
	768	{
	769	// HACK for regression testing, be sure to comment out before release!
	770	//m_RNG = 0x1234;
	771	// end HACK
764	772
765		/* if we're ready for a new frame to be applied, i.e. when IP=0, PC=12, Sub=1
766		* (In reality, the frame was really loaded incrementally during the entire IP=0
767		* PC=x time period, but it doesn't affect anything until IP=0 PC=12 happens)
768		*/
769		if ((m_IP == 0) && (m_PC == 12) && (m_subcycle == 1))
770		{
771		// HACK for regression testing, be sure to comment out before release!
772		//m_RNG = 0x1234;
773		// end HACK
	773	/* appropriately override the interp count if needed; this will be incremented after the frame parse! */
	774	m_IP = reload_table[m_c_variant_rate&0x3];
774	775
775		/* appropriately override the interp count if needed; this will be incremented after the frame parse! */
776		m_IP = reload_table[m_c_variant_rate&0x3];
777
778	776	#ifdef PERFECT_INTERPOLATION_HACK
779		/* remember previous frame energy, pitch, and coefficients */
780		m_old_frame_energy_idx = m_new_frame_energy_idx;
781		m_old_frame_pitch_idx = m_new_frame_pitch_idx;
782		for (i = 0; i < m_coeff->num_k; i++)
783		m_old_frame_k_idx[i] = m_new_frame_k_idx[i];
	777	/* remember previous frame energy, pitch, and coefficients */
	778	m_old_frame_energy_idx = m_new_frame_energy_idx;
	779	m_old_frame_pitch_idx = m_new_frame_pitch_idx;
	780	for (i = 0; i < m_coeff->num_k; i++)
	781	m_old_frame_k_idx[i] = m_new_frame_k_idx[i];
784	782	#endif
785	783
786		/* if the talk status was clear last frame, halt speech now. */
787		if (m_talk_status == 0)
788		{
789		#ifdef DEBUG_GENERATION
790		fprintf(stderr,"tms5220_process: processing frame: talk status = 0 caused by stop frame or buffer empty, halting speech.\n");
791		#endif
792		if (m_speaking_now == 1) // we're done, set all coeffs to idle state but keep going for a bit...
793		{
794		/**TODO: should index clearing be done here, or elsewhere? **/
795		m_new_frame_energy_idx = 0;
796		m_new_frame_pitch_idx = 0;
797		for (i = 0; i < 4; i++)
798		m_new_frame_k_idx[i] = 0;
799		for (i = 4; i < 7; i++)
800		m_new_frame_k_idx[i] = 0xF;
801		for (i = 7; i < m_coeff->num_k; i++)
802		m_new_frame_k_idx[i] = 0x7;
803		m_speaking_now = 2; // wait 8 extra interp periods before shutting down so we can interpolate everything to zero state
804		}
805		else // m_speaking_now == 2 // now we're really done.
806		{
807		m_speaking_now = 0; // finally halt speech
808		goto empty;
809		}
810		}
	784	/* Parse a new frame into the new_target_energy, new_target_pitch and new_target_k[] */
	785	parse_frame();
811	786
812
813		/* Parse a new frame into the new_target_energy, new_target_pitch and new_target_k[],
814		* but only if we're not just about to end speech */
815		if (m_speaking_now == 1) parse_frame();
816		#ifdef DEBUG_PARSE_FRAME_DUMP
817		fprintf(stderr,"\n");
	787	// if the new frame is unvoiced (or silenced via ZPAR), be sure to zero out the k5-k10 parameters
	788	// NOTE: this is probably the bug the tms5100/tmc0280 has, pre-rev D, I think.
	789	// GUESS: Pre-rev D versions start zeroing k5-k10 immediately upon new frame load regardless of interpolation inhibit
	790	// I.e. ZPAR = /TALKD || (PC>5&&P=0)
	791	// GUESS: D and later versions only start or stop zeroing k5-k10 at the IP7->IP0 transition AFTER the frame
	792	// I.e. ZPAR = /TALKD || (PC>5&&OLDP)
	793	#ifdef PERFECT_INTERPOLATION_HACK
	794	m_old_uv_zpar = m_uv_zpar;
	795	m_old_zpar = m_zpar; // unset old zpar on new frame
818	796	#endif
	797	m_zpar = 0;
	798	//m_uv_zpar = (OLD_FRAME_UNVOICED_FLAG||m_zpar); // GUESS: fixed version in tmc0280d/tms5100a/cd280x/tms5110
	799	m_uv_zpar = (NEW_FRAME_UNVOICED_FLAG||m_zpar); // GUESS: buggy version in tmc0280/tms5100
819	800
820		/* if the new frame is a stop frame, set an interrupt and set talk status to 0 */
821		/** TODO: investigate this later! **/
822		if (NEW_FRAME_STOP_FLAG == 1)
	801	/* if the new frame is a stop frame, unset both TALK and SPEN (via TCON). TALKD remains active while the energy is ramping to 0. */
	802	if (NEW_FRAME_STOP_FLAG == 1)
823	803	{
824		m_talk_status = m_speak_external = 0;
825		set_interrupt_state(1);
826		update_fifo_status_and_ints();
	804	m_TALK = m_SPEN = 0;
827	805	}
828	806
829		/* in all cases where interpolation would be inhibited, set the inhibit flag; otherwise clear it.
830		Interpolation inhibit cases:
831		* Old frame was voiced, new is unvoiced
832		* Old frame was silence/zero energy, new has nonzero energy
833		* Old frame was unvoiced, new is voiced
834		* Old frame was unvoiced, new frame is silence/zero energy (unique to tms52xx)
835		*/
836		if ( ((OLD_FRAME_UNVOICED_FLAG == 0) && (NEW_FRAME_UNVOICED_FLAG == 1))
837		|| ((OLD_FRAME_UNVOICED_FLAG == 1) && (NEW_FRAME_UNVOICED_FLAG == 0))
838		|| ((OLD_FRAME_SILENCE_FLAG == 1) && (NEW_FRAME_SILENCE_FLAG == 0))
839		|| ((OLD_FRAME_UNVOICED_FLAG == 1) && (NEW_FRAME_SILENCE_FLAG == 1)) )
840		m_inhibit = 1;
841		else // normal frame, normal interpolation
842		m_inhibit = 0;
	807	/* in all cases where interpolation would be inhibited, set the inhibit flag; otherwise clear it.
	808	Interpolation inhibit cases:
	809	* Old frame was voiced, new is unvoiced
	810	* Old frame was silence/zero energy, new has nonzero energy
	811	* Old frame was unvoiced, new is voiced
	812	* Old frame was unvoiced, new frame is silence/zero energy (unique to tms52xx)
	813	*/
	814	if ( ((OLD_FRAME_UNVOICED_FLAG == 0) && (NEW_FRAME_UNVOICED_FLAG == 1))
	815	|| ((OLD_FRAME_UNVOICED_FLAG == 1) && (NEW_FRAME_UNVOICED_FLAG == 0))
	816	|| ((OLD_FRAME_SILENCE_FLAG == 1) && (NEW_FRAME_SILENCE_FLAG == 0))
	817	|| ((OLD_FRAME_UNVOICED_FLAG == 1) && (NEW_FRAME_SILENCE_FLAG == 1)) )
	818	m_inhibit = 1;
	819	else // normal frame, normal interpolation
	820	m_inhibit = 0;
843	821
844		/* load new frame targets from tables, using parsed indices */
845		m_target_energy = m_coeff->energytable[m_new_frame_energy_idx];
846		m_target_pitch = m_coeff->pitchtable[m_new_frame_pitch_idx];
847		zpar = NEW_FRAME_UNVOICED_FLAG; // find out if parameters k5-k10 should be zeroed
848		for (i = 0; i < 4; i++)
849		m_target_k[i] = m_coeff->ktable[i][m_new_frame_k_idx[i]];
850		for (i = 4; i < m_coeff->num_k; i++)
851		m_target_k[i] = (m_coeff->ktable[i][m_new_frame_k_idx[i]] * (1-zpar));
852
853	822	#ifdef DEBUG_GENERATION
854		/* Debug info for current parsed frame */
855		fprintf(stderr, "OLDE: %d; OLDP: %d; ", m_OLDE, m_OLDP);
856		fprintf(stderr,"Processing frame: ");
857		if (m_inhibit == 0)
858		fprintf(stderr, "Normal Frame\n");
859		else
860		fprintf(stderr,"Interpolation Inhibited\n");
861		fprintf(stderr,"*** current Energy, Pitch and Ks =      %04d,   %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d\n",m_current_energy, m_current_pitch, m_current_k[0], m_current_k[1], m_current_k[2], m_current_k[3], m_current_k[4], m_current_k[5], m_current_k[6], m_current_k[7], m_current_k[8], m_current_k[9]);
862		fprintf(stderr,"*** target Energy(idx), Pitch, and Ks = %04d(%x),%04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d\n",m_target_energy, m_new_frame_energy_idx, m_target_pitch, m_target_k[0], m_target_k[1], m_target_k[2], m_target_k[3], m_target_k[4], m_target_k[5], m_target_k[6], m_target_k[7], m_target_k[8], m_target_k[9]);
	823	/* Debug info for current parsed frame */
	824	fprintf(stderr, "OLDE: %d; OLDP: %d; ", m_OLDE, m_OLDP);
	825	fprintf(stderr,"Processing new frame: ");
	826	if (m_inhibit == 0)
	827	fprintf(stderr, "Normal Frame\n");
	828	else
	829	fprintf(stderr,"Interpolation Inhibited\n");
	830	fprintf(stderr,"*** current Energy, Pitch and Ks =      %04d,   %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d\n",m_current_energy, m_current_pitch, m_current_k[0], m_current_k[1], m_current_k[2], m_current_k[3], m_current_k[4], m_current_k[5], m_current_k[6], m_current_k[7], m_current_k[8], m_current_k[9]);
	831	fprintf(stderr,"*** target Energy(idx), Pitch, and Ks = %04d(%x),%04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d, %04d\n",
	832	(m_coeff->energytable[m_new_frame_energy_idx] * (1-m_zpar)),
	833	m_new_frame_energy_idx,
	834	(m_coeff->pitchtable[m_new_frame_pitch_idx] * (1-m_zpar)),
	835	(m_coeff->ktable[0][m_new_frame_k_idx[0]] * (1-m_zpar)),
	836	(m_coeff->ktable[1][m_new_frame_k_idx[1]] * (1-m_zpar)),
	837	(m_coeff->ktable[2][m_new_frame_k_idx[2]] * (1-m_zpar)),
	838	(m_coeff->ktable[3][m_new_frame_k_idx[3]] * (1-m_zpar)),
	839	(m_coeff->ktable[4][m_new_frame_k_idx[4]] * (1-m_uv_zpar)),
	840	(m_coeff->ktable[5][m_new_frame_k_idx[5]] * (1-m_uv_zpar)),
	841	(m_coeff->ktable[6][m_new_frame_k_idx[6]] * (1-m_uv_zpar)),
	842	(m_coeff->ktable[7][m_new_frame_k_idx[7]] * (1-m_uv_zpar)),
	843	(m_coeff->ktable[8][m_new_frame_k_idx[8]] * (1-m_uv_zpar)),
	844	(m_coeff->ktable[9][m_new_frame_k_idx[9]] * (1-m_uv_zpar)) );
863	845	#endif
864	846
865		/* if TS is now 0, ramp the energy down to 0. Is this really correct to hardware? */
866		if (m_talk_status == 0)
	847	}
	848	else // Not a new frame, just interpolate the existing frame.
867	849	{
868		#ifdef DEBUG_GENERATION
869		fprintf(stderr,"Talk status is 0, forcing target energy to 0\n");
	850	int inhibit_state = ((m_inhibit==1)&&(m_IP != 0)); // disable inhibit when reaching the last interp period, but don't overwrite the m_inhibit value
	851	#ifdef PERFECT_INTERPOLATION_HACK
	852	int samples_per_frame = m_subc_reload?175:266; // either (13 A cycles + 12 B cycles) * 7 interps for normal SPEAK/SPKEXT, or (13*2 A cycles + 12 B cycles) * 7 interps for SPKSLOW
	853	//int samples_per_frame = m_subc_reload?200:304; // either (13 A cycles + 12 B cycles) * 8 interps for normal SPEAK/SPKEXT, or (13*2 A cycles + 12 B cycles) * 8 interps for SPKSLOW
	854	int current_sample = (m_subcycle - m_subc_reload)+(m_PC*(3-m_subc_reload))+((m_subc_reload?25:38)*((m_IP-1)&7));
	855	//fprintf(stderr, "CS: %03d", current_sample);
	856	// reset the current energy, pitch, etc to what it was at frame start
	857	m_current_energy = (m_coeff->energytable[m_old_frame_energy_idx] * (1-m_old_zpar));
	858	m_current_pitch = (m_coeff->pitchtable[m_old_frame_pitch_idx] * (1-m_old_zpar));
	859	for (i = 0; i < m_coeff->num_k; i++)
	860	m_current_k[i] = (m_coeff->ktable[i][m_old_frame_k_idx[i]] * (1-((i<4)?m_old_zpar:m_old_uv_zpar)));
	861	// now adjust each value to be exactly correct for each of the samples per frame
	862	if (m_IP != 0) // if we're still interpolating...
	863	{
	864	m_current_energy = (m_current_energy + (((m_coeff->energytable[m_new_frame_energy_idx] - m_current_energy)*(1-inhibit_state))*current_sample)/samples_per_frame)*(1-m_zpar);
	865	m_current_pitch = (m_current_pitch + (((m_coeff->pitchtable[m_new_frame_pitch_idx] - m_current_pitch)*(1-inhibit_state))*current_sample)/samples_per_frame)*(1-m_zpar);
	866	for (i = 0; i < m_coeff->num_k; i++)
	867	m_current_k[i] = (m_current_k[i] + (((m_coeff->ktable[i][m_new_frame_k_idx[i]] - m_current_k[i])*(1-inhibit_state))*current_sample)/samples_per_frame)*(1-((i<4)?m_zpar:m_uv_zpar));
	868	}
	869	else // we're done, play this frame for 1/8 frame.
	870	{
	871	m_current_energy = (m_coeff->energytable[m_new_frame_energy_idx] * (1-m_zpar));
	872	m_current_pitch = (m_coeff->pitchtable[m_new_frame_pitch_idx] * (1-m_zpar));
	873	for (i = 0; i < m_coeff->num_k; i++)
	874	m_current_k[i] = (m_coeff->ktable[i][m_new_frame_k_idx[i]] * (1-((i<4)?m_zpar:m_uv_zpar)));
	875	}
	876	#else
	877	//Updates to parameters only happen on subcycle '2' (B cycle) of PCs.
	878	if (m_subcycle == 2)
	879	{
	880	switch(m_PC)
	881	{
	882	case 0: /* PC = 0, B cycle, write updated energy */
	883	m_current_energy = (m_current_energy + (((m_coeff->energytable[m_new_frame_energy_idx] - m_current_energy)*(1-inhibit_state)) INTERP_SHIFT))*(1-m_zpar);
	884	break;
	885	case 1: /* PC = 1, B cycle, write updated pitch */
	886	m_current_pitch = (m_current_pitch + (((m_coeff->pitchtable[m_new_frame_pitch_idx] - m_current_pitch)*(1-inhibit_state)) INTERP_SHIFT))*(1-m_zpar);
	887	break;
	888	case 2: case 3: case 4: case 5: case 6: case 7: case 8: case 9: case 10: case 11:
	889	/* PC = 2 through 11, B cycle, write updated K1 through K10 */
	890	m_current_k[m_PC-2] = (m_current_k[m_PC-2] + (((m_coeff->ktable[m_PC-2][m_new_frame_k_idx[m_PC-2]] - m_current_k[m_PC-2])*(1-inhibit_state)) INTERP_SHIFT))*(((m_PC-2)>4)?(1-m_uv_zpar):(1-m_zpar));
	891	break;
	892	case 12: /* PC = 12 */
	893	/* we should NEVER reach this point, PC=12 doesn't have a subcycle 2 */
	894	break;
	895	}
	896	}
870	897	#endif
871		m_target_energy = 0;
872	898	}
873		}
874		else // Not a new frame, just interpolate the existing frame.
875		{
876		int inhibit_state = ((m_inhibit==1)&&(m_IP != 0)); // disable inhibit when reaching the last interp period, but don't overwrite the m_inhibit value
877		#ifdef PERFECT_INTERPOLATION_HACK
878		int samples_per_frame = m_subc_reload?175:266; // either (13 A cycles + 12 B cycles) * 7 interps for normal SPEAK/SPKEXT, or (13*2 A cycles + 12 B cycles) * 7 interps for SPKSLOW
879		//int samples_per_frame = m_subc_reload?200:304; // either (13 A cycles + 12 B cycles) * 8 interps for normal SPEAK/SPKEXT, or (13*2 A cycles + 12 B cycles) * 8 interps for SPKSLOW
880		int current_sample = (m_subcycle - m_subc_reload)+(m_PC*(3-m_subc_reload))+((m_subc_reload?25:38)*((m_IP-1)&7));
881	899
882		zpar = OLD_FRAME_UNVOICED_FLAG;
883		//fprintf(stderr, "CS: %03d", current_sample);
884		// reset the current energy, pitch, etc to what it was at frame start
885		m_current_energy = m_coeff->energytable[m_old_frame_energy_idx];
886		m_current_pitch = m_coeff->pitchtable[m_old_frame_pitch_idx];
887		for (i = 0; i < 4; i++)
888		m_current_k[i] = m_coeff->ktable[i][m_old_frame_k_idx[i]];
889		for (i = 4; i < m_coeff->num_k; i++)
890		m_current_k[i] = (m_coeff->ktable[i][m_old_frame_k_idx[i]] * (1-zpar));
891		// now adjust each value to be exactly correct for each of the samples per frame
892		if (m_IP != 0) // if we're still interpolating...
	900	// calculate the output
	901	if (OLD_FRAME_UNVOICED_FLAG == 1)
893	902	{
894		m_current_energy += (((m_target_energy - m_current_energy)*(1-inhibit_state))*current_sample)/samples_per_frame;
895		m_current_pitch += (((m_target_pitch - m_current_pitch)*(1-inhibit_state))*current_sample)/samples_per_frame;
896		for (i = 0; i < m_coeff->num_k; i++)
897		m_current_k[i] += (((m_target_k[i] - m_current_k[i])*(1-inhibit_state))*current_sample)/samples_per_frame;
	903	// generate unvoiced samples here
	904	if (m_RNG & 1)
	905	m_excitation_data = ~0x3F; /* according to the patent it is (either + or -) half of the maximum value in the chirp table, so either 01000000(0x40) or 11000000(0xC0)*/
	906	else
	907	m_excitation_data = 0x40;
898	908	}
899		else // we're done, play this frame for 1/8 frame.
	909	else /* (OLD_FRAME_UNVOICED_FLAG == 0) */
900	910	{
901		m_current_energy = m_target_energy;
902		m_current_pitch = m_target_pitch;
903		for (i = 0; i < m_coeff->num_k; i++)
904		m_current_k[i] = m_target_k[i];
	911	// generate voiced samples here
	912	/* US patent 4331836 Figure 14B shows, and logic would hold, that a pitch based chirp
	913	* function has a chirp/peak and then a long chain of zeroes.
	914	* The last entry of the chirp rom is at address 0b110011 (51d), the 52nd sample,
	915	* and if the address reaches that point the ADDRESS incrementer is
	916	* disabled, forcing all samples beyond 51d to be == 51d
	917	*/
	918	if (m_pitch_count >= 51)
	919	m_excitation_data = (INT8)m_coeff->chirptable[51];
	920	else /*m_pitch_count < 51*/
	921	m_excitation_data = (INT8)m_coeff->chirptable[m_pitch_count];
905	922	}
906		#else
907		//Updates to parameters only happen on subcycle '2' (B cycle) of PCs.
908		if (m_subcycle == 2)
	923
	924	// Update LFSR *20* times every sample (once per T cycle), like patent shows
	925	for (i=0; i<20; i++)
909	926	{
910		switch(m_PC)
911		{
912		case 0: /* PC = 0, B cycle, write updated energy */
913		m_current_energy += (((m_target_energy - m_current_energy)*(1-inhibit_state)) INTERP_SHIFT);
914		break;
915		case 1: /* PC = 1, B cycle, write updated pitch */
916		m_current_pitch += (((m_target_pitch - m_current_pitch)*(1-inhibit_state)) INTERP_SHIFT);
917		break;
918		case 2: case 3: case 4: case 5: case 6: case 7: case 8: case 9: case 10: case 11:
919		/* PC = 2 through 11, B cycle, write updated K1 through K10 */
920		m_current_k[m_PC-2] += (((m_target_k[m_PC-2] - m_current_k[m_PC-2])*(1-inhibit_state)) INTERP_SHIFT);
921		break;
922		case 12: /* PC = 12, do nothing */
923		break;
924		}
	927	bitout = ((m_RNG >> 12) & 1) ^
	928	((m_RNG >>  3) & 1) ^
	929	((m_RNG >>  2) & 1) ^
	930	((m_RNG >>  0) & 1);
	931	m_RNG <<= 1;
	932	m_RNG |= bitout;
925	933	}
926		#endif
927		}
928
929		// calculate the output
930		if (OLD_FRAME_UNVOICED_FLAG == 1)
931		{
932		// generate unvoiced samples here
933		if (m_RNG & 1)
934		m_excitation_data = ~0x3F; /* according to the patent it is (either + or -) half of the maximum value in the chirp table, so either 01000000(0x40) or 11000000(0xC0)*/
935		else
936		m_excitation_data = 0x40;
937		}
938		else /* (OLD_FRAME_UNVOICED_FLAG == 0) */
939		{
940		// generate voiced samples here
941		/* US patent 4331836 Figure 14B shows, and logic would hold, that a pitch based chirp
942		* function has a chirp/peak and then a long chain of zeroes.
943		* The last entry of the chirp rom is at address 0b110011 (51d), the 52nd sample,
944		* and if the address reaches that point the ADDRESS incrementer is
945		* disabled, forcing all samples beyond 51d to be == 51d
946		*/
947		if (m_pitch_count >= 51)
948		m_excitation_data = (INT8)m_coeff->chirptable[51];
949		else /*m_pitch_count < 51*/
950		m_excitation_data = (INT8)m_coeff->chirptable[m_pitch_count];
951		}
952
953		// Update LFSR *20* times every sample (once per T cycle), like patent shows
954		for (i=0; i<20; i++)
955		{
956		bitout = ((m_RNG >> 12) & 1) ^
957		((m_RNG >>  3) & 1) ^
958		((m_RNG >>  2) & 1) ^
959		((m_RNG >>  0) & 1);
960		m_RNG <<= 1;
961		m_RNG |= bitout;
962		}
963		this_sample = lattice_filter(); /* execute lattice filter */
	934	this_sample = lattice_filter(); /* execute lattice filter */
964	935	#ifdef DEBUG_GENERATION_VERBOSE
965		//fprintf(stderr,"C:%01d; ",m_subcycle);
966		fprintf(stderr,"IP:%01d PC:%02d X:%04d E:%03d P:%03d Pc:%03d ",m_IP, m_PC, m_excitation_data, m_current_energy, m_current_pitch, m_pitch_count);
967		//fprintf(stderr,"X:%04d E:%03d P:%03d Pc:%03d ", m_excitation_data, m_current_energy, m_current_pitch, m_pitch_count);
968		for (i=0; i<10; i++)
969		fprintf(stderr,"K%d:%04d ", i+1, m_current_k[i]);
970		fprintf(stderr,"Out:%06d", this_sample);
971		fprintf(stderr,"\n");
	936	//fprintf(stderr,"C:%01d; ",m_subcycle);
	937	fprintf(stderr,"IP:%01d PC:%02d X:%04d E:%03d P:%03d Pc:%03d ",m_IP, m_PC, m_excitation_data, m_current_energy, m_current_pitch, m_pitch_count);
	938	//fprintf(stderr,"X:%04d E:%03d P:%03d Pc:%03d ", m_excitation_data, m_current_energy, m_current_pitch, m_pitch_count);
	939	for (i=0; i<10; i++)
	940	fprintf(stderr,"K%d:%04d ", i+1, m_current_k[i]);
	941	fprintf(stderr,"Out:%06d ", this_sample);
	942	//#ifdef PERFECT_INTERPOLATION_HACK
	943	//         fprintf(stderr,"%d%d%d%d",m_old_zpar,m_zpar,m_old_uv_zpar,m_uv_zpar);
	944	//#else
	945	//         fprintf(stderr,"x%dx%d",m_zpar,m_uv_zpar);
	946	//#endif
	947	fprintf(stderr,"\n");
972	948	#endif
973		/* next, force result to 14 bits (since its possible that the addition at the final (k1) stage of the lattice overflowed) */
974		while (this_sample > 16383) this_sample -= 32768;
975		while (this_sample < -16384) this_sample += 32768;
976		if (m_digital_select == 0) // analog SPK pin output is only 8 bits, with clipping
977		buffer[buf_count] = clip_analog(this_sample);
978		else // digital I/O pin output is 12 bits
979		{
	949	/* next, force result to 14 bits (since its possible that the addition at the final (k1) stage of the lattice overflowed) */
	950	while (this_sample > 16383) this_sample -= 32768;
	951	while (this_sample < -16384) this_sample += 32768;
	952	if (m_digital_select == 0) // analog SPK pin output is only 8 bits, with clipping
	953	buffer[buf_count] = clip_analog(this_sample);
	954	else // digital I/O pin output is 12 bits
	955	{
980	956	#ifdef ALLOW_4_LSB
981		// input:  ssss ssss ssss ssss ssnn nnnn nnnn nnnn
982		// N taps:                       ^                 = 0x2000;
983		// output: ssss ssss ssss ssss snnn nnnn nnnn nnnN
984		buffer[buf_count] = (this_sample<<1)|((this_sample&0x2000)>>13);
	957	// input:  ssss ssss ssss ssss ssnn nnnn nnnn nnnn
	958	// N taps:                       ^                 = 0x2000;
	959	// output: ssss ssss ssss ssss snnn nnnn nnnn nnnN
	960	buffer[buf_count] = (this_sample<<1)|((this_sample&0x2000)>>13);
985	961	#else
986		this_sample &= ~0xF;
987		// input:  ssss ssss ssss ssss ssnn nnnn nnnn 0000
988		// N taps:                       ^^ ^^^            = 0x3E00;
989		// output: ssss ssss ssss ssss snnn nnnn nnnN NNNN
990		buffer[buf_count] = (this_sample<<1)|((this_sample&0x3E00)>>9);
	962	this_sample &= ~0xF;
	963	// input:  ssss ssss ssss ssss ssnn nnnn nnnn 0000
	964	// N taps:                       ^^ ^^^            = 0x3E00;
	965	// output: ssss ssss ssss ssss snnn nnnn nnnN NNNN
	966	buffer[buf_count] = (this_sample<<1)|((this_sample&0x3E00)>>9);
991	967	#endif
992		}
993		// Update all counts
	968	}
	969	// Update all counts
994	970
995		m_subcycle++;
996		if ((m_subcycle == 2) && (m_PC == 12))
997		{
998		/* Circuit 412 in the patent acts a reset, resetting the pitch counter to 0
999		* if INHIBIT was true during the most recent frame transition.
1000		* The exact time this occurs is betwen IP=7, PC=12 sub=0, T=t12
1001		* and m_IP = 0, PC=0 sub=0, T=t12, a period of exactly 20 cycles,
1002		* which overlaps the time OLDE and OLDP are updated at IP=7 PC=12 T17
1003		* (and hence INHIBIT itself 2 t-cycles later). We do it here because it is
1004		* convenient and should make no difference in output.
1005		*/
1006		if ((m_IP == 7)&&(m_inhibit==1)) m_pitch_count = 0;
1007		m_subcycle = m_subc_reload;
1008		m_PC = 0;
1009		m_IP++;
1010		m_IP&=0x7;
	971	m_subcycle++;
	972	if ((m_subcycle == 2) && (m_PC == 12)) // RESETF3
	973	{
	974	/* Circuit 412 in the patent acts a reset, resetting the pitch counter to 0
	975	* if INHIBIT was true during the most recent frame transition.
	976	* The exact time this occurs is betwen IP=7, PC=12 sub=0, T=t12
	977	* and m_IP = 0, PC=0 sub=0, T=t12, a period of exactly 20 cycles,
	978	* which overlaps the time OLDE and OLDP are updated at IP=7 PC=12 T17
	979	* (and hence INHIBIT itself 2 t-cycles later). We do it here because it is
	980	* convenient and should make no difference in output.
	981	*/
	982	if ((m_IP == 7)&&(m_inhibit==1)) m_pitch_zero = 1;
	983	if ((m_IP == 0)&&(m_pitch_zero==1)) m_pitch_zero = 0;
	984	if (m_IP == 7) // RESETL4
	985	{
	986	// Latch OLDE and OLDP
	987	OLD_FRAME_SILENCE_FLAG = NEW_FRAME_SILENCE_FLAG; // m_OLDE
	988	OLD_FRAME_UNVOICED_FLAG = NEW_FRAME_UNVOICED_FLAG; // m_OLDP
	989	/* if TALK was clear last frame, halt speech now, since TALKD (latched from TALK on new frame) just went inactive. */
	990	#ifdef DEBUG_GENERATION
	991	fprintf(stderr,"RESETL4, about to update status: IP=%d, PC=%d, subcycle=%d, m_SPEN=%d, m_TALK=%d, m_TALKD=%d\n", m_IP, m_PC, m_subcycle, m_SPEN, m_TALK, m_TALKD);
	992	#endif
	993	#ifdef DEBUG_GENERATION
	994	if (m_TALK == 0)
	995	fprintf(stderr,"tms5220_process: processing frame: TALKD = 0 caused by stop frame or buffer empty, halting speech.\n");
	996	#endif
	997	m_TALKD = m_TALK; // TALKD is latched from TALK
	998	update_fifo_status_and_ints(); // to trigger an interrupt if TALK_STATUS is now inactive
	999	m_TALK = m_SPEN; // TALK is latched from SPEN
	1000	#ifdef DEBUG_GENERATION
	1001	fprintf(stderr,"RESETL4, status updated: IP=%d, PC=%d, subcycle=%d, m_SPEN=%d, m_TALK=%d, m_TALKD=%d\n", m_IP, m_PC, m_subcycle, m_SPEN, m_TALK, m_TALKD);
	1002	#endif
	1003	}
	1004	m_subcycle = m_subc_reload;
	1005	m_PC = 0;
	1006	m_IP++;
	1007	m_IP&=0x7;
	1008	}
	1009	else if (m_subcycle == 3)
	1010	{
	1011	m_subcycle = m_subc_reload;
	1012	m_PC++;
	1013	}
	1014	m_pitch_count++;
	1015	if ((m_pitch_count >= m_current_pitch)||(m_pitch_zero == 1)) m_pitch_count = 0;
	1016	m_pitch_count &= 0x1FF;
1011	1017	}
1012		else if (m_subcycle == 3)
	1018	else // m_TALKD == 0
1013	1019	{
1014		m_subcycle = m_subc_reload;
1015		m_PC++;
	1020	m_subcycle++;
	1021	if ((m_subcycle == 2) && (m_PC == 12)) // RESETF3
	1022	{
	1023	if (m_IP == 7) // RESETL4
	1024	{
	1025	m_TALKD = m_TALK; // TALKD is latched from TALK
	1026	m_TALK = m_SPEN; // TALK is latched from SPEN
	1027	}
	1028	m_subcycle = m_subc_reload;
	1029	m_PC = 0;
	1030	m_IP++;
	1031	m_IP&=0x7;
	1032	}
	1033	else if (m_subcycle == 3)
	1034	{
	1035	m_subcycle = m_subc_reload;
	1036	m_PC++;
	1037	}
	1038	buffer[buf_count] = -1; /* should be just -1; actual chip outputs -1 every idle sample; (cf note in data sheet, p 10, table 4) */
1016	1039	}
1017		m_pitch_count++;
1018		if (m_pitch_count >= m_current_pitch) m_pitch_count = 0;
1019		m_pitch_count &= 0x1FF;
1020		buf_count++;
1021		size--;
	1040	buf_count++;
	1041	size--;
1022	1042	}
1023
1024		empty:
1025
1026		while (size > 0)
1027		{
1028		m_subcycle++;
1029		if ((m_subcycle == 2) && (m_PC == 12))
1030		{
1031		m_subcycle = m_subc_reload;
1032		m_PC = 0;
1033		m_IP++;
1034		m_IP&=0x7;
1035		}
1036		else if (m_subcycle == 3)
1037		{
1038		m_subcycle = m_subc_reload;
1039		m_PC++;
1040		}
1041		buffer[buf_count] = -1; /* should be just -1; actual chip outputs -1 every idle sample; (cf note in data sheet, p 10, table 4) */
1042		buf_count++;
1043		size--;
1044		}
1045	1043	}
1046	1044
1047	1045	/**********************************************************************************************
r249043	r249044
1182	1180
1183	1181	void tms5220_device::process_command(unsigned char cmd)
1184	1182	{
	1183	int i;
1185	1184	#ifdef DEBUG_COMMAND_DUMP
1186	1185	fprintf(stderr,"process_command called with parameter %02X\n",cmd);
1187	1186	#endif
r249043	r249044
1189	1188	switch (cmd & 0x70)
1190	1189	{
1191	1190	case 0x10 : /* read byte */
1192		if (m_talk_status == 0) /* TALKST must be clear for RDBY */
	1191	if (TALK_STATUS == 0) /* TALKST must be clear for RDBY */
1193	1192	{
1194	1193	if (m_schedule_dummy_read)
1195	1194	{
r249043	r249044
1211	1210	break;
1212	1211
1213	1212	case 0x30 : /* read and branch */
1214		if (m_talk_status == 0) /* TALKST must be clear for RB */
	1213	if (TALK_STATUS == 0) /* TALKST must be clear for RB */
1215	1214	{
1216	1215	#ifdef VERBOSE
1217		logerror("read and branch command received\n");
	1216	fprintf(stderr,"read and branch command received\n");
1218	1217	#endif
1219	1218	m_RDB_flag = FALSE;
1220	1219	if (m_speechrom)
r249043	r249044
1223	1222	break;
1224	1223
1225	1224	case 0x40 : /* load address */
1226		if (m_talk_status == 0) /* TALKST must be clear for LA */
	1225	if (TALK_STATUS == 0) /* TALKST must be clear for LA */
1227	1226	{
1228	1227	/* tms5220 data sheet says that if we load only one 4-bit nibble, it won't work.
1229	1228	This code does not care about this. */
r249043	r249044
1240	1239	if (m_speechrom)
1241	1240	m_speechrom->read(1);
1242	1241	}
1243		m_speaking_now = 1;
1244		m_speak_external = 0;
1245		m_talk_status = 1;  /* start immediately */
1246		/* clear out variables before speaking */
1247		// TODO: similar to the victory case described above, but for VSM speech
1248		m_subcycle = m_subc_reload;
1249		m_PC = 0;
1250		m_IP = reload_table[m_c_variant_rate&0x3];
	1242	m_SPEN = 1;
	1243	#ifdef FAST_START_HACK
	1244	m_TALK = 1;
	1245	#endif
	1246	m_DDIS = 0;
	1247	m_zpar = 1; // zero all the parameters
	1248	m_uv_zpar = 1; // zero k4-k10 as well
	1249	m_OLDE = 1; // 'silence/zpar' frames are zero energy
	1250	m_OLDP = 1; // 'silence/zpar' frames are zero pitch
	1251	#ifdef PERFECT_INTERPOLATION_HACK
	1252	m_old_zpar = 1; // zero all the old parameters
	1253	m_old_uv_zpar = 1; // zero old k4-k10 as well
	1254	#endif
	1255	// following is semi-hack but matches idle state observed on chip
1251	1256	m_new_frame_energy_idx = 0;
1252	1257	m_new_frame_pitch_idx = 0;
1253		int i;
1254	1258	for (i = 0; i < 4; i++)
1255	1259	m_new_frame_k_idx[i] = 0;
1256	1260	for (i = 4; i < 7; i++)
r249043	r249044
1260	1264	break;
1261	1265
1262	1266	case 0x60 : /* speak external */
1263		//SPKEXT going active activates SPKEE which clears the fifo
	1267	// SPKEXT going active activates SPKEE which clears the fifo
1264	1268	m_fifo_head = m_fifo_tail = m_fifo_count = m_fifo_bits_taken = 0;
1265		m_speak_external = 1;
	1269	// SPEN is enabled when the fifo passes half full (falling edge of BL signal)
	1270	m_DDIS = 1;
	1271	m_zpar = 1; // zero all the parameters
	1272	m_uv_zpar = 1; // zero k4-k10 as well
	1273	m_OLDE = 1; // 'silence/zpar' frames are zero energy
	1274	m_OLDP = 1; // 'silence/zpar' frames are zero pitch
	1275	#ifdef PERFECT_INTERPOLATION_HACK
	1276	m_old_zpar = 1; // zero all the old parameters
	1277	m_old_uv_zpar = 1; // zero old k4-k10 as well
	1278	#endif
	1279	// following is semi-hack but matches idle state observed on chip
	1280	m_new_frame_energy_idx = 0;
	1281	m_new_frame_pitch_idx = 0;
	1282	for (i = 0; i < 4; i++)
	1283	m_new_frame_k_idx[i] = 0;
	1284	for (i = 4; i < 7; i++)
	1285	m_new_frame_k_idx[i] = 0xF;
	1286	for (i = 7; i < m_coeff->num_k; i++)
	1287	m_new_frame_k_idx[i] = 0x7;
1266	1288	m_RDB_flag = FALSE;
1267	1289	break;
1268	1290
r249043	r249044
1308	1330	m_IP = reload_table[m_c_variant_rate&0x3];
1309	1331
1310	1332	update_fifo_status_and_ints();
1311		if (!m_talk_status) goto ranout;
	1333	if (m_DDIS && m_buffer_empty) goto ranout;
1312	1334
1313	1335	// attempt to extract the energy index
1314	1336	m_new_frame_energy_idx = extract_bits(m_coeff->energy_bits);
r249043	r249044
1317	1339	fprintf(stderr," ");
1318	1340	#endif
1319	1341	update_fifo_status_and_ints();
1320		if (!m_talk_status) goto ranout;
	1342	if (m_DDIS && m_buffer_empty) goto ranout;
1321	1343	// if the energy index is 0 or 15, we're done
1322	1344	if ((m_new_frame_energy_idx == 0) || (m_new_frame_energy_idx == 15))
1323	1345	return;
r249043	r249044
1337	1359	fprintf(stderr," ");
1338	1360	#endif
1339	1361	update_fifo_status_and_ints();
1340		if (!m_talk_status) goto ranout;
	1362	if (m_DDIS && m_buffer_empty) goto ranout;
1341	1363	// if this is a repeat frame, just do nothing, it will reuse the old coefficients
1342	1364	if (rep_flag)
1343	1365	return;
r249043	r249044
1351	1373	fprintf(stderr," ");
1352	1374	#endif
1353	1375	update_fifo_status_and_ints();
1354		if (!m_talk_status) goto ranout;
	1376	if (m_DDIS && m_buffer_empty) goto ranout;
1355	1377	}
1356	1378
1357	1379	// if the pitch index was zero, we only need 4 K's...
r249043	r249044
1370	1392	fprintf(stderr," ");
1371	1393	#endif
1372	1394	update_fifo_status_and_ints();
1373		if (!m_talk_status) goto ranout;
	1395	if (m_DDIS && m_buffer_empty) goto ranout;
1374	1396	}
	1397	#ifdef DEBUG_PARSE_FRAME_DUMP
	1398	fprintf(stderr,"\n");
	1399	#endif
1375	1400	#ifdef VERBOSE
1376		if (m_speak_external)
1377		logerror("Parsed a frame successfully in FIFO - %d bits remaining\n", (m_fifo_count*8)-(m_fifo_bits_taken));
	1401	if (m_DDIS)
	1402	fprintf(stderr,"Parsed a frame successfully in FIFO - %d bits remaining\n", (m_fifo_count*8)-(m_fifo_bits_taken));
1378	1403	else
1379		logerror("Parsed a frame successfully in ROM\n");
	1404	fprintf(stderr,"Parsed a frame successfully in ROM\n");
1380	1405	#endif
1381	1406	return;
1382	1407
1383	1408	ranout:
1384	1409	#ifdef DEBUG_FRAME_ERRORS
1385		logerror("Ran out of bits on a parse!\n");
	1410	fprintf(stderr,"Ran out of bits on a parse!\n");
1386	1411	#endif
1387	1412	return;
1388	1413	}
r249043	r249044
1397	1422	{
1398	1423	if (!TMS5220_IS_52xx) return; // bail out if not a 52xx chip, since there's no int pin
1399	1424	#ifdef DEBUG_PIN_READS
1400		logerror("irq pin set to state %d\n", state);
	1425	fprintf(stderr,"irq pin set to state %d\n", state);
1401	1426	#endif
1402	1427	if (!m_irq_handler.isnull() && state != m_irq_pin)
1403	1428	m_irq_handler(!state);
r249043	r249044
1414	1439	{
1415	1440	int state = ready_read();
1416	1441	#ifdef DEBUG_PIN_READS
1417		logerror("ready pin set to state %d\n", state);
	1442	fprintf(stderr,"ready pin set to state %d\n", state);
1418	1443	#endif
1419	1444	if (!m_readyq_handler.isnull() && state != m_ready_pin)
1420	1445	m_readyq_handler(!state);
r249043	r249044
1514	1539
1515	1540	/* initialize the chip state */
1516	1541	/* Note that we do not actually clear IRQ on start-up : IRQ is even raised if m_buffer_empty or m_buffer_low are 0 */
1517		m_speaking_now = m_speak_external = m_talk_status = m_irq_pin = m_ready_pin = 0;
	1542	m_SPEN = m_DDIS = m_TALK = m_TALKD = m_previous_TALK_STATUS = m_irq_pin = m_ready_pin = 0;
1518	1543	set_interrupt_state(0);
1519	1544	update_ready_state();
1520	1545	m_buffer_empty = m_buffer_low = 1;
r249043	r249044
1525	1550	#ifdef PERFECT_INTERPOLATION_HACK
1526	1551	m_old_frame_energy_idx = m_old_frame_pitch_idx = 0;
1527	1552	memset(m_old_frame_k_idx, 0, sizeof(m_old_frame_k_idx));
	1553	m_old_zpar = 0;
1528	1554	#endif
1529		m_new_frame_energy_idx = m_current_energy = m_target_energy = m_previous_energy = 0;
1530		m_new_frame_pitch_idx = m_current_pitch = m_target_pitch = 0;
	1555	m_new_frame_energy_idx = m_current_energy =  m_previous_energy = 0;
	1556	m_new_frame_pitch_idx = m_current_pitch = 0;
	1557	m_zpar = m_uv_zpar = 0;
1531	1558	memset(m_new_frame_k_idx, 0, sizeof(m_new_frame_k_idx));
1532	1559	memset(m_current_k, 0, sizeof(m_current_k));
1533		memset(m_target_k, 0, sizeof(m_target_k));
1534	1560
1535	1561	/* initialize the sample generators */
1536	1562	m_inhibit = 1;
r249043	r249044
1574	1600	/* Write */
1575	1601	/* bring up to date first */
1576	1602	#ifdef DEBUG_IO_READY
1577		logerror("Serviced write: %02x\n", m_write_latch);
	1603	fprintf(stderr,"Serviced write: %02x\n", m_write_latch);
1578	1604	//fprintf(stderr, "Processed write data: %02X\n", m_write_latch);
1579	1605	#endif
1580	1606	m_stream->update();
r249043	r249044
1610	1636	m_true_timing = 1;
1611	1637	state &= 0x01;
1612	1638	#ifdef DEBUG_RS_WS
1613		logerror("/RS written with data: %d\n", state);
	1639	fprintf(stderr,"/RS written with data: %d\n", state);
1614	1640	#endif
1615	1641	new_val = (m_rs_ws & 0x01) | (state<<1);
1616	1642	if (new_val != m_rs_ws)
r249043	r249044
1623	1649	#ifdef DEBUG_RS_WS
1624	1650	else
1625	1651	/* illegal */
1626		logerror("tms5220_rs_w: illegal\n");
	1652	fprintf(stderr,"tms5220_rs_w: illegal\n");
1627	1653	#endif
1628	1654	return;
1629	1655	}
r249043	r249044
1641	1667	{
1642	1668	/* high to low - schedule ready cycle */
1643	1669	#ifdef DEBUG_RS_WS
1644		logerror("Scheduling ready cycle for /RS...\n");
	1670	fprintf(stderr,"Scheduling ready cycle for /RS...\n");
1645	1671	#endif
1646	1672	/* upon /RS being activated, /READY goes inactive after 100 nsec from data sheet, through 3 asynchronous gates on patent. This is effectively within one clock, so we immediately set io_ready to 0 and activate the callback. */
1647	1673	m_io_ready = 0;
r249043	r249044
1662	1688	m_true_timing = 1;
1663	1689	state &= 0x01;
1664	1690	#ifdef DEBUG_RS_WS
1665		logerror("/WS written with data: %d\n", state);
	1691	fprintf(stderr,"/WS written with data: %d\n", state);
1666	1692	#endif
1667	1693	new_val = (m_rs_ws & 0x02) | (state<<0);
1668	1694	if (new_val != m_rs_ws)
r249043	r249044
1675	1701	#ifdef DEBUG_RS_WS
1676	1702	else
1677	1703	/* illegal */
1678		logerror("tms5220_ws_w: illegal\n");
	1704	fprintf(stderr,"tms5220_ws_w: illegal\n");
1679	1705	#endif
1680	1706	return;
1681	1707	}
r249043	r249044
1693	1719	{
1694	1720	/* high to low - schedule ready cycle */
1695	1721	#ifdef DEBUG_RS_WS
1696		logerror("Scheduling ready cycle for /WS...\n");
	1722	fprintf(stderr,"Scheduling ready cycle for /WS...\n");
1697	1723	#endif
1698	1724	/* upon /WS being activated, /READY goes inactive after 100 nsec from data sheet, through 3 asynchronous gates on patent. This is effectively within one clock, so we immediately set io_ready to 0 and activate the callback. */
1699	1725	m_io_ready = 0;
r249043	r249044
1726	1752	if (space.debugger_access()) return;
1727	1753
1728	1754	#ifdef DEBUG_RS_WS
1729		logerror("tms5220_data_w: data %02x\n", data);
	1755	fprintf(stderr,"tms5220_data_w: data %02x\n", data);
1730	1756	#endif
1731	1757	if (!m_true_timing)
1732	1758	{
r249043	r249044
1739	1765	/* actually in a write ? */
1740	1766	#ifdef DEBUG_RS_WS
1741	1767	if (!(m_rs_ws == 0x02))
1742		logerror("tms5220_data_w: data written outside ws, status: %02x!\n", m_rs_ws);
	1768	fprintf(stderr,"tms5220_data_w: data written outside ws, status: %02x!\n", m_rs_ws);
1743	1769	#endif
1744	1770	m_write_latch = data;
1745	1771	}
r249043	r249044
1771	1797	return m_read_latch;
1772	1798	#ifdef DEBUG_RS_WS
1773	1799	else
1774		logerror("tms5220_status_r: data read outside rs!\n");
	1800	fprintf(stderr,"tms5220_status_r: data read outside rs!\n");
1775	1801	#endif
1776	1802	return 0xff;
1777	1803	}

trunk/src/emu/sound/tms5220.h

r249043	r249044
105	105
106	106
107	107	/* these contain global status bits */
108		UINT8 m_speaking_now;     /* True only if actual speech is being generated right now. Is set when a speak vsm command happens OR when speak external happens and buffer low becomes nontrue; Is cleared when speech halts after the last stop frame or the last frame after talk status is otherwise cleared.*/
109		UINT8 m_speak_external;   /* If 1, DDIS is 1, i.e. Speak External command in progress, writes go to FIFO. */
110		UINT8 m_talk_status;      /* If 1, TS status bit is 1, i.e. speak or speak external is in progress and we have not encountered a stop frame yet; talk_status differs from speaking_now in that speaking_now is set as soon as a speak or speak external command is started; talk_status does NOT go active until after 8 bytes are written to the fifo on a speak external command, otherwise the two are the same. TS is cleared by 3 things: 1. when a STOP command has just been processed as a new frame in the speech stream; 2. if the fifo runs out in speak external mode; 3. on power-up/during a reset command; When it gets cleared, speak_external is also cleared, an interrupt is generated, and speaking_now will be cleared when the next frame starts. */
	108	UINT8 m_previous_TALK_STATUS;      /* this is the OLD value of TALK_STATUS (i.e. previous value of m_SPEN|m_TALKD), needed for generating interrupts on a falling TALK_STATUS edge */
	109	UINT8 m_SPEN;             /* set on speak(or speak external and BL falling edge) command, cleared on stop command, reset command, or buffer out */
	110	UINT8 m_DDIS;             /* If 1, DDIS is 1, i.e. Speak External command in progress, writes go to FIFO. */
	111	UINT8 m_TALK;             /* set on SPEN & RESETL4(pc12->pc0 transition), cleared on stop command or reset command */
	112	#define TALK_STATUS (m_SPEN|m_TALKD)
	113	UINT8 m_TALKD;            /* TALK(TCON) value, latched every RESETL4 */
111	114	UINT8 m_buffer_low;       /* If 1, FIFO has less than 8 bytes in it */
112	115	UINT8 m_buffer_empty;     /* If 1, FIFO is empty */
113	116	UINT8 m_irq_pin;          /* state of the IRQ pin (output) */
r249043	r249044
132	135	INT16 m_current_energy;
133	136	INT16 m_current_pitch;
134	137	INT16 m_current_k[10];
135
136		INT16 m_target_energy;
137		INT16 m_target_pitch;
138		INT16 m_target_k[10];
139	138	#else
140	139	UINT8 m_old_frame_energy_idx;
141	140	UINT8 m_old_frame_pitch_idx;
142	141	UINT8 m_old_frame_k_idx[10];
	142	UINT8 m_old_zpar;
	143	UINT8 m_old_uv_zpar;
143	144
144	145	INT32 m_current_energy;
145	146	INT32 m_current_pitch;
146	147	INT32 m_current_k[10];
147
148		INT32 m_target_energy;
149		INT32 m_target_pitch;
150		INT32 m_target_k[10];
151	148	#endif
152	149
153	150	UINT16 m_previous_energy; /* needed for lattice filter to match patent */
r249043	r249044
155	152	UINT8 m_subcycle;         /* contains the current subcycle for a given PC: 0 is A' (only used on SPKSLOW mode on 51xx), 1 is A, 2 is B */
156	153	UINT8 m_subc_reload;      /* contains 1 for normal speech, 0 when SPKSLOW is active */
157	154	UINT8 m_PC;               /* current parameter counter (what param is being interpolated), ranges from 0 to 12 */
158		/* TODO/NOTE: the current interpolation period, counts 1,2,3,4,5,6,7,0 for divide by 8,8,8,4,4,2,2,1 */
	155	/* NOTE: the interpolation period counts 1,2,3,4,5,6,7,0 for divide by 8,8,8,4,4,2,2,1 */
159	156	UINT8 m_IP;               /* the current interpolation period */
160	157	UINT8 m_inhibit;          /* If 1, interpolation is inhibited until the DIV1 period */
	158	UINT8 m_uv_zpar;          /* If 1, zero k5 thru k10 coefficients */
	159	UINT8 m_zpar;             /* If 1, zero ALL parameters. */
	160	UINT8 m_pitch_zero;       /* circuit 412; pitch is forced to zero under certain circumstances */
161	161	UINT8 m_c_variant_rate;    /* only relevant for tms5220C's multi frame rate feature; is the actual 4 bit value written on a 0x2* or 0x0* command */
162	162	UINT16 m_pitch_count;     /* pitch counter; provides chirp rom address */
163	163
164	164	INT32 m_u[11];
165	165	INT32 m_x[10];
166	166
167		UINT16 m_RNG;             /* the random noise generator configuration is: 1 + x + x^3 + x^4 + x^13 */
	167	UINT16 m_RNG;             /* the random noise generator configuration is: 1 + x + x^3 + x^4 + x^13 TODO: no it isn't */
168	168	INT16 m_excitation_data;
169	169
170	170	/* R Nabet : These have been added to emulate speech Roms */

trunk/src/mame/arcade.lst

r249043	r249044
8220	8220	nbajamte3       // (c) 1994 Midway
8221	8221	nbajamten       // (c) 1995 Midway
8222	8222	revx            // (c) 1994 Midway
	8223	revxp5          // (c) 1994 Midway
8223	8224	mk3             // (c) 1994 Midway
8224	8225	mk3r20          // (c) 1994 Midway
8225	8226	mk3r10          // (c) 1994 Midway

trunk/src/mame/drivers/fcrash.c

r249043	r249044
2958	2958
2959	2959	GAME( 1992, sf2b,      sf2,      sf2b,      sf2mdt,   cps_state, sf2b,     ROT0,   "bootleg", "Street Fighter II: The World Warrior (bootleg)",  MACHINE_IMPERFECT_GRAPHICS | MACHINE_SUPPORTS_SAVE ) //910204 - based on World version
2960	2960
2961		GAME( 1992, sf2m9,     sf2ce,    sf2m1,     sf2,      cps_state, dinopic,  ROT0,   "bootleg", "Street Fighter II': Champion Edition (M9, bootleg)",  MACHINE_IMPERFECT_GRAPHICS | MACHINE_SUPPORTS_SAVE ) // 920313 ETC
	2961	GAME( 1992, sf2m9,     sf2ce,    sf2m1,     sf2,      cps_state, sf2m1,    ROT0,   "bootleg", "Street Fighter II': Champion Edition (M9, bootleg)",  MACHINE_IMPERFECT_GRAPHICS | MACHINE_SUPPORTS_SAVE ) // 920313 ETC
2962	2962
2963	2963	GAME( 1993, slampic,   slammast, slampic,   slammast, cps_state, dinopic,  ROT0,   "bootleg", "Saturday Night Slam Masters (bootleg with PIC16c57)", MACHINE_IMPERFECT_GRAPHICS | MACHINE_NO_SOUND | MACHINE_SUPPORTS_SAVE ) // 930713 ETC
2964	2964

trunk/src/mame/drivers/lethalj.c

r249043	r249044
681	681
682	682	ROM_START( lethalj )
683	683	ROM_REGION16_LE( 0x100000, "user1", 0 )     /* 34010 code */
684		ROM_LOAD16_BYTE( "vc8",  0x000000, 0x080000, CRC(8d568e1d) SHA1(e4dd3794789f9ccd7be8374978a3336f2b79136f) )
685		ROM_LOAD16_BYTE( "vc9",  0x000001, 0x080000, CRC(8f22add4) SHA1(e773d3ae9cf512810fc266e784d21ed115c8830c) )
	684	ROM_LOAD16_BYTE( "lethal_vc8_2.3.vc8",  0x000000, 0x080000, CRC(8d568e1d) SHA1(e4dd3794789f9ccd7be8374978a3336f2b79136f) ) /* Labeled as LETHAL VC8 2.3, also found labeled as VC-8 */
	685	ROM_LOAD16_BYTE( "lethal_vc9_2.3.vc9",  0x000001, 0x080000, CRC(8f22add4) SHA1(e773d3ae9cf512810fc266e784d21ed115c8830c) ) /* Labeled as LETHAL VC9 2.3, also found labeled as VC-9 */
686	686
687	687	ROM_REGION16_LE( 0x600000, "gfx1", 0 )          /* graphics data */
688		ROM_LOAD16_BYTE( "gr1",  0x000000, 0x100000, CRC(27f7b244) SHA1(628b29c066e217e1fe54553ea3ed98f86735e262) )
689		ROM_LOAD16_BYTE( "gr2",  0x000001, 0x100000, CRC(1f25d3ab) SHA1(bdb8a3c546cdee9a5630c47b9c5079a956e8a093) )
690		ROM_LOAD16_BYTE( "gr4",  0x200000, 0x100000, CRC(c5838b4c) SHA1(9ad03d0f316eb31fdf0ca6f65c02a27d3406d072) )
691		ROM_LOAD16_BYTE( "gr3",  0x200001, 0x100000, CRC(ba9fa057) SHA1(db6f11a8964870f04f94fef6f1b1a58168a942ad) )
692		ROM_LOAD16_BYTE( "gr6",  0x400000, 0x100000, CRC(51c99b85) SHA1(9a23bf21a73d2884b49c64a8f42c288534c79dc5) )
693		ROM_LOAD16_BYTE( "gr5",  0x400001, 0x100000, CRC(80dda9b5) SHA1(d8a79cad112bc7d9e4ba31a950e4807581f3bf46) )
	688	ROM_LOAD16_BYTE( "gr1.gr1",             0x000000, 0x100000, CRC(27f7b244) SHA1(628b29c066e217e1fe54553ea3ed98f86735e262) ) /* These had non specific GRx labels, also found labeled as GR-x */
	689	ROM_LOAD16_BYTE( "gr2.gr2",             0x000001, 0x100000, CRC(1f25d3ab) SHA1(bdb8a3c546cdee9a5630c47b9c5079a956e8a093) )
	690	ROM_LOAD16_BYTE( "gr4.gr4",             0x200000, 0x100000, CRC(c5838b4c) SHA1(9ad03d0f316eb31fdf0ca6f65c02a27d3406d072) )
	691	ROM_LOAD16_BYTE( "gr3.gr3",             0x200001, 0x100000, CRC(ba9fa057) SHA1(db6f11a8964870f04f94fef6f1b1a58168a942ad) )
	692	ROM_LOAD16_BYTE( "lethal_gr6_2.3.gr6",  0x400000, 0x100000, CRC(51c99b85) SHA1(9a23bf21a73d2884b49c64a8f42c288534c79dc5) ) /* Labeled as LETHAL GR6 2.3, also found labeled as GR-6 */
	693	ROM_LOAD16_BYTE( "lethal_gr5_2.3.gr5",  0x400001, 0x100000, CRC(80dda9b5) SHA1(d8a79cad112bc7d9e4ba31a950e4807581f3bf46) ) /* Labeled as LETHAL GR5 2.3, also found labeled as GR-5 */
694	694
695	695	ROM_REGION( 0x40000, "oki1", 0 )                /* sound data */
696	696	ROM_LOAD( "sound1.u20", 0x00000, 0x40000, CRC(7d93ca66) SHA1(9e1dc0efa5d0f770c7e1f10de56fbf5620dea437) )
r249043	r249044
1007	1007	*
1008	1008	*************************************/
1009	1009
1010		GAME( 1996, lethalj,   0,        lethalj,  lethalj,   driver_device, 0,        ROT0,  "The Game Room", "Lethal Justice", 0 )
	1010	GAME( 1996, lethalj,   0,        lethalj,  lethalj,   driver_device, 0,        ROT0,  "The Game Room", "Lethal Justice (Version 2.3)", 0 )
1011	1011	GAME( 1996, franticf,  0,        gameroom, franticf,  driver_device, 0,        ROT0,  "The Game Room", "Frantic Fred", MACHINE_NOT_WORKING )
1012	1012	GAME( 1997, eggventr,  0,        gameroom, eggventr,  driver_device, 0,        ROT0,  "The Game Room", "Egg Venture (Release 10)", 0 )
1013	1013	GAME( 1997, eggventr8, eggventr, gameroom, eggventr,  driver_device, 0,        ROT0,  "The Game Room", "Egg Venture (Release 8)", 0 )

trunk/src/mame/drivers/midxunit.c

r249043	r249044
345	345	ROM_LOAD( "a-17721.u955", 0x200, 0x117, CRC(033fe902) SHA1(6efb4e519ed3c9d49fff046a679762b506b3a75b) )
346	346	ROM_END
347	347
	348	ROM_START( revxp5 )
	349	ROM_REGION16_LE( 0x1000000, "dcs", ROMREGION_ERASEFF )  /* sound data */
	350	ROM_LOAD16_BYTE( "revx_snd.2", 0x000000, 0x80000, CRC(4ed9e803) SHA1(ba50f1beb9f2a2cf5110897209b5e9a2951ff165) )
	351	ROM_LOAD16_BYTE( "revx_snd.3", 0x200000, 0x80000, CRC(af8f253b) SHA1(25a0000cab177378070f7a6e3c7378fe87fad63e) )
	352	ROM_LOAD16_BYTE( "revx_snd.4", 0x400000, 0x80000, CRC(3ccce59c) SHA1(e81a31d64c64e7b1d25f178c53da3d68453c203c) )
	353	ROM_LOAD16_BYTE( "revx_snd.5", 0x600000, 0x80000, CRC(a0438006) SHA1(560d216d21cb8073dbee0fd20ebe589932a9144e) )
	354	ROM_LOAD16_BYTE( "revx_snd.6", 0x800000, 0x80000, CRC(b7b34f60) SHA1(3b9682c6a00fa3bdb47e69d8e8ceccc244ee55b5) )
	355	ROM_LOAD16_BYTE( "revx_snd.7", 0xa00000, 0x80000, CRC(6795fd88) SHA1(7c3790730a8b99b63112c851318b1c7e4989e5e0) )
	356	ROM_LOAD16_BYTE( "revx_snd.8", 0xc00000, 0x80000, CRC(793a7eb5) SHA1(4b1f81b68f95cedf1b356ef362d1eb37acc74b16) )
	357	ROM_LOAD16_BYTE( "revx_snd.9", 0xe00000, 0x80000, CRC(14ddbea1) SHA1(8dba9dc5529ea77c4312ea61f825bf9062ffc6c3) )
348	358
	359	ROM_REGION16_LE( 0x200000, "maincpu", 0 )   /* 34020 code */
	360	ROM_LOAD32_BYTE( "revx_p5.51",  0x00000, 0x80000, CRC(f3877eee) SHA1(7a4fdce36edddd35308c107c992ce626a2c9eb8c) )
	361	ROM_LOAD32_BYTE( "revx_p5.52",  0x00001, 0x80000, CRC(199a54d8) SHA1(45319437e11176d4926c00c95c372098203a32a3) )
	362	ROM_LOAD32_BYTE( "revx_p5.53",  0x00002, 0x80000, CRC(fcfcf72a) SHA1(b471afb416e3d348b046b0b40f497d27b0afa470) )
	363	ROM_LOAD32_BYTE( "revx_p5.54",  0x00003, 0x80000, CRC(fd684c31) SHA1(db3453792e4d9fc375297d030f0b3f9cc3cad925) )
349	364
	365	ROM_REGION( 0x2000, "pic", 0 )
	366	ROM_LOAD( "revx_16c57.bin", 0x0000000, 0x2000, CRC(eb8a8649) SHA1(a1e1d0b7a5e9802e8f889eb7e719259656dc8133) )
	367
	368	ROM_REGION( 0x1000000, "gfxrom", 0 )
	369	ROM_LOAD32_BYTE( "revx.120", 0x0000000, 0x80000, CRC(523af1f0) SHA1(a67c0fd757e860fc1c1236945952a295b4d5df5a) )
	370	ROM_LOAD32_BYTE( "revx.121", 0x0000001, 0x80000, CRC(78201d93) SHA1(fb0b8f887eec433f7624f387d7fb6f633ea30d7c) )
	371	ROM_LOAD32_BYTE( "revx.122", 0x0000002, 0x80000, CRC(2cf36144) SHA1(22ed0eefa2c7c836811fac5f717c3f38254eabc2) )
	372	ROM_LOAD32_BYTE( "revx.123", 0x0000003, 0x80000, CRC(6912e1fb) SHA1(416f0de711d80e9182ede524c568c5095b1bec61) )
	373
	374	ROM_LOAD32_BYTE( "revx.110", 0x0200000, 0x80000, CRC(e3f7f0af) SHA1(5877d9f488b0f4362a9482007c3ff7f4589a036f) )
	375	ROM_LOAD32_BYTE( "revx.111", 0x0200001, 0x80000, CRC(49fe1a69) SHA1(9ae54b461f0524c034fbcb6fcd3fd5ccb5d7265a) )
	376	ROM_LOAD32_BYTE( "revx.112", 0x0200002, 0x80000, CRC(7e3ba175) SHA1(dd2fe90988b544f67dbe6151282fd80d49631388) )
	377	ROM_LOAD32_BYTE( "revx.113", 0x0200003, 0x80000, CRC(c0817583) SHA1(2f866e5888e212b245984344950d0e1fb8957a73) )
	378
	379	ROM_LOAD32_BYTE( "revx.101", 0x0400000, 0x80000, CRC(5a08272a) SHA1(17da3c9d71114f5fdbf50281a942be3da3b6f564) )
	380	ROM_LOAD32_BYTE( "revx.102", 0x0400001, 0x80000, CRC(11d567d2) SHA1(7ebe6fd39a0335e1fdda150d2dc86c3eaab17b2e) )
	381	ROM_LOAD32_BYTE( "revx.103", 0x0400002, 0x80000, CRC(d338e63b) SHA1(0a038217542667b3a01ecbcad824ee18c084f293) )
	382	ROM_LOAD32_BYTE( "revx.104", 0x0400003, 0x80000, CRC(f7b701ee) SHA1(0fc5886e5857326bee7272d5d482a878cbcea83c) )
	383
	384	ROM_LOAD32_BYTE( "revx.91",  0x0600000, 0x80000, CRC(52a63713) SHA1(dcc0ff3596bd5d273a8d4fd33b0b9b9d588d8354) )
	385	ROM_LOAD32_BYTE( "revx.92",  0x0600001, 0x80000, CRC(fae3621b) SHA1(715d41ea789c0c724baa5bd90f6f0f06b9cb1c64) )
	386	ROM_LOAD32_BYTE( "revx.93",  0x0600002, 0x80000, CRC(7065cf95) SHA1(6c5888da099e51c4b1c592721c5027c899cf52e3) )
	387	ROM_LOAD32_BYTE( "revx.94",  0x0600003, 0x80000, CRC(600d5b98) SHA1(6aef98c91f87390c0759fe71a272a3ccadd71066) )
	388
	389	ROM_LOAD32_BYTE( "revx.81",  0x0800000, 0x80000, CRC(729eacb1) SHA1(d130162ae22b99c84abfbe014c4e23e20afb757f) )
	390	ROM_LOAD32_BYTE( "revx.82",  0x0800001, 0x80000, CRC(19acb904) SHA1(516059b516bc5b1669c9eb085e0cdcdee520dff0) )
	391	ROM_LOAD32_BYTE( "revx.83",  0x0800002, 0x80000, CRC(0e223456) SHA1(1eedbd667f4a214533d1c22ca5312ecf2d4a3ab4) )
	392	ROM_LOAD32_BYTE( "revx.84",  0x0800003, 0x80000, CRC(d3de0192) SHA1(2d22c5bac07a7411f326691167c7c70eba4b371f) )
	393
	394	ROM_LOAD32_BYTE( "revx.71",  0x0a00000, 0x80000, CRC(2b29fddb) SHA1(57b71e5c18b56bf58216e690fdefa6d30d88d34a) )
	395	ROM_LOAD32_BYTE( "revx.72",  0x0a00001, 0x80000, CRC(2680281b) SHA1(d1ae0701d20166a00d8733d9d12246c140a5fb96) )
	396	ROM_LOAD32_BYTE( "revx.73",  0x0a00002, 0x80000, CRC(420bde4d) SHA1(0f010cdeddb59631a5420dddfc142c50c2a1e65a) )
	397	ROM_LOAD32_BYTE( "revx.74",  0x0a00003, 0x80000, CRC(26627410) SHA1(a612121554549afff5c8e8c54774ca7b0220eda8) )
	398
	399	ROM_LOAD32_BYTE( "revx.63",  0x0c00000, 0x80000, CRC(3066e3f3) SHA1(25548923db111bd6c6cff44bfb63cb9eb2ef0b53) )
	400	ROM_LOAD32_BYTE( "revx.64",  0x0c00001, 0x80000, CRC(c33f5309) SHA1(6bb333f563ea66c4c862ffd5fb91fb5e1b919fe8) )
	401	ROM_LOAD32_BYTE( "revx.65",  0x0c00002, 0x80000, CRC(6eee3e71) SHA1(0ef22732e0e2bb5207559decd43f90d1e338ad7b) )
	402	ROM_LOAD32_BYTE( "revx.66",  0x0c00003, 0x80000, CRC(b43d6fff) SHA1(87584e7aeea9d52a43023d40c359591ff6342e84) )
	403
	404	ROM_LOAD32_BYTE( "revx_p5.51",  0xe00000, 0x80000, CRC(f3877eee) SHA1(7a4fdce36edddd35308c107c992ce626a2c9eb8c) )
	405	ROM_LOAD32_BYTE( "revx_p5.52",  0xe00001, 0x80000, CRC(199a54d8) SHA1(45319437e11176d4926c00c95c372098203a32a3) )
	406	ROM_LOAD32_BYTE( "revx_p5.53",  0xe00002, 0x80000, CRC(fcfcf72a) SHA1(b471afb416e3d348b046b0b40f497d27b0afa470) )
	407	ROM_LOAD32_BYTE( "revx_p5.54",  0xe00003, 0x80000, CRC(fd684c31) SHA1(db3453792e4d9fc375297d030f0b3f9cc3cad925) )
	408
	409	ROM_REGION( 0x400, "plds", 0 )
	410	ROM_LOAD( "a-17722.u1",   0x000, 0x117, CRC(054de7a3) SHA1(bb7abaec50ed704c03b44d5d54296898f7c80d38) )
	411	ROM_LOAD( "a-17721.u955", 0x200, 0x117, CRC(033fe902) SHA1(6efb4e519ed3c9d49fff046a679762b506b3a75b) )
	412	ROM_END
	413
	414
	415
350	416	/*************************************
351	417	*
352	418	*  Game drivers
353	419	*
354	420	*************************************/
355	421
356		GAME( 1994, revx,   0,         midxunit, revx, midxunit_state, revx, ROT0, "Midway",   "Revolution X (Rev. 1.0 6/16/94)", MACHINE_SUPPORTS_SAVE )
	422	GAME( 1994, revx,     0,    midxunit, revx, midxunit_state, revx, ROT0, "Midway",   "Revolution X (rev 1.0 6/16/94)", MACHINE_SUPPORTS_SAVE )
	423	GAME( 1994, revxp5,   revx, midxunit, revx, midxunit_state, revx, ROT0, "Midway",   "Revolution X (prototype, rev 5.0 5/23/94)", MACHINE_SUPPORTS_SAVE )

trunk/src/mame/drivers/namcofl.c

r249043	r249044
610	610	MCFG_VIDEO_START_OVERRIDE(namcofl_state,namcofl)
611	611
612	612	MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker")
613		MCFG_C352_ADD("c352", 48384000/2, C352_DIVIDER_288)
	613	MCFG_C352_ADD("c352", 48384000/2, 288)
614	614	MCFG_SOUND_ROUTE(0, "rspeaker", 1.00)
615	615	MCFG_SOUND_ROUTE(1, "lspeaker", 1.00)
616	616	MCFG_SOUND_ROUTE(2, "rspeaker", 1.00)

trunk/src/mame/drivers/namconb1.c

r249043	r249044
1126	1126	MCFG_VIDEO_START_OVERRIDE(namconb1_state,namconb1)
1127	1127
1128	1128	MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker")
1129		MCFG_C352_ADD("c352", MASTER_CLOCK/2, C352_DIVIDER_288)
	1129	MCFG_C352_ADD("c352", MASTER_CLOCK/2, 288)
1130	1130	MCFG_SOUND_ROUTE(0, "rspeaker", 1.00)
1131	1131	MCFG_SOUND_ROUTE(1, "lspeaker", 1.00)
1132	1132	MCFG_SOUND_ROUTE(2, "rspeaker", 1.00)
r249043	r249044
1163	1163	MCFG_VIDEO_START_OVERRIDE(namconb1_state,namconb2)
1164	1164
1165	1165	MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker")
1166		MCFG_C352_ADD("c352", MASTER_CLOCK/2, C352_DIVIDER_288)
	1166	MCFG_C352_ADD("c352", MASTER_CLOCK/2, 288)
1167	1167	MCFG_SOUND_ROUTE(0, "rspeaker", 1.00)
1168	1168	MCFG_SOUND_ROUTE(1, "lspeaker", 1.00)
1169	1169	MCFG_SOUND_ROUTE(2, "rspeaker", 1.00)

trunk/src/mame/drivers/namcond1.c

r249043	r249044
307	307	/* sound hardware */
308	308	MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker")
309	309
310		MCFG_C352_ADD("c352", XTAL_49_152MHz/2, C352_DIVIDER_288)
	310	MCFG_C352_ADD("c352", XTAL_49_152MHz/2, 288)
311	311	MCFG_SOUND_ROUTE(0, "rspeaker", 1.00)
312	312	MCFG_SOUND_ROUTE(1, "lspeaker", 1.00)
313	313	MCFG_SOUND_ROUTE(2, "rspeaker", 1.00)

trunk/src/mame/drivers/namcos11.c

r249043	r249044
571	571
572	572	MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker")
573	573
574		MCFG_C352_ADD("c352", 20013200, C352_DIVIDER_228)
	574	MCFG_C352_ADD("c352", 20013200, 228)
575	575	MCFG_SOUND_ROUTE(0, "rspeaker", 1.00)
576	576	MCFG_SOUND_ROUTE(1, "lspeaker", 1.00)
577	577	MCFG_SOUND_ROUTE(2, "rspeaker", 1.00)

trunk/src/mame/drivers/namcos12.c

r249043	r249044
1622	1622	/* sound hardware */
1623	1623	MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker")
1624	1624
1625		MCFG_C352_ADD("c352", 29168000, C352_DIVIDER_332)
	1625	MCFG_C352_ADD("c352", 29168000, 332)
1626	1626	MCFG_SOUND_ROUTE(0, "rspeaker", 1.00)
1627	1627	MCFG_SOUND_ROUTE(1, "lspeaker", 1.00)
1628	1628	MCFG_SOUND_ROUTE(2, "rspeaker", 1.00)

trunk/src/mame/drivers/namcos22.c

r249043	r249044
3781	3781	/* sound hardware */
3782	3782	MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker")
3783	3783
3784		MCFG_C352_ADD("c352", SS22_MASTER_CLOCK/2, C352_DIVIDER_288)
	3784	MCFG_C352_ADD("c352", SS22_MASTER_CLOCK/2, 288)
3785	3785	MCFG_SOUND_ROUTE(0, "rspeaker", 1.00)
3786	3786	MCFG_SOUND_ROUTE(1, "lspeaker", 1.00)
3787	3787	MCFG_SOUND_ROUTE(2, "rspeaker", 1.00)
r249043	r249044
3830	3830	/* sound hardware */
3831	3831	MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker")
3832	3832
3833		MCFG_C352_ADD("c352", SS22_MASTER_CLOCK/2, C352_DIVIDER_288)
	3833	MCFG_C352_ADD("c352", SS22_MASTER_CLOCK/2, 288)
3834	3834	MCFG_SOUND_ROUTE(0, "rspeaker", 1.00)
3835	3835	MCFG_SOUND_ROUTE(1, "lspeaker", 1.00)
3836	3836	MCFG_SOUND_ROUTE(2, "rspeaker", 1.00)

trunk/src/mame/drivers/namcos23.c

r249043	r249044
1247	1247	#define JVSCLOCK    (XTAL_14_7456MHz)
1248	1248	#define H8CLOCK     (16737350)      /* from 2061 */
1249	1249	#define BUSCLOCK    (16737350*2)    /* 33MHz CPU bus clock / input */
1250		#define C352CLOCK   (25992000)  /* measured at 25.992MHz from 2061 pin 9 (System 12 uses a divider of 332) */
	1250	#define C352CLOCK   (25992000)  /* measured at 25.992MHz from 2061 pin 9  */
	1251	#define C352DIV      (296)
1251	1252	#define VSYNC1      (59.8824)
1252	1253	#define VSYNC2      (59.915)
1253	1254	#define HSYNC       (16666150)
r249043	r249044
3320	3321	/* sound hardware */
3321	3322	MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker")
3322	3323
3323		MCFG_C352_ADD("c352", C352CLOCK, C352_DIVIDER_332)
	3324	MCFG_C352_ADD("c352", C352CLOCK, C352DIV)
3324	3325	MCFG_SOUND_ROUTE(0, "rspeaker", 1.00)
3325	3326	MCFG_SOUND_ROUTE(1, "lspeaker", 1.00)
3326	3327	MCFG_SOUND_ROUTE(2, "rspeaker", 1.00)
r249043	r249044
3389	3390	/* sound hardware */
3390	3391	MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker")
3391	3392
3392		MCFG_C352_ADD("c352", C352CLOCK, C352_DIVIDER_332)
	3393	MCFG_C352_ADD("c352", C352CLOCK, C352DIV)
3393	3394	MCFG_SOUND_ROUTE(0, "rspeaker", 1.00)
3394	3395	MCFG_SOUND_ROUTE(1, "lspeaker", 1.00)
3395	3396	MCFG_SOUND_ROUTE(2, "rspeaker", 1.00)
r249043	r249044
3469	3470	/* sound hardware */
3470	3471	MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker")
3471	3472
3472		MCFG_C352_ADD("c352", C352CLOCK, C352_DIVIDER_332)
	3473	MCFG_C352_ADD("c352", C352CLOCK, C352DIV)
3473	3474	MCFG_SOUND_ROUTE(0, "rspeaker", 1.00)
3474	3475	MCFG_SOUND_ROUTE(1, "lspeaker", 1.00)
3475	3476	MCFG_SOUND_ROUTE(2, "rspeaker", 1.00)

trunk/src/mame/drivers/quantum.c

r249043	r249044
334	334	/* AVG PROM */
335	335	ROM_REGION( 0x100, "user1", 0 )
336	336	ROM_LOAD( "136002-125.6h",   0x0000, 0x0100, BAD_DUMP CRC(5903af03) SHA1(24bc0366f394ad0ec486919212e38be0f08d0239) )
	337
	338	ROM_REGION( 0x200, "plds", 0 )
	339	ROM_LOAD( "137290-001.1b",   0x0000, 0x0117, CRC(938a4598) SHA1(e5b6ddb1b4bb5546d3a0da5d00ce7c57a9e8e769) ) // GAL16V8
337	340	ROM_END
338	341
339	342
r249043	r249044
352	355	/* AVG PROM */
353	356	ROM_REGION( 0x100, "user1", 0 )
354	357	ROM_LOAD( "136002-125.6h",   0x0000, 0x0100, BAD_DUMP CRC(5903af03) SHA1(24bc0366f394ad0ec486919212e38be0f08d0239) )
	358
	359	ROM_REGION( 0x200, "plds", 0 )
	360	ROM_LOAD( "137290-001.1b",   0x0000, 0x0117, CRC(938a4598) SHA1(e5b6ddb1b4bb5546d3a0da5d00ce7c57a9e8e769) ) // GAL16V8
355	361	ROM_END
356	362
357	363
r249043	r249044
370	376	/* AVG PROM */
371	377	ROM_REGION( 0x100, "user1", 0 )
372	378	ROM_LOAD( "136002-125.6h",   0x0000, 0x0100, BAD_DUMP CRC(5903af03) SHA1(24bc0366f394ad0ec486919212e38be0f08d0239) )
	379
	380	ROM_REGION( 0x200, "plds", 0 )
	381	ROM_LOAD( "137290-001.1b",   0x0000, 0x0117, CRC(938a4598) SHA1(e5b6ddb1b4bb5546d3a0da5d00ce7c57a9e8e769) ) // GAL16V8
373	382	ROM_END
374	383
375	384

trunk/src/mame/includes/chihiro.h

r249043	r249044
185	185	memset(pfifo, 0, sizeof(pfifo));
186	186	memset(pcrtc, 0, sizeof(pcrtc));
187	187	memset(pmc, 0, sizeof(pmc));
	188	memset(pgraph, 0, sizeof(pgraph));
188	189	memset(ramin, 0, sizeof(ramin));
189	190	computedilated();
190	191	objectdata = &(object_data_alloc());
r249043	r249044
194	195	enabled_vertex_attributes = 0;
195	196	indexesleft_count = 0;
196	197	vertex_pipeline = 4;
	198	color_mask = 0xffffffff;
197	199	alpha_test_enabled = false;
198	200	alpha_reference = 0;
199	201	alpha_func = nv2a_renderer::ALWAYS;
r249043	r249044
238	240	}
239	241	DECLARE_READ32_MEMBER(geforce_r);
240	242	DECLARE_WRITE32_MEMBER(geforce_w);
241		bool vblank_callback(screen_device &screen, bool state);
	243	void vblank_callback(screen_device &screen, bool state);
242	244	UINT32 screen_update_callback(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect);
	245	bool update_interrupts();
	246	void set_interrupt_device(pic8259_device *device);
243	247
244	248	void render_texture_simple(INT32 scanline, const extent_t &extent, const nvidia_object_data &extradata, int threadid);
245	249	void render_color(INT32 scanline, const extent_t &extent, const nvidia_object_data &extradata, int threadid);
r249043	r249044
303	307	UINT32 pfifo[0x2000 / 4];
304	308	UINT32 pcrtc[0x1000 / 4];
305	309	UINT32 pmc[0x1000 / 4];
	310	UINT32 pgraph[0x2000 / 4];
306	311	UINT32 ramin[0x100000 / 4];
307	312	UINT32 dma_offset[2];
308	313	UINT32 dma_size[2];
309	314	UINT8 *basemempointer;
	315	pic8259_device *interruptdevice;
310	316	rectangle limits_rendertarget;
311	317	UINT32 pitch_rendertarget;
312	318	UINT32 pitch_depthbuffer;
r249043	r249044
441	447	int used;
442	448	osd_lock *lock;
443	449	} combiner;
	450	UINT32 color_mask;
444	451	bool alpha_test_enabled;
445	452	int alpha_func;
446	453	int alpha_reference;

trunk/src/mame/machine/xbox.c

r249043	r249044
465	465
466	466	void xbox_base_state::vblank_callback(screen_device &screen, bool state)
467	467	{
468		if (nvidia_nv2a->vblank_callback(screen, state))
469		xbox_base_devs.pic8259_1->ir3_w(1); // IRQ 3
470		else
471		xbox_base_devs.pic8259_1->ir3_w(0); // IRQ 3
	468	nvidia_nv2a->vblank_callback(screen, state);
472	469	}
473	470
474	471	UINT32 xbox_base_state::screen_update_callback(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect)
r249043	r249044
1460	1457	if (machine().debug_flags & DEBUG_FLAG_ENABLED)
1461	1458	debug_console_register_command(machine(), "xbox", CMDFLAG_NONE, 0, 1, 4, xbox_debug_commands);
1462	1459	memset(&ohcist, 0, sizeof(ohcist));
	1460	// PIC challenge handshake data
	1461	pic16lc_buffer[0x1c] = 0x0c;
	1462	pic16lc_buffer[0x1d] = 0x0d;
	1463	pic16lc_buffer[0x1e] = 0x0e;
	1464	pic16lc_buffer[0x1f] = 0x0f;
1463	1465	#ifdef USB_ENABLED
1464	1466	ohcist.hc_regs[HcRevision] = 0x10;
1465	1467	ohcist.hc_regs[HcFmInterval] = 0x2edf;
r249043	r249044
1483	1485	save_item(NAME(smbusst.rw));
1484	1486	save_item(NAME(smbusst.words));
1485	1487	save_item(NAME(pic16lc_buffer));
	1488	nvidia_nv2a->set_interrupt_device(xbox_base_devs.pic8259_1);
1486	1489	nvidia_nv2a->start(&m_maincpu->space());
1487	1490	nvidia_nv2a->savestate_items();
1488	1491	}

trunk/src/mame/video/chihiro.c

r249043	r249044
3	3	#include "emu.h"
4	4	#include "video/poly.h"
5	5	#include "bitmap.h"
	6	#include "machine/pic8259.h"
6	7	#include "includes/chihiro.h"
7	8
8	9	//#define LOG_NV2A
r249043	r249044
945	946	UINT32 nv2a_renderer::geforce_object_offset(UINT32 handle)
946	947	{
947	948	UINT32 h = ((((handle >> 11) ^ handle) >> 11) ^ handle) & 0x7ff;
948		UINT32 o = (pfifo[0x210 / 4] & 0x1f) << 8; // or 12 ?
	949	UINT32 o = (pfifo[0x210 / 4] & 0x1ff) << 8; // 0x1ff is not certain
949	950	UINT32 e = o + h * 8; // at 0xfd000000+0x00700000
950	951	UINT32 w;
951	952
952		if (ramin[e / 4] != handle)
953		e = 0;
	953	if (ramin[e / 4] != handle) {
	954	// this should never happen
	955	for (UINT32 aa = o / 4; aa < (sizeof(ramin) / 4); aa = aa + 2) {
	956	if (ramin[aa] == handle) {
	957	e = aa * 4;
	958	}
	959	}
	960	}
954	961	w = ramin[e / 4 + 1];
955		return (w & 0xffff) * 0x10;
	962	return (w & 0xffff) * 0x10; // 0xffff is not certain
956	963	}
957	964
958	965	void nv2a_renderer::geforce_read_dma_object(UINT32 handle, UINT32 &offset, UINT32 &size)
r249043	r249044
1246	1253	addr = rendertarget + (dilated0[dilate_rendertarget][x] + dilated1[dilate_rendertarget][y]);
1247	1254	else // type_rendertarget == LINEAR*/
1248	1255	addr = rendertarget + (pitch_rendertarget / 4)*y + x;
1249		fbcolor = *addr;
	1256	fbcolor = 0;
	1257	if (color_mask != 0)
	1258	fbcolor = *addr;
1250	1259	daddr=depthbuffer + (pitch_depthbuffer / 4)*y + x;
1251	1260	deptsten = *daddr;
1252	1261	c[3] = color >> 24;
r249043	r249044
1772	1781	break;
1773	1782	}
1774	1783	}
1775		fbcolor = (c[3] << 24) | (c[2] << 16) | (c[1] << 8) | c[0];
1776		*addr = fbcolor;
	1784	if (color_mask != 0) {
	1785	UINT32 fbcolor_tmp;
	1786
	1787	fbcolor_tmp = (c[3] << 24) | (c[2] << 16) | (c[1] << 8) | c[0];
	1788	*addr = (fbcolor & ~color_mask) | (fbcolor_tmp & color_mask);
	1789	}
1777	1790	if (depth_write_enabled)
1778	1791	dep = depth;
1779	1792	deptsten = (dep << 8) | sten;
r249043	r249044
2233	2246	maddress = method * 4;
2234	2247	data = space.read_dword(address);
2235	2248	channel[chanel][subchannel].object.method[method] = data;
	2249	#ifdef LOG_NV2A
	2250	printf("A:%08X MTHD:%08X D:%08X\n\r",address,maddress,data);
	2251	#endif
2236	2252	if (maddress == 0x17fc) {
2237	2253	indexesleft_count = 0;
2238	2254	indexesleft_first = 0;
r249043	r249044
2270	2286	}
2271	2287	wait();
2272	2288	}
	2289	else if (type == nv2a_renderer::TRIANGLE_FAN) {
	2290	vertex_nv vert[3];
	2291	vertex_t xy[3];
	2292
	2293	read_vertices_0x1810(space, vert, offset, 2);
	2294	convert_vertices_poly(vert, xy, 2);
	2295	count = count - 2;
	2296	offset = offset + 2;
	2297	for (n = 0; n <= count; n++) {
	2298	read_vertices_0x1810(space, vert + (((n + 1) & 1) + 1), offset + n, 1);
	2299	convert_vertices_poly(vert + (((n + 1) & 1) + 1), xy + (((n + 1) & 1) + 1), 1);
	2300	render_triangle(limits_rendertarget, renderspans, 4 + 4 * 2, xy[0], xy[(~(n + 1) & 1) + 1], xy[((n + 1) & 1) + 1]);
	2301	}
	2302	wait();
	2303	}
2273	2304	else if (type == nv2a_renderer::TRIANGLE_STRIP) {
2274	2305	vertex_nv vert[4];
2275	2306	vertex_t xy[4];
r249043	r249044
2311	2342	// each dword after 1800 contains two 16 bit index values to select the vartices
2312	2343	// each dword after 1808 contains a 32 bit index value to select the vartices
2313	2344	type = channel[chanel][subchannel].object.method[0x17fc / 4];
2314		#ifdef LOG_NV2A
2315		printf("vertex %d %d %d\n\r", type, offset, count);
2316		#endif
2317	2345	if (type == nv2a_renderer::QUADS) {
2318	2346	while (1) {
2319	2347	vertex_nv vert[4];
r249043	r249044
2332	2360	render_polygon<4>(limits_rendertarget, renderspans, 4 + 4 * 2, xy); // 4 rgba, 4 texture units 2 uv
2333	2361	}
2334	2362	}
	2363	else if (type == nv2a_renderer::TRIANGLE_FAN) {
	2364	if ((countlen * mult + indexesleft_count) >= 3) {
	2365	vertex_nv vert[3];
	2366	vertex_t xy[3];
	2367	int c, count;
	2368
	2369	if (mult == 1)
	2370	c = read_vertices_0x1808(space, vert, address, 2);
	2371	else
	2372	c = read_vertices_0x1800(space, vert, address, 2);
	2373	convert_vertices_poly(vert, xy, 2);
	2374	address = address + c * 4;
	2375	countlen = countlen - c;
	2376	count = countlen * mult + indexesleft_count;
	2377	for (n = 1; n <= count; n++) {
	2378	if (mult == 1)
	2379	c = read_vertices_0x1808(space, vert + ((n & 1) + 1), address, 1);
	2380	else
	2381	c = read_vertices_0x1800(space, vert + ((n & 1) + 1), address, 1);
	2382
	2383	convert_vertices_poly(vert + ((n & 1) + 1), xy + ((n & 1) + 1), 1);
	2384	address = address + c * 4;
	2385	countlen = countlen - c;
	2386	render_triangle(limits_rendertarget, renderspans, 4 + 4 * 2, xy[0], xy[(~n & 1) + 1], xy[(n & 1) + 1]);
	2387	}
	2388	wait();
	2389	}
	2390	}
2335	2391	else if (type == nv2a_renderer::TRIANGLES) {
2336	2392	while (1) {
2337	2393	vertex_nv vert[3];
r249043	r249044
2446	2502	}
2447	2503	wait();
2448	2504	}
	2505	else if (type == nv2a_renderer::TRIANGLES) {
	2506	while (countlen > 0) {
	2507	vertex_nv vert[3];
	2508	vertex_t xy[3];
	2509	int c;
	2510
	2511	c = read_vertices_0x1818(space, vert, address, 3);
	2512	convert_vertices_poly(vert, xy, 3);
	2513	countlen = countlen - c;
	2514	if (countlen < 0) {
	2515	logerror("Method 0x1818 missing %d words to draw a complete primitive\n", -countlen);
	2516	countlen = 0;
	2517	break;
	2518	}
	2519	address = address + c * 3;
	2520	render_triangle(limits_rendertarget, renderspans, 4 + 4 * 2, xy[0], xy[1], xy[2]); // 4 rgba, 4 texture units 2 uv
	2521	}
	2522	}
2449	2523	else if (type == nv2a_renderer::TRIANGLE_STRIP) {
2450	2524	vertex_nv vert[4];
2451	2525	vertex_t xy[4];
r249043	r249044
2613	2687	// clear colors
2614	2688	UINT32 color = channel[chanel][subchannel].object.method[0x1d90 / 4];
2615	2689	bm.fill(color);
2616		//printf("clearscreen\n\r");
	2690	#ifdef LOG_NV2A
	2691	printf("clearscreen\n\r");
	2692	#endif
2617	2693	}
2618	2694	if ((data & 0x03) == 3) {
2619	2695	bitmap_rgb32 bm(depthbuffer, (limits_rendertarget.right() + 1) * m, (limits_rendertarget.bottom() + 1) * m, pitch_rendertarget / 4); // why *2 ?
r249043	r249044
2649	2725	dilate_rendertarget = dilatechose[(log2width_rendertarget << 4) + log2height_rendertarget];
2650	2726	}
2651	2727	if (maddress == 0x020c) {
2652		// line size ?
2653	2728	pitch_rendertarget=data & 0xffff;
2654	2729	pitch_depthbuffer=(data >> 16) & 0xffff;
2655		//printf("Pitch color %04X zbuffer %04X\n\r",pitch_rendertarget,pitch_depthbuffer);
	2730	#ifdef LOG_NV2A
	2731	printf("Pitch color %04X zbuffer %04X\n\r",pitch_rendertarget,pitch_depthbuffer);
	2732	#endif
2656	2733	countlen--;
2657	2734	}
2658	2735	if (maddress == 0x0100) {
2659		// just temporarily
2660		if ((data & 0x1f) == 1) {
2661		data = data >> 5;
2662		data = data & 0x0ffffff0;
2663		displayedtarget = (UINT32 *)direct_access_ptr(data);
	2736	countlen--;
	2737	if (data != 0) {
	2738	pgraph[0x704 / 4] = 0x100;
	2739	pgraph[0x708 / 4] = data;
	2740	pgraph[0x100 / 4] |= 1;
	2741	pgraph[0x108 / 4] |= 1;
	2742	if (update_interrupts() == true)
	2743	interruptdevice->ir3_w(1); // IRQ 3
	2744	else
	2745	interruptdevice->ir3_w(0); // IRQ 3
	2746	return 2;
2664	2747	}
	2748	else
	2749	return 0;
2665	2750	}
2666	2751	if (maddress == 0x0130) {
2667	2752	countlen--;
r249043	r249044
2670	2755	else
2671	2756	return 0;
2672	2757	}
	2758	if (maddress == 0x1d8c) {
	2759	countlen--;
	2760	// it is used to specify the clear value for the depth buffer (zbuffer)
	2761	// but also as a parameter for interrupt routines
	2762	pgraph[0x1a88 / 4] = data;
	2763	}
	2764	if (maddress == 0x1d90) {
	2765	countlen--;
	2766	// it is used to specify the clear value for the color buffer
	2767	// but also as a parameter for interrupt routines
	2768	pgraph[0x186c / 4] = data;
	2769	}
2673	2770	if (maddress == 0x0210) {
2674	2771	// framebuffer offset ?
2675	2772	rendertarget = (UINT32 *)direct_access_ptr(data);
2676		//printf("Render target at %08X\n\r",data);
	2773	#ifdef LOG_NV2A
	2774	printf("Render target at %08X\n\r", data);
	2775	#endif
2677	2776	countlen--;
2678	2777	}
2679	2778	if (maddress == 0x0214) {
2680	2779	// zbuffer offset ?
2681	2780	depthbuffer = (UINT32 *)direct_access_ptr(data);
2682		//printf("Depth buffer at %08X\n\r",data);
	2781	#ifdef LOG_NV2A
	2782	printf("Depth buffer at %08X\n\r",data);
	2783	#endif
2683	2784	if ((data == 0) || (data > 0x7ffffffc))
2684	2785	depth_write_enabled = false;
2685	2786	else if (channel[chanel][subchannel].object.method[0x035c / 4] != 0)
r249043	r249044
2709	2810	if (maddress == 0x0354) {
2710	2811	depth_function = data;
2711	2812	}
	2813	if (maddress == 0x0358) {
	2814	//color_mask = data;
	2815	if (data & 0x000000ff)
	2816	data |= 0x000000ff;
	2817	if (data & 0x0000ff00)
	2818	data |= 0x0000ff00;
	2819	if (data & 0x00ff0000)
	2820	data |= 0x00ff0000;
	2821	if (data & 0xff000000)
	2822	data |= 0xff000000;
	2823	color_mask = data;
	2824	}
2712	2825	if (maddress == 0x035c) {
2713	2826	UINT32 g = channel[chanel][subchannel].object.method[0x0214 / 4];
2714	2827	depth_write_enabled = data != 0;
r249043	r249044
3648	3761	combiner.function_Aop3 = MAX(MIN((combiner.function_Aop3 + biasa) * scalea, 1.0f), -1.0f);
3649	3762	}
3650	3763
3651		bool nv2a_renderer::vblank_callback(screen_device &screen, bool state)
	3764	void nv2a_renderer::vblank_callback(screen_device &screen, bool state)
3652	3765	{
3653		//printf("vblank_callback\n\r");
3654		if (state == true)
	3766	#ifdef LOG_NV2A
	3767	printf("vblank_callback\n\r");
	3768	#endif
	3769	if ((state == true) && (puller_waiting == 1)) {
	3770	puller_waiting = 0;
	3771	puller_timer_work(NULL, 0);
	3772	}
	3773	if (state == true) {
3655	3774	pcrtc[0x100 / 4] |= 1;
	3775	pcrtc[0x808 / 4] |= 0x10000;
	3776	}
	3777	else {
	3778	pcrtc[0x100 / 4] &= ~1;
	3779	pcrtc[0x808 / 4] &= ~0x10000;
	3780	}
	3781	if (update_interrupts() == true)
	3782	interruptdevice->ir3_w(1); // IRQ 3
3656	3783	else
3657		pcrtc[0x100 / 4] &= ~1;
	3784	interruptdevice->ir3_w(0); // IRQ 3
	3785	}
	3786
	3787	bool nv2a_renderer::update_interrupts()
	3788	{
3658	3789	if (pcrtc[0x100 / 4] & pcrtc[0x140 / 4])
3659	3790	pmc[0x100 / 4] |= 0x1000000;
3660	3791	else
3661	3792	pmc[0x100 / 4] &= ~0x1000000;
3662		if ((state == true) && (puller_waiting == 1)) {
3663		puller_waiting = 0;
3664		puller_timer_work(NULL, 0);
3665		}
3666		if ((pmc[0x100 / 4] != 0) && (pmc[0x140 / 4] != 0)) {
	3793	if (pgraph[0x100 / 4] & pgraph[0x140 / 4])
	3794	pmc[0x100 / 4] |= 0x1000;
	3795	else
	3796	pmc[0x100 / 4] &= ~0x1000;
	3797	if (((pmc[0x100 / 4] & 0x7fffffff) && (pmc[0x140 / 4] & 1)) || ((pmc[0x100 / 4] & 0x80000000) && (pmc[0x140 / 4] & 2))) {
3667	3798	// send interrupt
3668	3799	return true;
3669	3800	}
r249043	r249044
3692	3823	int countlen;
3693	3824	int ret;
3694	3825	address_space *space = puller_space;
	3826	#ifdef LOG_NV2A
	3827	UINT32 subch;
	3828	#endif
3695	3829
3696	3830	chanel = puller_channel;
3697	3831	subchannel = puller_subchannel;
r249043	r249044
3748	3882	}
3749	3883	if (ret != 0) {
3750	3884	puller_timer->enable(false);
3751		puller_waiting = 1;
	3885	puller_waiting = ret;
3752	3886	return;
3753	3887	}
3754	3888	}
r249043	r249044
3847	3981	//logerror("NV_2A: read PRAMIN[%06X] value %08X\n",offset*4-0x00700000,ret);
3848	3982	}
3849	3983	else if ((offset >= 0x00400000 / 4) && (offset < 0x00402000 / 4)) {
	3984	ret = pgraph[offset - 0x00400000 / 4];
3850	3985	//logerror("NV_2A: read PGRAPH[%06X] value %08X\n",offset*4-0x00400000,ret);
3851	3986	}
3852	3987	else if ((offset >= 0x00600000 / 4) && (offset < 0x00601000 / 4)) {
r249043	r249044
3870	4005	//logerror("NV_2A: read channel[%02X,%d,%04X]=%08X\n",chanel,subchannel,suboffset*4,ret);
3871	4006	return ret;
3872	4007	}
3873		else
3874		{
3875		/* nothing */
3876		}
3877	4008	//logerror("NV_2A: read at %08X mask %08X value %08X\n",0xfd000000+offset*4,mem_mask,ret);
3878	4009	return ret;
3879	4010	}
3880	4011
3881	4012	WRITE32_MEMBER(nv2a_renderer::geforce_w)
3882	4013	{
	4014	UINT32 old;
	4015	bool update_int;
	4016
	4017	update_int = false;
3883	4018	if ((offset >= 0x00101000 / 4) && (offset < 0x00102000 / 4)) {
3884	4019	//logerror("NV_2A: write STRAPS[%06X] mask %08X value %08X\n",offset*4-0x00101000,mem_mask,data);
3885	4020	}
r249043	r249044
3898	4033	//logerror("NV_2A: write PRAMIN[%06X]=%08X\n",offset*4-0x00700000,data & mem_mask);
3899	4034	}
3900	4035	else if ((offset >= 0x00400000 / 4) && (offset < 0x00402000 / 4)) {
	4036	int e = offset - 0x00400000 / 4;
	4037	if (e >= (sizeof(pgraph) / sizeof(UINT32)))
	4038	return;
	4039	old = pgraph[e];
	4040	COMBINE_DATA(pgraph + e);
	4041	if (e == 0x100 / 4) {
	4042	pgraph[e] = old & ~data;
	4043	if (data & 1)
	4044	pgraph[0x108 / 4] = 0;
	4045	update_int = true;
	4046	}
	4047	if (e == 0x140 / 4)
	4048	update_int = true;
	4049	if (e == 0x720 / 4) {
	4050	if ((data & 1) && (puller_waiting == 2)) {
	4051	puller_waiting = 0;
	4052	puller_timer->enable();
	4053	puller_timer->adjust(attotime::zero);
	4054	}
	4055	}
	4056	if ((e >= 0x900 / 4) && (e < 0xa00 / 4))
	4057	pgraph[e] = 0;
3901	4058	//logerror("NV_2A: write PGRAPH[%06X]=%08X\n",offset*4-0x00400000,data & mem_mask);
3902	4059	}
3903	4060	else if ((offset >= 0x00600000 / 4) && (offset < 0x00601000 / 4)) {
3904	4061	int e = offset - 0x00600000 / 4;
3905	4062	if (e >= (sizeof(pcrtc) / sizeof(UINT32)))
3906	4063	return;
	4064	old = pcrtc[e];
3907	4065	COMBINE_DATA(pcrtc + e);
	4066	if (e == 0x100 / 4) {
	4067	pcrtc[e] = old & ~data;
	4068	update_int = true;
	4069	}
	4070	if (e == 0x140 / 4)
	4071	update_int = true;
3908	4072	if (e == 0x800 / 4) {
3909		displayedtarget = (UINT32 *)direct_access_ptr(data);
3910		//printf("crtc buffer %08X\n\r", data);
	4073	displayedtarget = (UINT32 *)direct_access_ptr(pcrtc[e]);
	4074	#ifdef LOG_NV2A
	4075	printf("crtc buffer %08X\n\r", data);
	4076	#endif
3911	4077	}
3912	4078	//logerror("NV_2A: write PCRTC[%06X]=%08X\n",offset*4-0x00600000,data & mem_mask);
3913	4079	}
r249043	r249044
3922	4088	// 32 channels size 0x10000 each, 8 subchannels per channel size 0x2000 each
3923	4089	int chanel, subchannel, suboffset;
3924	4090	//int method, count, handle, objclass;
3925		#ifdef LOG_NV2A
3926		int subch;
3927		#endif
3928	4091
3929	4092	suboffset = offset - 0x00800000 / 4;
3930	4093	chanel = (suboffset >> (16 - 2)) & 31;
r249043	r249044
3959	4122	}
3960	4123	//else
3961	4124	//      logerror("NV_2A: write at %08X mask %08X value %08X\n",0xfd000000+offset*4,mem_mask,data);
	4125	if (update_int == true) {
	4126	if (update_interrupts() == true)
	4127	interruptdevice->ir3_w(1); // IRQ 3
	4128	else
	4129	interruptdevice->ir3_w(0); // IRQ 3
	4130	}
3962	4131	}
3963	4132
3964	4133	void nv2a_renderer::savestate_items()
r249043	r249044
3971	4140	puller_timer = machine().scheduler().timer_alloc(timer_expired_delegate(FUNC(nv2a_renderer::puller_timer_work), this), (void *)"NV2A Puller Timer");
3972	4141	puller_timer->enable(false);
3973	4142	}
	4143
	4144	void nv2a_renderer::set_interrupt_device(pic8259_device *device)
	4145	{
	4146	interruptdevice = device;
	4147	}

trunk/src/mess/drivers/mc1000.c

r249043	r249044
378	378	+---------*---*---o V+
379	379	|         |   |
380	380	+-+        |   |
381		| |309K    |   |
	381	| |390K    |   |
382	382	| |R17     |8  |4
383	383	+-+      +-------+
384	384	|      7|       |3
r249043	r249044
390	390	| |   |  |  555  |
391	391	+-+   |  |       |
392	392	|    | 6|       |5
393		*----*?-|       |---+
	393	*----*--|       |---+
394	394	|       |       |   |
395	395	---C30   +-------+  ---C29
396		---103       |1     ---103
	396	---10n       |1     ---10n
397	397	_|_         _|_     _|_
398	398	///         ///     ///
399	399
400	400	Calculated properties:
401	401
402	402	* 99.74489795918367 Duty Cycle Percentage
403		* 368.1126130105722 Frequency in Hertz
	403	* 367.3469387755102 Frequency in Hertz
404	404	* 0.00000693 Seconds Low
405		* 0.0027096299999999998 Seconds High
	405	* 0.00270963 Seconds High
406	406
407	407	*/
408	408
409		#define MC1000_NE555_FREQ       (368) /* Hz */
	409	#define MC1000_NE555_FREQ       (367) /* Hz */
410	410	#define MC1000_NE555_DUTY_CYCLE (99.745) /* % */
411	411
412	412	TIMER_DEVICE_CALLBACK_MEMBER(mc1000_state::ne555_tick)

trunk/src/osd/modules/debugger/win/debugviewinfo.c

r249043	r249044
15	15
16	16	#include "strconv.h"
17	17
	18	#include "winutil.h"
18	19
	20
19	21	// debugger view styles
20	22	#define DEBUG_VIEW_STYLE    WS_CHILD | WS_VISIBLE | WS_CLIPCHILDREN
21	23	#define DEBUG_VIEW_STYLE_EX 0
r249043	r249044
48	50
49	51	// create the child view
50	52	m_wnd = CreateWindowEx(DEBUG_VIEW_STYLE_EX, TEXT("MAMEDebugView"), NULL, DEBUG_VIEW_STYLE,
51		0, 0, 100, 100, parent, NULL, GetModuleHandle(NULL), this);
	53	0, 0, 100, 100, parent, NULL, GetModuleHandleUni(), this);
52	54	if (m_wnd == NULL)
53	55	goto cleanup;
54	56
55	57	// create the scroll bars
56	58	m_hscroll = CreateWindowEx(HSCROLL_STYLE_EX, TEXT("SCROLLBAR"), NULL, HSCROLL_STYLE,
57		0, 0, 100, CW_USEDEFAULT, m_wnd, NULL, GetModuleHandle(NULL), this);
	59	0, 0, 100, CW_USEDEFAULT, m_wnd, NULL, GetModuleHandleUni(), this);
58	60	m_vscroll = CreateWindowEx(VSCROLL_STYLE_EX, TEXT("SCROLLBAR"), NULL, VSCROLL_STYLE,
59		0, 0, CW_USEDEFAULT, 100, m_wnd, NULL, GetModuleHandle(NULL), this);
	61	0, 0, CW_USEDEFAULT, 100, m_wnd, NULL, GetModuleHandleUni(), this);
60	62	if ((m_hscroll == NULL) || (m_vscroll == NULL))
61	63	goto cleanup;
62	64
r249043	r249044
254	256	{
255	257	// create a combo box
256	258	HWND const result = CreateWindowEx(COMBO_BOX_STYLE_EX, TEXT("COMBOBOX"), NULL, COMBO_BOX_STYLE,
257		0, 0, 100, 1000, parent, NULL, GetModuleHandle(NULL), NULL);
	259	0, 0, 100, 1000, parent, NULL, GetModuleHandleUni(), NULL);
258	260	SetWindowLongPtr(result, GWLP_USERDATA, userdata);
259	261	SendMessage(result, WM_SETFONT, (WPARAM)metrics().debug_font(), (LPARAM)FALSE);
260	262
r249043	r249044
789	791
790	792	// initialize the description of the window class
791	793	wc.lpszClassName    = TEXT("MAMEDebugView");
792		wc.hInstance        = GetModuleHandle(NULL);
	794	wc.hInstance        = GetModuleHandleUni();
793	795	wc.lpfnWndProc      = &debugview_info::static_view_proc;
794	796	wc.hCursor          = LoadCursor(NULL, IDC_ARROW);
795	797	wc.hIcon            = LoadIcon(wc.hInstance, MAKEINTRESOURCE(2));
r249043	r249044
798	800	wc.style            = 0;
799	801	wc.cbClsExtra       = 0;
800	802	wc.cbWndExtra       = 0;
	803
	804	UnregisterClass(wc.lpszClassName, wc.hInstance);
801	805
802	806	// register the class; fail if we can't
803	807	if (!RegisterClass(&wc))

trunk/src/osd/modules/debugger/win/debugwininfo.c

r249043	r249044
17	17	#include "window.h"
18	18	#include "winutf8.h"
19	19
	20	#include "winutil.h"
20	21
	22
21	23	bool debugwin_info::s_window_class_registered = false;
22	24
23	25
r249043	r249044
36	38	register_window_class();
37	39
38	40	m_wnd = win_create_window_ex_utf8(DEBUG_WINDOW_STYLE_EX, "MAMEDebugWindow", title, DEBUG_WINDOW_STYLE,
39		0, 0, 100, 100, win_window_list->m_hwnd, create_standard_menubar(), GetModuleHandle(NULL), this);
	41	0, 0, 100, 100, win_window_list->m_hwnd, create_standard_menubar(), GetModuleHandleUni(), this);
40	42	if (m_wnd == NULL)
41	43	return;
42	44
r249043	r249044
580	582
581	583	// initialize the description of the window class
582	584	wc.lpszClassName    = TEXT("MAMEDebugWindow");
583		wc.hInstance        = GetModuleHandle(NULL);
	585	wc.hInstance        = GetModuleHandleUni();
584	586	wc.lpfnWndProc      = &debugwin_info::static_window_proc;
585	587	wc.hCursor          = LoadCursor(NULL, IDC_ARROW);
586	588	wc.hIcon            = LoadIcon(wc.hInstance, MAKEINTRESOURCE(2));
r249043	r249044
589	591	wc.style            = 0;
590	592	wc.cbClsExtra       = 0;
591	593	wc.cbWndExtra       = 0;
	594
	595	UnregisterClass(wc.lpszClassName, wc.hInstance);
592	596
593	597	// register the class; fail if we can't
594	598	if (!RegisterClass(&wc))

trunk/src/osd/modules/debugger/win/editwininfo.c

r249043	r249044
13	13
14	14	#include "strconv.h"
15	15
	16	#include "winutil.h"
16	17
	18
17	19	// edit box styles
18	20	#define EDIT_BOX_STYLE      WS_CHILD | WS_VISIBLE | ES_AUTOHSCROLL
19	21	#define EDIT_BOX_STYLE_EX   0
r249043	r249044
32	34
33	35	// create an edit box and override its key handling
34	36	m_editwnd = CreateWindowEx(EDIT_BOX_STYLE_EX, TEXT("EDIT"), NULL, EDIT_BOX_STYLE,
35		0, 0, 100, 100, window(), NULL, GetModuleHandle(NULL), NULL);
	37	0, 0, 100, 100, window(), NULL, GetModuleHandleUni(), NULL);
36	38	m_original_editproc = (WNDPROC)(FPTR)GetWindowLongPtr(m_editwnd, GWLP_WNDPROC);
37	39	SetWindowLongPtr(m_editwnd, GWLP_USERDATA, (LONG_PTR)this);
38	40	SetWindowLongPtr(m_editwnd, GWLP_WNDPROC, (LONG_PTR)&editwin_info::static_edit_proc);

trunk/src/osd/windows/input.c

r249043	r249044
38	38	#include "strconv.h"
39	39	#include "config.h"
40	40
	41	#include "winutil.h"
	42
41	43	//============================================================
42	44	//  PARAMETERS
43	45	//============================================================
r249043	r249044
1117	1119	int didevtype_joystick = DI8DEVCLASS_GAMECTRL;
1118	1120
1119	1121	dinput_version = DIRECTINPUT_VERSION;
1120		result = DirectInput8Create(GetModuleHandle(NULL), dinput_version, IID_IDirectInput8, (void **)&dinput, NULL);
	1122	result = DirectInput8Create(GetModuleHandleUni(), dinput_version, IID_IDirectInput8, (void **)&dinput, NULL);
1121	1123	if (result != DI_OK)
1122	1124	{
1123	1125	dinput_version = 0;
r249043	r249044
1130	1132
1131	1133	// first attempt to initialize DirectInput at the current version
1132	1134	dinput_version = DIRECTINPUT_VERSION;
1133		result = DirectInputCreate(GetModuleHandle(NULL), dinput_version, &dinput, NULL);
	1135	result = DirectInputCreate(GetModuleHandleUni(), dinput_version, &dinput, NULL);
1134	1136	if (result != DI_OK)
1135	1137	{
1136	1138	// if that fails, try version 5
1137	1139	dinput_version = 0x0500;
1138		result = DirectInputCreate(GetModuleHandle(NULL), dinput_version, &dinput, NULL);
	1140	result = DirectInputCreate(GetModuleHandleUni(), dinput_version, &dinput, NULL);
1139	1141	if (result != DI_OK)
1140	1142	{
1141	1143	// if that fails, try version 3
1142	1144	dinput_version = 0x0300;
1143		result = DirectInputCreate(GetModuleHandle(NULL), dinput_version, &dinput, NULL);
	1145	result = DirectInputCreate(GetModuleHandleUni(), dinput_version, &dinput, NULL);
1144	1146	if (result != DI_OK)
1145	1147	{
1146	1148	dinput_version = 0;

trunk/src/osd/windows/output.c

r249043	r249044
17	17	// MAMEOS headers
18	18	#include "output.h"
19	19
	20	#include "winutil.h"
20	21
21	22
	23
22	24	//============================================================
23	25	//  CONSTANTS
24	26	//============================================================
r249043	r249044
101	103	1, 1,
102	104	NULL,
103	105	NULL,
104		GetModuleHandle(NULL),
	106	GetModuleHandleUni(),
105	107	NULL);
106	108	assert(output_hwnd != NULL);
107	109
r249043	r249044
167	169
168	170	// initialize the description of the window class
169	171	wc.lpszClassName    = OUTPUT_WINDOW_CLASS;
170		wc.hInstance        = GetModuleHandle(NULL);
	172	wc.hInstance        = GetModuleHandleUni();
171	173	wc.lpfnWndProc      = output_window_proc;
	174
	175	UnregisterClass(wc.lpszClassName, wc.hInstance);
172	176
173	177	// register the class; fail if we can't
174	178	if (!RegisterClass(&wc))

trunk/src/osd/windows/window.c

r249043	r249044
35	35	#include "config.h"
36	36	#include "winutf8.h"
37	37
	38	#include "winutil.h"
	39
38	40	extern int drawnone_init(running_machine &machine, osd_draw_callbacks *callbacks);
39	41	extern int drawgdi_init(running_machine &machine, osd_draw_callbacks *callbacks);
40	42	extern int drawdd_init(running_machine &machine, osd_draw_callbacks *callbacks);
r249043	r249044
885	887
886	888	// initialize the description of the window class
887	889	wc.lpszClassName    = TEXT("MAME");
888		wc.hInstance        = GetModuleHandle(NULL);
	890	wc.hInstance        = GetModuleHandleUni();
889	891	wc.lpfnWndProc      = winwindow_video_window_proc_ui;
890	892	wc.hCursor          = LoadCursor(NULL, IDC_ARROW);
891	893	wc.hIcon            = LoadIcon(wc.hInstance, MAKEINTRESOURCE(2));
	894
	895	UnregisterClass(wc.lpszClassName, wc.hInstance);
892	896
893	897	// register the class; fail if we can't
894	898	if (!RegisterClass(&wc))
r249043	r249044
1191	1195	monitorbounds.left() + 100, monitorbounds.top() + 100,
1192	1196	NULL,//(win_window_list != NULL) ? win_window_list->m_hwnd : NULL,
1193	1197	menu,
1194		GetModuleHandle(NULL),
	1198	GetModuleHandleUni(),
1195	1199	NULL);
1196	1200	if (m_hwnd == NULL)
1197	1201	return 1;

trunk/src/osd/windows/winmain.c

r249043	r249044
1321	1321	dynamic_bind<PIMAGE_NT_HEADERS (WINAPI *)(PVOID)> image_nt_header(TEXT("dbghelp.dll"), "ImageNtHeader");
1322	1322
1323	1323	// start with the image base
1324		PVOID base = reinterpret_cast<PVOID>(GetModuleHandle(NULL));
	1324	PVOID base = reinterpret_cast<PVOID>(GetModuleHandleUni());
1325	1325	assert(base != NULL);
1326	1326
1327	1327	// make sure we have the functions we need

trunk/src/osd/windows/winutil.c

r249043	r249044
92	92	is_first_time = FALSE;
93	93
94	94	// get the current module
95		module = GetModuleHandle(NULL);
	95	module = GetModuleHandleUni();
96	96	if (!module)
97	97	return FALSE;
98	98	image_ptr = (BYTE*) module;
r249043	r249044
122	122	}
123	123	return is_gui_frontend;
124	124	}
	125
	126	//-------------------------------------------------
	127	//  Universal way to get module handle
	128	//-------------------------------------------------
	129
	130	HMODULE WINAPI GetModuleHandleUni()
	131	{
	132	MEMORY_BASIC_INFORMATION mbi;
	133	VirtualQuery((LPCVOID)GetModuleHandleUni, &mbi, sizeof(mbi));
	134	return (HMODULE)mbi.AllocationBase;
	135	}

trunk/src/osd/windows/winutil.h

r249043	r249044
15	15	file_error win_error_to_file_error(DWORD error);
16	16	osd_dir_entry_type win_attributes_to_entry_type(DWORD attributes);
17	17	BOOL win_is_gui_application(void);
	18	HMODULE WINAPI GetModuleHandleUni();
18	19
19	20	#endif // __WINUTIL__

https://github.com/mamedev/mame/commit/7e7f6582ae70d5280e79bf8d86e345522665d91b

Previous

199869 Revisions

Next

---

© 1997-2024 The MAME Team