當前位置:首頁 > 技術學院 > 熱搜器件
[導讀]DS18B20溫度轉換---------------------------------------; 以下程序包含兩個功能:; 1) 讀 DS18B20 的 64bits ROM,程序中已將此功能注消,需要此功能請取消注釋。; 2) 啟動一個 DS18B20 做溫度轉換(精度為出廠默認值

DS18B20溫度轉換

---------------------------------------

; 以下程序包含兩個功能:

; 1) 讀 DS18B20 的 64bits ROM,程序中已將此功能注消,需要此功能請取消注釋。

; 2) 啟動一個 DS18B20 做溫度轉換(精度為出廠默認值: 0.0625℃),并讀取轉換值。

; 3) 本程序運行于 AT89C51/52 或 AT89C1051/2051。

; 4) 本程序在 Intel ASM51 VER2.2 編譯通過。

;*************************************************************************************

DQ BIT P1.5 ; 1-WIRLE

STLPW BIT P1.4 ; STEAL POWER CONTROL

READROM EQU 33H ; ROM CAMMAND

MATCHROM EQU 55H ;

SKIPROM EQU 0CCH ;

SEARCHRDH EQU 0F0H ;

ALARMSEARCH EQU 0ECH ;

WRITESCRATCHPAD EQU 4EH ; MEMORY COMMAND

READSCRATCHPAD EQU 0BEH ;

COPYSCRATCHPAD EQU 48H ;

CONVERT EQU 44H ;

RECALLEE EQU 0B8H ;

READPOWER EQU 0B4H ;

FAMILY EQU 28H ; SAMPLE 64 BITS ROM

SN1 EQU 4EH ;

SN2 EQU 91H ;

SN3 EQU 08H ;

SN4 EQU 00H ;

SN5 EQU 00H ;

SN6 EQU 00H ;

CRC EQU 1EH ;

;******************************************************************

ORG 0000H

LJMP MAIN

MAIN:

; LCALL INIT

;

; MOV A,#READROM

; LCALL WRWIRE

; MOV R0,#20H

; MOV R1,#08H

;SCANROM: LCALL RDWIRE

; MOV @R0,A

; INC R0

; DJNZ R1,SCANROM

; NOP ; INTERRUPTE HERE CHECK SAMPLE DS18B20 64 BITS ROM.

;

; RAM 27H -> CRC.

; RAM 21H-26H -> 6 BYTES SARIAL NUMBER.

; RAM 20H -> FAMILY NUMBER.(DS18B20 = 28H)

; THE FOLLOWING PROGRAMME IS ONLY USED FOR ANY ONE DS18B20, BUT ONLY ONE.

; YOU CAN MODIFY IT FOR MANY DS18B20, REFER TO DATASHEET OF DS18B20.

SCANTMP: LCALL INIT ; START CONVERT, 0.625‘C/STEP

MOV A,#SKIPROM ;

LCALL WRWIRE ;

MOV A,#CONVERT ;

LCALL WRWIRE ;

LCALL T1S ; WAIT FOR CONVERT COMPLET.

LCALL INIT ; READ TEMPERATURE

MOV A,#SKIPROM ;

LCALL WRWIRE ;

MOV A,#READSCRATCHPAD

LCALL WRWIRE ;

LCALL RDWIRE ;

MOV DPL,A ;

LCALL RDWIRE ;

MOV DPH,A ; DPTR IS SAVED DATA OF TEMPERATURE

MOV B,#10H ;

MOV A,DPH ;

MUL AB ;

MOV R0,A ;

MOV B,#10H ;

MOV A,DPL ;

DIV AB ;

ADD A,R0 ; EASY TO READ TEMPERATURE FROM ACC

LCALL INIT

NOP ; INTERRUPTE HERE CHECK TEMPERATURE

AJMP SCANTMP

;*****SUBSUBSUBSUBSUBSUBSUBSUBSUB**********************************************

;RESET DS18B20.

INIT:

PUSH 0000H

CLR STLPW

CLR DQ

MOV R0,#0FFH ; DELAY 512uS

DJNZ R0,$

SETB DQ

SETB STLPW

MOV R0,#18H ; DELAY 50uS

DJNZ R0,$

CLR STLPW

JB DQ,$ ; WAIT FOR DQ LOW

JNB DQ,$ ; WAIT FOR DQ HIGHT

SETB STLPW

MOV R0,#0FFH ; DELAY 512uS

DJNZ R0,$

POP 0000H

RET

;******************************************************************

; WRITE 1 BYTE TO DS18B20.

; ACC IS SAVED DATA.

WRWIRE:

PUSH ACC

PUSH 0000H

PUSH 0001H

MOV R0,#08H

WRWIRE_1: RRC A

CLR STLPW

CLR DQ

MOV R1,#06H ; DELAY 14uS

DJNZ R1,$ ;

MOV DQ,C ; WRITE DQ

MOV R1,#09H ; DELAY 20uS WAIT FOR DS18B20 SAMPLE

DJNZ R1,$ ;

SETB DQ

SETB STLPW

