返回主页 单片机教程XL2000开发板 单片机学习 自制编程器 单片机资料 软件下载 电子技术产品介绍如何购买 论坛

;p1口八个灯作跑马灯。采用了寄存器存中间数
;***************************************************************************
;* sxj1974@163.com (51c51 test web) www.8951.com                           *
;* Create by :石学军 www.51c51.com 更多例程请登陆网站                      *
;***************************************************************************


org 0000h
ajmpstart
org0030h
start:
mov a,#0ffh;
clr c;
mov r2,#08h;循环八次。
loop:rlc a;带进位左移。
mov p1,a;输出到P1口。
call delay;延时一段时间
djnz r2,loop;反复循环
mov r2,#07h;再往回循环。
loop1:rrc a;带进位右移
mov p1,a;输出到P1口。
call delay;延时一段时间
djnz r2,loop1;反复循环
jmp start;重新开始

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

照片

hex格式文件下载  (另存为hex格式文件即可直接烧写)