hongwai.asm

C51单片机红外遥控

       ORG 0000H 
       AJMP MAIN;转入主程序
       ORG 0003H ;外部中断P3.2脚INT0入口地址 
       AJMP INT ;转入外部中断服务子程序（解码程序）
       ;以下为主程序进行CPU中断方式设置
MAIN:  SETB EA ;打开CPU总中断请求
       SETB IT0 ;设定INT0的触发方式为脉冲负边沿触发
       SETB EX0 ;打开INT0中断请求
       ;以下对单片机的所有引脚进行初始化，全部设置成高电平
       MOV P2,#11100111B
       AJMP $        					   

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 R7,#26;忽略前26位系统识别码 

JJJJA: JNB P3.2,$;等待地址码第一位的高电平信号
       LCALL YS1;高电平开始后用882微秒的时间尺去判断信号此时的高低电平状态
       MOV C,P3.2;将P3.2引脚此时的电平状态0或1存入C中
       JNC UUUA;如果为0就跳转到UUUA
       LCALL YS3;检测到高电平1的话延时1毫秒等待脉冲高电平结束
UUUA:  DJNZ R7,JJJJA

       MOV R1,#1AH ;设定1AH为起始RAM区
       MOV R2,#2;接收从1AH到1BH的2个内存,用于存放操作码和操作反码 
PP:    MOV R3,#8;每组数据为8位 

JJJJ:  JNB P3.2,$;等待地址码第一位的高电平信号
       LCALL YS1;高电平开始后用882微秒的时间尺去判断信号此时的高低电平状态
       MOV C,P3.2;将P3.2引脚此时的电平状态0或1存入C中
       JNC UUU;如果为0就跳转到UUU
       LCALL YS3;检测到高电平1的话延时1毫秒等待脉冲高电平结束
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 ;接收完8位数据码和8位数据反码，存放在1AH/1BH中

       MOV A,1AH
       CPL A;对1AH取反后和1BH比较
       CJNE A,1BH,EXIT;如果不等表示接收数据发生错误,放弃

       MOV P1,1AH;将按键的键值通过P1口的8个LED显示出来!
       MOV A,1AH;将红外遥控器具体按键的键值发送到串口去
       MOV SBUF,A;通过串口在电脑屏幕上显示出来

       CLR P2.5;蜂鸣器鸣响嘀嘀嘀的声音，表示解码成功
       LCALL YS2
       LCALL YS2
       LCALL YS2
       SETB P2.5;蜂鸣器停止
EXIT:  SETB EA ;允许中断
       RETI ;退出解码子程序

YS1:   MOV R4,#20 ;（占用R4/R5）延时子程序1，精确延时882微秒
D1:    ;MOV R5,#20  ;晶振为11.0592M时,请用 ; 注释掉此行
       MOV R5,#19  ;晶振为12M时,请用 ; 注释掉此行
       DJNZ R5,$
       DJNZ R4,D1 
       RET

YS2:   MOV R4,#10 ;（占用R4/R5）延时子程序2，精确延时4740微秒
D2:    ;MOV R5,#235  ;晶振为11.0592M时,请用 ; 注释掉此行
       MOV R5,#216  ;晶振为12M时,请用 ; 注释掉此行
       DJNZ R5,$
       DJNZ R4,D2 
       RET

YS3:   MOV R4,#2;（占用R4/R5）延时程序3，精确延时1000微秒
D3:    ;MOV R5,#248   ;晶振为11.0592M时,请用 ; 注释掉此行
       MOV R5,#228  ;晶振为12M时,请用 ; 注释掉此行
       DJNZ R5,$
       DJNZ R4,D3
       RET

DELAY: MOV R1,#08H;（占用R1/R2/R3）延时子程序，12M晶振延时约250毫秒
L3:    MOV R2 ,#0FAH 
L1:    MOV R3 ,#0FAH 
L2:    DJNZ R3 ,L2 
       DJNZ R2 ,L1
       DJNZ R1 ,L3 
       RET
       END