單片機閃爍燈匯編語言源代碼大全（一）

　　1、單片機AT89C51的P2口接8個發光二極管，讓這8個發光二極管顯示閃爍功能，即八燈亮2S，熄滅3S，如此循環。

　　參考程序

　　ORG 0000H

　　start： MOV P1，#0H

　　CALL delay

　　MOV P1，#0FFH

　　CALL delay

　　CALL delay

　　LJMP start

　　delay：

　　MOV R7，#200

　　d2： MOV R6，#250

　　d1： DJNZ R6，d1

　　DJNZ R7，d2

　　RET

　　END

　　;200*250次*2*1us=1000ms=1s

　　單片機閃爍燈匯編語言源代碼大全（二）

　　單片機AT89C51的P2口接8個發光二極管，讓這8個發光二極管先交互閃爍5次，然后雙燈左移之后再雙燈右移，如此循環，形成流水燈的效果，延時0.5S。

　　ORG 0000H

　　MOV R0，#5

　　start：

　　MOV P1，#10101010B

　　CALL delay

　　MOV P1，#01010101B

　　CALL delay

　　DJNZ R0，start

　　MOV R0，#5

　　MOV A，#11111100B

　　s1： MOV P1，A

　　CALL delay

　　RL A

　　RL A

　　CJNE A，#11111100B，s1

　　s2： RR A

　　RR A

　　MOV P1，A

　　CALL delay

　　CJNE A，#11111100B，s2

　　JMP start

　　delay： MOV R5，#100

　　k1： MOV R6，#250

　　k2： MOV R7，#250

　　k3： DJNZ R7，k3

　　DJNZ R6，k2

　　DJNZ R5，k1

　　RET

　　END

　　單片機閃爍燈匯編語言源代碼大全（三）

　　單片機AT89C51的P2.0、P2.1和P2.2分別接按鈕開關PB1、PB2和PB3；P1.0接一個LED。按下PB1，則LED亮；按下PB2則LED滅；按下PB3則LED閃爍。延時為0.1S。

　　參考程序：

　　ORG 0000H

　　MOV P2，#0FFH

　　s1： JNB P2.0，s3

　　JNB P2.1，s2

　　JNB P2.2，s4

　　JMP s1

　　s2： SETB P1.0

　　JMP s1

　　s3： CLR P1.0

　　JMP s1

　　s4： SETB P1.0

　　CALL delay

　　CLR P1.0

　　CALL delay

　　JNB P2.0，s3

　　JNB P2.1，s2

　　JMP s4

　　delay： MOV R5，#100

　　k1： MOV R6，#250

　　k2： MOV R7，#250

　　k3： DJNZ R7，k3

　　DJNZ R6，k2

　　DJNZ R5，k1

　　RET

　　END

　　單片機閃爍燈匯編語言源代碼大全（四）

　　單片機AT89C51的P2.0、P2.1和P2.2分別接按鈕開關PB1、PB2和PB3；P1口接8個LED。按下PB1，則8個LED閃爍；按下PB2則8個LED單燈右移；按下PB3則8個LED單燈左移。延時為0.1S。

　　源代碼：

　　ORG 0

　　MOV P2，#0FFH

　　LOOP： JNB P2.0，LOOP_1

　　JNB P2.1，LOOP_2

　　JNB P2.2，LOOP_3

　　JMP LOOP

　　LOOP_1： MOV R0，#2

　　LOOP_1_1： MOV A，#10101010B

　　MOV P0，A

　　CALL D100MS

　　MOV A，#01010101B

　　MOV P0，A

　　CALL D100MS

　　MOV P0，#11111111B

　　DJNZ R0，LOOP_1_1

　　LOOP_1_2： JB P2.0，LOOP

　　JMP LOOP_1_2

　　LOOP_2： MOV A，#11111110B

　　MOV R0，#8

　　LOOP_2_1： MOV P0，A

　　RL A

　　CALL D100MS

　　DJNZ R0，LOOP_2_1

　　MOV P0，#11111111B

　　LOOP_2_2： JB P2.1，LOOP

　　JMP LOOP_2_2

　　LOOP_3： MOV A，#01111111B

　　MOV R0，#8

　　LOOP_3_1： MOV P0，A

　　RR A

　　CALL D100MS

　　DJNZ R0，LOOP_3_1

　　MOV P0，#11111111B

　　LOOP_3_2： JB P2.2，LOOP

　　JMP LOOP_3_2

　　D100MS： MOV R7，#250

　　D1： MOV R6，#200

　　DJNZ R6，$

　　DJNZ R7，D1

　　RET

　　END