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