实现日期时间温度的显示万年历.docx
《实现日期时间温度的显示万年历.docx》由会员分享，可在线阅读，更多相关《实现日期时间温度的显示万年历.docx（34页珍藏版）》请在冰点文库上搜索。
实现日期时间温度的显示万年历
;―――――――――――――――――――――――――――――――
;温度值存放单元
TEMP_ZHEQU24H;实时温度值存放单元
TEMPLEQU25H;低温度值存放单元
TEMPHEQU26H;高温度值存放单元
TEMP_THEQU27H;高温报警值存放单元
TEMP_TLEQU28H;低温报警值存放单元
TEMPHCEQU29H;存十位数BCD码
TEMPLCEQU2AH;存个位数BCD码
;―――――――――――――
;======按键输入引脚定义======
K1EQUP3.2
K2EQUP3.3
K3EQUP3.6
K4EQUP3.7
;
SPKEQUP3.5
RELAYEQU2FH
;------------------------------------
;=====DS1302通信引脚定义=====
RSTBITp1.6
SCLKBITp1.4
IOBITp1.5
;=====定义数据存储地址========
DS1302_ADDRDATA30H;地址寄存器
DS1302_DATADATA31H;数据寄存器
TIME_YEARDATA32H;年寄存器
TIME_MONTDATA33H;月寄存器
TIME_DAYDATA34H;天寄存器
WEEK_DATADATA35H;星期寄存器
HOURDATA36H;小时寄存器
MINTUEDATA37H;分钟寄存器
SECONDDATA38H;秒钟寄存器
;=========显示数据缓冲地址============
YEAR_HBUFDATA40H
YEAR_LBUFDATA41H
MONT_HBUFDATA42H
MONT_LBUFDATA43H
DAY_HBUFDATA44H
DAY_LBUFDATA45H
WEEK_HBUFDATA46H
WEEK_LBUFDATA47H
HOUR_HBUFDATA48H
HOUR_LBUFDATA49H
MINTUE_HBUFDATA4AH
MINTUE_LBUFDATA4BH
SECOND_HBUFDATA4CH
SECOND_LBUFDATA4DH
;===============================================
XEQU2FH;LCD地址变量
;―――――――――――――
;LCD控制引脚
RSEQUP2.4
RWEQUP2.5
EEQUP2.6
;―――――――――――――
FLAGEQU20H.0
KEY_UDEQU20H.1
DQEQUp2.7
;＝＝＝＝＝＝＝＝＝＝＝＝＝主程序＝＝＝＝＝＝＝＝＝＝＝＝＝＝
MAIN:
ACALLSET_LCD;LCD初始化设置子程序
ACALLSET_1302;1302初始化
TOOP:
ACALLRESET_1820;调用18B20复位子程序
ACALLTEMP_BJ;显示温度标记"℃"
ACALLMEU_OK;调用显示"OK"信息子程序
TOOP2:
ACALLRE_TEMP;调用读取温度数据子程序
ACALLSET_DATA;调用处理显示温度数据子程序
ACALLTEMP_BJ;显示温度标记子程序
LCALLRD_DS1302
LCALLDATA_BUF
LCALLDISPLAY
SJMPTOOP2;循环
;－－－－－－－－――读取温度数据子程序－－－－－－－－――
RE_TEMP:
ACALLRESET_1820;18B20复位子程序
MOVA,#0CCH;跳过ROM匹配
ACALLWRITE_1820;写入子程序
MOVA,#44H;发出温度转换命令
ACALLWRITE_1820;调写入子程序
ACALLRESET_1820;调复位子程序
MOVA,#0CCH;跳过ROM匹配
ACALLWRITE_1820;写入子程序
MOVA,#0BEH;发出读温度命令
ACALLWRITE_1820;写入子程序
ACALLREAD_1820;调用读取子程序
RET
;－－－－－－－－温度数据处理显示子程序－－－－－－－－－－
SET_DATA:
ACALLCONV_TEMP;处理温度BCD码子程序
ACALLDISP_BCD;显示区BCD码温度值刷新子程序
ACALLCONV;LCD显示子程序
RET
;―――――――――――――
;－－－－－－－－－－处理温度BCD码子程序－－－－－－－－－－
CONV_TEMP:
MOVA,TEMPH;判温度是否零下
ANLA,#80H
JZTC1;温度零转TC1处
CLRC;C=0
MOVA,TEMPL;二进制数求补（双字节）
CPLA;取反加1
ADDA,#01H
MOVTEMPL,A
MOVA,TEMPH
CPLA
ADDCA,#00H
MOVTEMPH,A
JMPTC2
;―――――――――――――
TC1:
MOVTEMPHC,#0AH
TC2:
MOVA,TEMPHC
SWAPA;高、低位交换
MOVTEMPHC,A
MOVA,TEMPL
ANLA,#0FH;乘0.0625
MOVDPTR,#DOTTAB
MOVCA,@A+DPTR
MOVTEMPLC,A;TEMPLCLOW=小数部分BCD
;―――――――――――――
MOVA,TEMPL;整数部分
ANLA,#0F0H;取出高四位
SWAPA;高、低位交换
MOVTEMPL,A
MOVA,TEMPH
ANLA,#0FH;取出低四位
SWAPA;高、低位交换
ORLA,TEMPL;重新组合
MOVTEMP_ZH,A
LCALLHEX2BCD1
MOVTEMPL,A
ANLA,#0F0H;取出高四位
SWAPA;高、低位交换
ORLA,TEMPHC;TEMPHCLOW=十位数BCD
MOVTEMPHC,A
MOVA,TEMPL
ANLA,#0FH;取出低四位
SWAPA;高、低位交换
ORLA,TEMPLC;TEMPLCHI=个位数BCD
MOVTEMPLC,A
MOVA,R4
JZTC3
ANLA,#0FH;取出低四位
SWAPA;高、低位交换
MOVR4,A
MOVA,TEMPHC;TEMPHCHI=百位数BCD
ANLA,#0FH;取出低四位
ORLA,R4
MOVTEMPHC,A
TC3:
RET
;―――――――――――――
HEX2BCD1:
MOVB,#064H;十六进制->BCD
DIVAB;B=A%100
MOVR4,A;R4=百位数
MOVA,#0AH
XCHA,B
DIVAB;B=A%B
SWAPA;高、低位交换
ORLA,B
RET
;―――――――――――――
;小数部分码表
DOTTAB:
DB00H,00H,01H,01H,02H,03H,03H,04H
DB05H,05H,06H,06H,07H,08H,08H,09H
;－－－－－－－－显示区BCD码温度值刷新子程序－－－－－－－－
DISP_BCD:
MOVA,TEMPLC;个位数BCD码送入A
ANLA,#0FH;取低位码
MOV70H,A;小数位
MOVA,TEMPLC
SWAPA;高、低位交换
ANLA,#0FH;取结果数的高位
MOV71H,A;个位
MOVA,TEMPHC
ANLA,#0FH;取低位码
MOV72H,A;十位
MOVA,TEMPHC
SWAPA;高、低位交换
ANLA,#0FH;取结果数的高位
MOV73H,A;百位
MOVA,TEMPHC
ANLA,#0F0H;取低位码
CJNEA,#010H,DI0
JMPDI2
;―――――――――――――
DI0:
MOVA,TEMPHC
ANLA,#0FH;取低位码
JNZDI2;十位数是0
MOVA,TEMPHC
SWAPA;高、低位交换
ANLA,#0FH;取结果数的高位
MOV73H,#0AH;符号位不显示
MOV72H,A;十位数显示符号
DI2:
RET
;==================================================
;==========读1302子程序=================
RD_DS1302:
MOVDS1302_ADDR,#8DH;读DS1302中的年
LCALLREAD;调用读DS1302子程序
MOVTIME_YEAR,DS1302_DATA;把读出的年数据存入年寄存器中
MOVDS1302_ADDR,#8BH;读DS1302中的星期
LCALLREAD
MOVWEEK_DATA,DS1302_DATA;把读出的星期数据存入星期寄存器中
MOVDS1302_ADDR,#89H;读DS1302中的月
LCALLREAD
MOVTIME_MONT,DS1302_DATA;把读出的月数据存入月寄存器中
MOVDS1302_ADDR,#87H;读DS1302中的天
LCALLREAD
MOVTIME_DAY,DS1302_DATA;把读出的天数据存入天寄存器中
MOVDS1302_ADDR,#85H;读DS1302中的小时
LCALLREAD
MOVHOUR,DS1302_DATA;把读出的天数据存入小时寄存器中
MOVDS1302_ADDR,#83H;读DS1302中的分钟
LCALLREAD
MOVMINTUE,DS1302_DATA;把读出的天数据存入分钟寄存器中
MOVDS1302_ADDR,#81H;读DS1302中的秒钟
LCALLREAD
MOVSECOND,DS1302_DATA;把读出的天数据存入秒钟寄存器中
RET
;===========按键子程序=================
;=========数据分离后送显示缓存==================
DATA_BUF:
MOVR0,TIME_YEAR;年数据分离，送显示缓存
LCALLDIVIDE;调用数据分离子程序
MOVYEAR_HBUF,R1
MOVYEAR_LBUF,R2
MOVR0,TIME_MONT;月数据分离，送显示缓存
LCALLDIVIDE
MOVMONT_HBUF,R1
MOVMONT_LBUF,R2
MOVR0,TIME_DAY;日数据分离，送显示缓存
LCALLDIVIDE
MOVDAY_HBUF,R1
MOVDAY_LBUF,R2
MOVR0,WEEK_DATA;星期数据分离，送显示缓存
LCALLDIVIDE
MOVWEEK_HBUF,R1
MOVWEEK_LBUF,R2
MOVR0,HOUR;小时数据分离，送显示缓存
LCALLDIVIDE
MOVHOUR_HBUF,R1
MOVHOUR_LBUF,R2
MOVR0,MINTUE;分钟数据分离，送显示缓存
LCALLDIVIDE
MOVMINTUE_HBUF,R1
MOVMINTUE_LBUF,R2
MOVR0,SECOND;秒钟数据分离，送显示缓存
LCALLDIVIDE
MOVSECOND_HBUF,R1
MOVSECOND_LBUF,R2
RET
;=========日历显示子程序==========
;===============年显示===============
DISPLAY:
MOVA,#10000001B;设定年第1位的显示地址为第1行，第1列
LCALLWR_COMM;调用写指令到液晶子程序
MOVA,#32H;数字2的ASCII码
LCALLWR_DATA;调用写数据到液晶子程序
MOVA,#10000010B;设定年第2位的显示地址为第1行，第2列
LCALLWR_COMM
MOVA,#30H;数字0的ASCII码
LCALLWR_DATA
MOVA,#10000011B;设定年第3位的显示地址为第1行，第3列
LCALLWR_COMM
MOVA,YEAR_LBUF;年的低位缓存数据
ADDA,#30H;加30H修正取ASCII码
LCALLWR_DATA
MOVA,#10000100B;设定年第4位的显示地址为第1行，第4列
LCALLWR_COMM
MOVA,YEAR_HBUF;年的高位缓存数据
ADDA,#30H;加30H修正取ASCII码
LCALLWR_DATA
;=====================斜线显示========================
MOVA,#10000101B;设定斜线的显示地址为第1行，第5列
LCALLWR_COMM
MOVA,#2FH;斜线的ASCII码
LCALLWR_DATA
;================显示月============
MOVA,#10000110B;设定月第1位的显示地址为第1行，第6列
LCALLWR_COMM
MOVA,MONT_LBUF;月的低位缓存数据
ADDA,#30H;加30H修正取ASCII码
LCALLWR_DATA
MOVA,#10000111B;设定月第2位的显示地址为第1行，第7列
LCALLWR_COMM
MOVA,MONT_HBUF;月的高位缓存数据
ADDA,#30H;加30H修正取ASCII码
LCALLWR_DATA
;=======================斜线显示============================
MOVA,#10001000B;设定斜线的显示地址为第1行，第8列
LCALLWR_COMM
MOVA,#2FH;斜线的ASCII码
LCALLWR_DATA
;==============================天显示=======================
MOVA,#10001001B;设定天第1位的显示地址为第1行，第9列
LCALLWR_COMM
MOVA,DAY_LBUF;天的低位缓存数据
ADDA,#30H;加30H修正取ASCII码
LCALLWR_DATA
MOVA,#10001010B;设定天第2位的显示地址为第1行，第10列
LCALLWR_COMM
MOVA,DAY_HBUF;天的高位缓存数据
ADDA,#30H;加30H修正取ASCII码
LCALLWR_DATA
;========================星期显示======================
MOVA,#10001111B;设定星期第2位的显示地址为第1行，第13列
LCALLWR_COMM
MOVA,WEEK_DATA;星期的高位缓存数据
SUBBA,#1
ADDA,#30H;加30H修正取ASCII码
LCALLWR_DATA
;=======================小时显示============================
MOVA,#11000000B;设定小时第1位的显示地址为第2行，第0列
LCALLWR_COMM
MOVA,HOUR_LBUF;小时的低位缓存数据
ADDA,#30H;加30H修正取ASCII码
LCALLWR_DATA
MOVA,#11000001B;设定小时第2位的显示地址为第2行，第1列
LCALLWR_COMM
MOVA,HOUR_HBUF;小时的高位缓存数据
ADDA,#30H;加30H修正取ASCII码
LCALLWR_DATA
;======================冒号的显示==========================
MOVA,#11000010B;设定冒号的显示地址为第2行，第2列
LCALLWR_COMM
MOVA,#3AH;冒号的ASCII码
LCALLWR_DATA
;====================分钟显示======================
MOVA,#11000011B;设定分钟第1位的显示地址为第2行，第3列
LCALLWR_COMM
MOVA,MINTUE_LBUF;分钟的低位缓存数据
ADDA,#30H;加30H修正取ASCII码
LCALLWR_DATA
MOVA,#11000100B;设定分钟第2位的显示地址为第2行，第4列
LCALLWR_COMM
MOVA,MINTUE_HBUF;分钟的高位缓存数据
ADDA,#30H;加30H修正取ASCII码
LCALLWR_DATA
;======================冒号的显示===========================
MOVA,#11000101B;设定冒号的显示地址为第2行，第5列
LCALLWR_COMM
MOVA,#3AH;冒号的ASCII码
LCALLWR_DATA
;=====================秒钟显示=============================
MOVA,#11000110B;设定秒钟第1位的显示地址为第2行，第6列
LCALLWR_COMM
MOVA,SECOND_LBUF;秒钟的低位缓存数据
ADDA,#30H;加30H修正取ASCII码
LCALLWR_DATA
MOVA,#11000111B;设定秒钟第2位的显示地址为第2行，第7列
LCALLWR_COMM
MOVA,SECOND_HBUF;秒钟的高位缓存数据
ADDA,#30H;加30H修正取ASCII码
LCALLWR_DATA
RET
;――――――――DS18B20复位初始化子程序――――――――――
RESET_1820:
;复位（有具体的时序要求）
SETBDQ
NOP
CLRDQ
;―――――――――――――
;主机发出延时537微秒的复位低脉冲
MOVR1,#3
DLY:
MOVR0,#107
DJNZR0,$
DJNZR1,DLY
;―――――――――――――
;然后拉高数据线
SETBDQ
NOP
NOP
NOP
;―――――――――――――
;等待DS18B20回应
MOVR0,#25H
T2:
JNBDQ,T5
DJNZR0,T2
;―――――――――――――
;时序要求延时一段时间
T5:
MOVR0,#117
T6:
DJNZR0,T6
;――――――――――――――
T7:
SETBDQ
RET
;=======================================================
;========DS1302初始化===========
SET_1302:
MOVDS1302_ADDR,#8EH;写DS1302控制指令
MOVDS1302_DATA,#00H;写数据到DS1302的8E控制寄存器中,允许对其进行写操作
LCALLWRITE;调用写DS1302子程序
MOVDS1302_ADDR,#90H;写DS1302控制指令
MOVDS1302_DATA,#0A6H;写数据到DS1302的90控制寄存器中,对电池涓流充电，充电电流为1.1mA
LCALLWRITE;调用写DS1302子程序
RET
;=========查询忙碌标志============
CHECK_BUSY:
PUSHACC
BUSY_LOOP:
CLRE
SETBRW
CLRRS
SETBE
MOVA,p0
JBp0.7,BUSY_LOOP
POPACC
LCALLDEL
RET
;----------------------------------------------------------------------------------------------
;===========延时程序===================
DEL:
MOVR6,#5
L1:
MOVR7,#248
DJNZR7,$
DJNZR6,L1
RET
;――――――――――写入DS18B20子程序―――――――――――
;写入DS18B20（有具体的时序要求）
WRITE_1820:
MOVR2,#8;一共8位数据
CLRC;C=0
WR1:
CLRDQ;总线低位，开始写入
MOVR3,#6
DJNZR3,$;保持16微秒以上
RRCA;把字节DATA分成8个BIT环移给C
MOVDQ,C;写入一个BIT
MOVR3,#23
DJNZR3,$;等待
SETBDQ;重新释放总线
NOP
DJNZR2,WR1;写入下一个BIT
SETBDQ;释放总线
RET
;――――――――――读出DS18B20子程序―――――――――――
;将温度值从DS18B20中读出（有具体的时序要求）
READ_1820:
MOV
升级会员 