/***************************************************************************
freeze.c  -  description
-------------------
begin                : Wed May 15 2002
copyright            : (C) 2002 by Pete Bernert
email                : BlackDove@addcom.de
***************************************************************************/

/***************************************************************************
*                                                                         *
*   This program is free software; you can redistribute it and/or modify  *
*   it under the terms of the GNU General Public License as published by  *
*   the Free Software Foundation; either version 2 of the License, or     *
*   (at your option) any later version. See also the license.txt file for *
*   additional informations.                                              *
*                                                                         *
***************************************************************************/

//*************************************************************************//
// History of changes:
//
// 2004/09/18 - Pete
// - corrected LDChen ADSRX values after save state loading
//
// 2003/03/20 - Pete
// - fix to prevent the new interpolations from crashing when loading a save state
//
// 2003/01/06 - Pete
// - small changes for version 1.3 adsr save state loading      
//
// 2002/05/15 - Pete
// - generic cleanup for the Peops release
//
//*************************************************************************//

#include "stdafx.h"

#define _IN_FREEZE

#include "externals.h"
#include "registers.h"
#include "spu.h"
#include "regs.h"
#include "dsoundoss.h"
#include "freeze.h"

////////////////////////////////////////////////////////////////////////
// freeze structs
////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////

void LoadStateV100(SPUFreeze_t * pF);                    // newest version
void LoadStateUnknown(SPUFreeze_t * pF);               // unknown format

////////////////////////////////////////////////////////////////////////
// SPUFREEZE: called by main emu on savestate load/save
////////////////////////////////////////////////////////////////////////

long CALLBACK SPUfreeze(unsigned long ulFreezeMode,SPUFreeze_t * pF)
{
	int i;SPUOSSFreeze_t * pFO;
	
	if(!pF) return 0;                                     // first check
	
	if(!bSpuInit) return 0;                               // -> no init, no call
	

	
	// echo drain - restart sound
	if( iUseTimer >= 2 ) {
		LastWrite = 0xffffffff;
		iCycle = 0;

		// let phantom pad drain
		Sleep(5);
	}

	
	
	if(ulFreezeMode)                                      // info or save?
  {//--------------------------------------------------//
		if(ulFreezeMode==1)                                 
			memset(pF,0,sizeof(SPUFreeze_t)+sizeof(SPUOSSFreeze_t));
		
		strcpy_s(pF->szSPUName,"PBOSS");
		pF->ulFreezeVersion=100;
		pF->ulFreezeSize=sizeof(SPUFreeze_t)+sizeof(SPUOSSFreeze_t);
		
		if(ulFreezeMode==2) return 1;                       // info mode? ok, bye
		// save mode:
		RemoveTimer();                                      // stop timer

		memcpy(pF->cSPURam,spuMem,0x80000);                 // copy common infos
		memcpy(pF->cSPUPort,regArea,0x200);
		
		if(xapGlobal && XAPlay!=XAFeed)                     // some xa
    {
			pF->xaS=*xapGlobal;     
    }
		else 
			memset(&pF->xaS,0,sizeof(xa_decode_t));           // or clean xa


		pFO=(SPUOSSFreeze_t *)(pF+1);                       // store special stuff
		
		pFO->spuIrq=spuIrq;
		if(pSpuIrq)
			pFO->pSpuIrq = (unsigned long)pSpuIrq-(unsigned long)spuMemC;
		else
			pFO->pSpuIrq = 0;

		// extra crash data
		pFO->dwNewChannel = dwNewChannel;
		pFO->dwNoiseVal = dwNoiseVal;
		pFO->spuAddr = spuAddr;
		pFO->spuCtrl = spuCtrl;
		pFO->spuStat = spuStat;

		for(i=0;i<MAXCHAN;i++)
    {
			memcpy((void *)&pFO->s_chan[i],(void *)&s_chan[i],sizeof(SPUCHAN));
			
			if(pFO->s_chan[i].pStart)
				pFO->s_chan[i].pStart-=(unsigned long)spuMemC;

			if(pFO->s_chan[i].pCurr)
				pFO->s_chan[i].pCurr-=(unsigned long)spuMemC;
			
			if(pFO->s_chan[i].pLoop)
				pFO->s_chan[i].pLoop-=(unsigned long)spuMemC;
		}
		
		SetupTimer();                                       // sound processing on again
		return 1;
		//--------------------------------------------------//
  }
	
	if(ulFreezeMode!=0) return 0;                         // bad mode? bye
	
#ifdef _WINDOWS
	//if(iDebugMode && IsWindow(hWDebug))                   // clean debug mute infos
  //SendMessage(hWDebug,WM_MUTE,0,0);
	if(IsBadReadPtr(pF,sizeof(SPUFreeze_t)))              // check bad emu stuff
		return 0;
#endif
	
	RemoveTimer();                                        // we stop processing while doing the save!
	
	memcpy(spuMem,pF->cSPURam,0x80000);                   // get ram
	memcpy(regArea,pF->cSPUPort,0x200);

	if(pF->xaS.nsamples<=4032)                            // start xa again
		SPUplayADPCMchannel(&pF->xaS);

	xapGlobal=0;
	
	if(!strcmp(pF->szSPUName,"PBOSS") &&                  
    pF->ulFreezeVersion==100)
		LoadStateV100(pF);
	else
		LoadStateUnknown(pF);
	
	// repair some globals
	for(i=0;i<=62;i+=2)
		SPUwriteRegister(H_Reverb+i,regArea[(H_Reverb+i-0xc00)>>1]);
	SPUwriteRegister(H_SPUReverbAddr,regArea[(H_SPUReverbAddr-0xc00)>>1]);
	SPUwriteRegister(H_SPUrvolL,regArea[(H_SPUrvolL-0xc00)>>1]);
	SPUwriteRegister(H_SPUrvolR,regArea[(H_SPUrvolR-0xc00)>>1]);
	
	SPUwriteRegister(H_SPUctrl,(unsigned short)(regArea[(H_SPUctrl-0xc00)>>1]|0x4000));
	SPUwriteRegister(H_SPUstat,regArea[(H_SPUstat-0xc00)>>1]);
	SPUwriteRegister(H_CDLeft,regArea[(H_CDLeft-0xc00)>>1]);
	SPUwriteRegister(H_CDRight,regArea[(H_CDRight-0xc00)>>1]);
	
	SPUwriteRegister(H_SPUmvolL,regArea[(H_SPUmvolL-0xc00)>>1]);
	SPUwriteRegister(H_SPUmvolR,regArea[(H_SPUmvolR-0xc00)>>1]);

	// fix to prevent new interpolations from crashing
	for(i=0;i<MAXCHAN;i++) s_chan[i].SB[28]=0;
	
	// repair LDChen's ADSR changes
	for(i=0;i<24;i++)
  {
		SPUwriteRegister(0x1f801c08+(i<<4),regArea[ ((i<<4)+0x08)>>1 ] );
		SPUwriteRegister(0x1f801c0a+(i<<4),regArea[ ((i<<4)+0x0a)>>1 ] );
  }
	
	SetupTimer();                                         // start sound processing again
	
	
	// stop load crackling
	total_cpu_cycles = 0;
	total_apu_cycles = 0;
	cpu_cycles = 0;
	iCycle = 0;


	// fix movie lag
	CDDAPlay  = CDDAStart;
	CDDAFeed  = CDDAStart;
	CDDARepeat = 0;
	
	XAPlay  = XAStart;
	XAFeed  = XAStart;
	XARepeat = 0;
	
	lastxa_lc = 0; lastxa_rc = 0;
	lastcd_lc = 0, lastcd_rc = 0;

	
	// win32
	ResetSound();


	// clear out gaussian registers
	memset( out_gauss_window, 0, 8*4 );
	memset( xa_gauss_window, 0, 8*4 );

	
	return 1;
}

