8051.asm

LED灯的一些源码

;动态扫描显示8051
;***************************************************************************
;*  [e-mail]		     (51c51 test web)     www.8951.com     *
;*  Create by :石学军      www.51c51.com 更多例程请登陆网站        	   *
;***************************************************************************
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