Previous

15994 Revisions

Next

r3133 Monday 1st September, 2008 at 12:04:52 UTC by Fabio Priuli
[COMMODORE] Added preliminary tape support to C16, C128 and VIC20 through cassette core functions. Removed dependences on old vc20tape.c abandoned and broken code. Removed fake cassette controls from inputs.

[docs]	messnew.txt
[src/mess/drivers]	c128.c c16.c c64.c vc20.c
[src/mess/includes]	c64.h cbm.h
[src/mess/machine]	c128.c c16.c c64.c cbm.c cbmipt.c vc20.c

src/mess/includes/cbm.h

r3132	r3133
9	9
10	10	#include "devices/snapquik.h"
11	11
12		#ifdef __cplusplus
13		extern "C" {
14		#endif
15	12
	13	/* global header file for c16, c64, c65, c128, vc20 */
16	14
17		/* must be defined until some driver init problems are solved */
18		#define NEW_GAMEDRIVER
19
20
21		/*----------- defined in machine/cbm.c -----------*/
22
23		/* global header file for
24		* vc20
25		* c16
26		* c64
27		* c128
28		* c65*/
29
30		void cbmcartslot_device_getinfo(const mess_device_class *devclass, UINT32 state, union devinfo *info);
31
32	15	/**************************************************************************
33	16	* Logging
34	17	* call the XXX_LOG with XXX_LOG("info",("%fmt\n",args));
35	18	* where "info" can also be 0 to append .."%fmt",args to a line.
36	19	**************************************************************************/
	20
37	21	#define LOG(LEVEL,N,M,A)  \
38	22	{ \
39	23	if(LEVEL>=N) { \
r3132	r3133
57	41
58	42	#define DBG_LOG(n,m,a) LOG(VERBOSE_DBG,n,m,a)
59	43
	44
	45	/***********************************************
	46
	47	CBM Quickloads
	48
	49	***********************************************/
	50
60	51	QUICKLOAD_LOAD( cbm_pet1 );
61	52	QUICKLOAD_LOAD( cbm_pet );
62	53	QUICKLOAD_LOAD( cbm_c16 );
r3132	r3133
77	68	} CBM_ROM;
78	69
79	70
	71
	72	/***********************************************
	73
	74	CBM Cartridges
	75
	76	***********************************************/
	77
	78
80	79	extern INT8 cbm_c64_game;
81	80	extern INT8 cbm_c64_exrom;
82	81	extern CBM_ROM cbm_rom[0x20];
r3132	r3133
95	94	* 0x001a lsb 16bit address
96	95	* 0x001c data */
97	96
	97	void cbmcartslot_device_getinfo(const mess_device_class *devclass, UINT32 state, union devinfo *info);
98	98
99		#ifdef __cplusplus
100		}
101		#endif
102	99
	100
	101	/***********************************************
	102
	103	CBM Datasette Tapes
	104
	105	***********************************************/
	106
	107	void datasette_device_getinfo(const mess_device_class *devclass, UINT32 state, union devinfo *info);
	108
	109
103	110	#endif /* CBM_H_ */

src/mess/includes/c64.h

r3132	r3133
45	45
46	46	MACHINE_START( c64 );
47	47	INTERRUPT_GEN( c64_frame_interrupt );
	48	TIMER_CALLBACK( c64_tape_timer );
48	49
49	50	void c64_rom_load(running_machine *machine);
50	51	void c64_rom_recognition (void);

src/mess/machine/c128.c

r3132	r3133
20	20	#include "includes/cbm.h"
21	21	#include "includes/cbmserb.h"
22	22	#include "includes/vc1541.h"
23		#include "includes/vc20tape.h"
24	23	#include "video/vic6567.h"
25	24	#include "video/vdc8563.h"
26	25
27	26	#include "includes/c128.h"
28	27	#include "includes/c64.h"
29	28
	29	#include "devices/cassette.h"
30	30
	31
31	32	/*
32	33	two cpus share 1 memory system, only 1 cpu can run
33	34	controller is the mmu
r3132	r3133
796	797	return c64_colorram[(offset & 0x3ff)|((c64_port6510&0x3)<<10)] & 0xf;
797	798	}
798	799
799		/* 2008-08-31
800		We need here the old m6510 port handlers from c64, until we update this driver
801		to the new tape code */
	800	/* 2008-09-01
	801	We need here the m6510 port handlers from c64, otherwise c128_common_driver_init
	802	seems unable to use correctly the timer.
	803	This will be probably fixed in a future clean up.
	804	*/
802	805
803		static WRITE8_HANDLER(c64_tape_read)
804		{
805		cia_issue_index(machine, 0);
806		}
	806	static emu_timer *datasette_timer;
807	807
808	808	static void c128_m6510_port_write(UINT8 direction, UINT8 data)
809	809	{
810	810	/* if line is marked as input then keep current value */
811		data = ( c64_port_data & ~direction ) | ( data & direction );
	811	data = (c64_port_data & ~direction) | (data & direction);
812	812
813		/* resistor makes cassette sense go high when P4 changes to input */
814		if ( ! ( direction & 0x10 ) ) {
815		data |= 0x10;
816		}
817	813	/* resistors make P0,P1,P2 go high when respective line is changed to input */
818		if ( ! ( direction & 0x04 ) ) {
	814	if (!(direction & 0x04))
819	815	data |= 0x04;
820		}
821		if ( ! ( direction & 0x02 ) ) {
	816
	817	if (!(direction & 0x02))
822	818	data |= 0x02;
823		}
824		if ( ! ( direction & 0x01 ) ) {
	819
	820	if (!(direction & 0x01))
825	821	data |= 0x01;
826		}
	822
827	823	c64_port_data = data;
828	824
829	825	if (c64_tape_on)
830	826	{
831		if ( direction & 0x08 ) {
832		vc20_tape_write (!(data & 8));
	827	if (direction & 0x08)
	828	{
	829	/* CASSETTE_RECORD is not implemented yet */
833	830	}
834		if ( direction & 0x20 ) {
835		vc20_tape_motor (data & 0x20);
	831
	832	if (direction & 0x20)
	833	{
	834	if(!(data & 0x20))
	835	{
	836	cassette_change_state(image_from_devtype_and_index(IO_CASSETTE, 0),CASSETTE_MOTOR_ENABLED,CASSETTE_MASK_MOTOR);
	837	timer_adjust_periodic(datasette_timer, attotime_zero, 0, ATTOTIME_IN_HZ(44100));
	838	}
	839	else
	840	{
	841	cassette_change_state(image_from_devtype_and_index(IO_CASSETTE, 0),CASSETTE_MOTOR_DISABLED ,CASSETTE_MASK_MOTOR);
	842	timer_reset(datasette_timer, attotime_never);
	843	}
836	844	}
837	845	}
838	846
r3132	r3133
847	855	running_machine *machine = Machine;
848	856	UINT8 data = c64_port_data;
849	857
850		if (c64_tape_on && !vc20_tape_switch())
	858	if ((cassette_get_state(image_from_devtype_and_index(IO_CASSETTE, 0)) & CASSETTE_MASK_UISTATE) == CASSETTE_PLAY)
851	859	data &= ~0x10;
852		/* WP: motor is always marked as on??? */
853		data &= ~0x20;
	860	else
	861	data |=  0x10;
854	862
855	863	if (input_port_read(machine, "SPECIAL") & 0x20)      /* Check Caps Lock */
856	864	{
r3132	r3133
868	876	UINT8 *ram = memory_region(machine, "main");
869	877	int i;
870	878
	879	cia6526_interface cia_intf[2];
	880
871	881	/* configure the M6510 port */
872	882	cpunum_set_info_fct(1, CPUINFO_PTR_M6510_PORTREAD, (genf *) c128_m6510_port_read);
873	883	cpunum_set_info_fct(1, CPUINFO_PTR_M6510_PORTWRITE, (genf *) c128_m6510_port_write);
r3132	r3133
890	900	for (i=0; i<0x100; i++)
891	901	gfx[i]=i;
892	902
893		vc20_tape_open (c64_tape_read);
	903	if (c64_tape_on)
	904	datasette_timer = timer_alloc(c64_tape_timer, NULL);
894	905
895		{
896		cia6526_interface cia_intf[2];
897		cia_intf[0] = c64_cia0;
898		cia_intf[1] = c64_cia1;
899		cia_intf[0].tod_clock = c64_pal ? 50 : 60;
900		cia_intf[1].tod_clock = c64_pal ? 50 : 60;
	906	/* CIA initialization */
	907	cia_intf[0] = c64_cia0;
	908	cia_intf[1] = c64_cia1;
	909	cia_intf[0].tod_clock = c64_pal ? 50 : 60;
	910	cia_intf[1].tod_clock = c64_pal ? 50 : 60;
901	911
902		cia_config(machine, 0, &cia_intf[0]);
903		cia_config(machine, 1, &cia_intf[1]);
904		}
	912	cia_config(machine, 0, &cia_intf[0]);
	913	cia_config(machine, 1, &cia_intf[1]);
905	914	}
906	915
907	916	DRIVER_INIT( c128 )
908	917	{
	918	c64_tape_on = 1;
909	919	c128_common_driver_init(machine);
910	920	vic6567_init (1, c64_pal,
911	921	c128_dma_read, c128_dma_read_color, c64_vic_interrupt);
r3132	r3133
916	926
917	927	DRIVER_INIT( c128pal )
918	928	{
	929	c64_tape_on = 1;
919	930	c64_pal = 1;
920	931	c128_common_driver_init(machine);
921	932	vic6567_init (1, c64_pal,

src/mess/machine/c16.c

r3132	r3133
17	17	#include "includes/cbm.h"
18	18	#include "includes/cbmserb.h"
19	19	#include "includes/vc1541.h"
20		#include "includes/vc20tape.h"
21	20	#include "machine/tpi6525.h"
22	21	#include "video/ted7360.h"
23	22
24	23	#include "includes/c16.h"
25	24
	25	#include "devices/cassette.h"
	26
26	27	static UINT8 keyline[10] =
27	28	{
28	29	0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff
r3132	r3133
121	122	cbm_serial_atn_write (atn = !(data & 4));
122	123	cbm_serial_clock_write (clk = !(data & 2));
123	124	cbm_serial_data_write (dat = !(data & 1));
124		vc20_tape_write (!(data & 2));
125		vc20_tape_motor (data & 8);
	125	//   vc20_tape_write (!(data & 2));      // CASSETTE_RECORD not implemented yet
	126
	127	//   Fix Me!
	128	//   HACK! we need to set the motor always ON, because !(data & 0x08) seems always 0
	129	//   cassette_change_state(image_from_devtype_and_index(IO_CASSETTE, 0), !(data & 0x08) ? CASSETTE_MOTOR_ENABLED : CASSETTE_MOTOR_DISABLED, CASSETTE_MASK_MOTOR);
	130	cassette_change_state(image_from_devtype_and_index(IO_CASSETTE, 0), CASSETTE_MOTOR_ENABLED, CASSETTE_MASK_MOTOR);
126	131	}
127	132
128	133	UINT8 c16_m7501_port_read(void)
r3132	r3133
136	141	if ((c16_port7501 & 0x02) || !cbm_serial_clock_read())
137	142	data &= ~0x40;
138	143
139		if (!vc20_tape_read())
	144	/*   data &= ~0x20; //port bit not in pinout */
	145
	146	if (cassette_input(image_from_devtype_and_index(IO_CASSETTE, 0)) > +0.0)
	147	data |=  0x10;
	148	else
140	149	data &= ~0x10;
141	150
142		/*   data &= ~0x20; //port bit not in pinout */
143	151	return data;
144	152	}
145	153
r3132	r3133
293	301	{
294	302	int data = 0;
295	303
296		if (vc20_tape_switch ())
	304	if (!((cassette_get_state(image_from_devtype_and_index(IO_CASSETTE, 0)) & CASSETTE_MASK_UISTATE) == CASSETTE_PLAY))
297	305	data |= 4;
298	306	return data;
299	307	}
r3132	r3133
302	310	{
303	311	int data = 0;
304	312
305		if (vc20_tape_switch ())
	313	if (!((cassette_get_state(image_from_devtype_and_index(IO_CASSETTE, 0)) & CASSETTE_MASK_UISTATE) == CASSETTE_PLAY))
306	314	data |= 4;
307	315	return data;
308	316	}
r3132	r3133
468	476
469	477	memset(mess_ram + (0xfd40 % mess_ram_size), 0xff, 0x20);
470	478
471		c16_tape_open ();
472
473	479	if ((read_cfg0(machine) & 0xc0 ) == 0x40)      /* C1551 */
474	480	c1551_config (0, 0, &config);
475	481
r3132	r3133
707	713
708	714	ted7360_frame_interrupt (machine, cpunum);
709	715
710		vc20_tape_config (input_port_read(machine, "DSW0") & 0x20, input_port_read(machine, "DSW0") & 0x10);   /* DATASSETTE, DATASSETTE_TONE */
711		vc20_tape_buttons (input_port_read(machine, "DSW0") & 0x04, input_port_read(machine, "DSW0") & 0x02, input_port_read(machine, "DSW0") & 0x01);   /* DATASETTE_PLAY, DATASETTE_RECORD, DATASETTE_STOP */
712
713	716	set_led_status (1, input_port_read(machine, "SPECIAL") & 0x80 ? 1 : 0);      /*KB_CAPSLOCK_FLAG */
714	717	set_led_status (0, input_port_read(machine, "SPECIAL") & 0x40 ? 1 : 0);      /*KB_NUMLOCK_FLAG */
715	718	}

src/mess/machine/cbmipt.c

r3132	r3133
225	225
226	226	INPUT_PORTS_START( c64_config )
227	227	PORT_START( "CFG" )
228		PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Quickload")  PORT_CODE(KEYCODE_SLASH_PAD)
229	228	PORT_DIPNAME( 0x4000, 0x4000, "Tape Drive/Device 1")
230	229	PORT_DIPSETTING(   0x0000, DEF_STR( Off ) )
231	230	PORT_DIPSETTING(   0x4000, DEF_STR( On ) )
232	231	PORT_DIPNAME( 0x2000, 0x0000, "Tape Sound")
233	232	PORT_DIPSETTING(   0x0000, DEF_STR( Off ) )
234	233	PORT_DIPSETTING(   0x2000, DEF_STR( On ) )
235		PORT_BIT( 0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Tape Drive Play")
236		PORT_BIT( 0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Tape Drive Record")
237		PORT_BIT( 0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Tape Drive Stop")
238	234	PORT_DIPNAME( 0x80, 0x00, "Sid Chip Type")
239	235	PORT_DIPSETTING(   0x00, "MOS6581" )
240	236	PORT_DIPSETTING(   0x80, "MOS8580" )
r3132	r3133
366	362	PORT_DIPNAME( 0x10, 0x00, "Tape Sound")
367	363	PORT_DIPSETTING(   0x00, DEF_STR( Off ) )
368	364	PORT_DIPSETTING(   0x10, DEF_STR( On ) )
369		PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Quickload")  PORT_CODE(KEYCODE_SLASH_PAD)
370		PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Tape Drive Play")
371		PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Tape Drive Record")
372		PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Tape Drive Stop")
373	365
374	366	PORT_START("CFG0")
375	367	PORT_BIT( 0xc0, 0x00, IPT_UNUSED )
r3132	r3133
448	440
449	441	INPUT_PORTS_START( c128_config )
450	442	PORT_START("CFG")
451		PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Quickload") PORT_CODE(KEYCODE_SLASH_PAD)
452	443	PORT_DIPNAME( 0x4000, 0x4000, "Tape Drive / Device 1")
453	444	PORT_DIPSETTING(   0x0000, DEF_STR( Off ) )
454	445	PORT_DIPSETTING(   0x4000, DEF_STR( On ) )
455	446	PORT_DIPNAME( 0x2000, 0x00, "Tape Sound")
456	447	PORT_DIPSETTING(   0x0000, DEF_STR( Off ) )
457	448	PORT_DIPSETTING(   0x2000, DEF_STR( On ) )
458		PORT_BIT( 0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Tape Drive Play")
459		PORT_BIT( 0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Tape Drive Record")
460		PORT_BIT( 0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Tape Drive Stop")
461	449	PORT_DIPNAME( 0x0300, 0x0000, "Main Memory / MMU Version")
462	450	PORT_DIPSETTING(   0x0000, "128 KByte" )
463	451	PORT_DIPSETTING(   0x0100, "256 KByte" )
r3132	r3133
1008	996	*   - vic_keyboard: basic Vic 20 keyboard
1009	997	*  - vic_special: input port for the Shift Lock Switch
1010	998	*   - vic_controls: joypads and paddles
1011		*   - vic_devices: quickload and tapes (to be removed when fixed vc20tape.c)
1012	999	*   - vic_expansion: RAM expansions
1013	1000	*   - vic_config: controllers, tape and serial configurations
1014	1001	*   - VIC20 also has 2 lightpen ports, vic_lightpen_6560 & vic_lightpen_6561
r3132	r3133
1135	1122	INPUT_PORTS_END
1136	1123
1137	1124
	1125	/* Paddle buttons are read in the same bits as some joystick inputs */
	1126	static CUSTOM_INPUT( vic_custom_inputs )
	1127	{
	1128	int bit_mask = (FPTR)param;
	1129	UINT8 port = 0;
	1130
	1131	if (input_port_read(field->port->machine, "CFG") & 0x40)
	1132	port |= (input_port_read(field->port->machine, "FAKE0") & bit_mask) ? 1 : 0;
	1133
	1134	if (input_port_read(field->port->machine, "CFG") & 0x80)
	1135	port |= (input_port_read(field->port->machine, "FAKE1") & bit_mask) ? 1 : 0;
	1136
	1137	return port;
	1138	}
	1139
1138	1140	INPUT_PORTS_START( vic_controls )
1139	1141	PORT_START( "JOY" )
1140		PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP)   PORT_NAME("Joystick Up")      PORT_8WAY
1141		PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN)   PORT_NAME("Joystick Down")      PORT_8WAY
1142		PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT)   PORT_NAME("Joystick Left")      PORT_8WAY
1143		PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT)   PORT_NAME("Joystick Right")      PORT_8WAY
1144		PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_BUTTON1)      PORT_NAME("Joystick Button")
1145		PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_BUTTON1)      PORT_NAME("Paddle 1 Button")   PORT_CODE(KEYCODE_INSERT)
1146		PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_BUTTON2)      PORT_NAME("Paddle 2 Button")   PORT_CODE(KEYCODE_DEL)
1147		PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_BUTTON1)      PORT_NAME("Lightpen Signal")   PORT_CODE(KEYCODE_LALT)
	1142	PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_SPECIAL ) PORT_CUSTOM(vic_custom_inputs, (void *)0x02)
	1143	PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_NAME("Lightpen Signal") PORT_CODE(KEYCODE_LALT)
	1144	PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_SPECIAL ) PORT_CUSTOM(vic_custom_inputs, (void *)0x01)
	1145	PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_8WAY
	1146	PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_8WAY
	1147	PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_8WAY
1148	1148
	1149	PORT_START( "FAKE0" )
	1150	PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_BUTTON2 ) PORT_NAME("Paddle 2 Button") PORT_CODE(KEYCODE_DEL)
	1151	PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_NAME("Paddle 1 Button") PORT_CODE(KEYCODE_INSERT)
	1152
	1153	PORT_START( "FAKE1" )
	1154	PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_8WAY
	1155	PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 )
	1156
