bloodbro.c

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

      tc=RAM[ta];
      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;}}
   }
   for(ta=0;ta<0x40000;ta++){
      tc=RAM[ta+0x40000];
      GFX[tb+0]|=((tc&0x80)>>7)<<3;
      GFX[tb+1]|=((tc&0x40)>>6)<<3;
      GFX[tb+3]|=((tc&0x20)>>5)<<3;	// REVERSED
      GFX[tb+2]|=((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;}}
   }

   for(ta=0;ta<0x200000;ta++){
      GFX[ta]^=15;
   }

   if(!load_rom("ws12.bin", RAM, 0x10000)) return;		// FG0 GFX
   tb=0x400000;
   for(ta=0x8000;ta<0x10000;ta++){
      tc=RAM[ta]^255;
      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+=8;
   }
   if(!load_rom("ws10.bin", RAM, 0x10000)) return;		// FG0 GFX
   tb=0x400000;
   for(ta=0x8000;ta<0x10000;ta++){
      tc=RAM[ta]^255;
      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+=8;
   }
   if(!load_rom("ws11.bin", RAM, 0x10000)) return;		// FG0 GFX
   tb=0x400000;
   for(ta=0x8000;ta<0x10000;ta++){
      tc=RAM[ta]^255;
      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+=8;
   }
   if(!load_rom("ws09.bin", RAM, 0x10000)) return;		// FG0 GFX
   tb=0x400000;
   for(ta=0x8000;ta<0x10000;ta++){
      tc=RAM[ta]^255;
      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+=8;
   }

   if(!load_rom("ws15.bin", RAM, 0x20000)) return;		// MAIN 68000
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta]=RAM[ta];
   }
   if(!load_rom("ws13.bin", RAM, 0x20000)) return;
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta+1]=RAM[ta];
   }
   if(!load_rom("bb_03.bin", RAM, 0x20000)) return;		// MAIN 68000
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta+0x40000]=RAM[ta];
   }
   if(!load_rom("bb_04.bin", RAM, 0x20000)) return;
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta+0x40001]=RAM[ta];
   }

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

   Z80ROM=RAM+0x21000;
   if(!load_rom("ws17.bin", Z80ROM, 0x10000)) return;	// Z80 SOUND ROM

   // Apply Speed Patch
   // -----------------

   Z80ROM[0x012A]=0xD3;	// OUTA (AAh)
   Z80ROM[0x012B]=0xAA;	//

   SetStopZ80Mode2(0x012D);

   // Setup Z80 memory map
   // --------------------

   AddZ80AROMBase(Z80ROM, 0x0038, 0x0066);

   AddZ80AReadByte(0x0000, 0x27FF, NULL,			NULL);	// Z80 ROM/RAM
   AddZ80AReadByte(0x8000, 0xFFFF, NULL,			NULL);	// Z80 ROM
   //AddZ80AReadByte(0x4008, 0x4009, YM3812ReadZ80,		NULL);	// YM3812
   AddZ80AReadByte(0x4000, 0x401F, WestStorySoundReadZ80,	NULL);	// 68000 + OTHER I/O
   AddZ80AReadByte(0x0000, 0xFFFF, DefBadReadZ80,		NULL);	// <bad reads>
   AddZ80AReadByte(-1, -1, NULL, NULL);

   AddZ80AWriteByte(0x2000, 0x27FF, NULL,			NULL);	// Z80 RAM
   //AddZ80AWriteByte(0x4008, 0x4009, YM3812WriteZ80,		NULL);	// YM3812
   AddZ80AWriteByte(0x4000, 0x401F, WestStorySoundWriteZ80,	NULL);	// 68000 + OTHER I/O
   AddZ80AWriteByte(0x0000, 0xFFFF, DefBadWriteZ80,		NULL);	// <bad writes>
   AddZ80AWriteByte(-1, -1, NULL, NULL);

   AddZ80AReadPort(0x00, 0xFF, DefBadReadZ80,           NULL);
   AddZ80AReadPort(  -1,   -1, NULL,                    NULL);

   AddZ80AWritePort(0xAA, 0xAA, StopZ80Mode2,           NULL);
   AddZ80AWritePort(0x00, 0xFF, DefBadWriteZ80,         NULL);
   AddZ80AWritePort(  -1,   -1, NULL,                   NULL);

   AddZ80AInit();

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

   memset(RAM+0x00000,0x00,0x20000);
   memset(RAM+0x20000,0xFF,0x01000);

   RAMSize=0x31000;

   GFX_BG0_SOLID = make_solid_mask_16x16(GFX_BG0, 0x1000);
   GFX_BG1_SOLID = make_solid_mask_16x16(GFX_BG1, 0x1000);
   GFX_SPR_SOLID = make_solid_mask_16x16(GFX_SPR, 0x2000);
   GFX_FG0_SOLID = make_solid_mask_8x8  (GFX_FG0, 0x1000);

   set_colour_mapper(&col_map_xxxx_bbbb_gggg_rrrr_rev);
   InitPaletteMap(RAM+0x18000, 0x40, 0x10, 0x1000);

   // 68000 Speed hack
   // ----------------

   WriteLong68k(&ROM[0x08E8],0x13FC0000);	// move.b #$00,$AA0000
   WriteLong68k(&ROM[0x08EC],0x00AA0000);	//
   WriteLong68k(&ROM[0x08F0],0x4E714E71);	//

