四个集成共阳极七段数码管先稳定显示“2011”，约1秒之后再稳定显示“12.30”

四个集成共阳极七段数码管先稳定显示“2011”，约1秒之后再稳定显示“12.30”

;经过仿真验证符合要求。
ORG 0000H
LJMP MAIN
ORG 0030H
MAIN:
    MOV R0,#4
    MOV R2,#20
    MOV 30H,#0A4H   ;2
    MOV 31H,#0C0H   ;0
    MOV 32H,#0F9H   ;1
    MOV 33H,#0F9H   ;1
    MOV 34H,#0F9H   ;1
    MOV 35H,#24H   ;2.
    MOV 36H,#0B0H   ;3
    MOV 37H,#0C0H   ;0
   
DISPLY:
       MOV R1,#30H
       MOV R3,#00000001B
       MOV A,R3            ;字位
  LD0:MOV P1,A
      MOV A,@R1
      MOV P2,A
      ACALL DELAY         ;延时
      INC R1
      MOV A,R3
      RL A
      MOV R3,A             ; 下一位
      DJNZ R0,LD0           ;下一位循环
      MOV R0,#4
      ACALL DELAY      
      DJNZ R2,DISPLY       ;10ms*5*20=1s
      MOV R2,#20
      
DISPLY1:MOV R3,#00000001B
        MOV R1,#34H
        MOV A,R3            ;字位
   LD1:
       MOV P1,A
       MOV A,@R1
       MOV P2,A
       ACALL DELAY         ;延时
       INC R1
       MOV A,R3
       RL A
       MOV R3,A             ; 下一位
       DJNZ R0,LD1
       MOV R0,#4
       ACALL DELAY
       DJNZ R2,DISPLY1
       MOV R2,#20
        
       SJMP DISPLY          ;显示了一遍循环
DELAY: MOV R7,#50
DELAY1: MOV R6,#100
DELAY2: DJNZ R6,DELAY2
        DJNZ R7,DELAY1
        RET
                  ; 2u*50*100=10ms
        END

ORG 0000H
LJMP MAIN
MAIN: MOV R0,#50
STARTA:
MOV P1,#0FFH
MOV P2,#100