51单片机红外遥控解程序(自己修改过的).doc

51单片机红外遥控解码程序 类别：单片机/DSP ? 阅读：1182 　　编者按：以下是网友编写的遥控解码程序！一种用延时等待的解码方法，比较容易理解，但缺点是占用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,#10 SB: 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,#8 JJJJ: JNB P3.2,$ ;等待地址码第一位的高电平信号 LCALL YS1 ;高电平开始后用882微秒的时间尺去判断信 ;号此时的高低电平状态 MOV C,P3.2 ;将P3.2引脚此时的电平状态0或1存入C中 JNC UUU ;如果为0就跳转到UUU LCALL YS3 ; UUU: MOV A,@R1 ;将R1中地址的给A RRC A ;将C中的值0或1移入A中的最低位 MOV @R1,A ;将A中的数暂时存放在R1中 DJNZ R3,JJJJ ;接收地址码的高8位 INC R1 ;对R1中的值加1，换下一个RAM DJNZ R2,PP ;接收完16位地址码和8位数据码和8位数据反 ; 码，存放在1AH/1BH/1CH/1DH的RAM中 MOV A,1CH ;比较数据码和数据反码是否正确? CPL A XRL A,1DH ;将1CH的值取反后和1DH比较 不同则无效丢弃，核对数据是否准确 JNZ EXIT MOV DPTR,#TAB ;表头地址送指针 MOV A,1DH ANL A,#0FH ;相与，得到低四位码 MOVC A,@A+DPTR MOV 1EH,A ;查表得表码存入1EH MOV A,1DH SWAP A ANL A,#0FH MOVC A,@A+DPTR MOV 1FH,A ;查表得高四位码存入1F MOV R7,#20H DISP: MOV P0,1FH ;送数码管显示 CLR P2.1 ACALL YS2 SETB P2.1 MOV P0,1EH CLR P2.2 ACALL YS2 SETB P2.2 MOV P1,1DH ;将按键的键值通过P1口的8个LED显示出来! CLR P2.7 ;蜂鸣器鸣响－嘀嘀嘀－的声音，表示解码成功 LCALL YS2 SETB P2.7 ;蜂鸣器停止 DJNZ R7,DISP EXIT: SETB EA ;允许中断 RETI ;退出解码子程序 YS1: MOV R4,#20 ;延时子程序1，精确延时882微秒 D1: MOV R5,#20 DJNZ R5,$ DJNZ R4,D1 RET YS2: MOV R4,#10 ;延时子程序2，精确延时4740微秒 D2: MOV R5,#235 DJNZ R5,$ DJNZ R4,D2 RET YS3: MOV R4,#2 ;延时程序3，精确延时1000微秒 D3:MOV R5,#248 DJNZ