;********************************************************************************;* 描述: *;* 遥控键值读取器 (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,#20HLOOP0: 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.14MSDEL: MOV R5,#1 ;IR解码使用DEL0: MOV R6,#2DEL1: MOV R7,#32DEL2: 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 ;结束
