实现日期时间温度的显示万年历.pdf

《实现日期时间温度的显示万年历.pdf》由会员分享，可在线阅读，更多相关《实现日期时间温度的显示万年历.pdf（20页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、RP1;温 度 值 存 放 单 元 TEMP_ZH EQU 24H;实 时 温 度 值 存 放 单 元 TEMPL EQU 25H;低 温 度 值 存 放 单 元 TEMPH EQU 26H;高 温 度 值 存 放 单 元 TEM PTH EQU 27H;高 温 报 警 值 存 放 单 元 TEMP_TL EQU 28H;低 温 报 警 值 存 放 单 元 TEMPHC EQU 29H；存 十 位 数 B C D码 TEMPLC EQU 2AH；存 个 位 数 BCD码=按 键 输 入 引 脚 定 义=SPK EQU P3.5K1 EQU P3.2K2 EQU P3.3K3 EQU P3.6K

2、4 EQU P3.7RELAY EQU 2FH=D S 1 3 0 2通 信 引 脚 定 义=RST BIT pl.6SCLK BIT pl.410 BIT p l.5定 义 数 据 存 储 地 址=：DS1302_ADDR DATA 30H;地 址 寄 存 器 DS1302 DATA DATA 31H;数 据 寄 存 器 TIME_YEAR DATA 32H;年 寄 存 器 TIM EM O N T DATA 33H;月 寄 存 器 TIME_DAY DATA 34H;天 寄 存 器 W EEKDATA DATA 35H;星 期 寄 存 器 HOUR DATA 36H;小 忖 寄 存 器 M

3、INTUE DATA 37H;分 钟 寄 存 器 SECOND DATA 38H;秒 钟 寄 存 器;=显 示 数 据 缓 冲 地 址=YEAR_HBUF DATA 40HY EA R LB U F DATA 41HMONT_HBUF DATA 42HM O N TLBU F DATA 43HD A Y H B U F DATA 44HD A Y LBU F DATA 45HW EEK H B U F DATA 46HW EEK LBU F DATA 47HHOUR_HBUF DATA 48HHOUR_LBUF DATA 49HMINTUE HBUF DATA 4AHMINTUE_LBUF D

4、ATA 4BHSECOND HBUF DATA 4CHSECOND LBUF DATA 4DHX EQU 2FH;L C D地 址 变 量；L C D控 制 引 脚 RS EQU P2.4RW EQU P2.5E EQU P2.6FLAG EQU 20H.0K EY U D EQU 20H.1DQ EQU p2.7主 程 序=MAIN:ACALLACALLTOOP:ACALLACALLSET_LCDSET_1302RESET_1820TEMP_BJACALL MEU OK；LCD初 始 化 设 置 子 程 序;1302初 始 化;调 用 18B20复 位 子 程 序；显 示 温 度 标 记;调

5、 用 显 示“OK”信 息 子 程 序 TOOP2:ACALL RETEM PACALL SET_DATAACALL TEM PBJLCALL RD_DS1302LCALL DATA_BUFLCALL DISPLAYSJMP TOOP2；调 用 读 取 温 度 数 据 子 程 序;调 用 处 理 显 示 温 度 数 据 子 程 序；显 示 温 度 标 记 子 程 序；循 环 读 取 温 度 数 据 子 程 序 RE TEMP:ACALL RESET 1820;18B20复 位 子 程 序 MOV A,#0CCHACALL WRITE_1820MOV A,#44HACALL W RITE1820

6、ACALL RESET_1820MOV A,#0CCHACALL WRITE_1820MOV A,#0BEHACALL WRITE_1820ACALL READ1820RET;跳 过 RO M匹 配;写 入 子 程 序;发 出 温 度 转 换 命 令；调 写 入 子 程 序；调 复 位 子 程 序;跳 过 RO M匹 配；写 入 子 程 序;发 出 读 温 度 命 令；写 入 子 程 序;调 用 读 取 子 程 序 温 度 数 据 处 理 显 示 子 程 序 SETDATA:ACALL CONVTEMPACALL DISP_BCDACALL CONVRET；处 理 温 度 B C D 码 子

