基于单片机的电子台历设计

1、目目 录录一、引言一、引言.2 2(一)本课题的背景.2(二) 本设计的目的和意义.2(三)本设计的要求.3(四)方案选择与实验基本原理.3二二. .系统的硬件设计与实现系统的硬件设计与实现.6 6（一） 、 电路设计框图.6（二） 、系统硬件概述.6（三） 、主要单元电路的设计.6三、系统的软件设计三、系统的软件设计.1111（一）程序流程框图.11（二）子程序的设计.14四、结论及展望四、结论及展望.1919五、致谢词五、致谢词.1919(一)系统电路图.20(二)系统程序清单.21六、参考文献六、参考文献.6363一、引言一、引言（一）本课题的背景作为中国一种传统的东西，挂历在人们心中一

2、直有着特殊的含义。因为挂历除了有查阅日期、方便记事等功能外，还是一种颇有文化品位的装饰物。而对于一些公司、企业，在挂历上印刷一些自己的产品、服务内容、联系电话等，无疑也是一种宣传，也正是因为如此，挂历长期以来一直受到人们的青睐。什么铜版纸、塑膜挂历、典雅的宣纸、绢丝、油画布挂历和富丽堂皇的金箔画、镭射画挂历等层出不穷。而今，随着时代发展，挂历大有美人迟暮之感。据调查发现 90%的家庭表示今年将不会去买挂历；其中 50%的市民家庭的挂历是单位发或他人送；但这 50%的市民表示，如果单位不发、他人不送，自己不会主动去买。那么是什么让我们的传统如此疲软呢？众所周知，传统挂历最大的功能是查看日期，装饰

3、其次，作为礼品则是最后。近些年随着生活水平的提高，人们获知日期的途径已越来越多。据中国社会调查事务所(ssic)在北京、上海等地对 265 位居民进行的计算机辅助电话调查显示（此项调查为多选题）：有 68%的被访者看日历，有 62%的被访者看台历(其中有 21%的被访者使用的是电子台历)；有 58%的被访者看呼机；有 27%的被访者看手机；有 20%的被访者看手表；有 14%的被访者看街上的显示牌；有 33%的被访者看电视；有 60%的被访者看报纸；有 16%的被访者听广播；有 42%的被访者上网；有 12%的被访者向别人打听。由此表明，挂历实用功能的弱化直接导致了挂历市场的“疲软” 。 那么

4、，曾经被认同的装饰功能呢？回答也是否定的。很多人已经明确表示，明年不挂挂历。因为消费者认为花很大力气装修的房子，有谁愿意在墙上打个眼儿挂挂历呢？影响美观不说，还很俗气。至于礼品功能，大多数消费者都认为现在用挂历当礼品有点不够档次。随着电子科技的不断发展，传统的挂历已被一些高档的电子台历所取代，与传统的挂历相比，电子台历融合了挂历和时钟的优点，能昼夜清晰显示，集年、月、日、时、分、秒、日期、农历、气温于一体，外观新颖，造型别具一格。除此之外由于挂历制作成本相对较高，挂历的销售价格也大多在530元之间，而一个电子台历的价格也在这之间，但是挂历只能用一年，而电子台历则不一样，由于它可以自动识别闰年、

5、公历、农历、大小月份、农历，星期能自动对应公历无须调整。对若干年前后的日期都可以查询，但考虑到其寿命原因，至少也可用 58 年。在价格相差不大的情况下，电子台历的性价比显然要高的多，就其阅读功能而言，电子台历阅读起来更加方便，同时他还有闹铃和显示温度的功能，这比传统的挂历要强大的多。其实现的方法也很简单，用一个单片机和 lcd 液晶显示器就可以实现，由此可见，电子台历的市场经济开发价值要比挂历要高的多，电子台历取代传统的挂历已成为不可抵挡的趋势。因此开发一个电子台历就必须要了解单片机和 lcd 夜晶显示器的原理和功能等，下面一节我们将简单介绍一下单片机和液晶显示器。(二) 本设计的目的和意义1

6、、在学习了数字电子技术和单片机原理及接口技术课程后，为了加深对理论知识的理解，学习理论知识在实际中的运用，培养动手能力和解决实际问题的经验让学生接触专用时钟芯片 ds1302，并会用 ds1302 芯片开发时钟模块，应用到其他系统中去。熟悉 wave 软件调试程序和仿真.2、通过实验提高对单片机的认识；3、通过实验提高焊接、布局、电路检查能力；4、通过实验提高软件调试能力；5、进一步熟悉和掌握单片机的结构及工作原理。6、通过课程设计，掌握以单片机核心的电路设计的基本方法和技术，了解表关电路参数的计算方法。7、通过实际程序设计和调试，逐步掌握模块化程序设计方法和调试技术。8、 通过完成一个包括电

