男女午夜激情_www.天堂av.com_亚洲综合小说区_亚洲欧美自拍视频_成年精品_久久www免费人成—看片_激情综合五月天_久久高潮视频_最新国产成人ab网站_国产精品卡一

;  該程序用RC充電的方法實現溫度的檢測

;  RA0 數碼管個位選通　RA1　數碼管百位選通

;  RB7 數碼管百位和負號選通　

;　RA2　檢測電容高低電平

;  RA3  對電容充電和放電
;-----------------
  
   INCLUDE  "P16F84A.INC"
;------------------
;*****************************************************
  LIST P=16F84A,R=DEC         ;定義器件,默認為十進制
;-----------------------------------------------------
  __CONFIG B'11111111110001';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;沒有代碼保護
                                              ;看門狗關閉
                                              ;上電廷時器開啟
                                              ;振蕩器模式為XT
   RC   EQU 2
   RVCC EQU 3
   JIZIBZ  EQU 2
   TIMER EQU 30H
   BZH    EQU 32H
   TIMER2  EQU  36H
   FRISTJSQ  EQU  33H
   XIANZHIL  EQU  34H
   XIANZHIH  EQU  35H
   JSQ1      EQU  37H
   BCDLS     EQU  38H
   SUM       EQU  39H
   JSQ2      EQU  42H
   XIANZHIBAI  EQU  40H ;顯值百位
   L         EQU   0
   H         EQU   1
   BAI       EQU   7;顯示百位
   ZEROFZ    EQU   2 ;負值標記
   FP         EQU  0 ;分頻標記
MAIN
   ORG  000H
   BANKSEL  TRISB
   CLRF  TRISB
   CLRF  TRISA
   BANKSEL  PORTB
   CLRF   PORTB
   CLRF   PORTA
 
   BCF    PORTA,H
   BCF    PORTA,L
   CLRZ
    NOP
LOOP
    BANKSEL  TRISA
    BSF    TRISA,RC
     BCF    TRISA,RVCC
    BANKSEL  PORTA
LOOP1
        
         CLRF   TIMER
         CLRF   SUM
         CLRF   BCDLS
         CLRF   TIMER2
         CLRF   XIANZHIH
         CLRF   XIANZHIL
         MOVLW  0FFH
         MOVWF      XIANZHIBAI
         CLRF   BZH
         CLRF   JSQ2
         BSF    PORTA,RVCC
         CALL   CONG
        
LOOP2   
         BTFSS  PORTA,RC
         GOTO   OUT   
         INCF  TIMER,1;TIMER
         ;GOTO  LOOP2  ;http://211.100.30.165/search/?key=測試','_blank');" onmouseout=kwL(event); target=_blank>測試2
         BTFSC  BZH,FP ;選擇分頻
         GOTO   TWOFP
         MOVLW  D'1'  ;低分頻單步短 o  5
         XORWF  TIMER,0
         BTFSS  STATUS,Z
         GOTO   LOOP2
         CLRF   TIMER
         INCF   TIMER2,1;TMER2最終計時
         MOVLW  D'60';判TIMER2是否到了60到了60采用另一分頻
         XORWF  TIMER2,0
         BTFSC  STATUS,Z
         BSF    BZH,FP
         GOTO   LOOP2
TWOFP
         MOVLW  D'1'  ;高分頻單步長o 11
         XORWF  TIMER,0
         BTFSS  STATUS,Z
         GOTO   LOOP2
         CLRF   TIMER
         INCF   TIMER2,1
         MOVLW  D'1' ;只有在-1的時候才顯示負數
         XORWF  TIMER2,0;判斷是否為-1在00時不顯示負數
         BTFSC  STATUS,Z
         GOTO    SETFH ;轉到設置負號
         MOVLW  D'120';判是否到了120如果到了，則為負值
         XORWF  TIMER2,0
         BTFSS  STATUS,Z
          GOTO   LOOP2
         ;CALL  SETFH
         BSF   BZH,ZEROFZ;置負數標志，因為是00所以不能置負號
         CLRF   TIMER2
         GOTO   LOOP2
SETFH  ;設置負號
         MOVLW  0BFH;040H
         MOVWF  XIANZHIBAI
         GOTO  LOOP2
