/*************晶体为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区
      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引脚此时的电平状态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 
}