/*
 *  StarScream Stuff follows
 */

   ByteSwap(ROM,0x80000);
   ByteSwap(RAM,0x21000);

   AddMemFetch(0x000000, 0x07FFFF, ROM+0x000000-0x000000);	// 68000 ROM
   AddMemFetch(-1, -1, NULL);

   AddReadByte(0x000000, 0x07FFFF, NULL, ROM+0x000000);			// 68000 ROM
   AddReadByte(0x080000, 0x08FFFF, NULL, RAM+0x000000);			// 68000 RAM
   AddReadByte(0x120000, 0x12FFFF, NULL, RAM+0x010000);			// VIDEO RAM
   AddReadByte(0x0C1000, 0x0C100F, NULL, RAM+0x020000);			// INPUT RAM
   AddReadByte(0x000000, 0xFFFFFF, DefBadReadByte, NULL);		// <Bad Reads>
   AddReadByte(-1, -1, NULL, NULL);

   AddReadWord(0x000000, 0x07FFFF, NULL, ROM+0x000000);			// 68000 ROM
   AddReadWord(0x080000, 0x08FFFF, NULL, RAM+0x000000);			// 68000 RAM
   AddReadWord(0x120000, 0x12FFFF, NULL, RAM+0x010000);			// VIDEO RAM
   AddReadWord(0x0C1000, 0x0C100F, NULL, RAM+0x020000);			// INPUT RAM
   AddReadWord(0x000000, 0xFFFFFF, DefBadReadWord, NULL);		// <Bad Reads>
   AddReadWord(-1, -1,NULL, NULL);

   AddWriteByte(0x080000, 0x08FFFF, NULL, RAM+0x000000);		// 68000 RAM
   AddWriteByte(0x120000, 0x12FFFF, NULL, RAM+0x010000);		// VIDEO RAM
   AddWriteByte(0x0C1000, 0x0C1000, WriteSound68k, NULL);		// SOUND COMM
   AddWriteByte(0xAA0000, 0xAA0001, Stop68000, NULL);			// Trap Idle 68000
   AddWriteByte(0x000000, 0xFFFFFF, DefBadWriteByte, NULL);		// <Bad Writes>
   AddWriteByte(-1, -1, NULL, NULL);

   AddWriteWord(0x080000, 0x08FFFF, NULL, RAM+0x000000);		// 68000 RAM
   AddWriteWord(0x120000, 0x12FFFF, NULL, RAM+0x010000);		// VIDEO RAM
   AddWriteWord(0x000000, 0xFFFFFF, DefBadWriteWord, NULL);		// <Bad Writes>
   AddWriteWord(-1, -1, NULL, NULL);

   AddInitMemory();	// Set Starscream mem pointers... 
}