7、程 序;显 示 区 B C D 码 温 度 值 刷 新 子 程 序;LCD显 示 子 程 序 处 理 温 度 B C D码 子 程 序 CONV TEMP:JZ TCI;温 度 零 转 T C I处 CLR C;C=0MOV A,TEMPHANL A,#80H;判 温 度 是 否 零 下 MOV A,TEMPL;二 进 制 数 求 补（双 字 节）CPL A；取 反 加 1ADD A,#01HMOV TEMPL,AMOV A,TEMPHCPL AADDC A,#00HMOV TEMPH,AJMP TC2TCI:MOV TEMPHC,#OAHMOV DPTR,#DOTTABTC2:MOV A,T

8、EMPHCSWAP AMOV TEMPHC,AMOV A,TEMPLANL A,#0FH;高、低 位 交 换;乘 0.0625MOVC A,A+DPTRMOV TEMPLC,A;TEMPLC LOW=J、数 部 分 BCDMOV A,TEMPLANL A,#0F0HSWAP AMOV TEMPL,AMOV A,TEMPHANL A,#0FHSWAP AORL A,TEMPL；整 数 部 分；取 出 高 四 位；高、低 位 交 换；取 出 低 四 位；高、低 位 交 换；重 新 组 合 MOV TEMP_ZH,ALCALL HEX2BCD1MOV TEMPL,AANL A,#0F0HSWAP A

9、ORL A,TEMPHCMOV TEMPHC,AMOV A,TEMPLANL A,#0FHSWAP AORL A,TEMPLCMOV TEMPLC,A;取 出 高 四 位;高、低 位 交 换;TEMPHC LOW=十 位 数 BCD；取 出 低 四 位；高、低 位 交 换;TEMPLC HI=个 位 数 BCDMOV A,R4JZ TC3ANL A,#0FH;取 出 低 四 位 SWAP A;高、低 位 交 换 MOV R4,AMOV AJEM PHC;TEMPHC HI=百 位 数 BCDANL A,#0FH；取 出 低 四 位 ORL A,R4MOV TEMPHC,ATC3:RETHEX2

10、BCD1:MOV B,#064H；十 六 进 制-BCDDIV/;B=A%100MOV R4,A；R 4=百 位 数 MOV,A,#0AHXCH A,BDIV AB;B=A%BSWAP A;高、低 位 交 换 ORL A,BRET;小 数 部 分 码 表 DOTTAB:DB 00H,00H,01H,01H,02H,03H,03H,04HDB 05H,05H,06H,06H,07H,08H,08H,09H显 小 区 BCD 码 温 度 值 刷 新 子 程 序-DISP_BCD:MOV A,TEMPLC；个 位 数 BCD码 送 入 AANL A,#0FH；取 低 位 码 MOV 70H,A；小

11、数 位 MOV A,TEMPLCSWAP A；高、低 位 交 换 ANL A,#0FH；取 结 果 数 的 高 位 MOV 71H,A;个 位 MOV A,TEMPHCANL A,#0FH;取 低 位 码 MOV 72H,A;十 位 MOV AJEM PHCSWAP A;高、低 位 交 换 ANL A,#0FH;取 结 果 数 的 高 位 MOV 73H,A;百 位 MOV A,TEMPHCANL A,#0F0H;取 低 位 码CJNE A,#010H,DI0JMP DI2DIO:MOV A,TEMPHCANL A,#0FH;取 低 位 码 JNZ DI2；十 位 数 是 0MOV A,TEM

12、PHCSWAP A;高、低 位 交 换 ANL A,#0FH;取 结 果 数 的 高 位 MOV 73H,#0AH;符 号 位 不 显 示 MOV 72H,A;十 位 数 显 示 符 号 DI2:RET二 读 1302 子 程 序=RD_DS1302:MOV DS1302_ADDR,#8DH;读 口 51302 中 的 年 LCALL READ;调 用 读 DS1302子 程 序 MOV T1ME_YEAR,DS1302_DATA;把 读 出 的 年 数 据 存 入 年 寄 存 器 中 MOV DS1302_ADDR,#8BH;读 DS 1302 中 的 星 期 LCALL READMOV W

13、EEK_DATA,DS1302_DATA;把 读 出 的 星 期 数 据 存 入 星 期 寄 存 器 中 MOV DS1302_ADDR,#89H;读 口 51302 中 的 月 LCALL READMOV TIME_MONT,DS1302_DATA;把 读 出 的 月 数 据 存 入 月 寄 存 器 中 MOV DS1302_ADDR,#87H;读 口$1302 中 的 天 LCALL READMOV TIME_DAY,DS1302_DATA;把 读 出 的 天 数 据 存 入 天 寄 存 器 中 MOV DS1302_ADDR,#85H;读 口 51302 中 的 小 时 LCALL RE

