DS18B20汇编程序

DQ BIT P3.0FLAG BIT P0.0;ERR_FLAG BIT 40HDT1 EQU 30HDATAL EQU 31HDATAH EQU 32HDAT EQU 33HDT2 EQU 34HDT3 EQU 35H;------------------------------------ORG 0000HAJMP STARTORG 0100HSTART:LCALL D800MSLCALL D800MSLOOP_SAMPLE:LCALL INITIAL_DS18B20MOV R7,#0CCH ;WRITE SKIP ROMLCALL WRITE_CHARMOV R7,#44H ;WRITE TEMPRATURE CONVERSIONLCALL WRITE_CHARNOPNOPLCALL D800MS ;TIME OF DS18B20 TEMPERATURE CONVERSION,IF NO DELAY TIME 800 MS,WILL READ 85 DEGREE;LCALL INITIAL_DS18B20;MOV R7,#0CCH;LCALL WRITE_CHAR;MOV R7,#48H ;COPY;LCALL WRITE_CHAR;NOP;NOP;NOP;LCALL D800MSLCALL INITIAL_DS18B20MOV R7,#0CCH ;WRITE SKIP ROMLCALL WRITE_CHARMOV R7,#0BEH ;WRITE READ DATA COMMANDLCALL WRITE_CHARLCALL READ_CHAR ;READ FIRST TEMPRATURE DATAMOV DATAL,DATLCALL READ_CHAR ;READ SECOND DATAMOV DATAH,DAT;LCALL READ_CHAR;LCALL READ_CHAR;LCALL READ_CHAR;LCALL READ_CHARLCALL INITIAL_DS18B20MOV A,DATALSWAP AANL A,#0FHMOV DAT,AMOV A,DATAHSWAP AANL A,#0F0HORL A,DATMOV P0,DATALLCALL D800MS;LCALL D800MS;MOV P0,#00HLCALL D800MSLJMP LOOP_SAMPLE;------------------------------------ INITIAL_DS18B20:SETB DQNOPNOPNOPCLR DQMOV R0,#0FAHLOOP1:DJNZ R0,$ ;delay 500us MOV R0,#50LOOP3:DJNZ R0,$SETB DQLOOP2:JB DQ,$MOV R0,#120DJNZ R0,$ ;delay 240usSETB DQRET;------------------------------------ WRITE_CHAR:MOV R6,#8CLR CMOV A,R7WRITE_BIT:CLR DQMOV R3,#6DJNZ R3,$RRC AMOV DQ,CMOV R3,#23DJNZ R3,$SETB DQNOPDJNZ R6,WRITE_BITSETB DQRET;------------------------------------ READ_CHAR:MOV R6,#8CLR CREAD_BIT:SETB DQNOPCLR DQNOPSETB DQMOV R3,#7DJNZ R3,$MOV C,DQMOV R3,#23DJNZ R3,$RRC ADJNZ R6,READ_BITMOV DAT,ARET;------------------------------------ D480US:MOV DT1,#245 DJNZ DT1,$RETD130US:MOV DT1,#65DJNZ DT1,$RETD60US:MOV DT1,#30DJNZ DT1,$RETD15US:MOV DT1,#5DJNZ DT1,$RETD800MS:MOV DT1,#50DEL1:MOV DT2,#100 DEL2:MOV DT3,#100 DJNZ DT3,$DJNZ DT2,DEL2DJNZ DT1,DEL1RETEND;**********************************FLAG1 BIT F0 ;DS18B20存在标志位DQ BIT P1.7TEMPER_L EQU 29HTEMPER_H EQU 28HA_BIT EQU 35HB_BIT EQU 36H;************程序起始********************ORG 0000HAJMP MAINORG 0100H;**************主程序开始************MAIN:LCALL INIT_18B20;LCALL RE_CONFIGLCALL GET_TEMPERAJMP CHANGE;**********DS18B20复位程序*****************INIT_18B20: SETB DQNOPCLR DQMOV R0,#0FBHTSR1: DJNZ R0,TSR1 ;延时SETB DQMOV R0,#25HTSR2: JNB DQ ,TSR3DJNZ R0,TSR2TSR3: SETB FLAG1 ;置标志位，表明DS18B20存在CLR P2.0 ;二极管指示AJMP TSR5TSR4: CLR FLAG1LJMP TSR7TSR5: MOV R0,#06BHTSR6: DJNZ R0,TSR6TSR7:SETB DQ ;表明不存在RET;********************设定DS18B20暂存器设定值**************;RE_CONFIG:;JB FLAG1,RE_CONFIG1;RET;RE_CONFIG1: MOV A,#0CCH ;放跳过ROM命令;LCALL WRITE_18B20;MOV A,#4EH;LCALL WRITE_18B20 ;写暂存器命令;MOV A,#00H ;报警上限中写入00H;LCALL WRITE_18B20;MOV A,#00H ;报警下限中写入00H; LCALL WRITE_18B20;MOV A,#1FH ;选择九位温度分辨率; LCALL WRITE_18B20; RET;*****************读转换后的温度值****************GET_TEMPER:SETB DQLCALL INIT_18B20JB FLAG1,TSS2RET ;若不存在则返回TSS2: MOV A,#0CCH ;跳过ROMLCALL WRITE_18B20MOV A,#44H ;发出温度转换命令LCALL WRITE_18B20LCALL DISPLAY ;延时LCALL INIT_18B20MOV A,#0CCH ;跳过ROMLCALL WRITE_18B20MOV A,#0BEH ;发出读温度换命令LCALL WRITE_18B20LCALL READ2_18B20 ;读两个字节的温度RET;***************写DS18B20程序************WRITE_18B20:MOV R2,#8CLR CWR1:CLR DQMOV R3,#6DJNZ R3,$RRC AMOV DQ,CMOV R3,#23DJNZ R3,$SETB DQNOPDJNZ R2,WR1SETB DQRET;***********读18B20程序，读出两个字节的温度*********READ2_18B20:MOV R4,#2 ;低位存在29 H,高位存在28HMOV R1,#29HRE00: MOV R2,#8RE01: CLR CSETB CNOPNOPCLR DQNOPNOPNOPSETB DQMOV R3,#7DJNZ R3,$MOV C,DQMOV R3,#23DJNZ R3,$RRC ADJNZ R2,RE01MOV @R1,ADEC R1DJNZ R4,RE00RET;************读出的温度进行数据转换**************CHANGE: MOV A,29HMOV C,28H.0 ;将28H中的最低位移入CRRC AMOV C,28H.1RRC AMOV C,28H.2RRC AMOV C,28H.3RRC AMOV 29H,A;setb p2.0LCALL DISPLAY ;调用数码管显示子程序; setb P2.0LJMP MAIN;*******************DISPLAY******DISPLAY: mov a,29H;将29H中的十六进制数转换成10进制mov b,#10 ;10进制/10=10进制div abmov b_bit,a ;十位在amov a_bit,b ;个位在bmov dptr,#TAB ;指定查表启始地址mov r0,#4dpl1: mov r1,#250 ;显示1000次dplop: mov a,a_bit ;取个位数MOVC A,@A+DPTR ;查个位数的7段代码mov p0,a ;送出个位的7段代码clr p2.5;开个位显示acall d1ms ;显示1mssetb p2.5mov a,b_bit ;取十位数MOVC A,@A+DPTR ;查十位数的7段代码mov p0,a ;送出十位的7段代码clr p2.4;开十位显示acall d1ms ;显示1mssetb p2.4djnz r1,dplop ;100次没完循环djnz r0,dpl1 ;4个100次没完循环ret;***********************************D1MS: MOV R7,#80 ;1MS延时(按12MHZ算)DJNZ R7,$RET;*************************TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90Horg 00h ;climberwin 2005.9.28teml equ 29h ;温度的低8位temh equ 28h ;温度的高8位flag equ 38h ;是否检测到ds18b20标志位dq equ p2.2;主程序;;;************************************start: ;***call climber;调用读温度子程序;***jmp start ;***;;************************************;初始化子程序*;;*************************************init:setb dqnopclr dqmov r7,#34 ;延时510mscall delaysetb dqmov r7,#04 ;延时60mscall delayclr flagjb dq,backsetb flagmov r7,#28 ;延时420mscall delaysetb dq ;然后拉高数据线back:ret;********************************************;读出转换后的温度值;;;************************************* climber:setb dqcall init ;先复位ds18b20jb flag,tss2ret ;判断ds1820是否存在?若ds18b20不存在则返回tss2:mov a,#0cch ;跳过rom匹配call writemov a,#44h ;发出温度转换命令call writemov r7,#50 ;延时750ms转换时间call delaycall init ;准备读温度前先复位mov a,#0cch ;跳过rom匹配call writemov a,#0beh ;发出读温度命令call writecall readret;;*******************************************************;写ds18b20的子程序(注意时序);;;*******************************************************write:clr cmov r2,#8 ;一共8位数据wr1:clr dqmov r7,#1call delayrrc amov dq,cmov r7,#1call delaysetb dqnopdjnz r2,wr1setb dqret;;*********************************************************;读ds18b20的程序;;;********************************************************* read:mov r4,#2 ;将温度高位和低位从ds18b20中读出mov r1,#29h ;低位存入29h(teml),高位存入28h(temh) win00:mov r2,#8 ;数据一共有8位win01:clr csetb dqnopnopclr dqnopnopnopsetb dqmov r7,#01call delaymov c,dqmov r7,#03call delayrrc adjnz r2,win01mov @r1,adec r1djnz r4,win00ret;*******************************************;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;delay: mov r6,#06h ;;;;d1: djnz r6,d1 ;延时=r7*15ms ;;;;djnz r7,delay ;;;;ret ;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;end１８ｂ２０的ｃ语言程序：#include <reg51.h> //ds18b20温度传感器程序write by climberwin 2005.9.28 successfulsbit dq=p2^2; //数据传输线接单片机的相应的引脚unsigned char templ=0; //设全局变量unsigned char temph=0;float temperature; //温度值保存在temperature里//******************************//延时子程序 //**void delay(unsigned int win)//**{ //**unsigned int n; //**n=0; //**while(n < win) //**{n++;} //**return; //**} //**//*****************************//初始化程序init_ds18b20(void){ unsigned char x=0;dq=1; //dq先置高delay(8); //稍延时dq=0; //发送复位脉冲delay(85); //延时（>480ms)dq=1; //拉高数据线delay(14); //等待（15~60ms)x=dq; //用x的值来判断初始化有没有成功，18b20存在的话x=0，否则x=1delay(20);} //***********************//读一个字节readonechar(void) //主机数据线先从高拉至低电平1ms以上，再使数据线升为高电平，从而产生读信号 {unsigned char i=0; //每个读周期最短的持续时间为60ms，各个读周期之间必须有1ms以上的高电平恢复期unsigned char dat=0;for (i=8;i>0;i--) //一个字节有8位{dq=1;delay(1);dq=0;dat>>=1;dq=1;if(dq)dat|=0x80;delay(4);}return(dat);}//***********************//写一个字节writeonechar(unsigned char dat){ unsigned char i=0; //数据线从高电平拉至低电平，产生写起始信号。