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:   wBuffer: array of byte;
    dummy: byte;
  begin
    //Low(value) = 2; Адрес устройства
    //Hi(value)  = 3; Посылать ли первый(lo) или второй(hi) байт
    //Lo(index)  = 4; Lo адрес
    //Hi(index)  = 5; Hi адрес
  
  
negative.code:     value := DevAddr;
      index := Word(Address);
      SetLength(wBuffer, 2);
      wBuffer[0] := hi(word(index));
      wBuffer[1] := lo(word(index));
    end;
  
    address_size := Length(wBuffer);
  