9.2.2突发等待延时.txt

MCS－51单片机应用开发实用子程序.zip

CLR			A			
MOV 		B,#40H
DJNZ 		B,$
DJNZ 		ACC,$-3
RET
KEYIN2:
MOV		R0,#50H		
LA0:
MOV 		R3,#0			
MOV 		P2,#LEDH			
LA1:
MOV 		A,R3
MOV  		DPTR,#TABLE		
MOVC 		A,@A+DPTR
CPL  		A
MOVX 		@R0,A			
JB  			P1.7,NXA1
RECL:
ACALL 		DL50				
XA2:
JB 			P1.6,XA0
ACALL  		DL50
JNB  		P1.6,$
JNB  		P1.7,$-3
ACALL		DL50
JNB  		P1.6,$
JNB  		P1.7,$-3
SJMP 		NXA4			
XA0:
JNB 			P1.7,XA2
ACALL 		DL50
JNB 			P1.7,$
XA1:
INC 			R3			
CJNE 		R3,#10,＄+3		
JCN  		XA1
MOV  		R3,#0
NXA1:
JB 			P1.6,LA1
ACALL 		DL50
NXA2:
JB 			P1.7,NXA3
ACALL 		DL50
JNB 			P1.7,$
JNB 			P1.6,$-3
ACALL 		DL50
JNB 			P1.7,$
JNB 			P1.6,$-3
SJMP 		KEYIN2			
NXA3:
JNB 			P1.6,NXA2
ACALL 		DL50
JNB 			P1.6,$			
MOV 		A,R3
MOV 		@R0,A			
MOV 		A,#255
MOVX 		@R0,A			
ACALL 		DL50				
INC			R0
CJNE 		R0,#5FH,LA0		
NXA4:
MOV		A,#255			
MOVX 		@R0,A;关显
RET