$regfile = "m32def.dat" ' тип МК
$crystal = 16000000 ' выбор кристала для расчета задержек

'*****************************************[Определение переменных и констант]************************************

Dim Count As Byte ' переменная для работы с индикацией
Dim Ledout As Byte ' переменная для загрузки в регистры сдвига
Dim Number(4) As Byte ' значения 6-ти разрядов
Dim H_flag(4) As Byte ' флаги точек 6-ти разрядов
Dim Blink_count As Word ' счетчик времени мигания
Dim Blink_flag(4) As Byte ' флаги мигания разрядов

'***********************************************[Инициализация портов]*******************************************

Ddrc = &B11111111 'порт В на выход ' вывод SH_CP регистра (тактовые импульсы)

'*********************************************[Инициализация прерываний]*****************************************

Config Timer0 = Timer , Prescale = 64 ' конфигурируем таймер индикации
On Ovf0 Refresh ' метка на прерывание индикации

Enable Interrupts ' разрешаем прерывания
Enable Ovf0 ' и для индикации в частности

'********************************************[Присвоение уникальных имен]****************************************

595clock Alias Portc.0 : 595data Alias Portc.1 ' выводы 74HC595

'*********************************************[Начало основной программы]****************************************

Number(1) = 1 ' на индикацию выводим -tESt-
Number(2) = 2
Number(3) = 3
Number(4) = 4

Blink_flag(1) = 1 ' мигаем первым и шестым разрядом
Blink_flag(4) = 1

'-------------------------

Do

Loop

'***********************************[Процедуры обработки подпрограмм и прерываний]*******************************

Refresh: ' прерывание таймера Т0

If Blink_flag(count) = 1 And Blink_count > 200 Then ' если флаг мигания выставлен и счетчик > 200
Ledout = Lookup(0 , Rank) ' выключаем разряд
Else ' иначе (флаг не выставлен, либо счетчик < 200)
Ledout = Lookup(count , Rank) ' забираем в переменную номер разряда
End If

Shiftout 595data , 595clock , Ledout , 1 ' закидываем в регистр

Incr Count : If Count > 4 Then Count = 1 ' выбираем разряд для загрузки
Incr Blink_count : If Blink_count > 400 Then Blink_count = 1 ' длительность мигания

Ledout = Lookup(number(count) , Digits) ' забираем в переменную код цифры

If H_flag(count) = 1 Then ' управление точками индикатора
Ledout = Ledout Xor &B00100000
End If

Shiftout 595data , 595clock , Ledout , 1 ' закидываем в регистр

Pulseout Portc , 2 , 20 ' защелкиваем данные (для 8МГц импульс 5мкс)

Return

'******************************************************[DATA]****************************************************

Digits: ' цифры

Data &B11000000 , &B11111100 , &B10100100 , &B10110000 , &B10011001 ' 0 1 2 3 4
'-------------------------

Rank: ' разряды

'Data &B00000000 ' выкл
Data &B00000001 , &B00000010 , &B00000100 ' 1 2 3
Data &B00001000 , &B00010000 , &B00100000 ' 4 5 6