//紅外遙控器軟件解碼原理及程序 
            
//紅外一開始發送一段13.5ms的引導碼，引導碼由9ms的高電平和4.5ms的低電平組成，跟著引導碼是系統碼//，系統反碼，按鍵碼，按鍵反碼，如果按著鍵不放，則遙控器則發送一段重復碼，重復碼由9ms的高電平，//2.25ms的低電平，跟著是一個短脈沖，本程序經過試用，能解大部分遙控器的編碼！

#include <reg51.h>
#define NULL 0x00//數據無效
#define RESET 0X01//程序復位
#define REQUEST 0X02//請求信號
#define ACK 0x03//應答信號，在接收數據后發送ACK信號表示數據接收正確，也位請求信號的應答信號
#define NACK 0x04//應答信號，表示接收數據錯誤
#define BUSY 0x05//忙信號，表示正在忙
#define FREE 0x06//空閑信號，表示處于空閑狀態
#define READ_IR 0x0b//讀取紅外
#define STORE_IR 0x0c//保存數據
#define READ_KEY 0x0d//讀取鍵值
#define RECEIVE 0Xf400//接收緩沖開始地址
#define SEND 0xfa00//發送緩沖開始地址
#define IR 0x50//紅外接收緩沖開始地址
#define HEAD 0xaa//數據幀頭
#define TAIL 0x55//數據幀尾
#define SDA P1_7
#define SCL P1_6



unsigned char xdata *buf1; //接受數據緩沖
unsigned int buf1_length; //接收到的數據實際長度
unsigned char xdata *buf2; //發送數據緩沖
unsigned int buf2_length; //要發送的數據實際長度
bit buf1_flag; //接收標志，1表示接受到一個數據幀，0表示沒有接受到數據幀或數據幀為空
bit buf2_flag; //發送標志，1表示需要發送或沒發送完畢，0表示沒有要發送的數據或發送完畢
unsigned char state1,state2; //用來標志接收字符的狀態，state1用來表示接收狀態，state2用來表示發送狀態
unsigned char data *ir;
union{
unsigned char a[2];
unsigned int b;
unsigned char data *p1[2];
unsigned int data *p2[2];
unsigned char xdata *p3; //紅外緩沖的指針
unsigned int xdata *p4;
}p;
//union{ //
// unsigned char a[2]; //
// unsigned int b;
// unsigned char data *p1[2];
// unsigned int data *p2[2];
// unsigned char xdata *p3;
// unsigned int xdata *p4; //地址指針
//}q; //

union{
unsigned char a[2];
unsigned int b;
}count;
union{
unsigned char a[2];
unsigned int b;
}temp;
union{
unsigned char a[4];
unsigned int b[2];
unsigned long c;
}ir_code;

