irda.c

一个介绍在S3C2440上实现红外线的源代码程序

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

#define IrDA_BUFLEN 0x100

void  IrDA_Port_Init(void);

void __irq IrDA_TxInt(void);
void __irq IrDA_RxOrErr(void);
void IrDA_SUB_RxInt(void);
void IrDA_SUB_RxErrInt(void);

volatile U8 *IrDAdataPt;
volatile U8 *IrDAdataFl;
volatile U32 IrDA_cnt,IrDA_end,IrDA_err,IrDA_BAUD;


void IrDA_Port_Init(void)
{
    //Configure IrDA port
    rGPHCON &= ~(0xf<<12);
    rGPHCON |= (0x9<<12); // GPH6->TXD[2];GPH7->RXD[2]
    rGPHUP |= (3<<6);  //Uart port pull-up disable
}       
        

void __irq IrDA_TxInt(void)
{   
    //关闭UART2子中断
    rINTSUBMSK|=(BIT_SUB_RXD2|BIT_SUB_TXD2|BIT_SUB_ERR2);
    if(IrDA_cnt < (IrDA_BUFLEN))
    {
	Uart_Printf("%d,",*IrDAdataPt);
	WrUTXH2(*IrDAdataPt++);
	IrDA_cnt++;
	//清除UART2中断
	ClearPending(BIT_UART2);
    //清除TXD2子中断
    rSUBSRCPND=(BIT_SUB_TXD2);
    //开TXD2子中断
    rINTSUBMSK&=~(BIT_SUB_TXD2);
    }
    else
    {
	IrDA_end=1;
	while(rUFSTAT2 & 0x2f0);	//Until FIFO is empty
	while(!(rUTRSTAT2 & 0x4));	//Until Tx shifter is empty
    //清除TXD2子中断
    ClearPending(BIT_UART2);
	//关UART2
	rINTMSK|=BIT_UART2;
    }
}

//发送出错中断处理
void __irq IrDA_RxOrErr(void)
{   
    //关闭UART2子中断
    rINTSUBMSK|=(BIT_SUB_RXD2|BIT_SUB_TXD2|BIT_SUB_ERR2);	// Just for the safety
    //判断为发送数据中断
    if(rSUBSRCPND&BIT_SUB_RXD2) IrDA_SUB_RxInt();
    //判断为发送错误中断
    else IrDA_SUB_RxErrInt();
    //清除UART2的子中断
    rSUBSRCPND=(BIT_SUB_RXD2|BIT_SUB_TXD2|BIT_SUB_ERR2);
    //开子中断
    rINTSUBMSK&=~(BIT_SUB_RXD2|BIT_SUB_ERR2);
    //清除UART2中断
    ClearPending(BIT_UART2);
}

//接收数据中断
void IrDA_SUB_RxInt(void)
{
    //FIFO中有数据
    while( (rUFSTAT2 & 0x100) || (rUFSTAT2 & 0xf)  )
    {
	*IrDAdataPt=rURXH2;
	*IrDAdataPt++;
	IrDA_cnt++;
    }
    if(IrDA_cnt >= IrDA_BUFLEN)
    {
    	IrDA_end=1;
    	//关UART2
    	rINTMSK|=BIT_UART2;
    }
}

//接收出错中断处理
void IrDA_SUB_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;
    }
}


//红外模块发送测试程序
void Test_IrDA_Tx(void)
{
    int i;
    IrDA_cnt=0;
    IrDA_end=0;
    IrDAdataFl=(volatile U8 *)IrDABUFFER;
    IrDAdataPt=(volatile U8 *)IrDABUFFER;
    IrDA_Port_Init();
    for(i=0;i<IrDA_BUFLEN;i++) *IrDAdataFl++=i;	// Initialize IrDA Tx data
    pISR_UART2=(U32)IrDA_TxInt;
    Uart_Printf("\nSelect the baud rate\n");	// Select IrDA baud rate
    Uart_Printf("1)9600    2)19200    3)38400    4)57600    5)115200\n"); 
    i=Uart_Getch ();
    switch(i)
    {
	case '1':
	IrDA_BAUD=9600;
        break;
	
	case '2':
        IrDA_BAUD=19200;
        break;
	
	case '3':
        IrDA_BAUD=38400;
        break;
	
	case '4':
        IrDA_BAUD=57600;
        break;
	
	case '5':
        IrDA_BAUD=115200;
        break;
	
	default:
        break;
    }
    rUBRDIV2=( (int)(PCLK/16./IrDA_BAUD) -1 );
    Uart_Printf("rUBRDIV2=%d\n", rUBRDIV2);
    Uart_Printf("[UART IrDA Tx Test]\n");
    Uart_Printf("Start Rx first and press any key and...\n");
    Uart_TxEmpty(1);
    
    //transmit FIFO=16B;receive FIFO=1B;Tx FIFO reset;Rx FIFO reset;FIFO Enable
    rUFCON2=(1<<6)|(0<<4)|(1<<2)|(1<<1)|(1);
    //Tx and Rx FIFO Trigger Level:4byte,Tx and Rx FIFO Reset,FIFO on
    rUCON2=(0<<10)|(1<<9)|(1<<8)|(0<<7)|(0<<6)|(0<<5)|(0<<4)|(0<<2)|(0); // From H/W    
    //Infrared Tx/Rx mode;No parity;One stop bit;8bit
    rULCON2=(1<<6)|(0<<3)|(0<<2)|(3);	// IrDA,No parity,One stop bit, 8bit
    Uart_Getch();
    rUCON2 |= (1<<2); // Tx enable
    Uart_Printf("Now... Tx with IrDA\n");
    //开UART2中断及子中断
    rINTMSK=~(BIT_UART2);
    rINTSUBMSK=~(BIT_SUB_RXD2|BIT_SUB_TXD2|BIT_SUB_ERR2);

    while(!IrDA_end);//发送结束
    //关UART2子中断
    rINTSUBMSK|=(BIT_SUB_RXD2|BIT_SUB_TXD2|BIT_SUB_ERR2);
    
    //transmit FIFO=48B;receive FIFO=32B;Tx FIFO reset;Rx FIFO reset;FIFO disable
    rUFCON2=(3<<6)|(2<<4)|(1<<2)|(1<<1)|(0);
    Uart_Printf("\nEnd Tx, transfer data count=%d\n",IrDA_cnt);
}

