/*************晶體為11.0592M,波特率9600bps
***************學習型紅外線遙控程序*******/
#include
void Ewen(void);
void Ewds(void);
void Delay(void);
void Irda(void);
void Study(void);
void Output(unsigned int h);
void Comput(unsigned char outdata);
void Erase(unsigned char Address);
unsigned int Read(unsigned char Address);
unsigned char Display(unsigned char inAddress);
void Write(unsigned char Address,unsigned int InData);
unsigned int Both(unsigned char data1,unsigned char data2);
unsigned char data e1 _at_ 0x1A; //分別存放紅外線譯碼后的數據
unsigned char data w1 _at_ 0x1B;
unsigned char data e2 _at_ 0x1C;
unsigned char data w2 _at_ 0x1D;
sbit IrInput=P3^2; //紅外線輸入引腳,可自定義
sbit Study1=P3^6; //學習按鍵,可自定義
sbit Led2=P2^5; //接收成功、學習成功指示
sbit Led1=P2^6; //空閑指示
sbit Dout=P2^3; //at93c16--DO
sbit Din=P2^2; //at93c16--DI
sbit sk=P2^1; //at93c16--SK
sbit cs=P2^0; //at93c16--CS

/*********************主程序***************************/

void main(void)
{
unsigned int i;
SCON = 0x50; //串口方式1,允許接收
TMOD = 0x20; //定時器1定時方式2
TH1 = 0xFD; //波特率9600
TL1 = 0xFD;
IT0 = 1; //INT0下降沿有效
EX0 = 1; //開INT0中斷;
TR1 = 1; //啟動定時器
P2_7=0; //初始化引腳
P1=0xff;
EA = 1; //允許CPU中斷
while(1)
{
for (i=0; i<20000; i++)
{ Led1=1;
if(!Study1) Study();
}
for (i=0; i<20000; i++)
{ Led1=0;
if(!Study1) Study();
}
}
}

/***********************串口輸出**********************/
void Comput(unsigned char outdata)
{
SBUF = outdata;
while(!TI);
TI = 0;
}

/*******************紅外線查詢子程序*******************/
void Irda(void)
{
#pragma asm
MOV R6,#10
SB:
MOV R4,#19 ;延時880微秒
D1:
MOV R5,#19
DJNZ R5,$
DJNZ R4,D1

JB P3.2,EXIT ;延時882微秒后判斷P3.2腳是為1
DJNZ R6, SB ;在8820微秒內如P3.2為1就退出
JNB P3.2, $ ;等待高電平避開9毫秒低電平引導脈沖

MOV R4,#10 ;延時4740微秒
D2: MOV R5,#218
DJNZ R5,$
DJNZ R4,D2
;延時4.74毫秒避開4.5毫秒的結果碼

MOV R1,#1AH ;設定1AH為起始RAM區(qū)
MOV R2,#4 ;接收從1AH到1DH,用于存放操作碼和操作反碼
PP:
MOV R3,#8 ;每組數據為8位

SS:
JNB P3.2,$ ;等待地址碼第一位的高電平信號
MOV R4,#19 ;延時880微秒
D5:
MOV R5,#19
DJNZ R5,$
DJNZ R4,D5
;高電平開始后882微秒判斷信號的高低電平
MOV C,P3.2 ;將P3.2引腳此時的電平狀態(tài)0或1存入C中
JNC TT ;如果為0就跳轉到TT

MOV R4,#2 ;延時1000微秒
D6:MOV R5,#248
DJNZ R5,$
DJNZ R4,D6
;檢測到高電平1的話延時1毫秒等待脈沖高電平結束
TT:
MOV A,@R1 ;將R1中地址的給A
RRC A ;將C中的值0或1移入A中的最低位
MOV @R1,A ;
DJNZ R3,SS ;接收滿8位換一個內存
INC R1 ;對R1中的值加1，換下一個RAM
DJNZ R2,PP ;接收完所有數據
EXIT:
#pragma endasm
}