#include "ICETEK-C6713-A.h"

#define nStatusNSGreenEWRed 160
#define nStatusNSFlashEWRed 184
#define nStatusNSYellowEWRed 200
#define nStatusNSRedEWYellow 216
#define nStatusNSRedEWGreen 376
#define nStatusNSRedEWFlash 400
#define nStatusNSRedEWYellow1 416
#define nStatusNSYellowEWRed1 432
#define nTotalTime 448
#define nStatusHold 160

#define statusNSGreenEWRed 0
#define statusNSFlashEWRed 1
#define statusNSYellowEWRed 2
#define statusNSRedEWYellow 3
#define statusNSRedEWGreen 4
#define statusNSRedEWFlash 5
#define statusHold 6

void InitDSP();
void InitInterrupt();
void SetLEDArray1(int nNumber);		// 修改顯示內容
void RefreshLEDArray();			// 刷新顯示

unsigned int uWork,nTimeCount;
unsigned short int uLightStatusEW,uLightStatusSN;
unsigned int bHold;
unsigned char ledbuf[8],ledx[8];
unsigned char mled[40]=
{
	0x7E,0x81,0x81,0x7E,0x00,0x02,0xFF,0x00,
	0xE2,0x91,0x91,0x8E,0x42,0x89,0x89,0x76,
	0x38,0x24,0x22,0xFF,0x4F,0x89,0x89,0x71,
	0x7E,0x89,0x89,0x72,0x01,0xF1,0x09,0x07,
	0x76,0x89,0x89,0x76,0x4E,0x91,0x91,0x7E
};
main()
{
	int nWork1,nWork2,nWork3,nWork4;
	int nNowStatus,nOldStatus,nOldTimeCount,nSaveTimeCount,nSaveStatus;
	unsigned int nScanCode;
	
	nTimeCount=0; bHold=0;
	uLightStatusEW=uLightStatusSN=0;
	nNowStatus=0; nOldStatus=1; nOldTimeCount=0;
    init_emif();	// 初始化emif
    InitCTR();		// 初始化ICETEK-CTR
    CTRGR=2;		// IOPE=1 打開I/O端口控制指示燈功能, 見ICETEK-CTR的全局控制寄存器描述
    CTRLR=0x0c1;	// 打開發光二極管陣列
	// 清除顯示
	for ( nWork1=0;nWork1<8;nWork1++ )
	{
		ledbuf[nWork1]=0x0ff;		// 顯示為空白
		ledx[nWork1]=(nWork1<<4);	// 生成顯示列控制字
	}
	RefreshLEDArray();
	InitInterrupt();
	// 根據計時器計數切換狀態
	// 根據狀態設置計數和交通燈狀態
	while ( 1 )			
	{
		if ( bHold && nNowStatus==statusHold )	
		{
			if ( nTimeCount>=nStatusHold )
			{
				nNowStatus=nSaveStatus;
				nTimeCount=nSaveTimeCount;
				bHold=0;
			}
		}
		else if ( nTimeCount<nStatusNSGreenEWRed )	nNowStatus=statusNSGreenEWRed;
		else if ( nTimeCount<nStatusNSFlashEWRed )	nNowStatus=statusNSFlashEWRed;
		else if ( nTimeCount<nStatusNSYellowEWRed )	nNowStatus=statusNSYellowEWRed;
		else if ( nTimeCount<nStatusNSRedEWYellow )	nNowStatus=statusNSRedEWYellow;
		else if ( nTimeCount<nStatusNSRedEWGreen )	nNowStatus=statusNSRedEWGreen;
		else if ( nTimeCount<nStatusNSRedEWFlash )	nNowStatus=statusNSRedEWFlash;
		else if ( nTimeCount<nStatusNSRedEWYellow1 )	nNowStatus=statusNSRedEWYellow;
		else if ( nTimeCount<nStatusNSYellowEWRed1 )	nNowStatus=statusNSYellowEWRed;
		if ( nNowStatus==nOldStatus )
		{
			switch ( nNowStatus )
			{
				case statusNSFlashEWRed:
					nWork1=nTimeCount-nStatusNSGreenEWRed;
					nWork2=nStatusNSYellowEWRed-nStatusNSFlashEWRed;
					nWork3=nWork2/3;
					nWork4=nWork3/2;
					if ( nWork1>=0 && nWork2>0 && nWork3>0 && nWork4>0 )
						uLightStatusSN=( (nWork1%nWork3)<=nWork4 )?(0x49):(0x40);
					break;
				case statusNSRedEWFlash:
					nWork1=nTimeCount-nStatusNSRedEWGreen;
					nWork2=nStatusNSRedEWYellow1-nStatusNSRedEWFlash;
					nWork3=nWork2/3;
					nWork4=nWork3/2;
					if ( nWork1>=0 && nWork2>0 && nWork3>0 && nWork4>0 )
						uLightStatusEW=( (nWork1%nWork3)<=nWork4 )?(0x09):(0x00);
					break;
				case statusNSGreenEWRed:
					nWork1=nStatusNSGreenEWRed/20;
					if ( nWork1>0 )
					{
						nWork2=20-nTimeCount/nWork1;
						if ( bHold )
						{
							if ( nWork2>10 )
							{
								nTimeCount=nWork1*10;
								nWork2=10;
							}
						}
						if ( nOldTimeCount!=nWork2 )
						{
							nOldTimeCount=nWork2;
							SetLEDArray1(nWork2);
						}
					}
					break;
				case statusNSRedEWGreen:
					nWork1=(nStatusNSRedEWGreen-nStatusNSRedEWYellow)/20;
					if ( nWork1>0 )
					{
						nWork2=20-(nTimeCount-nStatusNSRedEWYellow)/nWork1;
						if ( bHold )
						{
							if ( nWork2>10 )
							{
								nTimeCount=nStatusNSRedEWYellow+nWork1*10;
								nWork2=10;
							}
						}
						if ( nOldTimeCount!=nWork2 )
						{
							nOldTimeCount=nWork2;
							SetLEDArray1(nWork2);
						}
					}
					break;
				case statusHold:
					nWork1=nStatusHold/20;
					if ( nWork1>0 )
					{
						nWork2=20-nTimeCount/nWork1;
						if ( nOldTimeCount!=nWork2 )
						{
							nOldTimeCount=nWork2;
							SetLEDArray1(nWork2);
						}
					}
					break;
			}
		}
		else
		{
			if ( bHold )
			{
				nSaveStatus=nNowStatus;
				nSaveTimeCount=nTimeCount;
				nNowStatus=statusHold;
				nTimeCount=0;
				if ( nSaveStatus==statusNSFlashEWRed || nSaveStatus==statusNSYellowEWRed )
				{
					nSaveStatus=statusNSRedEWGreen;
					nSaveTimeCount=nStatusNSRedEWYellow;
				}
				else if ( nSaveStatus==statusNSRedEWFlash || nSaveStatus==statusNSRedEWYellow )
				{
					nSaveStatus=statusNSGreenEWRed;
					nSaveTimeCount=0;
				}
			}
			nOldStatus=nNowStatus;
			switch ( nNowStatus )
			{
				case statusNSGreenEWRed:
					uLightStatusEW=0x24; uLightStatusSN=0x49;
					SetLEDArray1(20);
					break;
				case statusNSFlashEWRed:
					uLightStatusEW=0x24; uLightStatusSN=0x49;
					SetLEDArray1(0);
					break;
				case statusNSYellowEWRed:
					uLightStatusEW=0x24; uLightStatusSN=0x52;
					SetLEDArray1(20);
					break;
				case statusNSRedEWYellow:
					uLightStatusEW=0x12; uLightStatusSN=0x64;
					SetLEDArray1(20);
					break;
				case statusNSRedEWGreen:
					uLightStatusEW=0x09; uLightStatusSN=0x64;
					SetLEDArray1(20);
					break;
				case statusNSRedEWFlash:
					uLightStatusEW=0x09; uLightStatusSN=0x64;
					SetLEDArray1(0);
					break;
				case statusHold:
					uLightStatusEW=0x24; uLightStatusSN=0x64;
					SetLEDArray1(20);
					break;
			}
		}
		CTRLR=uLightStatusEW; CTRLR=uLightStatusSN;	// 設置交通燈狀態	
		RefreshLEDArray();	// 刷新發光二極管顯示
		nScanCode=CTRKEY;	// 讀鍵盤掃描碼
		nScanCode&=0x0ff;
		if ( nScanCode==SCANCODE_Enter )	break;
	}
	CloseCTR();
	exit(0);
}