1149	1157	PORT_START( "PADDLE0" )
1150	1158	PORT_BIT( 0xff,128,IPT_PADDLE) PORT_SENSITIVITY(30) PORT_KEYDELTA(20) PORT_MINMAX(0,255) PORT_CODE_DEC(KEYCODE_HOME) PORT_CODE_INC(KEYCODE_PGUP) PORT_REVERSE
1151	1159
r3132	r3133
1154	1162	INPUT_PORTS_END
1155	1163
1156	1164
1157		INPUT_PORTS_START( vic_devices )
1158		PORT_START( "DEVS" )
1159		PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Quickload") PORT_CODE(KEYCODE_SLASH_PAD)
1160		PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Tape Drive Play")
1161		PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Tape Drive Record")
1162		PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Tape Drive Stop")
1163		INPUT_PORTS_END
1164
1165
1166	1165	INPUT_PORTS_START( vic_expansion )
1167	1166	PORT_START( "EXP" )
1168	1167	PORT_DIPNAME( 0x07, 0x00, "RAM Cartridge")

src/mess/machine/cbm.c

r3132	r3133
4	4	#include "driver.h"
5	5	#include "includes/cbm.h"
6	6	#include "devices/cartslot.h"
	7	#include "devices/cassette.h"
7	8
8	9
	10	/***********************************************
	11
	12	CBM Quickloads
	13
	14	***********************************************/
	15
	16
