anchor.diff:      UsbAsp95_WriteSR(hUSBDev, sreg); //Сбрасываем регистр
   
       //Пока отлипнет ромка
  -    if UsbAsp25_Busy(hUSBDev) then
  -    begin
  -      LogPrint(STR_USER_CANCEL, clRed);
  -      Exit;
  +    while UsbAsp25_Busy(hUSBDev) do
  +    begin
  +      Application.ProcessMessages;
  +      if MainForm.ButtonCancel.Tag <> 0 then
  +      begin
  +        LogPrint(STR_USER_CANCEL, clRed);
  +        Exit;
  +      end;
       end;
   
       UsbAsp95_ReadSR(hUSBDev, sreg); //Читаем регистр
  
positive.code: unit main;
  
  //TODO: Облагородить лог
  
  //TODO: at45 установка размера странцы
  //TODO: at45 Проверка размера страницы перед операциями
  
negative.code: 
    if ComboSPICMD.ItemIndex = SPI_CMD_25 then
    begin
      UsbAsp25_ReadSR(hUSBDev, sreg); //Читаем регистр
      UsbAsp25_ReadSR(hUSBDev, sreg2, $35);
      LogPrint(STR_OLD_SREG+IntToBin(sreg, 8)+'(0x'+(IntToHex(sreg, 2)+'), ')
                                           +IntToBin(sreg2, 8)+'(0x'+(IntToHex(sreg2, 2)+')'));
  