[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;


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 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 (!write_chunk(name, len, data, file)) return 1;

#define CHECKED_WRITE_BUFF(name,buff) \
	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);

	// TODO: cd stuff
	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
	17
	18	typedef enum {
	19	CHUNK_M68K = 1,
	20	CHUNK_RAM,
	21	CHUNK_VRAM,
	22	CHUNK_ZRAM,
75736070	23	CHUNK_CRAM, // 5
51a902ae	24	CHUNK_VSRAM,
	25	CHUNK_MISC,
	26	CHUNK_VIDEO,
	27	CHUNK_Z80,
75736070	28	CHUNK_PSG, // 10
51a902ae	29	CHUNK_FM,
51a902ae	30	// CD stuff
75736070	31	CHUNK_S68K,
	32	CHUNK_PRG_RAM,
	33	CHUNK_WORD_RAM,
4f265db7	34	CHUNK_PCM_RAM, // 15
4f265db7	35	CHUNK_BRAM,
75736070	36	CHUNK_GA_REGS,
4f265db7	37	CHUNK_PCM,
75736070	38	CHUNK_CDC,
4f265db7	39	CHUNK_CDD, // 20
75736070	40	CHUNK_SCD,
4f265db7	41	CHUNK_RC,
75736070	42	CHUNK_MISC_CD,
51a902ae	43	} chunk_name_e;
	44
	45
	46	static int write_chunk(chunk_name_e name, int len, void data, void file)
	47	{
	48	size_t bwritten = 0;
	49	bwritten += areaWrite(&name, 1, 1, file);
	50	bwritten += areaWrite(&len, 1, 4, file);
	51	bwritten += areaWrite(data, 1, len, file);
	52
	53	return (bwritten == len + 4 + 1);
	54	}
	55
	56
	57	#define CHECKED_WRITE(name,len,data) \
	58	if (!write_chunk(name, len, data, file)) return 1;
	59
	60	#define CHECKED_WRITE_BUFF(name,buff) \
	61	if (!write_chunk(name, sizeof(buff), &buff, file)) return 1;
	62
	63	int PicoCdSaveState(void *file)
	64	{
	65	unsigned char buff[0x60];
	66	void *ym2612_regs = YM2612GetRegs();
	67
	68	areaWrite("PicoSMCD", 1, 8, file);
	69	areaWrite(&PicoVer, 1, 4, file);
	70
	71	memset(buff, 0, sizeof(buff));
	72	PicoAreaPackCpu(buff, 0);
	73	CHECKED_WRITE_BUFF(CHUNK_M68K, buff);
	74	CHECKED_WRITE_BUFF(CHUNK_RAM, Pico.ram);
	75	CHECKED_WRITE_BUFF(CHUNK_VRAM, Pico.vram);
	76	CHECKED_WRITE_BUFF(CHUNK_ZRAM, Pico.zram);
	77	CHECKED_WRITE_BUFF(CHUNK_CRAM, Pico.cram);
	78	CHECKED_WRITE_BUFF(CHUNK_VSRAM, Pico.vsram);
	79	CHECKED_WRITE_BUFF(CHUNK_MISC, Pico.m);
	80	CHECKED_WRITE_BUFF(CHUNK_VIDEO, Pico.video);
	81	if(PicoOpt&7) {
	82	memset(buff, 0, sizeof(buff));
	83	z80_pack(buff);
	84	CHECKED_WRITE_BUFF(CHUNK_Z80, buff);
	85	}
	86	if(PicoOpt&3)
	87	CHECKED_WRITE(CHUNK_PSG, 28*4, sn76496_regs);
	88	if(PicoOpt&1)
	89	CHECKED_WRITE(CHUNK_FM, 0x200+4, ym2612_regs);
	90
	91	// TODO: cd stuff
75736070	92	if (PicoMCD & 1)
	93	{
	94	Pico_mcd->m.audio_offset = mp3_get_offset();
	95	memset(buff, 0, sizeof(buff));
	96	PicoAreaPackCpu(buff, 1);
	97
	98	CHECKED_WRITE_BUFF(CHUNK_S68K, buff);
	99	CHECKED_WRITE_BUFF(CHUNK_PRG_RAM, Pico_mcd->prg_ram);
	100	CHECKED_WRITE_BUFF(CHUNK_WORD_RAM, Pico_mcd->word_ram); // in 2M format
4f265db7	101	CHECKED_WRITE_BUFF(CHUNK_PCM_RAM, Pico_mcd->pcm_ram);
75736070	102	CHECKED_WRITE_BUFF(CHUNK_BRAM, Pico_mcd->bram);
4f265db7	103	CHECKED_WRITE_BUFF(CHUNK_GA_REGS, Pico_mcd->s68k_regs); // GA regs, not CPU regs
4f265db7	104	CHECKED_WRITE_BUFF(CHUNK_PCM, Pico_mcd->pcm);
75736070	105	CHECKED_WRITE_BUFF(CHUNK_CDD, Pico_mcd->cdd);
	106	CHECKED_WRITE_BUFF(CHUNK_CDC, Pico_mcd->cdc);
	107	CHECKED_WRITE_BUFF(CHUNK_SCD, Pico_mcd->scd);
	108	CHECKED_WRITE_BUFF(CHUNK_RC, Pico_mcd->rot_comp);
	109	CHECKED_WRITE_BUFF(CHUNK_MISC_CD, Pico_mcd->m);
	110	}
51a902ae	111
	112	return 0;
	113	}
	114
	115	static int g_read_offs = 0;
	116
