doubled3.c

十七种模拟器源代码 非常有用的作课程设计不可缺少的

/******************************************************************************/
/*                                                                            */
/*                  DOUBLE DRAGON 3 (C) 1990 TECHNOS JAPAN                    */
/*                                                                            */
/******************************************************************************/

#include "gameinc.h"
#include "doubled3.h"
#include "sasound.h"		// sample support routines
#include "tchnosnd.h"

static struct DIR_INFO double_dragon_3_dirs[] =
{
   { "double_dragon_3", },
   { "doubled3", },
   { "ddragon3", },
   { "ddrago3b", },
   { NULL, },
};

static struct ROM_INFO double_dragon_3_roms[] =
{
   {       "dd3.01", 0x00020000, 0x68321d8b, 0, 0, 0, },
   {       "dd3.02", 0x00020000, 0x38d9ae75, 0, 0, 0, },
   {       "dd3.03", 0x00020000, 0xbc05763b, 0, 0, 0, },
   {       "dd3.j8", 0x00040000, 0xc28b53cd, 0, 0, 0, },
   {       "dd3.3e", 0x00020000, 0x726c49b7, 0, 0, 0, },
   {       "dd3.3d", 0x00020000, 0x37a1c335, 0, 0, 0, },
   {       "dd3.3c", 0x00020000, 0x2bcfe63c, 0, 0, 0, },
   {       "dd3.3b", 0x00020000, 0xb864cf17, 0, 0, 0, },
   {       "dd3.2e", 0x00020000, 0x8c71eb06, 0, 0, 0, },
   {       "dd3.2d", 0x00020000, 0x3e134be9, 0, 0, 0, },
   {       "dd3.2c", 0x00020000, 0xb4115ef0, 0, 0, 0, },
   {       "dd3.2b", 0x00020000, 0x4639333d, 0, 0, 0, },
   {       "dd3.1e", 0x00020000, 0x04420cc8, 0, 0, 0, },
   {       "dd3.1d", 0x00020000, 0x33f97b2f, 0, 0, 0, },
   {       "dd3.1c", 0x00020000, 0x0f9a8f2a, 0, 0, 0, },
   {       "dd3.1b", 0x00020000, 0x15c91772, 0, 0, 0, },
   {       "dd3.0e", 0x00020000, 0x894734b3, 0, 0, 0, },
   {       "dd3.0d", 0x00020000, 0xcd504584, 0, 0, 0, },
   {       "dd3.0c", 0x00020000, 0x38e8a9ad, 0, 0, 0, },
   {       "dd3.0b", 0x00020000, 0x80c1cb74, 0, 0, 0, },
   {        "dd3.e", 0x00040000, 0x9bf1538e, 0, 0, 0, },
   {        "dd3.f", 0x00040000, 0x89d58d32, 0, 0, 0, },
   {        "dd3.g", 0x00040000, 0x9bf1538e, 0, 0, 0, },
   {        "dd3.h", 0x00040000, 0x89d58d32, 0, 0, 0, },
   {        "dd3.a", 0x00040000, 0x0f74ea1c, 0, 0, 0, },
   {        "dd3.b", 0x00040000, 0x8f671a62, 0, 0, 0, },
   {        "dd3.c", 0x00040000, 0x0f74ea1c, 0, 0, 0, },
   {        "dd3.d", 0x00040000, 0x8f671a62, 0, 0, 0, },
   {       "dd3.0a", 0x00010000, 0x5a47e7a4, 0, 0, 0, },
   {       "dd3.1a", 0x00010000, 0x15e43d12, 0, 0, 0, },
   {       "dd3.2a", 0x00010000, 0x785d71b0, 0, 0, 0, },
   {       "dd3.3a", 0x00010000, 0x20d64bea, 0, 0, 0, },
   {       "dd3.06", 0x00010000, 0x1e974d9b, 0, 0, 0, },
   {       "dd3.j7", 0x00040000, 0x3af21dbe, 0, 0, 0, },
   {           NULL,          0,          0, 0, 0, 0, },
};

static struct INPUT_INFO double_dragon_3_inputs[] =
{
   { KB_DEF_COIN1,        MSG_COIN1,               0x00C001, 0x04, BIT_ACTIVE_0 },
   { KB_DEF_COIN2,        MSG_COIN2,               0x00C001, 0x08, BIT_ACTIVE_0 },
   { KB_DEF_TILT,         MSG_TILT,                0x00C005, 0x10, BIT_ACTIVE_0 },

