çözünürlük hakkında

Başlatan argeman, 04 Ocak 2015, 18:22:30

argeman

  Merhaba arkadaşlar,pic öğrenmeye yeni başlıyorum bir sitedeki kodları proteusta ve gerçekte denedim çalışıyor fakat çözünürlüğü nasıl artırabilirim?16f877 ile bir seviye ölçüm devresi fakat rakamlar 10ar 10ar yükseliyor ben bunu 1er 1 er yükseltmek istiyorum,yardımcı olursanız sevinirim.
;

;
   LIST P=16F877                  
   ERRORLEVEL  -302 
;--------
   include <p16f877.inc>   
   __CONFIG _CP_OFF &_WDT_OFF &_PWRTE_ON &_HS_OSC &_BODEN_OFF &_LVP_OFF &_CPD_OFF &_WRT_ENABLE_OFF
;------
DEGER   EQU   H'0020'
DEGERH   EQU   H'0021'
DEGERL   EQU   H'0022'
DEGER3   EQU   H'0023'
SAYI1   EQU   H'0024'
SAYI2   EQU   H'0025'
SAYI3   EQU   H'0026'
SAYI4   EQU   H'0027'
D1   EQU   H'0028'
D2   EQU   H'0029'
D3   EQU   H'002A'
D4   EQU   H'002B'
D11   EQU   H'002C'
D22   EQU   H'002D'
D33   EQU   H'002E'
D44   EQU   H'002F'
LSB   EQU   H'0034'
MSB   EQU   H'0035'
TEMP   EQU   H'0036'
BEKLEM   EQU   H'0037'
TOPLA1   EQU   H'0038'
TOPLA2   EQU   H'0039'
TOPLA3   EQU   H'003A'
;---------
   ORG   00H
   GOTO   START
;-------------
START
        CLRF   PORTA
   CLRF   PORTB
   CLRF   PORTC
   CLRF   PORTD
   CLRF   DEGER
   CLRF   DEGERH
   CLRF   DEGERL
   CLRF   DEGER3
   CLRF   SAYI1
   CLRF   SAYI2
   CLRF   SAYI3
   CLRF   SAYI4
   CLRF   D1   
   CLRF   D2   
   CLRF   D3   
   CLRF   D4
   CLRF   D11   
   CLRF   D22   
   CLRF   D33   
   CLRF   D44
   CLRF   LSB
   CLRF   MSB
   CLRF   TEMP
   CLRF   BEKLEM
   BSF     STATUS,RP0
   MOVLW   B'11111111'
   MOVWF   TRISA^80H     
   CLRF   TRISB^80H       
   CLRF   TRISC^80H
   CLRF   TRISD^80H
   CLRF   TRISE^80H         
   MOVLW   B'10000100'
   MOVWF   ADCON1^80   
   MOVLW   B'10000111'   
   MOVWF   OPTION_REG
   BCF     STATUS,RP0     
   CALL   TEMIZLE
   GOTO   ANA
;------------------------------
ADC   
   BSF   ADCON0,GO   ;Start A/D conversion
TARA
   BTFSC   ADCON0,GO
   GOTO   TARA

   BSF   STATUS,RP0
   MOVF   ADRESL,W
   BCF   STATUS,RP0
   MOVWF   DEGERL
   MOVF   ADRESH,W
   MOVWF   DEGERH
   RETURN
;-----------------------
BEKLE
   MOVLW   .10          
   MOVWF   MSB
DN11   
   MOVLW   .255
   MOVWF   LSB
DN22
   DECFSZ   LSB,F
   GOTO   DN22
   DECFSZ   MSB,F
   GOTO   DN11
   RETURN
COKBEKLE
   MOVLW   .255       
   MOVWF   MSB
DN111   
   MOVLW   .255
   MOVWF   LSB
DN222
   DECFSZ   LSB,F
   GOTO   DN222
   DECFSZ   MSB,F
   GOTO   DN111
   RETURN
;-----------------------
HESAP
   MOVLW   .0
   MOVWF   SAYI1
   MOVWF   SAYI2
   MOVWF   SAYI3
   MOVWF   SAYI4
HES
   MOVLW   .100
   SUBWF   DEGER,W
   BTFSS   STATUS,C
   GOTO   HES1
   MOVLW   .100
   SUBWF   DEGER,F
   INCF   SAYI2,F
   GOTO   HES   
