//Main.c
//按鍵與走馬燈程序
#include "global.c" 
void SystemInit();
void Timer1Init(); 
void KickDog();  
void KeyLed();
unsigned int numled0=200,numkey=0,numled=0,numled_back=200;   
unsigned int t0=0,t0_back=0,test;   
unsigned int PB6_FLAG=0;

main()
{  

   SystemInit();         	//系統初始化
   
   MCRA=MCRA & 0x80FF; 	    //IOPB0-6設為IO口模式
   PBDATDIR=0xBFC2;   	    //所有LED=0,并置IOPB6為輸入口 
   
   Timer1Init();          	//定時器初始化
   asm(" CLRC INTM ");
   while(1)
   {
   		KeyLed();
   } 
   
}

void SystemInit() 
{  
 
	asm(" SETC	INTM ");	//關閉總中斷 
	asm(" CLRC  SXM  ");	//禁止符號位擴展 
	asm(" CLRC  CNF  ");    // B0塊映射為 on-chip DARAM
	asm(" CLRC  OVM  ");    // 累加器結果正常溢出
	SCSR1=0x83FE;         	// 系統時鐘CLKOUT=20*2=40M 
	WDCR=0x006F;			//禁止看門狗,看門狗時鐘64分頻 
	KickDog();    		// 初始化看門狗  
    IFR=0xFFFF;			// 清除中斷標志 
    IMR=0x0002;				//打開中斷2      
    
}  

void Timer1Init()           
{ 

    EVAIMRA=0x0080;			//  定時器1周期中斷使能 
    EVAIFRA=0xFFFF;			//  清除中斷標志 
    GPTCONA=0x0000;
	T1PR=2500;				//  定時器1初值,定時0.4us*2500=1ms 			
	T1CNT=0;
	T1CON=0x144E;              //增模式, TPS系數40M/16=2.5M,T1使能
				
}  

void KeyLed()
{   
   
   if((numled!=numled_back)&&((numled%200)==0))   
	{ numled_back=numled;  
    
   	  if(numkey==1)
   		{	PBDATDIR=PBDATDIR & 0xFFdb;        
			if((PBDATDIR & 0x0018)==0x0018) 
				PBDATDIR=PBDATDIR & 0xFFe7;   
			else
				PBDATDIR=PBDATDIR |0x1818;     
		}
      if(numkey==2)
   		{	PBDATDIR=PBDATDIR & 0xFFe7;
			if((PBDATDIR & 0x0024)==0x0024) 
				PBDATDIR=PBDATDIR & 0xFFdb;     
			else
				PBDATDIR=PBDATDIR |0x2424;     
		}
      if(numkey==3)
   		{	PBDATDIR=PBDATDIR & 0xFFff;
			if((PBDATDIR & 0x003c)==0x003c) 
				PBDATDIR=PBDATDIR & 0xFFc3;      
			else
				PBDATDIR=PBDATDIR |0x3c3c;     
		}
      if(numkey==4)
   		{	
   		
			if(numled==400)       //200ms    
			{
			    PBDATDIR=PBDATDIR & 0xFFC3;      
   			}
   			if(numled==600)       //400ms  
   			  {
   			    PBDATDIR=PBDATDIR & 0xFFC3;      
				PBDATDIR=PBDATDIR | 0x0404;        				
			  }  
			if(numled==1000)       //600ms  
			  {
				PBDATDIR=PBDATDIR & 0xFFC3;      
				PBDATDIR=PBDATDIR | 0x0808;    
			  }
			if(numled==1600)       //800ms    
			  {
				PBDATDIR=PBDATDIR & 0xFFC3;      
				PBDATDIR=PBDATDIR | 0x1010;    
			  }
			if(numled==2400)       //1000ms  
			  { 
			  	PBDATDIR=PBDATDIR & 0xFFC3;      
				PBDATDIR=PBDATDIR | 0x2020;   
			  }  
			if(numled==3400)         
			    PBDATDIR=PBDATDIR | 0x3c3c;    
		}      
	if(numled>=3400)   numled=1;	
	
    }  
    
} 
void c_int2()               //定時器1中斷服務程序
{

    if(PIVR!=0x27)
		{  	asm(" CLRC INTM ");
			return;
		}
	T1CNT=0; 
	numled++;
	t0++;

	numled0--;  

	if(numled0==0)
	{
		numled0=200;
		if((PBDATDIR & 0x0001)==0x0001) 
			PBDATDIR=PBDATDIR & 0xFFFE;    	//IOPB0=0;LED滅  
		else
			PBDATDIR=PBDATDIR |0x0101;     	//IOPB0=1;LED亮 
	} 
	if((PB6_FLAG==0)&&((t0%50)==0))         //每50ms查詢一次按鍵
	{
		if((PBDATDIR & 0x0040)!=0x0040)		//若有按鍵情況,IOPB6=0 
		{
			t0_back=t0;  
			PB6_FLAG=1;  
		}
	}	  
	if(t0==(t0_back+100))     //按鍵濾波,100ms后查詢仍然為低電平,則認可按鍵有效
	{ 
	  	t0_back=0;
		if(PB6_FLAG==1)   
		{ 
		  	PB6_FLAG=0;
   		  	if((PBDATDIR & 0x0040)!=0x0040)	//若有按鍵仍為低,IOPB6=0 
	   			numkey++; 
			if(numkey==4)
	   			numled=399;
	    	if(numkey==5)  numkey=1;        //按鍵標志循環1~4
	    }			
	}  
    
	EVAIFRA=0x80; 
	asm(" CLRC	INTM ");   
	
}  

void KickDog()				     //踢除看門狗 
{
	WDKEY=0x5555;
	WDKEY=0xAAAA;
}