14、ADMOV HOUR,DS1302_DATA;把 读 出 的 天 数 据 存 入 小 时 寄 存 器 中 MOV DS1302_ADDR,#83H;读 DS1302 中 的 分 钟 LCALL READMOV MINTUE,DS1302_DATA;把 读 出 的 天 数 据 存 入 分 钟 寄 存 器 中 DS1302_ADDR,#81H;读 DS 1302 中 的 秒 钟 READSECOND,DS1302_DATA;把 读 出 的 天 数 据 存 入 秒 钟 寄 存 器 中 MOVLCALLMOVRET按 键 子 程 序:数 据 分 离 后 送 显 示 缓 存 DATA_BUF:MOV R

15、O,TIME_YEAR；年 数 据 分 离，送 显 示 缓 存 LCALL DIVIDE；调 用 数 据 分 离 子 程 序 MOV YEAR_HBUF,R1MOV YEAR_LBUF,R2MOV ROJIM EM ONTLCALL DIVIDEMOV MONT_HBUF,R1MOV MONT_LBUF,R2MOV RO,TIME_DAYLCALL DIVIDEMOV DAY_HBUF,R1MOV DAY_LBUF,R2MOV RO,WEEK_DATALCALL DIVIDEMOV WEEK_HBUF,R1MOV WEEK_LBUF,R2MOV RO,HOURLCALL DIVIDEMOV H

16、OUR_HBUF,RIMOV HOUR_LBUF,R2MOV R0,MINTUELCALL DIVIDEMOV MINTUE_HBUF,R1MOV MINTUE_LBUF,R2MOV RO,SECONDLCALL DIVIDEMOV SECOND_HBUF,R1MOV SECOND_LBUF,R2RET；月 数 据 分 离，送 显 示 缓 存；日 数 据 分 离，送 显 示 缓 存；星 期 数 据 分 离，送 显 示 缓 存；小 时 数 据 分 离，送 显 示 缓 存；分 钟 数 据 分 离，送 显 示 缓 存；秒 钟 数 据 分 离，送 显 示 缓 存；=日 历 显 示 子 程 序=；=年

17、显 示=DISPLAY:MOV A,#10000001B;设 定 年 第 1位 的 显 示 地 址 为 第 1行，第 1列 LCALL WR COMM；调 用 写 指 令 到 液 晶 子 程 序MOV A,#32H;数 字 2 的 ASCII 码 LCALL WR_DATA;调 用 写 数 据 到 液 晶 子 程 序 MOV A,#10000010B;设 定 年 第 2 位 的 显 示 地 址 为 第 1行，第 2 列 LCALL W RCOM MMOV A,#30H;数 字 0 的 ASCII 码 LCALL WRDATAMOV A,#1000001 IB;设 定 年 第 3 位 的 显 示

18、 地 址 为 第 1行，第 3 列 LCALL W RCOM MMOV A,YEAR_LBUF;年 的 低 位 缓 存 数 据 ADD A,#30H;加 30H 修 正 取 ASCH 码 LCALL WR_DATAMOV A,#10000100B;设 定 年 第 4 位 的 显 示 地 址 为 第 1行，第 4 列 LCALL W RCOM MMOV A,YEAR_HBUF;年 的 高 位 缓 存 数 据 ADD A,#30H;加 30H 修 正 取 ASCII 码 LCALL WRDATA；=斜 线 显 示 一=MOV A,#10000101B;设 定 斜 线 的 显 示 地 址 为 第 1

19、行，第 5 列 LCALL W RCOM MMOV A,#2FH;斜 线 的 ASCII 码 LCALL WR_DATA；=显 示 月=_ _ _MOV A,#10000110B;设 定 月 第 1位 的 显 示 地 址 为 第 1行，第 6 列 LCALL W RCOM MMOV A,MONT_LBUF;月 的 低 位 缓 存 数 据 ADD A,#30H;加 30H 修 正 取 ASCII 码 LCALL WR_DATAMOV A,#10000111B;设 定 月 第 2 位 的 显 示 地 址 为 第 1行，第 7 列 LCALL W RCOM MMOV A,MONT_HBUF;月 的