void ClearWestStry(void)
{
   /*#ifdef RAINE_DEBUG
      save_debug("ROM.bin",ROM,0x080000,1);
      save_debug("RAM.bin",RAM,0x040000,1);
      save_debug("GFX.bin",GFX,0x440000,0);
   #endif*/
}

void ExecuteWestStryFrame(void)
{
   cpu_execute_cycles(CPU_68K_0, CPU_FRAME_MHz(10,60));	// M68000 10MHz (60fps)
   cpu_interrupt(CPU_68K_0, 6);

   cpu_execute_cycles(CPU_Z80_0, CPU_FRAME_MHz(4,60));	// Z80B 4MHz (60fps)
   #ifdef RAINE_DEBUG
      print_debug("Z80PC0:%04x\n",z80pc);
   #endif
   //cpu_interrupt(CPU_Z80_0, 0x38);
   //cpu_int_nmi(CPU_Z80_0);
}

UINT16 BloodBrosSoundReadZ80(UINT16 offset)
{
   UINT8 ta;

   switch(offset&31){
      /*case 0x08:
         ta=sp_status;
      break;
      case 0x0A:
         sp_status=0xFF;
         ta=sport;
         #ifdef RAINE_DEBUG
            print_debug("Z80 Receives:%02x\n",sport);
         #endif
      break;*/
      default:
         ta=0xFF;
      break;
   }

   #ifdef RAINE_DEBUG
   print_debug("Z80Read:%04x,%02x [%04x]\n",offset,ta,z80pc);
   #endif
   return(ta);
}

void BloodBrosSoundWriteZ80(UINT16 offset, UINT8 data)
{
   switch(offset&31){
      default:
         #ifdef RAINE_DEBUG
         print_debug("Z80Write:%04x,%02x [%04x]\n",offset,data,z80pc);
         #endif
      break;
   }
}