9	17	static int general_cbm_loadsnap(const device_config *image, const char *file_type, int snapshot_size,
10	18	offs_t offset, void (*cbm_sethiaddress)(UINT16 hiaddress))
11	19	{
r3132	r3133
156	164	return general_cbm_loadsnap(image, file_type, quickload_size, 0, cbm_c65_quick_sethiaddress);
157	165	}
158	166
159		/* ----------------------------------------------------------------------- */
160	167
	168	/***********************************************
	169
	170	CBM Cartridges
	171
	172	***********************************************/
	173
	174
161	175	INT8 cbm_c64_game;
162	176	INT8 cbm_c64_exrom;
163	177	CBM_ROM cbm_rom[0x20]= { {0} };
r3132	r3133
333	347	}
334	348	}
335	349
	350
	351	/***********************************************
	352
	353	CBM Datasette Tapes
	354
	355	***********************************************/
	356
	357	void datasette_device_getinfo(const mess_device_class *devclass, UINT32 state, union devinfo *info)
	358	{
	359	/* cassette */
	360	switch(state)
	361	{
	362	case MESS_DEVINFO_INT_COUNT:               info->i = 1; break;
	363
	364	case MESS_DEVINFO_INT_CASSETTE_DEFAULT_STATE:   info->i = CASSETTE_STOPPED | CASSETTE_MOTOR_DISABLED | CASSETTE_SPEAKER_ENABLED; break;
	365
	366	default:                              cassette_device_getinfo( devclass, state, info ); break;
	367	}
	368	}

