$regfile = "attiny13.dat"
$crystal = 4000000
Config Portb.1 = Output
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Do
If Getadc(2) <= 643  Then Portb.1 = 1
If Getadc(2) >= 721  Then
Do
Portb.1 = 0
Loop Until Getadc(2) <= 643
Else
Portb.1 = 1
End If
Loop
End

$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 8
$swstack = 16
$framesize = 16
Declare Sub Izmer()
Declare Sub Miganie()
Declare Sub Miganie1()
Dim N As Bit
Dim I_izm As Word
Dim U_izm As Word
Dim U_off As Word
Dim U_on As Word
Dim I_off As Word
Config Debounce = 10
Config Portb.0 = Output
Config Portb.1 = Output
Config Pinb.2 = Input
Config Pinb.3 = Input
Config Pinb.4 = Input
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Portb.0 = 0
Portb.1 = 1
Pinb.2 = 1
N = 0
$eeprom                                                     'читаем данные из ячеек eeprom
Uonn:
Data 10%
Uoff:
Data 20%
Ioff:
Data 30%
$data
Readeeprom U_on , Uonn
Readeeprom U_off , Uoff
Readeeprom I_off , Ioff
'----------   тело----------------------------------------------------------------------
1:
Do
Debounce Pinb.2 , 0 , Vkl                                   'при нажатии переходим на Vkl
Call Izmer
If U_izm < 400 Then Portb.1 = 0                             'вызываем подпрограмму для измерений
If I_izm > I_off Then Portb.1 = 0                           '  если ток больше запсанного значение в eeprom, то МОП транзистор закрываем
If U_izm > U_off Then Portb.1 = 0                           '  то же самое для напряжения 14,8 В
If U_izm < U_on Then Portb.1 = 1
If N = 0 Then Call Miganie1                                 '  если меньше 13,2 В , то открываем МОП транзистор
Loop
'----------
Sub Izmer()
U_izm = 0
I_izm = 0
U_izm = Getadc(2)                                           'PB4
I_izm = Getadc(3)
                                           'PB3
End Sub

Vkl:
Do
Call Izmer                                                  'берем значение АЦП
Writeeeprom U_izm , Uonn                                    'записываем в 10 ячейку
Call Miganie                                                'моргаем ,чтобы визуально контролировать запись
Goto Vikl                                                   ' переходим на Vikl
Loop

Vikl:
Do                                                          'выполняем пока не нажали на кнопку
Debounce Pinb.2 , 0 , Vikl1                                 ' при нажатии переходим на Vikl1
Loop

Vikl1:
Do
Call Izmer                                                  'берем значение АЦП
Writeeeprom U_izm , Uoff
Call Miganie                                                'записываем в 20 ячейку,
Goto Ivikl                                                  'моргаем
Loop                                                        ' переходим на Ivikl

Ivikl:
Do                                                          'выполняем пока не нажали на кнопку
Debounce Pinb.2 , 0 , Iikl1                                 ' при нажатии переходим на Vikl1
Loop

Iikl1:
Do
Call Izmer
Writeeeprom I_izm , Ioff                                    'то же самое для тока
Call Miganie
Goto 1
Loop

Sub Miganie()
Waitms 50
Portb.0 = 1                                                 'моргаем диодом
Waitms 50
Portb.0 = 0
End Sub


Sub Miganie1()
Waitms 70
Portb.0 = 1                                                 'моргаем диодом
Waitms 50
Portb.0 = 0
Waitms 50
Portb.0 = 1
Waitms 50
Portb.0 = 0
N = 1
End Sub