anchor.diff:  end;
   
   function TPCOperation.GetOpReference: TOpReference;
  -  // XXXXXXXXX
     // Described on PIP-0015 by Herman Schoenfeld
     // Will return a 64 bit value composed by SignerAccount (first 4 bytes) and n_Operation (last 4 bytes)
     // Will allow to quick search an Operation in a TOperationsHashTree object
   begin
     Result := ((UInt64(SignerAccount) SHL 32) OR UInt64(N_Operation));
  +end;
  +
  +class function TPCOperation.GetOpReferenceAccount(const opReference: TOpReference): Cardinal;
  +begin
  +  Result := Cardinal(opReference SHR 32);
  +end;
  +
  +class function TPCOperation.GetOpReferenceN_Operation(const opReference: TOpReference): Cardinal;
  +begin
  +  Result := Cardinal(opReference);
   end;
   
   procedure TPCOperation.SignerAccounts(list: TList);
  
positive.code:     function IndexOfOperation(op : TPCOperation) : Integer;
      function CountOperationsBySameSignerWithoutFee(account_number : Cardinal) : Integer;
      Procedure Delete(index : Integer);
      Property OnChanged : TNotifyEvent read FOnChanged write FOnChanged;
    End;
  
  
negative.code:   Index := L;
  end;
  
  function TOperationsHashTree.FindOrderedByOpReference(lockedThreadList: TList; const Value: TOpReference; var Index: Integer): Boolean;
  var L, H, I : Integer;
    iLockedThreadListPos : PtrInt;
    C : Int64;
    P : POperationHashTreeReg;
  begin
    Result := False;
    L := 0;
    H := FListOrderedByOpReference.Count - 1;
    while L <= H do
    begin
      I := (L + H) shr 1;
      iLockedThreadListPos := PtrInt(FListOrderedByOpReference[I]);
      C := Int64(POperationHashTreeReg(lockedThreadList[iLockedThreadListPos])^.Op.GetOpReference) - Int64(Value);
      if C < 0 then L := I + 1 else
      begin
        H := I - 1;
        if C = 0 then
        begin
          Result := True;
          L := I;
        end;
      end;
    end;
    Index := L;
  end;
  
  function TOperationsHashTree.LoadOperationsHashTreeFromStream(Stream: TStream; LoadingFromStorage : Boolean; LoadProtocolVersion : Word; PreviousUpdatedBlocks : TAccountPreviousBlockInfo; var errors: AnsiString): Boolean;
  Var c, i: Cardinal;
    OpType: Cardinal;
  