union{
unsigned char a[4];
unsigned int b[2];
unsigned long c;
unsigned char data *p1[4];
unsigned int data *p2[4];
unsigned char xdata *p3[2];
unsigned int xdata *p4[2];
}i;
unsigned char ir_key;
bit ir_flag; //紅外接收標志，0為緩沖區空，1為接收成功，2為緩沖溢出
void sub(void);
void delay(void);
void ie_0(void);
void tf_0(void);
void ie_1(void);
void tf_1(void);
void tf_2(void);
void read_ir(void);
void ir_jiema(void);
void ir_init(void);
void ir_exit(void);
void store_ir(void);
void read_key(void);
void reset_iic(void);
unsigned char read_byte_ack_iic(void);
unsigned char read_byte_nack_iic(void);
bit write_byte_iic(unsigned char a);
void send_ack_iic(void);
void send_nack_iic(void);
bit receive_ack_iic(void);
void start_iic(void);
void stop_iic(void);
void write_key_data(unsigned char a);
unsigned int read_key_data(unsigned char a);
void ie0(void) interrupt 0{ie_0();}
void tf0(void) interrupt 1{tf_0();}
void ie1(void) interrupt 2{ie_1();}
void tf1(void) interrupt 3{tf_1();tf_2();}
void tf2(void) interrupt 5{ //采用中斷方式跟查詢方式相結合的辦法解碼
EA=0; //禁止中斷
if(TF2){ //判斷是否是溢出還是電平變化產生的中斷
TF2=0; //如果是溢出產生的中斷則清除溢出位，重新開放中斷退出
EA=1;
goto end;
}
EXF2=0; //清除電平變化產生的中斷位
*ir=RCAP2H; //把捕捉的數保存起來
ir++;
*ir=RCAP2L;
*ir++;
F0=1;
TR0=1; //開啟計數器0
loop:
TL0=0; //將計數器0重新置為零
TH0=0;
while(!EXF2){ //查詢等待EXF2變為1
if(TF0)goto exit; //檢查有沒超時，如果超時則退出
};
EXF2=0; //將EXF2清零
if(!TH0) //判斷是否是長低電平脈沖過來了
{ //不是長低電平脈沖而是短低電平
if(F0)count.b++; //短脈沖數加一
temp.a[0]=RCAP2H; //將捕捉數臨時存放起來
temp.a[1]=RCAP2L;
goto loop; //返回繼續查詢
}
else{ //是低電平脈沖，則進行處理

F0=0;
*ir=temp.a[0]; //把連續的短脈沖總時間記錄下來
ir++;
*ir=temp.a[1];
ir++;
*ir=RCAP2H; //把長電平脈沖時間記錄下來
ir++;
*ir=RCAP2L;
ir++;
if(ir>=0xda) {
goto exit; //判斷是否溢出緩沖，如果溢出則失敗退出
}
goto loop; //返回繼續查詢
}
exit:
ir_flag=1; //置ir_flag為1表示接收成功
end:
;
}


