text1.asm

dc18b20精密测量

 TEMP1  EQU  5AH        ;符号位和百位公用的存放单元
 TEMP2  EQU  5BH        ;十位存放单元
 TEMP3  EQU  5CH        ;个位存放单元
 TEMP4  EQU  5DH        ;
 TEMP5  EQU  5EH
 TEMP6  EQU  5FH        ;数据临时存放单元
 TEMP7  EQU  60H
 TEMP8  EQU  61H

        ORG  0000H
	AJMP MAIN
	ORG  0020H
MAIN:   MOV  SP,#70H     
        LCALL 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       ;保持低电平的时间至少为480us
	SETB P3.7        ;再次拉高DQ释放总线
	MOV  R2,#25      
   L2:  DJNZ R2,L2       ;保持15us－60us
        CLR  C
        ORL  C,P3.7      ;判断是否收到低脉冲
	JC   L0
	MOV  R6,#100
   L3:	ORL  C,P3.7      	
	DJNZ R6,L3        ;存在低脉冲保持保持60us－240us
;	JC   L0          ;否则继续从头开始，继续判断
	SETB P3.7  
        RET

GET_TEMP:
        CLR  PSW.4
	SETB PSW.3        ;设置工作寄存器当前所在的区域
	CLR  EA           ;使用DS18B20前一定要禁止任何中断
	LCALL INT         ;初始化DS18B20
	MOV  A,#0CCH      ;送入跳过ROM命令
	LCALL WRITE
	MOV  A,#44H       ;送入温度转换命令
	LCALL WRITE
	LCALL INT         ;温度转换完成，再次初始化18b20
	MOV  A,#0CCH      ;送入跳过ROM命令
	LCALL WRITE
	MOV  A,#0BEH      ;送入读温度暂存器命令
	LCALL WRITE
	LCALL READ    
	MOV  TEMP4,A      ;读出温度的低字节存在TEMP4
	LCALL READ
	MOV  TEMP5,A      ;读出温度的高字节存在TEMP5
	SETB EA
	RET


CHULI : MOV  A,TEMP5       ;将温度的高字节取出
        JNB  ACC.7,ZHENG   ;判断最高位是否为0，为0则表示温度为正，则转到ZHENG
        MOV  A,TEMP4       ;否则温度为负，将温度的低字节取出
        CPL  A             ;求反
        INC  A             ;加1
        MOV  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       ;判断是否为0
        JZ   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,NEXT   
	MOV  TEMP2,#0CH    ;十位为0不显示
        RET              
ZHENG:  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则转NEXT
        MOV  TEMP1,#0CH    ;为0则不显
	MOV  A,TEMP2       ;取出十位
	CJNE A,#00H,NEXT   
	MOV  TEMP2,#0CH    ;十位为0也不显
   NEXT:RET      

;小数部分乘以625转换子程序
MULD:
       MOV  B,#71H
       MUL  AB
       MOV  R7,A
       MOV  R6,B    
       MOV  B,#02H
       MUL  AB
       ADD  A,R6
       MOV  R6,A
       RET


 ;写字节到18b20子程序 
WRITE:                          
	MOV  R3,#8         ;一个字节共8位
   WR1: SETB P3.7          ;先释放总线
        MOV  R4,#8
	RRC  A             ;把要写的字节的最低位右环移到C中
	CLR  P3.7          ;写开始
   WR3: DJNZ R4,WR3        ;保持低电平0－15us，等待
        MOV  P3.7,C        ;将C中的位写到DQ总线上
	MOV  R4,#20        
	DJNZ R4,$          ;18b20在15us－60us期间对DQ总线进行采样
	DJNZ R3,WR1        ;判断8位是否写完，没完则继续写下一位
	SETB P3.7          ;写完了一个字节，则释放总线
	RET


;从18b20里读取一个字节子程序	
READ:                      
	MOV  R6,#8         ;一个字节有8位
  RE1:	SETB P3.7          ;先释放总线
        NOP
 	CLR  P3.7          ;拉低总线，读前总线保持为低
        NOP                ;保持1－2us
        MOV  R4,#4         ;设置读时间隙
	SETB P3.7          ;读开始
  RE2:  DJNZ R4,RE2        ;产生读时间隙
        MOV  C,P3.7        ;将总线上的位读到C	
	MOV  R5,#30        ;
	DJNZ R5,$          ;持续60us
	RRC  A             ;将C里的位右环移到A里
	DJNZ R6,RE1        ;读下一位
	SETB P3.7
	RET

;单字节16进制数转换成BCD码子程序
HBCD:	MOV  A,TEMP6
        MOV  B,#10
	DIV  AB
	MOV  TEMP3,B      ;将个位存到TEMP3
	MOV  B,#10        
	DIV  AB 
	MOV  TEMP2,B      ;将十位存到TEMP2
	MOV  TEMP1,A      ;将百位存到TEMP1
	RET

;双字节的16进制数转换成BCD码子程序
HB2:  CLR  A
      MOV  R3,A
      MOV  R4,A
      MOV  R5,A
      MOV  R2,#10H
HB3:  MOV  A,R7
      RLC  A
      MOV  R7,A
      MOV  A,R6
      RLC  A
      MOV  R6,A
      MOV  A,R5
      ADDC A,R5
      DA   A
      MOV  R5,A
      MOV  A,R4
      ADDC A,R4
      DA   A
      MOV  R4,A
      MOV  A,R3
      ADDC A,R3
      MOV  R3,A
      DJNZ R2,HB3
      RET

;显示子程序
DISP:   MOV  DPTR,#DISPTAB
        MOV  R0,#4
    DP1:MOV  R1,#140
  LOOP: MOV  A,TEMP7         ;取出小数部分
	MOVC A,@A+DPTR       ;取出相应的字型码
	MOV  P1,A            ;显示在数码管上
        SETB P3.0            ;数码管位选
	ACALL DELAY100       ;延时
	CLR  P3.0            ;清数码管位选
	MOV  A,TEMP3         ;取个位
	MOVC A,@A+DPTR       
	ANL  A,#7FH          ;显示小数点
	MOV  P1,A	
	SETB P3.1
	ACALL DELAY100
	CLR  P3.1
	MOV  A,TEMP2          ;取十位
	MOVC A,@A+DPTR
	MOV  P1,A
	SETB P3.2
        ACALL DELAY100
	CLR  P3.2
        MOV  A,TEMP1           ;取符号位或百位
	MOVC A,@A+DPTR
	MOV  P1,A
	SETB P3.3
        ACALL DELAY100
	CLR  P3.3
	DJNZ R1,LOOP           ;循环显示
	DJNZ R0,DP1
	RET

;延时
DELAY100:   MOV R7,#180
            DJNZ R7,$
            RET

DISPTAB:
       DB  0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,0BFH,0FFH

	END