Define ADC_BITS     10  ' Задать число разрядов в результате
Define ADC_CLOCK    3    ' Выбрать источник тактового сигнала (3 = RC)
Define ADC_SAMPLEUS    50    ' Задать время преобразования в микросекундах
'------------------------------------------------------------------------------
     TRISA = %00000001  ' Установить PORTA  
     TRISC = %00000000
     ADCON0 = %10000001   
     CMCON0 = 7
     ANSEL = 1
     volt var Word
     seg var Byte
     cifra var Byte
     a var Word
     b var Byte
     c var Byte  
     n var Byte
'------------------------------------------------------------------------------
main:     
     ADCIN 0, volt
     Adcin 0, a
     volt = (volt + a)/2
     For c = 0 To 8
     GoSub loop
     Next c
     GoTo main
loop:

     For n = 0 To 2
     cifra = volt Dig n
     GoSub decoder  
     pause 2
     Low PORTA.5:Low PORTA.4:Low PORTC.5     
     PORTA = b << 1
     PORTC = b >> 2    
     If n = 0 Then High PORTA.5:Low PORTA.4:Low PORTC.5
     If n = 1 Then High PORTA.4:Low PORTA.5:Low PORTC.5
     If n = 2 Then High PORTC.5:Low PORTA.5:Low PORTA.4
     Next n

Return
      
decoder:     
    LookUp cifra, [$C0, $F9, $A4, $B0, $99, $92, $82, $F8, $80, $90, $BF, $FF ], b
'   таблица       0     1    2    3    4    5    6    7    8    9    -   off
    Return