key function.asm

关于proteus的仿真实例

		ORG		00H
START:	MOV		A,#0EEH		;显示码初值
		MOV		P1,#0FFH	;发光二极管全部熄灭
K1:		JB		P3.7,$
		MOV		R4,#1H		;延时10毫秒,去抖动
		LCALL	DELAY
		JB		P3.7,K1		;判断是否是按键
		
		
		
S1:		MOV		P1,A		;输出显示码
		MOV		R4,#10		;延时0.1秒
		LCALL	DELAY
		MOV		P1,#0FFH	;发光二极管全部熄灭
		MOV		R4,#10		;延时0.1秒,闪烁效果
		LCALL	DELAY

		JNB		P3.7,S1		;判断按键是否抬起

		RL		A			;显示码移位
				
		LJMP	K1		
DELAY:	MOV		R5,#20
D1:		MOV		R6,#250
		DJNZ	R6,$
		DJNZ	R5,D1
		DJNZ	R4,DELAY
		RET
		END