HES1
   MOVLW   .10
   SUBWF   DEGER,W
   BTFSS   STATUS,C
   GOTO   HES2
   MOVLW   .10
   SUBWF   DEGER,F
   INCF   SAYI3,F
   GOTO   HES1
HES2
   MOVLW   .1
   SUBWF   DEGER,W
   BTFSS   STATUS,C
   GOTO   HESSON
   MOVLW   .1
   SUBWF   DEGER,F
   INCF   SAYI4,F
   GOTO   HES2      
HESSON
   RETURN
;-----------------------------------------------------------------
ANA   
   
;------1. KANAL OKU------
   MOVLW   B'01000001'
   MOVWF   ADCON0
   CALL   ADC
   MOVF   DEGERL,W
   MOVWF   DEGER
   CALL   HESAP
   CALL   HESAP2
   MOVF   SAYI1,W
   SUBWF   D1,W
   BTFSS   STATUS,Z
   GOTO   GOSTER_LCD1
   MOVF   SAYI2,W
   SUBWF   D2,W
   BTFSS   STATUS,Z
   GOTO   GOSTER_LCD1
   MOVF   SAYI3,W
   SUBWF   D3,W
   BTFSS   STATUS,Z
   GOTO   GOSTER_LCD1
;   MOVF   SAYI4,W
;   SUBWF   D4,W
;   BTFSS   STATUS,Z
;   GOTO   GOSTER_LCD1
   CALL   COKBEKLE

;------2. KANAL OKU------
   MOVLW   B'01001001'
   MOVWF   ADCON0
   CALL   ADC
   MOVF   DEGERL,W
   MOVWF   DEGER
   CALL   HESAP
   CALL   HESAP2
   MOVF   SAYI1,W
   SUBWF   D11,W
   BTFSS   STATUS,Z
   GOTO   GOSTER_LCD2
   MOVF   SAYI2,W
   SUBWF   D22,W
   BTFSS   STATUS,Z
   GOTO   GOSTER_LCD2
   MOVF   SAYI3,W
   SUBWF   D33,W
   BTFSS   STATUS,Z
   GOTO   GOSTER_LCD2
;   MOVF   SAYI4,W
;   SUBWF   D44,W
;   BTFSS   STATUS,Z
;   GOTO   GOSTER_LCD2
   CALL   COKBEKLE

   GOTO   ANA
;---------------------------
GOSTER_LCD1
   CALL   VERIYAZ
        MOVF   SAYI1,W
   MOVWF   D1
   MOVF   SAYI2,W
   MOVWF   D2
   MOVF   SAYI3,W
   MOVWF   D3
   MOVF   SAYI4,W
   MOVWF   D4

   MOVLW   H'0C'
   CALL   KOMUTYAZ
   MOVLW   H'38'
   CALL   KOMUTYAZ
   MOVLW   H'0C'
   CALL   KOMUTYAZ
   CALL   SATIR1
   MOVLW   H'2'
   CALL   KOMUTYAZ


   CALL   GUVEN
   MOVF   D1,W
   ADDLW   H'30'
   CALL   VERIYAZ
   MOVF   D2,W
   ADDLW   H'30'
   CALL   VERIYAZ
   MOVF   D3,W
   ADDLW   H'30'
   CALL   VERIYAZ
;   MOVF   D4,W
;   ADDLW   H'30'
;   CALL   VERIYAZ
   GOTO   ANA
GOSTER_LCD2
   MOVF   SAYI1,W
   MOVWF   D11
   MOVF   SAYI2,W
   MOVWF   D22
   MOVF   SAYI3,W
   MOVWF   D33
   MOVF   SAYI4,W
   MOVWF   D44

   MOVLW   H'0C'
   CALL   KOMUTYAZ
   MOVLW   H'38'
   CALL   KOMUTYAZ
   MOVLW   H'0C'
   CALL   KOMUTYAZ
   CALL   SATIR2

   CALL   SIVI
   MOVF   D11,W
   ADDLW   H'30'
   CALL   VERIYAZ
   MOVF   D22,W
   ADDLW   H'30'
   CALL   VERIYAZ
   MOVF   D33,W
   ADDLW   H'30'
   CALL   VERIYAZ
;   MOVF   D44,W
;   ADDLW   H'30'
;   CALL   VERIYAZ
   GOTO   ANA
;---------------------------------------------------
HESAP2
   MOVLW   .0
   SUBWF   DEGERH,W
   BTFSC   STATUS,Z
   RETURN   
   BTFSC   DEGERH,0
   GOTO   YAZ256
