8個跑馬燈C程序1
org0000h
ajmpmain
org0030h
main:
movp1,#00h;全亮
lcalldelay;
lcalldelay;
lcalldelay;延時一段時間
mova,#0feh;每次只亮一個燈。
loop:movp1,a;
lcalldelay;
lcalldelay;
lcalldelay;
rla;循環(huán)左移。
ajmploop;

delay:movr7,#00h;延時子程序
tt:movr6,#00h
djnzr6,$
djnzr7,tt
ret
end

8個跑馬燈C程序2
org 0000h
ajmpstart
org0030h
start:
mov a,#0ffh;
clr c;
mov r2,#08h;循環(huán)八次。
loop:rlc a;帶進位左移。
mov p1,a;輸出到P1口。
call delay;延時一段時間
djnz r2,loop;反復循環(huán)
mov r2,#07h;再往回循環(huán)。
loop1:rrc a;帶進位右移
mov p1,a;輸出到P1口。
call delay;延時一段時間
djnz r2,loop1;反復循環(huán)
jmp start;重新開始

delay:mov r3,#20;延時子程序
d1:mov r4,#20
d2:mov r5,#248
djnz r5,$
djnz r4,d2
djnz r3,d1
ret
end