7、路设计和程序开发的完整过程，使学生了解开发一单片机应用系统的全过程，为今后从事相应打下基础。(三)本设计的要求1、基本要求（1）具有年、月、日、星期、时、分、秒等功能；（2）时间与阴、阳历能够自动关联；（3）有温度计功能； （4）具备年、月、日、星期、时、分、秒校准功能；2、创新要求（1）具有上、下课响铃功能； （2）具有防御报警功能；(四)方案选择与实验基本原理1、方案选择（1）单片机芯片的选择方案和论证：方案一: 采用 89c51 芯片作为硬件核心，采用 flash rom，内部具有 4kb rom 存储空间,能于 3v 的超低压工作,而且与 mcs-51 系列单片机完全兼容,但是运用于电

8、路设计中时由于不具备 isp 在线编程技术, 当在对电路进行调试时，由于程序的错误修改或对程序的新增功能需要烧入程序时，对芯片的多次拔插会对芯片造成一定的损坏。方案二:采用 at89s52,片内 rom 全都采用 flash rom；能以 3v 的超底压工作；同时也与 mcs-51 系列单片机完全该芯片内部存储器为 8kb rom 存储空间，同样具有 89c51 的功能，且具有在线编程可擦除技术，当在对电路进行调试时，由于程序的错误修改或对程序的新增功能需要烧入程序时，不需要对芯片多次拔插，所以不会对芯片造成损坏。所以选择采用 at89s52 作为主控制系统.（2） 显示模块选择方案和论证：方

9、案一：采用 led 液晶显示屏,液晶显示屏的显示功能强大,可显示大量文字,图形,显示多样,清晰可见,但是价格昂贵,需要的接口线多,所以在此设计中不采用led 液晶显示屏.方案二：采用点阵式数码管显示，点阵式数码管是由八行八列的发光二极管组成，对于显示文字比较适合,如采用在显示数字显得太浪费,且价格也相对较高,所以也不用此种作为显示.方案三：采用 led 数码管动态扫描,led 数码管价格适中,对于显示数字最合适,而且采用动态扫描法与单片机连接时,占用的单片机口线少。所以采用了 led 数码管作为显示。（3）时钟芯片的选择方案和论证：方案一：直接采用单片机定时计数器提供秒信号，使用程序实现年、月

10、、日、星期、时、分、秒计数。采用此种方案虽然减少芯片的使用，节约成本，但是，实现的时间误差较大。所以不采用此方案。方案二：采用 ds1302 时钟芯片实现时钟，ds1302 芯片是一种高性能的时钟芯片，可自动对秒、分、时、日、周、月、年以及闰年补偿的年进行计数，而且精度高,位的 ram 做为数据暂存区，工作电压 2.5v5.5v 范围内，2.5v 时耗电小于300na.（4）温度传感器的选择方案与论证:方案一：使用热敏电阻作为传感器，用热敏电阻与一个相应阻值电阻相串联分压，利用热敏电阻阻值随温度变化而变化的特性，采集这两个电阻变化的分压值，并进行 a/d 转换。 。此设计方案需用 a/d 转换

11、电路，增加硬件成本而且热敏电阻的感温特性曲线并不是严格线性的，会产生较大的测量误差。方案二：采用数字式温度传感器 ds18b20，此类传感器为数字式传感器而且仅需要一条数据线进行数据传输，易于与单片机连接，可以去除 a/d 模块，降低硬件成本，简化系统电路。另外，数字式温度传感器还具有测量精度高、测量范围广等优点。（5）电路设计最终方案决定综上各方案所述,对此次作品的方案选定: 采用 at89s52 作为主控制系统; ds1302 提供时钟;数字式温度传感器;led 数码管动态扫描作为显示。2、实验基本原理按照系统设计功能的要求，初步确定设计系统由主控模块、时钟模块、显示模块、键盘接口模块、温

