anchor.diff:    #ptr{ offset=PtrOffset },
     #object{ offset=ObjOffset,
              segment=Segment }=O) ->
  +
       Pos = ObjOffset + PtrOffset,
   
       <<_:Pos/binary-unit:64,
  
positive.code: %% internal functions
  %% ===================================================================
  
  -record(ptr_ref, { offset, size, count, segment }).
  
  %% Lookup type in schema
  get_type(Type, #schema{ types=Ts }) ->
  
negative.code:       _:DataOffset/binary-unit:64,
        _:Bits/bits,
        Value:32/integer-little-unsigned,
        _/binary>> = Segment,
      Value;
  get_field(#data{ type=uint16,
                   offset=DataOffset,
                   bits=Bits },
            #object{ offset=ObjOffset,
                     segment=Segment }) ->
      <<_:ObjOffset/binary-unit:64,
        _:DataOffset/binary-unit:64,
        _:Bits/bits,
        Value:16/integer-little-unsigned,
        _/binary>> = Segment,
      Value;
  
  