网站导航： 首页 ＞ 设计参考 ＞ 正文 文章搜索
在51单片机上实现的PT2221红外解码汇编程序
  
文章编号：
091118204549
 文章分类： 单片机 ＞ 51系列
点 击：
...
关 键 词： 红外解码,PT2221
文章来源：
网络
摘 要：
 
  1. ;**********************************************************************************************  
  2. ;name: PT2221红外解码V1.0  
  3. ;device: pt2221红外编码+89S51单片机解码+红外一体化接收头  
  4. ;Copyright (c) 2007-2008 张兴电子设计工作室技术开发部  
  5. ;author: 张兴  
  6. ;web: http://mcu.5d6d.com  
  7. ;date: 2007.7.4---14:44  
  8. ;description:  PT2221发送的红外编码最前面为13.5ms的引导码,而后为32位的数据,32位数据的前16位为用户码,  
  9.   ;用于区别各个厂家的遥控器的不同,而后16位为数据码,分前8位和后8位,前后8位互为反码,用于检验  
  10.   ;这里我们只接收了16位的数据,别的数据则丢掉了,对16的数据在程序中进行了检验  
  11.   ;解码的结果用两种方式输出:1.用串口以9600的波特率发送,2.四位一体数码管显示  
  12.   ;一体化接P3.2,即外部中断0  
  13.   ;数码管:P1口送段码,P0口低四位送位码  
  14.   ;程序中采用11.0592M的晶振,若用12M晶振只需按程序注释的提示选择相应程序即可  
  15. ;edition:V1.0  
  16. ;***********************************************************************************************  
  17.  b_bit equ 20h ;数码管个位数存放内存位置  
  18.  a_bit equ 21h ;数码管十位数存放内存位置  
  19.  ORG 0000H    
  20.  AJMP MAIN;转入主程序  
  21.  ORG 0003H ;外部中断P3.2脚INT0入口地址   
  22.  AJMP INT ;转入外部中断服务子程序（解码程序）  
  23. ;=============以下为主程序进行CPU中断方式设置===================================  
  24. MAIN: SETB EA ;打开CPU总中断请求  
  25.  SETB IT0 ;设定INT0的触发方式为脉冲负边沿触发  
  26.  SETB EX0 ;打开INT0中断请求  
  27.  AJMP $   
  28. ;============以下为进入P3.2脚外部中断子程序，也就是解码程序======================  
  29. INT:  CLR EA ;暂时关闭CPU的所有中断请求,只处理当前中断,避免受外部信号干扰  
  30.  MOV R6,#10  
  31. SB:  ACALL YS1;调用882微秒延时子程序  
  32.  JB P3.2,EXIT;延时882微秒后判断P3.2脚是否出现高电平如果有就退出解码程序,(882um就出现高电平说明是干扰信号)  
  33.  DJNZ R6, SB;重复10次，目的是检测在8820微秒内如果出现高电平就退出解码程序   
  34. ;=======以上完成对遥控信号的9ms的初始低电平信号的识别======================  
  35.  JNB P3.2, $ ;等待高电平避开9毫秒低电平引导脉冲  
  36.  ACALL YS2 ;延时4.74毫秒避开4.5毫秒的结果码  
  37.  MOV R7,#16;忽略前16位系统识别码,PT2221共发送32位数据,前16位为用户码,后16为数据码才是我们需要的  
  38. JJJJA: JNB P3.2,$;等待地址码第一位的高电平信号  
  39.  LCALL YS1;高电平开始后用882微秒的时间尺去判断信号此时的高低电平状态  
  40.  MOV C,P3.2;将P3.2引脚此时的电平状态0或1存入C中  
  41.  JNC UUUA;如果为0就跳转到UUUA  
  42.  LCALL YS3;检测到高电平1的话延时1毫秒等待脉冲高电平结束  
  43. UUUA:  DJNZ R7,JJJJA   
  44. ;==============到此为止,已跳过13.5ms的引导码和前16位的用户码=====================  
  45.  MOV R1,#1AH ;设定1AH为起始RAM区  
  46.  MOV R2,#2 ;接收从1AH到1BH的2个内存,用于存放操作码和操作反码,  
  47.    ;16位数据分前8位和后8位,后8位是前8位的反码,用于检验  
  48. PP:  MOV R3,#8;每组数据为8位   
  49. JJJJ:  JNB P3.2,$;等待地址码第一位的高电平信号  
  50.  LCALL YS1;高电平开始后用882微秒的时间尺去判断信号此时的高低电平状态  
  51.  MOV C,P3.2;将P3.2引脚此时的电平状态0或1存入C中  
  52.  JNC UUU;如果为0就跳转到UUU  
  53.  LCALL YS3;检测到高电平1的话延时1毫秒等待脉冲高电平结束,然后把C中的1存入R1  
  54. UUU:  MOV A,@R1;将R1中的数据给A  
  55.  RRC A;将C中的值0或1移入A中的最低位  
  56.  MOV @R1,A;将A中的数暂时存放在R1数值的内存中  
  57.  DJNZ R3,JJJJ;接收满8位换一个内存  
  58.  INC R1;对R1中的值加1，换下一个RAM  
  59.  DJNZ R2,PP ;接收完8位数据码和8位数据反码，存放在1AH/1BH中  
  60. ;==================上面的程序已完成了16位数据码的接收工作,下面进行检验==================  
  61.  MOV A,1AH  
  62.  CPL A;对1AH取反后和1BH比较  
  63.  CJNE A,1BH,EXIT;如果不等表示接收数据发生错误,放弃  
  64. ;====================校验正确则继续执行下面程序,不正确则作为干扰丢弃===================  
  65.  LCALL SEND ;调用串口发送程序,把16位数据码用串口发送出去  
  66.  LCALL DISPLAY ;把16位数据码送数码管显示  
  67.  CLR P3.5;P3.5口上的LED闪烁一次，表示解码成功  
  68.  LCALL YS2   
  69.  LCALL YS2   
  70.  LCALL YS2   
  71.  SETB P3.5;  
  72. ;==================退出子程序,解码出错时退出解码子程序========================  
  73. EXIT:  SETB EA ;允许中断  
  74.  RETI ;退出解码子程序  
  75. ;===================串口发送子程序============================================  
  76. SEND: mov a,1AH;将1AH中的十六进制数转换成16进制  
  77.  mov b,#16 ;10进制/16=16进制,此时输出按键的16进制编码,00~1F  
  78.  div ab   
  79.  SWAP A  
  80.  ADD A,B  
  81.  mov 30H,a ;转换为16进制代码后存到30H  
  82.  MOV TMOD,#20H  
  83.  MOV TL1,#0FDH  
  84.  MOV TH1,#0FDH  
  85.  MOV SCON,#40H  
  86.  MOV PCON,0   
  87.  CLR TI   
  88.  CLR RI   
  89.  SETB TR1   
  90.  MOV R0,#30H  
  91.  MOV A,@R0  
  92.  MOV SBUF,A  
  93. WAIT: JNB TI,WAIT   
  94.  CLR TI   
  95.  RET  
  96. ;******************************************显示子程序********************************************  
  97. display:mov a,1AH;将1AH中的十六进制数转换成10进制或16进制  
  98.  mov b,#10 ;10进制/10=10进制,此时输出按键对应的键号,00~31  
  99.  ;mov b,#16 ;10进制/16=16进制,此时输出按键的16进制编码,00~1F  
  100.  div ab   
  101.  mov a_bit,a ;十位在a  
  102.  mov b_bit,b ;个位在b  
  103.  mov dptr,#numtab ;指定查表启始地址  
  104.  mov r0,#4    
  105. dpl1:  mov r1,#250 ;显示1000次  
  106. dplop:  mov a,b_bit ;取个位数  
  107.  MOVC A,@A+DPTR ;查个位数的7段代码  
  108.  mov p1,a ;送出个位的7段代码  
  109.  SETB p0.0 ;开个位显示  
  110.  acall d1ms ;显示1ms  
  111.  CLR P0.0  
  112.  mov a,a_bit ;取十位数  
  113.  MOVC A,@A+DPTR ;查十位数的7段代码  
  114.  mov p1,a ;送出十位的7段代码  
  115.  SETB P0.1 ;开十位显示  
  116.  acall d1ms ;显示1ms  
  117.  CLR P0.1  
  118.  CLR P0.2  
  119.  CLR P0.3  
  120.  djnz r1,dplop ;100次没完循环  
  121.  djnz r0,dpl1 ;4个100次没完循环  
  122.  ret  
  123. D1MS: MOV R4,#250       ;延时1ms  
  124.        DJNZ R4,$   
  125.        RET                                   
  126. numtab: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H  ;字形码表"0","1","2"~"7"  
  127.  DB 7FH,6FH,77H,7CH,39H,5EH,79H,71H  ;字形码表"8","9","A"~"F"  
  128. ;=============延时子程序1，精确延时882微秒=========================================  
  129. ;YS1:  MOV R4,#20 ;12M晶振请用此句延时  
  130. YS1:  MOV R4,#17 ;11.0592M晶振请用此句延时  
  131. D1:  MOV R5,#20  
  132.  DJNZ R5,$   
  133.  DJNZ R4,D1    
  134.  RET  
  135. ;============延时子程序2，精确延时4740微秒==========================================  
  136. YS2:  MOV R4,#10 ;  
  137. ;D2:  MOV R5,#235 ;12M晶振请用此句延时  
  138. D2:  MOV R5,#217 ;11.0592M晶振请用此句延时  
  139.  DJNZ R5,$   
  140.  DJNZ R4,D2    
  141.  RET  
  142. ;=============延时程序3，精确延时1000微秒===========================================  
  143. YS3:  MOV R4,#2;  
  144. ;D3: MOV R5,#248 ;12M晶振请用此句延时  
  145. D3: MOV R5,#230 ;11.0592M晶振请用此句延时  
  146.  DJNZ R5,$   
  147.  DJNZ R4,D3   
  148.  RET  
  149. ;=========================  
  150.  END  

 
 
相关文章:

 
最新开源项目
 
 
  查看更多...  
 
本站相关产品   淘宝网店
 
 
  查看更多...  

 

本站程序由百合电子工作室开发和维护
Copyright @ baihe electric studio
渝ICP备09006681号-4