12、度采集模块共 5 个模块组成，电路系统构成框图如图 1 所示。主芯片 at89s52,片内 rom 全都采用 flash rom；能以 3v 的超底压工作；同时也与 mcs-51 系列单片机完全该芯片内部存储器为 8kb rom 存储空间，具有在线编程可擦除技术，当在对电路进行调试时，由于程序的错误修改或对程序的新增功能需要烧入程序时，不需要对芯片多次拔插，所以不会对芯片造成损坏。时钟芯片使用美国 dallas 公司推出的一种高性能、低功耗、带ram 的实时时钟 dsl302。采用 dsl 302 作为主要计时芯片，可以做到计时准确。更重要的是，dsl302 可以在很小电流的后备电源(2555

13、v 电源，在25v 时耗电小于 300 na)下继续计时，并可编程选择多种充电电流来对后备电源进行慢速充电，可以保证后备电源基本不耗电。 显示模块采用 led 数码管动态扫描，键输入采用查询法实现调整功能，与单片机连接时,占用的单片机口线少。数字式温度传感器 ds18b20，此类传感器为数字式传感器而且仅需要一条数据线进行数据传输，易于与单片机连接，可以去除 a/d 模块，降低硬件成本，简化系统电路。另外，数字式温度传感器还具有测量精度高、测量范围广等优点。二二.系统的硬件设计与实现系统的硬件设计与实现（一） 、 电路设计框图图 1 电子万年历电路系统构成框图（二） 、系统硬件概述本电路是由

14、at89s52 单片机为控制核心，具有在线编程功能，低功耗，能在 3v 超低压工作；时钟电路由 ds1302 提供，它是一种高性能、低功耗、带ram 的实时时钟电路，它可以对年、月、日、周日、时、分、秒进行计时，具有闰年补偿功能，工作电压为 2.5v5.5v。采用三线接口与 cpu 进行同步通信，并可采用突发方式一次传送多个字节的时钟信号或 ram 数据。ds1302 内部有一个 31*8 的用于临时性存放数据的 ram 寄存器。可产生年、月、日、周日、时、分、秒，具有使用寿命长，精度高和低功耗等特点，同时具有掉电自动保存功能；温度的采集由 ds18b20 构成；显示部份由个数码管，74ls1

15、38、74ls47译码器构成。使用动态扫描显示方式对数字的显示。（三） 、主要单元电路的设计1、单片机主控制模块的设计 at89s52 单片机为 40 引脚双列直插芯片,有四个 i/o 口 p0,p1,p2,p3, mcs-51 单片机共有 4 个 8 位的 i/o 口（p0、p1、p2、p3） ，每一条 i/o 线都能独立地作输出或输入。单片机的最小系统如下图所示,18 引脚和 19 引脚接时钟电路,xtal1 接外部at89s52s52主控制模 块ds1302 时钟模块led 数码管动态扫描显示模块温度采集模块键盘模块晶振和微调电容的一端,在片内它是振荡器倒相放大器的输入,xtal2 接外

16、部晶振和微调电容的另一端,在片内它是振荡器倒相放大器的输出.第 9 引脚为复位输入端,接上电容,电阻及开关后够上电复位电路,20 引脚为接地端,40 引脚为电源端. 如图 2 所示图 2 主控制系统2、 时钟电路 dsl302图 3 示出 ds1302 的引脚排列，其中 vcc1 为后备电源，vcc2 为主电源。在主电源关闭的情况下，也能保持时钟的连续运行。ds1302 由 vcc1 或 vcc2 两者中的较大者供电。当 vcc2 大于 vcc1+0.2v 时，vcc2 给 ds1302 供电。当 vcc2小于 vcc1 时，ds1302 由 vcc1 供电。x1 和 x2 是振荡源，外接 3

17、2.khz 晶振。rst 是复位/片选线，通过把 rst 输入驱动置高电平来启动所有的数据传送。rst 输入有两种功能：首先，rst 接通控制逻辑，允许地址/命令序列送入移位寄存器；其次，rst 提供终止单字节或多字节数据的传送手段。当 rst 为高电平时，所有的数据传送被初始化，允许对 ds1302 进行操作。如果在传送过程中rsts 置为低电平，则会终止此次数据传送，i/o 引脚变为高阻态。上电动行时，在 vcc 大于等于 2.5v 之前，rst 必须保持低电平。中有在 sclk 为低电平时，才能将 rst 置为高电平，i/o 为串行数据输入端（双向） 。sclk 始终是输入端。 图 3

18、ds1302 的引脚图3、温度采集模块设计如图 4 所示。采用数字式温度传感器 ds18b20，它是数字式温度传感器，具有测量精度高，电路连接简单特点，此类传感器仅需要一条数据线进行数据传输，使用0.7 与 ds18b20 的 i/o 口连接加一个上拉电阻,vcc 接电源,vss 接地。 图 4 ds18b20 温度采集4、电路原理及说明(1) 时钟芯片 ds1302 的工作原理： ds1302 在每次进行读、写程序前都必须初始化，先把 sclk 端置 “0” ，接着把 rst 端置“1” ，最后才给予 sclk 脉冲；读/写时序如下图 4 所示。图 5为 ds1302 的控制字，此控制字的位

