rtc.c

优龙 ARM9 FS2410开发板的BIOS源程序！

#include "def.h"
#include "2410addr.h"
#include "rtcapi.h"
#include "2410lib.h"

#define	TotSecPerDay		86400
#define	TotDaysPerYear		365
#define	TotDaysPer4Year		1461
#define	TotDaysPer100Year	36524
#define	TotDaysPer400Year	146097
#define	GetWeekFromTotDays(days)	(((days)+0)%7)		//1年1月1号(第1天)星期
#define	GetWeek(year, month, day)	(GetWeekFromTotDays(GetTotDays(year, month, day)))	

static U8 monthday[]={31,28,31,30,31,30,31,31,30,31,30,31};

/*************************************************************/
static U32 GetTotDays(U16 year, U16 month, U16 day)
{
	U16 y, y1, y2, y3;
	U32 d=0;	
/*			
	y = year+3;		
	y1 = y/400;
	y2 = (y%400)/100;
	y3 = ((y%400)%100)/4;
	y4 = year-y1*97-y2*24-y3;
	d  = (y1*97+y2*24+(y2?1:0)+y3)*366+y4*365;
*/	
	y  = year-1;	//passed year
	y1 = y/400;
	y2 = (y%400)/100;
	y3 = ((y%400)%100)/4;
	y  = y-y1*97-y2*24-y3;	 
	d  = (y1*97+y2*24+y3)*366+y*365;
	
//		printf("y1 = %d, y2= %d, y3 = %d, %d\n", y1, y2, y3, d);	
	
	for(y1=1; y1<month; y1++)
		d += monthday[y1-1];
	if(RtcIsLeapYear(year)&&(month>2))		
		d++;
//		printf("Total days = %d\n", d+day);
//		getch();	
	return d+day;
}

static void TotDaysToDate(U32 days, DATE_T *date)
{
	U16 y1, y2, y3, y4;
	
	days--;
	y1 = (days/TotDaysPer400Year);
	y2 = ((days%TotDaysPer400Year)/TotDaysPer100Year);
	y3 = (((days%TotDaysPer400Year)%TotDaysPer100Year)/TotDaysPer4Year);
	y4 = (((days%TotDaysPer400Year)%TotDaysPer100Year)%TotDaysPer4Year);
	
	y1 = y1*400+y2*100+y3*4+y4/TotDaysPerYear+1;
	y3 = y4%TotDaysPerYear;
	if(y4==(TotDaysPer4Year-1))
	{
		y1--;
		y3 = TotDaysPerYear;
	}
	if(!((days+1)%TotDaysPer400Year))
	{
		y1--;
		y3 = TotDaysPerYear;
	}
	y2 = 0;
	y3++;		
		
	while(1)
	{
		y4 = monthday[y2++];
		if(RtcIsLeapYear(y1)&&(y2==2))
			y4++;
		if(y3<=y4)
			break;
		y3 -= y4;					
	}
	
	date->year  = y1;
	date->month = y2;
	date->day   = y3;
	date->week  = GetWeekFromTotDays(days+1);
}
/*
void TestRtcFunc(void)
{
	U16 y, m , d, week, MaxDay;
	U32 day, err;
	DATE_T date;	
	
	day = 1;
	err = 0;
	for(y=1; y; y++)
	{
					
		for(m=1; m<13; m++)
		{
			MaxDay = RtcGetDaysOfMonth(y, m);
			for(d=1; d<=MaxDay; d++)
			{											
			//	if(day!=GetTotDays(y, m, d);)
			//	{
			//		printf("error!%d-%d-%d\n", y, m, d);					
			//		err++;					
			//	}					
			
				
			//	week = GetWeekFromTotDays(day);								
			//	TotDaysToDate(day, &date);
			//	if((date.year!=y)||(date.month!=m)||(date.day!=d)||(date.week!=week))
			//	{
			//		printf("error!%d-%d-%d, %d-%d-%d\n", y, m, d, date.year, date.month, date.day);
			//		err++;					
			//	}
			//	//else
			//	//	printf("%d-%d-%d,week%d\n", y, m, d, week);				
			//	if(getkey())
			//	{
			//		if(getch()==0x1b)
			//			goto exit_test;
			//	}
			
			//	if(!RtcCheckDateValid(y, m, d))
			//		printf("Date valid%d\n", ++err);
			//	if(RtcGetWeekNo(y, m, d)!=GetWeekFromTotDays(day))
			//		printf("week error\n");				
			
			//	if(day!=RtcGetPastDays(y, m, d))
			//		printf("err!\n");
			//	if((m==12)&&(d==31))
			//		day = 0;
					
				day++;
			}						
		}
		
		
		{
		//	DATE_T date1, date2;
		//	date1.year=y;
		//	date1.month=3;
		//	date1.day=1;
		//	date2.year=y+1;
		//	date2.month=3;
		//	date2.day=1;
		//	printf("%d-%d-%d, %d-%d-%d : %d\n",date1.year,date1.month,
		//		date1.day, date2.year,date2.month,date2.day,RtcGetDateInterval(&date1, &date2));
		}
		
	}
exit_test:
	if(!err)
		puts("All day OK!\n");
}
*/
/*************************************************************/
/*
功能：判断某年是不是润年；
输入：年；
返回：TRUE或FALSE；
说明：日期为阳历；  
*/
U8 RtcIsLeapYear(U16 year)
{
	return ((year%4==0)&&(year%100!=0)||(year%400==0));	
}

