遥控键值读取器
;********************************************************************************
;* 描述: *
;* 遥控键值读取器 (HT6221) *
;* 数码管显示, P0口为数码管的数据口 ，p2为数码管的控制位 遥控器接p3.2 *
;* 喇叭接p3.7 继电器接p1.0 每次按键喇叭提示 *
;* 17(40h)键按下，继电器吸合。19(04h)键按下，继电器关闭。 *
;* *
;********************************************************************************
;-----------------------------------------------
IRCOM EQU 20H ;20H-23H IR使用
IRIN EQU P3.2
BEEP EQU P3.7
RELAY EQU P1.0
;------------------------------------------------
ORG 0000H
JMP MAIN
ORG 0003H ;外部中断INT0入口地址
JMP IR_IN
;------------------------------------------------
MAIN:
MOV SP,#60H
MOV A,#00H
MOV R0,#20H
LOOP0: MOV @R0,A ;20H-27H清零
INC R0
CJNE R0,#28H,LOOP0
MOV IE,#81H ;允许总中断中断,使能 INT0 外部中断
MOV TCON,#01H ;触发方式为脉冲负边沿触发
SETB IRIN
SETB BEEP
SETB RELAY
CALL IR_SHOW
LOOP1:
CALL IR_SHOW
MOV A,22H
CJNE A,#40H,LOOP2 ;K17键按下
CLR RELAY ;继电器吸合
LOOP2: CJNE A,#04H,LOOP3 ;K19键按下
SETB RELAY ;继电器关闭
LOOP3: JMP LOOP1
;---------------------------------------------------
; IR 译码子程序
;---------------------------------------------------
IR_IN:
CLR EA ;暂时关闭CPU的所有中断请求
PUSH ACC
PUSH PSW
SETB PSW.3 ;选择工作寄存器组1
CLR PSW.4 ;根据PSW.3为1，PSW.4为0，选择是工作寄存器1;
MOV R2,#04H
MOV R0,#IRCOM
I1: JNB IRIN,I2 ;等待 IR 信号出现也就是9ms的低电平的起始码;
DJNZ R2,I1 ;检测4*0.14=0.56ms低电平;
JMP IR_OUT ;IR信号没出现，退出。
I2: MOV R4,#20 ;检测20*0.14=2.8ms低电平;
I20: CALL DEL
DJNZ R4,I20 ;等待9ms的低电平的起始码，
JB IRIN,I1 ;确认IR信号出现此处应该还是低电平在2.8ms+0.56ms阶段;这个市再次确认，如果是高电平,就重新检测!
I21: JB IRIN,I3 ;等 IR 变为高电平也就是4.5ms的高电平的结果码;
CALL DEL
JMP I21
I3: MOV R3,#0 ;8位数清为0,等待一个低电平到高电平才开始计数，为防止数据采样不准确!
LL: JNB IRIN,I4 ;等 IR 变为低电平
CALL DEL
JMP LL
I4: JB IRIN,I5 ;等 IR 变为高电平,高电平开始通过R2检测计数
CALL DEL
JMP I4
I5: MOV R2,#0 ;0.14ms 计数
L1: CALL DEL
JB IRIN, N1 ;等 IR 变为高电平
;IR=0，检查R2中的计数值
MOV A,#8
CLR C
SUBB A,R2 ;判断高低位,0.14*8=1.12ms刚好是低电平的周期;如果R2=8,那么C=0;不需要进位;如果等于16*0.14=2.24ms,则需要进位,C=1;为高电平!高电平周期为2.24ms;
;IF C=0 BIT=0
MOV A,@R0
RRC A
MOV @R0,A ;处理完一位
INC R3
CJNE R3,#8,LL ;需处理完8位
MOV R3,#0
INC R0
CJNE R0,#24H,LL ;收集到4字节了
JMP IR_COMP
N1: INC R2
CJNE R2,#30,L1 ;高低电平共(8+16)*0.14ms 计数过长则时间到自动离开
IR_OUT: POP PSW
POP ACC
SETB EA ;开中断!
RETI
;---------------------------------------------------------------
;键值比较与键值数据处理
;22H存入用户编码，23H存入用户编码的反码
;---------------------------------------------------------------
IR_COMP:
MOV A,22H
CPL A ;将22H取反后和23H比较
CJNE A,23H,IR_OUT ;如果不等表示接收数据发生错误,放弃
IR_CHULI:
MOV A,22H
ANL A,#0FH
MOV 25H,A ;送个位显示单元
MOV A,22H
ANL A,#0F0H
SWAP A
MOV 26H,A ;送十位显示单元
CALL IR_SHOW ;显示键值
CALL BEEP_BL ;蜂鸣器鸣响表示解码成功
JMP IR_OUT
;=======================================================
;键值显示
;=======================================================
IR_SHOW:
MOV A,25H ;取显示数据到A
MOV DPTR,#TAB ;取段码表地址
MOVC A,@A+DPTR ;查显示数据对应段码
MOV P0,A ;段码放入P0口
CLR P2.7
SETB P2.6
LCALL DELAY1
MOV A,26H ;取显示数据到A
MOV DPTR,#TAB ;取段码表地址
MOVC A,@A+DPTR ;查显示数据对应段码
MOV P0,A ;段码放入P0口
CLR P2.6
SETB P2.7
LCALL DELAY1
RET
;-----------------------------------------------------
TAB:
db 28h,7eh,0a2h,62h,74h,61h,21h,7ah,20h,60h,30h,25h,0a9h,26h,0a1h,0b1h;数码管1-9,0,a,b,c,d,e,f代码表
;-----------------------------------------------------
;--------------------------------------------------------
;蜂鸣器响一声子程序
;--------------------------------------------------------
BEEP_BL:
MOV R6,#100
BL1: CALL DEX1
CPL BEEP
DJNZ R6,BL1
MOV R5,#20
CALL DELAY
RET
DEX1: MOV R7,#180
DEX2: NOP
DJNZ R7,DEX2
RET
DELAY: ;延时R5×10MS
MOV R6,#25
D1: MOV R7,#100
DJNZ R7,$
DJNZ R6,D1
DJNZ R5,DELAY
RET
;------------------------------------------------
; DELAY R5*0.14MS
DEL:
MOV R5,#1 ;IR解码使用
DEL0: MOV R6,#2
DEL1: MOV R7,#32
DEL2: DJNZ R7,DEL2
DJNZ R6,DEL1
DJNZ R5,DEL0
RET
;-------------------------------------------------
DELAY1: ;数码管延时4MS
MOV R6,#20
DL2: MOV R7,#100
DJNZ R7,$
DJNZ R6,DL2
RET
;-------------------------------------------------
END ;结束