;********************************************************************************
;动态扫描显示8051 *
;********************************************************************************
;* 日期: 2007-3-25 *
;* 版本: 3.0 *
;* 作者: 深圳学林电子有限公司 专业8051单片机教程站 *
;* 邮箱: sxj1974@163.com *
;* 网站： http://www.51c51.com http://www.8951.com 更多例程请登陆网站 *
;********************************************************************************
;* 硬件：此程序在本公司xlisp系列单片机实验仪运行通过 *
;********************************************************************************
;* 【版权】 Copyright(C)深圳学林电子有限公司 www.51c51.com All Rights Reserved *
;* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！ *
;********************************************************************************
org 00h
loop:
mov p0,#0ffh ;关显示
mov p2,#0ffh ;关显示
clr p2.3 ;选中第一个数码管
mov p0,#20h ;显示8
lcall delay ;延时1ms
mov p0,#0ffh ;关显示
mov p2,#0ffh
clr p2.4 ;选中第二个数码管
mov p0,#28h
lcall delay
mov p2,#0ffh
mov p0,#0ffh
clr p2.5 ;选中第三个数码管
mov p0,#61h
lcall delay
mov p0,#0ffh
mov p2,#0ffh
clr p2.6 ;选中第四个数码管
mov p0,#7eh
lcall delay
ajmp loop ;反复循环
delay:
mov r6,#250 ;延时1ms子程序
d1:djnz r6,d1
ret
end
hex格式文件下载（点右键，目标另存为hex即可直接烧写）
|
