LED跑马灯_汇编语言

/***********************************************************
实验名称：跑马灯示例程序

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

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