anchor.diff:                  {$IFDEF TESTNET}
                   Storage.SaveBank;
                   {$ELSE}
  -                // To prevent continuous saving...
                   If (BlocksCount MOD (CT_BankToDiskEveryNBlocks*10))=0 then begin
                     Storage.SaveBank;
                   end;
  
positive.code:   r1 := copy(operationHash1,5,length(operationHash1)-4);
    r2 := copy(operationHash2,5,length(operationHash2)-4);
    b0 := TCrypto.HexaToRaw('00000000');
    Result := (BinStrComp(r1,r2)=0) // Both right parts must be equal
      AND ((BinStrComp(b1,b0)=0) Or (BinStrComp(b2,b0)=0) Or (BinStrComp(b1,b2)=0)); // b is 0 value or b1=b2 (b = block number)
  end;
  
  class function TPCOperation.FinalOperationHashAsHexa(const operationHash: TRawBytes): AnsiString;
  
negative.code:   begin
      I := (L + H) shr 1;
      iLockedThreadListPos := PtrInt(FListOrderedBySha256[I]);
      C := TBaseType.BinStrComp(POperationHashTreeReg(lockedThreadList[iLockedThreadListPos])^.Op.Sha256,Value);
      if C < 0 then L := I + 1 else
      begin
        H := I - 1;
  