单片机灯光闪烁程序

MOV P1, #0FFH

INPUTP3:

JB P3.4,ZERO

JNB P3.3,FLASH2

ACALL FLASH1

AJMP INPUTP3

FLASH1:

MOV R2,#4

MOV R1,#11111110B

MOV A,R1

AA: MOV P1,A

ACALL DELAY

MOV A,R1

RL A

MOV R1,A

DJNZ R2, AA

SJMP INPUTP3

FLASH2:

MOV P1,#0FFH

SETB P1.7

ACALL DELAY

CLR P1.7

ACALL DELLAY

SJMP INPUTP3

DELAY:

MOV R6,#0 DEL: MOV R7,#0

DJNZ R7,$

DJNZ R6,DEL

RET

ZERO:

MOV P1,#0FFH

LJMP INPUTP3