;***************************************************************************
;*  程序功能：P1口接的8个发光二极管流水灯点亮                                                             *
;*  雨飞电子科技资讯网  www.yufik.com  E-mail: yufik@163.com                                       *
;*  程序编写:飞奔  更多例程请关注我们的网站                                                                     *
;***************************************************************************
                 ORG 0000H
                 AJMP MAIN
                 ORG 0030H

MAIN:     MOV A,#0FEH      ;送数据初值
                 MOV P1,A              ;数据送P1口点亮发光二极管 
                 ACALL DELAY      ;延时
                 MOV R3,#07H        ;设置左移7次
LOOP:     RL A                         ;左移一位
                 MOV P1,A               ;数据送P1口点亮发光二极管
                 ACALL DELAY      ;延时
                 DJNZ R3,LOOP      ;R3是否为0，不为0转LOOP继续执行
                 AJMP MAIN           ;返回主程循环执

DELAY:   MOV R7,#255          ;延时子程序
D1:            MOV R6,#255
D2:            DJNZ R6,D2
                  DJNZ R7,D1
                  RET                          ;子程序返回
                  END                         ;程序结束