?? ds18b20溫度顯示實驗.asm
字號:
;*************************************************************
;程序名稱：DS18B20溫度顯示實驗
;程序編寫 聯系QQ：
;程序功能: 顯示實時溫度，精確度極高
;程序最后修改時間:2008/8/1
;*************************************************************
BAIWEI equ 37h
SHIWEI equ 38h
GEWEI equ 39h
TEMPER_L EQU 36H
TEMPER_H EQU 35H
TEMPER_d EQU 61H ;小數位
TEMPER_NUM EQU 60H
FLAG1 BIT 00H
DQ BIT P2.2
dula bit P2.6
wela bit P2.7
MOV SP,#70H
AAA:LCALL GET_TEMPER
LCALL TEMPER_COV
mov a,TEMPER_NUM ;分開 TEMPER_NUM
anl a,#0f0h
swap a
mov BAIWEI,a
mov a,TEMPER_NUM
anl a,#0fh
mov SHIWEI,a
mov GEWEI,TEMPER_d
mov r2,#256
lplp:lcall display
djnz r2,lplp
LJMP AAA
NOP
;------------------讀出轉換后的溫度值
GET_TEMPER:
LCALL INIT_1820 ;初始化程序
SETB DQ ; 定時入口
BCD:JB FLAG1,S22
LJMP BCD ; 若DS18B20不存在則返回
S22:LCALL DELAY1
MOV A,#0CCH ; 跳過ROM匹配------0CC
LCALL WRITE_1820
MOV A,#44H ; 發出溫度轉換命令
LCALL WRITE_1820
NOP
LCALL DELAY
LCALL DELAY
CBA:LCALL INIT_1820
JB FLAG1,ABC
LJMP CBA
ABC:LCALL DELAY1
MOV A,#0CCH ; 跳過ROM匹配
LCALL WRITE_1820
MOV A,#0BEH ; 發出讀溫度命令
LCALL WRITE_1820
LCALL READ_18200 ;或者 READ_1820
RET
;------------------讀DS18B20的程序,從DS18B20中讀出一個字節的數據
READ_1820:
MOV R2,#8
RE1:
CLR C
SETB DQ
NOP
NOP
CLR DQ
NOP
NOP
NOP
SETB DQ
MOV R3,#7
DJNZ R3,$
MOV C,DQ
MOV R3,#23
DJNZ R3,$
RRC A
DJNZ R2,RE1
RET
;-------------------寫DS18B20的程序
WRITE_1820:
MOV R2,#8
CLR C
WR1:
CLR DQ
MOV R3,#6
DJNZ R3,$
RRC A
MOV DQ,C
MOV R3,#23
DJNZ R3,$
SETB DQ
NOP
DJNZ R2,WR1
SETB DQ
RET
;-------------------讀DS18B20的程序,從DS18B20中讀出兩個字節的溫度數據
READ_18200:
MOV R4,#2 ; 將溫度高位和低位從DS18B20中讀出
MOV R1,#36H ; 低位存入36H(TEMPER_L),高位存入35H(TEMPER_H)
RE00:
MOV R2,#8
RE01:
CLR C
SETB DQ
NOP
NOP
CLR DQ
NOP
NOP
NOP
SETB DQ
MOV R3,#7
DJNZ R3,$
MOV C,DQ
MOV R3,#23
DJNZ R3,$
RRC A
DJNZ R2,RE01
MOV @R1,A
DEC R1
DJNZ R4,RE00
RET
;-------------------將從DS18B20中讀出的溫度數據進行轉換
TEMPER_COV:
MOV A,#0F0H
ANL A,TEMPER_L ; 舍去溫度低位中小數點后的四位溫度數值
SWAP A
MOV TEMPER_NUM,A
MOV A,TEMPER_L
JNB ACC.3,TEMPER_COV1 ; 四舍五入去溫度值
INC TEMPER_NUM
TEMPER_COV1:
MOV A,TEMPER_H
ANL A,#07H
SWAP A
ORL A,TEMPER_NUM
MOV TEMPER_NUM,A ; 保存變換后的溫度數據
mov a,#0fh
ANL A,TEMPER_L
mov TEMPER_d,a
clr c
subb a,#10
jc jianlo
mov TEMPER_d,a
inc TEMPER_NUM
jianlo:
LCALL BIN_BCD
RET
;-------------------將16進制的溫度數據轉換成壓縮BCD碼
BIN_BCD:
MOV DPTR,#TEMP_TAB
MOV A,TEMPER_NUM
MOVC A,@A+DPTR
MOV TEMPER_NUM,A
RET
TEMP_TAB:
DB 00H,01H,02H,03H,04H,05H,06H,07H
DB 08H,09H,10H,11H,12H,13H,14H,15H
DB 16H,17H,18H,19H,20H,21H,22H,23H
DB 24H,25H,26H,27H,28H,29H,30H,31H
DB 32H,33H,34H,35H,36H,37H,38H,39H
DB 40H,41H,42H,43H,44H,45H,46H,47H
DB 48H,49H,50H,51H,52H,53H,54H,55H
DB 56H,57H,58H,59H,60H,61H,62H,63H
DB 64H,65H,66H,67H,68H,69H,70H,71H
DB 72H,73H,74H,75H,76H,77H,78H,79H
DB 80H,81H,82H,83H,84H,85H,86H,87H
DB 88H,89H,90H,91H,92H,93H,94H,95H
DB 96H,97H,98H,99H
;-------------------DS18B20初始化程序
INIT_1820:
SETB DQ
NOP
CLR DQ
MOV R0,#80H
TSR1:
DJNZ R0,TSR1 ; 延時
SETB DQ
MOV R0,#25H ;96US-25H
TSR2:
DJNZ R0,TSR2
JNB DQ,TSR3
LJMP TSR4 ; 延時
TSR3:
SETB FLAG1 ; 置標志位,表示DS1820存在
LJMP TSR5
TSR4:
CLR FLAG1 ; 清標志位,表示DS1820不存在
LJMP TSR7
TSR5:
MOV R0,#06BH ;200US
TSR6:
DJNZ R0,TSR6 ; 延時
TSR7:
SETB DQ
RET
;------------------重新寫DS18B20暫存存儲器設定值
;RE_CONFIG:
JB FLAG1,RE_CONFIG1 ; 若DS18B20存在,轉RE_CONFIG1
RET
RE_CONFIG1:
MOV A,#0CCH ; 發SKIP ROM命令
LCALL WRITE_1820
MOV A,#4EH ; 發寫暫存存儲器命令
LCALL WRITE_1820
MOV A,#00H ; TH(報警上限)中寫入00H
LCALL WRITE_1820
MOV A,#00H ; TL(報警下限)中寫入00H
LCALL WRITE_1820
MOV A,#7FH ; 選擇12位溫度分辨率
LCALL WRITE_1820
RET
;------------------延時子程序
DELAY:MOV R7,#2H
MIN:DJNZ R7,YS500
RET
YS500:LCALL YS500US
LJMP MIN
YS500US:MOV R6,#200
DJNZ R6,$
RET
DELAY1:MOV R7,#20H
DJNZ R7,$
RET
display: ;顯示程序
MOV DPTR,#TABLE
clr dula;
mov a,BAIWEI
MOVC a,@A+DPTR
mov p0,a ;顯示百位
setb dula;
clr dula;
clr wela;
mov P0,#7eh;
setb wela;
clr wela;
mov 50h,#5h
call delayxms
clr dula;
mov a,SHIWEI
MOVC a,@A+DPTR
orl a,#80h ;顯示小數點
mov p0,a ; ;顯示十位
setb dula;
clr dula;
clr wela;
mov P0,#7dh;
setb wela;
clr wela;
mov 50h,#5h
call delayxms
mov a,GEWEI
MOVC a,@A+DPTR
mov p0,a ; ;顯示個位
setb dula;
clr dula;
mov P0,#7bh;
setb wela;
clr wela;
mov 50h,#5h
call delayxms
ret
delayxms:mov 52h,#1 ;50h,51h,52h用于延時 50h為參數x 延時1*x ms
delaya:mov 51h,#125
djnz 51h,$
djnz 52h,delaya
djnz 50h,delayxms
ret ;延時返回
table:db 3fh,06h,5bh,4fh,66h,6dh,7dh,07h,
db 7fh,6fh,77h,7ch,39h,5eh,79h,71h
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -