[picodrive.git] / Pico / cd / Area.c

// This is part of Pico Library

// (c) Copyright 2007 notaz, All rights reserved.
// Free for non-commercial use.

// For commercial use, separate licencing terms must be obtained.


#include "../PicoInt.h"

// ym2612
#include "../sound/ym2612.h"

// sn76496
extern int *sn76496_regs;

void (*PicoStateProgressCB)(const char *str) = 0;


typedef enum {
	CHUNK_M68K = 1,
	CHUNK_RAM,
	CHUNK_VRAM,
	CHUNK_ZRAM,
	CHUNK_CRAM,	// 5
	CHUNK_VSRAM,
	CHUNK_MISC,
	CHUNK_VIDEO,
	CHUNK_Z80,
	CHUNK_PSG,	// 10
	CHUNK_FM,
	// CD stuff
	CHUNK_S68K,
	CHUNK_PRG_RAM,
	CHUNK_WORD_RAM,
	CHUNK_PCM_RAM,	// 15
	CHUNK_BRAM,
	CHUNK_GA_REGS,
	CHUNK_PCM,
	CHUNK_CDC,
	CHUNK_CDD,	// 20
	CHUNK_SCD,
	CHUNK_RC,
	CHUNK_MISC_CD,
} chunk_name_e;


static char *chunk_names[] = {
	"Saving.. M68K state",
	"Saving.. RAM",
	"Saving.. VRAM",
	"Saving.. ZRAM",
	"Saving.. CRAM",	// 5
	"Saving.. VSRAM",
	"Saving.. emu state",
	"Saving.. VIDEO",
	"Saving.. Z80 state",
	"Saving.. PSG",		// 10
	"Saving.. FM",
	// CD stuff
	"Saving.. S68K state",
	"Saving.. PRG_RAM",
	"Saving.. WORD_RAM",
	"Saving.. PCM_RAM",	// 15
	"Saving.. BRAM",
	"Saving.. GATE ARRAY regs",
	"Saving.. PCM state",
	"Saving.. CDC",
	"Saving.. CDD",		// 20
	"Saving.. SCD",
	"Saving.. GFX chip",
	"Saving.. MCD state",
};


static int write_chunk(chunk_name_e name, int len, void *data, void *file)
{
	size_t bwritten = 0;
	bwritten += areaWrite(&name, 1, 1, file);
	bwritten += areaWrite(&len, 1, 4, file);
	bwritten += areaWrite(data, 1, len, file);

	return (bwritten == len + 4 + 1);
}


#define CHECKED_WRITE(name,len,data) \
	if (PicoStateProgressCB) PicoStateProgressCB(chunk_names[name]); \
	if (!write_chunk(name, len, data, file)) return 1;

#define CHECKED_WRITE_BUFF(name,buff) \
	if (PicoStateProgressCB) PicoStateProgressCB(chunk_names[name]); \
	if (!write_chunk(name, sizeof(buff), &buff, file)) return 1;

int PicoCdSaveState(void *file)
{
	unsigned char buff[0x60];
	void *ym2612_regs = YM2612GetRegs();

	areaWrite("PicoSMCD", 1, 8, file);
	areaWrite(&PicoVer, 1, 4, file);

	memset(buff, 0, sizeof(buff));
	PicoAreaPackCpu(buff, 0);
	CHECKED_WRITE_BUFF(CHUNK_M68K,  buff);
	CHECKED_WRITE_BUFF(CHUNK_RAM,   Pico.ram);
	CHECKED_WRITE_BUFF(CHUNK_VRAM,  Pico.vram);
	CHECKED_WRITE_BUFF(CHUNK_ZRAM,  Pico.zram);
	CHECKED_WRITE_BUFF(CHUNK_CRAM,  Pico.cram);
	CHECKED_WRITE_BUFF(CHUNK_VSRAM, Pico.vsram);
	CHECKED_WRITE_BUFF(CHUNK_MISC,  Pico.m);
	CHECKED_WRITE_BUFF(CHUNK_VIDEO, Pico.video);
	if(PicoOpt&7) {
		memset(buff, 0, sizeof(buff));
		z80_pack(buff);
		CHECKED_WRITE_BUFF(CHUNK_Z80, buff);
	}
	if(PicoOpt&3)
		CHECKED_WRITE(CHUNK_PSG, 28*4, sn76496_regs);
	if(PicoOpt&1)
		CHECKED_WRITE(CHUNK_FM, 0x200+4, ym2612_regs);

	if (PicoMCD & 1)
	{
		Pico_mcd->m.audio_offset = mp3_get_offset();
		memset(buff, 0, sizeof(buff));
		PicoAreaPackCpu(buff, 1);

		CHECKED_WRITE_BUFF(CHUNK_S68K,     buff);
		CHECKED_WRITE_BUFF(CHUNK_PRG_RAM,  Pico_mcd->prg_ram);
		CHECKED_WRITE_BUFF(CHUNK_WORD_RAM, Pico_mcd->word_ram); // in 2M format
		CHECKED_WRITE_BUFF(CHUNK_PCM_RAM,  Pico_mcd->pcm_ram);
		CHECKED_WRITE_BUFF(CHUNK_BRAM,     Pico_mcd->bram);
		CHECKED_WRITE_BUFF(CHUNK_GA_REGS,  Pico_mcd->s68k_regs); // GA regs, not CPU regs
		CHECKED_WRITE_BUFF(CHUNK_PCM,      Pico_mcd->pcm);
		CHECKED_WRITE_BUFF(CHUNK_CDD,      Pico_mcd->cdd);
		CHECKED_WRITE_BUFF(CHUNK_CDC,      Pico_mcd->cdc);
		CHECKED_WRITE_BUFF(CHUNK_SCD,      Pico_mcd->scd);
		CHECKED_WRITE_BUFF(CHUNK_RC,       Pico_mcd->rot_comp);
		CHECKED_WRITE_BUFF(CHUNK_MISC_CD,  Pico_mcd->m);
	}

	return 0;
}

