/*   51單片機紅外遙控解碼程序   */
/*      適用uPD6121系列            */
/*     周正華 2008.4.11編         */ 
/*    http://hi.baidu.com/52_diy   */
/*此程序是針對uPD6121系列的遙控器的取碼程序，解碼值在Im[2]中，當IrOK=1時解碼有效。*/
#include <reg52.h>

#define DIGPORT P2
#define WORDPORT P0
unsigned char code LED_num[]={0x3f,0x18,0x76,0x7c,0x59,0x6d,0x6f,0x38,0x7f,0x7d};

#define Imax 14000    //此處為晶振為11.0592時的取值, 
#define Imin 8000    //如用其它頻率的晶振時,
#define Inum 1450    //要改變相應的取值。
unsigned char Im[]={0x00,0x00,0x00,0x00};

unsigned long m,Tc;
unsigned char i,IrOK;


void DelayMy(unsigned int t){
while(--t);
}


void Display_LED(unsigned long num)
{
unsigned int ii;
unsigned int jj=0;
unsigned long aa,bb;
unsigned int xx[8]={0,0,0,0,0,0,0,0};
do {
    bb=num/10;
    aa=num-bb*10;
    xx[jj]=aa;
    num=bb;jj++;
    }
while(num>0);
DIGPORT=0x80;
for(ii=0;ii<8;ii++) {
    WORDPORT=LED_num[xx[ii]];
    DelayMy(60);
    DIGPORT=DIGPORT>>1;
};
WORDPORT=0;
}

//外部中斷解碼程序
void intersvr1(void) interrupt 2 using 1
{
Tc=TH0*256+TL0;                                               //提取中斷時間間隔時長
TH0=0; TL0=0;              //定時中斷重新置零
if((Tc>Imin)&&(Tc<Imax)) m=0;          //找到啟始碼
if(Tc>Inum) Im[m/8]=Im[m/8]>>1|0x80; else Im[m/8]=Im[m/8]>>1; //取碼
if(m==32) if((Im[2]|0x01)==~Im[3]) IrOK=1; else IrOK=0;    //取碼完成后判斷讀碼是否正確
m++;                //準備讀下一碼
}


/*演示主程序*/
void main(void)
{
m=0;
EA=1;

IT1=1;EX1=1;

TMOD=0x11;  
TH0=0;TL0=0;
TR0=1;ET0=1;

for(;;){
DelayMy(100);
if(IrOK==1) for(i=0;i<400;i++) Display_LED(Im[2]);
IrOK=0;
}
}