将DS1302时钟走时更准确的方法

空气

将DS1302时钟走时更准确的方法 [复制链接]

用DS1302制作电子时钟，由于32678K的晶振误差原因造成时钟走时不准确，大家使用的晶振精度都不高，每天误差都差6到10秒，如果购买高精度的晶振价格又非常高，不如用单片机的计时器编程走时更准确，可以进行误差调整，本人作了几个用DS1302时钟，由于32678K晶振的原因，每天都快6-9秒之间，原来用的方法是每天自动校一次，由于每天的误差不是整数，比如每天快7.6秒，这样每天就得自动校8秒，又造成每天慢0.4秒，每月误差又是12秒，走时还是不准确，本人改成了每差1秒校正一次的方法，原理是：比如每天快7.6秒，24*60/7.6=189，也就是189分钟快1秒，每189分钟就自动校一次时钟，这样校时理论上每年的误差最大不到6秒，本人的时钟4个月误差不到1秒，属于相当准确喽，现在提供给大家分享。 设计原理是： 由于程序的大小和原理不同，每分钟读取DS1302的次数也不同，这样先设置二个变量，一个是分钟比较变量，用于判断分钟不等相等时计数器变量加1，另一个是校时计数变量，用于校时时间计数，当计数器变量等于189时，DS1302自动修正一次，程序如下：

2. 变量设置
3. BJBL DATA 20H ;分钟比较变量，用于判断分钟不等相等时计数器加1
4. JSBL DATA 21H ;校时计数变量，用于校时时间计数
5. MOV BJBL,#00H
6. MOV JSBL,#00H
7. 自动校时子程序
8. AUTOXS:
9. MOV A,MIN
10. CJNE A,BJBL,AS1
11. JMP AS2
12. AS1: MOV BJBL,A
13. MOV A,JSBL
14. INC A
15. MOV JSBL,A
16. AS2: MOV A,JSBL
17. CJNE A,#0D3H,AS5
18. MOV A,SEC
19. CJNE A,#01H,AS5 ；秒等于1时校回到0秒
20. MOV R1,#8EH ;写保护寄存器
21. MOV R0,#00H ;允许写入
22. LCALL WRITE ;调用写DS1302程序
23. MOV R1,#80H ;写秒寄存器
24. MOV R0,#00H ;启动振荡器工作
25. LCALL WRITE ;调用写DS1302程序
26. MOV R1,#8EH ;写保护寄存器
27. MOV R0,#80H ;禁止写入
28. LCALL WRITE ;调用写DS1302程序
29. MOV JSBL,#00H
30. AS5: RET

复制代码

将此子程序在每次读取DS1302时调用