20、高 位 缓 存 数 据 ADD A,#30H;加 30H 修 正 取 ASCII 码 LCALL WRDATA；=斗 线 显 示:=：一=MOV A,#10001000B;设 定 斜 线 的 显 示 地 址 为 第 1行，第 8 列 LCALL W RCOM MMOV A,#2FH;斜 线 的 ASCII 码 LCALL WRDATA二 天 显 示=-=MOV A,#10001001B;设 定 天 第 1位 的 显 示 地 址 为 第 1行，第 9 列LCALL W RCOM MMOV A,DAY_LBUF 沃 的 低 位 缓 存 数 据 ADD A,#30H;加 30H 修 正 取 ASCI

21、I 码 LCALL WR_DATAMOV A,#10001010B;设 定 天 第 2 位 的 显 示 地 址 为 第 1行，第 10列 LCALL WR_COMMMOV A,DAY_HBUF;天 的 高 位 缓 存 数 据 ADD A,#30H;加 30H 修 正 取 ASCII 码 LCALL WRDATA；=星 期 显 示 一=MOV A,#10001111B;设 定 星 期 第 2 位 的 显 示 地 址 为 第 1行，第 13列 LCALL WR_COMMMOV A,WEEK_DATA;星 期 的 高 位 缓 存 数 据 SUBB A,#lADD A,#30H;加 30H 修 正 取

22、 ASCII 码 LCALL WR_DATA;-:小 时 显 小=MOV A,#11000000B;设 定 小 时 第 1位 的 显 示 地 址 为 第 2 行，第 0 列 LCALL W RCOM MMOV A,HOUR_LBUF;小 时 的 低 位 缓 存 数 据 ADD A,#30H;加 30H 修 正 取 ASCII 码 LCALL WRDATAMOV A,#1100000IB;设 定 小 时 第 2 位 的 显 示 地 址 为 第 2 行，第 1列 LCALL W RCOM MMOV A,HOUR_HBUF;小 时 的 高 位 缓 存 数 据 ADD A,#30H;加 30H 修 正

23、 取 ASCII 码 LCALL WRDATA;-冒 号 的 显 示=.-MOV A,#l 1000010B;设 定 冒 号 的 显 示 地 址 为 第 2 行，第 2 列 LCALL W RCOM MMOV A,#3AH；冒 号 的 ASCII 码 LCALL WRDATA;-=-分 钟 显 zn-=-MOV A,#1100001 IB;设 定 分 钟 第 1位 的 显 示 地 址 为 第 2 行，第 3 列 LCALL W RCOMMMOV A,MINTUE_LBUF;分 钟 的 低 位 缓 存 数 据 ADD A,#30H;加 30H 修 正 取 ASCII 码 LCALL WRDATA

24、MOV A,#11000100B;设 定 分 钟 第 2 位 的 显 示 地 址 为 第 2 行，第 4 列 LCALL W RCOM MMOV A,MINTUE HBUF;分 钟 的 高 位 缓 存 数 据 ADD A,#30H;加 30H 修 正 取 ASCII 码LCALL WRDATA=冒 号 的 显 示=MOV A,#11000101B;设 定 冒 号 的 显 示 地 址 为 第 2 行，第 5 列 LCALL WR_COMMMOV A,#3AH 眉 号 的 ASCII 码 LCALL WR_DATA=秒 钟 显 示=_=_MOV A,#1100011 OB;设 定 秒 钟 第 1位

25、 的 显 示 地 址 为 第 2 行，第 6 列 LCALL WR_COMMMOV A,SECOND_LBUF;秒 钟 的 低 位 缓 存 数 据 ADD A,#30H;加 30H 修 正 取 ASCII 码 LCALL WR_DATAMOV A,#l 100011 IB;设 定 秒 钟 第 2 位 的 显 示 地 址 为 第 2 行，第 7 列 LCALL WR_COMMMOV A,SECOND_HBUF;秒 钟 的 高 位 缓 存 数 据 ADD A,#30H;加 30H 修 正 取 ASCII 码 LCALL WR_DATARET-DS18B20复 位 初 始 化 子 程 序-RESET