19、 7 必须置 1，若为 0 则不能把对 ds1302 进行读写数据。对于位 6，若对程序进行读/写时 ram=1，对时间进行读/写时，ck=0。位 1 至位 5 指操作单元的地址。位 0 是读/写操作位，进行读操作时，该位为 1；该位为 0 则表示进行的是写操作。控制字节总是从最低位开始输入/输出的。表 6 为 ds1302 的日历、时间寄存器内容：“ch”是时钟暂停标志位，当该位为 1 时，时钟振荡器停止，ds1302 处于低功耗状态；当该位为 0 时，时钟开始运行。 “wp”是写保护位，在任何的对时钟和 ram 的写操作之前，wp 必须为 0。当“wp”为 1 时，写保护位防止对任一寄存器

20、的写操作。(2) ds1302 的控制字节ds1302 的控制字如表-1 所示。控制字节的高有效位（位 7）必须是逻辑1，如果它为 0，则不能把数据写入 ds1302 中，位 6 如果 0，则表示存取日历时钟数据，为 1 表示存取 ram 数据；位 5 至位 1 指示操作单元的地址；最低有效位（位 0）如为 0 表示要进行写操作，为 1 表示进行读操作，控制字节总是从最低位开始输出 (3) 数据输入输出（i/o）在控制指令字输入后的下一个 sclk 时钟的上升沿时，数据被写入ds1302，数据输入从低位即位 0 开始。同样，在紧跟 8 位的控制指令字后的下一个 sclk 脉冲的下降沿读出 ds

21、1302 的数据，读出数据时从低位 0 位到高位7。如下图 5 所示图 5 ds1302 读/写时序图(4) ds1302 的寄存器ds1302 有 12 个寄存器，其中有 7 个寄存器与日历、时钟相关，存放的数据位为 bcd 码形式,其日历、时间寄存器及其控制字见表-2。表-2 ds1302 的日历、时间寄存器此外，ds1302 还有年份寄存器、控制寄存器、充电寄存器、时钟突发寄存器及与 ram 相关的寄存器等。时钟突发寄存器可一次性顺序读写除充电寄存器外的所有寄存器内容。 ds1302 与 ram 相关的寄存器分为两类：一类是单个 ram单元，共 31 个，每个单元组态为一个 8 位的字节

22、，其命令控制字为c0hfdh，其中奇数为读操作，偶数为写操作；另一类为突发方式下的 ram 寄存器，此方式下可一次性读写所有的 ram 的 31 个字节，命令控制字为 feh(写)、ffh(读)。 5、显示模块的设计如图 6 所示，采用动态扫描显示，由个数码管，3-8 译码器 74ls138接 1k 限流电阻,再接 8550 三极管接到共阳数码管的 com 端作为选通位码,每位选择相应的列。74ls47 接240 限流电阻,再接共行的 led 数码管的断码。 图 6 led 动态扫描显示三、系统的软件设计三、系统的软件设计（一）程序流程框图开始初始化读、写日期、时间和温度分离日期时间温度显示值

23、显示子程序农历自动更新子程序日期、时间修改子程序闰月子程返回定时闹表-2 ds1302 的日历、时间寄存器铃子程序图 7 主程序流程图图8 计算阳历程序流程图图 9 时间调整程序流程图图 10 阴历程序流程图（二）子程序的设计1、 ds18b20 温度子程序 config12 equ 7fh temph equ 21h templ equ 20h reg2 equ 22h reg3 equ 23h reg4 equ 24h dat equ p0.7toutou: lcall chushi lcall rdtemp mov a,templ anl a,#11110000b mov templ,a

24、 mov a,temph anl a,#00000111b orl a,templ swap a mov 25h,a mov a,25h mov b,#64h div ab mov a,b mov b,#0ah div ab swap a orl a,b mov 10h,a retchushi: lcall reset mov a,#0cch lcall write111 mov a,#4eh lcall write111 mov a,#config12 lcall write111 retrdtemp: lcall reset mov a,#0cch lcall write111 mov a

25、,#44h lcall write111 lcall dl1ms lcall reset mov a,#0cch lcall write111 mov a,#0beh lcall write111 lcall erad111 mov templ,a lcall erad111 mov temph,a retreset:la: setb dat mov 52h,#200lb: clr dat djnz 52h,lb setb dat mov 52h,#30lc: djnz 52h,lc clr c orl c,dat jc lb mov 58h,#80ld: orl c,dat jc lp dj

26、nz 58h,ld sjmp lalp: mov 52h,#250lf: djnz 52h,lf retwrite111: mov 53h,#8w51ha: setb dat mov 54h,#8 rrc a clr datw52ha: djnz 54h,w52ha mov dat,c mov 54h,#30w53ha: djnz 54h,w53ha djnz 53h,w51ha setb dat reterad111: clr ea mov 58h,#8rd1a: clr dat mov 54h,#6 nop setb datrd2a: djnz 54h,rd2a mov c,dat rrc

