這是一段利用單片機IO口作的溫控程序,感溫元件是NTC。功能是，當溫度低過某值時開始加熱，隨著溫度上升。。。當高到某值時停止加熱，然后開始冷卻。。。不斷重復。。。

      使用時要注意RC常數，常數過大會造成16位計數溢出，得不到正確結果。

      程序是作產品前的一個試驗程序，當時調試已通過，能作到±0.5℃。

;******************************************************
;filename: IOTestNTC.asm
;     mcu: MDT2005EP
;   clock: 4 MHz for EXTXT
;    date: 2006/03/17
;  writer: aLin
;******************************************************

;計算被測量電阻。只做比較，不作計算。
;計算公式:Rx = Rf * (Tx/Tf)
;Rx為被測電阻
;Rf為已知電阻，Rf=10K
;Tx為被測電阻對電容C放電的計數值，為16位數
;Tf為被測電阻對電容C放電的計數值，為16位數
;查溫度特性表(NTC型號為:CWF2-473F-3950K,大亞科技制造):
;下限溫度5攝氏度時電阻為121545.44歐,即121.54544K
;換算為:Tx/Tf=Rx/Rf=12.154544
;擴大1000倍后結果為:12154.544,約為12155,即2F76H              
;上限溫度8攝氏度時電阻為104712.92歐,即104.71292K
;換算為:Tx/Tf=Rx/Rf=10.471292
;擴大1000倍后結果為:10471.292,約為10471,即28E7H

;-------------------------------------------------------------------       

               list         p=pic16c54
               ＃i nclude     "p16c5x.inc"

;定義I/O口              
               #define      vt     portb,0
               #define      rf     portb,1
               #define      rx     portb,2
               #define      on     portb,4
               #define      off    portb,4
               #define      f0     user,0     

                     
;RAM 分配
   CNT         EQU         10H    ;計數器

   SOU1        EQU         11H    ;四字節被除數最低位和16位商的低8位
   SOU2        EQU         12H    ;被除數和16位商高8位
   SOU3        EQU         13H    ;被除數和16位余數的低8位
   SOU4        EQU         14H    ;四字節被除數最高位和16位余數的高8位
   USER        EQU         15H    ;用戶標記位

   SOU         EQU         16H    ;被數低8位和積(四字節積的最低位)和RX電阻計數器低8位
   SOUH        EQU         17H    ;被乘數高8位和積和RX電阻計數器高8位
   RLT         EQU         18H    ;乘數低8位和

積
   RLTH        EQU         19H    ;乘數高8位和積(四字節積的最高位)

   TEMP1       EQU         1AH    ;臨時寄存器1-4
   TEMP2       EQU         1BH
   TEMP3       EQU         1CH
   TEMP4       EQU         1DH

   RFCNTL      EQU         1EH    ;RF電阻計數器低8位
   RFCNTH      EQU         1FH    ;RF電阻計數器高8位         
;--------------------------------- 
    
               ORG      0000h 

  start   bcf       fsr,6         ;選擇bank0
               bcf       fsr,5
               movlw     b'11101111'   ;RB4定義為輸出,其余輸入,PortB4為一直輸出
               tris      06h                                               
;---------------------------------------------------           
;停止加熱處理程序
;等待溫度降到5攝氏度以下是，重新加熱，跳到加熱處理程序
;
;負溫度系電阻，阻值越大，溫度越低
;用5攝氏度時對應的電阻減去測出的電阻，為負數，表明實際溫度已低過5攝氏度
;需加熱處理 
;
   HOT_DOWN    bcf      off       ;停止加熱
;               call     d1s       ;延時1秒
               call     io_rm     ;調用測量電阻程序
               call     DUMUL     ;調用16位無符號乖法程序
               call     DUDIV     ;調用32位除以16位無符號除法程序
                                       
