#include <iom16v.h>
#include <macros.h>

#define  uchar unsigned char
#define  uint  unsigned int

#define Busy 0X80            //用于检测LCM状态字中的HF标识

#define LCD_RS  PB0
#define LCD_RW  PB1
#define LCD_E   PB2

#define LCD_MAN  PINA        //当数据口内容与0X80后不为零时，程序原地踏步继续读取数据并检测忙信号
#define LCD_DATA PORTA            

#pragma interrupt_handler  miao:10

uchar Data[]={0,0,0,0,0,0,0,0};     //显示初始值：000000
uint CNT=0;                         //初始计数值：0
uchar Timer[]={0x00,0x00,0x00,0x00};//显示初始时间

const uchar table[]={"I LOVE YOU !"}; //双引号表示把里面的字符转化为ASCLL码
const uchar table1[]="TIME:               ";    //把数组存放在程序存储区

void delay(uint ms)
{
        uint i,j;
	for(i=0;i<ms;i++)
	   {
	   for(j=0;j<1141;j++);
       }
}
/*********************IO口初始化********************/
void Init_IO()
{
 	 DDRA = 0XFF;
	 PORTA = 0XFF;
	 DDRB = 0XFF;
	 PORTB = 0XFF;
	 DDRC = 0XFF;
	 PORTC = 0XFF;
	 DDRD = 0XFF;
	 PORTD = 0XFF; 
}
/*********************检测忙 读状态******************/
void  Read_Man()
{
 	 DDRA  &= ~BIT(7);      //设置为输出
     PORTB &= ~BIT(LCD_RS);//   数据1/指令0
	 PORTB |= BIT(LCD_RW); //读1/写0
	 PORTB |= BIT(LCD_E);  //高电平使能
	 
	 while(LCD_MAN & Busy);	 //忙等待
	 PORTB &= ~BIT(LCD_E);
	 DDRA |= BIT(7);          //设置为输出
}
/*********************写数据********************/
  void Write_data(uchar dat)
  {
   	 Read_Man();
	 DDRA=0XFF;
	
	 PORTB |= BIT(LCD_RS);
	 PORTB &= ~BIT(LCD_RW);
	 PORTB |= BIT(LCD_E);
	  LCD_DATA=dat; 
	  delay(1);           //若晶振频率过高，可加延时
	 
	 PORTB &= ~BIT(LCD_E);  
  }

/*********************写指令*********************/ 
 void  Write_com(uchar com,uchar Busy_y)
 {
  	  if(Busy_y)
	  Read_Man();
	  DDRA=0XFF;
	
	 PORTB &=~ BIT(LCD_RS);
	 PORTB &=~ BIT(LCD_RW);
	 PORTB |= BIT(LCD_E);
	
	   LCD_DATA=com;
	    delay(1);
	 
	 PORTB &= ~BIT(LCD_E);    
 }
 /********************LCD初始化*********************/
 void LCD_Init()
 {
  	  DDRA = 0XFF;
	  PORTA = 0XFF;   //全部加上上拉电阻
	  
	  delay(30);    //等待上电稳定
	  
	  Write_com(0X38,0);//16*2显示，5*7点阵，8位数据
	  delay(5);
	 Write_com(0X38,0);  //三次显示模式设置，不检测忙信号
	  delay(5);
	 Write_com(0X38,0);
	  delay(5);
	  
	 Write_com(0X38,1);   //显示模式设置（8位，2行，5*7），开始要求每次检测忙信号
	 delay(5);
	 Write_com(0x01,1);   //清除LCD的显示内容
	 delay(5);
	 Write_com(0x06,1);   //移动光标
	 delay(5);
	 Write_com(0x0c,1);   //显示开、关光标
	 delay(5);
 }
 /***********************设定显示设置****************/
 void LCD_POS(uchar pos)
 {
  	  Write_com(pos|0x80,1);
 }
 /********************************************************

 计数值处理函数。
 参数p1:时间数组名；参数p2:显示数组名
 功能：此函数用于将计数值拆分为BCD码
 
********************************************************/
void Process(uchar *p1,uchar *p2) 
{
  p2[0]=p1[0]/10+0x30;        //时十位
  p2[1]=(p1[0]%10)+0x30;      //时个位
  p2[2]=p1[1]/10+0x30;        //分十位
  p2[3]=(p1[1]%10)+0x30;      //分个位
  p2[4]=p1[2]/10+0x30;        //秒十位
  p2[5]=(p1[2]%10)+0x30;      //秒个位
  p2[6]=p1[3]/10+0x30;      //ms百位
  p2[7]=(p1[3]%10)+0x30;    //ms十位
  
  LCD_POS(0X45);
  Write_data(p2[0]);
  Write_data(p2[1]);
  Write_data(0X3A);
  Write_data(p2[2]);
  Write_data(p2[3]);
  Write_data(0X3A);
  
  Write_data(p2[4]);
  Write_data(p2[5]);
  Write_data(0X3A);
  Write_data(p2[6]);
  Write_data(p2[7]);
}
 /*********************主函数**********************/
void main()
{
 	 uchar i;
	 Init_IO();
	 PORTC = 0XFF;    //熄灭所有的LED
	 
	 // TCCR0= 0X02;               //T/C0工作于定时方式，系统时钟8分频
      TCCR0 = BIT(CS01);
	//  TCNT0=0X00;                    //计数初始值 
     TCNT0 = 0X00;
	 // TIMSK = BIT(0);           //允许定时器0中断
      TIMSK = BIT(TOIE0);
	//  SREG|=BIT(7);            //开放总中断
	  SREG = SREG|0X80;
	 
	  LCD_Init();
	 
	  LCD_POS(0X00);
	  for(i=0;i<12;i++)    //显示12个字条
	     Write_data(table[i]);
	 
	  LCD_POS(0X40);//第2行数据指针设置
	  for(i=0;i<5;i++)
	  Write_data(table1[i]);
    
	 Process(Timer,Data);                                                        
}
 /***********************钞表**********************/
 void miao()
 {
  TCNT0=6;                      //重装计数初始值250
 if(++CNT==40)                //10ms溢出一次
 {
     CNT=0;                     //计数到400次，计数值复位
	Timer[3]++;               //毫秒十位加1  
     if(Timer[3]==100)
     {
	   Timer[3]=0;
       Timer[2]++;             //秒进位
	 }          
     if(Timer[2]==60)
     {
	   Timer[2]=0;
       Timer[1]++;             //分进位  
	 }           
     if(Timer[1]==60)
     {
	   Timer[1]=0;
	   Timer[0]++;            //时进位
	 }         
	 if(Timer[0]==24)
     Timer[0]=0;              //计数复位
    }    
  }