正反流水燈實驗

;正反流水燈實驗
;*******************************************************************
;*  Date :  2004.4.20              　　                            *
;*  Support Mb:  0735-2197559    E-mail:c51cn@163.com              *
;*  Create by :鄧德武      http://www.c51.cn 更多例程請登陸網站    *
;*        網站單片機學習資料同步更新，敬請新老朋友隨時關注         *
;*******************************************************************
      org     0000h;加
      sjmp    ddw;加
      ORG     0030H         ;程序由地址30開始
DDW:  MOV     SP,#60H       ;設置堆棧指針到RAM地址60H
LOOP:                       ;循環
      CLR     C             ;進位標志清除
      MOV     A,11111111B   ;加載初值使LED全部熄滅
      MOV     R4,#8         ;左移計數值 移8次
LOOPL:
      RLC     A             ;累加器內含值左移一位
      MOV     P1,A          ;由P1輸出
      MOV     R5,#50        ;延遲0.5S
      CALL    DELAY
      DJNZ    R4,LOOPL      ;繼續左移
      MOV     R4,#8         ;右移計數值,移8位
LOOPR:
      RRC     A             ;累加器內含右移一位
      MOV     P1,A          ;由P1輸出
      MOV     R5,#50        ;延遲0.5S
      CALL    DELAY
      DJNZ    R4,LOOPR      ;繼續右移
      JMP     LOOP          ;再執行循環一次
DELAY:                      ;延時子程序0.5
      MOV     R6,#50
S1:   MOV     R7,#100
      DJNZ    R7,$
      DJNZ    R6,S1
      DJNZ    R5,DELAY
      RET
      END