xsystem1.c

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

      ROM[ta+ta]=RAM[ta];
   }
   if(!load_rom("a05_07.bin", RAM+0x00000, 0x20000)) return;
   if(!load_rom("a03_13.bin", RAM+0x20000, 0x20000)) return;
   for(ta=0;ta<0x40000;ta++){
      ROM[ta+ta+1]=RAM[ta];
   }

   /*-----[Sound Setup]-----*/

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

   if(!(PCMROM=AllocateMem(0x80000))) return;
   if(!load_rom("e18_01.bin",PCMROM,0x80000)) return;	// ADPCM A rom
   YM2610SetBuffers(PCMROM, PCMROM, 0x80000, 0x80000);

   AddTaitoYM2610(0x02EE, 0x028D, 0x10000);

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

   memset(RAM+0x00000,0x00,0x40000);

   // c-chip hacks

   WriteWord68k(&ROM[0x2C1E],0x4E71);		//	nop
   WriteWord68k(&ROM[0x2C28],0x4E71);		//	nop
   WriteWord68k(&ROM[0x2C32],0x4E71);		//	nop

   WriteLong68k(&ROM[0x4268],0x4E714E71);	// 	nop

   // c-chip hack (sound comm)

   WriteLong68k(&ROM[0x2D8A],0x4EF80300);	// 	jmp	$300.w

   WriteLong68k(&ROM[0x0300],0x48E7C000);	// 	movem.l	d0-d1,-(a7)
   WriteWord68k(&ROM[0x0304],0x7000);		//	moveq	#0,d0
   WriteLong68k(&ROM[0x0306],0x322F000C);	//	move.w	12(a7),d1
   WriteLong68k(&ROM[0x030A],0x4EB82DF0);	// 	jsr	$2DF0.w
   WriteLong68k(&ROM[0x030E],0x4CDF0003);	// 	movem.l	(a7)+,d0-d1
   WriteWord68k(&ROM[0x0312],0x4E75);		//	rts

   // Speed Hack

   WriteLong68k(&ROM[0x818],0x13FC0000);	// 	move.b	#$00,$AA0000
   WriteLong68k(&ROM[0x81C],0x00AA0000);	// 	(Speed Hack)
   WriteWord68k(&ROM[0x820],0x6100-10);		// 	<Loop>

   InitPaletteMap(RAM+0x15000, 0x20, 0x10, 0x8000);

   set_colour_mapper(&col_map_xrrr_rrgg_gggb_bbbb);

   // Init seta_x1 emulation
   // ----------------------

   seta_x1.RAM_A	= RAM+0x0C000;
   seta_x1.RAM_B	= RAM+0x16000;
   seta_x1.GFX		= GFX_SPR;
   seta_x1.MASK		= GFX_SPR_SOLID;
   seta_x1.bmp_x	= 32;
   seta_x1.bmp_y	= 32;
   seta_x1.bmp_w	= 352;
   seta_x1.bmp_h	= 240;
   seta_x1.tile_mask	= 0x3FFF;
   seta_x1.scr_x	= 0;
   seta_x1.scr_y	= 0;

