up51s001.asm

流水灯程序,实现灯的循环电量控制 流水灯程序,实现灯的循环电量控制 流水灯程序,实现灯的循环电量控制

/*******************************************************************************
*                                                                              *
*    File       : uP51s001.asm                                                   *
*    Date       : 2004-9-5                                                     *
*    Version    : 1.0                                                          *
*                                                                              *
*    Author     : kevin           [e-mail]                               *
*    Company    : Http://www.dz51.com                                          *
*                                                                              *
********************************************************************************
*    Descriptoon:                                                              *
*                 LED流水灯                                                    *
*                                                                              *
*                                                                              *
*                                                                              *
*                                                                              *
*                                                                              *
*******************************************************************************/
	ORG	0000H
	LJMP	MAIN

MAIN:
	MOV	P0,#0FEH		; 初始点亮LED1 
	MOV	R7,#0FEH		; 保存P0
MAIN_LP:
	LCALL	DELAY			; 延时
	MOV	A,R7			; 
	RL	A			; 循环移位
	MOV	R7,A			; 保存到R7
	MOV	P0,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