/*
功能：检查日期的有效性；
输入：年，月，日；
返回：TRUE --日期正确,FALSE--日期错误；
说明：日期为阳历
*/
U8 RtcCheckDateValid(U16 year, U16 month, U16 day)
{
	U8 MaxDay;
	
	if(!year)
		return FALSE;
	
	if((month-1)>11)
		return FALSE;
	
	if(RtcIsLeapYear(year)&&(month==2))
		MaxDay = 28;
	else
		MaxDay = monthday[month-1]-1;
	
	if((day-1)>MaxDay)
		return FALSE;	
				
	return TRUE;
}

/************************************************************/
#define	EnRtcWr()	(rRTCCON |= 1)
#define	DsRtcWr()	(rRTCCON &= ~1)

int RtcGetDate(DATETIME_T *date)
{
	U8 tmp, sec;
	
ReadRtc:
	tmp = rBCDDAY;
	if(tmp==7)
		date->week = 0;
	else
		date->week = tmp;
		
	sec = rBCDSEC;
				
	tmp = rBCDYEAR;
	date->year     = (tmp>>4)*10+(tmp&0xf);
	tmp = rBCDMON;
	date->month    = (tmp>>4)*10+(tmp&0xf);		
	tmp = rBCDDATE;
	date->day      = (tmp>>4)*10+(tmp&0xf);
	tmp = rBCDHOUR;
	date->hour     = (tmp>>4)*10+(tmp&0xf);
	tmp = rBCDMIN;
	date->minute   = (tmp>>4)*10+(tmp&0xf);
	tmp = rBCDSEC;
	if(tmp!=sec)
		goto ReadRtc;			
	date->second   = (tmp>>4)*10+(tmp&0xf);		
	
	date->millisecond = 0;
	
	return TRUE;
}

int RtcSetDate(DATETIME_T *date)
{	
	if(RtcCheckDateValid(date->year, date->month, date->day))
	{
		U16 tmp, week;
		
		if((date->year<2000)||(date->year>2999))
			return FALSE;			
		if((date->hour>23)||(date->minute>59)||(date->second>59))
			return FALSE;		

		week = GetWeek(date->year, date->month, date->day);
	
		//reset RTC clock count and enable write
		rRTCCON = 9;//EnRtcWr();
	
		tmp = date->second;
		rBCDSEC  = ((tmp/10)<<4)+(tmp%10);
		tmp = date->minute;
		rBCDMIN  = ((tmp/10)<<4)+(tmp%10);
		tmp = date->hour;
		rBCDHOUR = ((tmp/10)<<4)+(tmp%10);
		tmp = date->day;
		rBCDDATE = ((tmp/10)<<4)+(tmp%10);					
		tmp = date->month;
		rBCDMON  = ((tmp/10)<<4)+(tmp%10);	
		tmp = date->year-2000;
		rBCDYEAR = ((tmp/10)<<4)+(tmp%10);
	
		if(!week)
			rBCDDAY = 7;
		else	
			rBCDDAY = week;		
	
		//no reset RTC clock and disable write
		rRTCCON = 0;//DsRtcWr();	
	
		return TRUE;
	}
	return FALSE;	
}