static int g_read_offs = 0;

#define R_ERROR_RETURN(error) \
{ \
	printf("PicoCdLoadState @ %x: " error "\n", g_read_offs); \
	return 1; \
}

// when is eof really set?
#define CHECKED_READ(len,data) \
	if (areaRead(data, 1, len, file) != len) { \
		if (len == 1 && areaEof(file)) return 0; \
		R_ERROR_RETURN("areaRead: premature EOF\n"); \
		return 1; \
	} \
	g_read_offs += len;

#define CHECKED_READ2(len2,data) \
	if (len2 != len) R_ERROR_RETURN("unexpected len, wanted " #len2); \
	CHECKED_READ(len2, data)

#define CHECKED_READ_BUFF(buff) CHECKED_READ2(sizeof(buff), &buff);

int PicoCdLoadState(void *file)
{
	unsigned char buff[0x60];
	int ver, len;
	void *ym2612_regs = YM2612GetRegs();

	g_read_offs = 0;
	CHECKED_READ(8, buff);
	if (strncmp((char *)buff, "PicoSMCD", 8)) R_ERROR_RETURN("bad header");
	CHECKED_READ(4, &ver);

	while (!areaEof(file))
	{
		CHECKED_READ(1, buff);
		CHECKED_READ(4, &len);
		if (len < 0 || len > 1024*512) R_ERROR_RETURN("bad length");
		if (buff[0] > CHUNK_FM && !(PicoMCD & 1)) R_ERROR_RETURN("cd chunk in non CD state?");

		switch (buff[0])
		{
			case CHUNK_M68K:
				CHECKED_READ_BUFF(buff);
				PicoAreaUnpackCpu(buff, 0);
				break;

			case CHUNK_Z80:
				CHECKED_READ_BUFF(buff);
				z80_unpack(buff);
				break;

			case CHUNK_RAM:   CHECKED_READ_BUFF(Pico.ram); break;
			case CHUNK_VRAM:  CHECKED_READ_BUFF(Pico.vram); break;
			case CHUNK_ZRAM:  CHECKED_READ_BUFF(Pico.zram); break;
			case CHUNK_CRAM:  CHECKED_READ_BUFF(Pico.cram); break;
			case CHUNK_VSRAM: CHECKED_READ_BUFF(Pico.vsram); break;
			case CHUNK_MISC:  CHECKED_READ_BUFF(Pico.m); break;
			case CHUNK_VIDEO: CHECKED_READ_BUFF(Pico.video); break;
			case CHUNK_PSG:   CHECKED_READ2(28*4, sn76496_regs); break;
			case CHUNK_FM:
				CHECKED_READ2(0x200+4, ym2612_regs);
				YM2612PicoStateLoad();
				break;

			// cd stuff
			case CHUNK_S68K:
				CHECKED_READ_BUFF(buff);
				PicoAreaUnpackCpu(buff, 1);
				break;

			case CHUNK_PRG_RAM:	CHECKED_READ_BUFF(Pico_mcd->prg_ram); break;
			case CHUNK_WORD_RAM:	CHECKED_READ_BUFF(Pico_mcd->word_ram); break;
			case CHUNK_PCM_RAM:	CHECKED_READ_BUFF(Pico_mcd->pcm_ram); break;
			case CHUNK_BRAM:	CHECKED_READ_BUFF(Pico_mcd->bram); break;
			case CHUNK_GA_REGS:	CHECKED_READ_BUFF(Pico_mcd->s68k_regs); break;
			case CHUNK_PCM:		CHECKED_READ_BUFF(Pico_mcd->pcm); break;
			case CHUNK_CDD:		CHECKED_READ_BUFF(Pico_mcd->cdd); break;
			case CHUNK_CDC:		CHECKED_READ_BUFF(Pico_mcd->cdc); break;
			case CHUNK_SCD:		CHECKED_READ_BUFF(Pico_mcd->scd); break;
			case CHUNK_RC:		CHECKED_READ_BUFF(Pico_mcd->rot_comp); break;

			case CHUNK_MISC_CD:
				CHECKED_READ_BUFF(Pico_mcd->m);
				mp3_start_play(Pico_mcd->TOC.Tracks[Pico_mcd->m.audio_track].F, Pico_mcd->m.audio_offset);
				break;

			default:
				printf("skipping unknown chunk %i of size %i\n", buff[0], len);
				areaSeek(file, len, SEEK_CUR);
				break;
		}
	}

	return 0;
}
Commit	Line	Data
51a902ae	1	// This is part of Pico Library
51a902ae	2
4f265db7	3	// (c) Copyright 2007 notaz, All rights reserved.
51a902ae	4	// Free for non-commercial use.
	5
	6	// For commercial use, separate licencing terms must be obtained.
	7
	8
	9	#include "../PicoInt.h"
	10
	11	// ym2612
	12	#include "../sound/ym2612.h"
	13
	14	// sn76496
	15	extern int *sn76496_regs;
	16
76276b0b	17	void (PicoStateProgressCB)(const char str) = 0;
76276b0b	18
51a902ae	19
	20	typedef enum {
	21	CHUNK_M68K = 1,
	22	CHUNK_RAM,
	23	CHUNK_VRAM,
	24	CHUNK_ZRAM,
75736070	25	CHUNK_CRAM, // 5
51a902ae	26	CHUNK_VSRAM,
	27	CHUNK_MISC,
	28	CHUNK_VIDEO,
	29	CHUNK_Z80,
75736070	30	CHUNK_PSG, // 10
51a902ae	31	CHUNK_FM,
51a902ae	32	// CD stuff
75736070	33	CHUNK_S68K,
	34	CHUNK_PRG_RAM,
	35	CHUNK_WORD_RAM,
4f265db7	36	CHUNK_PCM_RAM, // 15
4f265db7	37	CHUNK_BRAM,
75736070	38	CHUNK_GA_REGS,
4f265db7	39	CHUNK_PCM,
75736070	40	CHUNK_CDC,
4f265db7	41	CHUNK_CDD, // 20
75736070	42	CHUNK_SCD,
4f265db7	43	CHUNK_RC,
75736070	44	CHUNK_MISC_CD,
51a902ae	45	} chunk_name_e;
	46
	47
76276b0b	48	static char *chunk_names[] = {
	49	"Saving.. M68K state",
	50	"Saving.. RAM",
	51	"Saving.. VRAM",
	52	"Saving.. ZRAM",
	53	"Saving.. CRAM", // 5
	54	"Saving.. VSRAM",
	55	"Saving.. emu state",
	56	"Saving.. VIDEO",
	57	"Saving.. Z80 state",
	58	"Saving.. PSG", // 10
	59	"Saving.. FM",
	60	// CD stuff
	61	"Saving.. S68K state",
	62	"Saving.. PRG_RAM",
	63	"Saving.. WORD_RAM",
	64	"Saving.. PCM_RAM", // 15
	65	"Saving.. BRAM",
	66	"Saving.. GATE ARRAY regs",
	67	"Saving.. PCM state",
	68	"Saving.. CDC",
	69	"Saving.. CDD", // 20
	70	"Saving.. SCD",
	71	"Saving.. GFX chip",
	72	"Saving.. MCD state",
	73	};
	74
	75
51a902ae	76	static int write_chunk(chunk_name_e name, int len, void data, void file)
	77	{
	78	size_t bwritten = 0;
	79	bwritten += areaWrite(&name, 1, 1, file);
	80	bwritten += areaWrite(&len, 1, 4, file);
	81	bwritten += areaWrite(data, 1, len, file);
	82
	83	return (bwritten == len + 4 + 1);
	84	}
	85
	86
	87	#define CHECKED_WRITE(name,len,data) \
76276b0b	88	if (PicoStateProgressCB) PicoStateProgressCB(chunk_names[name]); \
51a902ae	89	if (!write_chunk(name, len, data, file)) return 1;
	90
	91	#define CHECKED_WRITE_BUFF(name,buff) \
76276b0b	92	if (PicoStateProgressCB) PicoStateProgressCB(chunk_names[name]); \
51a902ae	93	if (!write_chunk(name, sizeof(buff), &buff, file)) return 1;
	94
	95	int PicoCdSaveState(void *file)
	96	{
	97	unsigned char buff[0x60];
	98	void *ym2612_regs = YM2612GetRegs();
	99
	100	areaWrite("PicoSMCD", 1, 8, file);
	101	areaWrite(&PicoVer, 1, 4, file);
	102
	103	memset(buff, 0, sizeof(buff));
	104	PicoAreaPackCpu(buff, 0);
	105	CHECKED_WRITE_BUFF(CHUNK_M68K, buff);
	106	CHECKED_WRITE_BUFF(CHUNK_RAM, Pico.ram);
	107	CHECKED_WRITE_BUFF(CHUNK_VRAM, Pico.vram);
	108	CHECKED_WRITE_BUFF(CHUNK_ZRAM, Pico.zram);
	109	CHECKED_WRITE_BUFF(CHUNK_CRAM, Pico.cram);
	110	CHECKED_WRITE_BUFF(CHUNK_VSRAM, Pico.vsram);
	111	CHECKED_WRITE_BUFF(CHUNK_MISC, Pico.m);
	112	CHECKED_WRITE_BUFF(CHUNK_VIDEO, Pico.video);
	113	if(PicoOpt&7) {
	114	memset(buff, 0, sizeof(buff));
	115	z80_pack(buff);
	116	CHECKED_WRITE_BUFF(CHUNK_Z80, buff);
	117	}
	118	if(PicoOpt&3)
	119	CHECKED_WRITE(CHUNK_PSG, 28*4, sn76496_regs);
	120	if(PicoOpt&1)
	121	CHECKED_WRITE(CHUNK_FM, 0x200+4, ym2612_regs);
	122
75736070	123	if (PicoMCD & 1)
	124	{
	125	Pico_mcd->m.audio_offset = mp3_get_offset();
	126	memset(buff, 0, sizeof(buff));
	127	PicoAreaPackCpu(buff, 1);
	128
	129	CHECKED_WRITE_BUFF(CHUNK_S68K, buff);
	130	CHECKED_WRITE_BUFF(CHUNK_PRG_RAM, Pico_mcd->prg_ram);
	131	CHECKED_WRITE_BUFF(CHUNK_WORD_RAM, Pico_mcd->word_ram); // in 2M format
4f265db7	132	CHECKED_WRITE_BUFF(CHUNK_PCM_RAM, Pico_mcd->pcm_ram);
75736070	133	CHECKED_WRITE_BUFF(CHUNK_BRAM, Pico_mcd->bram);
4f265db7	134	CHECKED_WRITE_BUFF(CHUNK_GA_REGS, Pico_mcd->s68k_regs); // GA regs, not CPU regs
4f265db7	135	CHECKED_WRITE_BUFF(CHUNK_PCM, Pico_mcd->pcm);
75736070	136	CHECKED_WRITE_BUFF(CHUNK_CDD, Pico_mcd->cdd);
	137	CHECKED_WRITE_BUFF(CHUNK_CDC, Pico_mcd->cdc);
	138	CHECKED_WRITE_BUFF(CHUNK_SCD, Pico_mcd->scd);
	139	CHECKED_WRITE_BUFF(CHUNK_RC, Pico_mcd->rot_comp);
	140	CHECKED_WRITE_BUFF(CHUNK_MISC_CD, Pico_mcd->m);
	141	}
51a902ae	142
	143	return 0;
	144	}
	145
	146	static int g_read_offs = 0;
	147
51a902ae	148	#define R_ERROR_RETURN(error) \
	149	{ \
	150	printf("PicoCdLoadState @ %x: " error "\n", g_read_offs); \
	151	return 1; \
	152	}
	153
75736070	154	// when is eof really set?
	155	#define CHECKED_READ(len,data) \
	156	if (areaRead(data, 1, len, file) != len) { \
	157	if (len == 1 && areaEof(file)) return 0; \
	158	R_ERROR_RETURN("areaRead: premature EOF\n"); \
	159	return 1; \
	160	} \
	161	g_read_offs += len;
	162
51a902ae	163	#define CHECKED_READ2(len2,data) \
	164	if (len2 != len) R_ERROR_RETURN("unexpected len, wanted " #len2); \
	165	CHECKED_READ(len2, data)
	166
	167	#define CHECKED_READ_BUFF(buff) CHECKED_READ2(sizeof(buff), &buff);
	168
	169	int PicoCdLoadState(void *file)
	170	{
	171	unsigned char buff[0x60];
	172	int ver, len;
	173	void *ym2612_regs = YM2612GetRegs();
	174
	175	g_read_offs = 0;
	176	CHECKED_READ(8, buff);
	177	if (strncmp((char *)buff, "PicoSMCD", 8)) R_ERROR_RETURN("bad header");
	178	CHECKED_READ(4, &ver);
	179
	180	while (!areaEof(file))
	181	{
	182	CHECKED_READ(1, buff);
	183	CHECKED_READ(4, &len);
75736070	184	if (len < 0 \|\| len > 1024*512) R_ERROR_RETURN("bad length");
4f265db7	185	if (buff[0] > CHUNK_FM && !(PicoMCD & 1)) R_ERROR_RETURN("cd chunk in non CD state?");
51a902ae	186
	187	switch (buff[0])
	188	{
	189	case CHUNK_M68K:
	190	CHECKED_READ_BUFF(buff);
	191	PicoAreaUnpackCpu(buff, 0);
	192	break;
	193
	194	case CHUNK_Z80:
	195	CHECKED_READ_BUFF(buff);
	196	z80_unpack(buff);
	197	break;
	198
	199	case CHUNK_RAM: CHECKED_READ_BUFF(Pico.ram); break;
	200	case CHUNK_VRAM: CHECKED_READ_BUFF(Pico.vram); break;
	201	case CHUNK_ZRAM: CHECKED_READ_BUFF(Pico.zram); break;
	202	case CHUNK_CRAM: CHECKED_READ_BUFF(Pico.cram); break;
	203	case CHUNK_VSRAM: CHECKED_READ_BUFF(Pico.vsram); break;
	204	case CHUNK_MISC: CHECKED_READ_BUFF(Pico.m); break;
	205	case CHUNK_VIDEO: CHECKED_READ_BUFF(Pico.video); break;
	206	case CHUNK_PSG: CHECKED_READ2(28*4, sn76496_regs); break;
	207	case CHUNK_FM:
	208	CHECKED_READ2(0x200+4, ym2612_regs);
	209	YM2612PicoStateLoad();
	210	break;
75736070	211
	212	// cd stuff
	213	case CHUNK_S68K:
	214	CHECKED_READ_BUFF(buff);
	215	PicoAreaUnpackCpu(buff, 1);
	216	break;
	217
	218	case CHUNK_PRG_RAM: CHECKED_READ_BUFF(Pico_mcd->prg_ram); break;
	219	case CHUNK_WORD_RAM: CHECKED_READ_BUFF(Pico_mcd->word_ram); break;
4f265db7	220	case CHUNK_PCM_RAM: CHECKED_READ_BUFF(Pico_mcd->pcm_ram); break;
75736070	221	case CHUNK_BRAM: CHECKED_READ_BUFF(Pico_mcd->bram); break;
75736070	222	case CHUNK_GA_REGS: CHECKED_READ_BUFF(Pico_mcd->s68k_regs); break;
4f265db7	223	case CHUNK_PCM: CHECKED_READ_BUFF(Pico_mcd->pcm); break;
75736070	224	case CHUNK_CDD: CHECKED_READ_BUFF(Pico_mcd->cdd); break;
	225	case CHUNK_CDC: CHECKED_READ_BUFF(Pico_mcd->cdc); break;
	226	case CHUNK_SCD: CHECKED_READ_BUFF(Pico_mcd->scd); break;
	227	case CHUNK_RC: CHECKED_READ_BUFF(Pico_mcd->rot_comp); break;
	228
	229	case CHUNK_MISC_CD:
	230	CHECKED_READ_BUFF(Pico_mcd->m);
	231	mp3_start_play(Pico_mcd->TOC.Tracks[Pico_mcd->m.audio_track].F, Pico_mcd->m.audio_offset);
	232	break;
	233
	234	default:
	235	printf("skipping unknown chunk %i of size %i\n", buff[0], len);
	236	areaSeek(file, len, SEEK_CUR);
	237	break;
51a902ae	238	}
	239	}
	240
	241	return 0;
	242	}
	243