/*
 *  StarScream Stuff follows
 */

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

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

   AddReadByte(0x000000, 0x07FFFF, NULL, ROM+0x000000);			// 68000 ROM
   AddReadByte(0xF00000, 0xF03FFF, NULL, RAM+0x000000);			// 68000 RAM
   AddReadByte(0xE00000, 0xE03FFF, NULL, RAM+0x00C000);			// VIDEO RAM
   AddReadByte(0xD00000, 0xD00FFF, NULL, RAM+0x016000);			// VIDEO RAM2
   AddReadByte(0xB00000, 0xB003FF, NULL, RAM+0x015000);			// COLOUR RAM
   AddReadByte(0x800000, 0x800003, tc0140syt_read_main_68k, NULL);	// tc0140syt
   AddReadByte(0x900000, 0x900FFF, balloonb_cchip_rb, NULL);		// c-chip
   AddReadByte(0x500000, 0x50000F, split_dsw_rb, NULL);			// DSW
   AddReadByte(0x000000, 0xFFFFFF, DefBadReadByte, NULL);		// <Bad Reads>
   AddReadByte(-1, -1, NULL, NULL);

   AddReadWord(0x000000, 0x07FFFF, NULL, ROM+0x000000);			// 68000 ROM
   AddReadWord(0xF00000, 0xF03FFF, NULL, RAM+0x000000);			// 68000 RAM
   AddReadWord(0xE00000, 0xE03FFF, NULL, RAM+0x00C000);			// VIDEO RAM
   AddReadWord(0xD00000, 0xD00FFF, NULL, RAM+0x016000);			// VIDEO RAM2
   AddReadWord(0xB00000, 0xB003FF, NULL, RAM+0x015000);			// COLOUR RAM
   AddReadWord(0x900000, 0x900FFF, balloonb_cchip_rw, NULL);		// c-chip
   AddReadWord(0x500000, 0x50000F, split_dsw_rw, NULL);			// DSW
   AddReadWord(0x000000, 0xFFFFFF, DefBadReadWord, NULL);		// <Bad Reads>
   AddReadWord(-1, -1,NULL, NULL);

   AddWriteByte(0xF00000, 0xF03FFF, NULL, RAM+0x000000);		// 68000 RAM
   AddWriteByte(0xE00000, 0xE03FFF, NULL, RAM+0x00C000);		// VIDEO RAM
   AddWriteByte(0xD00000, 0xD00FFF, NULL, RAM+0x016000);		// VIDEO RAM2
   AddWriteByte(0xB00000, 0xB003FF, NULL, RAM+0x015000);		// COLOUR RAM
   AddWriteByte(0x800000, 0x800003, tc0140syt_write_main_68k, NULL);	// tc0140syt
   AddWriteByte(0x900000, 0x900FFF, balloonb_cchip_wb, NULL);		// c-chip
   AddWriteByte(0xAA0000, 0xAA0001, Stop68000, NULL);			// Trap Idle 68000
   AddWriteByte(0x000000, 0xFFFFFF, DefBadWriteByte, NULL);		// <Bad Writes>
   AddWriteByte(-1, -1, NULL, NULL);

   AddWriteWord(0xF00000, 0xF03FFF, NULL, RAM+0x000000);		// 68000 RAM
   AddWriteWord(0xE00000, 0xE03FFF, NULL, RAM+0x00C000);		// VIDEO RAM
   AddWriteWord(0xD00000, 0xD00FFF, NULL, RAM+0x016000);		// VIDEO RAM2
   AddWriteWord(0xB00000, 0xB003FF, NULL, RAM+0x015000);		// COLOUR RAM
   AddWriteWord(0x900000, 0x900FFF, balloonb_cchip_ww, NULL);		// c-chip
   AddWriteWord(0x000000, 0xFFFFFF, DefBadWriteWord, NULL);		// <Bad Writes>
   AddWriteWord(-1, -1, NULL, NULL);

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