27、 a mov 55h,#30rd3a: djnz 55h,rd3a djnz 58h,rd1a setb dat ret2、读、写 ds1302 子程序;写 1302 程序 write: clr sclk nop setb rst nop mov a,32h mov r4,#8write1: rrc a ;送地址给 1302 nop nop clr sclk nop nop nop mov io,c nop nop nop setb sclk nop nop djnz r4,write1 clr sclk nop mov a,31h mov r4,#8write2: rrc a nop ;送数

28、据给 1302 clr sclk nop nop mov io,c nop nop nop setb sclk nop nop djnz r4,write2 clr rst ret;读 1302 程序read: clr sclk nop nop setb rst nop mov a,32h mov r4,#8read1: rrc a ;送地址给 1302 nop mov io,c nop nop nop setb sclk nop nop nop clr sclk nop nop djnz r4,read1 mov r4,#8read2: clr sclk nop ;从 1302 中读出数据

29、nop nop mov c,io nop nop nop nop nop rrc a nop nop nop nop setb sclk nop djnz r4,read2 mov 31h,a clr rst ret四、结论及展望四、结论及展望本设计基于 51 系列的 at89s52 制作了多功能电子台历，完成实时时钟、电子台历、室内温度的显示，具有闰年补偿，调整时间日期，设置闹钟，根据设定的年、月、日自动匹配星期的扩展功能。本系统特别实用于日常生活的时钟温度控制的应用，以此为基础，可以开发出多种前景极其乐观的各类应用，如铃声定时系统，防盗报警系统，温度控制系统等。在下一步的工作中，可以考虑使

30、用 51 功能的模块并开发嵌入式系统温度时间的应用。虽较为完善的完成了既定功能，但仍存在一定的缺陷。没有添加蜂鸣器，闹钟及输入错误时只能显示报警，没有声音提示。未能添加电池功能，在主电源关闭的情况下，不能保持时钟的连续运行。五、致谢词五、致谢词“千里之行，始于足下。 ”终于完成了毕业设计的全部工作，有一种如释重负的感觉。前后经历了四个月时间，但对于踏踏实实搞知识创新的人来说，从搜集材料、投入研讨到起草排版、打印输出，这是一个漫长的过程。其间有过百思不解时的苦闷，也有过豁然开朗时的喜悦，不曾身处其境的人，一般不宜感同身受。我的导师汪光宅说过：“科研工作是一项艰苦、寂寞并且需要全心全意投入的工作，

31、一旦选择了这个责任，我们就要承担得起他人所不能承受的压力。正因为这样，我们才要努力做出成果！”事先有了心理准备，做起事来才不至于手足无措。尽管如此，由于毕业设计涉及内容较多，范围较宽，方方面面都要照顾到，还是不可避免地遇到许多问题。学校领导未雨绸缪，提前让我们熟悉了解了毕业设计的基础知识，同时下发毕业设计（论文）指导手册予以辅导，这给了我们极大的鼓舞和帮助。导师每周三次的面授和上机指导，给论文的进展带来缕缕曙光和推动力。更难忘实验室老师刘强和寝室同学对我的这次毕业设计的帮助与关心，使得我的工作和学习得以顺利进行。在此谨以一颗感激之心向这些给予我极大帮助的人致以衷心的谢意。附录：附录：(一)系统

32、电路图（二）系统程序清单config12 equ 7fh temph equ 21h templ equ 20h reg2 equ 22h reg3 equ 23h reg4 equ 24h dat equ p0.7 sclk equ p3.2 io equ p3.3 rst equ p3.4 year data 66h month data 65h week data 64h day data 63h hour data 62h mintue data 61h second data 60h org 0000h ljmp start org 001bh ljmp intt1start: ;初

33、值 lcall zj setb ea mov scon,#00h ; 串行输出，方式 0 mov tmod,#10h ;计数器1，方式 1 mov tl1,#00h mov th1,#00h mov 32h,#8eh mov 31h,#00h ;允许写1302 lcall write mov 32h,#90h mov 31h,#0a6h ;1302 充电，充电电流 1.1ma lcall write ;主程序main1: mov 32h,#8dh ;读出年 lcall read mov year,31h mov 32h,#8bh ;读出星期 lcall read mov week,31h mo

