#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 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() {
  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(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,answer);            // состояние ключа шины после принятия ответа
       digitalWrite(LED, answer); //LED  
    }
}