anchor.diff:  unit main;
  -
  -//TODO: Облагородить лог
   
   //TODO: at45 установка размера странцы
   //TODO: at45 Проверка размера страницы перед операциями
  
positive.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)+')'));
  
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;
  
      UsbAsp95_ReadSR(hUSBDev, sreg); //Читаем регистр
  