單片機跑馬燈程序

************************************************* ******************
;此程序是用單片機的p1口接八個led燈作跑馬燈試驗，八個led依次亮了又熄滅，形成漂亮
;的跑馬燈。本人已經試驗成功。
;單片機教程網http://www.51hei.com 原創
;該8路單片機跑馬燈程序代碼簡單，電路也容易搭建，只需把led接在p1口上就可以了，希望大家能試驗成功順利的完成跑馬燈報告
;****************************************** *************************

org 0000h
ajmp start;跳轉到程序開始
org 0030h;定義起始匯編地址
start:
mov a,#0ffh ;
clr c ;
mov r2,#08h ;循環八次。
loop: rlc a ;帶進位左移。
mov p1,a ;此時led燈開始有反映了。
call delay ;延時
djnz r2,loop ;循環（djnz條件判斷）
mov r2,#07h ;
loop1: rrc a ;帶進位右移
mov p1,a ;此時led燈開始有反映了。
call delay ;延時
djnz r2,loop1 ;反復循環
jmp start ;回到程序的開頭

delay: mov r3,#20 ;延時子程序
d1: mov r4,#20
d2: mov r5,#248
djnz r5,$
djnz r4,d2
單片機論壇http://www.51hei.com/bbs/ 有更多的跑馬燈流水燈試驗

---------3路單片機跑馬燈程序---------------------------------------
ORG 0000H
LJMP MAIN
ORG 030H
MAIN: MOV P1,#0DBH ;化為2進制為11011011--0狀態時led燈亮
ACALL DELay
MOV P1,#06DH ;化為2進制為01101101
ACALL DELay ;
MOV P1,#0B6H ;化為2進制為10110110
ACALL DELay
AJMP MAIN
delay: mov r7,#255
d1: mov r6,#255
d2: djnz r6,d2
djnz r7,d1
ret
end