#define F_CPU 4000000UL
#include <tiny2313.h>

#define SYSTICK_MS 25 // приблизительно 24 мс период прерываний
// прескалер для таймера 1 1/64
#define SYSTICK_DELTA ((F_CPU / 64 * SYSTICK_MS + 500) / 1000) // смещение OCR
// времена в милисекундах, максимум SYSTICK_MS * 255
#define KEY_TIMEOUT (1000 / SYSTICK_MS)
#define LOCK_DELAY (3000 / SYSTICK_MS)
#define KEY_MASK 0x77F // маска используемых клавиатурой битов
#define BSIZE 30 // Размер буфера для хранения кода

unsigned int bufr[BSIZE]; // Буфер в ОЗУ для хранения кода
#pragma warn-
eeprom unsigned char klen; // Ячейка для хранения длины кода
eeprom unsigned int bufe[BSIZE]; // Буфер в EEPROM для хранения кода
#pragma warn+

volatile unsigned char timeout;
volatile unsigned key_filtered = 0;
volatile unsigned char key_changed = 0;

// Прерывание по совпадению в канале A Таймера 1
interrupt [TIM1_COMPA] void timer1_compa_isr(void)
{
static unsigned prev;
unsigned current;

OCR1A += SYSTICK_DELTA;
if( timeout) --timeout;

// мне больше нравится, когда нажатая кнопка даёт единичку, ничего не нажато - нули
// поэтому инвертируем состояние PIN
current = KEY_MASK & ~((PINB << 8) | PIND);
if( current == prev ) { // не дребезжит
if( key_filtered != current) { // и поменялось
key_changed = 1;
key_filtered = current;
}
}
prev = current;
}

unsigned int get_key(void)
{
unsigned key = 0;
if( key_changed) {
#asm ("cli");
key = key_filtered;
key_changed = 0;
#asm ("sei");
}
return key;
}