26、_1820:;复 位（有 具 体 的 时 序 要 求）SETB DQNOPCLR DQ；主 机 发 出 延 时 537微 秒 的 复 位 低 脉 冲 MOV RI,#3DLY:MOVDJNZDJNZR0,#107R0,$R1,DLY；然 后 拉 高 数 据 线 SETB DQNOPNOPNOP;等 待 DS18B20回 应 MOV R0,#25HT2:JNB DQ,T5DJNZ R0,T2;时 序 要 求 延 时 一 段 时 间 T5:MOV R0,#117T6:DJNZ R0,T6T7:SETB DQRET;=D S 1 3 0 2 初 始 化=SET_1302:MOV DS1302_ADD

27、R,#8EH;写 DS1302 控 制 指 令 MOV DS1302_DATA,#00H;写 数 据 到 DS1302的 8 E控 制 寄 存 器 中，允 许 对 其 进 行 写 操 作 LCALL WRITE;调 用 写 DS1302子 程 序 MOV DS1302 ADDR,#90H;写 DS1302 控 制 指 令 MOV DS1302_DATA,#0A6H;写 数 据 到 DS1302的 9 0控 制 寄 存 器 中，对 电 池 涓 流 充 电，充 电 电 流 为 1.1mALCALL WRITE;调 用 写 DS 1302子 程 序 RET;=查 询 忙 碌 标 志=CHECKBUS

28、Y:PUSH ACCBUSYLOOP:CLR ESETB RWCLR RSSETB EMOV A,pOJB p0.7,BUSY_LOOPPOP ACCLCALL DELRET 延 时 程 序 一 一=DEL:MOV R6,#5LI:MOV R7,#248DJNZ R7,$DJNZ R6,L1RET-写 入 DS18B20子 程 序;写 入 DS18B20（有 具 体 的 时 序 要 求）WRITE_1820:MOV R2,#8;一 共 8 位 数 据 CLR C;C=0WRI:CLR DQ；总 线 低 位，开 始 写 入 MOV R3,#6DJNZ R3,$；保 持 16微 秒 以 上 RRC

29、 A；把 字 节 DATA分 成 8 个 BIT环 移 给 CMOV DQ,C;写 入 一 个 BITMOV R3,#23DJNZ R3,$；等 待 SETB DQ；重 新 释 放 总 线 NOPDJNZ R2,WR1；写 入 下 一 个 BITSETB DQ；释 放 总 线 RET；-读 HIDS18B20 子 程 序-一;将 温 度 值 从 DS18B20中 读 出（有 具 体 的 时 序 要 求）READ 1820:MOV R4,#4MOV R1,#TEMPLREO:;存 入 25H、26H、27H、28HMOV R2,#8REI:；数 据 一 共 有 8 位 CLRCSETB DQNO

30、PNOPCLR DQNOPNOPNOPSETB DQ；读 前 总 线 保 持 为 低 位;总 线 释 放 MOV R3,#9DJNZ R3,$MOV C,DQ;延 时 18微 妙；从 总 线 读 到 一 个 BITMOV R3,#23;自 定 义 字 符 子 程 序 DJNZ R3,$；等 待 5 0微 秒 RRC A;把 读 得 的 位 值 环 移 给 ADJNZ R2,RE1;读 下 一 个 BITMOV R1,AINC RI；R I内 数 据 递 增 DJNZ R4,RE0RET;-LCD 1 6 0 2显 示 程 序-;初 始 化 设 置 SET_LCD:CLR ECALL INIT_

31、LCD；初 始 化 LCDCALL STORE_DATA;将 自 定 义 字 符 存 入 L C D的 CGRAMRET-L C D初 始 化 子 程 序-INIT_LCD:MOV A,#38H；设 置 8 位、2 行、5 x 7点 阵 ACALL WR COMM;调 用 写 指 令 子 程 序 AC ALL DELAY 1;调 用 延 时 子 程 序 MOV A,#0CH；开 显 示，光 标 不 闪 烁 ACALLWRCOMM;调 用 写 指 令 子 程 序；AC ALL DELAY 1;调 用 延 时 子 程 序 MOV A,#01H;清 除 L C D显 示 屏 ACALL W RCOM

