8led.asm

51单片机跑马灯,八个左右跑马灯。采用了寄存器存中间数

;p1口八个灯作跑马灯。采用了寄存器存中间数
;***************************************************************************
;*  [e-mail]		     (51c51 test web)     www.8951.com     *
;*  Create by :石学军      www.51c51.com 更多例程请登陆网站        	   *
;***************************************************************************
	org 	0000h
	ajmp	start
	org	0030h
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