/*********************************************************************************
*  MCPSB.C	v1.00   測試MCBSP同步串口測試的主程序	                             *
*  版權(c) 	2003-		北京合眾達電子技術有限責任公司			                 *
*  設計者：	段立鋒								                                 *
**********************************************************************************/
#include "type.h"
#include "uart.h"
#include "sysreg.h"
#include "mcbsp54.h"
#include "comm.h"

#define mcbsp1   1
/*幀長度的設定*/
#define  FRAMLONGTH    0x104

#define  DataLongth   0x100

typedef struct _UartForDec5416{
	unsigned int Length;
	unsigned int Type;
	unsigned int Mutul;
	unsigned int Data[DataLongth];
	unsigned int Check;
}UartForDec5416, *PuartForDec5416; 

HANDLE uart_a =0;
unsigned int audiodata =0;
PuartForDec5416 precieve =0;	
unsigned int i= 0;
unsigned int k= 0;
int uart_s=0,uart_err=0,fifostatus=0;
PuartForDec5416 psend=0;
PAdConfig padset = 0;
unsigned int datasendlong = 0;
unsigned int errorsend = 0;
unsigned int uart[0x104] ={0};
unsigned int uarts[0x104] = {0};

char s_uart_r[20],s_uart_t[20];


main()
{
	/*設置系統時鐘*/
	sys_clk(CLK160);
	/*初始化DEC5416板卡*/
	dec5416_init();
	for(i= 0; i<0x104;i++)
	{
		uart[i] = 0x5555;
		uarts[i] = 0x5555;
	}
	/*同步串口選擇*/
	sys_set(0x10);
	/*同步串口初始化*/
	/****************************************************************/
	/* Place port in reset - setting XRST & RRST to 0               */
	/****************************************************************/
	/*進行發送復位*/
	MCBSP_SUBREG_BITWRITE(mcbsp1, SPCR1_SUBADDR, RRST, RRST_SZ, 0);
	/*進行接收復位*/
	MCBSP_SUBREG_BITWRITE(mcbsp1, SPCR2_SUBADDR, XRST, XRST_SZ, 0); 
	/****************************************************************/
	/* Set values of all control registers                          */
	/****************************************************************/
	/*設置SPCR1寄存器,禁止SPI模式*/
	MCBSP_SUBREG_WRITE(mcbsp1, SPCR1_SUBADDR, 0);
	/*設置XCR1寄存器，單數據相，發送數據長度為16位,每相1個數據*/
	MCBSP_SUBREG_WRITE(mcbsp1, XCR1_SUBADDR, 0x40);
	/*設置XCR2寄存器，發送數據延時一個位*/
	MCBSP_SUBREG_WRITE(mcbsp1, XCR2_SUBADDR, 0x1);
	/*設置RCR1寄存器，單數據相，接受數據長度為16位,每相1個數據*/
	MCBSP_SUBREG_WRITE(mcbsp1, RCR1_SUBADDR, 0x040);
	/*設置RCR2寄存器，單數據相,接收延時一個位*/
	MCBSP_SUBREG_WRITE(mcbsp1, RCR2_SUBADDR, 0x01);
	/*設置PCR寄存器，設置BLCKR為輸入，下降沿接收數據
	   		         設置BFSR為輸入，并且其極性為高有效
	   		         設置BCLKX由內部時鐘產生，并且上沿發送數據*/
	MCBSP_SUBREG_WRITE(mcbsp1, PCR_SUBADDR, 0xA00);
	/*使能波特率寄存器*/
 	MCBSP_SUBREG_BITWRITE(mcbsp1, SPCR2_SUBADDR, GRST, GRST_SZ, 1);
 	/*等待兩個CLKG時鐘周期*/
	asm(" nop ");
	asm(" nop ");
	/*設置SRGR1，確定分頻數為0x0FF，MCBSP2的波待率為625k
	，幀脈沖寬度為1個數據位，0x0FF*/
	MCBSP_SUBREG_WRITE(mcbsp1, SRGR1_SUBADDR, 0xFFFF);
	/*設置SRGR2，確定時鐘來源為內部的CPU
		           ，確定幀同步為低有效。*/
	MCBSP_SUBREG_WRITE(mcbsp1, SRGR2_SUBADDR, 0x2000);
	/*使能MCBSP2發送與接收*/
	MCBSP_SUBREG_BITWRITE(mcbsp1, SPCR1_SUBADDR, RRST, RRST_SZ, 1);
	MCBSP_SUBREG_BITWRITE(mcbsp1, SPCR2_SUBADDR, XRST, XRST_SZ, 1); 
	/*等待兩個CLKG時鐘周期*/
 	asm(" nop ");
	asm(" nop ");
	/**********************************************************************/
	/*  同步串口初始化結束                                                */
	/**********************************************************************/
	/*獲取有效的串口句柄*/
	uart_a = uart_open(UART_A);
	/*初始化串口*/
	uart_setup(uart_a,    /*串口A*/
			   buad_19k2,  /*串口的波特率設置*/
			   data_w8,   /*數據長度為8*/ 
			   data_s1,   /*數據停止位為1*/ 
			   //uart_parity,    /*設置奇較驗位*/	 
			   0,
			   (fifo_enable+fifo_txdip16+fifo_rxdip16),/*FIFO設置*/ 
			   0);       /*設置自閉環方式*/		   
	/*串口A中斷設置*/		   
	uart_interrupt_control( uart_a, uartint_rhr, uart_enable);
	/*設置接收長度*/
	uart_reclong_set(uart_a,FRAMLONGTH);
	/*打開系統的串口中斷*/
	sysint_enable(0x2);
	
	/*配置系統存儲器*/	
	memory_set(0x80);
	
	/*實驗主控程序*/
	psend =  (PuartForDec5416)(&uarts[0]);
	/*通知主機，系統準備好*/
	psend->Length = FRAMLONGTH;
	psend->Type = UARTCOMMAND;
	psend->Data[0] = INITOVER;
	psend->Mutul = UARTCONT;
	uart_send(uart_a,FRAMLONGTH, (unsigned int *)psend);
	for(;;)
	{	
		uart_recive(uart_a,&uart[0]);
		/*判斷串口的狀態*/
		uart_s =uart_status(uart_a);
		if( uart_s == 2)
		{
			/*讀RHR清 RHR interrupt*/
			uart_read_reg(uart_a,rhr);
			/*復位FIFO指針*/
			fifostatus = uart_read_reg(uart_a,fcr);
			uart_write_reg(uart_a,fcr,fifo_rreset);
			uart_write_reg(uart_a,fcr,fifostatus);
			continue;	
		}
		/*串口出錯*/
		if(uart_s == ERROR)
		{
			/*讀狀態寄存器*/
			uart_err = uart_read_reg(uart_a,lsr);
			/*復位FIFO指針*/
			fifostatus = uart_read_reg(uart_a,fcr);
			uart_write_reg(uart_a,fcr,fifo_rreset);
			uart_write_reg(uart_a,fcr,fifostatus);
			/*通知主機程序通訊出錯,準備重發*/
			psend->Length = FRAMLONGTH;
			psend->Type = UARTCOMMAND;
			psend->Data[0] =  RECIEVEERROR;
			psend->Mutul = UARTCONT;
			uart_send(uart_a,FRAMLONGTH, (unsigned int *)psend);
			continue;
		}
		/*數據較驗出錯*/
		if(uart_s == 3)
		{
			/*復位FIFO指針*/
			fifostatus = uart_read_reg(uart_a,fcr);
			uart_write_reg(uart_a,fcr,fifo_rreset);
			uart_write_reg(uart_a,fcr,fifostatus);
			/*通知主機程序通訊出錯,準備重發*/
			psend->Length = FRAMLONGTH;
			psend->Type = UARTCOMMAND;
			psend->Data[0] =  RECIEVEERROR;
			psend->Mutul = UARTCONT;
			uart_send(uart_a,FRAMLONGTH, (unsigned int *)psend);
			continue;	
		}
		/*數據未準備好*/
		if(uart_s == 0)
		{
			precieve = (PuartForDec5416)(&uart[0]);
			/*不是命令幀*/
			if(precieve->Type != UARTCOMMAND)
			{
				/*無效命令*/
				psend->Length = FRAMLONGTH;
				psend->Type = UARTCOMMAND;
				psend->Data[0] =  COMMANDNODO;
				psend->Mutul = UARTCONT;
				uart_send(uart_a,FRAMLONGTH, (unsigned int *)psend);
				precieve->Data[0] = 0;	
			}
			continue;
		}
		/*接收從主機的數據*/
		precieve = (PuartForDec5416)(&uart[0]);
		switch(precieve->Data[0])
		{
			/*打開同步串口*/	
			case MCBSPOPEN:
				/* Wait for sample from handset */
			   /* while (!MCBSP_RRDY(mcbsp1)) {};*/
			    if(MCBSP_RRDY(mcbsp1))
			    {
			       	/* Read sample from and write back to handset codec */
					s_uart_r[i] = *(volatile u16*)DRR1_ADDR(mcbsp1);
					*(volatile u16*)DXR1_ADDR(mcbsp1) = s_uart_r[i];			     
					s_uart_t[i] = s_uart_r[i];
					i = i+1;
					if(i == 20)
					{
					    i= 0;
					}
				}	     

/*			    if(MCBSP_XRDY(mcbsp1))
			  	{
			  		*(volatile u16*)DXR1_ADDR(mcbsp1) = s_uart_t[i];
			  	  	k = k+1;
					if(i == 20)
					{
					    k= 0;
					}		
			  	  }*/
			  	 break;
			case MCBSPCLOSE:
				precieve->Data[0] = 0;
				break;
				  	  
			/*系統復位*/
			case SYSRESET:
				sys_set(0x4);
				precieve->Data[0] = 0;
				break;
			
			default:
				break;
		} 		
	}					   
}