anchor.diff:    SetValue(AValue, 32);
   end;
   
  -procedure TDbgData.SetUInt64(const AValue: QWord); 
  +procedure TDbgData.SetUInt64(const AValue: QWord);
   begin
     SetValue(AValue, 64);
   end;
  
positive.code:   SetValue(AValue, 8);
  end;
  
  procedure TDbgData.SetUInt8(const AValue: Byte); 
  begin
    SetValue(AValue, 8);
  end;
  
negative.code: 
  { TDbgRegister }
  
  function TDbgData.GetUInt8: Byte;
  begin
    GetValue(Result, 8);
  end;
  