28led.asm

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

;********************************************************************************
; p1口八个灯作二进制加法。理解二进值的计算                                  	*
;硬件连接：p1口8路指示灯							*
;********************************************************************************
;*  日期:  2007-3-25                                                            *
;*  版本:  3.0                                                                  *
;*  作者:  深圳学林电子有限公司     专业8051单片机教学站                        *
;*  邮箱: [e-mail]                                                       *
;*  网站： http://www.51c51.com     http://www.8951.com    更多例程请登陆网站   *
;********************************************************************************
;*  描述:                                                                       *
;   p1口八个灯作二进制加法。理解二进值的计算                                    *
;*  硬件：此程序在本公司xlisp系列单片机实验仪运行通过                           *
;********************************************************************************
;* 【版权】 Copyright(C)深圳学林电子有限公司 www.51c51.com  All Rights Reserved *
;* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
;********************************************************************************
	org 	0000h
	ajmp	main
	org	0030h
main:	mov	a,#0ffh
loop: 	mov     p1,a	;全不亮
	call    delay	;延时。
	dec	a	;每次减一。
	jmp     loop

delay:	mov r5,#50	;延时。
d1: 	mov r6,#40
d2:	mov r7,#248
	djnz r7,$
	djnz r6,d2
	djnz r5,d1
	ret
end