单片机实验 控制发光二极管 广告灯左移右移

/*******************************************************************************
*  标题:  蓝海微芯LJD-SY-5100S单片机开发系统演示程序            
*  文件:  广告灯的左移右移.asm                                                            
*  日期:  2006-2-28                                                             
*  版本:  1.0                                                                  
*  作者:  蓝海微芯                                             
*  网站： http://www.ljd-2008.com 
********************************************************************************
*  描述:                                                                       *
*         做单一灯的左移右移                                                   *     
*                                                                              *
*                                                                              *
********************************************************************************
* 【版权】 Copyright(C)微芯科技 http://www.ljd-2008.com    All Rights Reserved *          
* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
*******************************************************************************/
ORG 00H
START:MOV A,#0FFH  ;左移初值
      CLR C        ;c＝0
      MOV R2,#08H  ;设左移8次
LOOP: RLC A        ;左移一位
      MOV P0,A     ;输出至P0
      LCALL DELAY  ;延时0.2秒
      DJNZ R2,LOOP ;左移7次？
      MOV R2,#07H  
LOOP1:RRC  A       ;右移一位
      MOV  P0,A    ;输出至P0
      LCALL DELAY
      DJNZ R2,LOOP1 ;右移7次？
      JMP  START
DELAY:MOV R3,#20    ;延时0.2秒
D1:   MOV R4,#40
D2:   MOV R5,#248
      DJNZ R5,$
      DJNZ R4,D2
      DJNZ R3,D1
      RET 
      END