//====================================================================
// File Name : uart2.c
// Function  : S3C2440 UART-2 test code
// Program   : Shin, On Pil (SOP)
// Date      : May 30, 2002
// Version   : 0.0
// History
// -2410
//   0.0 : Programming start (February 20,2002) -> SOP
//   1.0 (20020530) : First release for customer
//   1.1 (20020801) : Strata NOR Flash Added and etc. -> SOP
// -2440
//   R0.0 (20030421): Modified for 2440. -> Junon
//====================================================================

#include <string.h>
#include <stdlib.h>
#include "2440addr.h"
#include "2440lib.h"
#include "def.h"
#include "uart0.h"
#include "uart2.h"

void __irq Uart2_TxInt(void);
void __irq Uart2_RxIntOrErr(void);
void __irq Uart2_TxDmaDone(void);
void __irq Uart2_RxDmaDone(void);
void __irq Uart2_RxDmaOrErr(void);
void __irq Uart2_TxFifo(void);
void __irq Uart2_RxFifoOrErr(void);

void __sub_Uart2_RxInt(void);
void __sub_Uart2_RxFifo(void);
void __sub_Uart2_RxErrInt(void);

volatile static char *uart2TxStr;
volatile static char *uart2RxStr;

//---------------------------------------UART2 test function-------------------------------------
void __irq Uart2_TxInt(void)
{
    rINTSUBMSK|=(BIT_SUB_RXD2|BIT_SUB_TXD2|BIT_SUB_ERR2);	// Just for the safety
    if(*uart2TxStr != '\0')
    {
    	WrUTXH2(*uart2TxStr++);
        ClearPending(BIT_UART2);	// Clear master pending
        rSUBSRCPND=(BIT_SUB_TXD2);
        rINTSUBMSK&=~(BIT_SUB_TXD2);	// Unmask sub int
    }
    else
    {
    	isTxInt=0;
        ClearPending(BIT_UART2);	// Clear master pending
        rSUBSRCPND=(BIT_SUB_TXD2);
        rINTMSK|=(BIT_UART2);		// Unmask sub int
    }
}

void __irq Uart2_RxIntOrErr(void)
{
    rINTSUBMSK|=(BIT_SUB_RXD2|BIT_SUB_TXD2|BIT_SUB_ERR2);
    if(rSUBSRCPND&BIT_SUB_RXD2) __sub_Uart2_RxInt();
    else __sub_Uart2_RxErrInt();

    ClearPending(BIT_UART2);
    rSUBSRCPND=(BIT_SUB_RXD2|BIT_SUB_ERR2);	// Clear Sub int pending    
    rINTSUBMSK&=~(BIT_SUB_RXD2|BIT_SUB_ERR2);    
}

void __irq Uart2_TxDmaDone(void)
{
    rDMASKTRIG3=0x0;	// Stop Dma3
    isDone=0;
    rINTMSK |= BIT_DMA3;
    ClearPending(BIT_DMA3);
}

void __irq Uart2_RxDmaDone(void)
{
    rDMASKTRIG3=0x0;	//DMA3 Channel Off
    isDone=0;
    *(uart2RxStr+5)='\0';
    rINTMSK|=(BIT_DMA3);
    ClearPending(BIT_DMA3);
}

void __irq Uart2_RxDmaOrErr(void)
{
    rINTSUBMSK|=(BIT_SUB_RXD2|BIT_SUB_TXD2|BIT_SUB_ERR2);
    if(rSUBSRCPND&BIT_SUB_RXD2) Uart_Printf("Error : UART2 Rx Interrupt is occured!!!\n");
    else __sub_Uart2_RxErrInt();

    ClearPending(BIT_UART2);
    rSUBSRCPND=(BIT_SUB_ERR2);	// Clear Sub int pending    
    rINTSUBMSK&=~(BIT_SUB_ERR2);    
}

void __irq Uart2_TxFifo(void)
{
    rINTSUBMSK|=(BIT_SUB_RXD2|BIT_SUB_TXD2|BIT_SUB_ERR2);	// Just for the safety
    while (!(rUFSTAT2 & 0x4000) && (*uart2TxStr != '\0')) 	//until tx fifo full or end of string
    	WrUTXH2(*uart2TxStr++);	

    if(*uart2TxStr == '\0') 
    {
    	rINTMSK|=BIT_UART2;
        rSUBSRCPND=BIT_SUB_TXD2;	// Clear Sub int pending
        ClearPending(BIT_UART2);	// Clear master pending
    }
    else 
    {
        ClearPending(BIT_UART2);	// Clear master pending
        rSUBSRCPND=BIT_SUB_TXD2;	// Clear Sub int pending
        rINTSUBMSK&=~(BIT_SUB_TXD2);	// Unmask sub int
    }
}

