DS18B20汇编程序(完整版)

;实验目的：熟悉DS18B20的使用

;六位数码管显示温度结果，其中整数部分2位，小数部分4位 ;每次按下RB0键后进行一次温度转换。 ;硬件要求：把DS18B20插在18B20插座上

; 拨码开关S10第1位置ON，其他位置OFF

; 拨码开关S5、S6全部置ON，其他拨码开关全部置OFF

;*****************以下是暂存器的定义***************************** #INCLUDE

#DEFINE DQ PORTA,0 ;18B20数据口 __CONFIG

_DEBUG_OFF&_CP_ALL&_WRT_HALF&_CPD_ON&_LVP_OFF&_BODEN_OFF&_PWRTE_ON&_WDT_OFF&_HS_OSC

CBLOCK 20H DQ_DELAY1 DQ_DELAY2 TEMP TEMP1

TEMP2 ;存放采样到的温度值 TEMP3 COUNT COUNT1 ENDC

TMR0_VALUE EQU 0AH ;寄存器初值为6，预分频比1：4，中断一次时间为4*（256-6）=1000us

DQ_DELAY_VALUE1 EQU 0FAH DQ_DELAY_VALUE2 EQU 4H

;**********************以下是程序的开始************************ ORG 00H NOP

GOTO MAIN ;入口地址 ORG 04H

RETFIE ;在中断入口出放置一条中断返回指令，防止干扰产生中断

TABLE

ADDWF PCL,1

RETLW 0C0H ;0的编码（公阳极数码管） RETLW 0F9H ;1的编码 RETLW 0A4H ;2的编码

RETLW 0B0H ;3的编码 RETLW 99H ;4的编码 RETLW 92H ;5的编码 RETLW 082H ;6 RETLW 0F8H ;7 RETLW 080H ;8 RETLW 090H ;9

;***************************主程序******************************* MAIN

CLRF PORTA CLRF PORTB BANKSEL TRISA

CLRF TRISA ;A口所有先设置为输出 CLRF TRISD MOVLW 01H

MOVWF TRISB ;B0口为输入，其他为输出 MOVLW 06H

MOVWF ADCON1 ;关闭所有A/D口 MOVLW 01H

MOVWF OPTION_REG ;分频比1：4，定时器，内部时钟源 BCF STATUS,RP0

CLRF TEMP CLRF TEMP1

CLRF TEMP2 ;清零临时寄存器 MOVLW 8H MOVWF COUNT MOVLW 38H MOVWF FSR CLRF INDF INCF FSR,1 DECFSZ COUNT,1 GOTO $-3

;****************************循环处理部分************************

;先启动18B20温度转换程序，在判断温度转换是否完成（需750us） ;未完成则调用显示子程序，直到完成温度转换 ;完成后读取温度值 ;送LCD显示 LOOP

BTFSC PORTB,0 ;判断温度转换按键是否按下 GOTO LOOP1 ;否，转显示

CALL DELAY ;消抖 BTFSC PORTB,0 ;再次判断 GOTO LOOP1

CALL RESET_18B20 ;调用复位18B20子程序 MOVLW 0CCH MOVWF TEMP

CALL WRITE_18B20 ;SKIP ROM命令 MOVLW 44H MOVWF TEMP

CALL WRITE_18B20 ;温度转换命令 CLRF STATUS

CALL DELAY_750MS ;调用温度转换所需要的750MS延时 NOP

CALL RESET_18B20 MOVLW 0CCH MOVWF TEMP

CALL WRITE_18B20 ;SKIP ROM命令 MOVLW 0BEH MOVWF TEMP

CALL WRITE_18B20 ;读温度命令

CALL READ_18B20 ;调用读温度低字节 MOVFW TEMP

MOVWF TEMP1 ;保存到TEMP1

CALL READ_18B20 ;调用读温度高字节 MOVFW TEMP

MOVWF TEMP2 ;保存到TMEP2 CALL RESET_18B20 LOOP1

CALL TEMP_CHANGE ;调用温度转换程序 CALL DISPLAY ;调用LCD显示程序 GOTO LOOP ;循环工作

;*********************复位DS18B20子程序************************** RESET_18B20

;根据DATASHEET介绍,写数据时应遵照如下规定： ;主控制器把总线拉低至少480us，

;18B20等待15-60us后，把总线拉低做为返回给控制器的应答信号 BANKSEL TRISA BCF TRISA,0 BCF STATUS,RP0 BCF DQ MOVLW 0A0H

