yjdy.asm

汇编语言开发的各种实用程序

                ORG 0000H
				LJMP MAIN
				ORG 0200H
MAIN:
ID				EQU 30H 
K1				BIT P3.2 
L1				BIT P1.0 
L2				BIT P1.1 
L3				BIT P1.2 
L4				BIT P1.3 
				MOV ID,#00H 
				CLR A
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
				SETB L2
				SETB L3
				SETB L4 
				LCALL DELAY 
				SJMP START 
IS0:			CJNE A,#01H,IS1 
				CPL L2 
				SETB L4
				SETB L1
				SETB L3
				LCALL DELAY 
				SJMP START 
IS1:			CJNE A,#02H,IS2 
				CPL L3
				SETB L4 
				SETB L1
				SETB L2 
				LCALL DELAY 
				SJMP START 
IS2:			CJNE A,#03H,IS3 
				CPL L4
				SETB L1
				SETB L2
				SETB L3 
				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