anchor.diff:    Result := true;
   end;
   
  -{Script EnterProgModeSPI();
  +{Script SPIEnterProgMode();
    Инициализирует состояние пинов для SPI и устанавливает скорость}
  -function Script_EnterProgModeSPI(Sender:TObject; var A:TVarList) : boolean;
  +function Script_SPIEnterProgMode(Sender:TObject; var A:TVarList) : boolean;
   begin
     EnterProgMode25(hUSBdev);
     Result := true;
   end;
   
  -{Script ExitProgModeSPI();
  +{Script SPIExitProgMode();
    Отключает пины SPI}
  -function Script_ExitProgModeSPI(Sender:TObject; var A:TVarList) : boolean;
  +function Script_SPIExitProgMode(Sender:TObject; var A:TVarList) : boolean;
   begin
     ExitProgMode25(hUSBdev);
     Result := true;
  
positive.code:   PC.SetFunction('GetArrayItem', @Script_GetArrayItem);
    PC.SetFunction('SetArrayItem', @Script_SetArrayItem);
  
    PC.SetFunction('SetSPISpeed', @Script_SetSPISpeed);
    PC.SetFunction('EnterProgModeSPI', @Script_EnterProgModeSPI);
    PC.SetFunction('ExitProgModeSPI', @Script_ExitProgModeSPI);
    PC.SetFunction('SPIRead', @Script_SPIRead);
    PC.SetFunction('SPIWrite', @Script_SPIWrite);
    PC.SetFunction('SPIReadToEditor', @Script_SPIReadToEditor);
  
negative.code: 
  procedure SetScriptVars();
  begin
    ScriptEngine.SetValue('_IC_Name', CurrentICParam.Name);
    ScriptEngine.SetValue('_IC_Size', CurrentICParam.Size);
    ScriptEngine.SetValue('_IC_Page', CurrentICParam.Page);
    ScriptEngine.SetValue('_IC_SpiCmd', CurrentICParam.SpiCmd);
    ScriptEngine.SetValue('_IC_MWAddrLen', CurrentICParam.MWAddLen);
    ScriptEngine.SetValue('_IC_I2CAddrType', CurrentICParam.I2CAddrType);
  end;
  
  end.
  