;求鍵值程序

KCODE:	MOV	R1,#00H
MOV	A,R3
CLR		C
SWAP		A
MOV 	R1,A
MOV	A,R4
ORL	A,R1
MOV	B,A
MOV	DPTR,#KTAB
MOV	R0,#00H
MOV	R5,#10H
CLR		A
;------------------------------------------
REPE:	MOVC	A,@A+DPTR
			CJNE	A,B,NEXT5
			SJMP	RESV	
;--------------------------------------------
NEXT5:	INC	　　R0
			MOV	A,R0
			DJNZ	R5,REPE
			SJMP	MAIN
RESV:	MOV	A,R0
			MOV	SBUF,A
			JNB		TI,$				;等待發送結束
			CLR		TI
			SJMP	MAIN
KTAB:	DB	2DH,4EH,4DH,4BH
			DB	47H,3EH,3DH,3BH
			DB	37H,2EH,2BH,27H
			DB	1EH,1DH,1BH,17H
			END