10.2.3基于8155软件译码键盘显示.txt

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

DL50:
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