#define JL_CLK          A5    ///USBDP
#define JL_DAT          A4    ///USBDM
#define BUS_CTRL        A3    ///USB_BUS_CTRL   
#define POW_CTRL        A2    ///USB_POWER_CTRL
#define POW_RESET       2    ///USB_POWER_CTRL
#define LED             13    ///LED
boolean answer=0;               //статус ответа
boolean done=0;                 //0-время не вышло, 1 - время вышло (подача сигналов)
boolean setupdone=0;            //0-переинициализации не было, 1- была
unsigned long ann=0;            //засечка времени
unsigned long timecount=0;      //то же самое)
int cnt;                        //счетчик сигналов
bool send_usbkey(void) {
  pinMode(JL_DAT, OUTPUT);
  pinMode(JL_CLK, OUTPUT);

  for (uint16_t mask = 0x8000; mask; mask >>= 1) {
    digitalWrite(JL_DAT, (mask & 0x16EF) ? HIGH : LOW);
    digitalWrite(JL_CLK, LOW);
    delayMicroseconds(10);
    digitalWrite(JL_CLK, HIGH);
  }

  pinMode(JL_DAT, INPUT_PULLUP);
  pinMode(JL_CLK, INPUT_PULLUP);

return (digitalRead(JL_DAT) == LOW) && (digitalRead(JL_CLK) == LOW);
}

void setup() 
{
  pinMode(POW_RESET, INPUT_PULLUP);
  if(done==0)
  {
    pinMode(POW_CTRL, OUTPUT);
    pinMode(LED, OUTPUT);
    digitalWrite(LED,1);
    digitalWrite(LED,0); 
  }
  else
  {
    pinMode(LED, OUTPUT);
    digitalWrite(LED,0);
  }
}

void loop() 
{
  if(digitalRead(POW_RESET) == LOW)
  {
    digitalWrite(POW_CTRL,1); 
    delay(100);
    digitalWrite(POW_CTRL,0); 
  }
 if(answer==0)
 {              //если нет ответа
   if(cnt==1)
   {               //количество сообщений
     done=1;                   //сигналы посланы
     if(setupdone==0)
     {         //если переинициализации не было
       setup();                  //переинициализация
       setupdone=1;              //переинициализация выполнена
       timecount= micros();      //старт отсчета 50 микросек
     }
     
     if(digitalRead(JL_DAT)==1)
     {    //если на ноге +
      answer=1;                                       //статус ответа
     }
     else if(micros()>timecount)
     {                      //если в течение 50 мкс нет ответа
       done=0;                                         //сбрасываем все переменные
       setupdone=0;
       ann=millis();
       timecount=0;
       answer=0;
       cnt=0;
       setup();                                        //переинициализация
     }
   }
   else
   {      
     pinMode(BUS_CTRL,OUTPUT);
     digitalWrite(BUS_CTRL,0);
     digitalWrite(POW_CTRL,0);     
     delayMicroseconds(1000);
     pinMode(POW_CTRL,OUTPUT);
     //digitalWrite(POW_CTRL,1); 
     while (!send_usbkey());
     delayMicroseconds(5000);  
     cnt++;
   }
 }
 else
 {
 digitalWrite(BUS_CTRL,answer);      
 digitalWrite(POW_CTRL,0);            // состояние ключа шины после принятия ответа
 digitalWrite(LED, answer); //LED  
 }
}