Connections for 24LC devices
        ---------------------------------------
        PICkit 2 Pin             24LC Device Pin (DIP)
        (2) Vdd !                8 Vcc
        (3) GND                  4 Vss
        (5) PGC                  6 SCL (driven as push-pull)
        (6) AUX                  5 SDA (requires pullup)
                                      7 WP - disabled (GND)
                                      1, 2, 3 Ax pins
                                      Connect to Vdd or GND per
                                      datasheet and to set address

	! 24LC devices may not program properly below 3.6V VDD.
          This is a limitation of the PICkit 2 AUX IO pin.

#include "Soft_I2C.h"

void Soft_I2C_Init(void){

 Soft_I2C_Scl_Direction = 1;
 Soft_I2C_Sda_Direction = 1;
 Soft_I2C_Scl = 0;
 Soft_I2C_Sda = 0;

}

void i2c_dly(void)
{
}

void Soft_I2C_Start(void)
{
  Soft_I2C_Sda_Direction = 1;             // i2c start bit sequence
  i2c_dly();
  Soft_I2C_Scl_Direction = 1;
  i2c_dly();
  Soft_I2C_Sda = 0;
  Soft_I2C_Sda_Direction = 0;
  i2c_dly();
  Soft_I2C_Scl = 0;
  Soft_I2C_Scl_Direction = 0;
  i2c_dly();
}

void Soft_I2C_Stop(void)
{
  Soft_I2C_Sda_Direction = 0;             // i2c stop bit sequence
  i2c_dly();
  Soft_I2C_Scl_Direction = 1;
  i2c_dly();
  Soft_I2C_Sda_Direction = 1;
  i2c_dly();
}

unsigned short Soft_I2C_Read(unsigned int ack)
{
   unsigned short x, d = 0;

   Soft_I2C_Sda_Direction = 1;
   for(x = 0; x<8; x++) {
     d <<= 1;
     do {
      Soft_I2C_Scl_Direction = 1;
     }
     while(Soft_I2C_Scl == 0);    // wait for any SCL clock stretching
     i2c_dly();
     if(Soft_I2C_Sda) d |= 1;
     Soft_I2C_Scl_Direction = 0;
  }
  if(ack) Soft_I2C_Sda_Direction = 0;
  else Soft_I2C_Sda_Direction = 1;
  Soft_I2C_Scl_Direction = 1;
  i2c_dly();             // send (N)ACK bit
  Soft_I2C_Scl_Direction = 0;
  Soft_I2C_Sda_Direction = 1;
  return d;
}

unsigned short Soft_I2C_Write (unsigned short d)
{
  static unsigned short b;
         unsigned short x;

  for(x = 8; x; x--) {
    if(d & 0x80) Soft_I2C_Sda_Direction = 1;
    else Soft_I2C_Sda_Direction = 0;
    Soft_I2C_Scl_Direction = 1;
    d <<= 1;
    Soft_I2C_Scl_Direction = 0;
  }
  Soft_I2C_Sda_Direction = 1;
  Soft_I2C_Scl_Direction = 1;
  i2c_dly();
  b = Soft_I2C_Sda;          // possible ACK bit
  Soft_I2C_Scl_Direction = 0;
  return b;
}

#ifndef _SOFT_I2C_H
#define _SOFT_I2C_H

// Software I2C connections
sbit Soft_I2C_Scl           at RC6_bit;
sbit Soft_I2C_Sda           at RC7_bit;
sbit Soft_I2C_Scl_Direction at TRISC6_bit;
sbit Soft_I2C_Sda_Direction at TRISC7_bit;
// End Software I2C connections

void Soft_I2C_Init(void);
void i2c_dly(void);
void Soft_I2C_Start(void);
void Soft_I2C_Stop(void);
unsigned short Soft_I2C_Read(unsigned int);
unsigned short Soft_I2C_Write(unsigned short);
#endif

//---------- Подпрограмма инициализации аппаратного SPI ------------------------
void Init_SPI()  { // аналог библиотечной функции SPI1_Init() MikroC PRO

     TRISC3_bit = 0;
     TRISC4_bit = 1;
     TRISC5_bit = 0;
     SSPCON = 0x00;
     SSPSTAT = 0x40;
     SSPEN_bit = 1;
}

//---------- Подпрограмма приема-передачи байта аппаратным SPI -----------------
unsigned short SPI(unsigned short Data) {  // замена библиотечным MikroC PRO

    SSPBUF = Data;
    while (!BF_bit) continue;
    return SSPBUF;
}