/*++
THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
PARTICULAR PURPOSE.
Copyright (c) 2001. Samsung Electronics, co. ltd  All rights reserved.

Module Name:  

Abstract:

    Platform dependent PCMCIA initialization functions

rev:
	2002.4.11	: RTC function work (Hyojoon KIM, zzartto@samsung.com)
	2002.4.3	: first S3C2410 version (SOC)
	
	2002.2.5	: timer related bug fixups (kwangyoon LEE, kwangyoon@samsung.com)
				  prevent timer round-up
					- CPUSetSysTimerCount()
					- CPUClearSysTimerIRQ()
					- CPUGetSysTimerCountElapsed()
	2002.1.29	: bug fixups (kwangyoon LEE, kwangyoon@samsung.com)
					- PerfCountFreq()
					- PerfCountSinceTick()
					- CPUSetSysTimerCount()
					- CPUClearSysTimerIRQ()
					- CPUGetSysTimerCountElapsed()
					- CPUGetSysTimerCountMax()
	2002.1.28	: CE.NET initial port (kwangyoon LEE, kwangyoon@samsung.com)

Notes: 
--*/

#include <windows.h>
#include <nkintr.h>

#include <S2410.h>

extern DWORD CurMSec;
extern DWORD DiffMSec;
DWORD dwReschedIncrement;
DWORD OEMCount1ms;
static volatile DWORD dwCurReschedIncr;
void EnterSlowMode();
void ExitSlowMode();

extern void MMU_WaitForInterrupt(void);

unsigned __int64 RealTimeBias = 0;  // Number of 100-nanosecond intervals since
                                    // January 1, 1601. 
DWORD AlarmTime = 0;    			// Alarm Off at startup

volatile BOOL fInterruptFlag;
volatile BOOL fSlowInterruptFlag;
unsigned int saveREFRESH;

//------------------------------------------------------------------------------
//
// When this is called we will set up GPIO<1> to be a falling edge interrupt  
// InitClock sets up the OS timer to int via match reg 0 on the IRQ level
// an int is requested in 1ms from now.
//
// Interrupts are disable when this is called. check with Thomas.
//
//------------------------------------------------------------------------------
void 
InitClock(void) 
{
    volatile PWMreg *s2410PWM =(PWMreg *)PWM_BASE;
    volatile INTreg *s2410INT = (INTreg *)INT_BASE;  
    DWORD ttmp;  


	// Timer4 as OS tick and disable it first.
    s2410INT->rINTMSK |= BIT_TIMER4;		// Mask timer4 interrupt.
    s2410INT->rSRCPND = BIT_TIMER4;			// Clear pending bit
    s2410INT->rINTPND = BIT_TIMER4;

    // Operating clock : PCLK=101500000 (101.5 Mhz)    
	// IMPORTANT : MUST CHECK S2410.H DEFINITIONS !!!!
    s2410PWM->rTCFG0 &= ~(0xff << 8);		/* Prescaler 1's Value			*/
	s2410PWM->rTCFG0 |= (PRESCALER << 8);	// prescaler value=15
	
	/* Timer4 Divider field clear */
	s2410PWM->rTCFG1 &= ~(0xf << 16);
	
#if( SYS_TIMER_DIVIDER == D2 )
	  	s2410PWM->rTCFG1  |=  (D1_2   << 16);		/* 1/2							*/
#elif ( SYS_TIMER_DIVIDER == D4 )
		s2410PWM->rTCFG1  |=  (D1_4   << 16);		/* 1/4							*/
#elif ( SYS_TIMER_DIVIDER == D8 )
	  	s2410PWM->rTCFG1  |=  (D1_8   << 16);		/* 1/8							*/
#elif ( SYS_TIMER_DIVIDER == D16 )
	  	s2410PWM->rTCFG1  |=  (D1_16   << 16);		/* 1/16							*/
#endif
	s2410PWM->rTCNTB4 = RESCHED_INCREMENT;	//((RESCHED_PERIOD * OEM_CLOCK_FREQ) / 1000)  	
	ttmp = s2410PWM->rTCON & (~(0xf << 20));

	s2410PWM->rTCON = ttmp | (2 << 20);		/* update TCVNTB4, stop					*/
	s2410PWM->rTCON = ttmp | (1 << 20);		/* one-shot mode,  start				*/

    // Number of timer counts for reschedule interval
    dwReschedIncrement = RESCHED_INCREMENT;

	// Set OEM timer count for 1 ms
    OEMCount1ms = OEM_COUNT_1MS;
    
    // Set OEM clock frequency
    OEMClockFreq = OEM_CLOCK_FREQ;

    s2410INT->rINTMSK &= ~BIT_TIMER4;		

    return;
}