DEVAM
   BTFSC   DEGERH,1
   GOTO   YAZ512
   RETURN
SONUC
   MOVLW   .10
   SUBWF   SAYI4,W
   BTFSC   STATUS,C
   CALL   BUYUK
   MOVLW   .10
   SUBWF   SAYI3,W
   BTFSC   STATUS,C
   CALL   BUYUK1
   MOVLW   .10
   SUBWF   SAYI2,W
   BTFSC   STATUS,C
   CALL   BUYUK2
   RETURN
BUYUK
   MOVWF   SAYI4   
   INCF   SAYI3,F
   RETURN
BUYUK1
   MOVWF   SAYI3   
   INCF   SAYI2,F
   RETURN
BUYUK2
   MOVWF   SAYI2   
   INCF   SAYI1,F
   RETURN
YAZ256
   MOVLW   .2
   ADDWF   SAYI2,F
   MOVLW   .5
   ADDWF   SAYI3,F
   MOVLW   .6
   ADDWF   SAYI4,F
   CALL   SONUC
   GOTO   DEVAM
YAZ512
   MOVLW   .5
   ADDWF   SAYI2,F
   MOVLW   .1
   ADDWF   SAYI3,F
   MOVLW   .2
   ADDWF   SAYI4,F
   CALL   SONUC
   RETURN
;-------------------------------------------------------------------
SATIR2
   MOVLW   H'C0'
   CALL   KOMUTYAZ
   RETURN
SATIR1
   MOVLW   H'80'
   CALL   KOMUTYAZ
   RETURN
VERIYAZ
   BSF   PORTC,1
   MOVWF   PORTB
   BCF   PORTC,0
   CALL   BEKLE
   BSF   PORTC,0
   RETURN
TEMIZLE
   MOVLW   H'0C'
   CALL   KOMUTYAZ
   MOVLW   H'01'
   CALL   KOMUTYAZ
   MOVLW   H'38'
   CALL   KOMUTYAZ
   MOVLW   H'0C'
   CALL   KOMUTYAZ
   RETURN
KOMUTYAZ
   BCF   PORTC,1
   MOVWF   PORTB
   BCF   PORTC,0
   CALL   BEKLE
   BSF   PORTC,0
   RETURN
SIVI
   MOVLW   A'D'
   CALL   VERIYAZ
   MOVLW   A'E'
   CALL   VERIYAZ
   MOVLW   A'P'
   CALL   VERIYAZ
   MOVLW   A'O'
   CALL   VERIYAZ
   MOVLW   A' '
   CALL   VERIYAZ   
        MOVLW   A'S'
   CALL   VERIYAZ
   MOVLW   A'E'
   CALL   VERIYAZ
   MOVLW   A'V'
   CALL   VERIYAZ
   MOVLW   A'i'
   CALL   VERIYAZ
   MOVLW   A'Y'
   CALL   VERIYAZ
        MOVLW   A'E'
   CALL   VERIYAZ
   MOVLW   A'('
   CALL   VERIYAZ
        MOVLW   A'l'
   CALL   VERIYAZ
   MOVLW   A't'
   CALL   VERIYAZ
   MOVLW   A')'
   CALL   VERIYAZ
   MOVLW   A':'
   CALL   VERIYAZ
   
RETURN
GUVEN
   MOVLW   A'B'
   CALL   VERIYAZ
   MOVLW   A'A'
   CALL   VERIYAZ
   MOVLW   A'S'
   CALL   VERIYAZ
        MOVLW   A'I'
   CALL   VERIYAZ   
        MOVLW   A'N'
   CALL   VERIYAZ
   MOVLW   A'C'
   CALL   VERIYAZ
   MOVLW   A'('
   CALL   VERIYAZ
   MOVLW   A'B'
   CALL   VERIYAZ
        MOVLW   A'A'
   CALL   VERIYAZ   
        MOVLW   A'R'
   CALL   VERIYAZ
        MOVLW   A')'
   CALL   VERIYAZ
   MOVLW   A' '
   CALL   VERIYAZ
   MOVLW   A' '
   CALL   VERIYAZ
   MOVLW   A' '
   CALL   VERIYAZ
   MOVLW   A' '
   CALL   VERIYAZ
   MOVLW   A':'
   CALL   VERIYAZ
   
RETURN
;------------------------------------------------------------------
   END