wrestlef.c

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

/******************************************************************************/
/*                                                                            */
/*                    WRESTLEFEST (C) 1991 TECHNOS JAPAN                      */
/*                                                                            */
/******************************************************************************/

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

static struct DIR_INFO wrestle_fest_dirs[] =
{
   { "wrestle_fest", },
   { "wrestlef", },
   { "wwfwfsta", },
   { NULL, },
};

static struct ROM_INFO wrestle_fest_roms[] =
{
   {   "wf_73a.rom", 0x00080000, 0x6c522edb, 0, 0, 0, },
   {    "wf_42.rom", 0x00010000, 0x5ddebfea, 0, 0, 0, },
   {    "wf_33.rom", 0x00020000, 0x06f22615, 0, 0, 0, },
   {    "wf_19.rom", 0x00040000, 0xbd02e3c4, 0, 0, 0, },
   {    "wf_18.rom", 0x00040000, 0x933ea1a0, 0, 0, 0, },
   {    "wf_15.rom", 0x00100000, 0xdd387289, 0, 0, 0, },
   {    "wf_14.rom", 0x00100000, 0x44abe127, 0, 0, 0, },
   {    "wf_13.rom", 0x00100000, 0x74d774c3, 0, 0, 0, },
   {    "wf_12.rom", 0x00100000, 0x79956cf8, 0, 0, 0, },
   {    "wf_11.rom", 0x00100000, 0x2ce545e8, 0, 0, 0, },
   {    "wf_10.rom", 0x00100000, 0x00edb66a, 0, 0, 0, },
   {    "wf_09.rom", 0x00100000, 0xe395cf1d, 0, 0, 0, },
   {    "wf_08.rom", 0x00100000, 0xb5a97465, 0, 0, 0, },
   {    "wf_02.rom", 0x00040000, 0x82ed7155, 0, 0, 0, },
   {    "wf_01.rom", 0x00040000, 0x8a12b450, 0, 0, 0, },
   {           NULL,          0,          0, 0, 0, 0, },
};

static struct INPUT_INFO wrestle_fest_inputs[] =
{
   { KB_DEF_COIN1,        MSG_COIN1,               0x01C021, 0x01, BIT_ACTIVE_0 },
   { KB_DEF_COIN2,        MSG_COIN2,               0x01C021, 0x02, BIT_ACTIVE_0 },

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

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

   { KB_DEF_P3_START,     MSG_P3_START,            0x01C024, 0x80, BIT_ACTIVE_0 },
   { KB_DEF_P3_UP,        MSG_P3_UP,               0x01C024, 0x04, BIT_ACTIVE_0 },
   { KB_DEF_P3_DOWN,      MSG_P3_DOWN,             0x01C024, 0x08, BIT_ACTIVE_0 },
   { KB_DEF_P3_LEFT,      MSG_P3_LEFT,             0x01C024, 0x02, BIT_ACTIVE_0 },
   { KB_DEF_P3_RIGHT,     MSG_P3_RIGHT,            0x01C024, 0x01, BIT_ACTIVE_0 },
   { KB_DEF_P3_B1,        MSG_P3_B1,               0x01C024, 0x10, BIT_ACTIVE_0 },
   { KB_DEF_P3_B2,        MSG_P3_B2,               0x01C024, 0x20, BIT_ACTIVE_0 },

