anchor.diff:     Res = <<_:1, SignBit:1, _/bits>> =
      case (Value >= 0) of
         true when Nullable == true ->
  -         encode_number_aux(Value + 1, <<1:1>>);
  +         encode_number_aux(Value + 1);
         _ ->
  -         encode_number_aux(Value, <<1:1>>)
  +         encode_number_aux(Value)
      end,
      case Value >= 0 of
        true when SignBit == 1 ->
  
positive.code: 
  %% encode number
  
  encode_number_aux(0, <<1:1>>) ->
     <<2#10000000:8>>;
  encode_number_aux(0, _) ->
  
negative.code: encode_uint(null, _) ->
     <<2#10000000:8>>;
  encode_uint(Value, false) ->
     encode_number_aux(Value);
  encode_uint(Value, true) ->
     encode_number_aux(Value + 1).
  
  %% encode int
  
  