anchor.diff:      value := DevAddr;
       index := Word(Address);
       SetLength(wBuffer, 2);
  -    wBuffer[0] := hi(index);
  -    wBuffer[1] := lo(index);
  +    wBuffer[0] := hi(word(index));
  +    wBuffer[1] := lo(word(index));
     end;
   
     if AddrType = I2C_ADDR_TYPE_2BYTE_1BIT then
  
positive.code: end;
  
  //Возвращает сколько байт прочитали
  function UsbAspI2C_Read(DevAddr, AddrType: byte; Address: longword;var buffer: array of byte; bufflen: integer): integer;
  var
    value, index: Integer;
    wBuffer: array of byte;
  
negative.code:     value := DevAddr;
      index := Word(Address);
      SetLength(wBuffer, 2);
      wBuffer[0] := hi(word(index));
      wBuffer[1] := lo(word(index));
    end;
  
    //value адрес устройства
    //index адреса памяти
    result := AsProgrammer.Programmer.I2CReadWrite(value, Length(wBuffer), wBuffer, bufflen, buffer)-Length(wBuffer);
  end;
  
  