51a902ae	117	#define R_ERROR_RETURN(error) \
	118	{ \
	119	printf("PicoCdLoadState @ %x: " error "\n", g_read_offs); \
	120	return 1; \
	121	}
	122
75736070	123	// when is eof really set?
	124	#define CHECKED_READ(len,data) \
	125	if (areaRead(data, 1, len, file) != len) { \
	126	if (len == 1 && areaEof(file)) return 0; \
	127	R_ERROR_RETURN("areaRead: premature EOF\n"); \
	128	return 1; \
	129	} \
	130	g_read_offs += len;
	131
51a902ae	132	#define CHECKED_READ2(len2,data) \
	133	if (len2 != len) R_ERROR_RETURN("unexpected len, wanted " #len2); \
	134	CHECKED_READ(len2, data)
	135
	136	#define CHECKED_READ_BUFF(buff) CHECKED_READ2(sizeof(buff), &buff);
	137
	138	int PicoCdLoadState(void *file)
	139	{
	140	unsigned char buff[0x60];
	141	int ver, len;
	142	void *ym2612_regs = YM2612GetRegs();
	143
	144	g_read_offs = 0;
	145	CHECKED_READ(8, buff);
	146	if (strncmp((char *)buff, "PicoSMCD", 8)) R_ERROR_RETURN("bad header");
	147	CHECKED_READ(4, &ver);
	148
	149	while (!areaEof(file))
	150	{
	151	CHECKED_READ(1, buff);
	152	CHECKED_READ(4, &len);
75736070	153	if (len < 0 \|\| len > 1024*512) R_ERROR_RETURN("bad length");
4f265db7	154	if (buff[0] > CHUNK_FM && !(PicoMCD & 1)) R_ERROR_RETURN("cd chunk in non CD state?");
51a902ae	155
	156	switch (buff[0])
	157	{
	158	case CHUNK_M68K:
	159	CHECKED_READ_BUFF(buff);
	160	PicoAreaUnpackCpu(buff, 0);
	161	break;
	162
	163	case CHUNK_Z80:
	164	CHECKED_READ_BUFF(buff);
	165	z80_unpack(buff);
	166	break;
	167
	168	case CHUNK_RAM: CHECKED_READ_BUFF(Pico.ram); break;
	169	case CHUNK_VRAM: CHECKED_READ_BUFF(Pico.vram); break;
	170	case CHUNK_ZRAM: CHECKED_READ_BUFF(Pico.zram); break;
	171	case CHUNK_CRAM: CHECKED_READ_BUFF(Pico.cram); break;
	172	case CHUNK_VSRAM: CHECKED_READ_BUFF(Pico.vsram); break;
	173	case CHUNK_MISC: CHECKED_READ_BUFF(Pico.m); break;
	174	case CHUNK_VIDEO: CHECKED_READ_BUFF(Pico.video); break;
	175	case CHUNK_PSG: CHECKED_READ2(28*4, sn76496_regs); break;
	176	case CHUNK_FM:
	177	CHECKED_READ2(0x200+4, ym2612_regs);
	178	YM2612PicoStateLoad();
	179	break;
75736070	180
	181	// cd stuff
	182	case CHUNK_S68K:
	183	CHECKED_READ_BUFF(buff);
	184	PicoAreaUnpackCpu(buff, 1);
	185	break;
	186
	187	case CHUNK_PRG_RAM: CHECKED_READ_BUFF(Pico_mcd->prg_ram); break;
	188	case CHUNK_WORD_RAM: CHECKED_READ_BUFF(Pico_mcd->word_ram); break;
4f265db7	189	case CHUNK_PCM_RAM: CHECKED_READ_BUFF(Pico_mcd->pcm_ram); break;
75736070	190	case CHUNK_BRAM: CHECKED_READ_BUFF(Pico_mcd->bram); break;
75736070	191	case CHUNK_GA_REGS: CHECKED_READ_BUFF(Pico_mcd->s68k_regs); break;
4f265db7	192	case CHUNK_PCM: CHECKED_READ_BUFF(Pico_mcd->pcm); break;
75736070	193	case CHUNK_CDD: CHECKED_READ_BUFF(Pico_mcd->cdd); break;
	194	case CHUNK_CDC: CHECKED_READ_BUFF(Pico_mcd->cdc); break;
	195	case CHUNK_SCD: CHECKED_READ_BUFF(Pico_mcd->scd); break;
	196	case CHUNK_RC: CHECKED_READ_BUFF(Pico_mcd->rot_comp); break;
	197
	198	case CHUNK_MISC_CD:
	199	CHECKED_READ_BUFF(Pico_mcd->m);
	200	mp3_start_play(Pico_mcd->TOC.Tracks[Pico_mcd->m.audio_track].F, Pico_mcd->m.audio_offset);
	201	break;
	202
	203	default:
	204	printf("skipping unknown chunk %i of size %i\n", buff[0], len);
	205	areaSeek(file, len, SEEK_CUR);
	206	break;
51a902ae	207	}
	208	}
	209
	210	return 0;
	211	}
	212