红外解码子程序应用.a51

这是一个红外解码程序,还没有学会解码的朋友可以好好参考一下哦.

HONGWAIBUF EQU 34H
HONGWAIBUFFM EQU 35H
HONGWAI_IN EQU P3.1
YKJMCG EQU (20H).0
MAIN:CLR (20H).0
JB HONGWAI_IN,$
ACALL HONGWAIJM
JNB YKJMCG,MAIN
MOV P1,HONGWAIBUFFM
JMP MAIN
HONGWAIJM:MOV R2,#190
H_TEST0:JB HONGWAI_IN,HW_EXIT
LCALL  HWDL40US
DJNZ R2, H_TEST0
JNB HONGWAI_IN,$
MOV R2,#130
L_TEST0:JNB HONGWAI_IN,HWNEXT0
LCALL HWDL40US
DJNZ R2,L_TEST0
JMP HW_EXIT
HWNEXT0:MOV R2,#16
JIQIMA:JNB HONGWAI_IN,$
MOV R3,#55
L_TEST1:JNB HONGWAI_IN,HWNEXT1
LCALL HWDL40US
DJNZ R3,L_TEST1
JMP HW_EXIT
HWNEXT1:DJNZ R2,JIQIMA
MOV HONGWAIBUF,#0
MOV HONGWAIBUFFM,#0
MOV R3,#2
MOV R0,#34H
HWLOOP:MOV R2,#8
SHUJUMA:JNB HONGWAI_IN,$
JM:LCALL HWDL800US
JNB HONGWAI_IN,ZL
SETB C
MOV A,@R0
RLC A
MOV @R0,A
JB HONGWAI_IN,$
JMP  HWNEXT2
ZL:MOV A, @R0
CLR C
RLC A
MOV @R0,A
HWNEXT2:DJNZ R2,SHUJUMA
INC R0
DJNZ R3,HWLOOP
MOV A,35H
CPL A
CJNE A,34H,HW_EXIT
SETB YKJMCG
RET
HW_EXIT:CLR YKJMCG
RET
HWDL800US:MOV R5,#20
HWDL:ACALL HWDL40US
DJNZ R5,HWDL
RET
HWDL40US:MOV R4,#19
DJNZ R4,$
RET
END