anchor.diff:    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('SPISetSpeed', @Script_SPISetSpeed);
  +  PC.SetFunction('SPIEnterProgMode', @Script_SPIEnterProgMode);
  +  PC.SetFunction('SPIExitProgMode', @Script_SPIExitProgMode);
     PC.SetFunction('SPIRead', @Script_SPIRead);
     PC.SetFunction('SPIWrite', @Script_SPIWrite);
     PC.SetFunction('SPIReadToEditor', @Script_SPIReadToEditor);
  
positive.code:   Result := true;
  end;
  
  {Script SetSPISpeed(speed): boolean;
   Устанавливает частоту SPI
   Если частота не установлена возвращает false
   Игнорируется для CH341}
  function Script_SetSPISpeed(Sender:TObject; var A:TVarList; var R:TVar) : boolean;
  var speed: byte;
  begin
    if A.Count < 1 then Exit(false);
  
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.
  