【2017年整理】18b20 1602液晶万年历.docVIP

;P3.7接数据，P0口接段码，P2.0、P2.1分别为个位和十位 TEMPER_L EQU 29H ;存放读出温度低位数据 TEMPER_H EQU 28H ;存放读出温度高位数据 FLAG1 BIT 00H DQ BIT P3.7 ;一线总线控制端口 ORG 0000H MOV SP,#70H MAIN:LCALL GET_TEMPER ;从DS18B20读出温度数据 ;因为12位转化时每一位的精度为0.0625，我们不需要显示小数所以可以舍弃29H的低4位 ;将28H的低4位移入29H的高4位，这样获得一个新字节，就为是测量获得的温度 MOV A,29H MOV C,40H ;将28H的最低位移入C RRC A MOV C,41H RRC A MOV C,42H RRC A MOV C,43H RRC A MOV 29H,A LCALL DISP ;调用显示 AJMP MAIN ;继续温度采集 ;以下为DS18B20单总线操作子程序 ;读出转换后的温度值 GET_TEMPER:SETB DQ ;定时入口 BCD:LCALL INIT_1820 ;先复位DS18B20 JB FLAG1,S22 ;判断DS18B20是否存在？若不存在则返回 RET ;若DS18B20不存在则返回 S22:MOV A,#0CCH ;跳过ROM匹配0CCH LCALL WRITE_1820 MOV A,#44H ;发出温度转换命令 LCALL WRITE_1820 LCALL DISP ;这里通过调用显示子程序延时一段时间，等待AD转换结束，750毫秒 CBA:LCALL INIT_1820 ;准备读温度前先复位 JB FLAG1,ABC AJMP CBA ABC:MOV A,#0CCH ;跳过ROM匹配 LCALL WRITE_1820 MOV A,#0BEH ;发出读温度命令 LCALL WRITE_1820 LCALL READ_18200 ;将读出的温度数据保存到28H/29H RET ;执行533.8微秒 WRITE_1820:MOV R2,#8 ;读取8个位，一个字节 CLR C WR1:CLR DQ MOV R3,#5 ;延时 DJNZ R3,$ RRC A MOV DQ,C ;发送1个位 MOV R3,#21 ;延时 DJNZ R3,$ SETB DQ DJNZ R2,WR1 SETB DQ RET ;执行1108.87微秒，读DS18B20的程序，从DS18B20中读出两个字节的温度数据 READ_18200:MOV R4,#2 ;将温度高位和低位从DS18B20中读出 MOV R1,#29H ;低位存入29H（TEMPER_L），高位存入28H（TEMPER_H） RE00:MOV R2,#8 ;读取8个位，一个字节 RE01:CLR C SETB DQ NOP CLR DQ NOP NOP NOP NOP SETB DQ MOV R3,#2 ;延时 DJNZ R3,$ MOV C,DQ ;读取1个位 MOV R3,#22 ;延时 DJNZ R3,$ RRC A DJNZ R2,RE01 MOV @R1,A DEC R1 DJNZ R4,RE00 RET DISP:MOV A,29H ;将29H中的十六进制数转换成十进制 MOV B,#10 DIV AB MOV 40H,B ;个位存放 MOV 41H,A ;十位存放 MOV R4,#4 DISP1:MOV R5,#100 DISP2:CLR P2.0 ;开个位显示 MOV DPTR,#TAB MOV A,40H MOVC A,@A+DPTR MOV P0,A LCALL D1MS SETB P2.0 CLR P2.1 MOV DPTR,#TAB MOV A,41H MOVC A,@A+DPTR MOV P0,A LCALL D1MS SETB P2.1 D