k4.asm

我实验板带的实验程序

;一键多功能按键识别技术
;***************************************************************************
;*  [e-mail]		     (51c51 test web)     www.8951.com     *
;*  Create by :石学军      www.51c51.com 更多例程请登陆网站        	   *
;***************************************************************************
;在AT89S51单片机的P1端口接有四个发光二极管，上电的时候，L1接在P1.0管脚上的发光二极管在闪烁，;当每一次按下开关SP1的时候，
;L2接在P1.1管脚上的发光二极管在闪烁，再按下开关SP1的时候，L3接在;P1.2管脚上的发光二极管在闪烁，再按下开关SP1的时候，
;L4接在P1.3管脚上的发光二极管在闪烁，再按下开关SP1的时候，又轮到L1在闪烁了，如此轮流下去。



ID				EQU 30H
k1              bit p3.2

L1				BIT P1.0
L2				BIT P1.1
L3				BIT P1.2
L4				BIT P1.3
				ORG 0
				MOV ID,#00H
START:			JB K1,REL
				LCALL DELAY10MS
				JB K1,REL
				INC ID
				MOV A,ID
				CJNE A,#04,REL
				MOV ID,#00H
REL:			JNB K1,$
				MOV A,ID
				CJNE A,#00H,IS0
				CPL L1
				LCALL DELAY
				SJMP START
IS0:				CJNE A,#01H,IS1
				CPL L2
				LCALL DELAY
				SJMP START
IS1:				CJNE A,#02H,IS2
				CPL L3
				LCALL DELAY
				SJMP START
IS2:				CJNE A,#03H,IS3
				CPL L4
				LCALL DELAY
				SJMP START
IS3:				LJMP START
DELAY10MS:	MOV R6,#20
LOOP1:			MOV R7,#248
				DJNZ R7,$
				DJNZ R6,LOOP1
				RET
DELAY:			MOV R5,#20
LOOP2:			LCALL DELAY10MS
				DJNZ R5,LOOP2
				RET
				END