text1.asm

uvion环境中通过51单片机编程实现的一个跑马灯程序

 ORG 0000H
          AJMP START
          ORG 0030H

START:    MOV P1,#0FFH
          MOV A,#0FEH
AAA:      MOV P1,A
          LCALL DELAY
          JNB P1.7,BBB
          RL A
          AJMP AAA  
BBB:      MOV A,#7FH
CCC:      MOV P1,A
          LCALL DELAY
          JNB P1.0,START 
          RR A
          AJMP CCC

DELAY:    MOV R7,#250
DL1:      MOV R6,#100
DL2:      MOV R5,#10
          DJNZ R5,$
          DJNZ R6,DL2
          DJNZ R7,DL1
          RET                
     
          END