34、v 32h,#89h ;读出月 lcall read mov month,31h mov 32h,#87h ;读出日 lcall read mov day,31h mov 32h,#85h ;读出小时 lcall read mov hour,31h mov 32h,#83h ;读出分钟 lcall read mov mintue,31h mov 32h,#81h ;读出秒 lcall read mov second,31h ;分离缓存 mov r0,year ;年分离，送显示缓存 lcall divide mov 7bh,r1 mov 4bh,r1 mov 7ch,r2 mov 4ch,r2

35、mov 78h,week mov 48h,week mov r0,month ;月分离，送显示缓存 lcall divide mov 79h,r1 mov 49h,r1 mov 7ah,r2 mov 4ah,r2 mov r0,day ;日分离，送显示缓存 lcall divide mov 76h,r1 mov 46h,r1 mov 77h,r2 mov 47h,r2 mov r0,hour ;小时分离，送显示缓存 lcall divide mov 74h,r1 mov 44h,r1 mov 75h,r2 mov 45h,r2 mov r0,mintue ;分钟分离，送显示缓存 lcall d

36、ivide mov 72h,r1 mov 42h,r1 mov 73h,r2 mov 43h,r2 mov r0,second ;秒分离，送显示缓存 lcall divide mov 70h,r1 mov 40h,r1 mov 71h,r2 mov 41h,r2 clr ea lcall toutou setb ea lcall display lcall gengxian ;更新农历程序 jnb p0.1,setg111 jnb f0,sss setb p0.4 ;非闰月，则 p0.4 清零,指示灯亮 ljmp main1setg111: ljmp setgsss: clr p0.4 ;闰月

37、，则 p0.4置位，指示灯不亮 ljmp main1; 温度toutou: lcall chushi lcall rdtemp mov a,templ anl a,#11110000b mov templ,a mov a,temph anl a,#00000111b orl a,templ swap a mov 25h,a mov a,25h mov b,#64h div ab mov a,b mov b,#0ah div ab swap a orl a,b mov 10h,a retchushi: lcall reset mov a,#0cch lcall write111 mov a,#4

38、eh lcall write111 mov a,#config12 lcall write111 retrdtemp: lcall reset mov a,#0cch lcall write111 mov a,#44h lcall write111 lcall dl1ms lcall reset mov a,#0cch lcall write111 mov a,#0beh lcall write111 lcall erad111 mov templ,a lcall erad111 mov temph,a retreset:la: setb dat mov 52h,#200lb: clr dat

39、 djnz 52h,lb setb dat mov 52h,#30lc: djnz 52h,lc clr c orl c,dat jc lb mov 58h,#80ld: orl c,dat jc lp djnz 58h,ld sjmp lalp: mov 52h,#250lf: djnz 52h,lf retwrite111: mov 53h,#8w51ha: setb dat mov 54h,#8 rrc a clr datw52ha: djnz 54h,w52ha mov dat,c mov 54h,#30w53ha: djnz 54h,w53ha djnz 53h,w51ha setb

40、 dat reterad111: clr ea mov 58h,#8rd1a: clr dat mov 54h,#6 nop setb datrd2a: djnz 54h,rd2a mov c,dat rrc a mov 55h,#30rd3a: djnz 55h,rd3a djnz 58h,rd1a setb dat ret;公历设置程序setg : setb tr1 setb et1 mov 32h,#8eh mov 31h,#00h ;允许写1302 lcall write mov 32h,#80h mov 31h,#80h ;1302 停止振荡 lcall writegwait: ;

41、lcall display jnb p0.1,gwaitsetg1: lcall display jnb p0.1,setg2 jnb p0.2,gaddyear jnb p0.3,jianyear ajmp setg1gaddyear: mov r7,66h ;年加一 lcall add1 mov 66h,a cjne a,#51h,gaddyear1 mov 66h,#00h ajmp gaddyear1jianyear: mov r7,66h ;年减一 lcall jian1 mov 66h,a cjne a,#00h,gaddyear1 mov 66h,#51hgaddyear1: m

42、ov 32h,#8ch ;年值送人1302 mov 31h,66h lcall write mov r0,66h lcall divide ;年分离送显示缓存 mov 4bh,r1 mov 7bh,r1 mov 4ch,r2 mov 7ch,r2waitt1: ; lcall display jnb p0.2,waitt1 jnb p0.3,waitt1 ajmp setg1setg2: setb 0ah ;调月时闪标志gwait2: lcall display jnb p0.1,gwait2setg3: lcall display jnb p0.1,setg4 jnb p0.2,gaddmo

43、nth jnb p0.3,jianmonth ajmp setg3gaddmonth: mov r7,65h ;月加一 lcall add1 mov 65h,a cjne a,#13h,gaddmonth1 mov 65h,#01h ajmp gaddmonth1jianmonth: mov r7,65h ;月减一 lcall jian1 mov 65h,a cjne a,#00h,gaddmonth1 mov 65h,#12hgaddmonth1: mov 32h,#88h ;月值送人1302 mov 31h,65h lcall write mov r0,65h lcall divide ;

