key recg.asm

《Proteus在MCS-51&ARM7系统中的应用百例》书中附带原程序代码

		ORG		00H				
START:	MOV		R0,#00H			;按键次数
		MOV		P1,#0FFH		;显示初值
K1:		JB		P3.7,$			;判断是否有键按下
		LCALL	DELAY
		JB		P3.7,K1			;判断是按键还是干扰
		INC		R0				;如果是按键,按键次数加1
		CJNE	R0,#10H,K4		;按键次数达到最大值16
		JNB		P3.7,$			;判断按键是否抬起
		LJMP   	START
K4:		MOV		A,R0
		CPL		A				
		MOV		P1,A			;将按键次数输出显示
		JNB		P3.7,$			;判断按键是否抬起
		LJMP	K1		
DELAY:	MOV		R5,#20			;延时10毫秒
D1:		MOV		R6,#250
		DJNZ	R6,$
		DJNZ	R5,D1
		RET
		END