led.asm

单片机流水灯程序

K1 EQU P3.5
LED EQU P1
LED1 EQU P3
ORG 00H
JMP MAIN 
ORG 30H
MAIN:MOV LED,#0FFH
MOV LED1,#0FFH
MOV R0,#0
SETB K1
AA: JB K1,PLAY
JNB K1,$
INC R0
MOV A,R0
CJNE A,#6,AA
JMP MAIN
PLAY:
MOV A,R0
CJNE A,#0,WY2
CALL WY11
WY2: CJNE A,#1,WY3
CALL WY12
WY3: CJNE A,#2,WY4
CALL WY13
WY4: CJNE A,#3,WY5
CALL WY14
WY5: CJNE A,#4,WY6
CALL WY15
WY6: CJNE A,#5,WY7
ACALL WY16
WY7: JMP AA
WY11:MOV LED,#0FFH
MOV LED1,#0FFH
RET
WY12:MOV LED,#0FFH
MOV LED1,0FFH
ACALL DELAY
MOV LED,#07FH
MOV LED,#0FEH
ACALL DELAY
MOV LED,#03EH
MOV LED1,#0FEH
ACALL DELAY
MOV LED,#01CH
MOV LED1,#0FEH
ACALL DELAY
MOV LED,#08H
MOV LED1,#0FEH
ACALL DELAY
RET
WY13:MOV LED,#07FH
ACALL DELAY
MOV LED,#0BFH
ACALL DELAY
MOV LED,#0DFH
ACALL DELAY
MOV LED,#0EFH
ACALL DELAY
MOV LED,#0F7H
ACALL DELAY
MOV LED,#0FBH
ACALL DELAY
MOV LED,#0FDH
ACALL DELAY
MOV LED,#0FEH
ACALL DELAY
MOV LED1,#0FEH
ACALL DELAY
MOV LED,#0FEH
ACALL DELAY
MOV LED,#0FDH
ACALL DELAY
MOV LED,#0FBH
ACALL DELAY
MOV LED,#0F7H
ACALL DELAY
MOV LED,#0EFH
ACALL DELAY
MOV LED,#0DFH
ACALL DELAY
MOV LED,#0BFH
ACALL DELAY
RET
WY14:MOV LED,#03FH
ACALL DELAY
MOV LED,#09FH
ACALL DELAY
MOV LED,#0CFH
ACALL DELAY
MOV LED,#0E7H
ACALL DELAY
MOV LED,#0F3H
ACALL DELAY
MOV LED,#0F9H
ACALL DELAY
MOV LED,#0FCH
ACALL DELAY
MOV LED,#0FEH
MOV LED1,#0FEH
ACALL DELAY
MOV LED,#0FCH
ACALL DELAY
MOV LED,#0F9H
ACALL DELAY
MOV LED,#0F3H
ACALL DELAY
MOV LED,#0E7H
ACALL DELAY
MOV LED,#0CFH
ACALL DELAY
MOV LED,#09FH
ACALL DELAY
RET
WY15:MOV LED,#0FH
ACALL DELAY
MOV LED,#087H
ACALL DELAY
MOV LED,#0C3H
ACALL DELAY
MOV LED,#0E1H
ACALL DELAY
MOV LED,#0F0H
ACALL DELAY
MOV LED,#0F0H
MOV LED1,#0FEH
ACALL DELAY
MOV LED,#0F0H
ACALL DELAY
MOV LED,#0E1H
ACALL DELAY
MOV LED,#0C3H
ACALL DELAY
MOV LED,#087H
ACALL DELAY
RET
WY16: MOV LED,#0F7H
MOV LED1,#0FFH
ACALL DELAY
MOV LED,#0E3H
MOV LED1,#0FFH
MOV LED,#0C1H
MOV LED1,#0FFH
ACALL DELAY
MOV LED,#080H
MOV LED1,#0FFH
ACALL DELAY
MOV LED,#00H
MOV LED1,#0FEH
ACALL DELAY
MOV LED,#0FFH
MOV LED1,#0FFH
ACALL DELAY
RET
DELAY10MS:MOV R6,#20
LOOP1: MOV R7,#250
DJNZ R7,$
DJNZ R6,LOOP1
RET
DELAY: MOV R5,#4
LOOP2: LCALL DELAY10MS
DJNZ R5,LOOP2
RET
END
WY16: MOV LED,#0F7H
MOV LED1,#0FFH
ACALL DELAY
MOV LED,#0E3H
MOV LED1,#0FFH
MOV LED,#0C1H
MOV LED1,#0FFH
ACALL DELAY
MOV LED,#080H
MOV LED1,#0FFH
ACALL DELAY
MOV LED,#00H
MOV LED1,#07FH
ACALL DELAY
MOV LED,#0FFH
MOV LED1,#0FFH
ACALL DELAY