Device = 16F676
'Declare all_digital =1  
Declare Xtal = 4  

'---------------------------------------------------------------------------------------------------  
Symbol SH_CP = PORTC.3
Symbol But = PORTC.1    
Symbol DS = PORTC.4  
Symbol ST_CP = PORTC.5    
'---------------------------------------------------------------------------------------------------  
Dim AD_RESULT As Word'Переменная для хранения результата преобразования АЦП    
Dim j As Word 'Переменная для хранения цифрового значения числа  
Dim n As Byte 'Число для вывода на индикатор ССИ  
Dim Value As Byte 'Переменная для осуществления табличного конвертирования цифры  
Dim b As Byte 'Символ точки для вывода на ССИ  
b = 128  
'-------------------------------Инициализация микроконтроллера--------------------------------------  
   DelayMS 500 'Задержка для стабилизации микроконтроллера  
   GoTo OVER_ADC_SUBS 'Переход на конфигурацию портов  
'-----------------------------------Старт преобразования--------------------------------------------  
ADC:  
   'ADCON0.0 = 1 'Включим АЦП  
   'DelayUS 50 'Задержка для заряда внутреннего конденсатора  
   'ADCON0.1 = 1 'Разрешение преобразования  
   'While ADCON0.1 = 1: Wend 'Опрос флага GO_DONE для завершения преобразования  
   'ADCON0.0 = 0 'Выключим АЦП  
   Return  
'----------------------------Инициализация регистров АЦП--------------------------------------------  
OVER_ADC_SUBS:    
   TRISA = %00001011       'RA0,RA1 - АЦП; RA2, RA4, RA5 - выходы; RA3 - 10к на +5В
   PORTA = %00000000       'Все порты в 0
    
   TRISC = %00000011       'RC0, RC1 - АЦП; RC2, RC3, RC4, RC5 - выходы;
   PORTC = %00000000       'Все порты в 0   
    
    
    
   ADCON0.6 = 0          'Источник опорного напряжения - +5В от шины питания  
   ADCON0.7 = 0          'Бит выбор формирователь - выравнивание правое
   ANSEL.0 = 0           'Установим RA0 цифровым  
   ANSEL.1 = 0           'Установим RA1 цифровым  
   ANSEL.2 = 0           'Установим RA2 цифровым  
   ANSEL.3 = 0           'Установим RA3 цифровым  
   ANSEL.4 = 0           'Установим RC0 цифровым
   ANSEL.5 = 1           'Установим RC1 аналоговым  
   ANSEL.6 = 0           'Установим RC2 цифровым  
   ANSEL.7 = 0           'Установим RC7 цифровым
'-----------------------------------Главная программа-----------------------------------------------  
Start: 'Бесконечный цикл  
   'ADCON0.2 = 1 'Выбор канала АЦП (см. 43 страницу даташита)  
   'ADCON0.3 = 0 'Выбор канала АЦП  
   'GoSub ADC 'Выполним преобразование АЦП  
   j = 1234
   GoSub Ind  
GoTo Start  
'--Подпрограмма динамической индикации с использованием двух сдвиговых регистров 74HC595 и 4-x ССИ--  
Ind:    
'---------------Зажигание первого справа разряда индикатора и вывод на него цифры-------------------  
n = Dig j, 0 'Выделяем из числа единицы  
GoSub Convert 'и конвертируем в код ССИ  
SHOut DS, SH_CP, MsbFirst, [8] 'Проталкиваем в нижний регистр бит для зажигания разряда № 4  
SHOut DS, SH_CP, MsbFirst,  [Value]'Проталкиваем в верхний регистр сконвертированный код для единиц  
ST_CP = 1 'Защелкиваем данные  
DelayMS 5
ST_CP = 0 'Обнуляем защелку данных  
'---------------Зажигание второго справа разряда индикатора и вывод на него цифры-------------------  
n = Dig j, 1 'Выделяем из числа десятки  
GoSub Convert 'и конвертируем в код ССИ  
SHOut DS, SH_CP, MsbFirst, [4] 'Проталкиваем в нижний регистр бит для зажигания разряда № 3  
SHOut DS, SH_CP, MsbFirst,   
[Value]ST_CP = 1 'Защелкиваем данные  
DelayMS 5
ST_CP = 0 'Обнуляем защелку данных  
'---------------Зажигание третьего справа разряда индикатора и вывод на него цифры------------------  
n = Dig j, 2 'Выделяем из числа сотни  
GoSub Convert 'и конвертируем в код ССИ  
SHOut DS, SH_CP, MsbFirst, [2] 'Проталкиваем в нижний регистр бит для зажигания разряда № 2  
SHOut DS, SH_CP, MsbFirst,  [Value]'Проталкиваем в верхний регистр сконвертированный код для сотен  
ST_CP = 1 'Защелкиваем данные  
DelayMS 5
ST_CP = 0 'Обнуляем защелку данных  
'---------------Зажигание четвертого справа разряда индикатора и вывод на него цифры----------------  
n = Dig j, 3 'Выделяем из числа тысячи  
GoSub Convert 'и конвертируем в код ССИ  
SHOut DS, SH_CP, MsbFirst, [1] 'Проталкиваем в нижний регистр бит для зажигания разряда № 1  
SHOut DS, SH_CP, MsbFirst,  [Value]'Проталкиваем в верхний регистр сконвертированный код для тысяч  
ST_CP = 1 'Защелкиваем данные  
DelayMS 5
ST_CP = 0 'Обнуляем защелку данных  

Return  
'---------------Зажигание первого справа разряда индикатора и вывод на него цифры-------------------  
Convert:  
'                  192 249
Value = LookUp n, [$C0, $F9, $A4, $B0, $99, $92, $82, $F8, $80, $90, $BF, $FF ]
'   таблица         0    1    2    3    4    5    6    7    8    9    -   off  
Return  
'---------------------------------------------------------------------------------------------------  
End