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

// This is part of Pico Library

// (c) Copyright 2006 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_BRAM,	// 15
	CHUNK_GA_REGS,
	CHUNK_CDC,
	CHUNK_CDD,
	CHUNK_SCD,
	CHUNK_RC,	// 20
	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_BRAM,     Pico_mcd->bram);
		CHECKED_WRITE_BUFF(CHUNK_GA_REGS,  Pico_mcd->s68k_regs);
		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");

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