MDZ dumper revision 1

/*
 *  MDZ file dump handler
 * 
 *  by UNKNOWNFILE, 2007
 *  certifiedunknownfile AT gmail DAWT com
 *
 *  Version 1: Initial release for Gens32
 *
 */


#include <stdio.h>
#include "Mem_M68k.h"
#include "Mem_Z80.h"
#include "Z80.h"


// *** Dump output section

// Generates Z80 registers. Mostly copied and modified from save.cpp in Gens32.
int Generate_Dump_Z80_Regs (FILE * dump) {
	unsigned char dumpMe[0x60];
	char * src; int i;
	if (!dump) return 1;

	memset(dumpMe,0,0x60);
	// magic word.
	dumpMe[0] = 'Z';
	dumpMe[1] = '8';
	dumpMe[2] = '0';

	dumpMe[0x04] = (unsigned char) (z80_Get_AF(&M_Z80) & 0xFF);
	dumpMe[0x05] = (unsigned char) (z80_Get_AF(&M_Z80) >> 8);
	dumpMe[0x08] = (unsigned char) (M_Z80.BC.w.BC & 0xFF);
	dumpMe[0x09] = (unsigned char) (M_Z80.BC.w.BC >> 8);
	dumpMe[0x0C] = (unsigned char) (M_Z80.DE.w.DE & 0xFF);
	dumpMe[0x0D] = (unsigned char) (M_Z80.DE.w.DE >> 8);
	dumpMe[0x10] = (unsigned char) (M_Z80.HL.w.HL & 0xFF);
	dumpMe[0x11] = (unsigned char) (M_Z80.HL.w.HL >> 8);
	dumpMe[0x14] = (unsigned char) (M_Z80.IX.w.IX & 0xFF);
	dumpMe[0x15] = (unsigned char) (M_Z80.IX.w.IX >> 8);
	dumpMe[0x18] = (unsigned char) (M_Z80.IY.w.IY & 0xFF);
	dumpMe[0x19] = (unsigned char) (M_Z80.IY.w.IY >> 8);
	dumpMe[0x1C] = (unsigned char) (z80_Get_PC(&M_Z80) & 0xFF);
	dumpMe[0x1D] = (unsigned char) (z80_Get_PC(&M_Z80) >> 8);
	dumpMe[0x20] = (unsigned char) (M_Z80.SP.w.SP & 0xFF);
	dumpMe[0x21] = (unsigned char) (M_Z80.SP.w.SP >> 8);
	dumpMe[0x24] = (unsigned char) (z80_Get_AF2(&M_Z80) & 0xFF);
	dumpMe[0x25] = (unsigned char) (z80_Get_AF2(&M_Z80) >> 8);
	dumpMe[0x28] = (unsigned char) (M_Z80.BC2.w.BC2 & 0xFF);
	dumpMe[0x29] = (unsigned char) (M_Z80.BC2.w.BC2 >> 8);
	dumpMe[0x2C] = (unsigned char) (M_Z80.DE2.w.DE2 & 0xFF);
	dumpMe[0x2D] = (unsigned char) (M_Z80.DE2.w.DE2 >> 8);
	dumpMe[0x30] = (unsigned char) (M_Z80.HL2.w.HL2 & 0xFF);
	dumpMe[0x31] = (unsigned char) (M_Z80.HL2.w.HL2 >> 8);
	dumpMe[0x34] = (unsigned char) (M_Z80.I);
	dumpMe[0x36] = (unsigned char) (M_Z80.IFF.b.IFF1 >> 2);

	dumpMe[0x38] = (unsigned char) (((Z80_State & 4) >> 2) ^ 1);
	dumpMe[0x39] = (unsigned char) (((Z80_State & 2) >> 1) ^ 1);

	src = (unsigned char *) &Bank_Z80;
	for(i = 0; i < 4; i++) dumpMe[0x3A + i] = *src++;

	// The rest of this section is reserved.
	// Dump the file buffer.
	fwrite(dumpMe,1,0x60,dump);
	return 0;
}

// Generates a dump of the Z80 program section.
int Generate_Dump_PRG_Z80 (FILE * data) {
	if (!data) return 1;

	// Header format:
	// 3 bytes: "PRG"
	// 1 byte: CPU region (Main 68000 will use DAT to load data)
	//         where 0 = Z80, 1 = Sega CD 68000, 2 = 32X Master, 3 = 32X Slave

	fputc('P', data); 	fputc('R', data);	fputc('G', data); 	fputc(0, data);
	fputc(0,data); fputc(0x20,data); fputc(0,data); fputc(0,data);

	fwrite(Ram_Z80,1,0x2000,data);

	return 0;	
}

// Dumps a memory bank in main 68000 memory.
int Generate_Dump_Bank_Z80 (FILE * data) {
	int i;
	if (!data) return 1;

	fputc('D', data); 	fputc('A', data);	fputc('T', data); 	

	// The Genesis only has 24 bits of addressing space
	fputc ( ((Bank_Z80 >> 8) & 0xFF), data);
	fputc ( (Bank_Z80 & 0xFF), data);
	fputc ( (Bank_Z80 >> 16), data);
	fputc (0, data);

	// Size
	fputc (0xFF, data); fputc (0x7F, data); fputc (0, data); fputc(0, data);

	// The data itself
	for (i=0;i<0x8000;i++)
	    fputc( M68K_RB(Bank_Z80+i) , data);
	return 0;
}

// Generates a dump. Specific dumping functions split into different routines for easier reading.
int Generate_Dump_Main (char * fn) {
	FILE * dump;

	// if it fails stop here.
	dump = fopen(fn,"wb");
	if (!dump) return 1;

	fputc('M',dump); fputc('D',dump); fputc('Z',dump); fputc(1,dump); 

	// Generate our dumped sections one by one. If any fail, so does the dump.
	if (Generate_Dump_Z80_Regs (dump) == 1) return 1;
	if (Generate_Dump_PRG_Z80 (dump) == 1) return 2;
	if (Generate_Dump_Bank_Z80 (dump) == 1) return 3;

	fclose (dump);

	return 0;

}