////////////////////////////////////////////////////////////////////////

void LoadStateV100(SPUFreeze_t * pF)
{
	int i;SPUOSSFreeze_t * pFO;
	
	pFO=(SPUOSSFreeze_t *)(pF+1);
	
	spuIrq = pFO->spuIrq;
	if(pFO->pSpuIrq)
		pSpuIrq = pFO->pSpuIrq+spuMemC;
	else
		pSpuIrq = spuMemC;
	
	
	// extra crash data
	dwNewChannel = pFO->dwNewChannel;
	dwNoiseVal = pFO->dwNoiseVal;
	spuAddr = pFO->spuAddr;
	spuCtrl = pFO->spuCtrl;
	spuStat = pFO->spuStat;
	bIrqHit = pFO->bIrqHit;


	for(i=0;i<MAXCHAN;i++)
  {
		int old_mute;
		
		old_mute = s_chan[i].iMute;
		memcpy((void *)&s_chan[i],(void *)&pFO->s_chan[i],sizeof(SPUCHAN));
		
		s_chan[i].pStart+=(unsigned long)spuMemC;
		s_chan[i].pCurr+=(unsigned long)spuMemC;
		s_chan[i].pLoop+=(unsigned long)spuMemC;
		
		s_chan[i].iMute=old_mute;
		s_chan[i].iIrqDone=0;
  }
}

////////////////////////////////////////////////////////////////////////

void LoadStateUnknown(SPUFreeze_t * pF)
{
	int i;
	
	for(i=0;i<MAXCHAN;i++)
  {
		s_chan[i].bOn=0;
		s_chan[i].bNew=0;
		s_chan[i].bStop=0;
		s_chan[i].ADSR.lVolume=0;
		s_chan[i].pLoop=spuMemC + (unsigned long)(0x1010);
		s_chan[i].pStart=spuMemC + (unsigned long)(0x1010);
		s_chan[i].iMute=0;
		s_chan[i].iIrqDone=0;
  }
	
	dwNewChannel=0;
	pSpuIrq=0;
	
	for(i=0;i<0xc0;i++)
  {
		SPUwriteRegister(0x1f801c00+i*2,regArea[i]);
  }
}

////////////////////////////////////////////////////////////////////////