/*
RTC的时、分、秒中断触发后，通过下列接口通知OS，OS进行消息封装后提供给给GUI或应用层
输入：type 标识区分时、分、秒，具体含义描述如下：
1 ― 时, 2 ― 分, 3 ― 秒
返回：没有
注意：RtcMsgProc（）函数只能在高级中HISR中被调用，否则系统异常。
*/
void RtcMsgProc(U8 type)
{
}

/*
功能：计算某一天是星期几；
输入：年，月，日；
返回：周号；
说明：周范围[0，6]，0是星期天，日期为阳历；  
*/
U8 RtcGetWeekNo(U16 year, U16 month, U16 day)
{
	if(!RtcCheckDateValid(year, month, day))
		return 0xff;	
	
	return GetWeek(year, month, day);
}

/*
功能：计算某个月有多少天；
输入：年，月；
返回：天数；
说明：日期为阳历；
*/
U8 RtcGetDaysOfMonth(U16 year, U16 month)
{
	if((month-1)>11)
		return 0xff;
	if(RtcIsLeapYear(year)&&(month==2))
		return 29;
	return monthday[month-1];			
}

/*
功能：比较两个日期时间的先后 
输入：存放日期时间结构的指针； 
返回：1--date1>date2,0--date1=date2,-1--date1<date2,日期非法 0xf0
说明：日期为阳历；
*/
char RtcCmpDateTime(DATETIME_T *date1, DATETIME_T *date2) 
{
	if(RtcCheckDateValid(date1->year, date1->month, date1->day)&&
		RtcCheckDateValid(date2->year, date2->month, date2->day))
	{
		U32 d1, d2;
		
		d1 = (date1->year<<16)+(date1->month<<8)+date1->day;
		d2 = (date2->year<<16)+(date2->month<<8)+date2->day;
		if(d1!=d2)
			return (d1>d2)?1:-1;
		d1 = (date1->hour<<16)+(date1->minute<<8)+date1->second;
		d2 = (date2->hour<<16)+(date2->minute<<8)+date2->second;
		if(d1!=d2) 
			return (d1>d2)?1:-1;
		
		return  0;			
	}
	return 0xf0;
}

/*
功能：计算两个日期之间的间隔天数；
输入：存放日期结构的指针；
返回：两个日期之间的间隔天数；
说明：日期为阳历；  
*/
U32 RtcGetDateInterval(DATE_T *date1, DATE_T *date2)
{
	if(RtcCheckDateValid(date1->year, date1->month, date1->day)&&
		RtcCheckDateValid(date2->year, date2->month, date2->day))
	{	
		U32	d1, d2;
	
		d1 = GetTotDays(date1->year, date1->month, date1->day);
		d2 = GetTotDays(date2->year, date2->month, date2->day);
		
		return (d1>d2)?(d1-d2):(d2-d1);			
	}
	return 0xffffffff;
}
 
/*
功能：计算两个日期之间的间隔秒数；
输入：存放日期结构的指针；
返回：两个日期之间的间隔总秒数；
说明：日期为阳历
*/
U32 RtcGetTimeInterval(DATETIME_T* pTime1, DATETIME_T *pTime2)
{
	if(RtcCheckDateValid(pTime1->year, pTime1->month, pTime1->day)&&
		RtcCheckDateValid(pTime2->year, pTime2->month, pTime2->day))
	{
		U32 d1, d2, s1, s2;
	
		d1 = GetTotDays(pTime1->year, pTime1->month, pTime1->day);
		d2 = GetTotDays(pTime2->year, pTime2->month, pTime2->day);	
		s1 = (pTime1->hour*60+pTime1->minute)*60+pTime1->second;
		s2 = (pTime2->hour*60+pTime2->minute)*60+pTime2->second;
	
		if(d1==d2)	
			return (s1>s2)?(s1-s2):(s2-s1);		
		
		if(d1>d2)
			return (d1-d2)*TotSecPerDay-s2+s1; 	
		else
			return (d2-d1)*TotSecPerDay-s1+s2;
	}
	return 0xffffffff;
}

