Электроника и автоматика на МК

Device = 16F676 '  
Config WDT_off, pwrte_on, mclre_off, intrc_osc_noclkout  
Xtal = 4 '  

'-------------------------- Натройки АЦП ------------------------------------  
Declare Adin_Res 10 '  
Declare Adin_Tad FRC '  
Declare Adin_Stime 50 '  

'-------------------------- OPTION_REG ----------------------------------------  

Symbol PS0 = OPTION_REG.0 '  
Symbol PS1 = OPTION_REG.1 '  
Symbol PS2 = OPTION_REG.2 '  
Symbol PSA = OPTION_REG.3 '  
Symbol T0SE = OPTION_REG.4 '  
Symbol T0CS = OPTION_REG.5 '  
Symbol INTEDG = OPTION_REG.6 '  
Symbol NOT_RBPU = OPTION_REG.7 '  

'-------------------------- INTCON --------------------------------------------  

Symbol RBIF = INTCON.0 '  
Symbol INTF = INTCON.1 '  
Symbol T0IF = INTCON.2 '  
Symbol RBIE = INTCON.3 '  
Symbol INTE = INTCON.4 '  
Symbol T0IE = INTCON.5 '  
Symbol PEIE = INTCON.6 '  
Symbol GIE = INTCON.7 '  

ADCON0 = %10000000  
ADCON1 = %00110000  
ANSEL = %00000001  
CMCON = %00000111  

TRISA = %00000001  
TRISC = %00000001  

Dim BAT As Float ' значение АЦП  
Dim VA As Float ' напряжение АКБ  
Dim BIG As Dword '  
Dim BIG1 As BIG.HighWord '  
Dim Sec As Byte ' секунды  
Dim Minute As Byte ' минуты  
Dim Hour As Byte ' часы  
Symbol St = PORTC.0 ' Кнопка Старт  
Symbol CHARGE = PORTC.1 ' Заряд  
Symbol DISCHARGE = PORTC.2 ' Разряд  
Symbol SVEND = PORTC.3 ' Окончание Заряда  

'-------------------------- Настройка TMR0 --------------------  
OPTION_REG = %10000111  
TMR0 = $00 ' значение TMR0  
T0IE = 1 ' разрешение прерывания 3906,250000 Гц  
GIE = 1 ' разрешение глобального прерівания  

On_Interrupt GoTo Int_Label  
'Sec = 0  
'--------------------------Страрт -------------------------  
Start:  
BAT = ADIn 0 ' данные с 1 канала АЦП заносим в BAT  
VA = BAT / 204.8 ' получаем 5 В  
Sec = 0 ' останавливаем таймер  
If VA > 1.2 And St = 0 Then GoTo ROZRYAD : Else : GoTo Start ' подключили АКБ и нажали кнопку  
GoTo Start ' возврат  
End '  

'-------------------------- Прерывания--------------------------  

Int_Label:  
Context Save '  
If T0IF = 1 Then BIG1 = BIG1 - 1 '  
If BIG < 0 Then BIG = BIG + 1000000 : Inc Sec '  
T0IF = 0 '  
Context Restore '  
End  

'-------------------------- Главная программа -------------------------  
PREDZARYAD: ' предварительный заряд  

BAT = ADIn 0 ' данные с 1 канала АЦП заносим в BAT  
VA = BAT / 204.8 ' получаем 5 В  

If VA < 1.2 Then GoTo Start ' нету АКБ  
If VA < 2.0 Then High CHARGE : DelayMS 2000 : Low CHARGE : DelayMS 2000 ' заряжаем импульсами по 2 сек  
If VA > 2.0 Then GoTo ZARYAD ' достигли 2,0В , переход в Заряд  

GoTo PREDZARYAD ' возврат  
End  

ZARYAD:  

BAT = ADIn 0 ' данные с 1 канала АЦП заносим в BAT  
VA = BAT / 204.8 ' получаем 5 В  
If VA < 1.2 Then GoTo Start ' нету АКБ  
If VA < 2.0 Then GoTo PREDZARYAD ' меньше 2,0 , переход в Предзаряд  
If VA > 2.0 Then High CHARGE : Else : Low CHARGE ' включаем Заряд  
If VA > 3.0 Then Low CHARGE : GoTo Start ' вытащили АКБ , возврат в начало  

If Sec = 60 Then Sec = 0 : Inc Minute ' инкрементируем минуты  
If Minute = 60 Then Minute = 0 : Inc Hour ' инкрементируем часы  
If Hour = 9 Then GoTo CHARGEEND ' дотикал таймер , окончание заряда  
GoTo ZARYAD ' возврат  
End '  

ROZRYAD:  

BAT = ADIn 0 ' данные с 1 канала АЦП заносим в BAT  
VA = BAT / 204.8 ' получаем 5 В  
If VA < 2.05 Then Low DISCHARGE : GoTo ZARYAD ' меньше 2,05 в Заряд  
If VA > 2.2 Then High DISCHARGE ' больше 2,2 в Розряд  
If VA < 1.2 Then GoTo Start ' нету АКБ  
GoTo ROZRYAD ' возврат  
End  

CHARGEEND:  

BAT = ADIn 0 ' данные с 1 канала АЦП заносим в BAT  
VA = BAT / 204.8 ' получаем 5 В  
If VA < 1.2 Then GoTo Start '  

Low CHARGE ' выключаем Заряд  
Low DISCHARGE ' выключаем Разряд  
SVEND = 1 ' Окончание Заряда  
Sec = 0 ' скидываем в ноль  
Minute = 0 '  
Hour = 0 '  

GoTo CHARGEEND ' возврат  
End