DS18B20温度传感器实验TEMP1 EQU 5AH ;符号位和百位公用的存放单元TEMP2 EQU 5BH ;十位存放单元TEMP3 EQU 5CH ;个位存放单元TEMP4 EQU 5DH ;TEMP5 EQU 5EHTEMP6 EQU 5FH ;数据临时存放单元TEMP7 EQU 60HTEMP8 EQU 61HORG 0000HAJMP MAINORG 0020HMAIN:MOV SP,#70HLCALL INT ;调用DS18B20初始化函数MAIN1:LCALL GET_TEMP ;调用温度转换函数LCALL CHULI ;调用温度计算函数LCALL DISP ;调用温度显示函数AJMP MAIN1 ;循环INT:L0:SETB P3.7 ;先释放DQ总线MOV R2,#250 ;给R2赋延时初值，同时可让DQ保持高电平2us L1:CLR P3.7 ;给DQ一个复位低电平DJNZ R2,L1 ;保持低电平的时间至少为480usSETB P3.7 ;再次拉高DQ释放总线MOV R2,#25L2:DJNZ R2,L2 ;保持15us－60usCLR CORL C,P3.7 ;判断是否收到低脉冲JC L0MOV R6,#100L3:ORL C,P3.7DJNZ R6,L3 ;存在低脉冲保持保持60us－240us; JC L0 ;否则继续从头开始，继续判断SETB P3.7RET;调用温度转换函数GET_TEMP:CLR PSW.4SETB PSW.3 ;设置工作寄存器当前所在的区域CLR EA ;使用DS18B20前一定要禁止任何中断LCALL INT ;初始化DS18B20MOV A,#0CCH ;送入跳过ROM命令LCALL WRITEMOV A,#44H ;送入温度转换命令LCALL WRITELCALL INT ;温度转换完成，再次初始化18b20MOV A,#0CCH ;送入跳过ROM命令LCALL WRITEMOV A,#0BEH ;送入读温度暂存器命令LCALL WRITELCALL READMOV TEMP4,A ;读出温度的低字节存在TEMP4LCALL READMOV TEMP5,A ;读出温度的高字节存在TEMP5SETB EARETCHULI : MOV A,TEMP5 ;将温度的高字节取出JNB ACC.7,ZHENG;判断最高位是否为0，为0则表示温度为正，则转到ZHENGMOV A,TEMP4 ;否则温度为负，将温度的低字节取出CPL A ;求反INC A ;加1MOV TEMP8,A ;存到TEMP8中ANL A,#0FH ;保留低四位LCALL MULD ;调用乘以625子程序LCALL HB2 ;调用双字节16进制数转换成BCD码子程序MOV A,R4 ;将结果的千位百位取出ANL A,#0F0H ;保留千位SWAP A ;MOV TEMP7,A ;把小数结果保存在TEMP7中MOV A,TEMP4 ;再次取出温度的低字节ANL A,#0FFH ;判断是否为0JZ XX ;为0则转到XX执行MOV A,TEMP5 ;CPL A ;不为0则直接将温度的高字节取反SJMP YY ;XX: MOV A,TEMP5 ;为0则求补码CPL A ;INC A ;YY: ANL A,#0FH ;保留高字节的低四位SWAP A ;将其换到高4位MOV R5,A ;暂时保存于R5中MOV A,TEMP8 ;取出求反后的低位字节ANL A,#0F0H ;取其高4位SWAP A ;将其换到低4位ORL A,R5 ;合并成温度的整数部分MOV TEMP6,A ;将整数部分存到TEMP6中LCALL HBCD ;调用一字节的16进制数转换BCD数的子程序MOV TEMP1,#0BH ;将"-"号的段选值存到符号位MOV A,TEMP2 ;取出十位CJNE A,#00H,NEXTMOV TEMP2,#0CH ;十位为0不显示RETZHENG: MOV A,TEMP4 ;将温度的低字节取出ANL A,#0FH ;保留低四位LCALL MULD ;调用乘以625子程序LCALL HB2 ;调用双字节16进制数转换成BCD码子程序MOV A,R4 ;将结果的千位百位取出ANL A,#0F0H ;保留千位SWAP A ;MOV TEMP7,A ;把小数结果保存在TEMP7中MOV A,TEMP4 ;再次取出温度的低字节ANL A,#0F0H ;保留高4位SWAP A ;换到低4位MOV R5,A ;暂时保存于R5中MOV A,TEMP5 ;取出温度的高字节ANL A,#0FH ;保留低4位SWAP A ;换到高4位ORL A,R5 ;合并成温度的整数部分MOV TEMP6,A ;整数部分存到TEMP6中LCALL HBCD ;单字节的16进制数转换成BCD码MOV A,TEMP1 ;取出百位CJNE A,#00H,NEXT ;百位不为0则转NEXTMOV TEMP1,#0CH ;为0则不显MOV A,TEMP2 ;取出十位CJNE A,#00H,NEXTMOV TEMP2,#0CH ;十位为0也不显NEXT: RET;小数部分乘以625转换子程序MULD:MOV B,#71HMUL ABMOV R7,AMOV R6,BMOV B,#02HMUL ABADD A,R6MOV R6,ARET;写字节到18b20子程序WRITE:MOV R3,#8 ;一个字节共8位WR1: SETB P3.7 ;先释放总线MOV R4,#8RRC A ;把要写的字节的最低位右环移到C中CLR P3.7 ;写开始WR3: DJNZ R4,WR3 ;保持低电平0－15us，等待MOV P3.7,C ;将C中的位写到DQ总线上MOV R4,#20DJNZ R4,$ ;18b20在15us－60us期间对DQ总线进行采样DJNZ R3,WR1 ;判断8位是否写完，没完则继续写下一位SETB P3.7 ;写完了一个字节，则释放总线RET;从18b20里读取一个字节子程序READ:MOV R6,#8 ;一个字节有8位RE1: SETB P3.7 ;先释放总线NOPCLR P3.7 ;拉低总线，读前总线保持为低NOP ;保持1－2usMOV R4,#4 ;设置读时间隙SETB P3.7 ;读开始RE2: DJNZ R4,RE2 ;产生读时间隙MOV C,P3.7 ;将总线上的位读到CMOV R5,#30 ;DJNZ R5,$ ;持续60usRRC A ;将C里的位右环移到A里DJNZ R6,RE1 ;读下一位SETB P3.7RET;单字节16进制数转换成BCD码子程序HBCD: MOV A,TEMP6MOV B,#10DIV ABMOV TEMP3,B ;将个位存到TEMP3MOV B,#10DIV ABMOV TEMP2,B ;将十位存到TEMP2MOV TEMP1,A ;将百位存到TEMP1RET;双字节的16进制数转换成BCD码子程序HB2: CLR AMOV R3,AMOV R4,AMOV R5,AMOV R2,#10HHB3: MOV A,R7RLC AMOV R7,AMOV A,R6RLC AMOV R6,AMOV A,R5ADDC A,R5DA AMOV R5,AMOV A,R4ADDC A,R4DA AMOV R4,AMOV A,R3ADDC A,R3MOV R3,ADJNZ R2,HB3RET;显示子程序DISP: MOV DPTR,#DISPTABMOV R0,#4DP1: MOV R1,#140LOOP: MOV A,TEMP7 ;取出小数部分MOVC A,@A+DPTR ;取出相应的字型码MOV P1,A ;显示在数码管上SETB P3.0 ;数码管位选ACALL DELAY100 ;延时CLR P3.0 ;清数码管位选MOV A,TEMP3 ;取个位MOVC A,@A+DPTRANL A,#7FH ;显示小数点MOV P1,ASETB P3.1ACALL DELAY100CLR P3.1MOV A,TEMP2 ;取十位MOVC A,@A+DPTRMOV P1,ASETB P3.2ACALL DELAY100CLR P3.2MOV A,TEMP1 ;取符号位或百位MOVC A,@A+DPTRMOV P1,ASETB P3.3ACALL DELAY100CLR P3.3DJNZ R1,LOOP ;循环显示DJNZ R0,DP1RETDELAY100: MOV R7,#180 ;延时DJNZ R7,$RETDISPTAB:DB0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,0BFH,0FFH END。