;******************************************************************************
;*标题: 东哥单片机学习网DG-51/AVR-V1.0开发板演示程序 -LED流水灯
;*文件: DG001.asm
;*版本: 1.0
;*作者: 东哥开发网 - 东哥
;*邮箱: picavr@163.com
;*网站: http://www.picavr.com
;*****************************************************************************
;*: 描述:
;*: 延时实现LED流水灯效果
;*:
;******************************************************************************
;* 【版权】 Copyright(C)东哥单片机学习网 www.picavr.com All Rights Reserved
;* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！
;******************************************************************************
ORG 0000H ;
LJMP START ;转入主程序
ORG 0030H ;
START:
MOV SP,#60H ;贼堆栈初值为60H
;----------------------------------
MAIN:
MOV A,#0FEH ;初始点亮LED1
LOOP:
MOV P2,A ;将A的内容贼值给P2口
CALL DELAY ;延时
RL A ;循环移位
LJMP LOOP ;不停循环
;------------------------------------------
DELAY:
MOV R3,#5 ;延时程序
DELAY10M1:
MOV R4,#200 ;
DELAY10M2:
MOV R5,#247 ;
DJNZ R5,$ ;
DJNZ R4,DELAY10M2 ;
DJNZ R3,DELAY10M1 ;
RET ;
END ;
;----------------------------------------