以下程序能否在进行优化,又或者提供对比
这个程序是实现类似家庭时钟功能的(不过时间不是很准)
请各位大哥大姐给点意见,又或者是提供对比程序
也请各位同道中人一起来讨论
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