OUT
         BSF   PORTA,RVCC
         BTFSC  BZH,ZEROFZ;如果是負值就不用減,如果是正值就應該減
         GOTO   CLFZ
         MOVF  TIMER2,0
         SUBLW  D'120'
         MOVWF  TIMER2
         MOVF  TIMER2,0 ;判斷TIMER是不是有百位數
         MOVWF   JSQ2
         MOVLW  D'100'
         SUBWF  JSQ2,1
         BTFSS  STATUS,C
         GOTO   OUT_1
         MOVLW  0F9H;006H
         MOVWF  XIANZHIBAI
         MOVF   JSQ2,0
         MOVWF  TIMER2
                
OUT_1     CALL   BCDBIT
         GOTO   XIANSHI
CLFZ   ;負值處理 
         CALL  BCDBIT
         GOTO   XIANSHI
       
BCDBIT
         MOVLW  D'8'
         MOVWF  JSQ1
BCD_1
        RLF   TIMER2
        RLF   BCDLS,1
       
        DECFSZ JSQ1,1
        GOTO   TIAOZHEN
        RETURN
TIAOZHEN
        MOVLW  D'3'
        ADDWF  BCDLS,0
        MOVWF  SUM
        BTFSC  SUM,3
        MOVWF  BCDLS
        MOVLW  030H 
        ADDWF  BCDLS,0
        MOVWF  SUM
        BTFSC  SUM,7
        MOVWF  BCDLS
        GOTO  BCD_1
CONG
        BSF   PORTA,RVCC
        MOVLW  D'200'
        MOVWF  43H
        DECFSZ  43H
        GOTO  $-1
        BCF   PORTA,RVCC
        RETURN
                
XIANSHI
       MOVLW  D'8'
       MOVWF  JSQ2 ;一次顯示循環次數，以免閃濼
;-----------顯示L-------
XS       MOVF  BCDLS,0;讀出兩位十進制數
       ANDLW  00FH;去掉高四位
       MOVWF  XIANZHIL;低四位放在L
       SWAPF  BCDLS,1 ;高低交換,高在低位
       MOVLW  00FH;取高位值
       ANDWF  BCDLS,0;
       MOVWF  XIANZHIH;放到顯示H中
       SWAPF  BCDLS,1;恢復BCDLS值
        BCF   PORTA,H;關H
        BCF   PORTA,L;關L
       
        CLRF  PORTB
        MOVF  XIANZHIL,0
        CALL  TAB
        MOVWF  PORTB
        BCF    PORTB,BAI
        BSF   PORTA,L;打開L
        CALL  YS;延時
      
;-----------顯示H-------
        BCF   PORTA,H;關閉顯示
        BCF   PORTA,L
       
        CLRF  PORTB
        MOVF  XIANZHIH,0
        CALL  TAB
        MOVWF  PORTB
        BCF    PORTB,7
        BSF   PORTA,H;開高
        CALL  YS
;-----------顯示BAI-------
        BCF   PORTA,H;關
        BCF   PORTA,L
        ;BCF   PORTA,BAI
        CLRF  PORTB
        MOVF  XIANZHIBAI,0
        MOVWF  PORTB
        BSF    PORTB,7
       ; BSF    PORTA,BAI
         CALL  YS
       DECFSZ  JSQ2,1;判斷循環4次到了沒有
        GOTO  XS
        BCF   PORTB,7
        
      
WAIT
       ;CALL  CONG
       GOTO  LOOP1
TAB
      ADDWF  PCL,F
        RETLW        0XC0;0
        RETLW        0XF9;1
        RETLW        0XA4;2
        RETLW        0XB0;3
        RETLW        0X99;4
        RETLW        0X92;5
        RETLW        0X82;6
        RETLW        0XF8;7
        RETLW        0X80;8
        RETLW        0X90;9
        RETURN
YS
    MOVLW  H'0F'
    MOVWF  20H
YS_1    MOVLW  H'0F'
    MOVWF   21H
    DECFSZ  21H,1
    GOTO  $-1
    DECFSZ  20H,1
    GOTO  YS_1
    RETURN

   END