// 定時器中斷服務程序，進行時鐘計數
void interrupt Timer()
{
	nTimeCount++;
	nTimeCount%=nTotalTime;
}

// 設置發光二極管顯示內容
void SetLEDArray1(int nNumber)
{
	int i,k,kk,kkk;
	
	kkk=nNumber; 
	k=kkk/10*4; kk=kkk%10*4;
	for ( i=0;i<4;i++ )
	{
		ledbuf[7-i]=~mled[k+i];
		ledbuf[3-i]=~mled[kk+i];
	}
}

void InitInterrupt()
{
	// 設置中斷控制寄存器
	CSR&=0xfffffffe;	// 關中斷 GIE=0
	ISTP=0x00000c00;	// 重置中斷向量表到0C00h
   	IMH=0x08000000;		// 指定Timer1產生int15中斷
   	IML=0x0a0;			// 指定xint5中斷
   	ICR=0xff;			// 清除等待的中斷
	IER=0x8023;			// 使能int15、xint5中斷
	// 設置定時器產生中斷信號的頻率
	TIMER1PRD=781250;	// 定時器1的周期=781250, 0.25s
	TIMER1CTL=0x3c0;	// 開始計數
	CSR=CSR|1; 			// 開中斷
}

void interrupt XINT5(void)	// XINT2中斷服務程序
{
	bHold=1;
}