/***********************************************************
實驗名稱：跑馬燈示例程序

***********************************************************/

ORG 0000H
AJMP MAIN
ORG 0030H

MAIN:clr p1.4    ;打開led使能
     MOV P0,#00H
     LCALL DELAY
     LCALL DELAY
     LCALL DELAY ; 全亮,調用3次延時
     MOV A,#0FEH  ;二進制為11111110 ,這個0就是表示亮
     SETB C
LOOP:MOV P0,A     ;送入8個led
     LCALL DELAY    ;延時
     LCALL DELAY    ;延時
     RLC A         ;利用進位標志控制左移
     JC LOOP      ;如果有進位則跳轉
TT:  RRC A         ;燈右移
     MOV P0,A      ;送入8個led

     LCALL DELAY  ;延時
     LCALL DELAY  ;延時
     JC TT
     AJMP LOOP

DELAY:MOV R2,#0FEH    ;延時子程序
LOOP0:MOV R3,#0FEH
LOOP1:DJNZ R3,LOOP1
      DJNZ R2,LOOP0
      RET
      END