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

实现日期时间温度的显示万年历 作者： 日期：2 个人收集整理 勿做商业用途; ; 温度值存放单元 TEMP_ZH EQU 24H ;实时温度值存放单元 TEMPL EQU 25H ；低温度值存放单元 TEMPH EQU 26H ；高温度值存放单元 TEMP_TH EQU 27H ；高温报警值存放单元 TEMP_TL EQU 28H ；低温报警值存放单元 TEMPHC EQU 29H ;存十位数 BCD码 TEMPLC EQU 2AH ;存个位数 BCD码 ;；=按键输入引脚定义=K1 EQU P3.2K2 EQU P3。3K3 EQU P3。6K4 EQU P3。7;SPK EQU P3.5RELAY EQU 2FH；-;=DS1302通信引脚定义= RST BIT p1.6 SCLK BIT p1。4 IO BIT p1.5；=定义数据存储地址= DS1302_ADDR DATA 30H ；地址寄存器 DS1302_DATA DATA 31H ;数据寄存器 TIME_YEAR DATA 32H ;年寄存器 TIME_MONT DATA 33H ；月寄存器 TIME_DAY DATA 34H ；天寄存器 WEEK_DATA DATA 35H ；星期寄存器 HOUR DATA 36H ；小时寄存器 MINTUE DATA 37H ;分钟寄存器 SECOND DATA 38H ;秒钟寄存器；=显示数据缓冲地址= YEAR_HBUF DATA 40H YEAR_LBUF DATA 41H MONT_HBUF DATA 42H MONT_LBUF DATA 43H DAY_HBUF DATA 44H DAY_LBUF DATA 45H WEEK_HBUF DATA 46H WEEK_LBUF DATA 47H HOUR_HBUF DATA 48H HOUR_LBUF DATA 49H MINTUE_HBUF DATA 4AH MINTUE_LBUF DATA 4BH SECOND_HBUF DATA 4CH SECOND_LBUF DATA 4DH;= X EQU 2FH ;LCD 地址变量 ; ;LCD控制引脚 RS EQU P2.4 RW EQU P2。5 E EQU P2.6 ; FLAG EQU 20H.0 KEY_UD EQU 20H.1 DQ EQU p2.7; 主程序 MAIN： ACALL SET_LCD ;LCD初始化设置子程序 ACALL SET_1302 ；1302初始化 TOOP: ACALL RESET_1820 ；调用18B20复位子程序 ACALL TEMP_BJ ;显示温度标记” ACALL MEU_OK ；调用显示”OK”信息子程序 TOOP2： ACALL RE_TEMP ;调用读取温度数据子程序 ACALL SET_DATA ;调用处理显示温度数据子程序 ACALL TEMP_BJ ；显示温度标记子程序 LCALL RD_DS1302 LCALL DATA_BUF LCALL DISPLAY SJMP TOOP2 ；循环； 读取温度数据子程序 RE_TEMP： ACALL RESET_1820 ;18B20复位子程序 MOV A,0CCH ;跳过ROM匹配 ACALL WRITE_1820 ;写入子程序 MOV A,#44H ;发出温度转换命令 ACALL WRITE_1820 ；调写入子程序 ACALL RESET_1820 ;调复位子程序 MOV A，0CCH ；跳过ROM匹配 ACALL WRITE_1820 ;写入子程序 MOV A，0BEH ；发出读温度命令 ACALL WRITE_1820 ；写入子程序 ACALL READ_1820 ；调用读取子程序 RET ; 温度数据处理显示子程序 SET_DATA： ACALL CONV_TEMP ；处理温度 BCD 码子程序 ACALL DISP_BCD ;显示区 BCD 码温度值刷新子程序 ACALL CONV ;LCD显示子程序 RET;； 处理温度 BCD 码子程序 CONV_TEMP： MOV A，TEMPH ;判温度是否零下 ANL A，80H JZ TC1 ;温度零转TC1处 CLR C ；C=0 MOV A，TEMPL ；二进制数求补（双字节） CPL A ；取反加1 ADD A，01H MOV TEMPL，A MOV A,TEMPH CPL A ADDC A,#00H MOV TEMPH，A JMP TC2 ; TC1： MOV TEMPHC,#0AH TC2： MOV A，TEMPHC SWAP A ；高、低位交换 MOV TEMPHC，A MOV A，TEMPL ANL A，0FH ；乘0。0625 MOV DPTR,DOTTAB MOVC A，A+DPTR MOV TEMPLC,A ；TEMPLC LOW=小数部分 BCD； MOV A，TEMPL ；整数部分 ANL A，0F0H ；取出高四位 SWAP A ；高、低位交换 MOV TEMPL,A MOV A，TEMPH ANL A,0FH ;取出低四位 SWAP A ;高、低位交换 ORL A,TEMPL ；重新组合 MOV TEMP_ZH,A LCALL HEX2BCD1 MOV TEMPL，A ANL A，0F0H ；取出高四位 SWAP A ；高、低位交换 ORL A,TEMPHC ；TEMPHC LOW = 十位数 BCD MOV TEMPHC,A MOV A,TEMPL ANL A,0FH ;取出低四位 SWAP A ；高、低位交换 ORL A，TEMPLC ;TEMPLC HI = 个位数 BCD MOV TEMPLC,A MOV A，R4 JZ TC3 ANL A,0FH ；取出低四位 SWAP A ；高、低位交换 MOV R4，A MOV A,TEMPHC ;TEMPHC HI = 百位数 BCD ANL A,#0FH ;取出低四位 ORL A，R4 MOV TEMPHC，A TC3: RET； HEX2BCD1： MOV B，064H ;十六进制- BCD DIV AB ;B= A 100 MOV R4,A ；R4 = 百位数 MOV A，#0AH XCH A,B DIV AB ；B = A % B SWAP A ；高、低位交换 ORL A,B RET ; ; 小数部分码表 DOTTAB: DB 00H,00H,01H,01H，02H,03H,03H，04H DB 05H,05H,06H,06H,07H，08H，08H,09H； 显示区BCD 码温度值刷新子程序 DISP_BCD： MOV A,TEMPLC ；个位数BCD码送入A ANL A，#0FH ;取低位码 MOV 70H,A ；小数位 MOV A，TEMPLC SWAP A ；高、低位交换 ANL A,0FH ;取结果数的高位 MOV 71H，A ；个位 MOV A，TEMPHC ANL A,0FH ；取低位码 MOV 72H，A ；十位 MOV A，TEMPHC SWAP A ；高、低位交换 ANL A，#0FH ;取结果数的高位 MOV 73H，A ；百位 MOV A,TEMPHC ANL A,0F0H ;取低位码 CJNE A,#010H,DI0 JMP DI2 ； DI0： MOV A，TEMPHC ANL A,0FH ；取低位码 JNZ DI2 ;十位数是0 MOV A,TEMPHC SWAP A ;高、低位交换 ANL A，0FH ;取结果数的高位 MOV 73H，#0AH ；符号位不显示 MOV 72H,A ；十位数显示符号 DI2： RET;=;=读1302子程序=RD_DS1302： MOV DS1302_ADDR，#8DH ;读DS1302中的年 LCALL READ ；调用读DS1302子程序 MOV TIME_YEAR， DS1302_DATA ;把读出的年数据存入年寄存器中 MOV DS1302_ADDR，#8BH ；读DS1302中的星期 LCALL READ MOV WEEK_DATA, DS1302_DATA ；把读出的星期数据存入星期寄存器中 MOV DS1302_ADDR,#89H ；读DS1302中的月 LCALL READ MOV TIME_MONT, DS1302_DATA ;把读出的月数据存入月寄存器中 MOV DS1302_ADDR，87H ;读DS1302中的天 LCALL READ MOV TIME_DAY， DS1302_DATA ;把读出的天数据存入天寄存器中 MOV DS1302_ADDR，85H ;读DS1302中的小时 LCALL READ MOV HOUR, DS1302_DATA ;把读出的天数据存入小时寄存器中 MOV DS1302_ADDR,83H ；读DS1302中的分钟 LCALL READ MOV MINTUE, DS1302_DATA ;把读出的天数据存入分钟寄存器中 MOV DS1302_ADDR，#81H ；读DS1302中的秒钟 LCALL READ MOV SECOND， DS1302_DATA ；把读出的天数据存入秒钟寄存器中 RET;=按键子程序=；=数据分离后送显示缓存=DATA_BUF： MOV R0，TIME_YEAR ;年数据分离，送显示缓存 LCALL DIVIDE ;调用数据分离子程序 MOV YEAR_HBUF，R1 MOV YEAR_LBUF,R2 MOV R0,TIME_MONT ;月数据分离，送显示缓存 LCALL DIVIDE MOV MONT_HBUF,R1 MOV MONT_LBUF,R2 MOV R0,TIME_DAY ；日数据分离,送显示缓存 LCALL DIVIDE MOV DAY_HBUF，R1 MOV DAY_LBUF，R2 MOV R0,WEEK_DATA ；星期数据分离,送显示缓存 LCALL DIVIDE MOV WEEK_HBUF，R1 MOV WEEK_LBUF，R2 MOV R0,HOUR ;小时数据分离，送显示缓存 LCALL DIVIDE MOV HOUR_HBUF,R1 MOV HOUR_LBUF,R2 MOV R0，MINTUE ;分钟数据分离，送显示缓存 LCALL DIVIDE MOV MINTUE_HBUF，R1 MOV MINTUE_LBUF，R2 MOV R0，SECOND ；秒钟数据分离，送显示缓存 LCALL DIVIDE MOV SECOND_HBUF,R1 MOV SECOND_LBUF，R2 RET ;=日历显示子程序=；=年显示=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 WR_COMM MOV A， #30H ；数字0的ASCII码 LCALL WR_DATA MOV A,#10000011B ；设定年第3位的显示地址为第1行，第3列 LCALL WR_COMM MOV A, YEAR_LBUF ；年的低位缓存数据 ADD A，30H ；加30H修正取ASCII码 LCALL WR_DATA MOV A,#10000100B ;设定年第4位的显示地址为第1行，第4列 LCALL WR_COMM MOV A， YEAR_HBUF ;年的高位缓存数据 ADD A,#30H ;加30H修正取ASCII码 LCALL WR_DATA； =斜线显示= MOV A，#10000101B ；设定斜线的显示地址为第1行，第5列 LCALL WR_COMM MOV A,#2FH ;斜线的ASCII码 LCALL WR_DATA；=显示月= MOV A，#10000110B ；设定月第1位的显示地址为第1行，第6列 LCALL WR_COMM MOV A, MONT_LBUF ;月的低位缓存数据 ADD A，30H ；加30H修正取ASCII码 LCALL WR_DATA MOV A,#10000111B ；设定月第2位的显示地址为第1行，第7列 LCALL WR_COMM MOV A， MONT_HBUF ；月的高位缓存数据 ADD A,30H ；加30H修正取ASCII码 LCALL WR_DATA ；=斜线显示= MOV A,#10001000B ;设定斜线的显示地址为第1行,第8列 LCALL WR_COMM MOV A,2FH ；斜线的ASCII码 LCALL WR_DATA；=天显示= MOV A，#10001001B ;设定天第1位的显示地址为第1行,第9列 LCALL WR_COMM MOV A， DAY_LBUF ;天的低位缓存数据 ADD A，30H ；加30H修正取ASCII码 LCALL WR_DATA MOV A，#10001010B ;设定天第2位的显示地址为第1行，第10列 LCALL WR_COMM MOV A, DAY_HBUF ;天的高位缓存数据 ADD A,30H ；加30H修正取ASCII码 LCALL WR_DATA；=星期显示= MOV A,#10001111B ;设定星期第2位的显示地址为第1行，第13列 LCALL WR_COMM MOV A， WEEK_DATA ；星期的高位缓存数据 SUBB A，#1 ADD A,#30H ；加30H修正取ASCII码 LCALL WR_DATA;=小时显示= MOV A,11000000B ；设定小时第1位的显示地址为第2行,第0列 LCALL WR_COMM MOV A, HOUR_LBUF ；小时的低位缓存数据 ADD A,#30H ;加30H修正取ASCII码 LCALL WR_DATA MOV A，11000001B ;设定小时第2位的显示地址为第2行，第1列 LCALL WR_COMM MOV A, HOUR_HBUF ;小时的高位缓存数据 ADD A，#30H ;加30H修正取ASCII码 LCALL WR_DATA；= 冒号的显示= MOV A，11000010B ;设定冒号的显示地址为第2行，第2列 LCALL WR_COMM MOV A， #3AH ;冒号的ASCII码 LCALL WR_DATA;= 分钟显示= MOV A，11000011B ；设定分钟第1位的显示地址为第2行，第3列 LCALL WR_COMM MOV A， MINTUE_LBUF ;分钟的低位缓存数据 ADD A,30H ；加30H修正取ASCII码 LCALL WR_DATA MOV A，#11000100B ;设定分钟第2位的显示地址为第2行,第4列 LCALL WR_COMM MOV A， MINTUE_HBUF ;分钟的高位缓存数据 ADD A,30H ;加30H修正取ASCII码 LCALL WR_DATA；= 冒号的显示= MOV A,11000101B ；设定冒号的显示地址为第2行，第5列 LCALL WR_COMM MOV A， #3AH ;冒号的ASCII码 LCALL WR_DATA；= 秒钟显示= MOV A,#11000110B ;设定秒钟第1位的显示地址为第2行，第6列 LCALL WR_COMM MOV A， SECOND_LBUF ;秒钟的低位缓存数据 ADD A,30H ；加30H修正取ASCII码 LCALL WR_DATA MOV A，11000111B ；设定秒钟第2位的显示地址为第2行，第7列 LCALL WR_COMM MOV A， SECOND_HBUF ;秒钟的高位缓存数据 ADD A，#30H ;加30H修正取ASCII码 LCALL WR_DATA RET ； DS18B20复位初始化子程序 RESET_1820： ;复位（有具体的时序要求） SETB DQ NOP CLR DQ ；;主机发出延时537微秒的复位低脉冲 MOV R1,3 DLY： MOV R0,#107 DJNZ R0， DJNZ R1，DLY ； ;然后拉高数据线 SETB DQ NOP NOP NOP ; ；等待DS18B20回应 MOV R0,25H T2： JNB DQ ，T5 DJNZ R0, T2 ； ；时序要求延时一段时间 T5： MOV R0，#117 T6: DJNZ R0，T6 ； T7: SETB DQ RET ;= ;=DS1302初始化=SET_1302： MOV DS1302_ADDR, 8EH ；写DS1302控制指令 MOV DS1302_DATA, #00H ；写数据到DS1302的8E控制寄存器中,允许对其进行写操作 LCALL WRITE ；调用写DS1302子程序 MOV DS1302_ADDR， #90H ；写DS1302控制指令 MOV DS1302_DATA，#0A6H ；写数据到DS1302的90控制寄存器中,对电池涓流充电，充电电流为1。1mA LCALL WRITE ;调用写DS1302子程序 RET；=查询忙碌标志=CHECK_BUSY: PUSH ACCBUSY_LOOP: CLR E SETB RW CLR RS SETB E MOV A， p0 JB p0.7,BUSY_LOOP POP ACC LCALL DEL RET;-;=延时程序= DEL： MOV R6,5 L1: MOV R7，248 DJNZ R7，$ DJNZ R6，L1 RET ； 写入DS18B20子程序 ；写入DS18B20（有具体的时序要求） WRITE_1820: MOV R2，8 ;一共8位数据 CLR C ；C=0 WR1： CLR DQ ;总线低位，开始写入 MOV R3,#6 DJNZ R3, ；保持16微秒以上 RRC A ;把字节DATA分成8个BIT环移给C MOV DQ, C ;写入一个BIT MOV R3,23 DJNZ R3， ;等待 SETB DQ ;重新释放总线 NOP DJNZ R2,WR1 ;写入下一个BIT SETB DQ ;释放总线 RET ; 读出DS18B20子程序 ；将温度值从DS18B20中读出（有具体的时序要求） READ_1820: MOV R4,4 MOV R1，#TEMPL ；存入25H、26H、27H、28H RE0： MOV R2,#8 ；数据一共有8位 RE1: CLR C SETB DQ NOP NOP CLR DQ ；读前总线保持为低位 NOP NOP NOP SETB DQ ;总线释放 ; MOV R3,#9 DJNZ R3,$ ;延时18微妙 MOV C, DQ ；从总线读到一个BIT ； MOV R3,#23 ; DJNZ R3