blueMSX-libretro/Src/Memory/romMapperNoWind.cpp

376 lines
10 KiB
C++

/*****************************************************************************
** $Source: /cygdrive/d/Private/_SVNROOT/bluemsx/blueMSX/Src/Memory/romMapperNoWind.cpp,v $
**
** $Revision: 1.2 $
**
** $Date: 2009-04-29 00:05:05 $
**
** More info: http://www.bluemsx.com
**
** Copyright (C) 2003-2006 Daniel Vik
**
** This program is free software; you can redistribute it and/or modify
** it under the terms of the GNU General Public License as published by
** the Free Software Foundation; either version 2 of the License, or
** (at your option) any later version.
**
** This program is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
** GNU General Public License for more details.
**
** You should have received a copy of the GNU General Public License
** along with this program; if not, write to the Free Software
** Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
**
******************************************************************************
*/
#include <cstdlib>
#include <cstring>
#include <cstdio>
extern "C" {
#include <stdlib.h>
#include "romMapperNoWind.h"
#include "AmdFlash.h"
#include "MediaDb.h"
#include "SlotManager.h"
#include "DeviceManager.h"
#include "Board.h"
#include "SaveState.h"
#include "sramLoader.h"
#include "Properties.h"
#ifdef USE_NOWIND_DLL
#include "Disk.h"
#include "Properties.h"
#include <windows.h>
static int DeviceIds[8] = { 0, 0, 0, 0, 0, 0, 0, 0 };
static int deviceIdAlloc()
{
int i;
for (i = 0; i < sizeof(DeviceIds) / sizeof(DeviceIds[0]); ++i) {
if (DeviceIds[i] == 0) {
DeviceIds[i] = 1;
return i;
}
}
return -1;
}
static void deviceIdFree(int id)
{
if (id >= 0 && id < sizeof(DeviceIds) / sizeof(DeviceIds[0])) {
DeviceIds[id] = 0;
}
}
static int deviceIdCount()
{
int cnt = 0;
int i;
for (i = 0; i < sizeof(DeviceIds) / sizeof(DeviceIds[0]); ++i) {
if (DeviceIds[i] != 0) {
cnt++;
}
}
return cnt;
}
typedef void (*Nowind_DebugCb)(const char*);
#define ATTR_NONE 0
#define ATTR_ENABLE_PHANTOM_DRIVES 1
#define ATTR_ENABLE_OTHER_DISKROMS 2
#define ATTR_ENABLE_DOS2 3
typedef void (__cdecl *NoWind_StartUp)(void);
typedef void (__cdecl *NoWind_Cleanup)(void);
typedef bool (__cdecl *NoWind_SetImage)(int, const char*);
typedef unsigned int (__cdecl *NoWind_SetHarddiskImage)(int, int, bool, const char*);
typedef void (__cdecl *NoWind_Write)(unsigned char);
typedef unsigned char (__cdecl *NoWind_Read)(void);
typedef void (__cdecl *NoWind_SetDebugCb)(Nowind_DebugCb);
typedef int (__cdecl *NoWind_SetAttribute)(int, bool);
static NoWind_StartUp nowindusb_startup = NULL;
static NoWind_Cleanup nowindusb_cleanup = NULL;
static NoWind_SetImage nowindusb_set_image = NULL;
static NoWind_SetHarddiskImage nowindusb_set_harddisk_image = NULL;
static NoWind_Write nowindusb_write = NULL;
static NoWind_Read nowindusb_read = NULL;
static NoWind_SetDebugCb nowindusb_set_debug_callback = NULL;
static NoWind_SetAttribute nowindusb_attribute = NULL;
static HINSTANCE hLib = NULL;
void nowindLoadDll()
{
// Load DLL.
hLib = LoadLibrary("libnowindusbms.dll");
if (!hLib) {
printf("Failed to load: libnowindusbms.dll\n");
return;
}
nowindusb_startup = (NoWind_StartUp) GetProcAddress(hLib, "nowindusb_startup");
nowindusb_cleanup = (NoWind_Cleanup) GetProcAddress(hLib, "nowindusb_cleanup");
nowindusb_set_image = (NoWind_SetImage)GetProcAddress(hLib, "nowindusb_set_image");
nowindusb_set_harddisk_image = (NoWind_SetHarddiskImage)GetProcAddress(hLib, "nowindusb_set_harddisk_image");
nowindusb_write = (NoWind_Write) GetProcAddress(hLib, "nowindusb_write");
nowindusb_read = (NoWind_Read) GetProcAddress(hLib, "nowindusb_read");
nowindusb_set_debug_callback = (NoWind_SetDebugCb) GetProcAddress(hLib, "nowindusb_set_debug_callback");
nowindusb_attribute = (NoWind_SetAttribute) GetProcAddress(hLib, "nowindusb_attribute");
}
void nowindUnloadDll()
{
nowindusb_startup = NULL;
nowindusb_cleanup = NULL;
nowindusb_set_image = NULL;
nowindusb_write = NULL;
nowindusb_read = NULL;
nowindusb_attribute = NULL;
nowindusb_set_harddisk_image = NULL;
if (hLib != NULL) {
FreeLibrary(hLib);
hLib = NULL;
}
}
static void debugCb(const char* message)
{
printf(message);
}
#endif
typedef struct {
int deviceHandle;
AmdFlash* amdFlash;
int slot;
int sslot;
int startPage;
int deviceId[4];
UInt8 romMapper;
UInt8* flashPage;
} RomMapperNoWind;
static int nowindLoaded = 0;
#ifdef USE_NOWIND_DLL
static void diskInsert(RomMapperNoWind* rm, int driveId, int driveNo)
{
NoWindProperties* prop = &propGetGlobalProperties()->nowind;
FileProperties* disk = &propGetGlobalProperties()->media.disks[diskGetHdDriveId(driveId, driveNo)];
int diskHasPartitionTable = 0;
FILE* f;
UInt8 header[512];
f = fopen(disk->fileName, "rb");
if (f == NULL) {
rm->deviceId[driveNo] = -1;
return;
}
rm->deviceId[driveNo] = deviceIdAlloc();
if (rm->deviceId[driveNo] < 0) {
fclose(f);
return;
}
if (fread(header, 1, sizeof(header), f) != 0) {
diskHasPartitionTable =
header[510] == 0x55 &&
header[511] == 0xaa;
}
fclose(f);
if (diskHasPartitionTable) {
if (nowindusb_set_harddisk_image) {
nowindusb_set_harddisk_image(rm->deviceId[driveNo], prop->partitionNumber,
prop->ignoreBootFlag != 0, disk->fileName);
}
}
else {
if (nowindusb_set_image) {
nowindusb_set_image(rm->deviceId[driveNo], disk->fileName);
}
}
}
#endif
static void updateMapper(RomMapperNoWind* rm, UInt8 page)
{
rm->romMapper = page & 0x1f;
rm->flashPage = amdFlashGetPage(rm->amdFlash, rm->romMapper * 0x4000);
slotMapPage(rm->slot, rm->sslot, rm->startPage + 0, NULL, 0, 0);
slotMapPage(rm->slot, rm->sslot, rm->startPage + 1, NULL, 0, 0);
slotMapPage(rm->slot, rm->sslot, rm->startPage + 2, rm->flashPage, 1, 0);
slotMapPage(rm->slot, rm->sslot, rm->startPage + 3, rm->flashPage + 0x2000, 1, 0);
slotMapPage(rm->slot, rm->sslot, rm->startPage + 4, NULL, 0, 0);
slotMapPage(rm->slot, rm->sslot, rm->startPage + 5, rm->flashPage + 0x2000, 1, 0);
}
static void saveState(void* _rm)
{
RomMapperNoWind* rm = (RomMapperNoWind*)_rm;
SaveState* state = saveStateOpenForWrite("mapperDumas");
saveStateSet(state, "romMapper", rm->romMapper);
saveStateClose(state);
amdFlashSaveState(rm->amdFlash);
}
static void loadState(void* _rm)
{
RomMapperNoWind* rm = (RomMapperNoWind*)_rm;
SaveState* state = saveStateOpenForRead("mapperDumas");
rm->romMapper = (UInt8)saveStateGet(state, "romMapper", 0);
saveStateClose(state);
amdFlashLoadState(rm->amdFlash);
updateMapper(rm, rm->romMapper);
}
static void RomMapperNoWinddestroy(void* _rm)
{
RomMapperNoWind* rm = (RomMapperNoWind*)_rm;
int i;
amdFlashDestroy(rm->amdFlash);
#ifdef USE_NOWIND_DLL
for (i = 0; i < 4; i++) {
if (rm->deviceId[i] != -1) {
deviceIdFree(rm->deviceId[i]);
}
}
if (--nowindLoaded == 0) {
if (nowindusb_cleanup) nowindusb_cleanup();
nowindUnloadDll();
}
#endif
slotUnregister(rm->slot, rm->sslot, rm->startPage);
deviceManagerUnregister(rm->deviceHandle);
free(rm);
}
static void reset(void* _rm)
{
RomMapperNoWind* rm = (RomMapperNoWind*)_rm;
amdFlashReset(rm->amdFlash);
updateMapper(rm, 0);
}
static UInt8 RomMapperNoWindread(RomMapperNoWind* rm, UInt16 address)
{
if ((address >= 0x2000 && address < 0x4000) ||
(address >= 0x8000 && address < 0xa000))
{
#ifdef USE_NOWIND_DLL
if (nowindusb_read) {
UInt8 value = nowindusb_read();
return value;
}
#endif
}
return 0xff;
}
static UInt8 RomMapperNoWindpeek(RomMapperNoWind* rm, UInt16 address)
{
return 0xff;
}
static void RomMapperNoWindwrite(RomMapperNoWind* rm, UInt16 address, UInt8 value)
{
if (address < 0x4000) {
amdFlashWrite(rm->amdFlash, address + 0x4000 * rm->romMapper, value);
return;
}
if ((address >= 0x4000 && address < 0x6000) ||
(address >= 0x8000 && address < 0xa000))
{
#ifdef USE_NOWIND_DLL
if (nowindusb_write) nowindusb_write(value);
#endif
return;
}
if ((address >= 0x6000 && address < 0x8000) ||
(address >= 0xa000 && address < 0xc000))
{
// FIXME: Is the page selected based on address or data lines?
updateMapper(rm, value & 0x1f);
}
}
int romMapperNoWindCreate(int driveId, const char* filename, UInt8* romData,
int size, int slot, int sslot, int startPage)
{
NoWindProperties* prop = &propGetGlobalProperties()->nowind;
DeviceCallbacks callbacks = { RomMapperNoWinddestroy, reset, saveState, loadState };
RomMapperNoWind* rm;
int i;
rm = (RomMapperNoWind*)malloc(sizeof(RomMapperNoWind));
rm->deviceHandle = deviceManagerRegister(ROM_NOWIND, &callbacks, rm);
slotRegister(slot, sslot, startPage, 6, (SlotRead)RomMapperNoWindread, (SlotRead)RomMapperNoWindpeek, (SlotWrite)RomMapperNoWindwrite, RomMapperNoWinddestroy, rm);
if (filename == NULL) {
filename = "nowind.rom";
}
rm->amdFlash = amdFlashCreate(AMD_TYPE_1, 0x80000, 0x10000, 0, romData, size, sramCreateFilenameWithSuffix(filename, "", ".rom"), 0);
rm->slot = slot;
rm->sslot = sslot;
rm->startPage = startPage;
#ifdef USE_NOWIND_DLL
if (++nowindLoaded == 1) {
nowindLoadDll();
if (nowindusb_startup) nowindusb_startup();
}
if (nowindusb_attribute) {
nowindusb_attribute(ATTR_ENABLE_DOS2, prop->enableDos2 != 0);
nowindusb_attribute(ATTR_ENABLE_OTHER_DISKROMS, prop->enableOtherDiskRoms != 0);
nowindusb_attribute(ATTR_ENABLE_PHANTOM_DRIVES, prop->enablePhantomDrives != 0);
}
if (nowindusb_set_debug_callback) {
nowindusb_set_debug_callback(debugCb);
}
for (i = 0; i < 4; i++) {
diskInsert(rm, driveId, i);
}
#endif
reset(rm);
return 1;
}
}