MOVWF COUNT ;160US DECFSZ COUNT,1

GOTO $-1 ;拉低480us BSF DQ ;释放总线 MOVLW 14H MOVWF COUNT DECFSZ COUNT,1

GOTO $-1 ;等待60us BANKSEL TRISA

BSF TRISA,0 ;DQ设置为输入 BCF STATUS,RP0

BTFSC DQ ;数据线是否为低 GOTO RESET_18B20 ;否则继续复位 MOVLW 4H MOVWF COUNT

DECFSZ COUNT,1 ;延时一段时间后再次判断 GOTO $-1 BTFSC DQ

GOTO RESET_18B20

MOVLW 4BH MOVWF COUNT DECFSZ COUNT,1 GOTO $-1 BANKSEL TRISA

BCF TRISA,0 ;DQ设置为输出 BCF STATUS,RP0 RETURN

;*********************写DS18B20子程序**************************** WRITE_18B20

;根据DATASHEET介绍,写数据时应遵照如下规定： ;写数据0时，主控制器把总线拉低至少60us

;写数据1时，主控制器把总线拉低，但必须在15us内释放 MOVLW 8H

MOVWF COUNT ;8位数据 BANKSEL TRISA BCF TRISA,0 BCF STATUS,RP0 BCF STATUS,C WRITE_18B20_1

BSF DQ ;先保持DQ为高 MOVLW 5H MOVWF COUNT1

BCF DQ ;拉低DQ15us DECFSZ COUNT1,1

GOTO $-1 RRF TEMP,1

BTFSS STATUS,C ;判断写的数据为0还是1 GOTO WRITE_0

BSF DQ ;为1，立即拉高数据线 GOTO WRITE_END WRITE_0

BCF DQ ;继续保持数据线为低 WRITE_END

MOVLW 0FH

MOVWF COUNT1 ;保持45ms DECFSZ COUNT1,1 GOTO $-1

BSF DQ ;释放总线

DECFSZ COUNT,1 ;是否写完8位数据 GOTO WRITE_18B20_1 RETURN

;**********************读DS18B20子程序**************************** READ_18B20

;根据DATASHEET介绍,读数据时应遵照如下规定：

;读数据0时，主控制器把总线拉低后，18B20再把总线拉低60us ;读数据1时，主控制器把总线拉低后，保持总线状态不变

;主控制器在数据线拉低后15us内读区数据线上的状态。 MOVLW 8H ;一次读8位数据 MOVWF COUNT READ_18B20_1

BANKSEL TRISA

BCF TRISA,0 ;数据线先设为输出 BCF STATUS,RP0

BCF DQ ;先拉低数据线 MOVLW 1H

MOVWF COUNT1

DECFSZ COUNT1,1 ;拉低总线3us GOTO $-1

BSF DQ ;释放总线 BANKSEL TRISA

BSF TRISA,0 ;数据线设为输入 BCF STATUS,RP0 MOVLW 2H MOVWF COUNT1

DECFSZ COUNT1,1 ;延时6ms GOTO $-1

BSF STATUS,C

BTFSS DQ ;判断数据线状态 BCF STATUS,C

RRF TEMP,1 ;移位到TEMP中

MOVLW 12H MOVWF COUNT1 DECFSZ COUNT1,1

GOTO $-1 ;读一位数据至少需要60us DECFSZ COUNT,1 ;是否读完8位 GOTO READ_18B20_1 RETURN

;*******************温度表示形式转换程序**************************

;因为从18B20中读出的温度值是二进制形式，必须把它转换成对象ASCII才能在LCD上显示

;18B20中温度的表示为：S S S S S 2的6次方 2的5次方 2的4次方 2的3次方 2的2次方 。。。。2的负4次方

;结果整数放在38H开始的存储器里，小数部分放在3B开始的单元里