// Основная функция
void main(void)
{
unsigned char key_index; // Указатель массива
unsigned char i; // Вспомогательный указатель
unsigned int key;

PORTB = 0xE7; // Порт B
DDRB = 0x18;

PORTD = 0x7F; // Порт D
DDRD = 0x00;

TCCR1A = 0x00; // Таймер/Счетчик 1
TCCR1B = 0x03;
TCNT1 = 0;
OCR1A = SYSTICK_DELTA;

ACSR = 0x80; // Аналоговый компаратор
#asm ("sei");

while (1) { // Главный цикл
key_index = 0;
// Пока буфер пуст либо начали набирать, но не кончился таймаут - ждём нажатий
while( key_index == 0 || timeout != 0 ) {
key = get_key();
if( key ) {
bufr[key_index] = key;
timeout = KEY_TIMEOUT;
if( ++key_index >= BSIZE)
break;
}
}

// полный буфер или пауза между клавишами > KEY_TIMEOUT, реакция на набранный код
if (PINB.7 == 1) { // Проверка переключателя режимов
//------------------------------ Проверка кода
if ( key_index != klen ) // Проверка длины кода
continue;
for (i = 0; i < key_index; i++)
if (bufe[i] != bufr[i]) // Проверка самого кода
continue;
} else {
//------------------------------ Запись кода в EEPROM
klen = key_index; // Запись длины кода
for (i = 0; i < key_index; i++)
bufe[i] = bufr[i]; // Запись всех байтов кода
}

//------------------------------ Открывание замка
// оставлено как было - замок открывается и после ввода нового кода, возможно,
// это было задумано как подтверждение замены.
PORTB.4 = 1; // Открываем замок
timeout = LOCK_DELAY;
while( timeout) ;
PORTB .4 = 0; // Закрываем замок
}
}

    else
        write_new_code_to_eeprom()

    else {
        //------------------------------ Запись кода в EEPROM

/*****************************************************
This program was produced by the
CodeWizardAVR V1.24.4 Standard
Automatic Program Generator
© Copyright 1998-2004 Pavel Haiduc, HP InfoTech s.r.l.
http://www.hpinfotech.com
e-mail:office@hpinfotech.com

Project : Пример 10
Version : 1
Date : 07.03.2006
Author : Belov
Company : Home
Comments:
Кодовый замок


Chip type : ATtiny2313
Clock frequency : 4,000000 MHz
Memory model : Tiny
External SRAM size : 0
Data Stack size : 32
*****************************************************/

#include <tiny2313.h>
#define klfree 0x77F // Код состояния при полностью отпущеных кнопках
#define kzad 3000 // Код задержки при сканировании
#define kandr 30 // Константа антидребезга
#define bsize 30 // Размер буфера для хранения кода

unsigned char flz; // Флаг задержки
unsigned int bufr[bsize]; // Буфер в ОЗУ для хранения кода
#pragma warn-
eeprom unsigned char klen; // Ячейка для хранения длины кода
eeprom unsigned int bufe[bsize]; // Буфер в EEPROM для хранения кода
#pragma warn+

// Прерывание по переполнению Таймера 1
interrupt[TIM1_OVF]
void timer1_ovf_isr(void)
{
flz = 1; // Устанавливаем флаг задержки
}

// Прерывание по совпадению в канале A Таймера 1
interrupt[TIM1_COMPA]
void timer1_compa_isr(void)
{
flz = 1; // Устанавливаем флаг задержки
}

// Функция опроса клавиатуры и антидребезга
unsigned int incod(void)
{
unsigned int cod0 = 0; // Локальные переменные
unsigned int cod1;
unsigned char k;

for (k = 0; k < kandr; k++) { // Цикл антидребезга
cod1 = PINB & 0x7; // Формируем первый байт кода
cod1 = (cod1 << 8) + (PIND & 0x7F); // Формируем полный код состояния клавиатуры
if (cod0 != cod1) { // Сравниваем со старым кодом
k = 0; // Если не равны, сбрасываем счетчик
cod0 = cod1; // И присваиваем новое значение старому коду
}
}
return cod1;
}


// Процедура формирования задержки
void wait(unsigned char kodz)
{
if (kodz == 1)
TIMSK = 0x40; // Выбор маски прерываний по таймеру
else
TIMSK = 0x80;
TCNT1 = 0; // Обнуление таймера
flz = 0; // Сброс флага задержки
#asm("sei"); // Разрешаем прерывания
if (kodz != 2)
while (flz == 0); // Цикл задержки
}


// Основная функция
void main(void)
{
unsigned char ii; // Указатель массива
unsigned char i; // Вспомогательный указатель
unsigned int codS; // Старый код

PORTB = 0xE7; // Порт B
DDRB = 0x18;

PORTD = 0x7F; // Порт D
DDRD = 0x00;

TCCR1A = 0x00; // Таймер/Счетчик 1
TCCR1B = 0x03;
TCNT1 = 0;
OCR1A = kzad;

ACSR = 0x80; // Аналоговый компаратор

while (1) { // Главный цикл
while (incod() != klfree); // Ожидание отпускания кнопок
while (incod() == klfree); // Ожидание нажатия кнопок
ii = 0;

// набор кода до конца буфера либо до таймаута между клавишами
while(1) {
#asm("cli"); // Запрещаем прерывания
wait(1); // Задержка 1-го типа
codS = incod(); // Ввод кода и запись, как старого
bufr[ii++] = codS; // Запись очередного кода в буфер
if (ii >= bsize) // Проверка конца буфера
break;

wait(2); // Задержка 2-го типа
while( flz == 0) { // пока не закончился интервал
if (incod() != codS) // Проверка не изменилось ли состояние
continue; // переход на набор кода
}
break; // таймаут - конец набора
}

// реакция на набранный код
if (PINB.7 == 1) { // Проверка переключателя режимов
//------------------------------ Проверка кода
if (klen != ii) // Проверка длины кода
continue; // главный цикл
for (i = 0; i < ii; i++)
if (bufe[i] != bufr[i]) // Проверка самого кода
continue; // главный цикл
} else { //------------------------------ Запись кода в EEPROM
klen = ii; // Запись длины кода
for (i = 0; i < ii; i++)
bufe[i] = bufr[i]; // Запись всех байтов кода
}

//------------------------------ Открывание замка
PORTB .4 = 1;
// Открываем замок
wait(3); // Задержка 3-го типа
PORTB .4 = 0; // Закрываем замок
}
}

typedef enum { delay_50ms, delay_1s } delay_code_t;
// Процедура формирования задержки
void init_timer(delay_code_t dly )
{
if (dly == delay_50ms)
TIMSK = (1 << OCIE1A); // Выбор маски прерываний по таймеру
else
TIMSK = (1 << TOIE1);
TCNT1 = 0; // Обнуление таймера
flz = 0; // Сброс флага задержки
#asm("sei"); // Разрешаем прерывания
}

#define init_timeout() init_timer(delay_1s)
#define is_expired() (flz==1)

void wait(delay_code_t dly )
{
init_timer( dly);
while ( ! is_expired() ); // Цикл задержки
}


// Основная функция
void main(void)
{
........

while (1) { // Главный цикл
.........
// набор кода до конца буфера либо до таймаута между клавишами
while(1) {
#asm("cli"); // Запрещаем прерывания
wait(delay_50ms); // Задержка 1-го типа
codS = incod(); // Ввод кода и запись, как старого
bufr[ii++] = codS; // Запись очередного кода в буфер
if (ii >= bsize) // Проверка конца буфера
break;

init_timeout(); // Задержка 2-го типа
while( ! is_expired() ) { // пока не закончился интервал
if (incod() != codS) // Проверка не изменилось ли состояние
continue; // переход на набор кода
}
break; // таймаут - конец набора
}

.............
//------------------------------ Открывание замка
PORTB .4 = 1;
// Открываем замок
wait(delay_1s); // Задержка 3-го типа
PORTB .4 = 0; // Закрываем замок
}
}

ii += 1;
...
for(i = 0; i < ii; i++)

i += 1;
...
for(i = 0; ii < ii; i++)

ii += 1;
...
for(i = 0; i < ii; ii++)

        init_timeout();    // Задержка 2-го типа
        while( incod() == codS && !is_expired() ); // пока клавиша не изменилась и таймаут не истёк - ждём
        if( is_expired() ) break; // если таки таймаут - конец набора
    } // это от while(1) "набор кода"