   { KB_DEF_P4_START,     MSG_P4_START,            0x01C026, 0x80, BIT_ACTIVE_0 },
   { KB_DEF_P4_UP,        MSG_P4_UP,               0x01C026, 0x04, BIT_ACTIVE_0 },
   { KB_DEF_P4_DOWN,      MSG_P4_DOWN,             0x01C026, 0x08, BIT_ACTIVE_0 },
   { KB_DEF_P4_LEFT,      MSG_P4_LEFT,             0x01C026, 0x02, BIT_ACTIVE_0 },
   { KB_DEF_P4_RIGHT,     MSG_P4_RIGHT,            0x01C026, 0x01, BIT_ACTIVE_0 },
   { KB_DEF_P4_B1,        MSG_P4_B1,               0x01C026, 0x10, BIT_ACTIVE_0 },
   { KB_DEF_P4_B2,        MSG_P4_B2,               0x01C026, 0x20, BIT_ACTIVE_0 },

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

static struct DSW_DATA dsw_data_wrestle_fest_0[] =
{
   { "Coin Slots",            0x03, 0x04 },
   { MSG_1COIN_1PLAY,         0x03, 0x00 },
   { MSG_1COIN_2PLAY,         0x02, 0x00 },
   { MSG_2COIN_1PLAY,         0x01, 0x00 },
   { MSG_3COIN_1PLAY,         0x00, 0x00 },
   { "Continue price",        0x04, 0x02 },
   { MSG_NO,                    0x04, 0x00 },
   { MSG_YES,                   0x00, 0x00 },
   { "Demo Sounds",           0x08, 0x02 },
   { MSG_YES,                   0x08, 0x00 },
   { MSG_NO,                    0x00, 0x00 },
   { MSG_SCREEN,              0x10, 0x02 },
   { MSG_NORMAL,              0x10, 0x00 },
   { MSG_INVERT,              0x00, 0x00 },
   { "FBI Logo",              0x20, 0x02 },
   { MSG_YES,                   0x20, 0x00 },
   { MSG_NO,                    0x00, 0x00 },
   { "Regain Power",          0x40, 0x02 },
   { MSG_YES,                   0x40, 0x00 },
   { MSG_NO,                    0x00, 0x00 },
   { "Buy in",                0x80, 0x02 },
   { MSG_YES,                   0x80, 0x00 },
   { MSG_NO,                    0x00, 0x00 },
   { NULL,                    0,    0,   },
};

static struct DSW_DATA dsw_data_wrestle_fest_1[] =
{
   { MSG_DIFFICULTY,          0x03, 0x04 },
   { MSG_NORMAL,              0x03, 0x00 },
   { MSG_EASY,                0x02, 0x00 },
   { MSG_HARD,                0x01, 0x00 },
   { MSG_HARDEST,             0x00, 0x00 },
   { "Max Players",           0x0C, 0x04 },
   { "4 players",             0x0C, 0x00 },
   { "3 players",             0x08, 0x00 },
   { "2 players",             0x04, 0x00 },
   { "<undefined>",           0x00, 0x00 },
   { "<unused>",              0x10, 0x02 },
   { "1",                     0x10, 0x00 },
   { "0",                     0x00, 0x00 },
   { "Stage Clear power",     0x60, 0x04 },
   { "24",                    0x60, 0x00 },
   { "32",                    0x40, 0x00 },
   { "12",                    0x20, 0x00 },
   { "0",                     0x00, 0x00 },
   { "Championship Games",    0x80, 0x02 },
   { "5th",                   0x80, 0x00 },
   { "4th",                   0x00, 0x00 },
   { NULL,                    0,    0,   },
};

static struct DSW_INFO wrestle_fest_dsw[] =
{
   { 0x01C07E, 0xFF, dsw_data_wrestle_fest_0 },
   { 0x01C07F, 0xFF, dsw_data_wrestle_fest_1 },
   { 0,        0,    NULL,      },
};

static struct VIDEO_INFO wrestle_fest_video =
{
   DrawWrestleF,
   320,
   240,
   32,
   VIDEO_ROTATE_NORMAL |
   VIDEO_ROTATABLE,
};

struct GAME_MAIN game_wrestle_fest =
{
   wrestle_fest_dirs,
   wrestle_fest_roms,
   wrestle_fest_inputs,
   wrestle_fest_dsw,
   NULL,

