xl8led.asm

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

;********************************************************************************
;*  标题:  xl系列单片机实验仪演示程序                                           *
;*  文件:   XL8LED.asm                                                          *
;*  日期:  2006-1-5                                                             *
;*  版本:  3.0 （试验通过版）可用xl600-xl1000单片机综合试验仪试验               *
;*  邮箱:  [e-mail]                                                      *
;*  网站： http://www.51c51.com    www.8951.com                                 *
;********************************************************************************
;*  描述:                                                                       *
;*         延时实现p1口八路LED流水灯效果 （用循环移位指令）                     *
;*                                                                              *
;*                                                                              *
;*                                                                              *
;********************************************************************************
;* 【版权】 Copyright(C)深圳市学林电子有限公司 www.51c51.com                    *
;* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
;*  【技术支持】请访问http://www.51c51.com/bbs/index.asp  官方论坛              *
;********************************************************************************


	ORG	0000H
	LJMP	MAIN

MAIN:
	MOV	P1,#0FEH		; 初始点亮LED1
	MOV	R7,#0FEH		; 保存P1
MAIN_LP:
	LCALL	DELAY			; 延时
	MOV	A,R7			;
	RL	A			; 循环移位
	MOV	R7,A			; 保存到R7
	MOV	P1,A			; 点亮下一个LED
	JMP	MAIN_LP			; 不停循环

;===========================================================
DELAY:					; 延时子程序
	MOV	R0,#0FFH
	MOV	R1,#0FFH
DLY_LP:
	NOP
	NOP
	DJNZ	R0,DLY_LP
	MOV	R0,#0FFH
	DJNZ	R1,DLY_LP
	RET

	END