mirror/bsnes
1
0
Fork 0
mirror of https://github.com/bsnes-emu/bsnes.git synced 2025-10-04 07:01:32 +02:00
Code Issues Projects Releases Wiki Activity
Files
9133129209f06a4bdb62a685df8e2ba011c2bd3f
bsnes/src/chip/dsp3/dsp3emu.c
byuu 805398e5a8 Update to bsnes v029 release. 
A new version of bsnes has been released. It contains a few minor emulation fixes, as well as user interface improvements. Behind the scenes, the source has been cleaned up more in preparation for running the CPU and PPU (video processor) separately from each other (eg with no enslavement.) This is required for implementing a clock cycle based PPU renderer.
    - Greatly improved invalid DMA transfer behavior, should be nearly perfect now
    - Major code cleanup -- most importantly, almost all PPU timing-related settings moved back to PPU, from CPU
    - Added option to auto-detect file type by inspecting file headers rather than file extensions
    - Rewrote video filter system to move it out of the emulation core -- HQ2x and Scale2x will work even in hires and interlace modes now, 50% scanline filter added
    - Re-added bsnes window icon
    - Added new controller graphic when assigning joypad keys [FitzRoy]
    - Redundant "Advanced" panel settings which can be configured via the GUI are no longer displayed
    - Improved speed regulation settings
    - XP and Vista themes will now apply to bsnes controls
    - Added "Path Settings" window to allow easy selection of default file directories
    - Tab key now mostly works throughout most of the GUI (needs improvement)
    - Main window will no longer disappear when setting a video multipler which results in a window size larger than the current desktop resolution
    - Added two new advanced options: one to control GUI window opacity, and one to adjust the statusbar text
2008-03-18 06:19:43 +00:00

1147 lines
25 KiB
C
Raw Blame History