/*
功能：计算某一天在在当年总天数中的位置；
输入：年，月，日；
返回：某一天在在当年总天数中的位置；
说明：日期为阳历；  
*/
U16 RtcGetPastDays(U16 year, U16 month, U16 day)
{
	if(RtcCheckDateValid(year, month, day))
	{
		U16 i, d=day;	
		
		for(i=1; i<month; i++)
			d += monthday[i-1];					
		if(RtcIsLeapYear(year)&&(month>2))
			d++;
		return d;			
	}
	return 0xffff;	
}

/*
功能：计算某个日期加多少天后的新日期；
输入：存放日期结构的指针,加的天数；
返回：TRUE --日期正确,FALSE--日期错误；
说明：日期为阳历；  
*/
U8 RtcDateAddDays(DATE_T *date, U16 days)
{
	if(RtcCheckDateValid(date->year, date->month, date->day))
	{
		U32 d;	
	
		d  = GetTotDays(date->year, date->month, date->day);			
		TotDaysToDate(d+days, date);			
		return TRUE;
	}
	return FALSE;	
}

/*
功能：计算某个日期减多少天后的新日期；
输入：存放日期结构的指针,减的天数；
返回：TRUE or FALSE;
说明：日期为阳历；  
*/
U8 RtcDateSubDays(DATE_T *date, U16 days)
{
	if(RtcCheckDateValid(date->year, date->month, date->day))
	{
		U32 d;	
	
		d  = GetTotDays(date->year, date->month, date->day);
		if(d<=days)
			return FALSE;	
		TotDaysToDate(d-days, date);
		return TRUE;
	}
	return FALSE;
}

/*
功能：计算下个月的日期；
输入：存放输入输出日期结构的地址；
返回：TRUE --日期正确,FALSE--日期错误；
说明：日期为阳历；  
*/
U8 RtcGetNextMonth(DATE_T *date)
{
	return RtcDateAddDays(date, 30);
}

/*
功能：计算上个月的日期；
输入：存放输入输出日期结构的地址；
返回：TRUE --日期正确,FALSE--日期错误；
说明：日期为阳历；  
*/
U8 RtcGetPreMonth(DATE_T *date)
{
	return RtcDateSubDays(date, 30);
}

/*
功能：计算下一年的日期；
输入：存放输入输出日期结构的地址;
返回：TRUE --日期正确,FALSE--日期错误;
说明：日期为阳历 
*/
U8 RtcGetNextYear(DATE_T *date)
{
	return RtcDateAddDays(date, TotDaysPerYear);
}

/*
功能：计算上一年的日期；
输入：存放输入输出日期结构的地址；
返回：TRUE --日期正确,FALSE--日期错误；
说明：日期为阳历；
*/
U8 RtcGetPreYear(DATE_T *date)
{
	return RtcDateSubDays(date, TotDaysPerYear);	
}

/***********************************************************/
/*
功能：计算某一年的农历生肖；
输入：date--存放输入日期结构的地址；
	  solar--1==输入日期是阳历,0==输入日期是农历
返回：0~11
说明：0表示猴年；
*/
U8  RtcGetAnimalYear(DATE_T *date, U8 solar)
{
	return 0;
}

/*
功能：阳历转农历；
输入：src_date--存放输入输出日期结构的指针；
返回：0 --输出的农历是非润月,1--输出的农历是润月
说明：没有；  
*/
U8 RtcSolarConvertLunar(DATE_T *src_date)
{
	return 0;
} 

/*
功能：计算农历某个月有多少天；
输入：年，月；
返回：TRUE --日期正确,FALSE--日期错误；
说明：日期为农历；  
*/
U8 RtcLunarDayOfMonth(U16 year, U16 month)
{
	return 0;
}

/*
功能：农历转阳历；
输入：src_date--存放输入输出日期结构的指针,dec_date---如果输出的阳历有两个，这是存放第二个阳历的地址；
返回：0 --非润月，只输出一个阳历,1--润月，输出两个阳历,0xff--日期错误；
说明：如果农历月为润月，对应的阳历有两个日期；
*/
U8 RtcLunarConvertSolar(DATE_T *src_date, DATE_T *dec_date)
{
	return 0;
}