久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

標題: 八通道18B20溫度顯示仿真加單片機匯編語言程序 [打印本頁]
作者: ww1647346515    時間: 2019-10-20 13:46
標題: 八通道18B20溫度顯示仿真加單片機匯編語言程序
八通道18B20溫度顯示  包含程序 8ds18b20.zip (489.7 KB, 下載次數: 11)

30H：采樣高位
31H：采樣低位
33H：存儲組合的數據，初始化為0
34H35H.36H：組合的BCD碼
37H~3CH：分離的BCD碼，小數部分作如下處理：將3CH的數據放入3BH中

單片機源程序如下:
  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 ; 定時入口
  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 ; 發出溫度轉換命令
  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 ; 發出讀溫度命令
  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 ; 延時520us
  182. SETB P1.0H
  183. MOV R0,#25H ;96US-25H
  184. TSR2:
  185. DJNZ R0,TSR2
  186. JNB P1.0H,TSR3;如D0為低則復位成功，DS18B20存在
  187. LJMP TSR4 ; 延時
  188. TSR3:
  189. SETB 00H ; 置標志位,表示DS1820存在
  190. LJMP TSR5
  191. TSR4:
  192. CLR 00H ; 清標志位,表示DS1820不存在
  193. LJMP TSR7
  194. TSR5:
  195. MOV R0,#06BH ;200US
  196. TSR6:
  197. DJNZ R0,TSR6 ; 延時
  198. TSR7:
  199. SETB P1.0H ;拉高總線
  200. RET
  201. ;===============================
  202. GET_TEMPER2:
  203.           SETB      P1.1H ; 定時入口
  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 ; 發出溫度轉換命令
  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 ; 發出讀溫度命令
  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 ; 延時520us
  298. SETB P1.1H
  299. MOV R0,#25H ;96US-25H
  300. TSR22:
  301. DJNZ R0,TSR22
  302. JNB P1.1H,TSR32;如D0為低則復位成功，DS18B20存在
  303. LJMP TSR42 ; 延時
  304. TSR32:
  305. SETB 00H ; 置標志位,表示DS1820存在
  306. LJMP TSR52
  307. TSR42:
  308. CLR 00H ; 清標志位,表示DS1820不存在
  309. LJMP TSR72
  310. TSR52:
  311. MOV R0,#06BH ;200US
  312. TSR62:
  313. DJNZ R0,TSR62 ; 延時
  314. TSR72:
  315. SETB P1.1H ;拉高總線
  316. RET
  317. ;===============================
  318. GET_TEMPER3:
  319.           SETB      P1.2H ; 定時入口
  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 ; 發出溫度轉換命令
  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 ; 發出讀溫度命令
  338. LCALL WRITE_18203
  339. LCALL READ_182003 ;READ_1820
  340. RET
  341. ;==============================
  342. READ_18203:
  343. MOV R2,#8
  344. RE13:
  345. CLR C
  346. SETB P1.2H
  347. NOP
  348. NOP
  349. CLR P1.2H
  350. NOP
  351. NOP
  352. NOP
  353. SETB P1.2H
  354. MOV R3,#7
  355. DJNZ R3,$
  356. MOV C,P1.2H
  357. MOV R3,#23
  358. DJNZ R3,$
  359. RRC A
  360. DJNZ R2,RE13
  361. RET
  362. ;=============================
  363. WRITE_18203:
  364. MOV R2,#8
  365. CLR C
  366. WR13:
  367. CLR P1.2H
  368. MOV R3,#6
  369. DJNZ R3,$
  370. RRC A
  371. MOV P1.2H,C
  372. MOV R3,#23
  373. DJNZ R3,$
  374. SETB P1.2H
  375. NOP
  376. DJNZ R2,WR13
  377. SETB P1.2H
  378. RET
  379. ;=======================================
  380. READ_182003:
  381. MOV R4,#2 ; 將溫度高位和低位從DS18B20中讀出
  382. MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)
  383. RE003:
  384. MOV R2,#8
  385. RE013:
  386. CLR C
  387. SETB P1.2H
  388. NOP
  389. NOP
  390. CLR P1.2H
  391. NOP
  392. NOP
  393. NOP
  394. SETB P1.2H
  395. MOV R3,#7
  396. DJNZ R3,$
  397. MOV C,P1.2H
  398. MOV R3,#23
  399. DJNZ R3,$
  400. RRC A
  401. DJNZ R2,RE013
  402. MOV @R1,A
  403. DEC R1
  404. DJNZ R4,RE003
  405. RET
  406. ;=======================================
  407. INIT_18203:
  408. SETB P1.2H
  409. NOP
  410. CLR P1.2H
  411. MOV R0,#250
  412. TSR13:
  413. DJNZ R0,TSR13 ; 延時520us
  414. SETB P1.2H
  415. MOV R0,#25H ;96US-25H
  416. TSR23:
  417. DJNZ R0,TSR23
  418. JNB P1.2H,TSR33;如D0為低則復位成功，DS18B20存在
  419. LJMP TSR43 ; 延時
  420. TSR33:
  421. SETB 00H ; 置標志位,表示DS1820存在
  422. LJMP TSR53
  423. TSR43:
  424. CLR 00H ; 清標志位,表示DS1820不存在
  425. LJMP TSR73
  426. TSR53:
  427. MOV R0,#06BH ;200US
  428. TSR63:
  429. DJNZ R0,TSR63 ; 延時
  430. TSR73:
  431. SETB P1.2H ;拉高總線
  432. RET
  433. ;===============================
  434. GET_TEMPER4:
  435.           SETB      P1.3H ; 定時入口
  436. BCD4:      LCALL     INIT_18204
  437.           JB        00H,S224
  438.           LJMP      BCD4 ; 若DS18B20不存在則返回

  440. S224:     LCALL     DELAY1
  441.          MOV        A,#0CCH ; 跳過ROM匹配------0CC命令
  442.          LCALL     WRITE_18204
  443. MOV A,#44H ; 發出溫度轉換命令
  444. LCALL WRITE_18204
  445. NOP
  446. LCALL DELAY1
  447. CBA4:LCALL INIT_18204
  448. JB 00H,ABC4
  449. LJMP CBA4
  450. ABC4:LCALL DELAY1
  451. MOV A,#0CCH ; 跳過ROM匹配
  452. LCALL WRITE_18204
  453. MOV A,#0BEH ; 發出讀溫度命令
  454. LCALL WRITE_18204
  455. LCALL READ_182004 ;READ_1820
  456. RET
  457. ;==============================
  458. READ_18204:
  459. MOV R2,#8
  460. RE14:
  461. CLR C
  462. SETB P1.3H
  463. NOP
  464. NOP
  465. CLR P1.3H
  466. NOP
  467. NOP
  468. NOP
  469. SETB P1.3H
  470. MOV R3,#7
  471. DJNZ R3,$
  472. MOV C,P1.3H
  473. MOV R3,#23
  474. DJNZ R3,$
  475. RRC A
  476. DJNZ R2,RE14
  477. RET
  478. ;=============================
  479. WRITE_18204:
  480. MOV R2,#8
  481. CLR C
  482. WR14:
  483. CLR P1.3H
  484. MOV R3,#6
  485. DJNZ R3,$
  486. RRC A
  487. MOV P1.3H,C
  488. MOV R3,#23
  489. DJNZ R3,$
  490. SETB P1.3H
  491. NOP
  492. DJNZ R2,WR14
  493. SETB P1.3H
  494. RET
  495. ;=======================================
  496. READ_182004:
  497. MOV R4,#2 ; 將溫度高位和低位從DS18B20中讀出
  498. MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)
  499. RE004:
  500. MOV R2,#8
  501. RE014:
  502. CLR C
  503. SETB P1.3H
  504. NOP
  505. NOP
  506. CLR P1.3H
  507. NOP
  508. NOP
  509. NOP
  510. SETB P1.3H
  511. MOV R3,#7
  512. DJNZ R3,$
  513. MOV C,P1.3H
  514. MOV R3,#23
  515. DJNZ R3,$
  516. RRC A
  517. DJNZ R2,RE014
  518. MOV @R1,A
  519. DEC R1
  520. DJNZ R4,RE004
  521. RET
  522. ;=======================================
  523. INIT_18204:
  524. SETB P1.3H
  525. NOP
  526. CLR P1.3H
  527. MOV R0,#250
  528. TSR14:
  529. DJNZ R0,TSR14 ; 延時520us
  530. SETB P1.3H
  531. MOV R0,#25H ;96US-25H
  532. TSR24:
  533. DJNZ R0,TSR24
  534. JNB P1.3H,TSR34;如D0為低則復位成功，DS18B20存在
  535. LJMP TSR44 ; 延時
  536. TSR34:
  537. SETB 00H ; 置標志位,表示DS1820存在
  538. LJMP TSR54
  539. TSR44:
  540. CLR 00H ; 清標志位,表示DS1820不存在
  541. LJMP TSR74
  542. TSR54:
  543. MOV R0,#06BH ;200US
  544. TSR64:
  545. DJNZ R0,TSR64 ; 延時
  546. TSR74:
  547. SETB P1.3H ;拉高總線
  548. RET
  549. ;===============================
  550. GET_TEMPER5:
  551.           SETB      P1.4H ; 定時入口
  552. BCD5:      LCALL     INIT_18205
  553.           JB        00H,S225
  554.           LJMP      BCD5 ; 若DS18B20不存在則返回

  556. S225:     LCALL     DELAY1
  557.          MOV        A,#0CCH ; 跳過ROM匹配------0CC命令
  558.          LCALL     WRITE_18205
  559. MOV A,#44H ; 發出溫度轉換命令
  560. LCALL WRITE_18205
  561. NOP
  562. LCALL DELAY1
  563. CBA5:LCALL INIT_18205
  564. JB 00H,ABC5
  565. LJMP CBA5
  566. ABC5:LCALL DELAY1
  567. MOV A,#0CCH ; 跳過ROM匹配
  568. LCALL WRITE_18205
  569. MOV A,#0BEH ; 發出讀溫度命令
  570. LCALL WRITE_18205
  571. LCALL READ_182005 ;READ_1820
  572. RET
  573. ;==============================
  574. READ_18205:
  575. MOV R2,#8
  576. RE15:
  577. CLR C
  578. SETB P1.4H
  579. NOP
  580. NOP
  581. CLR P1.4H
  582. NOP
  583. NOP
  584. NOP
  585. SETB P1.4H
  586. MOV R3,#7
  587. DJNZ R3,$
  588. MOV C,P1.4H
  589. MOV R3,#23
  590. DJNZ R3,$
  591. RRC A
  592. DJNZ R2,RE15
  593. RET
  594. ;=============================
  595. WRITE_18205:
  596. MOV R2,#8
  597. CLR C
  598. WR15:
  599. CLR P1.4H
  600. MOV R3,#6
  601. DJNZ R3,$
  602. RRC A
  603. MOV P1.4H,C
  604. MOV R3,#23
  605. DJNZ R3,$
  606. SETB P1.4H
  607. NOP
  608. DJNZ R2,WR15
  609. SETB P1.4H
  610. RET
  611. ;=======================================
  612. READ_182005:
  613. MOV R4,#2 ; 將溫度高位和低位從DS18B20中讀出
  614. MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)
  615. RE005:
  616. MOV R2,#8
  617. RE015:
  618. CLR C
  619. SETB P1.4H
  620. NOP
  621. NOP
  622. CLR P1.4H
  623. NOP
  624. NOP
  625. NOP
  626. SETB P1.4H
  627. MOV R3,#7
  628. DJNZ R3,$
  629. MOV C,P1.4H
  630. MOV R3,#23
  631. DJNZ R3,$
  632. RRC A
  633. DJNZ R2,RE015
  634. MOV @R1,A
  635. DEC R1
  636. DJNZ R4,RE005
  637. RET
  638. ;=======================================
  639. INIT_18205:
  640. SETB P1.4H
  641. NOP
  642. CLR P1.4H
  643. MOV R0,#250
  644. TSR15:
  645. DJNZ R0,TSR15 ; 延時520us
  646. SETB P1.4H
  647. MOV R0,#25H ;96US-25H
  648. TSR25:
  649. DJNZ R0,TSR25
  650. JNB P1.4H,TSR35;如D0為低則復位成功，DS18B20存在
  651. LJMP TSR45 ; 延時
  652. TSR35:
  653. SETB 00H ; 置標志位,表示DS1820存在
  654. LJMP TSR55
  655. TSR45:
  656. CLR 00H ; 清標志位,表示DS1820不存在
  657. LJMP TSR75
  658. TSR55:
  659. MOV R0,#06BH ;200US
  660. TSR65:
  661. DJNZ R0,TSR65 ; 延時
  662. TSR75:
  663. SETB P1.4H ;拉高總線
  664. RET
  665. ;===============================
  666. GET_TEMPER6:
  667.           SETB      P1.5H ; 定時入口
  668. BCD6:      LCALL     INIT_18206
  669.           JB        00H,S226
  670.           LJMP      BCD6; 若DS18B20不存在則返回

  672. S226:     LCALL     DELAY1
  673.          MOV        A,#0CCH ; 跳過ROM匹配------0CC命令
  674.          LCALL     WRITE_18206
  675. MOV A,#44H ; 發出溫度轉換命令
  676. LCALL WRITE_18206
  677. NOP
  678. LCALL DELAY1
  679. CBA6:LCALL INIT_18206
  680. JB 00H,ABC6
  681. LJMP CBA6
  682. ABC6:LCALL DELAY1
  683. MOV A,#0CCH ; 跳過ROM匹配
  684. LCALL WRITE_18206
  685. MOV A,#0BEH ; 發出讀溫度命令
  686. LCALL WRITE_18206
  687. LCALL READ_182006 ;READ_1820
  688. RET
  689. ;==============================
  690. READ_18206:
  691. MOV R2,#8
  692. RE16:
  693. CLR C
  694. SETB P1.5H
  695. NOP
  696. NOP
  697. CLR P1.5H
  698. NOP
  699. NOP
  700. NOP
  701. SETB P1.5H
  702. MOV R3,#7
  703. DJNZ R3,$
  704. MOV C,P1.5H
  705. MOV R3,#23
  706. DJNZ R3,$
  707. RRC A
  708. DJNZ R2,RE16
  709. RET
  710. ;=============================
  711. WRITE_18206:
  712. MOV R2,#8
  713. CLR C
  714. WR16:
  715. CLR P1.5H
  716. MOV R3,#6
  717. DJNZ R3,$
  718. RRC A
  719. MOV P1.5H,C
  720. MOV R3,#23
  721. DJNZ R3,$
  722. SETB P1.5H
  723. NOP
  724. DJNZ R2,WR16
  725. SETB P1.5H
  726. RET
  727. ;=======================================
  728. READ_182006:
  729. MOV R4,#2 ; 將溫度高位和低位從DS18B20中讀出
  730. MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)
  731. RE006:
  732. MOV R2,#8
  733. RE016:
  734. CLR C
  735. SETB P1.5H
  736. NOP
  737. NOP
  738. CLR P1.5H
  739. NOP
  740. NOP
  741. NOP
  742. SETB P1.5H
  743. MOV R3,#7
  744. DJNZ R3,$
  745. MOV C,P1.5H
  746. MOV R3,#23
  747. DJNZ R3,$
  748. RRC A
  749. DJNZ R2,RE016
  750. MOV @R1,A
  751. DEC R1
  752. DJNZ R4,RE006
  753. RET
  754. ;=======================================
  755. INIT_18206:
  756. SETB P1.5H
  757. NOP
  758. CLR P1.5H
  759. MOV R0,#250
  760. TSR16:
  761. DJNZ R0,TSR16 ; 延時520us
  762. SETB P1.5H
  763. MOV R0,#25H ;96US-25H
  764. TSR26:
  765. DJNZ R0,TSR26
  766. JNB P1.5H,TSR36;如D0為低則復位成功，DS18B20存在
  767. LJMP TSR46 ; 延時
  768. TSR36:
  769. SETB 00H ; 置標志位,表示DS1820存在
  770. LJMP TSR56
  771. TSR46:
  772. CLR 00H ; 清標志位,表示DS1820不存在
  773. LJMP TSR76
  774. TSR56:
  775. MOV R0,#06BH ;200US
  776. TSR66:
  777. DJNZ R0,TSR66 ; 延時
  778. TSR76:
  779. SETB P1.5H ;拉高總線
  780. RET
  781. ;===============================
  782. GET_TEMPER7:
  783.           SETB      P1.6H ; 定時入口
  784. BCD7:      LCALL     INIT_18207
  785.           JB        00H,S227
  786.           LJMP      BCD7; 若DS18B20不存在則返回

  788. S227:     LCALL     DELAY1
  789.          MOV        A,#0CCH ; 跳過ROM匹配------0CC命令
  790.          LCALL     WRITE_18207
  791. MOV A,#44H ; 發出溫度轉換命令
  792. LCALL WRITE_18207
  793. NOP
  794. LCALL DELAY1
  795. CBA7:LCALL INIT_18207
  796. JB 00H,ABC7
  797. LJMP CBA7
  798. ABC7:LCALL DELAY1
  799. MOV A,#0CCH ; 跳過ROM匹配
  800. LCALL WRITE_18207
  801. MOV A,#0BEH ; 發出讀溫度命令
  802. LCALL WRITE_18207
  803. LCALL READ_182007 ;READ_1820
  804. RET
  805. ;==============================
  806. READ_18207:
  807. MOV R2,#8
  808. RE17:
  809. CLR C
  810. SETB P1.6H
  811. NOP
  812. NOP
  813. CLR P1.6H
  814. NOP
  815. NOP
  816. NOP
  817. SETB P1.6H
  818. MOV R3,#7
  819. DJNZ R3,$
  820. MOV C,P1.6H
  821. MOV R3,#23
  822. DJNZ R3,$
  823. RRC A
  824. DJNZ R2,RE17
  825. RET
  826. ;=============================
  827. WRITE_18207:
  828. MOV R2,#8
  829. CLR C
  830. WR17:
  831. CLR P1.6H
  832. MOV R3,#6
  833. DJNZ R3,$
  834. RRC A
  835. MOV P1.6H,C
  836. MOV R3,#23
  837. DJNZ R3,$
  838. SETB P1.6H
  839. NOP
  840. DJNZ R2,WR17
  841. SETB P1.6H
  842. RET
  843. ;=======================================
  844. READ_182007:
  845. MOV R4,#2 ; 將溫度高位和低位從DS18B20中讀出
  846. MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)
  847. RE007:
  848. MOV R2,#8
  849. RE017:
  850. CLR C
  851. SETB P1.6H
  852. NOP
  853. NOP
  854. CLR P1.6H
  855. NOP
  856. NOP
  857. NOP
  858. SETB P1.6H
  859. MOV R3,#7
  860. DJNZ R3,$
  861. MOV C,P1.6H
  862. MOV R3,#23
  863. DJNZ R3,$
  864. RRC A
  865. DJNZ R2,RE017
  866. MOV @R1,A
  867. DEC R1
  868. DJNZ R4,RE007
  869. RET
  870. ;=======================================
  871. INIT_18207:
  872. SETB P1.6H
  873. NOP
  874. CLR P1.6H
  875. MOV R0,#250
  876. TSR17:
  877. DJNZ R0,TSR17 ; 延時520us
  878. SETB P1.6H
  879. MOV R0,#25H ;96US-25H
  880. TSR27:
  881. DJNZ R0,TSR27
  882. JNB P1.6H,TSR37;如D0為低則復位成功，DS18B20存在
  883. LJMP TSR47; 延時
  884. TSR37:
  885. SETB 00H ; 置標志位,表示DS1820存在
  886. LJMP TSR57
  887. TSR47:
  888. CLR 00H ; 清標志位,表示DS1820不存在
  889. LJMP TSR77
  890. TSR57:
  891. MOV R0,#06BH ;200US
  892. TSR67:
  893. DJNZ R0,TSR67; 延時
  894. TSR77:
  895. SETB P1.6H ;拉高總線
  896. RET
  897. ;===============================
  898. GET_TEMPER8:
  899.           SETB      P1.7H ; 定時入口
  900. BCD8:      LCALL     INIT_18208
  901.           JB        00H,S228
  902.           LJMP      BCD8; 若DS18B20不存在則返回

  904. S228:     LCALL     DELAY1
  905.          MOV        A,#0CCH ; 跳過ROM匹配------0CC命令
  906.          LCALL     WRITE_18208
  907. MOV A,#44H ; 發出溫度轉換命令
  908. LCALL WRITE_18208
  909. NOP
  910. LCALL DELAY1
  911. CBA8:LCALL INIT_18208
  912. JB 00H,ABC8
  913. LJMP CBA8
  914. ABC8:LCALL DELAY1
  915. MOV A,#0CCH ; 跳過ROM匹配
  916. LCALL WRITE_18208
  917. MOV A,#0BEH ; 發出讀溫度命令
  918. LCALL WRITE_18208
  919. LCALL READ_182008 ;READ_1820
  920. RET
  921. ;==============================
  922. READ_18208:
  923. MOV R2,#8
  924. RE18:
  925. CLR C
  926. SETB P1.7H
  927. NOP
  928. NOP
  929. CLR P1.7H
  930. NOP
  931. NOP
  932. NOP
  933. SETB P1.7H
  934. MOV R3,#7
  935. DJNZ R3,$
  936. MOV C,P1.7H
  937. MOV R3,#23
  938. DJNZ R3,$
  939. RRC A
  940. DJNZ R2,RE18
  941. RET
  942. ;=============================
  943. WRITE_18208:
  944. MOV R2,#8
  945. CLR C
  946. WR18:
  947. CLR P1.7H
  948. MOV R3,#6
  949. DJNZ R3,$
  950. RRC A
  951. MOV P1.7H,C
  952. MOV R3,#23
  953. DJNZ R3,$
  954. SETB P1.7H
  955. NOP
  956. DJNZ R2,WR18
  957. SETB P1.7H
  958. RET
  959. ;=======================================
  960. READ_182008:
  961. MOV R4,#2 ; 將溫度高位和低位從DS18B20中讀出
  962. MOV R1,#31H ; 低位存入30H(TEMPER_L),高位存入31H(TEMPER_H)
  963. RE008:
  964. MOV R2,#8
  965. RE018:
  966. CLR C
  967. SETB P1.7H
  968. NOP
  969. NOP
  970. CLR P1.7H
  971. NOP
  972. NOP
  973. NOP
  974. SETB P1.7H
  975. MOV R3,#7
  976. DJNZ R3,$
  977. MOV C,P1.7H
  978. MOV R3,#23
  979. DJNZ R3,$
  980. RRC A
  981. DJNZ R2,RE018
  982. MOV @R1,A
  983. DEC R1
  984. DJNZ R4,RE008
  985. RET
  986. ;=======================================
  987. INIT_18208:
  988. SETB P1.7H
  989. NOP
  990. CLR P1.7H
  991. MOV R0,#250
  992. TSR18:
  993. DJNZ R0,TSR18 ; 延時520us
  994. SETB P1.7H
  995. MOV R0,#25H ;96US-25H
  996. TSR28:
  997. DJNZ R0,TSR28
  998. JNB P1.7H,TSR38;如D0為低則復位成功，DS18B20存在
  999. LJMP TSR48; 延時
  1000. TSR38:
  1001. SETB 00H ; 置標志位,表示DS1820存在
  1002. LJMP TSR58
  1003. TSR48:
  1004. CLR 00H ; 清標志位,表示DS1820不存在
  1005. LJMP TSR78
  1006. TSR58:
  1007. MOV R0,#06BH ;200US
  1008. TSR68:
  1009. DJNZ R0,TSR68; 延時
  1010. TSR78:
  1011. SETB P1.7H ;拉高總線
  1012. RET
  1013. ;===============================
  1014. ;======================================
  1015. DELAY1:MOV R7,#20H
  1016. DJNZ R7,$
  1017. RET

  1019. ;====================================
  1020. TEMPRRO:MOV 33H,#00H;初始化0
  1021. MOV A,30H
  1022. ANL A,#0FH
  1023. SWAP A
  1024. MOV 33H,A
  1025. MOV A,31H
  1026. ANL A,#0F0H
  1027. SWAP A
  1028. ORL 33H,A;重新組合成的帶符號數據（整數部分）
  1029. MOV A,33H
  1030. ANL A,#80H;判斷符號

  1032. JZ TEMPP
  1033. MOV A,33H
  1034. CPL A
  1035. ;ADD A,#01H
  1036. SJMP TEMPP1
  1037. TEMPP:MOV A,33H;正數處理程序
  1038.       LCALL HBCD
  1039.       MOV A,31H
  1040.       ANL A,#0FH
  1041.       MOV DPTR,#TEMPTAB;小數查表
  1042.       MOVC A,@A+DPTR
  1043.       MOV 36H,A
  1044.       CLR P3.7;表示正數
  1045.       SJMP EXIT
  1046. TEMPP1:LCALL HBCD;負數處理程序
  1047.        MOV A,31H
  1048.        ANL A,#0FH
  1049.        ORL A,#0F0H
  1050.        CPL A
  1051.        ADD A,#01H
  1052.        MOV DPTR,#TEMPTAB
  1053.        MOVC A,@A+DPTR;小數查表
  1054.        MOV 36H,A
  1055.        SETB P3.7;表示負數
  1056. EXIT:RET

  1058. HBCD:        MOV        B,#100        ;分離出百位，存放在R3中
  1059.         DIV        AB
  1060.         MOV        R3,A
  1061.         MOV        A,#10        ;余數繼續分離十位和個位
  1062.         XCH        A,B
  1063.         DIV        AB
  1064.         SWAP        A
  1065.         ORL        A,B        ;將十位和個位拼裝成ＢＣＤ碼
  1066.         MOV 34H,R3
  1067.         MOV 35H,A
  1068.         RET
  1069. TEMPTAB:DB 00H,01H,01H,02H,03H,03H,04H,04H
  1070.         DB 05H,06H,06H,07H,08H,08H,09H,09H;0~16*0.0652
  1071. ;==================================================
  1072. CBCD:;MOV R2,#04H;5個待分離的BCD
  1073. CL:MOV A,@R1     ;分離后將占10個單元
  1074.    MOV B,A
  1075.    ANL A,#0F0H
  1076.    SWAP A
  1077.    MOV 4CH,A
  1078.    MOV A,B
  1079.    ANL A,#0FH
  1080.    MOV 4DH,A
  1081.    MOV @R0,4CH
  1082.    INC R0
  1083.    MOV @R0,4DH
  1084.    INC R0
  1085.    INC R1
  1086.    DJNZ R2,CL
  1087.    RET
  1088. ;===================================================
  1089. DISPLAY:MOV R0,#38H;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;顯示緩沖區首地址
  1090.         MOV R2,#04
  1091. DISP_LOOP:MOV A,@R0
  1092.           LCALL DISP
  1093.           INC R0
  1094.           DJNZ R2,DISP_LOOP
  1095.           CLR  P0.2
  1096.           NOP
  1097.           NOP
  1098.           SETB P0.2      ;上升沿將數據送到輸出鎖存器
  1099.           NOP
  1100.           NOP
  1101.           NOP
  1102.           CLR  P0.2
  1103.           RET
  1104. DISP:MOV R4,#08H;移位寄存器接收數據
  1105. WR_LOOP: RLC A
  1106.          MOV P0.1,C
  1107.          SETB P0.0        ;上升沿發生移位
  1108.          NOP
  1109.          NOP
  1110.          CLR P0.0
  1111.          DJNZ R4,WR_LOOP
  1112.          RET
  1113. ;=============================
  1114. PRO: MOV R2,#03H;N個待分離的BCD
  1115.      MOV R0,#37H;分離后BCD首地址
  1116.      MOV R1,#34H;待分離BCD首地址
  1117.      LCALL CBCD;分離壓縮的BCD碼
  1118.      MOV 3BH,3CH;小數處理

  1120.      MOV R0,#38H;顯示數據首地址
  1121.      MOV R1,#38H;顯示緩沖區首地址
  1122.      MOV R2,#04;數據個數
  1123. RES_LOOP:MOV A,@R0
  1124.          LCALL RES
  1125.          MOV @R1,A
  1126.          INC R0
  1127.          INC R1
  1128.          DJNZ R2,RES_LOOP  
  1129.       ORL 3AH,#80H;小數點
  1130.       LCALL DISPLAY
  1131. LCALL DELAYS
  1132. LCALL DELAYS
  1133. LCALL DELAYS
  1134. LCALL DELAYS
  1135. LCALL DELAYS
  1136. LCALL DELAYS
  1137. RET
  1138. ;==============================
  1139. RES:MOV DPTR,#TAB
  1140.     MOVC A,@A+DPTR
  1141.     RET
  1142. TAB: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
  1143. ;======================================
  1144. DELAYS:MOV R5,#0FFH
  1145. LOOP2:MOV R4,#0FFH
  1146. LOOP1:NOP
  1147.       NOP
  1148.       DJNZ R4,LOOP1
  1149.       DJNZ R5,LOOP2
  1150.       RET
  1151.                 END
