请各位大哥大姐指点

以下程序能否在进行优化,又或者提供对比

这个程序是实现类似家庭时钟功能的(不过时间不是很准)

请各位大哥大姐给点意见,又或者是提供对比程序

也请各位同道中人一起来讨论

 

 

RESULT DATA 30H
ORG 0000H
LJMP MAIN
ORG 000BH
LJMP T0
MAIN:LCALL CSH
LOOP:LCALL BCD
     LCALL DTSM
     CJNE R1,#60,LOOP
     SJMP MAIN

CSH: SETB EA
     SETB ET0
     MOV TH0,#HIGH(65536-5000)
     MOV TL0,#LOW(65536-5000)
     MOV TMOD,#01H
     MOV DPTR,#1000H
     MOV R1,#000
     MOV R2,#10
     MOV R3,#20
     MOV P2,0F0H
     SETB TR0
     RET

BCD: MOV A,R1
     MOV B,#10
     DIV AB
     MOV RESULT,A
     MOV RESULT+1,B
     RET

DTSM:
LOOP:MOV P2,#0FDH
     MOV P1,@R0
     LCALL DELAY
     MOV P2,#0FEH
     MOV A,RESULT+1
     LCALL CB
     RL A
     DJNZ R2,LOOP
     SJMP DTSM   
     RET

T0:  MOV TH0,#HIGH(65536-5000)
     MOV TL0,#LOW(65536-5000)
     DJNZ R3,FH
     MOV R3,#20
     INC R1
FH:  RETI

CB:  MOVC A,@A+DPTR
     MOV P1,A
     LCALL DELAY
     RET
DELAY:MOV R7,#10
   D1:MOV R6,#20
      DJNZ R6,$
      DJNZ R7,D1
      RET

ORG 1000H
DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END