LED跑馬燈_匯編語言

/***********************************************************
實(shí)驗(yàn)名稱：跑馬燈示例程序

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

ORG 0000H
AJMP MAIN
ORG 0030H

MAIN:clr p1.4    ;打開led使能
     MOV P0,#00H
     LCALL DELAY
     LCALL DELAY
     LCALL DELAY ; 全亮,調(diào)用3次延時
     MOV A,#0FEH  ;二進(jìn)制為11111110 ,這個0就是表示亮
     SETB C
LOOP:MOV P0,A     ;送入8個led
     LCALL DELAY    ;延時
     LCALL DELAY    ;延時
     RLC A         ;利用進(jìn)位標(biāo)志控制左移
     JC LOOP      ;如果有進(jìn)位則跳轉(zhuǎn)
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