18led.asm

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

;********************************************************************************
;p1口8个跑马灯的另外一个程序。用移位指令                                        *
;********************************************************************************
;*  日期:  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	main
	org	0030h
main:
	mov	p1,#00h		;全亮
	lcall	delay		;
	lcall	delay		;
	lcall	delay		;延时一段时间
	mov	a,#0feh		;每次只亮一个灯。
loop:	mov	p1,a		;
	lcall	delay		;
	lcall	delay		;
	lcall	delay		;
	rl	a		;循环左移。
	ajmp	loop		;

delay:	mov	r7,#00h		;延时子程序
tt:	mov	r6,#00h
	djnz	r6,$
	djnz	r7,tt
	ret
	end