1. gzyueqian
      13352868059
      首頁 > 新聞中心 > > 正文

      DS18B20和PIC單片機通訊源程序

      更新時間: 2006-03-20 14:11:42來源: 粵嵌教育瀏覽量:2571

      --------------------------------------------------------------------------------
      ORG PIC54
      GOTO MAIN
      ORG 0
      ;----------------------
      ;----------------------------
      DELAY22
      MOVLW D'200' ; DELAY 2*250=500mS
      MOVWF COUNT1
      DE32 MOVLW D'250' ; 8*250=2mS
      MOVWF COUNT2
      DE42 NOP ; 1+2+1=5uS
      DECFSZ COUNT2,1
      GOTO DE42
      DECFSZ COUNT1,1
      GOTO DE32
      RETLW 0
      ;--------------------------------
      ; 子程序!!!
      ;********************************
      MAIN
      MOVLW 0FFH
      TRIS RA
      LOOP
      CALL CONVERT
      CALL DELAY22
      CALL DELAY22
      CALL GET_TEMP

      GOTO LOOP
      ;------------------------
      GET_TEMP
      CALL INI
      MOVLW 0CCH
      MOVWF COMD
      CALL WR1820
      MOVLW 0BEH
      MOVWF COMD
      CALL WR1820
      CALL RE1820
      MOVF TEM_DATE,W
      MOVWF TEM_DATEL
      CALL RE1820
      MOVF TEM_DATE,W
      MOVWF TEM_DATEH
      RETLW 0
      ;------------------------
      CONVERT
      CALL INI
      MOVLW 0CCH
      MOVWF COMD
      CALL WR1820
      MOVLW 44H
      MOVWF COMD
      CALL WR1820
      RETLW 0

      ;---------DS1820---------
      INI
      ;MOVLW B'00100000'
      MOVLW 0
      TRIS RA
      BSF RA,3
      NOP
      BCF RA,3
      MOVLW D'200'
      MOVWF COUNT1
      L0
      DECFSZ COUNT1,1
      GOTO L0
      ;MOVLW B'01100000'
      MOVLW 0FH
      TRIS RA
      MOVLW D'30'
      MOVWF COUNT1
      L1
      DECFSZ COUNT1,1
      GOTO L1
      BTFSC RA,3
      GOTO INI
      L2
      MOVLW D'80'
      MOVWF COUNT1
      L3
      DECFSZ COUNT1,1
      GOTO L3
      BTFSS RA,3
      GOTO L0
      RETLW 0
      ;-------------------------
      WR1820
      MOVLW 8
      MOVWF COUNT2
      WR0
      ;MOVLW B'00100000'
      MOVLW 0
      TRIS RA
      BCF RA,3
      NOP
      NOP
      MOVLW 2
      MOVWF COUNT1
      WR1
      DECFSZ COUNT1,1
      GOTO WR1
      ;MOVLW B'01111111'
      MOVLW 0FH
      BTFSC COMD,0
      BSF RA,3
      BTFSC COMD,0
      TRIS RA
      BCF STATUS,C
      RRF COMD,1
      MOVLW D'20'
      MOVWF COUNT1
      WR2
      DECFSZ COUNT1,1
      GOTO WR2
      BSF RA,3
      ;MOVLW B'01100000'
      MOVLW 0FH
      TRIS RA
      DECFSZ COUNT2,1
      GOTO WR0
      RETLW 0
      ;--------------------------
      RE1820
      MOVLW 8
      MOVWF COUNT2
      RE0
      ;MOVLW B'00100000'
      MOVLW 0
      TRIS RA
      BCF RA,3
      MOVLW 2
      MOVWF COUNT1
      RE1
      DECFSZ COUNT1,1
      GOTO RE1
      ;MOVLW B'01100000'
      MOVLW 0FH
      TRIS RA
      NOP
      BTFSS RA,3
      BCF STATUS,C
      BTFSC RA,3
      BSF STATUS,C
      RRF TEM_DATE,1
      MOVLW D'20'
      MOVWF COUNT1
      RE2
      DECFSZ COUNT1,1
      GOTO RE2
      DECFSZ COUNT2,1
      GOTO RE0
      BSF RA,3
      RETLW 0
      ;-------------------------
      ;****************************
      ;**************************
      END

      免費預約試聽課

      亚洲另类欧美综合久久图片区_亚洲中文字幕日产无码2020_欧美日本一区二区三区桃色视频_亚洲AⅤ天堂一区二区三区

      
      

      1. 在线欧美视频一区 | 亚洲欧美午夜不卡在线观看 | 日本精品在线观看 | 久久久久综合一区二区不卡 | 亚洲欧美日韩颜射在线 | 中文字幕日韩一区二区三区不卡 |