anchor.diff:      UsbAsp25_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;
   
       LogPrint(STR_NEW_SREG+IntToBin(sreg, 8));
  
positive.code:     BytesWrite := BytesWrite + UsbAsp95_Write(hUSBDev, ChipSize, Address, datachunk, PageSize);
  
      if not MainForm.MenuIgnoreBusyBit.Checked then  //Игнорировать проверку
        if UsbAsp25_Busy(hUSBDev) then
        begin
          LogPrint(STR_USER_CANCEL , clRed);
          Break;
        end;
  
      if MainForm.MenuAutoCheck.Checked then
  
negative.code:     UsbAsp95_WriteSR(hUSBDev, sreg); //Устанавливаем регистр
  
      //Пока отлипнет ромка
      while UsbAsp25_Busy(hUSBDev) do
      begin
        Application.ProcessMessages;
        if MainForm.ButtonCancel.Tag <> 0 then
        begin
          LogPrint(STR_USER_CANCEL, clRed);
          Exit;
        end;
      end;
  
      LogPrint(STR_NEW_SREG+IntToBin(sreg, 8));
    end;
  
  