|
;*******
;功能实现：通过DS18B20来读取温度，显示在2位LED上，精确到1度
;硬件连接：(1)RC0-RC7接共阳数码管的段码A-H
; RA0-RA3接共阳数码管的位码DIG0-DIG3
;*****
;*************
;定义单片机型号为PIC16F877A
;程序包含文件：P16F877A.INC
;定义配置字
;***********
LIST P=16F877A ;定义本程序所使用的芯片为PIC16F877A
#INCLUDE "P16F877A.INC" ;定义本程序包含该文件
__CONFIG 3F72H ;晶振配置HS，看门狗禁止，上电延时使能，掉电复位使能
;低电压编程禁止，代码不保护
#DEFINE DQ PORTB,2
#DEFINE DIR TRISB,2
CBLOCK 20H
Y1
Y2
COUNT1
COUNT2
COMD
DATE
BIN_L ;要进行转换的字节
GE ;转换后的个位
SHI ;转换后的十位
DATE_L
DATE_H
ENDC
;**********
;复位矢量定义(对于16F877A)
;**********
ORG 0000H ;复位矢量地址
GOTO MAIN ;程序跳转到MAIN主程序
;-----------
;*******
;主程序区
;************
ORG 0005H
MAIN
NOP
CALL INTIAL
START BTFSS DQ ;数据线空闲状态为高电平
GOTO $-1
CALL RESET ;复位DS18B20
MOVLW 0CCH ;跳过读ROM命令
CALL WR18B20
MOVLW 44H ;温度转换
CALL WR18B20
CALL DELAY_750US ;延时750us
CALL RESET ;复位DS18B20
MOVLW 0CCH ;跳过读ROM命令
CALL WR18B20
MOVLW 0BEH ;读内部RAM中的9字节内容
CALL WR18B20
NOP
CALL RE18B20 ;读数据
MOVF DATE,W
MOVWF DATE_L ;读低8位
CALL RE18B20 ;读数据
MOVF DATE,W
MOVWF DATE_H ;读高8位
MOVF DATE_L,W
;-------显示处理-----------------
RRF DATE_H,F
RRF DATE_L,F
RRF DATE_H,F
RRF DATE_L,F
RRF DATE_H,F
RRF DATE_L,F
RRF DATE_H,F
RRF DATE_L,F
MOVF DATE_L,W
MOVWF BIN_L ;把高8位的低4位和低8位的高4位组合起来
CALL DISPLAY ;调用数码管显示程序
GOTO START
;===========
;*******************
;初始化和消影
;*****************
INTIAL BSF STATUS,RP0 ;定义当前体为体1，对方向寄存器进行修改
MOVLW 07H
MOVWF ADCON1 ;关闭A口的模拟通道
MOVLW 00H
MOVWF TRISC ;段码显示口为输出口
MOVLW 0F0H
ANDWF TRISA,1 ;使位码（RA0-RA3）为输出口
BSF DIR ;使数据线为输入
BCF STATUS,RP0 ;使当前体为体0
MOVLW 0FFH ;关闭段码
MOVWF PORTC
MOVLW 0FFH ;关闭位码
MOVWF PORTA
BTFSS DQ ;数据线空闲状态为高电平
GOTO $-1
CALL RESET ;复位DS18B20
MOVLW 0CCH ;跳过读ROM命令
CALL WR18B20
MOVLW 44H ;温度转换
CALL WR18B20
CALL DELAY_750US ;延时750us
CALL RESET ;复位DS18B20
MOVLW 0CCH ;跳过读ROM命令
CALL WR18B20
MOVLW 0BEH ;读内部RAM中的9字节内容
CALL WR18B20
NOP
NOP
CALL RE18B20 ;读数据
CALL RE18B20 ;读数据
CALL DELAY_MAX ;延时600ms
CALL DELAY_MAX
CALL DELAY_MAX
RETLW 00H
;========
;************
;显示所测得的温度子程序
;**************
DISPLAY
CALL _BCD
MOVF SHI,W
ANDLW 0FH
CALL TABLE ;调用查表指令
MOVWF PORTC ;显示十位段码
BCF PORTA,0 ;选通十位显示位码
CALL DELAY
BSF PORTA,0 ;关闭十位显示位码
MOVF GE,W
ANDLW 0FH
CALL TABLE ;调用查表指令
MOVWF PORTC ;显示个位段码
BCF PORTA,1 ;选通个位显示位码
CALL DELAY
BSF PORTA,1 ;关闭个位显示位码
RETLW 00H
;=====================
;*******************
;二进制转BCD码
;*******************
_BCD CLRF SHI ;保存地址清零
CLRF GE
MOVF BIN_L,F ;组合码自己给自己赋值，测试是否为0
SKPNZ ;不为0则跳到下一步
RETLW 00H
SHI_ MOVLW D'10'
SUBWF BIN_L,W ;BIN_L减10，结果存到W寄存器
BTFSS STATUS,C ;执行减法后，如果无借位
GOTO GE_
MOVWF BIN_L
INCF SHI
GOTO SHI_
GE_ MOVF BIN_L,W
MOVWF GE
RETLW 00H
;==========
;**************
;延时200ms
;***************
DELAY_MAX
MOVLW 0FFH
MOVWF Y1
MOVLW 0FFH
MOVWF Y2
DECFSZ Y2
GOTO $-1
DECFSZ Y1
GOTO $-5
RETLW 00H
;================
;****************
;延时6ms
;*****************
DELAY
MOVLW 03FH
MOVWF Y1
MOVLW 020H
MOVWF Y2
DECFSZ Y2
GOTO $-1
DECFSZ Y1
GOTO $-5
RETLW 00H
;*************************
;延时750us子程序
;***********************
DELAY_750US
MOVLW 09H
MOVWF Y1
MOVLW 01AH
MOVWF Y2
DECFSZ Y2
GOTO $-1
DECFSZ Y1
GOTO $-5
RETLW 00H
;======
;***************
;查表子程序，用于显示段码数字
;数码管为共阳数码管
;***************
TABLE
ADDWF PCL,F
RETLW 0C0H ;"0"
RETLW 0F9H ;"1"
RETLW 0A4H ;"2"
RETLW 0B0H ;"3"
RETLW 99H ;"4"
RETLW 92H ;"5"
RETLW 82H ;"6"
RETLW 0F8H ;"7"
RETLW 80H ;"8"
RETLW 90H ;"9"
;===============
;******************
;DS18B20复位和应答子程序
;*****************
RESET BSF STATUS,RP0 ;使当前体为体1
BCF DIR ;使数据位为输出
BCF STATUS,RP0 ;使当前体为体0
BSF DQ ;拉高数据位
NOP ;空循环
BCF DQ ;拉低数据位
MOVLW D'200' ;延时600us
MOVWF Y1
DECFSZ Y1
GOTO $-1
BSF STATUS,RP0 ;使当前体为体1
BSF DIR ;使数据位为输入
BCF STATUS,RP0 ;使当前体为体0
MOVLW D'30' ;延时90us
MOVWF Y1
DECFSZ Y1
GOTO $-1
BTFSC DQ ;主机接收到低电平应答脉冲，跳转到下一句
GOTO RESET
MOVLW D'80' ;延时240us
MOVWF Y1
DECFSZ Y1
GOTO $-1
BTFSS DQ ;主机接收到高电平应答脉冲，跳转到下一句
GOTO RESET
RETLW 00H ;返回00H，复位应答结束
;========================
;***********************
;写DS18B20子程序
;***********************
WR18B20
MOVWF COMD ;把要写的数据写到COMD内
MOVLW D'8'
MOVWF COUNT2 ;大循环8次
WR0 BSF STATUS,RP0 ;使当前体为体1
BCF DIR ;使数据位为输出
BCF STATUS,RP0 ;使当前体为体0
BCF DQ ;拉低数据线
NOP
NOP
MOVLW D'2'
MOVWF COUNT1 ;延时9us
WR1 DECFSZ COUNT1,1
GOTO WR1
BTFSC COMD,0 ;COMD最低位为0则跳转到下一句
BSF DQ ;拉高数据线
BTFSC COMD,0 ;COMD最低位为0则跳转到下一句
NOP
BCF STATUS,C ;进位位置0
RRF COMD,1 ;带进位位，COMD向右移一位
MOVLW D'20' ;延时60us
MOVWF COUNT1
WR2 DECFSZ COUNT1,1
GOTO WR2
BSF DQ ;拉高数据线，空闲状态
BSF STATUS,RP0 ;使当前体为体1
BSF DIR ;使数据位为输入
BCF STATUS,RP0 ;使当前体为体0
DECFSZ COUNT2,1 ;8次循环到了则跳出
GOTO WR0
RETLW 00H
;=============
;*****************
;读18B20子程序
;****************
RE18B20
MOVLW 8
MOVWF COUNT2
RE0 BSF STATUS,RP0 ;使当前体为体1
BCF DIR ;使数据位为输出
BCF STATUS,RP0 ;使当前体为体0
BCF DQ
MOVLW 2
MOVWF COUNT1
RE1 DECFSZ COUNT1,1
GOTO RE1
BSF STATUS,RP0 ;使当前体为体1
BSF DIR ;使数据位为输入
BCF STATUS,RP0 ;使当前体为体0
NOP
BTFSS DQ ;如果数据线为高电平，则C=1
BCF STATUS,C
BTFSC DQ ;如果数据线为低电平，则C=0
BSF STATUS,C
RRF DATE,1 ;数据依次存在DATE上
MOVLW D'20' ;延时60us
MOVWF COUNT1
RE2 DECFSZ COUNT1,1
GOTO RE2
DECFSZ COUNT2,1
GOTO RE0
BSF DQ
RETLW 00H
;===================
;================
END ;程序结束
|