src/mess/machine/vc20.c

r3132	r3133
21	21	#include "includes/cbm.h"
22	22	#include "machine/6522via.h"
23	23	#include "includes/vc1541.h"
24		#include "includes/vc20tape.h"
25	24	#include "includes/cbmserb.h"
26	25	#include "includes/cbmieeeb.h"
27	26	#include "video/vic6560.h"
28	27
29	28	#include "includes/vc20.h"
30	29
	30	#include "devices/cassette.h"
	31
	32
31	33	static UINT8 keyboard[8] =
32	34	{0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff};
33	35
r3132	r3133
40	42	static UINT8 *vc20_rom_6000;
41	43	static UINT8 *vc20_rom_a000;
42	44
	45	static emu_timer *datasette_timer;
	46
43	47	UINT8 *vc20_memory_9400;
44	48
	49
45	50	/** via 0 addr 0x9110
46	51	ca1 restore key (low)
47	52	ca2 cassette motor on
r3132	r3133
74	79
75	80	static WRITE8_HANDLER( vc20_via0_write_ca2 )
76	81	{
77		via0_ca2 = data ? 1 : 0;
78		vc20_tape_motor (via0_ca2);
	82	via0_ca2 = data ? 0 : 1;
	83
	84	if(via0_ca2)
	85	{
	86	cassette_change_state(image_from_devtype_and_index(IO_CASSETTE, 0),CASSETTE_MOTOR_ENABLED,CASSETTE_MASK_MOTOR);
	87	timer_adjust_periodic(datasette_timer, attotime_zero, 0, ATTOTIME_IN_HZ(44100));
	88	}
	89	else
	90	{
	91	cassette_change_state(image_from_devtype_and_index(IO_CASSETTE, 0),CASSETTE_MOTOR_DISABLED ,CASSETTE_MASK_MOTOR);
	92	timer_reset(datasette_timer, attotime_never);
	93	}
79	94	}
80	95
81	96	static  READ8_HANDLER( vc20_via0_read_porta )
82	97	{
83	98	UINT8 value = 0xff;
84	99
85		if (input_port_read(machine, "CFG") & 0x80)      /* JOYSTICK */
86		{
87		if (input_port_read(machine, "JOY") & 0x10) /* JOY_BUTTON */
88		value&=~0x20;
89		if (input_port_read(machine, "JOY") & 4)   /* JOY_LEFT */
90		value&=~0x10;
91		if (input_port_read(machine, "JOY") & 2)   /* JOY_DOWN */
92		value&=~0x8;
93		if (input_port_read(machine, "JOY") & 1)   /* JOY_UP */
94		value&=~0x4;
95		}
96		if (input_port_read(machine, "CFG") & 0x40)       /* PADDLE */
97		{
98		if (input_port_read(machine, "JOY") & 0x20)  /* PUDDLE1_BUTTON */
99		value&=~0x10;
100		}
	100	value &= ~(input_port_read(machine, "JOY") & 0x3c);
	101