;比較商大小
;0E10 對應36K電阻,溫度是31度
        
               MOVLW    2FH      
               MOVWF    TEMP1

 MOVF     SOU2,W
               SUBWF    TEMP1,W   ;商高8位先減
               BTFSS    STATUS,C  ;檢查是否有借位，有借位時C=0
               GOTO     HOT_UP    ;有借位，被減數小于減數,跳到加熱程序 
               BTFSS    STATUS,Z  ;無借位，查相減結果是否為0  
               GOTO     HOT_DOWN  ;結果不為0，則被減數大于減數，跳到停止加熱程序
              
               MOVLW    76H       ;商高8位相等，商低8位相減
               MOVWF    TEMP1
               MOVF     SOU1,W
               SUBWF    TEMP1,W
               BTFSS    STATUS,C
               GOTO     HOT_UP
               BTFSS    STATUS,Z
               GOTO     HOT_DOWN              

               GOTO     HOT_DOWN  ;兩數相等，返回              
;--------------------------------------
; 
;加熱程序處理程序
;
;當溫度大于8攝氏度時跳到停止加熱程序
;            
    HOT_UP     bsf      on        ;加熱
;               call     d1s       ;延時1秒
               call     io_rm     ;調用測量電阻程序
               call     DUMUL     ;調用16位無符號乖法程序
               call     DUDIV     ;調用32位除以16位無符號除法程序

;比較商大小  
;07D0對應電阻20K,溫度45度  
   
               MOVLW    28H      
               SUBWF    SOU2,W    ;商高8位先減
               BTFSS    STATUS,C  ;檢查是否有借位，有借位時C=0
               GOTO     HOT_DOWN  ;有借位，被減數小于減數,跳到停止加熱程序 
               BTFSS    STATUS,Z  ;無借位，查相減結果是否為0  
               GOTO     HOT_UP    ;結果不為0，則被減數大于減數，跳到加熱程序
              
               MOVLW    0E7H      ;商高8位相

等，商低8位相減
               SUBWF    SOU1,W
               BTFSS    STATUS,C
               GOTO     HOT_DOWN
               BTFSS    STATUS,Z
               GOTO     HOT_UP              
              
               GOTO     HOT_UP    ;溫度未低過下限溫度，返回繼續等待

;----------------------------------------           
;    
      io_rm    clrf     SOUH
               clrf     SOU
                   
               clrf     RFCNTH
               clrf     RFCNTL              

               call     fullcharge    ;讓電容充電。
               call     rxdischarge   ;調用測量rx放電時間子程序             
              
               call     fullcharge    ;讓電容充電
               call     rfdischarge   ;調用測量rf放電時間子程序。
              
               call     fulldischarge ;讓電容完全放電。
              
               retlw    00h

;
;電容放電
;
fulldischarge
               movlw    b'11101110'  ;vt口轉為輸出,rf、rx為輸入,PortB4一直輸出
               tris     06h
              
               bcf      vt           ;vt口輸出低電平，讓電容放電
              
               retlw    00h
;-----------------------------------------
;       
;測量rf放電時間子程序
;
rfdischarge
               movlw    b'11101101' ;vt口轉為輸入，rf口轉為輸出,rx口輸入,PortB4一直輸出
               tris     06h

 bcf      rf          ;rf口輸出低電平，電容對rf電阻放電.
                                        
     _rfdis    btfss    vt
               goto     _rfdisdone
               incf     RFCNTL,f
               skpnz
               incf     RFCNTH,f
               goto     _rfdis
       
 _rfdisdone
               movlw    b'11101111'  ;斷開rf電阻，由輸出改為輸入,PortB4一直輸出
     

               movlw    b'11101111'  ;斷開rx電阻，由輸出改為輸入,PortB4一直輸出
               tris     06h
              
               retlw    00h                        
;---------------------
;
;本程序實現四字節除以雙字節無符號數除法。
;
;入口參數：被除數在SOU4～SOU1中，除數在RLTH、RLT中。
;出口參數：商在SOU2、SOU1中,余數在SOU4、SOU3中.

  DUDIV    MOVLW    .16         ;循環16次
               MOVWF    CNT
              
               MOVF     RLTH,W      ;被除數,32位,最高8位
               MOVWF    SOU4
               MOVF     RLT,W
               MOVWF    SOU3                          
               MOVF     SOUH,W
               MOVWF    SOU2
               MOVF     SOU,W
               MOVWF    SOU1        ;被除數,32位,最低8位 
              
               MOVF     RFCNTH,W    ;除數高8位 
               MOVWF    RLTH
               MOVF     RFCNTL,W    ;除數低8位
               MOVWF    RLT    
                    
       LOOP    BCF      STATUS,C    ;C清0
               RLF      SOU1,F
               RLF      SOU2,F
               RLF      SOU3,F
               RLF      SOU4,F
               BTFSS    STATUS,C
               GOTO     CLR_F0       ;C=0, 跳到CLR_F0，清F0