復制代碼








歡迎光臨 (http://www.zg4o1577.cn/bbs/) Powered by Discuz! X3.1
主站蜘蛛池模板： 欧美日韩在线视频一区 | 久久久久亚洲精品 | 日韩在线不卡视频 | 黄网站涩免费蜜桃网站 | 久久国产精品99久久久大便 | 九七午夜剧场福利写真 | 欧美一级片在线看 | 欧美精品欧美精品系列 | 新超碰97 | 亚洲三区在线 | 亚洲h视频 | 中文字幕韩在线第一页 | 亚洲精品在线视频 | 国产精品区二区三区日本 | 亚洲综合色丁香婷婷六月图片 | 久久精品中文 | 国产日韩精品一区 | 日日干干夜夜 | 亚洲国产精品一区二区久久 | 久久久九九九九 | 亚洲欧美中文日韩在线v日本 | 欧美v日韩v | 日韩国产欧美在线观看 | 一级无毛片 | 欧美福利在线 | 97国产精品视频人人做人人爱 | 国产伦一区二区三区视频 | 欧美韩一区二区 | 欧美日韩中文字幕 | 亚洲成人播放器 | 国产男女视频 | 久久久久亚洲精品 | 青青草网站在线观看 | 精精精精xxxx免费视频 | 国产精品黄视频 | 东京av男人的天堂 | 亚洲a人 | 精品二区视频 | 日韩av最新网址 | 亚洲精品一区二区三区中文字幕 | 欧美精选一区二区 |