void clear_superman(void)
{
   RemoveTaitoYM2610();

   #ifdef RAINE_DEBUG
      save_debug("ROM.bin",ROM,0x080000,1);
      save_debug("RAM.bin",RAM,0x040000,1);
   #endif
}

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

   romset = 2;

   RAMSize=0x44000+0x10000;

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

   if(!load_rom("b87-02", ROM, 0x80000)) return;
   tb=0;
   for(ta=0;ta<0x80000;ta+=2){
      tc=ROM[ta+0];
      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);
      tc=ROM[ta+1];
      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&0x7F)==0){tb-=0x78;}
      else{if((tb&0x7F)==8){tb-=8;}}
   }
   if(!load_rom("b87-04", ROM, 0x80000)) return;
   tb=0;
   for(ta=0;ta<0x80000;ta+=2){
      tc=ROM[ta+0];
      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);
      tc=ROM[ta+1];
      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&0x7F)==0){tb-=0x78;}
      else{if((tb&0x7F)==8){tb-=8;}}
   }
   if(!load_rom("b87-01", ROM, 0x80000)) return;
   tb=0x200000;
   for(ta=0;ta<0x80000;ta+=2){
      tc=ROM[ta+0];
      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);
      tc=ROM[ta+1];
      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&0x7F)==0){tb-=0x78;}
      else{if((tb&0x7F)==8){tb-=8;}}
   }
   if(!load_rom("b87-03", ROM, 0x80000)) return;
   tb=0x200000;
   for(ta=0;ta<0x80000;ta+=2){
      tc=ROM[ta+0];
      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);
      tc=ROM[ta+1];
      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&0x7F)==0){tb-=0x78;}
      else{if((tb&0x7F)==8){tb-=8;}}
   }

   GFX_SPR_SOLID = make_solid_mask_16x16(GFX_SPR, 0x4000);

   tile_mask = 0x3FFF;

   if(!load_rom("b87-06", RAM, 0x20000)) return;
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta]=RAM[ta];
   }
   if(!load_rom("b87-05", RAM, 0x20000)) return;
   for(ta=0;ta<0x20000;ta++){
      ROM[ta+ta+1]=RAM[ta];
   }

   /*-----[Sound Setup]-----*/

   Z80ROM=RAM+0x40000;
   if(!load_rom("b87-07", Z80ROM, 0x8000)) return;	// Z80 SOUND ROM
   memset(Z80ROM+0x8000,0x00,0x8000);

   // fix rom checksum

   Z80ROM[0x007F] = 0x00;
   Z80ROM[0x0080] = 0x00;

   AddTaitoYM2151_xsystem(0x00B3, 0x00B2, 0x8000);

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

   memset(RAM+0x00000,0x00,0x40000);

   // fix rom checksum

   WriteWord68k(&ROM[0xC5F8],0x4E71);
   WriteWord68k(&ROM[0xC606],0x4E71);

   // Speed Hack

   WriteLong68k(&ROM[0x8254],0x027CF8FF);
   WriteLong68k(&ROM[0x8258],0x13FC0000);
   WriteLong68k(&ROM[0x825C],0x00AA0000);
   WriteLong68k(&ROM[0x8260],0x4E714E71);

   WriteLong68k(&ROM[0x8276],0x51C8FFE0);

   InitPaletteMap(RAM+0x15000, 0x20, 0x10, 0x8000);

   set_colour_mapper(&col_map_xrrr_rrgg_gggb_bbbb);

   // Init seta_x1 emulation
   // ----------------------

   seta_x1.RAM_A	= RAM+0x0C000;
   seta_x1.RAM_B	= RAM+0x16000;
   seta_x1.GFX		= GFX_SPR;
   seta_x1.MASK		= GFX_SPR_SOLID;
   seta_x1.bmp_x	= 32;
   seta_x1.bmp_y	= 32;
   seta_x1.bmp_w	= 384;
   seta_x1.bmp_h	= 224;
   seta_x1.tile_mask	= 0x3FFF;
   seta_x1.scr_x	= 0 + 16;
   seta_x1.scr_y	= 0 - 8;