44、月分离，送显示缓存 mov 79h,r1 mov 49h,r1 mov 7ah,r2 mov 4ah,r2waitt2: ; lcall display jnb p0.2,waitt2 jnb p0.3,waitt2 ajmp setg3setg4: setb 0bh ;调日时闪标志gwait4: lcall display jnb p0.1,gwait4setg5: lcall display jnb p0.1,setg6 jnb p0.2,gaddday jnb p0.3,jianday ajmp setg5gaddday: mov r7,63h ;日加一 lcall add1 mov 6

45、3h,a cjne a,#32h,gaddday1 mov 63h,#01hjianday: mov r7,63h ;日减一 lcall jian1 mov 63h,a cjne a,#00h,gaddday1 mov 63h,#31hgaddday1: mov 32h,#86h ;日值送人 1302 mov 31h,63h lcall write mov r0,63h lcall divide ;日分离，送显示缓存 mov 76h,r1 mov 46h,r1 mov 77h,r2 mov 47h,r2waitt3: ; lcall display jnb p0.2,waitt3 jnb p0

46、.3,waitt3 ajmp setg5setg6: setb 0ch ;调星期时闪标志gwait6: lcall display jnb p0.1,gwait6setg7: lcall display jnb p0.1,setg8 jnb p0.2,gaddweek jnb p0.3,jianweek ajmp setg7gaddweek: mov r7,64h ;星期加一 lcall add1 mov 64h,a cjne a,#07h,gaddweek1 mov 64h,#00h ajmp gaddweek1jianweek: mov r7,64h ;星期减一 lcall jian1 m

47、ov 64h,a cjne a,#00h,gaddweek1 mov 64h,#06hgaddweek1: mov 32h,#8ah mov 31h,64h ;星期值送人 1302 lcall write mov r0,64h lcall divide ;星期值分离送显示缓存 mov 48h,r1 mov 78h,r1waitt4: ; lcall display jnb p0.2,waitt4 jnb p0.3,waitt4 ajmp setg7setg8: setb 0dh ;调小时时闪标志gwait8: lcall display jnb p0.1,gwait8setg9: lcall

48、display jnb p0.1,setg10 jnb p0.2,gaddhour jnb p0.3,jianhour ajmp setg9gaddhour: mov r7,62h ;小时加一 lcall add1 mov 62h,a cjne a,#24h,gaddhour1 mov 62h,#00h ajmp gaddhour1jianhour: mov r7,62h ;小时减一 lcall jian1 mov 62h,a cjne a,#00h,gaddhour1 mov 62h,#23hgaddhour1: mov 32h,#84h ;小时值送人 1302 mov 31h,62h lc

49、all write mov r0,62h lcall divide ;小时值分离送显示缓存 mov 74h,r1 mov 44h,r1 mov 75h,r2 mov 45h,r2waitt5: ; lcall display jnb p0.2,waitt5 jnb p0.3,waitt5 ajmp setg9setg10: setb 0eh ;调分时候闪标志gwait10: lcall display jnb p0.1,gwait10setg11: lcall display jnb p0.1,setgout jnb p0.2,gaddmintue jnb p0.3,jianmintue aj

50、mp setg11gaddmintue: mov r7,61h ;分钟加一 lcall add1 mov 61h,a cjne a,#60h,gaddmintue1 mov 61h,#00h ajmp gaddmintue1jianmintue: mov r7,61h ;分钟减一 lcall jian1 mov 61h,a cjne a,#00h,gaddmintue1 mov 61h,#59hgaddmintue1: mov 32h,#82h ;分钟值送人 1302 mov 31h,61h lcall write mov r0,61h lcall divide ;分钟值分离送显示缓存 mov

51、 72h,r1 mov 42h,r1 mov 73h,r2 mov 43h,r2waitt6: lcall display jnb p0.2,waitt6 jnb p0.3,waitt6 ajmp setg11setgout: lcall display jnb p0.1,setgout lcall gengxian mov 32h,#80h mov 31h,#00h ;1302 晶振开始振荡 lcall write mov 32h,#8eh mov 31h,#80h ;禁止写入1302 lcall write clr 08h clr 09h clr 0ah clr 0bh clr 0ch c