32、 M；调 用 写 指 令 子 程 序；AC ALL DELAY 1;调 用 延 时 子 程 序 RET;-显 示 温 度 标 记 子 程 序-TEM PBJ:MOV A,#0CEH;设 定 第 二 行 起 始 地 址 ACALL WR_COMM;调 用 写 指 令 子 程 序 MOV DPTR,#BJ；存 代 码 表 MOV R1,#0；使 指 针 指 到 表 中 第 一 个 码 MOV R0,#2;取 码 次 数 TpO:MOV A,RI；A 为 0MOVC A,A+DPTR;取 码 ACALL WR_DATA;调 用 写 数 据 子 程 序 INC RI;R1 值 加 1DJNZ RO,T

33、pO；判 断 是 否 将 代 码 读 取 完？RET9BJ:DB OOHJC”；代 码 表；将 自 定 义 字 符 写 入 LCD1602的 CGRAM中 STORE_DATA:MOV A,#40H;指 定 CG RAM起 始 地 址 ACALL W RCOM M；将 指 令 写 入 LCDMOV R2,#08H；图 形 数 据 长 度 8 个 字 节 MOV DPTR,#TAB；存 代 码 表 MOV R3,#00H；使 指 针 指 到 表 中 第 一 个 码 S_D:MOV A,R3；A 为 0MOVC A,A+DPTR;读 取 表 代 码 ACALL WR_DATA；调 用 写 入 数

34、据 指 令 INC R3;R 3值 加 1DJNZ R2,S_D；判 断 是 否 将 代 码 读 取 完？RET，TAB:；代 码 表 DB 0CH,12H,12H,0CHDB OOH,OOH,OOH,OOH-显 示“OK”信 息 子 程 序 MEU_OK:MOV DPTR,#M_OK1;指 针 指 到 显 示 消 息 MOV A,#l;显 示 在 第 一 行 ACALL LCDPRINT;LCD显 示 MOV DPTR,#M_OK2;指 针 指 到 显 示 消 息 MOV A,#2;显 示 在 第 一 行 ACALL LCD_PRINT;LCD显 示 RETM_OK1:DB-WK:,0M O

35、K 2:DB-,0；-菜 单 显 示 子 程 序;在 L C D的 第 一 行 或 第 二 行 显 示 字 符 LCD_PRINT:CJNE A,#1,LINE2LINE1:ACALL CLR_LINEMOV A,#80HACALL WR_COMMJMP FILL；判 断 是 否 为 第 一 行；清 除 该 行 字 符 数 据;设 置 L C D 的 第 一 行 地 址；写 入 命 令 LINE2:LC D显 示 子 程 序 ACALL CLRLINE;清 除 该 行 字 符 数 据 MOV A,#0C0H；设 置 L C D的 第 二 行 地 址 ACALL WR_COMMFILL:CLR

36、A；填 入 字 符 MOVC A,A+DPTR；由 消 息 区 取 出 字 符 CJNE A,#O,LC1；判 断 是 否 为 结 束 码 RETLC1:ACALL WR_DATA；写 入 数 据 INC 1 DPTR；指 针 加 1JMP FILL；继 续 填 入 字 符 RETCONV:MOV A,73H;加 载 百 位 数 据 MOV X,#9;设 置 位 置 CJNEA,#1,CO1JMP CO2CO1:MOV A,#”MOV B,XACALL LCDP2JMP CO3CO2:ACALL SHOW_LINE2CO3:INC XMOV A,72HACALL SHOWLINE2INC XM

37、OV A,71HACALL SHOW_LINE2INC XMOV A,#7MOV B,XACALL LCDP2MOV A,70HINC XACALL SHOWLINE2RET-显 示 第 二 行 一;在 L C D的 第 二 行 显 示 数 字 SHOW_LINE2:ADD A,#30H;显 示 数 据；位 力 U 1;十 位;显 示 数 据;位 力 口 1;个 位;显 示 数 据;位 力 口 1;显 示 字 符;加 载 小 数 点 位;设 置 位 置;显 示 数 据MOV B,XACALL LCDP2RETLCDP2:;在 L C D的 第 二 行 显 示 字 符 PUSH ACC；放 入

38、堆 栈 MOV A,B；设 置 显 示 地 址 ADD A,#0C0H；设 置 LC D的 第 二 行 地 址 ACALL WR_COMM；写 入 命 令 POP ACC；由 堆 栈 取 出 AACALL WRDATA；写 入 数 据 RET;-写 指 令 子 程 序-WR_COMM:MOV pO,A；写 入 指 令 CLR RS；RS=O,选 择 指 令 寄 存 器 CLR RW;RW=0,选 择 写 模 式 SETB E;E=1,允 许 读/写 LCMACALL DELAY 1;延 时 5MsCLR E;E=0,禁 止 读/写 LCMRET写 数 据 子 程 序-WRDATA:MOV pO