enum moo { moo0, moo1 }; // только объявляем тип, не заводя переменных
void foo( enum moo m) // аргумент этого типа
{
   if( m == moo1) { ...

typedef enum { moo0, moo1 } moo_t; // тоже объявляем тип, но имя типа теперь из одного слова, без ключевого слова enum
void foo( moo_t m) // аргумент этого типа
{
   if( m == moo1) { ...

procedure TForm1.mnuWriteClick(Sender: TObject);
label ExitSend;
const
       SmallTime     = 20;
       BigTime       = 400;
var
....
      if CountRep>3 then begin
          StatusBar1.Panels.Items[0].Text:= 'Ошибка! Кластер с запрошенным номером не отвечает';
          goto  ExitSend;
      end;
.....
        if CountRep>3 then begin
          StatusBar1.Panels.Items[0].Text:= 'Ошибка! Превышено количество повторов во время передачи';
          goto  ExitSend;
        end;
....
ExitSend:
  FComDriver.Active := false;
  FComDriver.Free;
  FComSettings.Free;
  StatusBar1.Panels.Items[0].Text:= '';
  Form1.StatusBar1.Panels.Items[1].Text:= '';
end
....

uint8_t    GetChar(void)
{
uint8_t        c;

if(Flag.SaveRollik) return    0;                            // Если идёт запись ролика, то выйти
c=GetCharInStream();
if(c != METKA) return c;
c=GetCharInStream();                                    // Взять следующий символ
if(c != METKA){
   Flag.ErrLoadKom = 1;                                    // Ошибка приёма данных, - пришла команда
   Kom = c;                                                // Досрочно
}
return    c;
}