51单片机红外遥控解码程序.docxVIP

51 单片机红外遥控解码程序 类别：单片机/DSP 阅读：2975 编者按：以下是网友编写的遥控解码程序！一种用延时等待的解码方法，比较容易理解，但缺 点是占用 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