#include<iom8v.h>
#include<macros.h>
/***復位腳*****/
#define RST_CLR PORTB&=~(1<<PB2)                                       //電平置地
#define RST_SET PORTB|=(1<<PB2)                                        //電平置高
#define RST_IN DDRB&=~(1<<PB2)                                         //方向輸入
#define RST_OUT DDRB|=(1<<PB2)                                         //方向輸出
/*****雙向數據******/
#define IO_CLR PORTB&=~(1<<PB1)                                        //電平置低
#define IO_SET PORTB|=(1<<PB1)                                         //電平置高
#define IO_R PINB&(1<<PB1)                                             //電平讀取
#define IO_IN DDRB&=~(1<<PB1)                                          //方向輸入
#define IO_OUT DDRB|=(1<<PB1)                                          //方向輸出
/*********時鐘信號********/
#define SCK_CLR PORTB&=~(1<<PB0)                                       // 時鐘信號
#define SCK_SET PORTB|=(1<<PB0)                                        // 電平置高
#define SCK_IN DDRB&=~(1<<PB0)                                         //方向輸入
#define SCK_OUT DDRB|=(1<<PB0)                                          //方向輸出
/******************函數聲明********************/
uchar read_byte(void);                                                 //讀一個字節數據
void write_byte(uchar dat);                                            //寫一字節數據
void write_ds1302(uchar addr,uchar data);                              //在指定地址寫一字節數據
void set_ds1302(uchar addr,uchar *p,uchar n);                          //設置初始化
void init_ds1302(void);                                                //初始化函數
/***************從DS1302中讀一個字節數據********************/
uchar read_byte(void)
{
    uchar i,dat=0;
	IO_IN;
	IO_CLR;
	for(i=0;i<7;i++)
	{
	    SCK_SET;
		delay_us(10);
		SCK_CLR;
		delay_us(10);
		if(IO_R)
		    dat|=0X80;
		else
		    dat&=0X7F;
		SCK_SET;
		dat=dat>>1;	
	}
	IO_OUT;
	return dat;
}
/***************從DS1302中寫一個字節數據********************/
void write_byte(uchar dat)
{
    uchar i;
	for(i=0;i<8;i++)
	{
	    SCK_CLR;
		if(dat&0X01)
		    IO_SET;
		else 
		    IO_CLR;
		delay_us(10);
		SCK_SET;
		dat>>=1;			
	}
}
/*********************在指定的地址讀一字節數據************************/
uchar read_ds1302(uchar addr)
{
    char data;
    RST_CLR;
	SCK_CLR;
	delay_us(10);
	RST_SET;
	delay_us(10);
	write_byte(addr);
	delay_us(10);
	data=read_byte();
	delay_us(10);
	SCK_CLR;
	RST_CLR;
	//DDRD|=(1<<PD3);
	//delay_us(100);
	//DDRD&=~(1<<PD3);
	return data;
}
void write_ds1302(uchar addr,uchar data)
{
    RST_CLR;
	SCK_CLR;
	delay_us(10);
	RST_SET;
	delay_us(10);
	write_byte(addr);
	delay_us(10);
	SCK_CLR;
	delay_us(10);
	write_byte(data);
	SCK_CLR;
	delay_us(10);
	RST_CLR;
}
/************************設置初始化函數*******************************/
void set_ds1302(uchar addr,uchar *p,uchar n)
{
    write_ds1302(0X8E,0X00);
	for(;n>0;n--)
	{
	    write_ds1302(addr,*p);
		p++;
		addr=addr+2;
	}
	write_ds1302(0X8E,0X80);
}
/**********************初始化DS1302函數*******************************/
void init_ds1302(void)
{
    RST_CLR;
	SCK_CLR;
	RST_OUT;
	SCK_OUT;
	write_ds1302(0X80,0X00);
	write_ds1302(0X90,0XAB);
	write_ds1302(0X8E,0X80);
}