標(biāo)題: 8通道自動(dòng)溫度檢測(cè)系統(tǒng) 含單片機(jī)匯編程序 [打印本頁]
作者: 369612492    時(shí)間: 2018-6-24 21:49
標(biāo)題: 8通道自動(dòng)溫度檢測(cè)系統(tǒng) 含單片機(jī)匯編程序
單片機(jī)8通道自動(dòng)溫度檢測(cè)系統(tǒng)仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）


單片機(jī)源程序如下:
  1.      CLR P3.7
  2. MAIN:MOV 38H,#00H
  3.      MOV 39H,#00H
  4.      MOV 3AH,#00H
  5.      MOV 3BH,#00H
  6.      LCALL   GET_TEMPER
  7.      LCALL   TEMPRRO
  8.      MOV P2,#06H
  9.      LCALL PRO
  10. ;------------------------------------------------------

  12.      MOV 38H,#00H
  13.      MOV 39H,#00H
  14.      MOV 3AH,#00H
  15.      MOV 3BH,#00H
  16.      LCALL   GET_TEMPER2
  17.      LCALL   TEMPRRO
  18.      MOV P2,#5BH
  19.      LCALL PRO
  20. ;------------------------------------------------------

  22.      MOV 38H,#00H
  23.      MOV 39H,#00H
  24.      MOV 3AH,#00H
  25.      MOV 3BH,#00H
  26.      LCALL   GET_TEMPER3
  27.      LCALL   TEMPRRO
  28.      MOV P2,#4FH
  29.      LCALL PRO

  31. ;------------------------------------------------------

  33.      MOV 38H,#00H
  34.      MOV 39H,#00H
  35.      MOV 3AH,#00H
  36.      MOV 3BH,#00H
  37.      LCALL   GET_TEMPER4
  38.      LCALL   TEMPRRO
  39.      MOV P2,#66H
  40.      LCALL PRO
  41. ;------------------------------------------------------

  43.      MOV 38H,#00H
  44.      MOV 39H,#00H
  45.      MOV 3AH,#00H
  46.      MOV 3BH,#00H
  47.      LCALL   GET_TEMPER5
  48.      LCALL   TEMPRRO
  49.      MOV P2,#6DH
  50.      LCALL PRO
  51. ;------------------------------------------------------

  53.      MOV 38H,#00H
  54.      MOV 39H,#00H
  55.      MOV 3AH,#00H
  56.      MOV 3BH,#00H
  57.      LCALL   GET_TEMPER6
  58.      LCALL   TEMPRRO
  59.      MOV P2,#7DH
  60.      LCALL PRO
  61. ;------------------------------------------------------

  63.      MOV 38H,#00H
  64.      MOV 39H,#00H
  65.      MOV 3AH,#00H
  66.      MOV 3BH,#00H
  67.      LCALL   GET_TEMPER7
  68.      LCALL   TEMPRRO
  69.      MOV P2,#07H
  70.      LCALL PRO
  71. ;------------------------------------------------------

  73.      MOV 38H,#00H
  74.      MOV 39H,#00H
  75.      MOV 3AH,#00H
  76.      MOV 3BH,#00H
  77.      LCALL   GET_TEMPER8
  78.      LCALL   TEMPRRO
  79.      MOV P2,#7FH
  80.      LCALL PRO
  81.       LJMP  MAIN
  82.    


  85. ;==============================================CHL1
  86. GET_TEMPER:
  87.           SETB      P1.0H ; 定時(shí)入口
  88. BCD:      LCALL     INIT_1820
  89.           JB        00H,S22
  90.           LJMP      BCD ; 若DS18B20不存在則返回

  92. S22:     LCALL     DELAY1
  93.          MOV        A,#0CCH ; 跳過ROM匹配------0CC命令
  94.          LCALL     WRITE_1820
  95. MOV A,#44H ; 發(fā)出溫度轉(zhuǎn)換命令
  96. LCALL WRITE_1820
  97. NOP
  98. LCALL DELAY1
  99. CBA:LCALL INIT_1820
  100. JB 00H,ABC
  101. LJMP CBA
  102. ABC:LCALL DELAY1
  103. MOV A,#0CCH ; 跳過ROM匹配
  104. LCALL WRITE_1820
  105. MOV A,#0BEH ; 發(fā)出讀溫度命令
  106. LCALL WRITE_1820
  107. LCALL READ_18200 ;READ_1820
  108. RET
  109. ;==============================
  110. READ_1820:
  111. MOV R2,#8
  112. RE1:
  113. CLR C
  114. SETB P1.0H
  115. NOP
  116. NOP
  117. CLR P1.0H
  118. NOP
  119. NOP
  120. NOP
  121. SETB P1.0H
  122. MOV R3,#7
  123. DJNZ R3,$
  124. MOV C,P1.0H
  125. MOV R3,#23
  126. DJNZ R3,$
  127. RRC A
  128. DJNZ R2,RE1
  129. RET
  130. ;=============================
  131. WRITE_1820:
  132. MOV R2,#8
  133. CLR C
  134. WR1:
  135. CLR P1.0H
  136. MOV R3,#6
  137. DJNZ R3,$
  138. RRC A
  139. MOV P1.0H,C
  140. MOV R3,#23
  141. DJNZ R3,$
  142. SETB P1.0H
  143. NOP
  144. DJNZ R2,WR1
  145. SETB P1.0H
  146. RET
  147. ;=======================================
  148. READ_18200:
  149. MOV R4,#2 ; 將溫度高位和低位從DS18B20中讀出
  150. MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)
  151. RE00:
  152. MOV R2,#8
  153. RE01:
  154. CLR C
  155. SETB P1.0H
  156. NOP
  157. NOP
  158. CLR P1.0H
  159. NOP
  160. NOP
  161. NOP
  162. SETB P1.0H
  163. MOV R3,#7
  164. DJNZ R3,$
  165. MOV C,P1.0H
  166. MOV R3,#23
  167. DJNZ R3,$
  168. RRC A
  169. DJNZ R2,RE01
  170. MOV @R1,A
  171. DEC R1
  172. DJNZ R4,RE00
  173. RET
  174. ;=======================================
  175. INIT_1820:
  176. SETB P1.0H
  177. NOP
  178. CLR P1.0H
  179. MOV R0,#250
  180. TSR1:
  181. DJNZ R0,TSR1 ; 延時(shí)520us
  182. SETB P1.0H
  183. MOV R0,#25H ;96US-25H
  184. TSR2:
  185. DJNZ R0,TSR2
  186. JNB P1.0H,TSR3;如D0為低則復(fù)位成功，DS18B20存在
  187. LJMP TSR4 ; 延時(shí)
  188. TSR3:
  189. SETB 00H ; 置標(biāo)志位,表示DS1820存在
  190. LJMP TSR5
  191. TSR4:
  192. CLR 00H ; 清標(biāo)志位,表示DS1820不存在
  193. LJMP TSR7
  194. TSR5:
  195. MOV R0,#06BH ;200US
  196. TSR6:
  197. DJNZ R0,TSR6 ; 延時(shí)
  198. TSR7:
  199. SETB P1.0H ;拉高總線
  200. RET
  201. ;===============================
  202. GET_TEMPER2:
  203.           SETB      P1.1H ; 定時(shí)入口
  204. BCD2:      LCALL     INIT_18202
  205.           JB        00H,S222
  206.           LJMP      BCD2 ; 若DS18B20不存在則返回

  208. S222:     LCALL     DELAY1
  209.          MOV        A,#0CCH ; 跳過ROM匹配------0CC命令
  210.          LCALL     WRITE_18202
  211. MOV A,#44H ; 發(fā)出溫度轉(zhuǎn)換命令
  212. LCALL WRITE_18202
  213. NOP
  214. LCALL DELAY1
  215. CBA2:LCALL INIT_18202
  216. JB 00H,ABC2
  217. LJMP CBA2
  218. ABC2:LCALL DELAY1
  219. MOV A,#0CCH ; 跳過ROM匹配
  220. LCALL WRITE_18202
  221. MOV A,#0BEH ; 發(fā)出讀溫度命令
  222. LCALL WRITE_18202
  223. LCALL READ_182002 ;READ_1820
  224. RET
  225. ;==============================
  226. READ_18202:
  227. MOV R2,#8
  228. RE12:
  229. CLR C
  230. SETB P1.1H
  231. NOP
  232. NOP
  233. CLR P1.1H
  234. NOP
  235. NOP
  236. NOP
  237. SETB P1.1H
  238. MOV R3,#7
  239. DJNZ R3,$
  240. MOV C,P1.1H
  241. MOV R3,#23
  242. DJNZ R3,$
  243. RRC A
  244. DJNZ R2,RE12
  245. RET
  246. ;=============================
  247. WRITE_18202:
  248. MOV R2,#8
  249. CLR C
  250. WR12:
  251. CLR P1.1H
  252. MOV R3,#6
  253. DJNZ R3,$
  254. RRC A
  255. MOV P1.1H,C
  256. MOV R3,#23
  257. DJNZ R3,$
  258. SETB P1.1H
  259. NOP
  260. DJNZ R2,WR12
  261. SETB P1.1H
  262. RET
  263. ;=======================================
  264. READ_182002:
  265. MOV R4,#2 ; 將溫度高位和低位從DS18B20中讀出
  266. MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)
  267. RE002:
  268. MOV R2,#8
  269. RE012:
  270. CLR C
  271. SETB P1.1H
  272. NOP
  273. NOP
  274. CLR P1.1H
  275. NOP
  276. NOP
  277. NOP
  278. SETB P1.1H
  279. MOV R3,#7
  280. DJNZ R3,$
  281. MOV C,P1.1H
  282. MOV R3,#23
  283. DJNZ R3,$
  284. RRC A
  285. DJNZ R2,RE012
  286. MOV @R1,A
  287. DEC R1
  288. DJNZ R4,RE002
  289. RET
  290. ;=======================================
  291. INIT_18202:
  292. SETB P1.1H
  293. NOP
  294. CLR P1.1H
  295. MOV R0,#250
  296. TSR12:
  297. DJNZ R0,TSR12 ; 延時(shí)520us
  298. SETB P1.1H
  299. MOV R0,#25H ;96US-25H
  300. TSR22:
  301. DJNZ R0,TSR22
  302. JNB P1.1H,TSR32;如D0為低則復(fù)位成功，DS18B20存在
  303. LJMP TSR42 ; 延時(shí)
  304. TSR32:
  305. SETB 00H ; 置標(biāo)志位,表示DS1820存在
  306. LJMP TSR52
  307. TSR42:
  308. CLR 00H ; 清標(biāo)志位,表示DS1820不存在
  309. LJMP TSR72
  310. TSR52:
  311. MOV R0,#06BH ;200US
  312. TSR62:
  313. DJNZ R0,TSR62 ; 延時(shí)
  314. TSR72:
  315. SETB P1.1H ;拉高總線
  316. RET
  317. ;===============================
  318. GET_TEMPER3:
  319.           SETB      P1.2H ; 定時(shí)入口
  320. BCD3:      LCALL     INIT_18203
  321.           JB        00H,S223
  322.           LJMP      BCD3 ; 若DS18B20不存在則返回

  324. S223:     LCALL     DELAY1
  325.          MOV        A,#0CCH ; 跳過ROM匹配------0CC命令
  326.          LCALL     WRITE_18203
  327. MOV A,#44H ; 發(fā)出溫度轉(zhuǎn)換命令
  328. LCALL WRITE_18203
  329. NOP
  330. LCALL DELAY1
  331. CBA3:LCALL INIT_18203
  332. JB 00H,ABC3
  333. LJMP CBA3
  334. ABC3:LCALL DELAY1
  335. MOV A,#0CCH ; 跳過ROM匹配
  336. LCALL WRITE_18203
  337. MOV A,#0BEH ; 發(fā)出讀溫度命令
  338. LCALL WRITE_18203
  339. LCALL READ_182003 ;READ_1820
  340. RET
  341. …………
  342. …………
  343. …………限于本文篇幅 余下代碼請(qǐng)從51黑下載附件…………
復(fù)制代碼

所有資料51hei提供下載:
DS18B20.rar (59.8 KB, 下載次數(shù): 10)







歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1