   { KB_DEF_P1_START,     MSG_P1_START,            0x00C000, 0x80, BIT_ACTIVE_0 },
   { KB_DEF_P1_UP,        MSG_P1_UP,               0x00C000, 0x04, BIT_ACTIVE_0 },
   { KB_DEF_P1_DOWN,      MSG_P1_DOWN,             0x00C000, 0x08, BIT_ACTIVE_0 },
   { KB_DEF_P1_LEFT,      MSG_P1_LEFT,             0x00C000, 0x02, BIT_ACTIVE_0 },
   { KB_DEF_P1_RIGHT,     MSG_P1_RIGHT,            0x00C000, 0x01, BIT_ACTIVE_0 },
   { KB_DEF_P1_B1,        MSG_P1_B1,               0x00C000, 0x40, BIT_ACTIVE_0 },
   { KB_DEF_P1_B2,        MSG_P1_B2,               0x00C000, 0x20, BIT_ACTIVE_0 },
   { KB_DEF_P1_B3,        MSG_P1_B3,               0x00C000, 0x10, BIT_ACTIVE_0 },

   { KB_DEF_P2_START,     MSG_P2_START,            0x00C002, 0x80, BIT_ACTIVE_0 },
   { KB_DEF_P2_UP,        MSG_P2_UP,               0x00C002, 0x04, BIT_ACTIVE_0 },
   { KB_DEF_P2_DOWN,      MSG_P2_DOWN,             0x00C002, 0x08, BIT_ACTIVE_0 },
   { KB_DEF_P2_LEFT,      MSG_P2_LEFT,             0x00C002, 0x02, BIT_ACTIVE_0 },
   { KB_DEF_P2_RIGHT,     MSG_P2_RIGHT,            0x00C002, 0x01, BIT_ACTIVE_0 },
   { KB_DEF_P2_B1,        MSG_P2_B1,               0x00C002, 0x40, BIT_ACTIVE_0 },
   { KB_DEF_P2_B2,        MSG_P2_B2,               0x00C002, 0x20, BIT_ACTIVE_0 },
   { KB_DEF_P2_B3,        MSG_P2_B3,               0x00C002, 0x10, BIT_ACTIVE_0 },

   { 0,                   NULL,                    0,        0,    0            },
};

static struct DSW_DATA dsw_data_double_dragon_3_0[] =
{
   { MSG_COINAGE,               0x03, 0x04 },
   { MSG_1COIN_1PLAY,         0x03, 0x00 },
   { MSG_1COIN_2PLAY,         0x02, 0x00 },
   { MSG_2COIN_1PLAY,         0x01, 0x00 },
   { MSG_3COIN_1PLAY,         0x00, 0x00 },
   { "Continue price",        0x10, 0x02 },
   { MSG_NO,                    0x10, 0x00 },
   { MSG_YES,                   0x00, 0x00 },
   { "Demo Sounds",           0x20, 0x02 },
   { MSG_ON,                  0x20, 0x00 },
   { MSG_OFF,                 0x00, 0x00 },
   { MSG_SCREEN,              0x40, 0x02 },
   { MSG_NORMAL,              0x40, 0x00 },
   { MSG_INVERT,              0x00, 0x00 },
   { NULL,                    0,    0,   },
};

static struct DSW_DATA dsw_data_double_dragon_3_1[] =
{
   { MSG_DIFFICULTY,          0x03, 0x04 },
   { MSG_NORMAL,              0x03, 0x00 },
   { MSG_EASY,                0x02, 0x00 },
   { MSG_HARD,                0x01, 0x00 },
   { MSG_HARDEST,             0x00, 0x00 },
   { "P1 hurt P2",            0x04, 0x02 },
   { MSG_OFF,                 0x04, 0x00 },
   { MSG_ON,                  0x00, 0x00 },
   { MSG_TEST_MODE,           0x10, 0x02 },
   { MSG_OFF,                 0x10, 0x00 },
   { MSG_ON,                  0x00, 0x00 },
   { "Stage Clear power",     0x20, 0x02 },
   { "50",                    0x20, 0x00 },
   { "0",                     0x00, 0x00 },
   { "Start power",           0x40, 0x02 },
   { "230",                   0x40, 0x00 },
   { "200",                   0x00, 0x00 },
   { "Cabinet",               0x80, 0x02 },
   { "2 Joysticks",           0x80, 0x00 },
   { "3 Joysticks",           0x00, 0x00 },
   { NULL,                    0,    0,   },
};

