main.asm.bak

用汇编语言编写的红外遥控解码

/**红外遥控解码范例**/
/**作者：田开坤**/
/**较网上可以下载到的程序相比，本代码考虑了解码过程容易死机的问题，采取办法解决了，可以解码失败，但决不死机**/

DQ 		equ 	0ebh	;P4.3定义接口，参考STC89C51数据手册
EX2 	equ 	0c2h	;外部中断2，参考STC89C51数据手册
SEG1	equ		0ffech	;数码管1（最右）
SEG2	equ		0ffedh	;数码管2
SEG3	equ		0ffeeh	;数码管3
SEG4	equ		0ffefh	;数码管4（最左）
BYT_DLY equ		5FH		;延时函数参数变量
DA_BUF	equ		40H		;解码出的数据缓冲区，包括41H


		ORG 0000h
		LJMP main

		ORG 003bh	;外部中断2入口地址，参考STC89C51数据手册
		LJMP EINT3

		ORG 40h
main:	MOV SP,#60h
		SETB EA
		SETB EX2
		SJMP $;原地踏步，等中断解码


//中断接收解码模块

EINT3:	CLR EA//关闭
		MOV R6,#10
SB:		MOV BYT_DLY,#13 ;834uS
	 	ACALL DELAY 	;调用834微秒延时子程序
    	JB DQ,EXIT   	;延时834微秒后判断DQ脚是否出现高电平如果有就退出解码程序
    	DJNZ R6, SB    	;重复 10 次，目的是检测在 9000 微秒内如果出现高电平就退出解码程序
;-----------------------;以上完成对遥控信号 起始码 的 9000 微秒的初始低电平信号的识别!!!!!

		JNB DQ, $   	;等待,避开 起始码 低电平
		JB DQ,$			;避开结果码


/*;测试按键一次有多少位低电平，不同遥控器不一样*/
/*;电工电子中心投影遥控器只有32位，这对后边程序参数设置关系重大
			CLR A
ADDLOOP:	JNB DQ,$
			ADD A,#1
			MOV P1,A
			JB DQ,cADD
			sjmp $
*/

		MOV R7,#16  	;忽略前16位系统识别码 (即地址码)
AAQQ:	JNB DQ,$		;通过低电平段
		;JB DQ,$		;以下6行代码可以用本行替换，但这样容易出现死机。
		MOV R6,#255
CTN2:	JNB DQ,DER7		;等待有效低电平到来，避开 结果码 高电平
		MOV BYT_DLY,#3  ;42uS
		ACALL DELAY 	;调用42微秒延时子程序,延时太短，计数器R6不够大，延时太长，会错过最佳检测点
	 	DJNZ R6,CTN2			 
		LJMP EXIT		;防止死机
DER7:	DJNZ R7,AAQQ

		MOV R1,#DA_BUF 	;设定1AH为起始RAM区
		MOV R2,#2   	;接收从DA_BUF到DA_BUF+1的2个内存,用于存放操作码 (即数据码) 和操作反码
PP: 	MOV R3,#8 		;每组数据为8位
JJJJ: 	JNB DQ,$   		;等待通过数据码的低电平信号,等高电平到来后出去；
		MOV BYT_DLY,#13 ;834uS
		ACALL DELAY 	;高电平开始后用840（560<t<1125,）微秒的时间尺去判断信号此时的高低电平状态
      	MOV C,DQ   		;将DQ引脚此时的电平状态0或1存入C中
      	JNC UUU     	;如果为0就跳转到UUU
		;JB DQ,$		;以下6行代码可以用本行替换，但这样容易出现死机。
		MOV R6,#255
CTN3:	JNB DQ,UUU		;等待有效低电平到来，避开 结果码 高电平
		MOV BYT_DLY,#3  ;42uS
		ACALL DELAY 	;调用840微秒延时子程序
	 	DJNZ R6,CTN3		
		LJMP EXIT		;防止死机

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,DA_BUF
		CPL A   				;对1AH取反后和1BH比较
		CJNE A,DA_BUF+1,EXIT 	;如果不等表示接收数据发生错误,放弃
				
		MOV R7,DA_BUF	;将按键的键值通过数码管显示出来!
		ACALL DISP
		CLR P1.0    ;蜂鸣器鸣响－嘀嘀嘀－的声音，表示解码成功		
		MOV BYT_DLY,#50
		ACALL DELAY
		SETB P1.0   ;蜂鸣器停止
EXIT: 	SETB EA
		reti


;-------------------------延时子程序---------------------------------
;晶振22.1184M

DELAY:  PUSH    BYT_DLY
DEL31:  PUSH    BYT_DLY
DEL32:  DJNZ    BYT_DLY,DEL32
        POP     BYT_DLY
        DJNZ    BYT_DLY,DEL31
        POP     BYT_DLY
        DJNZ    BYT_DLY,DELAY
        RET

//数码管显示，数据由R7传入
DISP:	mov dptr,#ledmap
		mov a,r7
		anl a,#0fh
		movc a,@a+dptr
		mov dptr,#SEG1
		cpl a
		movx @dptr,a

		mov dptr,#ledmap
		mov a,r7
		swap a					
		anl a,#0fh
		movc a,@a+dptr
		mov dptr,#SEG2
		cpl a
		movx @dptr,a

		mov dptr,#SEG3
		mov a,#0ffh
		movx @dptr,a
		mov dptr,#SEG4		
		movx @dptr,a  
		ret

ledmap: db 3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh,77h,7ch,39h,5eh,79h,71h,00

		END