void LoadBloodBros(void)
{
   int ta,tb,tc;

   romset = 0;

   if(!(ROM=AllocateMem(0x80000))) return;
   if(!(RAM=AllocateMem(0x100000))) return;
   if(!(GFX=AllocateMem(0x440000))) return;

   GFX_BG0 = GFX + 0x040000;
   GFX_BG1 = GFX + 0x140000;
   GFX_SPR = GFX + 0x240000;
   GFX_FG0 = GFX + 0x000000;

   RAM_BG0 = RAM + 0x0C000;
   RAM_BG1 = RAM + 0x0D000;
   RAM_SPR = RAM + 0x0B000;
   RAM_FG0 = RAM + 0x0D800;

   pal_bg0 = 0x40;
   pal_bg1 = 0x50;
   pal_spr = 0x00;
   pal_fg0 = 0x70;

   RAM_SCR = RAM + 0x10020;

   if(!load_rom("bb_06.bin", RAM+0x00000, 0x10000)) return;	// FG0 GFX
   if(!load_rom("bb_05.bin", RAM+0x10000, 0x10000)) return;	// FG0 GFX
   tb=0;
   for(ta=0;ta<0x10000;ta++){
      tc=RAM[ta];
      GFX[tb+3]=((tc&0x80)>>7)<<1;
      GFX[tb+2]=((tc&0x40)>>6)<<1;
      GFX[tb+1]=((tc&0x20)>>5)<<1;
      GFX[tb+0]=((tc&0x10)>>4)<<1;
      GFX[tb+3]|=((tc&0x08)>>3)<<0;
      GFX[tb+2]|=((tc&0x04)>>2)<<0;
      GFX[tb+1]|=((tc&0x02)>>1)<<0;
      GFX[tb+0]|=((tc&0x01)>>0)<<0;
      tc=RAM[ta+0x10000];
      GFX[tb+3]|=((tc&0x80)>>7)<<3;
      GFX[tb+2]|=((tc&0x40)>>6)<<3;
      GFX[tb+1]|=((tc&0x20)>>5)<<3;
      GFX[tb+0]|=((tc&0x10)>>4)<<3;
      GFX[tb+3]|=((tc&0x08)>>3)<<2;
      GFX[tb+2]|=((tc&0x04)>>2)<<2;
      GFX[tb+1]|=((tc&0x02)>>1)<<2;
      GFX[tb+0]|=((tc&0x01)>>0)<<2;
      tb+=4;
   }

   if(!load_rom("bloodb.bk", RAM, 0x100000)) return;	// BG0 GFX
   tb=0x40000;
   for(ta=0;ta<0x100000;ta+=4){
      tc=RAM[ta];
      GFX[tb+3]=((tc&0x80)>>7)<<1;
      GFX[tb+2]=((tc&0x40)>>6)<<1;
      GFX[tb+1]=((tc&0x20)>>5)<<1;
      GFX[tb+0]=((tc&0x10)>>4)<<1;
      GFX[tb+3]|=((tc&0x08)>>3)<<0;
      GFX[tb+2]|=((tc&0x04)>>2)<<0;
      GFX[tb+1]|=((tc&0x02)>>1)<<0;
      GFX[tb+0]|=((tc&0x01)>>0)<<0;
      tc=RAM[ta+1];
      GFX[tb+3]|=((tc&0x80)>>7)<<3;
      GFX[tb+2]|=((tc&0x40)>>6)<<3;
      GFX[tb+1]|=((tc&0x20)>>5)<<3;
      GFX[tb+0]|=((tc&0x10)>>4)<<3;
      GFX[tb+3]|=((tc&0x08)>>3)<<2;
      GFX[tb+2]|=((tc&0x04)>>2)<<2;
      GFX[tb+1]|=((tc&0x02)>>1)<<2;
      GFX[tb+0]|=((tc&0x01)>>0)<<2;
      tc=RAM[ta+2];
      GFX[tb+7]=((tc&0x80)>>7)<<1;
      GFX[tb+6]=((tc&0x40)>>6)<<1;
      GFX[tb+5]=((tc&0x20)>>5)<<1;
      GFX[tb+4]=((tc&0x10)>>4)<<1;
      GFX[tb+7]|=((tc&0x08)>>3)<<0;
      GFX[tb+6]|=((tc&0x04)>>2)<<0;
      GFX[tb+5]|=((tc&0x02)>>1)<<0;
      GFX[tb+4]|=((tc&0x01)>>0)<<0;
      tc=RAM[ta+3];
      GFX[tb+7]|=((tc&0x80)>>7)<<3;
      GFX[tb+6]|=((tc&0x40)>>6)<<3;
      GFX[tb+5]|=((tc&0x20)>>5)<<3;
      GFX[tb+4]|=((tc&0x10)>>4)<<3;
      GFX[tb+7]|=((tc&0x08)>>3)<<2;
      GFX[tb+6]|=((tc&0x04)>>2)<<2;
      GFX[tb+5]|=((tc&0x02)>>1)<<2;
      GFX[tb+4]|=((tc&0x01)>>0)<<2;
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=0x8;}}
   }

   if(!load_rom("bloodb.obj", RAM, 0x100000)) return;	// SPRITE GFX
   tb=0x240000;
   for(ta=0;ta<0x100000;ta+=4){
      tc=RAM[ta];
      GFX[tb+3]=((tc&0x80)>>7)<<1;
      GFX[tb+2]=((tc&0x40)>>6)<<1;
      GFX[tb+1]=((tc&0x20)>>5)<<1;
      GFX[tb+0]=((tc&0x10)>>4)<<1;
      GFX[tb+3]|=((tc&0x08)>>3)<<0;
      GFX[tb+2]|=((tc&0x04)>>2)<<0;
      GFX[tb+1]|=((tc&0x02)>>1)<<0;
      GFX[tb+0]|=((tc&0x01)>>0)<<0;
      tc=RAM[ta+1];
      GFX[tb+3]|=((tc&0x80)>>7)<<3;
      GFX[tb+2]|=((tc&0x40)>>6)<<3;
      GFX[tb+1]|=((tc&0x20)>>5)<<3;
      GFX[tb+0]|=((tc&0x10)>>4)<<3;
      GFX[tb+3]|=((tc&0x08)>>3)<<2;
      GFX[tb+2]|=((tc&0x04)>>2)<<2;
      GFX[tb+1]|=((tc&0x02)>>1)<<2;
      GFX[tb+0]|=((tc&0x01)>>0)<<2;
      tc=RAM[ta+2];
      GFX[tb+7]=((tc&0x80)>>7)<<1;
      GFX[tb+6]=((tc&0x40)>>6)<<1;
      GFX[tb+5]=((tc&0x20)>>5)<<1;
      GFX[tb+4]=((tc&0x10)>>4)<<1;
      GFX[tb+7]|=((tc&0x08)>>3)<<0;
      GFX[tb+6]|=((tc&0x04)>>2)<<0;
      GFX[tb+5]|=((tc&0x02)>>1)<<0;
      GFX[tb+4]|=((tc&0x01)>>0)<<0;
      tc=RAM[ta+3];
      GFX[tb+7]|=((tc&0x80)>>7)<<3;
      GFX[tb+6]|=((tc&0x40)>>6)<<3;
      GFX[tb+5]|=((tc&0x20)>>5)<<3;
      GFX[tb+4]|=((tc&0x10)>>4)<<3;
      GFX[tb+7]|=((tc&0x08)>>3)<<2;
      GFX[tb+6]|=((tc&0x04)>>2)<<2;
      GFX[tb+5]|=((tc&0x02)>>1)<<2;
      GFX[tb+4]|=((tc&0x01)>>0)<<2;
      tb+=16;
      if((tb&0xFF)==0){tb-=0xF8;}
      else{if((tb&0xFF)==8){tb-=0x8;}}
   }

   for(ta=0;ta<0x440000;ta++){
      GFX[ta]^=15;
   }

   if(!load_rom("bb_01.bin", RAM, 0x20000)) return;	// MAIN 68000
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta]=RAM[ta];
   }
   if(!load_rom("bb_02.bin", RAM, 0x20000)) return;
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta+1]=RAM[ta];
   }
   if(!load_rom("bb_03.bin", RAM, 0x20000)) return;	// MAIN 68000
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta+0x40000]=RAM[ta];
   }
   if(!load_rom("bb_04.bin", RAM, 0x20000)) return;
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta+0x40001]=RAM[ta];
   }

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

   Z80ROM=RAM+0x21000;
   if(!load_rom("bb_07.bin", Z80ROM, 0x10000)) return;	// Z80 SOUND ROM

   // Apply Speed Patch
   // -----------------

   Z80ROM[0x0123]=0xD3;	// OUTA (AAh)
   Z80ROM[0x0124]=0xAA;	//

   SetStopZ80Mode2(0x011A);

   // Setup Z80 memory map
   // --------------------

   AddZ80AROMBase(Z80ROM, 0x0010, 0x0018);

   AddZ80AReadByte(0x0000, 0x27FF, NULL,			NULL);	// Z80 ROM/RAM
   //AddZ80AReadByte(0x400E, 0x400F, YM2151ReadZ80,		NULL);	// YM2151 I/O
   AddZ80AReadByte(0x4000, 0x401F, BloodBrosSoundReadZ80,	NULL);	// 68000 + OTHER I/O
   AddZ80AReadByte(0x0000, 0xFFFF, DefBadReadZ80,		NULL);	// <bad reads>
   AddZ80AReadByte(-1, -1, NULL, NULL);

   AddZ80AWriteByte(0x2000, 0x27FF, NULL,			NULL);	// Z80 RAM
   //AddZ80AWriteByte(0x400E, 0x400F, YM2151WriteZ80,		NULL);	// YM2151 I/O
   AddZ80AWriteByte(0x4000, 0x401F, BloodBrosSoundWriteZ80,	NULL);	// 68000 + OTHER I/O
   AddZ80AWriteByte(0x0000, 0xFFFF, DefBadWriteZ80,		NULL);	// <bad writes>
   AddZ80AWriteByte(-1, -1, NULL, NULL);

   AddZ80AReadPort(-1, -1, NULL, NULL);