#ifdef DSP3_CPP
//DSP-3 emulator code
//Copyright (c) 2003-2006 John Weidman, Kris Bleakley, Lancer, z80 gaiden
uint16 DSP3_DataROM[1024] = {
0x8000, 0x4000, 0x2000, 0x1000, 0x0800, 0x0400, 0x0200, 0x0100,
0x0080, 0x0040, 0x0020, 0x0010, 0x0008, 0x0004, 0x0002, 0x0001,
0x0002, 0x0004, 0x0008, 0x0010, 0x0020, 0x0040, 0x0080, 0x0100,
0x0000, 0x000f, 0x0400, 0x0200, 0x0140, 0x0400, 0x0200, 0x0040,
0x007d, 0x007e, 0x007e, 0x007b, 0x007c, 0x007d, 0x007b, 0x007c,
0x0002, 0x0020, 0x0030, 0x0000, 0x000d, 0x0019, 0x0026, 0x0032,
0x003e, 0x004a, 0x0056, 0x0062, 0x006d, 0x0079, 0x0084, 0x008e,
0x0098, 0x00a2, 0x00ac, 0x00b5, 0x00be, 0x00c6, 0x00ce, 0x00d5,
0x00dc, 0x00e2, 0x00e7, 0x00ec, 0x00f1, 0x00f5, 0x00f8, 0x00fb,
0x00fd, 0x00ff, 0x0100, 0x0100, 0x0100, 0x00ff, 0x00fd, 0x00fb,
0x00f8, 0x00f5, 0x00f1, 0x00ed, 0x00e7, 0x00e2, 0x00dc, 0x00d5,
0x00ce, 0x00c6, 0x00be, 0x00b5, 0x00ac, 0x00a2, 0x0099, 0x008e,
0x0084, 0x0079, 0x006e, 0x0062, 0x0056, 0x004a, 0x003e, 0x0032,
0x0026, 0x0019, 0x000d, 0x0000, 0xfff3, 0xffe7, 0xffdb, 0xffce,
0xffc2, 0xffb6, 0xffaa, 0xff9e, 0xff93, 0xff87, 0xff7d, 0xff72,
0xff68, 0xff5e, 0xff54, 0xff4b, 0xff42, 0xff3a, 0xff32, 0xff2b,
0xff25, 0xff1e, 0xff19, 0xff14, 0xff0f, 0xff0b, 0xff08, 0xff05,
0xff03, 0xff01, 0xff00, 0xff00, 0xff00, 0xff01, 0xff03, 0xff05,
0xff08, 0xff0b, 0xff0f, 0xff13, 0xff18, 0xff1e, 0xff24, 0xff2b,
0xff32, 0xff3a, 0xff42, 0xff4b, 0xff54, 0xff5d, 0xff67, 0xff72,
0xff7c, 0xff87, 0xff92, 0xff9e, 0xffa9, 0xffb5, 0xffc2, 0xffce,
0xffda, 0xffe7, 0xfff3, 0x002b, 0x007f, 0x0020, 0x00ff, 0xff00,
0xffbe, 0x0000, 0x0044, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0xffc1, 0x0001, 0x0002, 0x0045,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0xffc5, 0x0003, 0x0004, 0x0005, 0x0047, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0xffca, 0x0006, 0x0007, 0x0008,
0x0009, 0x004a, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0xffd0, 0x000a, 0x000b, 0x000c, 0x000d, 0x000e, 0x004e, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0xffd7, 0x000f, 0x0010, 0x0011,
0x0012, 0x0013, 0x0014, 0x0053, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0xffdf, 0x0015, 0x0016, 0x0017, 0x0018, 0x0019, 0x001a, 0x001b,
0x0059, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0xffe8, 0x001c, 0x001d, 0x001e,
0x001f, 0x0020, 0x0021, 0x0022, 0x0023, 0x0060, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0xfff2, 0x0024, 0x0025, 0x0026, 0x0027, 0x0028, 0x0029, 0x002a,
0x002b, 0x002c, 0x0068, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0xfffd, 0x002d, 0x002e, 0x002f,
0x0030, 0x0031, 0x0032, 0x0033, 0x0034, 0x0035, 0x0036, 0x0071,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0xffc7, 0x0037, 0x0038, 0x0039, 0x003a, 0x003b, 0x003c, 0x003d,
0x003e, 0x003f, 0x0040, 0x0041, 0x007b, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0xffd4, 0x0000, 0x0001, 0x0002,
0x0003, 0x0004, 0x0005, 0x0006, 0x0007, 0x0008, 0x0009, 0x000a,
0x000b, 0x0044, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0xffe2, 0x000c, 0x000d, 0x000e, 0x000f, 0x0010, 0x0011, 0x0012,
0x0013, 0x0014, 0x0015, 0x0016, 0x0017, 0x0018, 0x0050, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0xfff1, 0x0019, 0x001a, 0x001b,
0x001c, 0x001d, 0x001e, 0x001f, 0x0020, 0x0021, 0x0022, 0x0023,
0x0024, 0x0025, 0x0026, 0x005d, 0x0000, 0x0000, 0x0000, 0x0000,
0xffcb, 0x0027, 0x0028, 0x0029, 0x002a, 0x002b, 0x002c, 0x002d,
0x002e, 0x002f, 0x0030, 0x0031, 0x0032, 0x0033, 0x0034, 0x0035,
0x006b, 0x0000, 0x0000, 0x0000, 0xffdc, 0x0000, 0x0001, 0x0002,
0x0003, 0x0004, 0x0005, 0x0006, 0x0007, 0x0008, 0x0009, 0x000a,
0x000b, 0x000c, 0x000d, 0x000e, 0x000f, 0x0044, 0x0000, 0x0000,
0xffee, 0x0010, 0x0011, 0x0012, 0x0013, 0x0014, 0x0015, 0x0016,
0x0017, 0x0018, 0x0019, 0x001a, 0x001b, 0x001c, 0x001d, 0x001e,
0x001f, 0x0020, 0x0054, 0x0000, 0xffee, 0x0021, 0x0022, 0x0023,
0x0024, 0x0025, 0x0026, 0x0027, 0x0028, 0x0029, 0x002a, 0x002b,
0x002c, 0x002d, 0x002e, 0x002f, 0x0030, 0x0031, 0x0032, 0x0065,
0xffbe, 0x0000, 0xfeac, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0xffc1, 0x0001, 0x0002, 0xfead,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0xffc5, 0x0003, 0x0004, 0x0005, 0xfeaf, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0xffca, 0x0006, 0x0007, 0x0008,
0x0009, 0xfeb2, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0xffd0, 0x000a, 0x000b, 0x000c, 0x000d, 0x000e, 0xfeb6, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0xffd7, 0x000f, 0x0010, 0x0011,
0x0012, 0x0013, 0x0014, 0xfebb, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0xffdf, 0x0015, 0x0016, 0x0017, 0x0018, 0x0019, 0x001a, 0x001b,
0xfec1, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0xffe8, 0x001c, 0x001d, 0x001e,
0x001f, 0x0020, 0x0021, 0x0022, 0x0023, 0xfec8, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0xfff2, 0x0024, 0x0025, 0x0026, 0x0027, 0x0028, 0x0029, 0x002a,
0x002b, 0x002c, 0xfed0, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0xfffd, 0x002d, 0x002e, 0x002f,
0x0030, 0x0031, 0x0032, 0x0033, 0x0034, 0x0035, 0x0036, 0xfed9,
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0xffc7, 0x0037, 0x0038, 0x0039, 0x003a, 0x003b, 0x003c, 0x003d,
0x003e, 0x003f, 0x0040, 0x0041, 0xfee3, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0xffd4, 0x0000, 0x0001, 0x0002,
0x0003, 0x0004, 0x0005, 0x0006, 0x0007, 0x0008, 0x0009, 0x000a,
0x000b, 0xfeac, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0xffe2, 0x000c, 0x000d, 0x000e, 0x000f, 0x0010, 0x0011, 0x0012,
0x0013, 0x0014, 0x0015, 0x0016, 0x0017, 0x0018, 0xfeb8, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0xfff1, 0x0019, 0x001a, 0x001b,
0x001c, 0x001d, 0x001e, 0x001f, 0x0020, 0x0021, 0x0022, 0x0023,
0x0024, 0x0025, 0x0026, 0xfec5, 0x0000, 0x0000, 0x0000, 0x0000,
0xffcb, 0x0027, 0x0028, 0x0029, 0x002a, 0x002b, 0x002c, 0x002d,
0x002e, 0x002f, 0x0030, 0x0031, 0x0032, 0x0033, 0x0034, 0x0035,
0xfed3, 0x0000, 0x0000, 0x0000, 0xffdc, 0x0000, 0x0001, 0x0002,
0x0003, 0x0004, 0x0005, 0x0006, 0x0007, 0x0008, 0x0009, 0x000a,
0x000b, 0x000c, 0x000d, 0x000e, 0x000f, 0xfeac, 0x0000, 0x0000,
0xffee, 0x0010, 0x0011, 0x0012, 0x0013, 0x0014, 0x0015, 0x0016,
0x0017, 0x0018, 0x0019, 0x001a, 0x001b, 0x001c, 0x001d, 0x001e,
0x001f, 0x0020, 0xfebc, 0x0000, 0xffee, 0x0021, 0x0022, 0x0023,
0x0024, 0x0025, 0x0026, 0x0027, 0x0028, 0x0029, 0x002a, 0x002b,
0x002c, 0x002d, 0x002e, 0x002f, 0x0030, 0x0031, 0x0032, 0xfecd,
0x0154, 0x0218, 0x0110, 0x00b0, 0x00cc, 0x00b0, 0x0088, 0x00b0,
0x0044, 0x00b0, 0x0000, 0x00b0, 0x00fe, 0xff07, 0x0002, 0x00ff,
0x00f8, 0x0007, 0x00fe, 0x00ee, 0x07ff, 0x0200, 0x00ef, 0xf800,
0x0700, 0x00ee, 0xffff, 0xffff, 0xffff, 0x0000, 0x0000, 0x0001,
0x0001, 0x0001, 0x0001, 0x0000, 0x0000, 0xffff, 0xffff, 0xffff,
0xffff, 0x0000, 0x0000, 0x0001, 0x0001, 0x0001, 0x0001, 0x0000,
0x0000, 0xffff, 0xffff, 0x0000, 0xffff, 0x0001, 0x0000, 0x0001,
0x0001, 0x0000, 0x0000, 0xffff, 0xffff, 0xffff, 0xffff, 0x0000,
0xffff, 0x0001, 0x0000, 0x0001, 0x0001, 0x0000, 0x0000, 0xffff,
0xffff, 0xffff, 0x0000, 0x0000, 0x0000, 0x0044, 0x0088, 0x00cc,
0x0110, 0x0154, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff
};
void (*SetDSP3)();
void DSP3_Command();
uint16 DSP3_DR;
uint16 DSP3_SR;
uint16 DSP3_MemoryIndex;
void DSP3_Reset()
{
DSP3_DR = 0x0080;
DSP3_SR = 0x0084;
SetDSP3 = &DSP3_Command;
}
void DSP3_MemorySize()
{
DSP3_DR = 0x0300;
SetDSP3 = &DSP3_Reset;
}
void DSP3_TestMemory()
{
DSP3_DR = 0x0000;
SetDSP3 = &DSP3_Reset;
}
void DSP3_DumpDataROM()
{
DSP3_DR = DSP3_DataROM[DSP3_MemoryIndex++];
if (DSP3_MemoryIndex == 1024)
SetDSP3 = &DSP3_Reset;
}
void DSP3_MemoryDump()
{
DSP3_MemoryIndex = 0;
SetDSP3 = &DSP3_DumpDataROM;
DSP3_DumpDataROM();
}
int16 DSP3_WinLo;
int16 DSP3_WinHi;
void DSP3_OP06()
{
DSP3_WinLo = (uint8)(DSP3_DR);
DSP3_WinHi = (uint8)(DSP3_DR >> 8);
DSP3_Reset();
}
void DSP3_OP03()
{
int16 Lo = (uint8)(DSP3_DR);
int16 Hi = (uint8)(DSP3_DR >> 8);
int16 Ofs = (DSP3_WinLo * Hi << 1) + (Lo << 1);
DSP3_DR = Ofs >> 1;
SetDSP3 = &DSP3_Reset;
}
int16 DSP3_AddLo;
int16 DSP3_AddHi;
void DSP3_OP07_B()
{
int16 Ofs = (DSP3_WinLo * DSP3_AddHi << 1) + (DSP3_AddLo << 1);
DSP3_DR = Ofs >> 1;
SetDSP3 = &DSP3_Reset;
}
void DSP3_OP07_A()
{
int16 Lo = (uint8)(DSP3_DR);
int16 Hi = (uint8)(DSP3_DR >> 8);
if (Lo & 1) Hi += (DSP3_AddLo & 1);
DSP3_AddLo += Lo;
DSP3_AddHi += Hi;
if (DSP3_AddLo < 0)
DSP3_AddLo += DSP3_WinLo;
else
if (DSP3_AddLo >= DSP3_WinLo)
DSP3_AddLo -= DSP3_WinLo;
if (DSP3_AddHi < 0)
DSP3_AddHi += DSP3_WinHi;
else
if (DSP3_AddHi >= DSP3_WinHi)
DSP3_AddHi -= DSP3_WinHi;
DSP3_DR = DSP3_AddLo | (DSP3_AddHi << 8) | ((DSP3_AddHi >> 8) & 0xff);
SetDSP3 = &DSP3_OP07_B;
}
void DSP3_OP07()
{
uint32 dataOfs = ((DSP3_DR << 1) + 0x03b2) & 0x03ff;
DSP3_AddHi = DSP3_DataROM[dataOfs];
DSP3_AddLo = DSP3_DataROM[dataOfs + 1];
SetDSP3 = &DSP3_OP07_A;
DSP3_SR = 0x0080;
}
uint16 DSP3_Codewords;
uint16 DSP3_Outwords;
uint16 DSP3_Symbol;
uint16 DSP3_BitCount;
uint16 DSP3_Index;
uint16 DSP3_Codes[512];
uint16 DSP3_BitsLeft;
uint16 DSP3_ReqBits;
uint16 DSP3_ReqData;
uint16 DSP3_BitCommand;
uint8 DSP3_BaseLength;
uint16 DSP3_BaseCodes;
uint16 DSP3_BaseCode;
uint8 DSP3_CodeLengths[8];
uint16 DSP3_CodeOffsets[8];
uint16 DSP3_LZCode;
uint8 DSP3_LZLength;
uint16 DSP3_X;
uint16 DSP3_Y;
void DSP3_Coordinate()
{
DSP3_Index++;
switch (DSP3_Index)
{
case 3:
{
if (DSP3_DR == 0xffff)
DSP3_Reset();
break;
}
case 4:
{
DSP3_X = DSP3_DR;
break;
}
case 5:
{
DSP3_Y = DSP3_DR;
DSP3_DR = 1;
break;
}
case 6:
{
DSP3_DR = DSP3_X;
break;
}
case 7:
{
DSP3_DR = DSP3_Y;
DSP3_Index = 0;
break;
}
}
}
uint8 DSP3_Bitmap[8];
uint8 DSP3_Bitplane[8];
uint16 DSP3_BMIndex;
uint16 DSP3_BPIndex;
uint16 DSP3_Count;
void DSP3_Convert_A()
{
if (DSP3_BMIndex < 8)
{
DSP3_Bitmap[DSP3_BMIndex++] = (uint8) (DSP3_DR);
DSP3_Bitmap[DSP3_BMIndex++] = (uint8) (DSP3_DR >> 8);
if (DSP3_BMIndex == 8)
{
short i, j;
for (i=0; i < 8; i++)
for (j=0; j < 8; j++)
{
DSP3_Bitplane[j] <<= 1;
DSP3_Bitplane[j] |= (DSP3_Bitmap[i] >> j) & 1;
}
DSP3_BPIndex = 0;
DSP3_Count--;
}
}
if (DSP3_BMIndex == 8)
{
if (DSP3_BPIndex == 8)
{
if (!DSP3_Count) DSP3_Reset();
DSP3_BMIndex = 0;
}
else
{
DSP3_DR = DSP3_Bitplane[DSP3_BPIndex++];
DSP3_DR |= DSP3_Bitplane[DSP3_BPIndex++] << 8;
}
}
}
void DSP3_Convert()
{
DSP3_Count = DSP3_DR;
DSP3_BMIndex = 0;
SetDSP3 = &DSP3_Convert_A;
}
bool DSP3_GetBits(uint8 Count)
{
if (!DSP3_BitsLeft)
{
DSP3_BitsLeft = Count;
DSP3_ReqBits = 0;
}
do {
if (!DSP3_BitCount)
{
DSP3_SR = 0xC0;
return false;
}
DSP3_ReqBits <<= 1;
if (DSP3_ReqData & 0x8000) DSP3_ReqBits++;
DSP3_ReqData <<= 1;
DSP3_BitCount--;
DSP3_BitsLeft--;
} while (DSP3_BitsLeft);
return true;
}
void DSP3_Decode_Data()
{
if (!DSP3_BitCount)
{
if (DSP3_SR & 0x40)
{
DSP3_ReqData = DSP3_DR;
DSP3_BitCount += 16;
}
else
{
DSP3_SR = 0xC0;
return;
}
}
if (DSP3_LZCode == 1)
{
if (!DSP3_GetBits(1))
return;
if (DSP3_ReqBits)
DSP3_LZLength = 12;
else
DSP3_LZLength = 8;
DSP3_LZCode++;
}
if (DSP3_LZCode == 2)
{
if (!DSP3_GetBits(DSP3_LZLength))
return;
DSP3_LZCode = 0;
DSP3_Outwords--;
if (!DSP3_Outwords) SetDSP3 = &DSP3_Reset;
DSP3_SR = 0x80;
DSP3_DR = DSP3_ReqBits;
return;
}
if (DSP3_BaseCode == 0xffff)
{
if (!DSP3_GetBits(DSP3_BaseLength))
return;
DSP3_BaseCode = DSP3_ReqBits;
}
if (!DSP3_GetBits(DSP3_CodeLengths[DSP3_BaseCode]))
return;
DSP3_Symbol = DSP3_Codes[DSP3_CodeOffsets[DSP3_BaseCode] + DSP3_ReqBits];
DSP3_BaseCode = 0xffff;
if (DSP3_Symbol & 0xff00)
{
DSP3_Symbol += 0x7f02;
DSP3_LZCode++;
}
else
{
DSP3_Outwords--;
if (!DSP3_Outwords)
SetDSP3 = &DSP3_Reset;
}
DSP3_SR = 0x80;
DSP3_DR = DSP3_Symbol;
}
void DSP3_Decode_Tree()
{
if (!DSP3_BitCount)
{
DSP3_ReqData = DSP3_DR;
DSP3_BitCount += 16;
}
if (!DSP3_BaseCodes)
{
DSP3_GetBits(1);
if (DSP3_ReqBits)
{
DSP3_BaseLength = 3;
DSP3_BaseCodes = 8;
}
else
{
DSP3_BaseLength = 2;
DSP3_BaseCodes = 4;
}
}
while (DSP3_BaseCodes)
{
if (!DSP3_GetBits(3))
return;
DSP3_ReqBits++;
DSP3_CodeLengths[DSP3_Index] = (uint8) DSP3_ReqBits;
DSP3_CodeOffsets[DSP3_Index] = DSP3_Symbol;
DSP3_Index++;
DSP3_Symbol += 1 << DSP3_ReqBits;
DSP3_BaseCodes--;
}
DSP3_BaseCode = 0xffff;
DSP3_LZCode = 0;
SetDSP3 = &DSP3_Decode_Data;
if (DSP3_BitCount) DSP3_Decode_Data();
}
void DSP3_Decode_Symbols()
{
DSP3_ReqData = DSP3_DR;
DSP3_BitCount += 16;
do {
if (DSP3_BitCommand == 0xffff)
{
if (!DSP3_GetBits(2)) return;
DSP3_BitCommand = DSP3_ReqBits;
}
switch (DSP3_BitCommand)
{
case 0:
{
if (!DSP3_GetBits(9)) return;
DSP3_Symbol = DSP3_ReqBits;
break;
}
case 1:
{
DSP3_Symbol++;
break;
}
case 2:
{
if (!DSP3_GetBits(1)) return;
DSP3_Symbol += 2 + DSP3_ReqBits;
break;
}
case 3:
{
if (!DSP3_GetBits(4)) return;
DSP3_Symbol += 4 + DSP3_ReqBits;
break;
}
}
DSP3_BitCommand = 0xffff;
DSP3_Codes[DSP3_Index++] = DSP3_Symbol;
DSP3_Codewords--;
} while (DSP3_Codewords);
DSP3_Index = 0;
DSP3_Symbol = 0;
DSP3_BaseCodes = 0;
SetDSP3 = &DSP3_Decode_Tree;
if (DSP3_BitCount) DSP3_Decode_Tree();
}
void DSP3_Decode_A()
{
DSP3_Outwords = DSP3_DR;
SetDSP3 = &DSP3_Decode_Symbols;
DSP3_BitCount = 0;
DSP3_BitsLeft = 0;
DSP3_Symbol = 0;
DSP3_Index = 0;
DSP3_BitCommand = 0xffff;
DSP3_SR = 0xC0;
}
void DSP3_Decode()
{
DSP3_Codewords = DSP3_DR;
SetDSP3 = &DSP3_Decode_A;
}
// Opcodes 1E/3E bit-perfect to 'dsp3-intro' log
// src: adapted from SD Gundam X/G-Next
int16 op3e_x;
int16 op3e_y;
int16 op1e_terrain[0x2000];
int16 op1e_cost[0x2000];
int16 op1e_weight[0x2000];
int16 op1e_cell;
int16 op1e_turn;
int16 op1e_search;
int16 op1e_x;
int16 op1e_y;
int16 op1e_min_radius;
int16 op1e_max_radius;
int16 op1e_max_search_radius;
int16 op1e_max_path_radius;
int16 op1e_lcv_radius;
int16 op1e_lcv_steps;
int16 op1e_lcv_turns;
void DSP3_OP3E()
{
op3e_x = (uint8)(DSP3_DR & 0x00ff);
op3e_y = (uint8)((DSP3_DR & 0xff00)>>8);
DSP3_OP03();
op1e_terrain[ DSP3_DR ] = 0x00;
op1e_cost[ DSP3_DR ] = 0xff;
op1e_weight[ DSP3_DR ] = 0;
op1e_max_search_radius = 0;
op1e_max_path_radius = 0;
}
void DSP3_OP1E_A();
void DSP3_OP1E_A1();
void DSP3_OP1E_A2();
void DSP3_OP1E_A3();
void DSP3_OP1E_B();
void DSP3_OP1E_B1();
void DSP3_OP1E_B2();
void DSP3_OP1E_C();
void DSP3_OP1E_C1();
void DSP3_OP1E_C2();
void DSP3_OP1E_D( int16, int16 *, int16 * );
void DSP3_OP1E_D1( int16 move, int16 *lo, int16 *hi );
void DSP3_OP1E()
{
int lcv;
op1e_min_radius = (uint8)(DSP3_DR & 0x00ff);
op1e_max_radius = (uint8)((DSP3_DR & 0xff00)>>8);
if( op1e_min_radius == 0 )
op1e_min_radius++;
if( op1e_max_search_radius >= op1e_min_radius )
op1e_min_radius = op1e_max_search_radius+1;
if( op1e_max_radius > op1e_max_search_radius )
op1e_max_search_radius = op1e_max_radius;
op1e_lcv_radius = op1e_min_radius;
op1e_lcv_steps = op1e_min_radius;
op1e_lcv_turns = 6;
op1e_turn = 0;
op1e_x = op3e_x;
op1e_y = op3e_y;
for( lcv = 0; lcv < op1e_min_radius; lcv++ )
DSP3_OP1E_D( op1e_turn, &op1e_x, &op1e_y );
DSP3_OP1E_A();
}
void DSP3_OP1E_A()
{
int lcv;
if( op1e_lcv_steps == 0 ) {
op1e_lcv_radius++;
op1e_lcv_steps = op1e_lcv_radius;
op1e_x = op3e_x;
op1e_y = op3e_y;
for( lcv = 0; lcv < op1e_lcv_radius; lcv++ )
DSP3_OP1E_D( op1e_turn, &op1e_x, &op1e_y );
}
if( op1e_lcv_radius > op1e_max_radius ) {
op1e_turn++;
op1e_lcv_turns--;
op1e_lcv_radius = op1e_min_radius;
op1e_lcv_steps = op1e_min_radius;
op1e_x = op3e_x;
op1e_y = op3e_y;
for( lcv = 0; lcv < op1e_min_radius; lcv++ )
DSP3_OP1E_D( op1e_turn, &op1e_x, &op1e_y );
}
if( op1e_lcv_turns == 0 ) {
DSP3_DR = 0xffff;
DSP3_SR = 0x0080;
SetDSP3 = &DSP3_OP1E_B;
return;
}
DSP3_DR = (uint8)(op1e_x) | ((uint8)(op1e_y)<<8);
DSP3_OP03();
op1e_cell = DSP3_DR;
DSP3_SR = 0x0080;
SetDSP3 = &DSP3_OP1E_A1;
}
void DSP3_OP1E_A1()
{
DSP3_SR = 0x0084;
SetDSP3 = &DSP3_OP1E_A2;
}
void DSP3_OP1E_A2()
{
op1e_terrain[ op1e_cell ] = (uint8)(DSP3_DR & 0x00ff);
DSP3_SR = 0x0084;
SetDSP3 = &DSP3_OP1E_A3;
}
void DSP3_OP1E_A3()
{
op1e_cost[ op1e_cell ] = (uint8)(DSP3_DR & 0x00ff);
if( op1e_lcv_radius == 1 ) {
if( op1e_terrain[ op1e_cell ] & 1 ) {
op1e_weight[ op1e_cell ] = 0xff;
} else {
op1e_weight[ op1e_cell ] = op1e_cost[ op1e_cell ];
}
}
else {
op1e_weight[ op1e_cell ] = 0xff;
}
DSP3_OP1E_D( (int16)(op1e_turn+2), &op1e_x, &op1e_y );
op1e_lcv_steps--;
DSP3_SR = 0x0080;
DSP3_OP1E_A();
}
void DSP3_OP1E_B()
{
op1e_x = op3e_x;
op1e_y = op3e_y;
op1e_lcv_radius = 1;
op1e_search = 0;
DSP3_OP1E_B1();
SetDSP3 = &DSP3_OP1E_C;
}
void DSP3_OP1E_B1()
{
while( op1e_lcv_radius < op1e_max_radius ) {
op1e_y--;
op1e_lcv_turns = 6;
op1e_turn = 5;
while( op1e_lcv_turns ) {
op1e_lcv_steps = op1e_lcv_radius;
while( op1e_lcv_steps ) {
DSP3_OP1E_D1( op1e_turn, &op1e_x, &op1e_y );
if( 0 <= op1e_y && op1e_y < DSP3_WinHi &&
0 <= op1e_x && op1e_x < DSP3_WinLo ) {
DSP3_DR = (uint8)(op1e_x) | ((uint8)(op1e_y)<<8);
DSP3_OP03();
op1e_cell = DSP3_DR;
if( op1e_cost[ op1e_cell ] < 0x80 &&
op1e_terrain[ op1e_cell ] < 0x40 ) {
DSP3_OP1E_B2();
} // end cell perimeter
}
op1e_lcv_steps--;
} // end search line
op1e_turn--;
if( op1e_turn == 0 ) op1e_turn = 6;
op1e_lcv_turns--;
} // end circle search
op1e_lcv_radius++;
} // end radius search
}
void DSP3_OP1E_B2()
{
int16 cell;
int16 path;
int16 x,y;
int16 lcv_turns;
path = 0xff;
lcv_turns = 6;
while( lcv_turns ) {
x = op1e_x;
y = op1e_y;
DSP3_OP1E_D1( lcv_turns, &x, &y );
DSP3_DR = (uint8)(x) | ((uint8)(y)<<8);
DSP3_OP03();
cell = DSP3_DR;
if( 0 <= y && y < DSP3_WinHi &&
0 <= x && x < DSP3_WinLo ) {
if( op1e_terrain[ cell ] < 0x80 || op1e_weight[ cell ] == 0 ) {
if( op1e_weight[ cell ] < path ) {
path = op1e_weight[ cell ];
}
}
} // end step travel
lcv_turns--;
} // end while turns
if( path != 0xff ) {
op1e_weight[ op1e_cell ] = path + op1e_cost[ op1e_cell ];
}
}
void DSP3_OP1E_C()
{
int lcv;
op1e_min_radius = (uint8)(DSP3_DR & 0x00ff);
op1e_max_radius = (uint8)((DSP3_DR & 0xff00)>>8);
if( op1e_min_radius == 0 )
op1e_min_radius++;
if( op1e_max_path_radius >= op1e_min_radius )
op1e_min_radius = op1e_max_path_radius+1;
if( op1e_max_radius > op1e_max_path_radius )
op1e_max_path_radius = op1e_max_radius;
op1e_lcv_radius = op1e_min_radius;
op1e_lcv_steps = op1e_min_radius;
op1e_lcv_turns = 6;
op1e_turn = 0;
op1e_x = op3e_x;
op1e_y = op3e_y;
for( lcv = 0; lcv < op1e_min_radius; lcv++ )
DSP3_OP1E_D( op1e_turn, &op1e_x, &op1e_y );
DSP3_OP1E_C1();
}
void DSP3_OP1E_C1()
{
int lcv;
if( op1e_lcv_steps == 0 ) {
op1e_lcv_radius++;
op1e_lcv_steps = op1e_lcv_radius;
op1e_x = op3e_x;
op1e_y = op3e_y;
for( lcv = 0; lcv < op1e_lcv_radius; lcv++ )
DSP3_OP1E_D( op1e_turn, &op1e_x, &op1e_y );
}
if( op1e_lcv_radius > op1e_max_radius ) {
op1e_turn++;
op1e_lcv_turns--;
op1e_lcv_radius = op1e_min_radius;
op1e_lcv_steps = op1e_min_radius;
op1e_x = op3e_x;
op1e_y = op3e_y;
for( lcv = 0; lcv < op1e_min_radius; lcv++ )
DSP3_OP1E_D( op1e_turn, &op1e_x, &op1e_y );
}
if( op1e_lcv_turns == 0 ) {
DSP3_DR = 0xffff;
DSP3_SR = 0x0080;
SetDSP3 = &DSP3_Reset;
return;
}
DSP3_DR = (uint8)(op1e_x) | ((uint8)(op1e_y)<<8);
DSP3_OP03();
op1e_cell = DSP3_DR;
DSP3_SR = 0x0080;
SetDSP3 = &DSP3_OP1E_C2;
}
void DSP3_OP1E_C2()
{
DSP3_DR = op1e_weight[ op1e_cell ];
DSP3_OP1E_D( (int16)(op1e_turn+2), &op1e_x, &op1e_y );
op1e_lcv_steps--;
DSP3_SR = 0x0084;
SetDSP3 = &DSP3_OP1E_C1;
}
void DSP3_OP1E_D( int16 move, int16 *lo, int16 *hi )
{
uint32 dataOfs = ((move << 1) + 0x03b2) & 0x03ff;
int16 Lo;
int16 Hi;
DSP3_AddHi = DSP3_DataROM[dataOfs];
DSP3_AddLo = DSP3_DataROM[dataOfs + 1];
Lo = (uint8)(*lo);
Hi = (uint8)(*hi);
if (Lo & 1) Hi += (DSP3_AddLo & 1);
DSP3_AddLo += Lo;
DSP3_AddHi += Hi;
if (DSP3_AddLo < 0)
DSP3_AddLo += DSP3_WinLo;
else
if (DSP3_AddLo >= DSP3_WinLo)
DSP3_AddLo -= DSP3_WinLo;
if (DSP3_AddHi < 0)
DSP3_AddHi += DSP3_WinHi;
else
if (DSP3_AddHi >= DSP3_WinHi)
DSP3_AddHi -= DSP3_WinHi;
*lo = DSP3_AddLo;
*hi = DSP3_AddHi;
}
void DSP3_OP1E_D1( int16 move, int16 *lo, int16 *hi )
{
//uint32 dataOfs = ((move << 1) + 0x03b2) & 0x03ff;
int16 Lo;
int16 Hi;
const unsigned short HiAdd[] = {
0x00, 0xFF, 0x00, 0x01, 0x01, 0x01, 0x00, 0x00,
0x00, 0xFF, 0xFF, 0x00, 0x01, 0x00, 0xFF, 0x00
};
const unsigned short LoAdd[] = {
0x00, 0x00, 0x01, 0x01, 0x00, 0xFF, 0xFF, 0x00
};
if( (*lo) & 1 )
DSP3_AddHi = HiAdd[ move + 8 ];
else
DSP3_AddHi = HiAdd[ move + 0 ];
DSP3_AddLo = LoAdd[ move ];
Lo = (uint8)(*lo);
Hi = (uint8)(*hi);
if (Lo & 1) Hi += (DSP3_AddLo & 1);
DSP3_AddLo += Lo;
DSP3_AddHi += Hi;
*lo = DSP3_AddLo;
*hi = DSP3_AddHi;
}
void DSP3_OP10()
{
if( DSP3_DR == 0xffff ) {
DSP3_Reset();
} else {
// absorb 2 bytes
DSP3_DR = DSP3_DR;
}
}
void DSP3_OP0C_A()
{
// absorb 2 bytes
DSP3_DR = 0;
SetDSP3 = &DSP3_Reset;
}
void DSP3_OP0C()
{
// absorb 2 bytes
DSP3_DR = 0;
//SetDSP3 = &DSP3_OP0C_A;
SetDSP3 = &DSP3_Reset;
}
void DSP3_OP1C_C()
{
// return 2 bytes
DSP3_DR = 0;
SetDSP3 = &DSP3_Reset;
}
void DSP3_OP1C_B()
{
// absorb 2 bytes
// return 2 bytes
DSP3_DR = 0;
SetDSP3 = &DSP3_OP1C_C;
}
void DSP3_OP1C_A()
{
// absorb 2 bytes
SetDSP3 = &DSP3_OP1C_B;
}
void DSP3_OP1C()
{
// absorb 2 bytes
SetDSP3 = &DSP3_OP1C_A;
}
void DSP3_Command()
{
if (DSP3_DR < 0x40)
{
switch (DSP3_DR)
{
case 0x02: SetDSP3 = &DSP3_Coordinate; break;
case 0x03: SetDSP3 = &DSP3_OP03; break;
case 0x06: SetDSP3 = &DSP3_OP06; break;
case 0x07: SetDSP3 = &DSP3_OP07; return;
case 0x0c: SetDSP3 = &DSP3_OP0C; break;
case 0x0f: SetDSP3 = &DSP3_TestMemory; break;
case 0x10: SetDSP3 = &DSP3_OP10; break;
case 0x18: SetDSP3 = &DSP3_Convert; break;
case 0x1c: SetDSP3 = &DSP3_OP1C; break;
case 0x1e: SetDSP3 = &DSP3_OP1E; break;
case 0x1f: SetDSP3 = &DSP3_MemoryDump; break;
case 0x38: SetDSP3 = &DSP3_Decode; break;
case 0x3e: SetDSP3 = &DSP3_OP3E; break;
default:
return;
}
DSP3_SR = 0x0080;
DSP3_Index = 0;
}
}
uint8 dsp3_byte;
uint16 dsp3_address;
void DSP3SetByte()
{
if (dsp3_address < 0xC000)
{
if (DSP3_SR & 0x04)
{
DSP3_DR = (DSP3_DR & 0xff00) + dsp3_byte;
(*SetDSP3)();
}
else
{
DSP3_SR ^= 0x10;
if (DSP3_SR & 0x10)
DSP3_DR = (DSP3_DR & 0xff00) + dsp3_byte;
else
{
DSP3_DR = (DSP3_DR & 0x00ff) + (dsp3_byte << 8);
(*SetDSP3)();
}
}
}
}
void DSP3GetByte()
{
if (dsp3_address < 0xC000)
{
if (DSP3_SR & 0x04)
{
dsp3_byte = (uint8) DSP3_DR;
(*SetDSP3)();
}
else
{
DSP3_SR ^= 0x10;
if (DSP3_SR & 0x10)
dsp3_byte = (uint8) (DSP3_DR);
else
{
dsp3_byte = (uint8) (DSP3_DR >> 8);
(*SetDSP3)();
}
}
}
else
{
dsp3_byte = (uint8) DSP3_SR;
}
}
void InitDSP3()
{
DSP3_Reset();
}
#endif //ifdef DSP3_CPP
Reference in New Issue View Git Blame Copy Permalink