;=============================================
ORG 0000H
AJMP MAIN
;=============================================
ORG 0030H
MAIN:
MOV SP,#70H ;堆栈指针设到70H的地方
ACALL INIT_LCD ;初始化LCD
MOV R7,#10
ACALL DELAY_MS
MOV DPTR,#MSG1
CALL DISPLAY_LINE1 ;在第一行显示 Test8: IR Reader
MOV DPTR,#MSG2
CALL DISPLAY_LINE2 ;在第二行显示www.mcuedu.com
MAIN_LOOP:
JB IRR,$ ;等待接收头信号为低
ACALL GET_LOW ;测量引导脉冲低电平
CLR C
MOV A,R7
SUBB A,#(8000/50) ;SC6122的引导脉冲低电平为9000US,我们只要测到低电平的值在8000- 10000US范围内就认为合格的.
JC MAIN_LOOP ;如果小于8000US,不对,重新等待接收
CLR C
MOV A,R7
SUBB A,#(10000/50)
JNC MAIN_LOOP
ACALL GET_HIGH ;测量引导脉冲高电平
CLR C
MOV A,R7
SUBB A,#(4000/50)
JC MAIN_LOOP ;如果小于4000US,不对,重新等待接收
CLR C
MOV A,R7
SUBB A,#(5000/50)
JNC MAIN_LOOP ;如果大于5000US,不对,重新等待接收
MOV R0,#BUF ;
MOV R5,#8 ;SC6122发的码有32位,我们用4个字节来存放,每个字节有8位
IR_NEXT:
CALL GET_LOW
CLR C
MOV A,R7
SUBB A,#(300/50) ;300US
JC MAIN_LOOP ;低电平小于300微秒认为不对,重新接收
CLR C
MOV A,R7
SUBB A,#(800/50) ;800US
JNC MAIN_LOOP ;低电平大于800微秒认为不对,重新接收
ACALL GET_HIGH
CLR C
MOV A,R7
SUBB A,#(300/50) ;300US
JC MAIN_LOOP ;高电平小于300微秒认为不对,重新接收
CLR C
MOV A,R7
SUBB A,#(2000/50) ;2000US
JNC MAIN_LOOP ;高电平大于2000微秒认为不对,重新接收
CLR C
MOV A,R7
SUBB A,#(1120/50) ; ;跟中间值1120进行比较
RRC A
MOV @R0,A ;通过CY移到间接地址R0中去
DJNZ R5,IR_NEXT ;8位移完了吗
MOV R5,#8
INC R0
MOV A,R0
XRL A,#(BUF+4)
JNZ IR_NEXT ;如果不到4个字节,接收下一个
MOV DPTR,#MSG_6122
ACALL DISPLAY_LINE1 ;显示格式名称
ACALL DISPLAY_IR_CODE ;显示码
AJMP MAIN_LOOP
;============================================
MSG1: DB " Test8: IR Reader "
MSG2: DB " www.mcuedu.com "
MSG_6122: DB " Format: SC6122 "
;============================================
;转为ASCII码在LCD在显示
TO_ASCII:
CJNE A,#0AH,TO_ASCII_1
TO_ASCII_1:
JC TO_ASCII_2 ;小于10
ADD A,#('A'-10)
RET
TO_ASCII_2:
ADD A,#'0'
RET
;============================================
DISPLAY_IR_CODE:
MOV A,#0C0H ;显示在第二行
ACALL SEND_COMMAND_BYTE ;设置DDRAM地址
MOV R0,#BUF
DISPLAY_IR_CODE_NEXT:
MOV A,@R0
SWAP A
ANL A,#0FH ;分离出高字节
ACALL TO_ASCII ;转为ASCII码
ACALL SEND_DATA_BYTE ;显示
MOV A,@R0
ANL A,#0FH ;分离出低字节
ACALL TO_ASCII ;转为ASCII码
ACALL SEND_DATA_BYTE ;显示
MOV A,#' '
ACALL SEND_DATA_BYTE ;显示空格
INC R0
MOV A,R0
XRL A,#(BUF+4)
JNZ DISPLAY_IR_CODE_NEXT
MOV R0,#8 ;第2行共有20个字符,前面显示用了12个,再用8个空格填满
DISPLAY_IR_CODE_B:
MOV A,#' '
ACALL SEND_DATA_BYTE
DJNZ R0,DISPLAY_IR_CODE_B
RET
;============================================
;测量低电平时间,50US采样一次,R7加1一次,比如低电平时间为9000US,测得R7的结果为180(0B4H)
;OUTPUT: R7
GET_LOW:
MOV R7,#00H
GET_LOW_NEXT:
MOV R6,#20 ;在晶振为11.0592M时,延50US需要46个机器周期,
DJNZ R6,$ ;这条指令执行需要2个机器周期
JB IRR,GET_LOW_RTN ;接收头为高电平,结束测量
INC R7
MOV A,R7
JNZ GET_LOW_NEXT ;看R7是否有溢出
GET_LOW_RTN:
RET
;============================================
;测量高电平时间,50US采样一次,R7加1一次,比如高电平时间为4500US,测得R7的结果为90
;OUTPUT: R7
GET_HIGH:
MOV R7,#00H
GET_HIGH_NEXT:
MOV R6,#20 ;在晶振为11.0592M时,延50US需要46个机器周期,
DJNZ R6,$ ;这条指令执行需要2个机器周期
JNB IRR,GET_HIGH_RTN ;接收头为低电平,结束测量
INC R7
MOV A,R7
JNZ GET_HIGH_NEXT ;看R7是否有溢出
GET_HIGH_RTN:
RET
;============================================
未完待续