   LoadWrestleF,
   ClearWrestleF,
   &wrestle_fest_video,
   ExecuteWrestleFFrame,
   "wwfwfsta",
   "WWF Wrestlefest",
   "倂倂俥儗僢僗儖僼僃儖僩",
   COMPANY_ID_TECHNOS,
   "TA-0031",
   1991,
   technos_ym2151_m6295_sound,
   GAME_BEAT,
};

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

static UINT8 *GFX_BG0;
static UINT8 *GFX_BG0_SOLID;

static UINT8 *GFX_SPR;
static UINT8 *GFX_SPR_SOLID;

static UINT8 *GFX_FG0;
static UINT8 *GFX_FG0_SOLID;

static void wf_colour_ram_wb(UINT32 address, UINT8 data)
{
   WriteByte(RAM + 0x0C000 + ((address & 0xFF80) >> 2) + ((address & 0x1F) ^ 1), data);
}

static void wf_colour_ram_ww(UINT32 address, UINT16 data)
{
   WriteWord(RAM + 0x0C000 + ((address & 0xFF80) >> 2) + (address & 0x1F), data);
}

static UINT8 wf_colour_ram_rb(UINT32 address)
{
   return ReadByte(RAM + 0x0C000 + ((address & 0xFF80) >> 2) + ((address & 0x1F) ^ 1));
}

static UINT16 wf_colour_ram_rw(UINT32 address)
{
   return ReadWord(RAM + 0x0C000 + ((address & 0xFF80) >> 2) + (address & 0x1F));
}

static void WFSoundWrite(UINT32 address, UINT16 data)
{
   WriteWord(&RAM[address-0x140000+0x1C000],data);

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

void WrestleFSpeedPatch(void)
{
   int address;

   for(address=0;address<0x80000-8;address+=2){
   if(ROM[address+0]==0x08){
   if(ROM[address+1]==0x39){
   if(ROM[address+2]==0x00){
   if(ROM[address+3]==0x01){
   if(ROM[address+4]==0x00){
   if(ROM[address+5]==0x1C){
   if(ROM[address+6]==0x00){
   if(ROM[address+7]==0x6F){

   ROM[address+0]=0x13;	//	move.b	#$00,$AA0000
   ROM[address+1]=0xFC;
   ROM[address+2]=0x00;
   ROM[address+3]=0x00;
   ROM[address+4]=0x00;
   ROM[address+5]=0xAA;
   ROM[address+6]=0x00;
   ROM[address+7]=0x00;

   ROM[address+8]=0x4E;	//	nop
   ROM[address+9]=0x71;

   }}}}}}}}
   }
}

void LoadWrestleF(void)
{
   UINT8 *TMP;
   int ta,tb,tc,td,te;

   if(!(GFX_SPR=AllocateMem(0x1000000))) return;
   if(!(TMP    =AllocateMem(0x0100000))) return;

   if(!load_rom("wf_15.rom", TMP, 0x100000)) return;	// SPRITE BANK A
   tb=0;
   for(ta=0;ta<0x100000;ta++){
      tc=TMP[ta];
      GFX_SPR[tb+0]=(((tc&0x80)>>7)<<0);
      GFX_SPR[tb+1]=(((tc&0x40)>>6)<<0);
      GFX_SPR[tb+2]=(((tc&0x20)>>5)<<0);
      GFX_SPR[tb+3]=(((tc&0x10)>>4)<<0);
      GFX_SPR[tb+4]=(((tc&0x08)>>3)<<0);
      GFX_SPR[tb+5]=(((tc&0x04)>>2)<<0);
      GFX_SPR[tb+6]=(((tc&0x02)>>1)<<0);
      GFX_SPR[tb+7]=(((tc&0x01)>>0)<<0);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=8;}}
   }
   if(!load_rom("wf_12.rom", TMP, 0x100000)) return;
   tb=0;
   for(ta=0;ta<0x100000;ta++){
      tc=TMP[ta];
      GFX_SPR[tb+0]|=(((tc&0x80)>>7)<<1);
      GFX_SPR[tb+1]|=(((tc&0x40)>>6)<<1);
      GFX_SPR[tb+2]|=(((tc&0x20)>>5)<<1);
      GFX_SPR[tb+3]|=(((tc&0x10)>>4)<<1);
      GFX_SPR[tb+4]|=(((tc&0x08)>>3)<<1);
      GFX_SPR[tb+5]|=(((tc&0x04)>>2)<<1);
      GFX_SPR[tb+6]|=(((tc&0x02)>>1)<<1);
      GFX_SPR[tb+7]|=(((tc&0x01)>>0)<<1);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=8;}}
   }
   if(!load_rom("wf_11.rom", TMP, 0x100000)) return;
   tb=0;
   for(ta=0;ta<0x100000;ta++){
      tc=TMP[ta];
      GFX_SPR[tb+0]|=(((tc&0x80)>>7)<<2);
      GFX_SPR[tb+1]|=(((tc&0x40)>>6)<<2);
      GFX_SPR[tb+2]|=(((tc&0x20)>>5)<<2);
      GFX_SPR[tb+3]|=(((tc&0x10)>>4)<<2);
      GFX_SPR[tb+4]|=(((tc&0x08)>>3)<<2);
      GFX_SPR[tb+5]|=(((tc&0x04)>>2)<<2);
      GFX_SPR[tb+6]|=(((tc&0x02)>>1)<<2);
      GFX_SPR[tb+7]|=(((tc&0x01)>>0)<<2);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=8;}}
   }
   if(!load_rom("wf_09.rom", TMP, 0x100000)) return;
   tb=0;
   for(ta=0;ta<0x100000;ta++){
      tc=TMP[ta];
      GFX_SPR[tb+0]|=(((tc&0x80)>>7)<<3);
      GFX_SPR[tb+1]|=(((tc&0x40)>>6)<<3);
      GFX_SPR[tb+2]|=(((tc&0x20)>>5)<<3);
      GFX_SPR[tb+3]|=(((tc&0x10)>>4)<<3);
      GFX_SPR[tb+4]|=(((tc&0x08)>>3)<<3);
      GFX_SPR[tb+5]|=(((tc&0x04)>>2)<<3);
      GFX_SPR[tb+6]|=(((tc&0x02)>>1)<<3);
      GFX_SPR[tb+7]|=(((tc&0x01)>>0)<<3);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=8;}}
   }
   if(!load_rom("wf_14.rom", TMP, 0x100000)) return;	// SPRITE BANK B
   tb=0x800000;
   for(ta=0;ta<0x100000;ta++){
      tc=TMP[ta];
      GFX_SPR[tb+0]=(((tc&0x80)>>7)<<0);
      GFX_SPR[tb+1]=(((tc&0x40)>>6)<<0);
      GFX_SPR[tb+2]=(((tc&0x20)>>5)<<0);
      GFX_SPR[tb+3]=(((tc&0x10)>>4)<<0);
      GFX_SPR[tb+4]=(((tc&0x08)>>3)<<0);
      GFX_SPR[tb+5]=(((tc&0x04)>>2)<<0);
      GFX_SPR[tb+6]=(((tc&0x02)>>1)<<0);
      GFX_SPR[tb+7]=(((tc&0x01)>>0)<<0);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=8;}}
   }
   if(!load_rom("wf_13.rom", TMP, 0x100000)) return;
   tb=0x800000;
   for(ta=0;ta<0x100000;ta++){
      tc=TMP[ta];
      GFX_SPR[tb+0]|=(((tc&0x80)>>7)<<1);
      GFX_SPR[tb+1]|=(((tc&0x40)>>6)<<1);
      GFX_SPR[tb+2]|=(((tc&0x20)>>5)<<1);
      GFX_SPR[tb+3]|=(((tc&0x10)>>4)<<1);
      GFX_SPR[tb+4]|=(((tc&0x08)>>3)<<1);
      GFX_SPR[tb+5]|=(((tc&0x04)>>2)<<1);
      GFX_SPR[tb+6]|=(((tc&0x02)>>1)<<1);
      GFX_SPR[tb+7]|=(((tc&0x01)>>0)<<1);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=8;}}
   }
   if(!load_rom("wf_10.rom", TMP, 0x100000)) return;
   tb=0x800000;
   for(ta=0;ta<0x100000;ta++){
      tc=TMP[ta];
      GFX_SPR[tb+0]|=(((tc&0x80)>>7)<<2);
      GFX_SPR[tb+1]|=(((tc&0x40)>>6)<<2);
      GFX_SPR[tb+2]|=(((tc&0x20)>>5)<<2);
      GFX_SPR[tb+3]|=(((tc&0x10)>>4)<<2);
      GFX_SPR[tb+4]|=(((tc&0x08)>>3)<<2);
      GFX_SPR[tb+5]|=(((tc&0x04)>>2)<<2);
      GFX_SPR[tb+6]|=(((tc&0x02)>>1)<<2);
      GFX_SPR[tb+7]|=(((tc&0x01)>>0)<<2);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=8;}}
   }
   if(!load_rom("wf_08.rom", TMP, 0x100000)) return;
   tb=0x800000;
   for(ta=0;ta<0x100000;ta++){
      tc=TMP[ta];
      GFX_SPR[tb+0]|=(((tc&0x80)>>7)<<3);
      GFX_SPR[tb+1]|=(((tc&0x40)>>6)<<3);
      GFX_SPR[tb+2]|=(((tc&0x20)>>5)<<3);
      GFX_SPR[tb+3]|=(((tc&0x10)>>4)<<3);
      GFX_SPR[tb+4]|=(((tc&0x08)>>3)<<3);
      GFX_SPR[tb+5]|=(((tc&0x04)>>2)<<3);
      GFX_SPR[tb+6]|=(((tc&0x02)>>1)<<3);
      GFX_SPR[tb+7]|=(((tc&0x01)>>0)<<3);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=8;}}
   }

   FreeMem(TMP);

   if(!(GFX=AllocateMem(0x0140000))) return;

   RAMSize=0x40000+0x10000;

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

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

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

   Z80ROM[0x03E5]=0x00;		// Timers Bodge
   Z80ROM[0x03E9]=0x18;

   if(!(PCMROM = AllocateMem(0x80000))) return;
   if(!load_rom("wf_73a.rom", PCMROM, 0x80000)) return;	// ADPCM ROM <2 banks>

   AddTechnosSound(0x0040, 0x003A, 0x10000, PCMROM, PCMROM+0x40000, 63);

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

   if(!load_rom("wf_18.rom", RAM, 0x40000)) return;	// 68000 ROM (EVEN BYTES)
   for(ta=0;ta<0x40000;ta++){
      ROM[ta+ta]=RAM[ta];
   }
   if(!load_rom("wf_19.rom", RAM, 0x40000)) return;	// 68000 ROM (ODD BYTES)
   for(ta=0;ta<0x40000;ta++){
      ROM[ta+ta+1]=RAM[ta];
   }

   if(!load_rom("wf_33.rom", RAM, 0x20000)) return;	// FG TILES (8x8)
   tb=0;
   for(ta=0;ta<0x20000;ta+=32){
      for(td=0;td<8;td+=2){
      for(te=0;te<8;te++){
      tc=RAM[ta+(td<<2)+te];
      GFX[tb+1+td+(te<<3)]=(((tc&0x80)>>7)<<3);
      GFX[tb+0+td+(te<<3)]=(((tc&0x40)>>6)<<3);
      GFX[tb+1+td+(te<<3)]|=(((tc&0x20)>>5)<<2);
      GFX[tb+0+td+(te<<3)]|=(((tc&0x10)>>4)<<2);
      GFX[tb+1+td+(te<<3)]|=(((tc&0x08)>>3)<<1);
      GFX[tb+0+td+(te<<3)]|=(((tc&0x04)>>2)<<1);
      GFX[tb+1+td+(te<<3)]|=(((tc&0x02)>>1)<<0);
      GFX[tb+0+td+(te<<3)]|=(((tc&0x01)>>0)<<0);
      }
      }
      tb+=64;
   }

   if(!load_rom("wf_01.rom", RAM, 0x40000)) return;	// BG TILES (16x16)
   tb=0x40000;
   for(ta=0;ta<0x40000;ta+=2){
      tc=RAM[ta+0];
      td=RAM[ta+1];
      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);
      GFX[tb+0]|=(((td&0x80)>>7)<<1);
      GFX[tb+1]|=(((td&0x40)>>6)<<1);
      GFX[tb+2]|=(((td&0x20)>>5)<<1);
      GFX[tb+3]|=(((td&0x10)>>4)<<1);
      GFX[tb+4]|=(((td&0x08)>>3)<<1);
      GFX[tb+5]|=(((td&0x04)>>2)<<1);
      GFX[tb+6]|=(((td&0x02)>>1)<<1);
      GFX[tb+7]|=(((td&0x01)>>0)<<1);
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=8;}}
   }

   if(!load_rom("wf_02.rom", RAM, 0x40000)) return;
   tb=0x40000;
   for(ta=0;ta<0x40000;ta+=2){
      tc=RAM[ta+0];
      td=RAM[ta+1];