接： 51红外遥控解码（一）

    ;============================================

    DELAY_MS:
    MOV R6,#250
    DELAY_MS_NEXT:
    NOP
    NOP
    DJNZ R6,DELAY_MS_NEXT
    DJNZ R7,DELAY_MS
    RET
    ;============================================ 
    ;INPUT: R7
    DELAY:
    DJNZ R7,$
    RET
    ;============================================
    ;向LCD写一个命令字节
    ;INPUT: ACC
    SEND_COMMAND_BYTE:
    CLR RS
    CLR RW

    MOV P0,A

    SETB E
    NOP
    NOP
    NOP
    NOP
    NOP
    NOP
    CLR E

    MOV R7,#100
    ACALL DELAY
    RET
    ;===============================================
    ;向LCD写一个数据字节
    ;INPUT: ACC
    SEND_DATA_BYTE:
    SETB RS
    CLR RW

    MOV P0,A

    SETB E
    NOP
    NOP
    NOP
    NOP
    NOP
    NOP
    CLR E

    MOV R7,#100
    ACALL DELAY
    RET
    ;======================================================
    ;初始化LCD
    INIT_LCD:
    MOV A,#30H
    ACALL SEND_COMMAND_BYTE
    ACALL SEND_COMMAND_BYTE
    ACALL SEND_COMMAND_BYTE
    MOV A,#38H ;设置工作方式
    ACALL SEND_COMMAND_BYTE
    MOV A,#0CH ;显示状态设置
    ACALL SEND_COMMAND_BYTE
    MOV A,#01H ;清屏
    ACALL SEND_COMMAND_BYTE
    MOV A,#06H ;输入方式设置
    ACALL SEND_COMMAND_BYTE
    RET
    ;=======================================================
    ;在第一行显示
    ;INPUT: DPTR指向要显示的内容
    DISPLAY_LINE1:
    MOV A,#080H
    DISPLAY_LINE1_A:
    ACALL SEND_COMMAND_BYTE ;设置DDRAM地址
    MOV R6,#20
    DISPLAY_LINE1_NEXT:
    CLR A
    MOVC A,@A+DPTR
    ACALL SEND_DATA_BYTE
    INC DPTR
    DJNZ R6,DISPLAY_LINE1_NEXT
    MOV R7,#100
    ACALL DELAY
    RET
    ;=======================================================
    ;在第二行显示
    ;INPUT: DPTR指向要显示的内容
    DISPLAY_LINE2:
    MOV A,#0C0H
    AJMP DISPLAY_LINE1_A
    ;=======================================================

    END

    下面是一个用C写的遥控器程序.能在数码管上显示键码.

    #include <reg52.h>

    #define c(x) (x*110592/120000)

    sbit Ir_Pin=P3^3;

    unsigned char code Led_Tab[]={0xC0,0xF9,0xA4,0xB0,0x99,0x92,0x82,
    0xf8,0x80,0x90,0x88,0x83,0xC6,0xA1,0x86,0x8E};                      //共阳极数码显示码0-F.
    unsigned char code Led_Sel[]={0xe,0xd,0xb,0x7};

    unsigned char Led_Buf[4]; //显示缓冲区
    char Led_Index;                 //位选       

    unsigned char Ir_Buf[4]; //用于保存解码结果

    //==============================================================
    //数码管扫描
    timer0() interrupt 1 using 1
    {
    TL0=65536-1000;
    TH0=(65536-1000)/256; //定时器0设定约1000us中断一次，用于数码管扫描
    P0=0xff;
    P2=Led_Sel[Led_Index];                          //位选
    P0=Led_Tab[Led_Buf[Led_Index]];                  //段选

    if(++Led_Index>3) Led_Index=0;                  //四个扫描完了,到第一个数码管
    }
    //==============================================================
    unsigned int Ir_Get_Low()
    {
    TL1=0;
    TH1=0;
    TR1=1;
    while(!Ir_Pin && (TH1&0x80)==0);                
    TR1=0;           
    return TH1*256+TL1;
    }
    //=============================================================
    unsigned int Ir_Get_High()
    {
    TL1=0;
    TH1=0;
    TR1=1;
    while(Ir_Pin && (TH1&0x80)==0);
    TR1=0;
    return TH1*256+TL1;
    }
    //==============================================================
    main()
    {
    unsigned int temp;
    char i,j;
    Led_Index=1;

    TMOD=0x11;
    TL0=65536-1000;
    TH0=(65536-1000)/256; //定时器0设定约1000us中断一次，用于数码管扫描
    EA=1;
    ET0=1;
    TR0=1;

    Led_Buf[0]=0;
    Led_Buf[1]=0;
    Led_Buf[2]=0;
    Led_Buf[3]=0; //显示区设成0

    do{
    restart:
    while(Ir_Pin);
    temp=Ir_Get_Low();
    if(temp<c(8500) || temp>c(9500)) continue;//引导脉冲低电平9000
    temp=Ir_Get_High();
    if(temp<c(4000) || temp>c(5000)) continue;//引导脉冲高电平4500
    for(i=0;i<4;i++) //4个字节
    for(j=0;j<8;j++) //每个字节8位
    {
    temp=Ir_Get_Low();
    if(temp<c(200) || temp>c(800)) goto restart;
    temp=Ir_Get_High();
    if(temp<c(200) || temp>c(2000)) goto restart;
    Ir_Buf[i]>>=1;
    if(temp>c(1120)) Ir_Buf[i]|=0x80;
    }
    Led_Buf[0]=Ir_Buf[2]&0xf;
    Led_Buf[1]=(Ir_Buf[2]/16)&0xf;
    Led_Buf[2]=Ir_Buf[3]&0xf;
    Led_Buf[3]=(Ir_Buf[3]/16)&0xf; //显示结果
    }while(1);
    }