101	102	/* to short to be recognized normally */
102	103	/* should be reduced to about 1 or 2 microseconds */
103		/*  if ((input_port_read(machine, "CFG") & 0x20 ) && (input_port_read(machine, "JOY") & 0x80) )  // i.e. LIGHTPEN_BUTTON
	104	/*  if ((input_port_read(machine, "CFG") & 0x20 ) && (input_port_read(machine, "JOY") & 0x40) )  // i.e. LIGHTPEN_BUTTON
104	105	value&=~0x20; */
105	106	if (!serial_clock || !cbm_serial_clock_read ())
106	107	value &= ~1;
107	108	if (!serial_data || !cbm_serial_data_read ())
108	109	value &= ~2;
109		if (!vc20_tape_switch ())
	110
	111	if ((cassette_get_state(image_from_devtype_and_index(IO_CASSETTE, 0)) & CASSETTE_MASK_UISTATE) == CASSETTE_PLAY)
110	112	value &= ~0x40;
	113	else
	114	value |=  0x40;
	115
111	116	return value;
112	117	}
113	118
r3132	r3133
166	171
167	172	static  READ8_HANDLER( vc20_via1_read_ca1 )
168	173	{
169		return vc20_tape_read ();
	174	UINT8 data = (cassette_input(image_from_devtype_and_index(IO_CASSETTE, 0)) > +0.0) ? 1 : 0;
	175	return data;
170	176	}
171	177
172	178	static WRITE8_HANDLER( vc20_via1_write_ca2 )
r3132	r3133
275	281	value &=t;
276	282	}
277	283
278		if (input_port_read(machine, "CFG") & 0x80)      /* JOYSTICK */
279		{
280		if (input_port_read(machine, "JOY") & 8)    /* JOY_RIGHT */
281		value &= ~0x80;
282		}
283
284		if (input_port_read(machine, "CFG") & 0x40)    /* PADDLE */
285		{
286		if (input_port_read(machine, "JOY") & 0x40)  /* PUDDLE2_BUTTON */
287		value &= ~0x80;
288		}
	284	value &= ~(input_port_read(machine, "JOY") & 0x80);