52、lr 0dh clr 0eh clr 0fh clr et1 ;关闪中断 clr tr1 ljmp main1;闪动调时程序intt1: push acc push pswgflash: cpl 0fh jb 0fh,gflash1 mov 7ch,4ch ;全部显示 mov 7bh,4bh mov 7ah,4ah mov 79h,49h mov 78h,48h mov 77h,47h mov 76h,46h mov 75h,45h mov 74h,44h mov 73h,43h mov 72h,42h mov 71h,41h mov 70h,40hgflashout: pop psw pop

53、 acc retigflash1: jb 0ah,gflash2 ;调年闪 mov 7ch,#0fh mov 7bh,#0fh ajmp gflashoutgflash2: jb 0bh,gflash3 ;调月闪 mov 7ah,#0fh mov 79h,#0fh ajmp gflashoutgflash3: jb 0ch,gflash4 ;调日闪 mov 77h,#0fh mov 76h,#0fh ajmp gflashoutgflash4: jb 0dh,gflash5 ;调星期闪 mov 78h,#0fh ajmp gflashoutgflash5: jb 0eh,gflash6 ;调小

54、时闪 mov 75h,#0fh mov 74h,#0fh ajmp gflashoutgflash6: mov 73h,#0fh ;调分钟闪 mov 72h,#0fh ajmp gflashout;加一程序add1: mov a,r7 add a,#1 da a ret;减一程序jian1: mov a,r7 dec a cjne a,#4fh,kk1 mov a,#49hkk1: cjne a,#3fh,kk2 mov a,#39hkk2: cjne a,#2fh,kk3 mov a,#29hkk3: cjne a,#1fh,kk4 mov a,#19hkk4: cjne a,#0fh,kk

55、5 mov a,#09hkk5: ret;分离程序divide: mov a,r0 anl a,#0fh mov r1,a mov a,r0 swap a anl a,#0fh mov r2,a ret;写 1302 程序write: clr sclk nop setb rst nop mov a,32h mov r4,#8write1: rrc a ;送地址给 1302 nop nop clr sclk nop nop nop mov io,c nop nop nop setb sclk nop nop djnz r4,write1 clr sclk nop mov a,31h mov r4

56、,#8write2: rrc a nop ;送数据给 1302 clr sclk nop nop mov io,c nop nop nop setb sclk nop nop djnz r4,write2 clr rst ret;读 1302 程序read: clr sclk nop nop setb rst nop mov a,32h mov r4,#8read1: rrc a ;送地址给 1302 nop mov io,c nop nop nop setb sclk nop nop nop clr sclk nop nop djnz r4,read1 mov r4,#8read2: clr

57、 sclk nop ;从 1302 中读出数据 nop nop mov c,io nop nop nop nop nop rrc a nop nop nop nop setb sclk nop djnz r4,read2 mov 31h,a clr rst ret;bcd 码转换为 10 进制程序bcd_10: mov a,r0 anl a,#0fh mov r1,a ;高位10， 加低位 mov a,r0 swap a anl a,#0fh mov b,#10 mul ab add a,r1 mov r0,a ret;查一年数据程序checkmonth: lcall bcd_10 mov a

58、,r0 mov b,#04 mul ab mov r1,a mov dptr,#tab movc a,a+dptr mov r7,a ;第一字节送 r7 inc r1 mov a,r1 movc a,a+dptr mov r6,a ;第二字节送 r6 inc r1 mov a,r1 movc a,a+dptr mov r5,a ;第三字节送 r6 inc r1 mov a,r1 movc a,a+dptr mov r4,a ;第四字节送 r4 ret;自动更新农历gengxian: mov r2,#00h mov r3,#00h mov a,month cjne a,#01h,gm2 mov

59、r0,day ;当前月为一月 lcall bcd_10 ;当前日转换为10 进制，送 r2 mov a,r0 mov r2,a ajmp tiaozheng1gm2: cjne a,#02h,gm3 mov r0,day ;当前月为二月 lcall bcd_10 ;当前日转换为 10 进制， mov a,r0 ;再加 31，送r2 add a,#31 mov r2,a ajmp tiaozheng1gm3: cjne a,#03h,gm4 mov r0,day ;当前月为三月 lcall bcd_10 ;当前日转换为 10 进制， mov a,r0 ;再加 59，送r2 add a,#59 m

60、ov r2,a ajmp tiaozheng1gm4: cjne a,#04h,gm5 mov r0,day ;当前月为四月 lcall bcd_10 ;当前日转换为 10 进制, mov a,r0 ;再加 90，送r2 add a,#90 mov r2,a ajmp tiaozheng1gm5: cjne a,#05h,gm6 mov r0,day ;当前月为五月 lcall bcd_10 ;当前日转换为 10 进制， mov a,r0 ;再加 120，送 r2 add a,#120 mov r2,a ajmp tiaozheng1gm6: cjne a,#06h,gm7 mov r0,da