8led.asm

这是一个八路跑马灯的实验在单片机做跑马灯时经常用到 希望能对大家有帮助

;********************************************************************************
;*         延时实现LED流水灯效果   p1口八个灯作跑马灯。采用了寄存器存中间数     *
;********************************************************************************
;*  日期:  2007-3-25                                                            *
;*  版本:  3.0                                                                  *
;*  作者:  深圳学林电子有限公司     专业8051单片机教学站                        *
;*  邮箱: [e-mail]                                                       *
;*  网站： http://www.51c51.com     http://www.8951.com    更多例程请登陆网站   *
;********************************************************************************
;*  硬件：此程序在本公司xlisp系列单片机实验仪运行通过                           *
;********************************************************************************
;* 【版权】 Copyright(C)深圳学林电子有限公司 www.51c51.com  All Rights Reserved *
;* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
;********************************************************************************
	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