//红外模块接收测试程序
void Test_IrDA_Rx(void)
{
    unsigned int i;
    IrDA_cnt=0;
    IrDA_end=0;
    IrDA_err=0;
		
    IrDAdataPt =(volatile U8 *)IrDABUFFER; //IrDABUFFER=0x31000000 ;IrDA_BUFLEN=0x100
    for(i=0;i<IrDA_BUFLEN;i++) *IrDAdataPt++=0;	// Initialize IrDA Tx data = 0
    IrDAdataPt =(volatile U8 *)IrDABUFFER;

    pISR_UART2=(unsigned)IrDA_RxOrErr;//UART2->IrDA
    
    Uart_Printf("\nSelect the baud rate\n");	// Select IrDA baud rate
    Uart_Printf("1)9600    2)19200    3)38400    4)57600    5)115200\n"); 
    i=Uart_Getch();
    switch(i)
    {
	case '1':
            IrDA_BAUD=9600;
        break;
	
	case '2':
            IrDA_BAUD=19200;
        break;
	
	case '3':
            IrDA_BAUD=38400;
        break;
	
	case '4':
            IrDA_BAUD=57600;
        break;
	
	case '5':
            IrDA_BAUD=115200;
        break;
	
	default:
	break;
    }
    rUBRDIV2=( (int)(PCLK/16./IrDA_BAUD) -1 );
    Uart_Printf("rUBRDIV2=%d\n", rUBRDIV2);
    Uart_Printf("[UART IrDA Rx Test]\n");
    Uart_Printf("Press any key to start Rx and then Start Tx....\n");
    
    //transmit FIFO=16B;receive FIFO=1B;Tx FIFO reset;Rx FIFO reset;FIFO Enable
    rUFCON2=(1<<6)|(0<<4)|(1<<2)|(1<<1)|(1);
    //PCLK;Level;Level;Disable Rx time out interrupt;Generate receive error status interrupt.
    //Normal operation;Normal transmit;Tx Disable;Rx Disable
    rUCON2=(0<<10)|(1<<9)|(1<<8)|(0<<7)|(1<<6)|(0<<5)|(0<<4)|(0<<2)|(0); // From H/W
    //Infrared Tx/Rx mode;No parity;One stop bit;8bit
    rULCON2=(1<<6)|(0<<3)|(0<<2)|(3);	
    
    Uart_Getch();//press any KEY
    Uart_Printf("Now... Rx with IrDA\n");
    
    rUCON2 |= 1; // Rx enable, Interrupt request or polling mode
    //开UART2中断及子中断
    EnableIrq(BIT_UART2);
    EnableSubIrq(BIT_SUB_RXD2);
    EnableSubIrq(BIT_SUB_ERR2);
    //接收结束或者串口输入回车
    while(!IrDA_end) if(Uart_GetKey()=='\r') break;
    //关UART2子中断
    rINTSUBMSK|=(BIT_SUB_RXD2|BIT_SUB_TXD2|BIT_SUB_ERR2);
    //transmit FIFO=48B;receive FIFO=32B;Tx FIFO reset;Rx FIFO reset;FIFO disable
    rUFCON2=(3<<6)|(2<<4)|(1<<2)|(1<<1)|(0);
    Uart_Printf("\nEnd Rx, receive data count=%d\n",IrDA_cnt);

    IrDAdataPt =(volatile U8 *)IrDABUFFER;
    for(i=0;i<IrDA_BUFLEN;i++)
    {
		if(i-(*IrDAdataPt))
		{
		    Uart_Printf("i=%d,",i);
		    IrDA_err++;
		}
		else
			Uart_Printf("%d,",*IrDAdataPt++);
    }
    if(IrDA_err)
    	Uart_Printf("IrDA test fail!! Error count=%d\n",IrDA_err);
    else
    	Uart_Printf("\nIrDA test is good!!\n");
}