BSF      F0           ;C=1, 置F0
              
     SUB_LO    BCF      STATUS,C                   
               MOVF     RLT,W
               SUBWF    SOU3,W      ;SOU3-RLT -> W
               MOVWF    TEMP1       ;送TEMP1保存
               BTFSS    STATUS,C    ;有借位時C=0

               GOTO     SUB_HI      ;低8位相減時有借位，被減數高8位要借1，相當于減數加1

               MOVF     RLTH,W
               SUBWF    SOU4,W
                          
      THAN     BTFSC    F0          ;若夠減,跳到SAVE
               GOTO     SAVE
               BTFSS    STATUS,C 
               GOTO     NEXT        ;若不夠減，跳到NEXT
              
      SAVE     MOVWF    SOU4        ;保存相減結

果 
               MOVF     TEMP1,W
               MOVWF    SOU3
               INCF     SOU1,F
           
      NEXT     DECFSZ   CNT,F
               GOTO     LOOP             
              
               RETLW    00H     
              
     SUB_HI    INCF     RLTH,W
               SUBWF    SOU4,W
               GOTO     THAN      
              
     CLR_F0    BCF      F0
               GOTO     SUB_LO            
              
;***************DUMUL***********
;本程序實現雙字節無符號數乘法。
;入口參數：被乘數在SOUH、SOU中，乘數在RLTH、RLT中。
;出口參數：結果在RLTH、RLT、SOUH、SOU中。
                       
   DUMUL       MOVLW       .16
               MOVWF       CNT
           

;設乘數RLTH、RLT=03E8H=1000D，即將SOUH、SOU擴大1000

倍           
               MOVLW       03H
               MOVWF       RLTH
               MOVLW       0E8H
               MOVWF       RLT
                        
               MOVF        SOU,W
               MOVWF       TEMP3
               MOVF        SOUH,W
               MOVWF       TEMP4
               CLRF        SOU         ;用于暫
               CLRF        SOUH        ;存
               CLRF        TEMP1       ;結
               CLRF        TEMP2       ;果

     BCF         STATUS,C
   LOOP3       RRF         TEMP4,F
               RRF         TEMP3,F     ;將被乘數的某一位送到C中
               BTFSC       STATUS,C
    
               GOTO        DUADD       ;將RLTH:RLT中的被乘數加上
           
   BACK        RRF         SOUH,F
               RRF         SOU,F
               RRF         TEMP2,F
               RRF         TEMP1,F     ;被乘數右移
               DECFSZ      CNT,F
               GOTO        LOOP3
               MOVF        SOUH,W      ;保存結果
               MOVWF       RLTH
               MOVF        SOU,W
               MOVWF       RLT
               MOVF        TEMP2,W     
               MOVWF       SOUH
               MOVF        TEMP1,W
               MOVWF       SOU
               RETLW       00H  
           
   DUADD       MOVF        RLT,W 

ADDWF       SOU,F
               MOVF        RLTH,W
               BTFSC       STATUS,C
               INCFSZ      RLTH,W
               ADDWF       SOUH,F
               GOTO        BACK
                                                                        
;---------------------------
;延時1S
;                           
;       d1s     movlw       .16     ; .16時為1.000069S
;               movwf       temp1
;               movlw       .100

;               movwf       temp2
;               movlw       .207
;               movwf       temp3
;               decfsz      temp3,f
;               goto        $-1
;               decfsz      temp2,f
;               goto        $-5
;               decfsz      temp1,f
;               goto        $-9
;               retlw       00h                   
;--------------------------------    
               
               END

 （文源網絡，侵刪）