pavone@764: #include <stdlib.h>
pavone@764: #include <string.h>
pavone@764: #include "config.h"
pavone@764: #include "romdb.h"
pavone@764: #include "util.h"
pavone@766: #include "blastem.h"
pavone@866: #include "menu.h"
pavone@764: 
pavone@765: #define TITLE_START 0x150
pavone@765: #define TITLE_END (TITLE_START+48)
pavone@764: #define GAME_ID_OFF 0x183
pavone@764: #define GAME_ID_LEN 8
pavone@766: #define ROM_END   0x1A4
pavone@766: #define RAM_ID    0x1B0
pavone@766: #define RAM_FLAGS 0x1B2
pavone@766: #define RAM_START 0x1B4
pavone@766: #define RAM_END   0x1B8
pavone@765: #define REGION_START 0x1F0
pavone@764: 
pavone@770: enum {
pavone@770: 	I2C_IDLE,
pavone@770: 	I2C_START,
pavone@770: 	I2C_DEVICE_ACK,
pavone@770: 	I2C_ADDRESS_HI,
pavone@770: 	I2C_ADDRESS_HI_ACK,
pavone@770: 	I2C_ADDRESS,
pavone@770: 	I2C_ADDRESS_ACK,
pavone@770: 	I2C_READ,
pavone@770: 	I2C_READ_ACK,
pavone@770: 	I2C_WRITE,
pavone@770: 	I2C_WRITE_ACK
pavone@770: };
pavone@770: 
pavone@770: char * i2c_states[] = {
pavone@770: 	"idle",
pavone@770: 	"start",
pavone@770: 	"device ack",
pavone@770: 	"address hi",
pavone@770: 	"address hi ack",
pavone@770: 	"address",
pavone@770: 	"address ack",
pavone@770: 	"read",
pavone@770: 	"read_ack",
pavone@770: 	"write",
pavone@770: 	"write_ack"
pavone@770: };
pavone@770: 
pavone@770: void eeprom_init(eeprom_state *state, uint8_t *buffer, uint32_t size)
pavone@769: {
pavone@769: 	state->slave_sda = 1;
pavone@769: 	state->host_sda = state->scl = 0;
pavone@770: 	state->buffer = buffer;
pavone@770: 	state->size = size;
pavone@770: 	state->state = I2C_IDLE;
pavone@769: }
pavone@769: 
pavone@769: void set_host_sda(eeprom_state *state, uint8_t val)
pavone@769: {
pavone@769: 	if (state->scl) {
pavone@769: 		if (val & ~state->host_sda) {
pavone@770: 			//low to high, stop condition
pavone@770: 			state->state = I2C_IDLE;
pavone@770: 			state->slave_sda = 1;
pavone@769: 		} else if (~val & state->host_sda) {
pavone@770: 			//high to low, start condition
pavone@770: 			state->state = I2C_START;
pavone@770: 			state->slave_sda = 1;
pavone@770: 			state->counter = 8;
pavone@769: 		}
pavone@769: 	}
pavone@769: 	state->host_sda = val;
pavone@769: }
pavone@769: 
pavone@769: void set_scl(eeprom_state *state, uint8_t val)
pavone@769: {
pavone@769: 	if (val & ~state->scl) {
pavone@770: 		//low to high transition
pavone@770: 		switch (state->state)
pavone@770: 		{
pavone@770: 		case I2C_START:
pavone@770: 		case I2C_ADDRESS_HI:
pavone@770: 		case I2C_ADDRESS:
pavone@770: 		case I2C_WRITE:
pavone@772: 			state->latch = state->host_sda | state->latch << 1;
pavone@770: 			state->counter--;
pavone@770: 			if (!state->counter) {
pavone@770: 				switch (state->state & 0x7F)
pavone@770: 				{
pavone@770: 				case I2C_START:
pavone@770: 					state->state = I2C_DEVICE_ACK;
pavone@770: 					break;
pavone@770: 				case I2C_ADDRESS_HI:
pavone@770: 					state->address = state->latch << 8;
pavone@770: 					state->state = I2C_ADDRESS_HI_ACK;
pavone@770: 					break;
pavone@770: 				case I2C_ADDRESS:
pavone@770: 					state->address |= state->latch;
pavone@770: 					state->state = I2C_ADDRESS_ACK;
pavone@770: 					break;
pavone@770: 				case I2C_WRITE:
pavone@770: 					state->buffer[state->address] = state->latch;
pavone@770: 					state->state = I2C_WRITE_ACK;
pavone@770: 					break;
pavone@770: 				}
pavone@770: 			}
pavone@770: 			break;
pavone@770: 		case I2C_DEVICE_ACK:
pavone@770: 			if (state->latch & 1) {
pavone@770: 				state->state = I2C_READ;
pavone@770: 				state->counter = 8;
pavone@938: 				if (state->size < 256) {
pavone@938: 					state->address = state->latch >> 1;
pavone@938: 				}
pavone@770: 				state->latch = state->buffer[state->address];
pavone@770: 			} else {
pavone@770: 				if (state->size < 256) {
pavone@770: 					state->address = state->latch >> 1;
pavone@770: 					state->state = I2C_WRITE;
pavone@779: 				} else if (state->size < 4096) {
pavone@779: 					state->address = (state->latch & 0xE) << 7;
pavone@770: 					state->state = I2C_ADDRESS;
pavone@770: 				} else {
pavone@770: 					state->state = I2C_ADDRESS_HI;
pavone@770: 				}
pavone@770: 				state->counter = 8;
pavone@770: 			}
pavone@770: 			break;
pavone@770: 		case I2C_ADDRESS_HI_ACK:
pavone@770: 			state->state = I2C_ADDRESS;
pavone@772: 			state->counter = 8;
pavone@770: 			break;
pavone@770: 		case I2C_ADDRESS_ACK:
pavone@770: 			state->state = I2C_WRITE;
pavone@779: 			state->address &= state->size-1;
pavone@772: 			state->counter = 8;
pavone@770: 			break;
pavone@770: 		case I2C_READ:
pavone@770: 			state->counter--;
pavone@770: 			if (!state->counter) {
pavone@770: 				state->state = I2C_READ_ACK;
pavone@770: 			}
pavone@770: 			break;
pavone@770: 		case I2C_READ_ACK:
pavone@770: 			state->state = I2C_READ;
pavone@772: 			state->counter = 8;
pavone@779: 			state->address++;
pavone@779: 			//TODO: page mask
pavone@779: 			state->address &= state->size-1;
pavone@780: 			state->latch = state->buffer[state->address];
pavone@770: 			break;
pavone@770: 		case I2C_WRITE_ACK:
pavone@770: 			state->state = I2C_WRITE;
pavone@772: 			state->counter = 8;
pavone@779: 			state->address++;
pavone@779: 			//TODO: page mask
pavone@779: 			state->address &= state->size-1;
pavone@770: 			break;
pavone@770: 		}
pavone@770: 	} else if (~val & state->scl) {
pavone@770: 		//high to low transition
pavone@770: 		switch (state->state & 0x7F)
pavone@770: 		{
pavone@770: 		case I2C_DEVICE_ACK:
pavone@770: 		case I2C_ADDRESS_HI_ACK:
pavone@770: 		case I2C_ADDRESS_ACK:
pavone@770: 		case I2C_READ_ACK:
pavone@770: 		case I2C_WRITE_ACK:
pavone@770: 			state->slave_sda = 0;
pavone@770: 			break;
pavone@770: 		case I2C_READ:
pavone@770: 			state->slave_sda = state->latch >> 7;
pavone@770: 			state->latch = state->latch << 1;
pavone@770: 			break;
pavone@770: 		default:
pavone@770: 			state->slave_sda = 1;
pavone@770: 			break;
pavone@770: 		}
pavone@769: 	}
pavone@769: 	state->scl = val;
pavone@769: }
pavone@769: 
pavone@769: uint8_t get_sda(eeprom_state *state)
pavone@769: {
pavone@769: 	return state->host_sda & state->slave_sda;
pavone@769: }
pavone@769: 
pavone@766: uint16_t read_sram_w(uint32_t address, m68k_context * context)
pavone@766: {
pavone@766: 	genesis_context * gen = context->system;
pavone@766: 	address &= gen->save_ram_mask;
pavone@767: 	switch(gen->save_type)
pavone@766: 	{
pavone@766: 	case RAM_FLAG_BOTH:
pavone@767: 		return gen->save_storage[address] << 8 | gen->save_storage[address+1];
pavone@766: 	case RAM_FLAG_EVEN:
pavone@767: 		return gen->save_storage[address >> 1] << 8 | 0xFF;
pavone@766: 	case RAM_FLAG_ODD:
pavone@767: 		return gen->save_storage[address >> 1] | 0xFF00;
pavone@766: 	}
pavone@766: 	return 0xFFFF;//We should never get here
pavone@766: }
pavone@766: 
pavone@766: uint8_t read_sram_b(uint32_t address, m68k_context * context)
pavone@766: {
pavone@766: 	genesis_context * gen = context->system;
pavone@766: 	address &= gen->save_ram_mask;
pavone@767: 	switch(gen->save_type)
pavone@766: 	{
pavone@766: 	case RAM_FLAG_BOTH:
pavone@767: 		return gen->save_storage[address];
pavone@766: 	case RAM_FLAG_EVEN:
pavone@766: 		if (address & 1) {
pavone@766: 			return 0xFF;
pavone@766: 		} else {
pavone@767: 			return gen->save_storage[address >> 1];
pavone@766: 		}
pavone@766: 	case RAM_FLAG_ODD:
pavone@766: 		if (address & 1) {
pavone@767: 			return gen->save_storage[address >> 1];
pavone@766: 		} else {
pavone@766: 			return 0xFF;
pavone@766: 		}
pavone@766: 	}
pavone@766: 	return 0xFF;//We should never get here
pavone@766: }
pavone@766: 
pavone@766: m68k_context * write_sram_area_w(uint32_t address, m68k_context * context, uint16_t value)
pavone@766: {
pavone@766: 	genesis_context * gen = context->system;
pavone@766: 	if ((gen->bank_regs[0] & 0x3) == 1) {
pavone@766: 		address &= gen->save_ram_mask;
pavone@767: 		switch(gen->save_type)
pavone@766: 		{
pavone@766: 		case RAM_FLAG_BOTH:
pavone@767: 			gen->save_storage[address] = value >> 8;
pavone@767: 			gen->save_storage[address+1] = value;
pavone@766: 			break;
pavone@766: 		case RAM_FLAG_EVEN:
pavone@767: 			gen->save_storage[address >> 1] = value >> 8;
pavone@766: 			break;
pavone@766: 		case RAM_FLAG_ODD:
pavone@767: 			gen->save_storage[address >> 1] = value;
pavone@766: 			break;
pavone@766: 		}
pavone@766: 	}
pavone@766: 	return context;
pavone@766: }
pavone@766: 
pavone@766: m68k_context * write_sram_area_b(uint32_t address, m68k_context * context, uint8_t value)
pavone@766: {
pavone@766: 	genesis_context * gen = context->system;
pavone@766: 	if ((gen->bank_regs[0] & 0x3) == 1) {
pavone@766: 		address &= gen->save_ram_mask;
pavone@767: 		switch(gen->save_type)
pavone@766: 		{
pavone@766: 		case RAM_FLAG_BOTH:
pavone@767: 			gen->save_storage[address] = value;
pavone@766: 			break;
pavone@766: 		case RAM_FLAG_EVEN:
pavone@766: 			if (!(address & 1)) {
pavone@767: 				gen->save_storage[address >> 1] = value;
pavone@766: 			}
pavone@766: 			break;
pavone@766: 		case RAM_FLAG_ODD:
pavone@766: 			if (address & 1) {
pavone@767: 				gen->save_storage[address >> 1] = value;
pavone@766: 			}
pavone@766: 			break;
pavone@766: 		}
pavone@766: 	}
pavone@766: 	return context;
pavone@766: }
pavone@766: 
pavone@766: m68k_context * write_bank_reg_w(uint32_t address, m68k_context * context, uint16_t value)
pavone@766: {
pavone@766: 	genesis_context * gen = context->system;
pavone@766: 	address &= 0xE;
pavone@766: 	address >>= 1;
pavone@766: 	gen->bank_regs[address] = value;
pavone@766: 	if (!address) {
pavone@766: 		if (value & 1) {
pavone@776: 			for (int i = 0; i < 8; i++)
pavone@776: 			{
pavone@776: 				context->mem_pointers[gen->mapper_start_index + i] = NULL;
pavone@776: 			}
pavone@766: 		} else {
pavone@776: 			//Used for games that only use the mapper for SRAM
pavone@776: 			context->mem_pointers[gen->mapper_start_index] = cart + 0x200000/2;
pavone@776: 			//For games that need more than 4MB
pavone@776: 			for (int i = 1; i < 8; i++)
pavone@776: 			{
pavone@776: 				context->mem_pointers[gen->mapper_start_index + i] = cart + 0x40000*gen->bank_regs[i];
pavone@776: 			}
pavone@766: 		}
pavone@776: 	} else {
pavone@776: 		context->mem_pointers[gen->mapper_start_index + address] = cart + 0x40000*value;
pavone@766: 	}
pavone@766: 	return context;
pavone@766: }
pavone@766: 
pavone@766: m68k_context * write_bank_reg_b(uint32_t address, m68k_context * context, uint8_t value)
pavone@766: {
pavone@766: 	if (address & 1) {
pavone@776: 		write_bank_reg_w(address, context, value);
pavone@766: 	}
pavone@766: 	return context;
pavone@766: }
pavone@769: eeprom_map *find_eeprom_map(uint32_t address, genesis_context *gen)
pavone@769: {
pavone@769: 	for (int i = 0; i < gen->num_eeprom; i++)
pavone@769: 	{
pavone@769: 		if (address >= gen->eeprom_map[i].start && address <= gen->eeprom_map[i].end) {
pavone@769: 			return  gen->eeprom_map + i;
pavone@769: 		}
pavone@769: 	}
pavone@769: 	return NULL;
pavone@769: }
pavone@769: 
pavone@769: void * write_eeprom_i2c_w(uint32_t address, void * context, uint16_t value)
pavone@769: {
pavone@769: 	genesis_context *gen = ((m68k_context *)context)->system;
pavone@769: 	eeprom_map *map = find_eeprom_map(address, gen);
pavone@769: 	if (!map) {
pavone@792: 		fatal_error("Could not find EEPROM map for address %X\n", address);
pavone@769: 	}
pavone@772: 	if (map->scl_mask) {
pavone@772: 		set_scl(&gen->eeprom, (value & map->scl_mask) != 0);
pavone@772: 	}
pavone@769: 	if (map->sda_write_mask) {
pavone@769: 		set_host_sda(&gen->eeprom, (value & map->sda_write_mask) != 0);
pavone@769: 	}
pavone@769: 	return context;
pavone@769: }
pavone@769: 
pavone@769: void * write_eeprom_i2c_b(uint32_t address, void * context, uint8_t value)
pavone@769: {
pavone@769: 	genesis_context *gen = ((m68k_context *)context)->system;
pavone@769: 	eeprom_map *map = find_eeprom_map(address, gen);
pavone@769: 	if (!map) {
pavone@792: 		fatal_error("Could not find EEPROM map for address %X\n", address);
pavone@769: 	}
pavone@866: 
pavone@769: 	uint16_t expanded, mask;
pavone@769: 	if (address & 1) {
pavone@769: 		expanded = value;
pavone@769: 		mask = 0xFF;
pavone@769: 	} else {
pavone@769: 		expanded = value << 8;
pavone@769: 		mask = 0xFF00;
pavone@769: 	}
pavone@772: 	if (map->scl_mask & mask) {
pavone@772: 		set_scl(&gen->eeprom, (expanded & map->scl_mask) != 0);
pavone@772: 	}
pavone@769: 	if (map->sda_write_mask & mask) {
pavone@769: 		set_host_sda(&gen->eeprom, (expanded & map->sda_write_mask) != 0);
pavone@769: 	}
pavone@769: 	return context;
pavone@769: }
pavone@769: 
pavone@769: uint16_t read_eeprom_i2c_w(uint32_t address, void * context)
pavone@769: {
pavone@769: 	genesis_context *gen = ((m68k_context *)context)->system;
pavone@769: 	eeprom_map *map = find_eeprom_map(address, gen);
pavone@769: 	if (!map) {
pavone@792: 		fatal_error("Could not find EEPROM map for address %X\n", address);
pavone@769: 	}
pavone@769: 	uint16_t ret = 0;
pavone@769: 	if (map->sda_read_bit < 16) {
pavone@769: 		ret = get_sda(&gen->eeprom) << map->sda_read_bit;
pavone@769: 	}
pavone@938: 	return ret;	
pavone@769: }
pavone@769: 
pavone@769: uint8_t read_eeprom_i2c_b(uint32_t address, void * context)
pavone@769: {
pavone@769: 	genesis_context *gen = ((m68k_context *)context)->system;
pavone@769: 	eeprom_map *map = find_eeprom_map(address, gen);
pavone@769: 	if (!map) {
pavone@792: 		fatal_error("Could not find EEPROM map for address %X\n", address);
pavone@769: 	}
pavone@769: 	uint8_t bit = address & 1 ? map->sda_read_bit : map->sda_read_bit - 8;
pavone@769: 	uint8_t ret = 0;
pavone@769: 	if (bit < 8) {
pavone@769: 		ret = get_sda(&gen->eeprom) << bit;
pavone@769: 	}
pavone@769: 	return ret;
pavone@769: }
pavone@766: 
pavone@764: tern_node *load_rom_db()
pavone@764: {
pavone@875: 	tern_node *db = parse_bundled_config("rom.db");
pavone@764: 	if (!db) {
pavone@792: 		fatal_error("Failed to load ROM DB\n");
pavone@764: 	}
pavone@764: 	return db;
pavone@764: }
pavone@764: 
pavone@764: char *get_header_name(uint8_t *rom)
pavone@764: {
pavone@764: 	uint8_t *last = rom + TITLE_END - 1;
pavone@764: 	uint8_t *src = rom + TITLE_START;
pavone@866: 
pavone@764: 	while (last > src && (*last <=  0x20 || *last >= 0x80))
pavone@764: 	{
pavone@764: 		last--;
pavone@764: 	}
pavone@764: 	if (last == src) {
pavone@764: 		//TODO: Use other name field
pavone@764: 		return strdup("UNKNOWN");
pavone@764: 	} else {
pavone@764: 		last++;
pavone@764: 		char *ret = malloc(last - (rom + TITLE_START) + 1);
pavone@764: 		uint8_t *dst;
pavone@764: 		for (dst = ret; src < last; src++)
pavone@764: 		{
pavone@764: 			if (*src >= 0x20 && *src < 0x80) {
pavone@764: 				*(dst++) = *src;
pavone@764: 			}
pavone@764: 		}
pavone@764: 		*dst = 0;
pavone@764: 		return ret;
pavone@764: 	}
pavone@764: }
pavone@764: 
pavone@765: char *region_chars = "UB4JEA";
pavone@765: uint8_t region_bits[] = {REGION_U, REGION_U, REGION_U, REGION_J, REGION_E, REGION_E};
pavone@765: 
pavone@765: uint8_t translate_region_char(uint8_t c)
pavone@765: {
pavone@765: 	for (int i = 0; i < sizeof(region_bits); i++)
pavone@765: 	{
pavone@765: 		if (c == region_chars[i]) {
pavone@765: 			return region_bits[i];
pavone@765: 		}
pavone@765: 	}
pavone@765: 	return 0;
pavone@765: }
pavone@765: 
pavone@765: uint8_t get_header_regions(uint8_t *rom)
pavone@765: {
pavone@765: 	uint8_t regions = 0;
pavone@765: 	for (int i = 0; i < 3; i++)
pavone@765: 	{
pavone@765: 		regions |= translate_region_char(rom[REGION_START + i]);
pavone@765: 	}
pavone@765: 	return regions;
pavone@765: }
pavone@765: 
pavone@766: uint32_t get_u32be(uint8_t *data)
pavone@766: {
pavone@766: 	return *data << 24 | data[1] << 16 | data[2] << 8 | data[3];
pavone@766: }
pavone@765: 
pavone@768: uint32_t calc_mask(uint32_t src_size, uint32_t start, uint32_t end)
pavone@768: {
pavone@768: 	uint32_t map_size = end-start+1;
pavone@768: 	if (src_size < map_size) {
pavone@768: 		return nearest_pow2(src_size)-1;
pavone@768: 	} else if (!start) {
pavone@768: 		return 0xFFFFFF;
pavone@768: 	} else {
pavone@768: 		return nearest_pow2(map_size)-1;
pavone@768: 	}
pavone@768: }
pavone@768: 
pavone@766: void add_memmap_header(rom_info *info, uint8_t *rom, uint32_t size, memmap_chunk const *base_map, int base_chunks)
pavone@766: {
pavone@777: 	uint32_t rom_end = get_u32be(rom + ROM_END) + 1;
pavone@777: 	if (size > rom_end) {
pavone@777: 		rom_end = size;
pavone@777: 	} else if (rom_end > nearest_pow2(size)) {
pavone@777: 		rom_end = nearest_pow2(size);
pavone@777: 	}
pavone@766: 	if (rom[RAM_ID] == 'R' && rom[RAM_ID+1] == 'A') {
pavone@766: 		uint32_t ram_start = get_u32be(rom + RAM_START);
pavone@766: 		uint32_t ram_end = get_u32be(rom + RAM_END);
pavone@766: 		uint32_t ram_flags = info->save_type = rom[RAM_FLAGS] & RAM_FLAG_MASK;
pavone@766: 		ram_start &= 0xFFFFFE;
pavone@766: 		ram_end |= 1;
pavone@767: 		info->save_mask = ram_end - ram_start;
pavone@777: 		uint32_t save_size = info->save_mask + 1;
pavone@767: 		if (ram_flags != RAM_FLAG_BOTH) {
pavone@777: 			save_size /= 2;
pavone@767: 		}
pavone@777: 		info->save_size = save_size;
pavone@777: 		info->save_buffer = malloc(save_size);
pavone@866: 
pavone@766: 		info->map_chunks = base_chunks + (ram_start >= rom_end ? 2 : 3);
pavone@766: 		info->map = malloc(sizeof(memmap_chunk) * info->map_chunks);
pavone@766: 		memset(info->map, 0, sizeof(memmap_chunk)*2);
pavone@766: 		memcpy(info->map+2, base_map, sizeof(memmap_chunk) * base_chunks);
pavone@866: 
pavone@766: 		if (ram_start >= rom_end) {
pavone@825: 			info->map[0].end = rom_end < 0x400000 ? nearest_pow2(rom_end) - 1 : 0xFFFFFF;
pavone@766: 			//TODO: ROM mirroring
pavone@766: 			info->map[0].mask = 0xFFFFFF;
pavone@766: 			info->map[0].flags = MMAP_READ;
pavone@766: 			info->map[0].buffer = rom;
pavone@866: 
pavone@766: 			info->map[1].start = ram_start;
pavone@767: 			info->map[1].mask = info->save_mask;
pavone@766: 			info->map[1].end = ram_end + 1;
pavone@766: 			info->map[1].flags = MMAP_READ | MMAP_WRITE;
pavone@866: 
pavone@766: 			if (ram_flags == RAM_FLAG_ODD) {
pavone@766: 				info->map[1].flags |= MMAP_ONLY_ODD;
pavone@766: 			} else if (ram_flags == RAM_FLAG_EVEN) {
pavone@766: 				info->map[1].flags |= MMAP_ONLY_EVEN;
pavone@766: 			}
pavone@767: 			info->map[1].buffer = info->save_buffer;
pavone@766: 		} else {
pavone@766: 			//Assume the standard Sega mapper
pavone@766: 			info->map[0].end = 0x200000;
pavone@766: 			info->map[0].mask = 0xFFFFFF;
pavone@766: 			info->map[0].flags = MMAP_READ;
pavone@766: 			info->map[0].buffer = rom;
pavone@866: 
pavone@766: 			info->map[1].start = 0x200000;
pavone@766: 			info->map[1].end = 0x400000;
pavone@766: 			info->map[1].mask = 0x1FFFFF;
pavone@766: 			info->map[1].flags = MMAP_READ | MMAP_PTR_IDX | MMAP_FUNC_NULL;
pavone@776: 			info->map[1].ptr_index = info->mapper_start_index = 0;
pavone@766: 			info->map[1].read_16 = (read_16_fun)read_sram_w;//these will only be called when mem_pointers[2] == NULL
pavone@766: 			info->map[1].read_8 = (read_8_fun)read_sram_b;
pavone@766: 			info->map[1].write_16 = (write_16_fun)write_sram_area_w;//these will be called all writes to the area
pavone@766: 			info->map[1].write_8 = (write_8_fun)write_sram_area_b;
pavone@766: 			info->map[1].buffer = cart + 0x200000;
pavone@866: 
pavone@766: 			memmap_chunk *last = info->map + info->map_chunks - 1;
pavone@766: 			memset(last, 0, sizeof(memmap_chunk));
pavone@766: 			last->start = 0xA13000;
pavone@766: 			last->end = 0xA13100;
pavone@766: 			last->mask = 0xFF;
pavone@766: 			last->write_16 = (write_16_fun)write_bank_reg_w;
pavone@766: 			last->write_8 = (write_8_fun)write_bank_reg_b;
pavone@766: 		}
pavone@766: 	} else {
pavone@766: 		info->map_chunks = base_chunks + 1;
pavone@766: 		info->map = malloc(sizeof(memmap_chunk) * info->map_chunks);
pavone@766: 		memset(info->map, 0, sizeof(memmap_chunk));
pavone@766: 		memcpy(info->map+1, base_map, sizeof(memmap_chunk) * base_chunks);
pavone@866: 
pavone@825: 		info->map[0].end = rom_end > 0x400000 ? rom_end : 0x400000;
pavone@825: 		info->map[0].mask = rom_end < 0x400000 ? nearest_pow2(rom_end) - 1 : 0xFFFFFF;
pavone@766: 		info->map[0].flags = MMAP_READ;
pavone@766: 		info->map[0].buffer = rom;
pavone@766: 		info->save_type = SAVE_NONE;
pavone@766: 	}
pavone@766: }
pavone@766: 
pavone@766: rom_info configure_rom_heuristics(uint8_t *rom, uint32_t rom_size, memmap_chunk const *base_map, uint32_t base_chunks)
pavone@764: {
pavone@764: 	rom_info info;
pavone@764: 	info.name = get_header_name(rom);
pavone@765: 	info.regions = get_header_regions(rom);
pavone@766: 	add_memmap_header(&info, rom, rom_size, base_map, base_chunks);
pavone@915: 	info.port1_override = info.port2_override = info.ext_override = info.mouse_mode = NULL;
pavone@765: 	return info;
pavone@764: }
pavone@764: 
pavone@768: typedef struct {
pavone@768: 	rom_info     *info;
pavone@768: 	uint8_t      *rom;
pavone@768: 	tern_node    *root;
pavone@768: 	uint32_t     rom_size;
pavone@768: 	int          index;
pavone@769: 	int          num_els;
pavone@776: 	uint16_t     ptr_index;
pavone@768: } map_iter_state;
pavone@768: 
pavone@769: void eeprom_read_fun(char *key, tern_val val, void *data)
pavone@769: {
pavone@769: 	int bit = atoi(key);
pavone@769: 	if (bit < 0 || bit > 15) {
pavone@769: 		fprintf(stderr, "bit %s is out of range", key);
pavone@769: 		return;
pavone@769: 	}
pavone@769: 	char *pin = val.ptrval;
pavone@769: 	if (strcmp(pin, "sda")) {
pavone@769: 		fprintf(stderr, "bit %s is connected to unrecognized read pin %s", key, pin);
pavone@769: 		return;
pavone@769: 	}
pavone@769: 	eeprom_map *map = data;
pavone@769: 	map->sda_read_bit = bit;
pavone@769: }
pavone@769: 
pavone@769: void eeprom_write_fun(char *key, tern_val val, void *data)
pavone@769: {
pavone@769: 	int bit = atoi(key);
pavone@769: 	if (bit < 0 || bit > 15) {
pavone@769: 		fprintf(stderr, "bit %s is out of range", key);
pavone@769: 		return;
pavone@769: 	}
pavone@769: 	char *pin = val.ptrval;
pavone@769: 	eeprom_map *map = data;
pavone@769: 	if (!strcmp(pin, "sda")) {
pavone@769: 		map->sda_write_mask = 1 << bit;
pavone@769: 		return;
pavone@769: 	}
pavone@769: 	if (!strcmp(pin, "scl")) {
pavone@769: 		map->scl_mask = 1 << bit;
pavone@769: 		return;
pavone@769: 	}
pavone@769: 	fprintf(stderr, "bit %s is connected to unrecognized write pin %s", key, pin);
pavone@769: }
pavone@769: 
pavone@774: void process_sram_def(char *key, map_iter_state *state)
pavone@774: {
pavone@774: 	if (!state->info->save_size) {
pavone@774: 		char * size = tern_find_path(state->root, "SRAM\0size\0").ptrval;
pavone@774: 		if (!size) {
pavone@792: 			fatal_error("ROM DB map entry %d with address %s has device type SRAM, but the SRAM size is not defined\n", state->index, key);
pavone@774: 		}
pavone@774: 		state->info->save_size = atoi(size);
pavone@774: 		if (!state->info->save_size) {
pavone@792: 			fatal_error("SRAM size %s is invalid\n", size);
pavone@774: 		}
pavone@775: 		state->info->save_mask = nearest_pow2(state->info->save_size)-1;
pavone@774: 		state->info->save_buffer = malloc(state->info->save_size);
pavone@774: 		memset(state->info->save_buffer, 0, state->info->save_size);
pavone@774: 		char *bus = tern_find_path(state->root, "SRAM\0bus\0").ptrval;
pavone@774: 		if (!strcmp(bus, "odd")) {
pavone@774: 			state->info->save_type = RAM_FLAG_ODD;
pavone@774: 		} else if(!strcmp(bus, "even")) {
pavone@774: 			state->info->save_type = RAM_FLAG_EVEN;
pavone@774: 		} else {
pavone@774: 			state->info->save_type = RAM_FLAG_BOTH;
pavone@774: 		}
pavone@774: 	}
pavone@774: }
pavone@774: 
pavone@774: void process_eeprom_def(char * key, map_iter_state *state)
pavone@774: {
pavone@774: 	if (!state->info->save_size) {
pavone@774: 		char * size = tern_find_path(state->root, "EEPROM\0size\0").ptrval;
pavone@774: 		if (!size) {
pavone@792: 			fatal_error("ROM DB map entry %d with address %s has device type EEPROM, but the EEPROM size is not defined\n", state->index, key);
pavone@774: 		}
pavone@774: 		state->info->save_size = atoi(size);
pavone@774: 		if (!state->info->save_size) {
pavone@792: 			fatal_error("EEPROM size %s is invalid\n", size);
pavone@774: 		}
pavone@774: 		char *etype = tern_find_path(state->root, "EEPROM\0type\0").ptrval;
pavone@774: 		if (!etype) {
pavone@774: 			etype = "i2c";
pavone@774: 		}
pavone@774: 		if (!strcmp(etype, "i2c")) {
pavone@774: 			state->info->save_type = SAVE_I2C;
pavone@774: 		} else {
pavone@792: 			fatal_error("EEPROM type %s is invalid\n", etype);
pavone@774: 		}
pavone@774: 		state->info->save_buffer = malloc(state->info->save_size);
pavone@774: 		memset(state->info->save_buffer, 0xFF, state->info->save_size);
pavone@774: 		state->info->eeprom_map = malloc(sizeof(eeprom_map) * state->num_els);
pavone@774: 		memset(state->info->eeprom_map, 0, sizeof(eeprom_map) * state->num_els);
pavone@774: 	}
pavone@774: }
pavone@774: 
pavone@774: void add_eeprom_map(tern_node *node, uint32_t start, uint32_t end, map_iter_state *state)
pavone@774: {
pavone@774: 	eeprom_map *eep_map = state->info->eeprom_map + state->info->num_eeprom;
pavone@774: 	eep_map->start = start;
pavone@774: 	eep_map->end = end;
pavone@774: 	eep_map->sda_read_bit = 0xFF;
pavone@774: 	tern_node * bits_read = tern_find_ptr(node, "bits_read");
pavone@774: 	if (bits_read) {
pavone@774: 		tern_foreach(bits_read, eeprom_read_fun, eep_map);
pavone@774: 	}
pavone@774: 	tern_node * bits_write = tern_find_ptr(node, "bits_write");
pavone@774: 	if (bits_write) {
pavone@774: 		tern_foreach(bits_write, eeprom_write_fun, eep_map);
pavone@774: 	}
pavone@774: 	printf("EEPROM address %X: sda read: %X, sda write: %X, scl: %X\n", start, eep_map->sda_read_bit, eep_map->sda_write_mask, eep_map->scl_mask);
pavone@774: 	state->info->num_eeprom++;
pavone@774: }
pavone@774: 
pavone@768: void map_iter_fun(char *key, tern_val val, void *data)
pavone@768: {
pavone@768: 	map_iter_state *state = data;
pavone@768: 	tern_node *node = tern_get_node(val);
pavone@768: 	if (!node) {
pavone@792: 		fatal_error("ROM DB map entry %d with address %s is not a node\n", state->index, key);
pavone@768: 	}
pavone@768: 	uint32_t start = strtol(key, NULL, 16);
pavone@768: 	uint32_t end = strtol(tern_find_ptr_default(node, "last", "0"), NULL, 16);
pavone@768: 	if (!end || end < start) {
pavone@792: 		fatal_error("'last' value is missing or invalid for ROM DB map entry %d with address %s\n", state->index, key);
pavone@768: 	}
pavone@768: 	char * dtype = tern_find_ptr_default(node, "device", "ROM");
pavone@774: 	uint32_t offset = strtol(tern_find_ptr_default(node, "offset", "0"), NULL, 16);
pavone@768: 	memmap_chunk *map = state->info->map + state->index;
pavone@768: 	map->start = start;
pavone@774: 	map->end = end + 1;
pavone@768: 	if (!strcmp(dtype, "ROM")) {
pavone@768: 		map->buffer = state->rom + offset;
pavone@768: 		map->flags = MMAP_READ;
pavone@774: 		map->mask = calc_mask(state->rom_size - offset, start, end);
pavone@768: 	} else if (!strcmp(dtype, "EEPROM")) {
pavone@774: 		process_eeprom_def(key, state);
pavone@774: 		add_eeprom_map(node, start, end, state);
pavone@866: 
pavone@769: 		map->write_16 = write_eeprom_i2c_w;
pavone@769: 		map->write_8 = write_eeprom_i2c_b;
pavone@769: 		map->read_16 = read_eeprom_i2c_w;
pavone@769: 		map->read_8 = read_eeprom_i2c_b;
pavone@769: 		map->mask = 0xFFFFFF;
pavone@768: 	} else if (!strcmp(dtype, "SRAM")) {
pavone@774: 		process_sram_def(key, state);
pavone@768: 		map->buffer = state->info->save_buffer + offset;
pavone@768: 		map->flags = MMAP_READ | MMAP_WRITE;
pavone@768: 		if (state->info->save_type == RAM_FLAG_ODD) {
pavone@768: 			map->flags |= MMAP_ONLY_ODD;
pavone@768: 		} else if(state->info->save_type == RAM_FLAG_EVEN) {
pavone@768: 			map->flags |= MMAP_ONLY_EVEN;
pavone@768: 		}
pavone@768: 		map->mask = calc_mask(state->info->save_size, start, end);
pavone@866: 	} else if (!strcmp(dtype, "RAM")) {
pavone@866: 		uint32_t size = strtol(tern_find_ptr_default(node, "size", "0"), NULL, 16);
pavone@866: 		if (!size || size > map->end - map->start) {
pavone@866: 			size = map->end - map->start;
pavone@866: 		}
pavone@866: 		map->buffer = malloc(size);
pavone@866: 		map->mask = calc_mask(size, start, end);
pavone@866: 		map->flags = MMAP_READ | MMAP_WRITE;
pavone@866: 		char *bus = tern_find_ptr_default(node, "bus", "both");
pavone@866: 		if (!strcmp(dtype, "odd")) {
pavone@866: 			map->flags |= MMAP_ONLY_ODD;
pavone@866: 		} else if (!strcmp(dtype, "even")) {
pavone@866: 			map->flags |= MMAP_ONLY_EVEN;
pavone@866: 		} else {
pavone@866: 			map->flags |= MMAP_CODE;
pavone@866: 		}
pavone@774: 	} else if (!strcmp(dtype, "Sega mapper")) {
pavone@776: 		state->info->mapper_start_index = state->ptr_index++;
pavone@776: 		state->info->map_chunks+=7;
pavone@776: 		state->info->map = realloc(state->info->map, sizeof(memmap_chunk) * state->info->map_chunks);
pavone@776: 		memset(state->info->map + state->info->map_chunks - 7, 0, sizeof(memmap_chunk) * 7);
pavone@776: 		map = state->info->map + state->index;
pavone@774: 		char *save_device = tern_find_path(node, "save\0device\0").ptrval;
pavone@776: 		if (save_device && !strcmp(save_device, "EEPROM")) {
pavone@774: 			process_eeprom_def(key, state);
pavone@774: 			add_eeprom_map(node, start & map->mask, end & map->mask, state);
pavone@774: 		}
pavone@776: 		for (int i = 0; i < 7; i++, state->index++, map++)
pavone@776: 		{
pavone@776: 			map->start = start + i * 0x80000;
pavone@776: 			map->end = start + (i + 1) * 0x80000;
pavone@776: 			map->mask = 0x7FFFF;
pavone@776: 			map->buffer = state->rom + offset + i * 0x80000;
pavone@776: 			map->ptr_index = state->ptr_index++;
pavone@776: 			if (i < 3 || !save_device) {
pavone@776: 				map->flags = MMAP_READ | MMAP_PTR_IDX;
pavone@776: 			} else {
pavone@776: 				map->flags = MMAP_READ | MMAP_PTR_IDX | MMAP_FUNC_NULL;
pavone@776: 				if (!strcmp(save_device, "SRAM")) {
pavone@776: 					process_sram_def(key, state);
pavone@776: 					map->read_16 = (read_16_fun)read_sram_w;//these will only be called when mem_pointers[2] == NULL
pavone@776: 					map->read_8 = (read_8_fun)read_sram_b;
pavone@776: 					map->write_16 = (write_16_fun)write_sram_area_w;//these will be called all writes to the area
pavone@776: 					map->write_8 = (write_8_fun)write_sram_area_b;
pavone@776: 				} else if (!strcmp(save_device, "EEPROM")) {
pavone@776: 					map->write_16 = write_eeprom_i2c_w;
pavone@776: 					map->write_8 = write_eeprom_i2c_b;
pavone@776: 					map->read_16 = read_eeprom_i2c_w;
pavone@776: 					map->read_8 = read_eeprom_i2c_b;
pavone@776: 				}
pavone@776: 			}
pavone@776: 		}
pavone@774: 		map->start = 0xA13000;
pavone@774: 		map->end = 0xA13100;
pavone@774: 		map->mask = 0xFF;
pavone@774: 		map->write_16 = (write_16_fun)write_bank_reg_w;
pavone@774: 		map->write_8 = (write_8_fun)write_bank_reg_b;
pavone@866: 	} else if (!strcmp(dtype, "MENU")) {
pavone@866: 		//fake hardware for supporting menu
pavone@866: 		map->buffer = NULL;
pavone@866: 		map->mask = 0xFF;
pavone@866: 		map->write_16 = menu_write_w;
pavone@866: 		map->read_16 = menu_read_w;
pavone@768: 	} else {
pavone@792: 		fatal_error("Invalid device type for ROM DB map entry %d with address %s\n", state->index, key);
pavone@768: 	}
pavone@768: 	state->index++;
pavone@768: }
pavone@768: 
pavone@766: rom_info configure_rom(tern_node *rom_db, void *vrom, uint32_t rom_size, memmap_chunk const *base_map, uint32_t base_chunks)
pavone@764: {
pavone@764: 	uint8_t product_id[GAME_ID_LEN+1];
pavone@764: 	uint8_t *rom = vrom;
pavone@764: 	product_id[GAME_ID_LEN] = 0;
pavone@764: 	for (int i = 0; i < GAME_ID_LEN; i++)
pavone@764: 	{
pavone@764: 		if (rom[GAME_ID_OFF + i] <= ' ') {
pavone@764: 			product_id[i] = 0;
pavone@764: 			break;
pavone@764: 		}
pavone@764: 		product_id[i] = rom[GAME_ID_OFF + i];
pavone@866: 
pavone@764: 	}
pavone@768: 	printf("Product ID: %s\n", product_id);
pavone@768: 	tern_node * entry = tern_find_ptr(rom_db, product_id);
pavone@764: 	if (!entry) {
pavone@768: 		puts("Not found in ROM DB, examining header\n");
pavone@766: 		return configure_rom_heuristics(rom, rom_size, base_map, base_chunks);
pavone@764: 	}
pavone@764: 	rom_info info;
pavone@765: 	info.name = tern_find_ptr(entry, "name");
pavone@765: 	if (info.name) {
pavone@768: 		printf("Found name: %s\n", info.name);
pavone@765: 		info.name = strdup(info.name);
pavone@765: 	} else {
pavone@765: 		info.name = get_header_name(rom);
pavone@765: 	}
pavone@866: 
pavone@765: 	char *dbreg = tern_find_ptr(entry, "regions");
pavone@765: 	info.regions = 0;
pavone@765: 	if (dbreg) {
pavone@765: 		while (*dbreg != 0)
pavone@765: 		{
pavone@765: 			info.regions |= translate_region_char(*(dbreg++));
pavone@765: 		}
pavone@765: 	}
pavone@765: 	if (!info.regions) {
pavone@765: 		info.regions = get_header_regions(rom);
pavone@765: 	}
pavone@866: 
pavone@768: 	tern_node *map = tern_find_ptr(entry, "map");
pavone@766: 	if (map) {
pavone@774: 		info.save_type = SAVE_NONE;
pavone@768: 		info.map_chunks = tern_count(map);
pavone@768: 		if (info.map_chunks) {
pavone@768: 			info.map_chunks += base_chunks;
pavone@768: 			info.save_buffer = NULL;
pavone@768: 			info.save_size = 0;
pavone@768: 			info.map = malloc(sizeof(memmap_chunk) * info.map_chunks);
pavone@769: 			info.eeprom_map = NULL;
pavone@769: 			info.num_eeprom = 0;
pavone@774: 			memset(info.map, 0, sizeof(memmap_chunk) * info.map_chunks);
pavone@776: 			map_iter_state state = {&info, rom, entry, rom_size, 0, info.map_chunks - base_chunks, 0};
pavone@768: 			tern_foreach(map, map_iter_fun, &state);
pavone@768: 			memcpy(info.map + state.index, base_map, sizeof(memmap_chunk) * base_chunks);
pavone@766: 		} else {
pavone@766: 			add_memmap_header(&info, rom, rom_size, base_map, base_chunks);
pavone@766: 		}
pavone@766: 	} else {
pavone@766: 		add_memmap_header(&info, rom, rom_size, base_map, base_chunks);
pavone@766: 	}
pavone@866: 
pavone@913: 	tern_node *device_overrides = tern_find_ptr(entry, "device_overrides");
pavone@913: 	if (device_overrides) {
pavone@913: 		info.port1_override = tern_find_ptr(device_overrides, "1");
pavone@913: 		info.port2_override = tern_find_ptr(device_overrides, "2");
pavone@913: 		info.ext_override = tern_find_ptr(device_overrides, "ext");
pavone@913: 	} else {
pavone@913: 		info.port1_override = info.port2_override = info.ext_override = NULL;
pavone@913: 	}
pavone@915: 	info.mouse_mode = tern_find_ptr(entry, "mouse_mode");
pavone@913: 
pavone@764: 	return info;
pavone@765: }