#define bit_set(p,m) ((p) |= (1<<m))
#define bit_clear(p,m) ((p) &= ~(1<<m))

volatile byte ramka[21];


void zrob_ramke () {
  ramka[1] = 0x7E;  // początek pakietu
  ramka[2] = 0; // RX nr
  ramka[3] = 0; // FLAG1
  ramka[4] = 0; // FLAG2
  // 5-16 - kanały 1-8
  ramka[17] = 0; // stała
  // 18,19 CRC16 lowByte(x); highByte(x);
  ramka[20] = 0x7E; // koniec pakietu
}



void setup() {
  zrob_ramke(); 
  init_timer1();
}


void loop() {}



void init_timer1() {
  cli();
  TCCR1A = 0; // set entire TCCR1 register to 0
  TCCR1B = 0;

  OCR1A = 100;  // compare match register, change this
  TCCR1B |= (1 << WGM12);  // turn on CTC mode
  TCCR1B |= (1 << CS11);  // 8 prescaler: 0,5 microseconds at 16mhz
  
  TIMSK1 |= (1 << OCIE1A); // enable timer compare interrupt
  sei();
}


ISR(TIMER1_COMPA_vect) { // ---------------------------------------- nadawanie PXX - pin 13 (PB5) --------------------------------------------

static byte cykl = 0;
static byte ile_1 = 0;
static byte _bit=0, nr_bit=7, nr_byte=1; 

  TCNT1 = 0;  OCR1A = 8 * 2;

  if ( ramka[ nr_byte ] & 1 << nr_bit ) { _bit=1; } else { _bit=0; ile_1=0; } // jaki bit teraz wysyłany
  if ( ( ile_1 == 5 ) && ( cykl == 0 ) ) { cykl = 10; ile_1=0; } // jeżeli jest pięć jedynek wyślij 0

  switch (cykl++) {
      case 0: 
          if ( nr_bit == 0 ) {  nr_bit=8;    nr_byte++;  if ( nr_byte == 21 ) { nr_byte=1; }         }
          nr_bit--;  // kolejny bit do obróbki
          if ( _bit) { cykl=5; } else { cykl=6; }
      case 5: bit_clear(PORTB,PB5); 
         if ( ( nr_byte > 1 ) && ( nr_byte < 20 ) )  { ile_1++; }  // licz ile bitów 1 z rzędu
      break;
  
      case 6: bit_clear(PORTB,PB5);  break;
      case 7: bit_set(PORTB,PB5);  cykl=0;  break;
      case 10: bit_clear(PORTB,PB5); break;  //10,11 - dodatkowy bit 0 po pięciu 1
      case 11: bit_set(PORTB,PB5); cykl=0;  break;
  }
  
}