void rs232(void) interrupt 4{
static unsigned char sbuf1,sbuf2,rsbuf1,rsbuf2; //sbuf1,sbuf2用來接收發送臨時用，rsbuf1,rsbuf2用來分別用來存放接收發送的半字節
EA=0; //禁止中斷
if(RI){
RI=0; //清除接收中斷標志位
sbuf1=SBUF; //將接收緩沖的字符復制到sbuf1
if(sbuf1==HEAD){ //判斷是否幀開頭
state1=10; //是則把state賦值為10
buf1=RECEIVE; //初始化接收地址 
}
else{
switch(state1){
case 10:sbuf2=sbuf1>>4; //把高半字節右移到的半字節
sbuf2=~sbuf2; //把低半字節取反
if((sbuf2&0x0f)!=(sbuf1&0x0f)) //判斷接收是否正確
{ //接收錯誤，有可能接收的是數據幀尾，也有可能是接收錯誤
if(sbuf1==TAIL) //判斷是否接收到數據幀尾
{ //是接收到數據幀尾
buf1=RECEIVE; //初始化接收的地址
if(*buf1==RESET) //判斷是否為復位命令
{
ES=0;
sbuf2=SP+1;
for(p.p1[0]=SP-0x10;p.p1[0]<=sbuf2;p.p1[0]++)*p.p1[0]=0;
}
state1=0; //將接收狀態標志置為零，接收下一個數據幀
buf1_flag=1; //置接收標志為1，表示已經接收到一個數據幀
REN=0; //禁止接收
}
else
{ //不是接受到數據幀尾，表明接收錯誤
state1=0; // 將接收狀態標志置為零，重新接收
buf1=RECEIVE; //初始化發送的地址
*buf1=NACK; //把NACK信號存入接收緩沖里
buf1_flag=1; //置標志位為1，使主程序能對接收錯誤進行處理
REN=0; //禁止接收
}

}
else
{ //接收正確
rsbuf1=~sbuf1; //按位取反，使高半字節變原碼
rsbuf1&=0xf0; //僅保留高半字節，低半字節去掉
state1=20; //將狀態標志置為20，準備接收低半字節
}
break;
case 20:sbuf2=sbuf1>>4; //把高半字節右移到的半字節
sbuf2=~sbuf2; //將低半字節取反
if((sbuf2&0x0f)!=(sbuf1&0x0f)) //判斷接收是否正確
{ //接受錯誤
state1=0; // 將接收狀態標志置為零，重新接收
buf1=RECEIVE; //初始化接收的地址
*buf1=NACK; //把NACK信號存入發送緩沖里
buf1_flag=1; //置標志位為1，使主程序能對接收錯誤進行處理
REN=0; //禁止接收
}
else
{
sbuf1&=0x0f; //僅保留低半字節，去掉高半字節
rsbuf1|=sbuf1; //高低半字節合并
*buf1++=rsbuf1; //將接收的數據保存至接收緩沖里,并且數據指針加一
buf1_length++; //接收數據長度加一
state1=10; //將state1置為10，準備接收下個字節的高半字節
}
break;

}
}



}
else{

TI=0; //清除發送中斷標志
if(buf2_length) //判斷發送長度是否為零
{ //發送長度不為零
if(state2==0) //判斷是否發送高半字節
{ //發送高半字節
sbuf2=*buf2; //將要發送的字節送到sbuf2
rsbuf2=~sbuf2; //取反，使高半字節變為反碼
sbuf2>>=4; //將高半字節右移到低半字節
rsbuf2&=0xf0; //保留高半字節，去掉低半字節
sbuf2&=0x0f; //保留低半字節，去掉高半字節
rsbuf2|=sbuf2; //合并高低半字節
SBUF=rsbuf2; //發送出去
state2=10; //將state2置為10準備發送下半字節
}
else
{ //發送低半字節
sbuf2=*buf2; //將要發送的字節送到sbuf2
buf2++; //指針加一
buf2_length--; //發送數據長度減一
rsbuf2=~sbuf2; //取反，使低半字節變為反碼
rsbuf2<<=4; //將低半字節反碼左移到高半字節
rsbuf2&=0xf0; //保留高半字節，去掉低半字節
sbuf2&=0x0f; //保留低半字節，去掉高半字節
rsbuf2|=sbuf2; //合并高低半字節
SBUF=rsbuf2; //發送出
state2=0;
}
}
else
{ //如果發送數據長度為零則發送數據幀尾
if(buf2_flag){ //判斷是否發過數據幀尾
SBUF=TAIL; //將數據幀尾發送出去
while(TI==0);
TI=0;
buf2_flag=0; //置發送標志為零，表示發送完畢
}
}
}
EA=1; //開放中斷
}






void ack(void) //發送ACK信號子程序
{
buf1_flag=0; //置接收標志位位零表示已經相應了，可以接收下一幀數據
REN=1; //接收使能
while(buf2_flag); //判斷上一幀有沒發送完，沒有則繼續等待
buf2=SEND; //初始化發送地址
*buf2=ACK; //將ACK信號存入發送緩沖里
buf2_length=1; //存入發送數據長度
buf2_flag=1; //置發送長度為1
SBUF=HEAD; //發送數據幀頭
}

void nack(void) //發送NACK信號子程序
{
buf1_flag=0; //置接收標志位位零表示已經相應了，可以接收下一幀數據
REN=1; //接收使能
while(buf2_flag); //判斷上一幀有沒發送完，沒有則繼續等待
buf2=SEND; //初始化發送地址
*buf2=NACK; //將NACK信號存入發送緩沖里
buf2_length=1; //存入發送數據長度
buf2_flag=1; //置發送長度為1
SBUF=HEAD; //發送數據幀頭
}

void free(void) //發送FREE信號子程序
{
buf1_flag=0; //置接收標志位位零表示已經相應了，可以接收下一幀數據
REN=1; //接收使能
while(buf2_flag); //判斷上一幀有沒發送完，沒有則繼續等待
buf2=SEND; //初始化發送地址
*buf2=FREE; //將FREE信號存入發送緩沖里
buf2_length=1; //存入發送數據長度
buf2_flag=1; //置發送長度為1
SBUF=HEAD; //發送數據幀頭
}

