13.7单片机的红外接口.txt

里面有好多的原码,大家都来下载.用asm编写的

0RG 	00h
0RG 	30H
START:
M0V 	P0,#0ffH
M0V 	P1,#0FFH
M0V 	P2,#0FFH
M0V 	P3,#0FFH
JB 		P3.7,$ 						
SB:
M0V 	R4,#8						
SBA:
M0V 	R5,#250
SBB:
JB 		P3.7,SXB1
DJNZ 	R5,SBB
DJNZ 	R4,SBA
M0V 	R4,#2
JMP 		SBC
SXB1:
M0V 	R5,#5
SXB2: 								
JNB 		P3.7,SBB
DJNZ 	R5,SXB2
JMP 		START
SBC:
M0V 	R5,#250
SB1:
JB 		P3.7,SB2 						
DJNZ 	R5,SB1
DJNZ 	R4,SBC
JMP 		START
SB2: 								
M0V 	R5,#5
SB2_A:
JNB 		P3.7,SB1
DJNZ 	R5,SB2_A
M0V 	R4,#3
SB2_1:
M0V 	R5,#250
SB3: 								
JNB 		P3.7,SXC
DJNZ 	R5,SB3
DJNZ 	R4,SB2_1
M0V 	R4,#2
JMP 		SB3_1
SXC: 								
M0V 	R5,#5
SXC1:
JB 		P3.7,SB3
DJNZ 	R5,SXC1
JMP 		START
SB3_1: 								
M0V 	R5,#250
SB3_2:
JNB 		P3.7,SB4
DJNZ 	R5,SB3_2
DJNZ 	R4,SB3_1
JMP 		START
SB4: 								
M0V 	R5,#5
SB4_1:
JB 		P3.7,SB3_2
DJNZ 	R5,SB4_1
M0V 	R1,#1AH 						
M0V 	R2,#4
PP: 	
M0V 	R3,#8
LOOP:
M0V 	R5,#250
LOOP2: 								
JB 		P3.7,LOOP3
DJNZ 	R5,LOOP2
JMP 		START
LOOP3:
LCALL 	YS1 							
M0V 	C,P3.7 						
JNC 		UUU 						
M0V 	R5,#250
LOOP4:
JNB 		P3.7,UUU
N0P
DJNZ 	R5,LOOP4
JMP 		START
UUU: 
M0V 	A,@R1 						
RRC 	A 							
M0V 	@R1,A 						
DJNZ 	R3,LOOP					
INC 		R1 						
DJNZ	R2,PP 						

M0V 	A,1AH 						
XRL 	A,#00000000B 					
JNZ 		EXIT 						
M0V 	A,1BH 						
XRL 	A,#11111111B 					
JNZ 		EXIT 						
LCALL 	YS3
M0V 	A,1CH 						
CPL 		A
XRL 	A,1DH 						
JNZ 		EXIT 						
LCALL 	YS3
CLR 	P2.6 							
CLR 	P3.3 							
AJMP 	BIJIA0
AA: 
M0V 	R1,#25						
XX: 
ACALL 	YS2
JNB 		P3.7,HH 						
DJNZ 	R1,XX
EXIT: 
M0V 	P0,#0H 						
M0V 	P1,#0FFH
M0V 	P2,#0FFH
M0V 	P3,#0FFH
AJMP 	START						
HH: 
M0V 	R6,#4
SS: 
ACALL 	YS1 							
JB 		P3.7,EXIT 					
DJNZ 	R6, SS 						
JNB 		P3.7, $						
LCALL 	YS3
AJMP 	AA
BIJIA0: 
M0V 	A,1CH 						
MOV	P1,A
CJNE 	A,#01011100B,TT1
M0V 	P0,#7EH 						
TT1: 
CJNE 	A,#00011110B,T2
M0V 	P0,#0A2H 					
T2: 
CJNE 	A,#01011110B,T3
M0V 	P0,#62H
T3: 
CJNE 	A,#01011000B,T4
M0V 	P0,#74H
T4: 
CJNE 	A,#00011010B,T5
M0V 	P0,#61H
T5: 
CJNE 	A,#01011011B,T6
M0V 	P0,#21H
T6: 
CJNE 	A,#00011011B,T7
M0V 	P0,#7AH
T7: 
CJNE 	A,#01011001B,T8
M0V 	P0,#20H
T8: 
CJNE 	A,#01011010B,t9
M0V 	P0,#60H
T9: 
CJNE 	A,#00011000B,t10
M0V 	P0,#28H
T10: 
AJMP 	AA
YS1: 
M0V 	R4,#20 						 
D1: 
M0V 	R5,#20
DJNZ 	R5,$
DJNZ 	R4,D1
RET
YS2: 
M0V 	R4,#10 						 
D2: 
M0V 	R5,#235
DJNZ 	R5,$
DJNZ 	R4,D2
RET
YS3: 
M0V 	R4,#2 						 
D3:
M0V 	R5,#248
DJNZ 	R5,$
DJNZ 	R4,D3
RET
END