找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 3057|回復(fù): 0
收起左側(cè)

18B20達(dá)到 0.01精度的匯編程序

[復(fù)制鏈接]
ID:80436 發(fā)表于 2015-5-21 23:57 | 顯示全部樓層 |閱讀模式
本帖最后由 liuqq 于 2015-5-22 00:02 編輯


  1. ;溫度傳感器18B20匯編程序,采用器件默認(rèn)的12位轉(zhuǎn)化,最大轉(zhuǎn)化時(shí)間750微秒
  2. ;將溫度數(shù)據(jù)通過串口發(fā)送出去,波特率2400
  3. ;本程序?qū)锳T89C51實(shí)驗(yàn)開發(fā)板編寫.適合12晶振
  4. ;本程序經(jīng)過驗(yàn)證,可以顯示溫度+/-和兩位整數(shù)溫度和兩位小數(shù)溫度數(shù)據(jù)

  5. DOT EQU 30H
  6. ZHENGSHU EQU 31H
  7. FLAG1 EQU 38H ;是否檢測到DS18B20的標(biāo)志位
  8. ;定義溫度數(shù)據(jù)
  9. DIS_1 EQU 32H ;符號
  10. DIS_2 EQU 33H ;十位
  11. DIS_3 EQU 34H ;個(gè)位
  12. DIS_4 EQU 35H ;小數(shù)點(diǎn)后第一位
  13. DIS_5 EQU 36H ;小數(shù)點(diǎn)后第二位
  14. WDDATA BIT P2.2 ;定義DS18B20的數(shù)據(jù)腳為P2.2端口

  15. ORG 0000H

  16. ;以下為主程序進(jìn)行CPU中斷方式設(shè)置
  17. CLR EA ;關(guān)閉總中斷
  18. MOV SCON,#50H ;設(shè)置成串口1方式
  19. MOV TMOD,#20H ;波特率發(fā)生器T1工作在模式2上
  20. MOV TH1,#0F3H ;預(yù)置初值(按照波特率2400BPS預(yù)置初值)
  21. MOV TL1,#0F3H ;預(yù)置初值(按照波特率2400BPS預(yù)置初值)
  22. SETB TR1 ;啟動(dòng)定時(shí)器T1
  23. ;以上完成串口2400通訊初始化設(shè)置

  24. ;-------------------------
  25. ; 主程序
  26. ;-------------------------
  27. MAIN:
  28. LCALL INIT_1820 ;調(diào)用復(fù)位DS18B20子程序
  29. MAIN1:
  30. LCALL GET_TEMPER;調(diào)用讀溫度子程序
  31. LCALL FORMULA ;通過公式計(jì)算,小數(shù)點(diǎn)后顯示兩位
  32. LCALL BCD
  33. LCALL DISPLAY ;調(diào)用串口顯示子程序
  34. LCALL DELAY500 ;延時(shí)0.5秒
  35. LCALL DELAY500 ;延時(shí)0.5秒
  36. LCALL DELAY500 ;延時(shí)0.5秒
  37. AJMP MAIN1

  38. ;-------------------------
  39. ; DS18B20復(fù)位初始化程序
  40. ;-------------------------
  41. INIT_1820:
  42. SETB WDDATA
  43. NOP
  44. CLR WDDATA
  45. ;主機(jī)發(fā)出延時(shí)540微秒的復(fù)位低脈沖
  46. MOV R0,#36
  47. LCALL DELAY
  48. SETB WDDATA;然后拉高數(shù)據(jù)線
  49. NOP
  50. NOP
  51. MOV R0,#36
  52. TSR2:
  53. JNB WDDATA,TSR3;等待DS18B20回應(yīng)
  54. DJNZ R0,TSR2
  55. LJMP TSR4 ; 延時(shí)
  56. TSR3:
  57. SETB FLAG1 ; 置標(biāo)志位,表示DS1820存在
  58. LJMP TSR5
  59. TSR4:
  60. CLR FLAG1 ; 清標(biāo)志位,表示DS1820不存在
  61. LJMP TSR7
  62. TSR5:
  63. MOV R0,#06BH
  64. TSR6:
  65. DJNZ R0,TSR6 ;復(fù)位成功!時(shí)序要求延時(shí)一段時(shí)間
  66. TSR7:
  67. SETB WDDATA
  68. RET
  69. ;-------------------
  70. ; 讀出轉(zhuǎn)換后的溫度值
  71. ;-------------------
  72. GET_TEMPER:
  73. SETB WDDATA ; 定時(shí)入口
  74. LCALL INIT_1820 ;先復(fù)位DS18B20
  75. JB FLAG1,TSS2
  76. RET ; 判斷DS1820是否存在?若DS18B20不存在則返回
  77. TSS2:
  78. MOV A,#0CCH ; 跳過ROM匹配
  79. LCALL WRITE_1820
  80. MOV A,#44H ; 發(fā)出溫度轉(zhuǎn)換命令
  81. LCALL WRITE_1820

  82. MOV R0,#50 ;等待AD轉(zhuǎn)換結(jié)束,12位的話750微秒.
  83. LCALL DELAY
  84. LCALL INIT_1820 ;準(zhǔn)備讀溫度前先復(fù)位
  85. MOV A,#0CCH ; 跳過ROM匹配
  86. LCALL WRITE_1820
  87. MOV A,#0BEH ; 發(fā)出讀溫度命令
  88. LCALL WRITE_1820
  89. LCALL READ_18200; 將讀出的九個(gè)字節(jié)數(shù)據(jù)保存到60H-68H
  90. RET

  91. ;----------------------------------
  92. ;寫DS18B20的子程序(有具體的時(shí)序要求)
  93. ;----------------------------------
  94. WRITE_1820:
  95. MOV R2,#8 ;一共8位數(shù)據(jù)
  96. CLR C
  97. WR1:
  98. CLR WDDATA
  99. MOV R3,#6
  100. DJNZ R3,$
  101. RRC A
  102. MOV WDDATA,C
  103. MOV R3,#24
  104. DJNZ R3,$
  105. SETB WDDATA
  106. NOP
  107. DJNZ R2,WR1
  108. SETB WDDATA
  109. RET
  110. ;--------------------------------------------------
  111. ; 讀DS18B20的程序,從DS18B20中讀出九個(gè)字節(jié)的數(shù)據(jù)
  112. ;--------------------------------------------------
  113. READ_18200:
  114. MOV R4,#9
  115. MOV R1,#60H ; 存入60H開始的九個(gè)單元
  116. RE00:
  117. MOV R2,#8
  118. RE01:
  119. CLR C
  120. SETB WDDATA
  121. NOP
  122. NOP
  123. CLR WDDATA
  124. NOP
  125. NOP
  126. NOP
  127. SETB WDDATA
  128. MOV R3,#09
  129. RE10:
  130. DJNZ R3,RE10
  131. MOV C,WDDATA
  132. MOV R3,#23
  133. RE20:
  134. DJNZ R3,RE20
  135. RRC A
  136. DJNZ R2,RE01
  137. MOV @R1,A
  138. INC R1
  139. DJNZ R4,RE00
  140. RET

  141. ;------------------------
  142. ;溫度計(jì)算子程序
  143. ;------------------------
  144. FORMULA: ; 按公式:T實(shí)際=(T整數(shù)-0.25)+( M每度-M剩余)/ M每度
  145. ;計(jì)算出實(shí)際溫度,整數(shù)部分和小數(shù)部分分別存于ZHENGSHU單元和DOT單元

  146. ;將61H中的低4位移入60H中的高4位,得到溫度的整數(shù)部分,并存于ZHENGSHU單元
  147. MOV 29H,61H
  148. MOV A,60H
  149. MOV C,48H
  150. RRC A
  151. MOV C,49H
  152. RRC A
  153. MOV C,4AH
  154. RRC A
  155. MOV C,4BH
  156. RRC A
  157. MOV ZHENGSHU,A

  158. ; ( M每度-M剩余)/ M每度,小數(shù)值存于A中
  159. MOV A,67h
  160. SUBB A,66h
  161. MOV B,#64H
  162. MUL AB
  163. MOV R4,B
  164. MOV R5,A
  165. MOV R7,67H
  166. LCALL DIV457
  167. MOV A,R3


  168. ;再減去0.25,實(shí)際應(yīng)用中減去25
  169. SUBB A,#19H
  170. MOV DOT,A ;小數(shù)部分存于DOT中
  171. MOV A,ZHENGSHU
  172. SUBB A,#00H ;整數(shù)部分減去來自小數(shù)部分的借位
  173. MOV ZHENGSHU,A
  174. MOV C,4BH
  175. JNC ZHENG ;是否為負(fù)數(shù)
  176. CPL A
  177. INC A
  178. MOV DIS_1,#2DH ; 零度以下時(shí),第一位顯示"-"號
  179. MOV ZHENGSHU,A
  180. ZHENG:
  181. MOV DIS_1,#2BH ; 零度以上時(shí),第一位顯示"+"號
  182. RET
  183. ;------------------------
  184. ;雙字節(jié)除以單字節(jié)子程序
  185. ;------------------------
  186. DIV457: CLR C
  187. MOV A,R4
  188. SUBB A,R7
  189. JC DV50
  190. SETB OV ;商溢出
  191. RET
  192. DV50: MOV R6,#8 ;求平均值(R4R5/R7-→R3)
  193. DV51: MOV A,R5
  194. RLC A
  195. MOV R5,A
  196. MOV A,R4
  197. RLC A
  198. MOV R4,A
  199. MOV F0,C
  200. CLR C
  201. SUBB A,R7
  202. ANL C,/F0
  203. JC DV52
  204. MOV R4,A
  205. DV52: CPL C
  206. MOV A,R3
  207. RLC A
  208. MOV R3,A
  209. DJNZ R6,DV51
  210. MOV A,R4 ;四舍五入
  211. ADD A,R4
  212. JC DV53
  213. SUBB A,R7
  214. JC DV54
  215. DV53: INC R3
  216. DV54: CLR OV
  217. RET
  218. ;---------------------
  219. ;轉(zhuǎn)換成非壓縮的BCD碼
  220. ;---------------------
  221. BCD: MOV A,ZHENGSHU
  222. MOV B,#0AH
  223. DIV AB
  224. ORL A,#00110000B ;轉(zhuǎn)換成ASCII碼
  225. MOV DIS_2,A
  226. MOV DIS_3,B
  227. MOV A,DIS_3
  228. ORL A,#00110000B ;轉(zhuǎn)換成ASCII碼
  229. MOV DIS_3,A

  230. MOV A,DOT
  231. MOV B,#0AH
  232. DIV AB
  233. ORL A,#00110000B ;轉(zhuǎn)換成ASCII碼
  234. MOV DIS_4,A
  235. MOV DIS_5,B
  236. MOV A,DIS_5
  237. ORL A,#00110000B ;轉(zhuǎn)換成ASCII碼
  238. MOV DIS_5,A

  239. RET
  240. ;----------------------
  241. ;串口顯示數(shù)據(jù)子程序
  242. ;----------------------
  243. DISPLAY:

  244. CLR TI
  245. MOV A,DIS_1
  246. MOV SBUF,A
  247. JNB TI,$ ;發(fā)送給PC,通過串口調(diào)試助手顯示+/-

  248. CLR TI
  249. MOV A,DIS_2
  250. MOV SBUF,A
  251. JNB TI,$ ;發(fā)送給PC,通過串口調(diào)試助手顯示整數(shù)第一位

  252. CLR TI
  253. MOV A,DIS_3
  254. MOV SBUF,A
  255. JNB TI,$ ;發(fā)送給PC,通過串口調(diào)試助手顯示整數(shù)第二位

  256. CLR TI
  257. MOV A,#2EH
  258. MOV SBUF,A
  259. JNB TI,$ ;發(fā)送給PC,通過串口調(diào)試助手顯示小數(shù)點(diǎn)

  260. CLR TI
  261. MOV A,DIS_4
  262. MOV SBUF,A
  263. JNB TI,$ ;發(fā)送給PC,通過串口調(diào)試助手顯示小數(shù)第一位

  264. CLR TI
  265. MOV A,DIS_5
  266. MOV SBUF,A
  267. JNB TI,$ ;發(fā)送給PC,通過串口調(diào)試助手顯示小數(shù)第一位


  268. CLR TI
  269. MOV A,#0DH;換行
  270. MOV SBUF,A
  271. JNB TI,$ ;發(fā)送給PC,通過串口調(diào)試助手顯示

  272. CLR TI
  273. MOV A,#0AH;換行
  274. MOV SBUF,A
  275. JNB TI,$ ;發(fā)送給PC,通過串口調(diào)試助手顯示

  276. RET

  277. ;----------------------
  278. ;延時(shí)子程序
  279. ;----------------------
  280. ;為保證DS18B20的嚴(yán)格I/O時(shí)序,需要做較精確的延時(shí)
  281. ;在DS18B20操作中,用到的延時(shí)有15 μs,90 μs,270 μs,540 μs
  282. ;因這些延時(shí)均為15 μs的整數(shù)倍,因此可編寫一個(gè)DELAY15(n)函數(shù)
  283. DELAY: ;11.05962M晶振
  284. LOOP: MOV R1,#06H
  285. LOOP1: DJNZ R1,LOOP1
  286. DJNZ R0,LOOP
  287. RET

  288. ;500毫秒延時(shí)子程序,占用R4、R5
  289. DELAY500:MOV R4,#248
  290. DA222:MOV R5,#248
  291. DJNZ R5,$
  292. DJNZ R4,DA222
  293. RET

  294. END


復(fù)制代碼

回復(fù)

使用道具 舉報(bào)

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表