等高手

ORG 0000H
AJMP MAIN
ORG 000BH
LJMP BRTO
MAIN: MOV P1,#3FH
      MOV P2,#00H
      MOV R1,#00H
      MOV R2,#00H
      MOV TMOD,#01H
      MOV TH0,#0D8H
      MOV TL0,#0F0H
      SETB EA
      SETB ET0
      SETB TR0
      MOV R0,#64H
LOOP: MOV A,R1
      MOV 60H,A
      CJNE R1,#09H,BRTO
      ACALL DELAY
      MOV R1,#00H
      MOV A,R1
      MOV 60H,A
      INC R2
      MOV A,#00H
      MOV A,R2
      MOV 61H,A
LOOP1:CJNE R2,#05H,LOOP
      ACALL DELAY1
      MOV R2,#00H
      MOV A,#00H
      MOV A,R2
      MOV 61H,A
      RETI
DISP: MOV R3,#60H
      MOV R5,#01H
LD0:  MOV A, R3
      MOV DPTR,#table
      MOVC A,@A+DPTR
      MOV DPTR,#0A0H
      MOVX @DPTR,A
      ACALL DELAY2
      INC R3
      MOV A,R5
      JNB  ACC.1, LD1
      RL A
      MOV R5,A
      AJMP LD0
LD1:  RET
DELAY:MOV R5,#64H
DELAY1:MOV R6,#90H
DELAY2:MOV R7,#02H
BRTO: DJNZ R0,NEXT
      INC R1
      MOV R0,#64H
NEXT: MOV TH0,#0D8H
      MOV TL0,#0F0H
      RET
      END

等高手~~