void busy(void) //發送BUSY信號子程序
{
buf1_flag=0; //置接收標志位位零表示已經相應了，可以接收下一幀數據
REN=1; //接收使能
while(buf2_flag); //判斷上一幀有沒發送完，沒有則繼續等待
buf2=SEND; //初始化發送地址
*buf2=BUSY; //將BUSY信號存入發送緩沖里
buf2_length=1; //存入發送數據長度
buf2_flag=1; //置發送長度為1
SBUF=HEAD; //發送數據幀頭
}

void download(void)
{
int i; //用于循環計數
i=buf1_length-3; //數據長度等于數據包長度減去一個字節控制字和兩個字節地址
buf1=RECEIVE+1; //使指針指向地址
p.a[0]=*buf1++; //讀入目標地址高字節
p.a[1]=*buf1++; //讀入目標地址低字節
while(i--){ //長度減一直至為零
*p.p3++=*buf1++; //將接受緩沖里數據送到目標地址，并且兩個指針加一
}
REN=1; //數據處理完，允許接收下一幀數據
buf1_flag=0; //置接收標志為零，表示已經處理完
free(); //發送FREE信號表示已經處理完處于空閑狀態

}

void upload(void){
int i; //
while(buf2_flag); //判斷上一幀有沒發送完，沒有則繼續等待
buf1=RECEIVE+1; //將指針指向地址
buf2=SEND; //初始化發送地址
*buf2++=UPLOAD; //把控制字存進去并且指針加一
*buf2++=*buf1++; //把地址高字節復制過去
*buf2++=*buf1++; //把地址低字節復制過去
p.a[0]=*buf1++; //把數據長度高字節復制過去
p.a[1]=*buf1++; //把數據長度低字節復制過去
i=p.b; //把數據長度復制過去
buf1-=4; //將指針減4，使其指向地址處
p.a[0]=*buf1++; //把地址高字節復制過去
p.a[1]=*buf1++; //把地址低字節復制過去
buf1_flag=0; //已經對接受數據處理完畢
REN=1; //允許接收
buf2_length=i+3; //數據包長度等于數據長度加3
while(i--){ //判斷數據長度是否為零，為零則不執行循環語句，同時長度減一
*buf2++=*p.p3++; //把數據復制到發送緩沖區
}
buf2=SEND;
buf2_flag=1; //置發送標志為1
SBUF=HEAD; //發送數據幀頭
}

void run(void) //運行下載的程序
{
sub();
}



void delay1s(void){
for(i.b[0]=0;i.b[0]<0xffff;i.b[0]++){
i.b[0]=i.b[0]++;
i.b[0]=i.b[0]--;}
}

void ir_init(void)
{
ir_flag=0; //將紅外接收標志置為零
for(ir=IR;ir<0xe0;ir++){
*ir=0; //將紅外接收緩沖清零
}
EA=0; //禁止中斷
ES=0; //禁止串行中斷
ET2=1; //允許T2中斷
ir=IR; //初始化紅外數據指針
TR0=0; //禁止計數
TH0=0; //將計數器置為0
TL0=0;
TF0=0; //清除溢出標志
count.b=1; //初始化為零


init:
TR2=0;
TL2=0x00;
TH2=0xdc; //給T2賦一個初值，當計數器溢出時正好為6毫秒
T2CON=0x0d; //EXEN2＝1，TR2＝1，C/T2=0，CP/RL2＝1，工作于捕捉方式
while(!TF2); //查詢計數器是否溢出
TF2=0; //清除溢出位
if(EXF2) //判斷在此期間又沒發生過電平變化
{ //如果發生過變化則重新計數
goto init; //等待下一次按鍵
}
else
{ //計數器溢出并且電平沒有發生過變化，則開啟中斷開始解碼
EA=1;