289	285
290	286	return value;
291	287	}
r3132	r3133
299	295	static WRITE8_HANDLER( vc20_via1_write_portb )
300	296	{
301	297	/*  logerror("via1_write_portb: $%02X\n", data); */
302		vc20_tape_write (data & 8 ? 1 : 0);
	298	//   vc20_tape_write (data & 8 ? 1 : 0);      // CASSETTE_RECORD not implemeted yet!
303	299	via1_portb = data;
304	300	}
305	301
r3132	r3133
480	476	}
481	477	}
482	478
	479
483	480	static void vc20_memory_init(running_machine *machine)
484	481	{
485	482	static int inited=0;
r3132	r3133
516	513	inited=1;
517	514	}
518	515
	516
	517	TIMER_CALLBACK( vc20_tape_timer )
	518	{
	519	UINT8 data = (cassette_input(image_from_devtype_and_index(IO_CASSETTE, 0)) > +0.0) ? 1 : 0;
	520	via_1_ca1_w(machine, 0, data);
	521	}
	522
519	523	static void vc20_common_driver_init (running_machine *machine)
520	524	{
521	525	#ifdef VC1541
r3132	r3133
523	527	#endif
524	528	vc20_memory_init(machine);
525	529
526		vc20_tape_open (via_1_ca1_w);
	530	datasette_timer = timer_alloc(vc20_tape_timer, NULL);
527	531
528	532	#ifdef VC1541
529	533	vc1541_config (0, 0, &vc1541);
r3132	r3133
539	543	memory_set_bankptr( 5, vc20_rom_a000 ? vc20_rom_a000 : ( memory_region(machine, "main") + 0xa000 ) );
540	544	}
541	545
542		/* currently not used, but when time comes */
543		void vc20_driver_shutdown (void)
544		{
545		vc20_tape_close ();
546		}
547	546
548	547	DRIVER_INIT( vc20 )
549	548	{
r3132	r3133
734	733	keyboard[6] = input_port_read(machine, "ROW6");
735	734	keyboard[7] = input_port_read(machine, "ROW7");
736	735
737		vc20_tape_config (input_port_read(machine, "CFG") & 0x08, input_port_read(machine, "CFG") & 0x04);   /* DATASSETTE, DATASSETTE_TONE */
738		vc20_tape_buttons (input_port_read(machine, "DEVS") & 4, input_port_read(machine, "DEVS") & 2, input_port_read(machine, "DEVS") & 1);   /* DATASSETTE_PLAY, DATASSETTE_RECORD, DATASSETTE_STOP */
739
740	736	set_led_status (1, input_port_read(machine, "SPECIAL") & 0x01 ? 1 : 0);      /*KB_CAPSLOCK_FLAG */
741	737	}

src/mess/machine/c64.c

r3132	r3133
35	35	#include "includes/cbm.h"
36	36	#include "includes/cbmserb.h"
37	37	#include "includes/vc1541.h"
38		#include "includes/vc20tape.h"
39	38	#include "video/vic6567.h"
40	39	#include "video/vdc8563.h"
41	40
r3132	r3133
684	683	else if (loram && !hiram && !c64_game)   // remember we cannot be in ultimax_mode, no need of !c64_exrom
685	684	{
686	685	c64_io_enabled = 0;
687		c64_io_ram_w_ptr = c64_memory + 0xd000;
688	686	c64_io_ram_r_ptr = (!charen) ? c64_chargen : c64_memory + 0xd000;
	687	c64_io_ram_w_ptr = c64_memory + 0xd000;
689	688	}
690	689	// IO/C
691	690	else
r3132	r3133
694	693
695	694	if (!charen)
696	695	{
697		c64_io_ram_w_ptr = c64_memory + 0xd000;
698	696	c64_io_ram_r_ptr = c64_chargen;
	697	c64_io_ram_w_ptr = c64_memory + 0xd000;
699	698	}
700	699	}
701	700
r3132	r3133
756	755	{
757	756	if(!(data & 0x20))
758	757	{
759		cassette_change_state(image_from_devtype_and_index(IO_CASSETTE, 0),CASSETTE_MOTOR_ENABLED,CASSETTE_MASK_MOTOR);
	758	cassette_change_state(image_from_devtype_and_index(IO_CASSETTE, 0), CASSETTE_MOTOR_ENABLED, CASSETTE_MASK_MOTOR);
760	759	timer_adjust_periodic(datasette_timer, attotime_zero, 0, ATTOTIME_IN_HZ(44100));
761	760	}
762	761	else
763	762	{
764		cassette_change_state(image_from_devtype_and_index(IO_CASSETTE, 0),CASSETTE_MOTOR_DISABLED ,CASSETTE_MASK_MOTOR);
	763	cassette_change_state(image_from_devtype_and_index(IO_CASSETTE, 0), CASSETTE_MOTOR_DISABLED, CASSETTE_MASK_MOTOR);
765	764	timer_reset(datasette_timer, attotime_never);
766	765	}
767	766	}
r3132	r3133
905	904
906	905	double last = 0;
907	906
908		static TIMER_CALLBACK( c64_tape_timer )
	907	TIMER_CALLBACK( c64_tape_timer )