;38H(百位） 39H（十位） 3AH（个位） 3BH（小数点）3CH(十分位） 3DH（百分位） 3EH（千分位） 3FH（万分位） TEMP_CHANGE ;整数部分

;因为转换后温度值位于两个单元内，所以必须先把它们组合到一个单元内。 ;因为最大值为127.9375，所以只需判断结果是否大于100来决定百位上的结果 ;用循环减0AH的方法得到十位的值，最后剩下的被减数即为个位的结果 MOVLW 7H

ANDWF TEMP2,0 ;只保留低3位 MOVWF 3AH ;转存3AH SWAPF 3AH,1 MOVFW TEMP1

MOVWF TEMP3 ;转存TEMP2 MOVLW 0F0H

ANDWF TEMP3,1 ;清除低4位 SWAPF TEMP3,0 ;高低半字节交换

IORWF 3AH,1 ;组合得到结果的7位整数部分

MOVLW H ;计算整数部分百位的结果 SUBWF 3AH,W ; -100 BTFSS STATUS,C

GOTO NEXT0 ;温度小于100

MOVWF 3AH ;减后的结果覆盖原来的数据 MOVLW 1H

MOVWF 38H ;整数部分最高位为1（不可能大于1） GOTO $+2 NEXT0

CLRF 38H ;温度小于100，最高位为0 CLRF 39H ;计算整数部分十位的结果 MOVLW 0AH ; -10 SUBWF 3AH,1

BTFSS STATUS,C GOTO NEXT1

INCF 39H,1 ;够减 十位上加1 GOTO $-5 NEXT1

MOVLW 0AH

ADDWF 3AH,1 ;多减一次再加回来，剩下的值即为个位上的值

MOVLW '.'

MOVWF 3BH ;小数点

;小数部分 ;取四位精度

;计算方法为从最低位开始依次判断是否为1 ，若为1则分别加上：

;0.0625、0.125、0.25、0.5，而且只有百分位相加时有可能结果大于0AH CLRF 3CH CLRF 3DH CLRF 3EH CLRF 3FH

BTFSS TEMP1,0 GOTO NEXT2 MOVLW 5H MOVWF 3FH MOVLW 2H MOVWF 3EH MOVLW 6H

MOVWF 3DH ;万分位 NEXT2

BTFSS TEMP1,1 GOTO NEXT3 MOVLW 5H ADDWF 3EH,1 MOVLW 2H ADDWF 3DH,1 MOVLW 1H

MOVWF 3CH ;千分位

NEXT3

BTFSS TEMP1,2 GOTO NEXT5 MOVLW 5H ADDWF 3DH,1 MOVLW 0AH SUBWF 3DH,1

BTFSS STATUS,C GOTO NEXT4 INCF 3CH,1 GOTO $+3 NEXT4

MOVLW 0AH ADDWF 3DH,1 MOVLW 2H

ADDWF 3CH,1 ;百分位

NEXT5

BTFSS TEMP1,3 GOTO NEXT6 MOVLW 5H

ADDWF 3CH,1 ;十分位 NEXT6 RETURN

;*******************************显示子程序*******************************

;入口参数：39H（十位） 3AH（个位+小数点）3CH(十分位） 3DH（百分位） 3EH（千分位） 3FH（万分位） ;出口参数：无 DISPLAY

BANKSEL TRISA

CLRF TRISA ;A口全部设为输出 CLRF STATUS

MOVFW 39H ;显示温度十位 CALL TABLE MOVWF PORTD BCF PORTA,0 CALL DELAY BSF PORTA,0

MOVFW 3AH ;显示温度个位 CALL TABLE MOVWF PORTD

BCF PORTD,7 ;小数点 BCF PORTA,1 CALL DELAY BSF PORTA,1

MOVFW 3CH ;显示十分位 CALL TABLE MOVWF PORTD

BCF PORTA,2 CALL DELAY BSF PORTA,2

MOVFW 3DH ;显示百分位 CALL TABLE MOVWF PORTD BCF PORTA,3 CALL DELAY BSF PORTA,3

MOVFW 3EH ;显示千分位 CALL TABLE MOVWF PORTD BCF PORTA,4 CALL DELAY BSF PORTA,4

MOVFW 3FH ;显示万分位 CALL TABLE MOVWF PORTD BCF PORTA,5 CALL DELAY BSF PORTA,5

RETURN

;***************************延时程序************************************ DELAY

GOTO $+1 GOTO $+1 GOTO $+1 GOTO $+1 GOTO $+1 GOTO $+1 RETURN

;**************************延时750ms****************************** DELAY_750MS

MOVLW DQ_DELAY_VALUE2 MOVWF DQ_DELAY2 DELAY_750MS_2

MOVLW DQ_DELAY_VALUE1 MOVWF DQ_DELAY1

DELAY_750MS_1

MOVLW TMR0_VALUE

MOVWF TMR0 ;开启定时器 BTFSS INTCON,T0IF GOTO $-1

BCF INTCON,T0IF DECFSZ DQ_DELAY1,1 GOTO DELAY_750MS_1 DECFSZ DQ_DELAY2,1 GOTO DELAY_750MS_2 RETURN

;**************************程序结束****************************** END