;p1口八個(gè)燈作跑馬燈。
;***************************************************************************
;* (程序轉(zhuǎn)載請(qǐng)著明出處 ，未聲明可適應(yīng)本站isp開發(fā)套件/倚天版開發(fā)套件       *
;*  E-mail:sxj1974@163.com (51c51 test web)  51測(cè)試網(wǎng)，自學(xué)單片機(jī)的網(wǎng)站   *
;* Create by :石學(xué)軍 www.51c51.com   www.8951.com 更多例程請(qǐng)登陸網(wǎng)站        *
;***************************************************************************

org 0000h
ajmp start
org 0030h
start:
mov a,#0ffh ;
clr c ;
mov r2,#08h ;循環(huán)八次。
loop: rlc a ;帶進(jìn)位左移。
mov p1,a ;輸出到P1口。
call delay ;延時(shí)一段時(shí)間
djnz r2,loop ;反復(fù)循環(huán)
mov r2,#07h ;再往回循環(huán)。
loop1: rrc a ;帶進(jìn)位右移
mov p1,a ;輸出到P1口。
call delay ;延時(shí)一段時(shí)間
djnz r2,loop1 ;反復(fù)循環(huán)
jmp start ;重新開始

delay: mov r3,#20 ;延時(shí)子程序
d1: mov r4,#20
d2: mov r5,#248
djnz r5,$
djnz r4,d2