909	908	{
910	909	double tmp = cassette_input(image_from_devtype_and_index(IO_CASSETTE, 0));
911	910

src/mess/drivers/c128.c

r3132	r3133
294	294	*/
295	295
296	296	#include "driver.h"
297		#include "includes/c128.h"
298		#include "includes/c64.h"
299
300	297	#include "sound/sid6581.h"
301	298	#include "machine/6526cia.h"
302	299
r3132	r3133
307	304	#include "video/vdc8563.h"
308	305	#include "includes/cbmserb.h"
309	306	#include "includes/vc1541.h"
310		#include "includes/vc20tape.h"
311	307
	308	#include "includes/c128.h"
	309	#include "includes/c64.h"
312	310
	311
313	312	/* shares ram with m8502
314	313	* how to bankswitch ?
315	314	* bank 0
r3132	r3133
916	915	static SYSTEM_CONFIG_START(c128)
917	916	CONFIG_DEVICE(c128_cbmcartslot_getinfo)
918	917	CONFIG_DEVICE(cbmfloppy_device_getinfo)
	918	CONFIG_DEVICE(datasette_device_getinfo)
919	919	SYSTEM_CONFIG_END
920	920
921	921	static SYSTEM_CONFIG_START(c128d)
922	922	CONFIG_DEVICE(c1571_device_getinfo)
	923	CONFIG_DEVICE(datasette_device_getinfo)
923	924	SYSTEM_CONFIG_END
924	925
925	926	/*    YEAR  NAME        PARENT  COMPAT  MACHINE     INPUT       INIT        CONFIG  COMPANY   FULLNAME */

src/mess/drivers/c16.c

r3132	r3133
158	158
159	159	#define VERBOSE_DBG 0
160	160	#include "includes/cbm.h"
161		#include "includes/c16.h"
162	161	#include "includes/cbmserb.h"
163	162	#include "includes/vc1541.h"
164		#include "includes/vc20tape.h"
165	163	#include "machine/cbmipt.h"
166	164	#include "video/ted7360.h"
167	165	#include "devices/cartslot.h"
168	166
	167	#include "includes/c16.h"
	168
	169
169	170	/*
170	171	* commodore c16/c116/plus 4
171	172	* 16 KByte (C16/C116) or 32 KByte or 64 KByte (plus4) RAM
r3132	r3133
702	703	}
703	704	}
704	705
	706
705	707	static SYSTEM_CONFIG_START(c16)
706	708	CONFIG_DEVICE(c16cart_device_getinfo)
707	709	CONFIG_DEVICE(cbmfloppy_device_getinfo)
708		CONFIG_DEVICE(vc20tape_device_getinfo)
	710	CONFIG_DEVICE(datasette_device_getinfo)
709	711	CONFIG_RAM(16 * 1024)
710	712	CONFIG_RAM(32 * 1024)
711	713	CONFIG_RAM_DEFAULT(64 * 1024)
r3132	r3133
713	715
714	716	static SYSTEM_CONFIG_START(c16c)
715	717	CONFIG_DEVICE(c16cart_device_getinfo)
716		CONFIG_DEVICE(vc20tape_device_getinfo)
	718	CONFIG_DEVICE(datasette_device_getinfo)
717	719	CONFIG_DEVICE(c1551_device_getinfo)
718	720	CONFIG_RAM(16 * 1024)
719	721	CONFIG_RAM(32 * 1024)
r3132	r3133
722	724
723	725	static SYSTEM_CONFIG_START(c16v)
724	726	CONFIG_DEVICE(c16cart_device_getinfo)
725		CONFIG_DEVICE(vc20tape_device_getinfo)
	727	CONFIG_DEVICE(datasette_device_getinfo)
726	728	CONFIG_DEVICE(vc1541_device_getinfo)
727	729	CONFIG_RAM(16 * 1024)
728	730	CONFIG_RAM(32 * 1024)
r3132	r3133
732	734	static SYSTEM_CONFIG_START(plus)
733	735	CONFIG_DEVICE(c16cart_device_getinfo)
734	736	CONFIG_DEVICE(cbmfloppy_device_getinfo)
735		CONFIG_DEVICE(vc20tape_device_getinfo)
	737	CONFIG_DEVICE(datasette_device_getinfo)
736	738	CONFIG_RAM_DEFAULT(64 * 1024)
737	739	SYSTEM_CONFIG_END
738	740
739	741	static SYSTEM_CONFIG_START(plusc)
740	742	CONFIG_DEVICE(c16cart_device_getinfo)
741		CONFIG_DEVICE(vc20tape_device_getinfo)
	743	CONFIG_DEVICE(datasette_device_getinfo)
742	744	CONFIG_DEVICE(c1551_device_getinfo)
743	745	CONFIG_RAM_DEFAULT(64 * 1024)
744	746	SYSTEM_CONFIG_END
745	747
746	748	static SYSTEM_CONFIG_START(plusv)
747	749	CONFIG_DEVICE(c16cart_device_getinfo)
748		CONFIG_DEVICE(vc20tape_device_getinfo)
	750	CONFIG_DEVICE(datasette_device_getinfo)
749	751	CONFIG_DEVICE(vc1541_device_getinfo)
750	752	CONFIG_RAM_DEFAULT(64 * 1024)
751	753	SYSTEM_CONFIG_END

src/mess/drivers/vc20.c

r3132	r3133
155	155
156	156	#define VERBOSE_DBG 0
157	157	#include "includes/cbm.h"
158		#include "includes/vc20.h"
159	158	#include "machine/6522via.h"
160	159	#include "includes/cbmserb.h"
161	160	#include "includes/vc1541.h"
162		#include "includes/vc20tape.h"
163	161	#include "machine/cbmipt.h"
164	162	#include "video/vic6560.h"
165	163	#include "devices/cartslot.h"
166	164
	165	#include "includes/vc20.h"
	166
	167
167	168	static ADDRESS_MAP_START( vc20_mem , ADDRESS_SPACE_PROGRAM, 8)
168	169	AM_RANGE(0x0000, 0x03ff) AM_RAM
169	170	AM_RANGE(0x0400, 0x0fff) AM_ROMBANK(1) AM_WRITE( vc20_0400_w )   /* ram, rom or nothing */
r3132	r3133
241	242	/* Lightpen 6560 */
242	243	PORT_INCLUDE( vic_lightpen_6560 )   /* LIGHTX, LIGHTY */
243	244
244		PORT_INCLUDE( vic_devices )         /* DEVS */
245
246	245	PORT_INCLUDE( vic_expansion )      /* EXP */
247	246
248	247	PORT_INCLUDE( vic_config )         /* CFG */
r3132	r3133
285	284	/* Lightpen 6561 */
286	285	PORT_INCLUDE( vic_lightpen_6561 )   /* LIGHTX, LIGHTY */
287	286
288		PORT_INCLUDE( vic_devices )         /* DEVS */
289
290	287	PORT_INCLUDE( vic_expansion )      /* EXP */
291	288
292	289	PORT_INCLUDE( vic_config )         /* CFG */
r3132	r3133
514	511	}
515	512	}
516	513
	514
