;/********************************************************************
; *  主    頁 ：  HTTP://WWW.QLMCU.COM
; *
; *  程序功能 ：  流水燈的左移右移
; *
; *  應用軟件 ：  KEIL C
; *
; *  版    本 ：  KEIL 7.06
; *
; *  硬    件 ：  WS803、WS804、WS806
; *
; *  創建時間 ：  2005-07-28
; *
; *  注：為了有更多實用的實驗程序供大家學習，部分程序參考網上的資源，
; *      在此謝謝這些無私奉獻的朋友！！！
; *
; ********************************************************************/
;/* 程序詳細功能介紹：
; *做單一燈的左移右移，八個發光二極管L0－L7分別接在單片機的P0.0－P0.7接口上，
; *輸出“0”時，發光二極管亮，開始時P0.0→P0.1→P0.2→P0.3→┅→P0.7→P0.6→┅→P0.0亮，重復循環。
; */
ORG 0000H
;;;LJMP START

;;;;ORG 0100H
START:CLR P3.7 ;選通WS 系列實驗板的LED 流水燈的電源控制端
      MOV R2,#8 ;左移次數
      MOV A,#0FEH
      SETB C
LOOP: MOV P0,A
      LCALL DELAY
      RLC A  ;左移流水燈(帶進位的左移)
      DJNZ R2,LOOP


       MOV R2,#8 ;右移次數
LOOP1: RRC A  ;右移流水燈
       MOV P0,A
       LCALL DELAY
       DJNZ R2,LOOP1
       LJMP START

DELAY: MOV R5,#10 ;延時子程序,改變R5,R6,R7 的值,可以改變延時的時間,從而改變流水燈移動速度
D1: MOV R6,#20
D2: MOV R7,#248
DJNZ R7,$
DJNZ R6,D2
DJNZ R5,D1
RET
END