void __irq Uart2_RxFifoOrErr(void)
{
    rINTSUBMSK|=(BIT_SUB_RXD2|BIT_SUB_TXD2|BIT_SUB_ERR2);
    if(rSUBSRCPND&BIT_SUB_RXD2) __sub_Uart2_RxFifo();
    else __sub_Uart2_RxErrInt();
    ClearPending(BIT_UART2);
    rSUBSRCPND=(BIT_SUB_RXD2|BIT_SUB_ERR2);
    rINTSUBMSK&=~(BIT_SUB_RXD2|BIT_SUB_ERR2);
}

void __sub_Uart2_RxInt(void)
{
    if(RdURXH2()!='\r') 
    {
    	Uart_Printf("%c",RdURXH2());
       *uart2RxStr++ =(char) RdURXH2();
    }
    else
    {
    	isRxInt=0;
    	*uart2RxStr='\0';
    	Uart_Printf("\n");
    }
}

void __sub_Uart2_RxFifo(void)
{
    while(rUFSTAT2&0x7f)	//During the Rx FIFO is not empty
    {
	rx_point++;
	if(rx_point<5)
		 rx_filesize |= (RdURXH2()<<(8*(rx_point-1))); // First 4-bytes mean file size
	else if(rx_point>(rx_filesize-2))	
	{
		rx_dncs |= (RdURXH2()<<(8*(1-(rx_filesize-rx_point)))); //Last 2-bytes mean checksum.
		if(rx_point==rx_filesize) rx_isdone=0;
	}
	else
		rx_checksum+=RdURXH2();
    }
}

  
void __sub_Uart2_RxErrInt(void)
{
    switch(rUERSTAT2)//to clear and check the status of register bits
    {
	case 1:
	    Uart_Printf("Overrun error\n");
	    break;
	case 2:
	    Uart_Printf("Parity error\n");
	    break;
	case 4:
	    Uart_Printf("Frame error\n");
	    break;
	case 8:
	    Uart_Printf("Breake detect\n");
	    break;
	default :
	    break;
    }
   	isRxInt=0;
}


void Test_Uart2_Int(void)
{
	U8 ch;
	
    Uart_Port_Set(); 
    // Additional configuration for UART2 port
    //rGPHCON&=0x3fafff;      // TXD2,RXD2
    Uart_Select(1);    

	/******** For operating clock test *********/
	Uart_Printf("[Uart channel 0 Interrupt test]\n");
	Uart_Printf("Select operating clock 1. PCLK(D)    2. UCLK     3. FCLK/n  \nChoose : ");
	ch = Uart_Getch();
	switch (ch)
	{
	case '2' :
		Uart_Uextclk_En(2, 115200, 14745600);
		break;
	case '3' :
		Uart_Fclkn_En(2, 115200);
		break;
	default :
		Uart_Pclk_En(2, 115200);
	}
	
	/******** Select UART or IrDA *********/
	Uart_Printf("Select 1. UART or 2. IrDA(D) mode\nChoose : ");
	if (Uart_Getch() == '1')
		rULCON2 &= ~(1<<6); // UART mode
	else
		rULCON2 |= (1<<6); // IrDA mode


    /*********** UART2 Tx test with interrupt ***********/  
    isTxInt=1;
    uart2TxStr="ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890->UART2 Tx interrupt test is good!!!!\r\n";
    Uart_Printf("[Uart channel 2 Tx Interrupt Test]\n");

    //-------------------------------------------------------------------------------------------->
    Uart_Printf("Jumper Setting  <======> J17:2-3, J19:2-3, J16: 1-2, J18:1-2");
    Uart_Printf("\nConnect PC[COM1 or COM2] and UART2 of SMDK2440 with a serial cable!!! \n");
    Uart_Printf("Then, press any key........\n");
    Uart_Select(2);	// Change the uart port    
    Uart_Getch();
    //----------------------------------------->

    pISR_UART2=(unsigned)Uart2_TxInt;

    rULCON2=(0<<6)|(0<<3)|(0<<2)|(3);	// Normal,No parity,One stop bit, 8bit
    rUCON2 |= (TX_INTTYPE<<9)|(RX_INTTYPE<<8)|(0<<7)|(0<<6)|(0<<5)|(0<<4)|(1<<2)|(1);
    //Clock,Tx:Def,Rx:Def,Rx timeout:x,Rx error int:x,Loop-back:x,Send break:x,Tx:int,Rx:int