51单片机红外解码程1.doc

51单片机红外解码程序 编者按：以下是网友编写的遥控解码程序！一种用延时等待的解码方法，比较容易理解，但缺点是占用CPU运行时间，第二种方法用定时器和外中断的解码方法，初学不易理解，但优点也很明显，第二种方法如果能解决连发解码就比较完美，更完善的红外遥控解码程序，请参考本站TOPAV-2008，TOP51-2005所配程序。解码方法一;// 单片机 接收红外解读程序\\;硬件结构：8951，P0口数码管段码，P2.0-P2.3为位，P1为8个LED ;P3.2为红外接收头，P2.7蜂鸣器，晶振12M;适用UPD6121 6122芯片接收;---------------------------------------------------------ORG 0000H AJMP MAIN ;转入主程序ORG 0003H ;外部中断P3.2脚INT0入口地址 AJMP INT ;转入外部中断服务子程序（解码程序）;以下为主程序进行CPU中断方式设置MAIN: SETB EA ;打开CPU总中断请求SETB IT0 ;设定INT0的触发方式为脉冲下降沿触发SETB EX0 ;打开INT0中断请求AJMP $;以下为进入P3.2脚外部中断子程序，也就是解码程序INT: CLR EA ;暂时关闭CPU的所有中断请求MOV R6,#10SB: ACALL YS1 ;调用882微秒延时子程序JB P3.2,EXIT ;延时882微秒后判断P3.2脚是否出现高; 电平如果有就退出解码程序DJNZ R6, SB ;重复10次，目的是检测在8820微秒内;如果出现高电平就退出解码程序;以上完成对遥控信号的9000微秒的初始低电平信号的识别。JNB P3.2, $ ;等待高电平避开9毫秒低电平引导脉冲ACALL YS2 ;延时4.74毫秒避开4.5毫秒的结果码MOV R1,#1AH ;设定1AH为起始RAM区MOV R2,#4 ;PP: MOV R3,#8JJJJ: JNB P3.2,$ ;等待地址码第一位的高电平信号LCALL YS1 ;高电平开始后用882微秒的时间尺去判断信;号此时的高低电平状态MOV C,P3.2 ;将P3.2引脚此时的电平状态0或1存入C中JNC UUU ;如果为0就跳转到UUULCALL YS3;UUU: MOV A,@R1 ;将R1中地址的给ARRC A ;将C中的值0或1移入A中的最低位MOV @R1,A ;将A中的数暂时存放在R1中DJNZ R3,JJJJ ;接收地址码的高8位INC R1 ;对R1中的值加1，换下一个RAMDJNZ R2,PP ;接收完16位地址码和8位数据码和8位数据反; 码，存放在1AH/1BH/1CH/1DH的RAM中MOV A,1CH ;比较数据码和数据反码是否正确?CPL AXRL A,1DH ;将1CH的值取反后和1DH比较 不同则无效丢弃，核对数据是否准确JNZ EXIT MOV DPTR,#TAB ;表头地址送指针MOV A,1DHANL A,#0FH ;相与，得到低四位码MOVC A,@A+DPTRMOV 1EH,A ;查表得表码存入1EHMOV A,1DHSWAP A ANL A,#0FH MOVC A,@A+DPTRMOV 1FH,A ;查表得高四位码存入1FMOV R7,#20H DISP:MOV P0,1FH ;送数码管显示CLR P2.1ACALL YS2SETB P2.1MOV P0,1EHCLR P2.2ACALL YS2SETB P2.2MOV P1,1DH ;将按键的键值通过P1口的8个LED显示出来!CLR P2.7 ;蜂鸣器鸣响－嘀嘀嘀－的声音，表示解码成功LCALL YS2SETB P2.7 ;蜂鸣器停止DJNZ R7,DISPEXIT: SETB EA ;允许中断RETI ;退出解码子程序YS1: MOV R4,#20 ;延时子程序1，精确延时882微秒D1: MOV R5,#20DJNZ R5,$DJNZ R4,D1 RETYS2: MOV R4,#10 ;延时子程序2，精确延时4740微秒D2: MOV R5,#235DJNZ R5,$DJNZ R4,D2 RETYS3: MOV R4,#2 ;延时程序3，精确延时1000微秒D3:MOV R5,#248DJNZ R5,$DJNZ R4,D3RETTAB: DB 0C0H,0DEH,0A2H,8AH,9CH,89H,81H,0DAH,80H,88H,90H,85H,0E1H,86H,0A