MOV R1,#30H ; DELAY 100uS FOR RECOVER

DJNZ R1,$ ;

DJNZ R0,WRWIRE_1

POP 0001H

POP 0000H

POP ACC

RET

;*******************************************************************

; READ 1 BYTE TO ACC

; ACC IS USED

RDWIRE:

PUSH 0000H

PUSH 0001H

MOV R0,#08H

RDWIRE_1: CLR STLPW

CLR DQ

MOV R1,#04H ; DELAY 10uS

DJNZ R1,$ ;

SETB DQ ; READY FOR RECEIVE DS18B20 DQ

MOV C,DQ ; READ DQ TO ACC

RRC A ;

SETB DQ

SETB STLPW

MOV R1,#30H ; DELAY 100uS FOR RECOVER

DJNZ R1,$

DJNZ R0,RDWIRE_1

POP 0001H

POP 0000H

RET

;******************************************************************

; DELAY 0.9S-1S

T1S:

PUSH 0000H

PUSH 0001H

PUSH 0002H

MOV R2,#07H

T1S_2: MOV R1,#0FFH

T1S_1: MOV R0,#0FFH ; 512uS

DJNZ R0,$ ;

DJNZ R1,T1S_1 ; 514*255+2=131072uS

DJNZ R2,T1S_2 ; 131072*7=917504uS

POP 0002H

POP 0001H

POP 0000H

RET

;*******************************************************************

本站聲明: 本文章由作者或相關機構授權發(fā)布,目的在于傳遞更多信息,并不代表本站贊同其觀點,本站亦不保證或承諾內容真實性等。需要轉載請聯(lián)系該專欄作者,如若文章內容侵犯您的權益,請及時聯(lián)系本站刪除。
換一批
延伸閱讀

9月2日消息,不造車的華為或將催生出更大的獨角獸公司,隨著阿維塔和賽力斯的入局,華為引望愈發(fā)顯得引人矚目。

關鍵字: 阿維塔 塞力斯 華為

加利福尼亞州圣克拉拉縣2024年8月30日 /美通社/ -- 數(shù)字化轉型技術解決方案公司Trianz今天宣布,該公司與Amazon Web Services (AWS)簽訂了...

關鍵字: AWS AN BSP 數(shù)字化

倫敦2024年8月29日 /美通社/ -- 英國汽車技術公司SODA.Auto推出其旗艦產品SODA V,這是全球首款涵蓋汽車工程師從創(chuàng)意到認證的所有需求的工具,可用于創(chuàng)建軟件定義汽車。 SODA V工具的開發(fā)耗時1.5...

關鍵字: 汽車 人工智能 智能驅動 BSP

北京2024年8月28日 /美通社/ -- 越來越多用戶希望企業(yè)業(yè)務能7×24不間斷運行,同時企業(yè)卻面臨越來越多業(yè)務中斷的風險,如企業(yè)系統(tǒng)復雜性的增加,頻繁的功能更新和發(fā)布等。如何確保業(yè)務連續(xù)性,提升韌性,成...

關鍵字: 亞馬遜 解密 控制平面 BSP

8月30日消息,據(jù)媒體報道,騰訊和網易近期正在縮減他們對日本游戲市場的投資。

關鍵字: 騰訊 編碼器 CPU

8月28日消息,今天上午,2024中國國際大數(shù)據(jù)產業(yè)博覽會開幕式在貴陽舉行,華為董事、質量流程IT總裁陶景文發(fā)表了演講。

關鍵字: 華為 12nm EDA 半導體

8月28日消息,在2024中國國際大數(shù)據(jù)產業(yè)博覽會上,華為常務董事、華為云CEO張平安發(fā)表演講稱,數(shù)字世界的話語權最終是由生態(tài)的繁榮決定的。

關鍵字: 華為 12nm 手機 衛(wèi)星通信

要點: 有效應對環(huán)境變化,經營業(yè)績穩(wěn)中有升 落實提質增效舉措,毛利潤率延續(xù)升勢 戰(zhàn)略布局成效顯著,戰(zhàn)新業(yè)務引領增長 以科技創(chuàng)新為引領,提升企業(yè)核心競爭力 堅持高質量發(fā)展策略,塑強核心競爭優(yōu)勢...

關鍵字: 通信 BSP 電信運營商 數(shù)字經濟

北京2024年8月27日 /美通社/ -- 8月21日,由中央廣播電視總臺與中國電影電視技術學會聯(lián)合牽頭組建的NVI技術創(chuàng)新聯(lián)盟在BIRTV2024超高清全產業(yè)鏈發(fā)展研討會上宣布正式成立。 活動現(xiàn)場 NVI技術創(chuàng)新聯(lián)...

關鍵字: VI 傳輸協(xié)議 音頻 BSP

北京2024年8月27日 /美通社/ -- 在8月23日舉辦的2024年長三角生態(tài)綠色一體化發(fā)展示范區(qū)聯(lián)合招商會上,軟通動力信息技術(集團)股份有限公司(以下簡稱"軟通動力")與長三角投資(上海)有限...

關鍵字: BSP 信息技術
關閉
關閉