//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
DWORD 
GetTimerPeriod(void) 
{
    return RESCHED_PERIOD;
}

//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
#define FROM_BCD(n)		((((n) >> 4) * 10) + ((n) & 0xf))

// NOTE: The RTC on the SMDK2410 isn't battery-backed so RTC settings will be lost
// when power is removed.
//
BOOL 
OEMGetRealTime(LPSYSTEMTIME lpst) 
{
#if 0
	volatile RTCreg *s2410RTC = (RTCreg *)RTC_BASE;

	do
	{
		lpst->wYear			= FROM_BCD(s2410RTC->rBCDYEAR) + 2000 ;
		lpst->wMonth		= FROM_BCD(s2410RTC->rBCDMON   & 0x1f);
		lpst->wDay			= FROM_BCD(s2410RTC->rBCDDAY   & 0x3f);

		lpst->wDayOfWeek	= (s2410RTC->rBCDDATE - 1);
	
		lpst->wHour			= FROM_BCD(s2410RTC->rBCDHOUR  & 0x3f);
		lpst->wMinute		= FROM_BCD(s2410RTC->rBCDMIN   & 0x7f);
		lpst->wSecond		= FROM_BCD(s2410RTC->rBCDSEC   & 0x7f);
		lpst->wMilliseconds	= 0;
	}
	while(!(lpst->wSecond));

	return(TRUE);
#else
	volatile RTCreg *s2410RTC; 

	s2410RTC = (RTCreg *)RTC_BASE;
    
	//RETAILMSG(1, (_T("OEMGetRealTime\r\n")));
    
	// enable RTC control
//	s2410RTC->rRTCCON = 0x1;
	lpst->wMilliseconds = 0;
    
	lpst->wSecond    = FROM_BCD(s2410RTC->rBCDSEC & 0x7f);
	lpst->wMinute	 = FROM_BCD(s2410RTC->rBCDMIN & 0x7f);
	lpst->wHour	 = FROM_BCD(s2410RTC->rBCDHOUR& 0x3f);
	lpst->wDayOfWeek = (s2410RTC->rBCDDATE - 1);
	lpst->wDay	 = FROM_BCD(s2410RTC->rBCDDAY & 0x3f);
	lpst->wMonth	 = FROM_BCD(s2410RTC->rBCDMON & 0x1f);
	// lpst->wYear	 = (2000 + s2410RTC->rBCDYEAR) ; 
	lpst->wYear	 = FROM_BCD(s2410RTC->rBCDYEAR) + 2000 ; 

	if ( lpst->wSecond == 0 )
	{
		lpst->wSecond    = FROM_BCD(s2410RTC->rBCDSEC & 0x7f);
		lpst->wMinute	 = FROM_BCD(s2410RTC->rBCDMIN & 0x7f);
		lpst->wHour		 = FROM_BCD(s2410RTC->rBCDHOUR& 0x3f);
		lpst->wDayOfWeek = (s2410RTC->rBCDDATE - 1);
		lpst->wDay		 = FROM_BCD(s2410RTC->rBCDDAY & 0x3f);
		lpst->wMonth	 = FROM_BCD(s2410RTC->rBCDMON & 0x1f);
		lpst->wYear = (2000 + s2410RTC->rBCDYEAR) ; 
	}
	// disable RTC control
//	s2410RTC->rRTCCON = 0;

	return TRUE;
#endif
	
}

//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
#define TO_BCD(n)		((((n) / 10) << 4) | ((n) % 10))

// NOTE: The RTC on the SMDK2410 isn't battery-backed so RTC settings will be lost
// when power is removed.
//
BOOL
OEMSetRealTime(LPSYSTEMTIME lpst) 
{
#if 1
	volatile RTCreg *s2410RTC = (RTCreg *)RTC_BASE;
 
	// Enable RTC control.
	//
	s2410RTC->rRTCCON |= 1;

	s2410RTC->rBCDSEC  = (unsigned char)TO_BCD(lpst->wSecond );
	s2410RTC->rBCDMIN  = (unsigned char)TO_BCD(lpst->wMinute );
	s2410RTC->rBCDHOUR = (unsigned char)TO_BCD(lpst->wHour   );

	s2410RTC->rBCDDATE = (unsigned char)(lpst->wDayOfWeek + 1);

	s2410RTC->rBCDDAY  = (unsigned char)TO_BCD(lpst->wDay    );
	s2410RTC->rBCDMON  = (unsigned char)TO_BCD(lpst->wMonth  );
	s2410RTC->rBCDYEAR = (unsigned char)TO_BCD((lpst->wYear % 100));

	RETAILMSG(1,(TEXT("OEMSetRealTime: Year: %x, Month: %x, Day: %x, Hour: %x, Minute: %x, second: %x rcnr=%Xh\n"), \
   		s2410RTC->rBCDYEAR, s2410RTC->rBCDMON,s2410RTC->rBCDDAY, s2410RTC->rBCDHOUR, s2410RTC->rBCDMIN,s2410RTC->rBCDSEC,s2410RTC->rRTCCON));

	// Disable RTC control.
	//
	s2410RTC->rRTCCON &= ~1;
	
	return(TRUE);
#else
	volatile RTCreg *s2410RTC = (RTCreg *)RTC_BASE;
 	static int firsttime = 0;

	// enable RTC control
	s2410RTC->rRTCCON =  0x1;

	s2410RTC->rBCDSEC  = (unsigned char)TO_BCD(lpst->wSecond );
	s2410RTC->rBCDMIN  = (unsigned char)TO_BCD(lpst->wMinute );
	s2410RTC->rBCDHOUR = (unsigned char)TO_BCD(lpst->wHour   );

	s2410RTC->rBCDDATE = (unsigned char)(lpst->wDayOfWeek + 1);

	if ( firsttime == 0 )
	{
		lpst->wYear = 2003;	lpst->wMonth = 9;	lpst->wDay = 1;
		firsttime = 1;
	}

	s2410RTC->rBCDDAY  = (unsigned char)TO_BCD(lpst->wDay    );
	s2410RTC->rBCDMON  = (unsigned char)TO_BCD(lpst->wMonth  );
	s2410RTC->rBCDYEAR = (unsigned char)TO_BCD((lpst->wYear % 100));

	RETAILMSG(1,(TEXT("OEMSetRealTime: Year: %u, Month: %u, Day: %u, Hour: %u, Minute: %u, second: %u rcnr=%Xh\n"), lpst->wYear, lpst->wMonth,lpst->wDay, lpst->wHour, lpst->wMinute,lpst->wSecond,s2410RTC->rRTCCON));
	RETAILMSG(1,(TEXT("OEMSetRealTime(register): Year: %x, Month: %x, Day: %x, Hour: %x, Minute: %x, second: %x rcnr=%Xh\n"), \
   		s2410RTC->rBCDYEAR, s2410RTC->rBCDMON,s2410RTC->rBCDDAY, s2410RTC->rBCDHOUR, s2410RTC->rBCDMIN,s2410RTC->rBCDSEC,s2410RTC->rRTCCON));

	// disable RTC control
	s2410RTC->rRTCCON = 0; //&= ~0x1;
	
	// Just certify heart bit
//	timer_cnt = 0;

	return TRUE;
#endif	
}

//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
BOOL 
OEMSetAlarmTime(LPSYSTEMTIME lpst) 
{
	volatile INTreg *s2410INT = (INTreg *)INT_BASE;
	volatile RTCreg *s2410RTC = (RTCreg *)RTC_BASE;
	
	RETAILMSG(1,(TEXT("OEMSetAlarmTime: Year: %u, Month: %u, Day: %u, Hour: %u, Minute: %u, second: %u rcnr=%Xh\n"),
		lpst->wYear, lpst->wMonth, lpst->wDay, lpst->wHour, lpst->wMinute, lpst->wSecond, s2410RTC->rRTCCON));
	
	if ( !lpst ||
		(lpst->wSecond > 59)	||	// 0 - 59
		(lpst->wMinute > 59)	||	// 0 - 59
		(lpst->wHour > 23)		||	// 0 - 23
		(lpst->wDayOfWeek > 6)	||	// 0 - 6, Sun:0, Mon:1, ...
		(lpst->wDay > 31)		||	// 0 - 31
		(lpst->wMonth > 12)		||	// 0 - 12, Jan:1, Feb:2, ...
		(lpst->wMonth == 0)		||
		(lpst->wYear < 2000)	||	// We have a 100 year calander (2 BCD digits) with
		(lpst->wSecond > 2099)		// a leap year generator hard-wired to year 2000.
	)
		return FALSE;
	
	s2410RTC->rRTCCON = (1 << 0);		/* RTC Control Enable 	*/