static struct DSW_INFO double_dragon_3_dsw[] =
{
   { 0x00C010, 0xFF, dsw_data_double_dragon_3_0 },
   { 0x00C011, 0xFF, dsw_data_double_dragon_3_1 },
   { 0,        0,    NULL,      },
};

static struct VIDEO_INFO double_dragon_3_video =
{
   DrawDoubleD3,
   320,
   240,
   32,
   VIDEO_ROTATE_NORMAL,
};

struct GAME_MAIN game_double_dragon_3 =
{
   double_dragon_3_dirs,
   double_dragon_3_roms,
   double_dragon_3_inputs,
   double_dragon_3_dsw,
   NULL,

   LoadDoubleD3,
   ClearDoubleD3,
   &double_dragon_3_video,
   ExecuteDoubleD3Frame,
   "ddrago3b",
   "Double Dragon 3 - The Rosetta Stone (bootleg)",
   "僟僽儖僪儔僑儞俁",
   COMPANY_ID_TECHNOS,
   "TA-0030",
   1990,
   technos_ym2151_m6295_sound,
   GAME_BEAT,
};

static UINT8 *RAM_BG0;
static UINT8 *RAM_BG1;
static UINT8 *RAM_SPR;

static UINT8 *GFX_BG0;
static UINT8 *GFX_BG0_SOLID;

static UINT8 *GFX_SPR;
static UINT8 *GFX_SPR_SOLID;

static void DD3SoundWrite(UINT32 address, UINT8 data)
{
   RAM[(address-0x140000+0x1C000)^1]=data;

   if(address==0x140003) TechnosSoundWrite68k(address,data);
}