517	515	static SYSTEM_CONFIG_START(vc20)
518	516	CONFIG_DEVICE(cbmvc20_cartslot_getinfo)
519	517	CONFIG_DEVICE(cbmfloppy_device_getinfo)
520		CONFIG_DEVICE(vc20tape_device_getinfo)
	518	CONFIG_DEVICE(datasette_device_getinfo)
521	519	CONFIG_RAM_DEFAULT(5 * 1024)
522	520	CONFIG_RAM(8 * 1024)
523	521	CONFIG_RAM(16 * 1024)
r3132	r3133
527	525
528	526	static SYSTEM_CONFIG_START(vc20v)
529	527	CONFIG_DEVICE(cbmvc20_cartslot_getinfo)
530		CONFIG_DEVICE(vc20tape_device_getinfo)
	528	CONFIG_DEVICE(datasette_device_getinfo)
531	529	CONFIG_DEVICE(vc1541_device_getinfo)
532	530	CONFIG_RAM_DEFAULT(5 * 1024)
533	531	CONFIG_RAM(8 * 1024)

src/mess/drivers/c64.c

r3132	r3133
193	193	#include "driver.h"
194	194	#include "sound/sid6581.h"
195	195	#include "machine/6526cia.h"
196		#include "devices/cassette.h"
197	196
198	197	#define VERBOSE_DBG 0
199	198	#include "includes/cbm.h"
r3132	r3133
595	594	}
596	595	}
597	596
598		static void datasette_device_getinfo(const mess_device_class *devclass, UINT32 state, union devinfo *info)
599		{
600		/* cassette */
601		switch(state)
602		{
603		case MESS_DEVINFO_INT_COUNT:               info->i = 1; break;
604	597
605		case MESS_DEVINFO_INT_CASSETTE_DEFAULT_STATE:   info->i = CASSETTE_STOPPED | CASSETTE_MOTOR_DISABLED | CASSETTE_SPEAKER_ENABLED; break;
606	598
607		default:                              cassette_device_getinfo( devclass, state, info ); break;
608		}
609		}
610
611	599	static SYSTEM_CONFIG_START(c64)
612	600	CONFIG_DEVICE(c64_cbmcartslot_getinfo)
613	601	CONFIG_DEVICE(cbmfloppy_device_getinfo)

docs/messnew.txt

r3132	r3133
9	9	System Driver Changes:
10	10	----------------------
11	11
12		- [C64] added partial support to tape emulation (only loading and only .wav) [Fabio Priuli, Roberto Zandona']
	12	- [C16] added preliminary support for tape emulation using MESS core
	13	functions (only loading and only .wav) [Fabio Priuli]
13	14
	15	- [C128] added preliminary support for tape emulation using MESS core
	16	functions (only loading and only .wav) [Fabio Priuli]
	17
	18	- [C64] added partial support for tape emulation using MESS core
	19	functions (only loading and only .wav) [Fabio Priuli, Roberto Zandona']
	20
14	21	- [C64] fixed border color during tape loading [Roberto Zandona']
15	22
16	23	- [C64] partial cleanup of memory bankswitch, based on docs [Fabio Priuli]
r3132	r3133
21	28
22	29	- [TMC2000] Fixed quickloading. [Curt Coder]
23	30
	31	- [VC20] added preliminary support for tape emulation using MESS core
	32	functions (only loading and only .wav) [Fabio Priuli]
	33
24	34	- [VIP] Fixed memory banking, added discrete sound, added tape support,
25	35	and improved quickloading so that the CHIP-8 interpreter is automatically
26	36	loaded alongside .c8 files. [Curt Coder]

Previous

15994 Revisions

Next

---

© 1998-2018 The MESS Team