anchor.diff:        Try
           LList := TList<Cardinal>.Create;
           try
  +          // Mempool
  +          if ABlock_number>=ASender.Node.Bank.BlocksCount then begin
  +            // Search mempool
  +            LMemPool := ASender.Node.LockMempoolRead;
  +            try
  +              LMemPool.OperationsHashTree.GetOperationsAffectingAccount(ASearchedAccount_number,LList);
  +              LFound_in_block := False;
  +              // Reverse order:
  +              for i := LList.Count - 1 downto 0 do begin
  +                LOperation := LMemPool.Operation[LList.Items[i]];
  +                if LOperation is TOpData then begin
  +                  //
  +                  LOpData := TOpData( LOperation );
  +                  if DoAddOpData(LOpData,LFoundCounter,LOperationResume) then begin
  +                    LOperationResume.NOpInsideBlock:=LList.Items[i];
  +                    LOperationResume.Block:=ASender.Node.Bank.BlocksCount;
  +                    AOperationsResumeList.Add(LOperationResume);
  +                    LFound_in_block := True;
  +                  end;
  +                end;
  +              end; // For LList...
  +              If (Not LFound_in_block) And (AFirst_Block_Is_Unknown) then begin
  +                ABlock_number := ASender.Node.Bank.BlocksCount - 1;
  +              end else begin
  +                ABlock_number := LMemPool.PreviousUpdatedBlocks.GetPreviousUpdatedBlock(ASearchedAccount_number,ASender.Node.Bank.BlocksCount - 1);
  +              end;
  +            finally
  +              ASender.Node.UnlockMempoolRead;
  +            end;
  +          end;
  +
  +
  +
             LLast_block_number := ABlock_number+1;
             while (LLast_block_number>ABlock_number) And (AAct_depth>0)
               And (ABlock_number >= (ASearchedAccount_number DIV CT_AccountsPerBlock))
  
positive.code:         end;
        end;
  
      var LOpComp : TPCOperationsComp;
        LOperation : TPCOperation;
        LOpData : TOpData;
        LOperationResume : TOperationResume;
  
negative.code:   LStartOperation := AInputParams.AsInteger('start',0);
    LMaxOperations := AInputParams.AsInteger('max',100);
    if AInputParams.IndexOfName('startblock')>=0 then begin
      LStartBlock := AInputParams.AsInteger('startblock',ASender.Node.Bank.BlocksCount);
      LFirst_Block_Is_Unknown := True;
    end else begin
      if not ASender.RPCServer.GetMempoolAccount(LSearchedAccount_number,LAccount) then begin
  