39、,A；写 入 数 据 SETB RS;RS=1,选 择 数 据 寄 存 器 CLR RW;RW=0,选 择 写 模 式 SETB E;E=1,允 许 读/写 LCMACALL DE;延 时 0.5MSCLR E；E=0,禁 止 读/写 LCMACALL DE;延 时 0.5MSRET-清 除 L C D 的 字 符-CLRLINE:MOV RO,#24；设 置 计 数 值 CL1:MOV A,#M；载 入 空 格 符 至 LCDACALL WRDATA;输 出 字 符 至 LCDDJNZ RO,CL1；判 断 RET5CLR_LINE1:;清 除 L C D的 第 一 行 字 符 MOV A,

40、#80H；设 置 L C D的 第 一 行 地 址 ACALL WR_COMM；调 用 写 指 令 子 程 序 MOV RO,#24；设 置 计 数 值 Cl:MOV A,#;载 入 空 格 符 至 LCDACALL WR DATA；输 出 字 符 至 LCDDJNZ RO,ClRET；计 数 结 束.*写 302 程 序*WRITE:CLR SCLKNOPSETB RSTNOPMOVA,DS1302_ADDRMOV R4,#8WRITE 1:RRCA;送 地 址 给 1302NOPNOPCLR SCLKNOPNOPNOPMOV IO,CSETB SCLK;送 入 地 址 在 时 钟 上 升

41、沿 有 效 NOPNOPNOPNOPDJNZ REWRITE 1CLR SCLKNOPMOVA,DS1302_DATAMOV R4,#8WRITE2:RRCANOP;送 数 据 给 1302,时 钟 上 升 沿，数 据 输 入 CLR SCLKNOPNOPMOV IO,CNOPNOPNOPSETB SCLKNOPNOPDJNZ R4,WRITE2CLR RSTCLRARET.*读 302 J*READ:CLR SCLKNOPNOPSETB RSTNOPMOVA,DS1302_ADDRMOV R4,#8READ1:RRCANOPMOV IO,CNOPNOPNOPSETB SCLK;送 入 地 址

42、 在 时 钟 1 二 升 沿 有 效 NOPNOPNOPCLR SCLKNOPNOPDJNZ R4,READ1;判 断 8 位 数 据 是 否 传 送 完？MOV R4,#8READ2:CLR SCLKNOPNOPNOPMOV C,IONOPNOPNOPNOPNOP;从（151302中 读 取 数 据，时 钟 下 降 沿 有 效 RRCANOPNOPNOPNOPSETB SCLKNOPDJNZ R4,READ2;判 断 8 位 数 据 是 否 传 送 完？MOV DS1302_DATA,ACLR RSTRET；=分 离 数 据 子 程 序=DIVIDE:MOV A,ROANLA,#0FH;屏

43、蔽 掉 低 4 位，留 下 高 4 位 MOVR1,AMOV A,ROSWAP A;A中 数 据 高 4 位 与 低 4 位 互 换 ANLA,#0FH;实 际 上 是 屏 蔽 掉 了 高 4 位，留 下 低 4 位 MOV R2,ARET;=延 时 2 秒 子 程 序=DELAY2:MOV R5,#20D3:MOV R6,#200D2:MOV R7,#250DJNZ R7,$DJNZ R6,D2DJNZ R5,D3RET；-鸣 响 子 程 序 SPKBZ:RETMOV R6,#100BZ2:ACALL DEXICPL SPKDJNZ R6,BZ2MOV R5,#10ACALL DELAYRETDEXI:MOV R7,#180DE2:NOPDJNZ R7,DE2END一 延 时 子 程 序-DELAY:；延 时 时 间 为:R5X10MSDL1:MOV R7,#100DJNZ R7,SDJNZ R6,DL1DJNZ R5,DELAYRETDELAY 1:；延 时 时 间 为 5MSMOV R6,#25DL2:MOV R7,#100DJNZ R7,$DJNZ R6,DL2RETDE:MOV R7,#250；延 时 时 间 为 0.5MSDJNZ R7,$RET