/*
 *  StarScream Stuff follows
 */

   ByteSwap(ROM,0x40000);
   ByteSwap(RAM,0x40000);

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

   AddReadByte(0x000000, 0x03FFFF, NULL, ROM+0x000000);			// 68000 ROM
   AddReadByte(0xF00000, 0xF03FFF, NULL, RAM+0x000000);			// 68000 RAM
   AddReadByte(0xE00000, 0xE03FFF, NULL, RAM+0x00C000);			// VIDEO RAM
   AddReadByte(0xD00000, 0xD00FFF, NULL, RAM+0x016000);			// VIDEO RAM2
   AddReadByte(0xB00000, 0xB003FF, NULL, RAM+0x015000);			// COLOUR RAM
   AddReadByte(0x800000, 0x800003, tc0140syt_read_main_68k, NULL);	// tc0140syt
   AddReadByte(0x900000, 0x900FFF, balloonb_cchip_rb, NULL);		// c-chip
   AddReadByte(0x500000, 0x50000F, split_dsw_rb, NULL);			// DSW
   AddReadByte(0x000000, 0xFFFFFF, DefBadReadByte, NULL);		// <Bad Reads>
   AddReadByte(-1, -1, NULL, NULL);

   AddReadWord(0x000000, 0x03FFFF, NULL, ROM+0x000000);			// 68000 ROM
   AddReadWord(0xF00000, 0xF03FFF, NULL, RAM+0x000000);			// 68000 RAM
   AddReadWord(0xE00000, 0xE03FFF, NULL, RAM+0x00C000);			// VIDEO RAM
   AddReadWord(0xD00000, 0xD00FFF, NULL, RAM+0x016000);			// VIDEO RAM2
   AddReadWord(0xB00000, 0xB003FF, NULL, RAM+0x015000);			// COLOUR RAM
   AddReadWord(0x900000, 0x900FFF, balloonb_cchip_rw, NULL);		// c-chip
   AddReadWord(0x500000, 0x50000F, split_dsw_rw, NULL);			// DSW
   AddReadWord(0x000000, 0xFFFFFF, DefBadReadWord, NULL);		// <Bad Reads>
   AddReadWord(-1, -1,NULL, NULL);

   AddWriteByte(0xF00000, 0xF03FFF, NULL, RAM+0x000000);		// 68000 RAM
   AddWriteByte(0xE00000, 0xE03FFF, NULL, RAM+0x00C000);		// VIDEO RAM
   AddWriteByte(0xD00000, 0xD00FFF, NULL, RAM+0x016000);		// VIDEO RAM2
   AddWriteByte(0xB00000, 0xB003FF, NULL, RAM+0x015000);		// COLOUR RAM
   AddWriteByte(0x800000, 0x800003, tc0140syt_write_main_68k, NULL);	// tc0140syt
   AddWriteByte(0x900000, 0x900FFF, balloonb_cchip_wb, NULL);		// c-chip
   AddWriteByte(0xAA0000, 0xAA0001, Stop68000, NULL);			// Trap Idle 68000
   AddWriteByte(0x000000, 0xFFFFFF, DefBadWriteByte, NULL);		// <Bad Writes>
   AddWriteByte(-1, -1, NULL, NULL);

   AddWriteWord(0xF00000, 0xF03FFF, NULL, RAM+0x000000);		// 68000 RAM
   AddWriteWord(0xE00000, 0xE03FFF, NULL, RAM+0x00C000);		// VIDEO RAM
   AddWriteWord(0xD00000, 0xD00FFF, NULL, RAM+0x016000);		// VIDEO RAM2
   AddWriteWord(0xB00000, 0xB003FF, NULL, RAM+0x015000);		// COLOUR RAM
   AddWriteWord(0x900000, 0x900FFF, balloonb_cchip_ww, NULL);		// c-chip
   AddWriteWord(0x000000, 0xFFFFFF, DefBadWriteWord, NULL);		// <Bad Writes>
   AddWriteWord(-1, -1, NULL, NULL);

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

void clear_daisenpu(void)
{
   RemoveTaitoYM2151();

   #ifdef RAINE_DEBUG
      //save_debug("ROM.bin",ROM,0x040000,1);
      //save_debug("RAM.bin",RAM,0x040000,1);
   #endif
}

void execute_x_system_frame(void)
{
   cpu_execute_cycles(CPU_68K_0, CPU_FRAME_MHz(12,60));	// M68000 12MHz (60fps)

   if(romset==1)
      cpu_interrupt(CPU_68K_0, 6);
   else
      cpu_interrupt(CPU_68K_0, 2);

   if(romset==3)
      Taito2151_Frame_xsystem();		// Z80 and YM2151
   else
      Taito2610_Frame();			// Z80 and YM2610
}

void draw_x_system(void)
{
   ClearPaletteMap();

   render_seta_x1_68000();
}