void LoadDoubleD3(void)
{
   int ta,tb,tc;
   UINT8 *TMP;

   if(!(GFX=AllocateMem(0x680000))) return;
   if(!(TMP=AllocateMem(0x0D0000))) return;

   if(!load_rom("dd3.0e", TMP+0x00000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.0d", TMP+0x20000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.0c", TMP+0x40000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.0b", TMP+0x60000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.0a", TMP+0x80000, 0x10000)) return;	// GFX SPR
   if(!load_rom("dd3.a",  TMP+0x90000, 0x40000)) return;	// GFX BG0/BG1
   tb=0;
   for(ta=0;ta<0xD0000;ta++){
      tc=TMP[ta+0];
      GFX[tb+0]=(((tc&0x80)>>7)<<0);
      GFX[tb+1]=(((tc&0x40)>>6)<<0);
      GFX[tb+2]=(((tc&0x20)>>5)<<0);
      GFX[tb+3]=(((tc&0x10)>>4)<<0);
      GFX[tb+4]=(((tc&0x08)>>3)<<0);
      GFX[tb+5]=(((tc&0x04)>>2)<<0);
      GFX[tb+6]=(((tc&0x02)>>1)<<0);
      GFX[tb+7]=(((tc&0x01)>>0)<<0);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=8;}}
   }
   if(!load_rom("dd3.1e", TMP+0x00000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.1d", TMP+0x20000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.1c", TMP+0x40000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.1b", TMP+0x60000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.1a", TMP+0x80000, 0x10000)) return;	// GFX SPR
   if(!load_rom("dd3.b",  TMP+0x90000, 0x40000)) return;	// GFX BG0/BG1
   tb=0;
   for(ta=0;ta<0xD0000;ta++){
      tc=TMP[ta+0];
      GFX[tb+0]|=(((tc&0x80)>>7)<<1);
      GFX[tb+1]|=(((tc&0x40)>>6)<<1);
      GFX[tb+2]|=(((tc&0x20)>>5)<<1);
      GFX[tb+3]|=(((tc&0x10)>>4)<<1);
      GFX[tb+4]|=(((tc&0x08)>>3)<<1);
      GFX[tb+5]|=(((tc&0x04)>>2)<<1);
      GFX[tb+6]|=(((tc&0x02)>>1)<<1);
      GFX[tb+7]|=(((tc&0x01)>>0)<<1);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=8;}}
   }
   if(!load_rom("dd3.2e", TMP+0x00000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.2d", TMP+0x20000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.2c", TMP+0x40000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.2b", TMP+0x60000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.2a", TMP+0x80000, 0x10000)) return;	// GFX SPR
   if(!load_rom("dd3.e",  TMP+0x90000, 0x40000)) return;	// GFX BG0/BG1
   tb=0;
   for(ta=0;ta<0xD0000;ta++){
      tc=TMP[ta+0];
      GFX[tb+0]|=(((tc&0x80)>>7)<<2);
      GFX[tb+1]|=(((tc&0x40)>>6)<<2);
      GFX[tb+2]|=(((tc&0x20)>>5)<<2);
      GFX[tb+3]|=(((tc&0x10)>>4)<<2);
      GFX[tb+4]|=(((tc&0x08)>>3)<<2);
      GFX[tb+5]|=(((tc&0x04)>>2)<<2);
      GFX[tb+6]|=(((tc&0x02)>>1)<<2);
      GFX[tb+7]|=(((tc&0x01)>>0)<<2);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=8;}}
   }
   if(!load_rom("dd3.3e", TMP+0x00000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.3d", TMP+0x20000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.3c", TMP+0x40000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.3b", TMP+0x60000, 0x20000)) return;	// GFX SPR
   if(!load_rom("dd3.3a", TMP+0x80000, 0x10000)) return;	// GFX SPR
   if(!load_rom("dd3.f",  TMP+0x90000, 0x40000)) return;	// GFX BG0/BG1
   tb=0;
   for(ta=0;ta<0xD0000;ta++){
      tc=TMP[ta+0];
      GFX[tb+0]|=(((tc&0x80)>>7)<<3);
      GFX[tb+1]|=(((tc&0x40)>>6)<<3);
      GFX[tb+2]|=(((tc&0x20)>>5)<<3);
      GFX[tb+3]|=(((tc&0x10)>>4)<<3);
      GFX[tb+4]|=(((tc&0x08)>>3)<<3);
      GFX[tb+5]|=(((tc&0x04)>>2)<<3);
      GFX[tb+6]|=(((tc&0x02)>>1)<<3);
      GFX[tb+7]|=(((tc&0x01)>>0)<<3);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=8;}}
   }

   FreeMem(TMP);

   RAMSize=0x40000+0x10000;
   if(!(RAM=AllocateMem(RAMSize))) return;
   if(!(ROM=AllocateMem(0x80000))) return;

   /*-------[SOUND SYSTEM INIT]-------*/

   Z80ROM=RAM+0x40000;
   if(!load_rom("dd3.06", Z80ROM, 0x10000)) return;		// Z80 SOUND ROM

   Z80ROM[0x026E]=0x00;

   if(!(PCMROM=AllocateMem(0x80000))) return;
   if(!load_rom("dd3.j7",PCMROM,0x40000)) return;		// ADPCM ROM Bank 0
   if(!load_rom("dd3.j8",PCMROM + 0x40000,0x40000)) return;	// ADPCM ROM Bank 1

   AddTechnosSound(0x0041, 0x003B, 0x10000, PCMROM, PCMROM+0x40000, 63);

   /*---------------------------------*/

   if(!load_rom("dd3.03", RAM, 0x20000)) return;
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta]=RAM[ta];
   }
   if(!load_rom("dd3.01", RAM, 0x20000)) return;
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta+1]=RAM[ta];
   }
   if(!load_rom("dd3.02", RAM, 0x20000)) return;
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta+0x40000]=RAM[ta];
      ROM[ta+ta+0x40001]=RAM[ta];
   }

   memset(RAM+0x00000,0x00,0x40000);
   memset(RAM+0x0C000,0xFF,0x00010);

   RAM_BG0 = RAM+0xA000;
   RAM_BG1 = RAM+0x8000;
   RAM_SPR = RAM+0x9000;

   GFX_BG0 = GFX+0x480000;
   GFX_BG0_SOLID = make_solid_mask_16x16(GFX_BG0, 0x2000);

   GFX_SPR = GFX+0x000000;