anchor.diff:      property HasConflicts: Boolean read GetConflictState;
     published
       { FLAGS }
  -    property FlagCF: TX86FlagValue read FCF write SetCF default fvUnused;
  -    property FlagPF: TX86FlagValue read FPF write SetPF default fvUnused;
  -    property FlagAF: TX86FlagValue read FAF write SetAF default fvUnused;
  -    property FlagZF: TX86FlagValue read FZF write SetZF default fvUnused;
  -    property FlagSF: TX86FlagValue read FSF write SetSF default fvUnused;
  -    property FlagTF: TX86FlagValue read FTF write SetTF default fvUnused;
  -    property FlagIF: TX86FlagValue read FIF write SetIF default fvUnused;
  -    property FlagDF: TX86FlagValue read FDF write SetDF default fvUnused;
  -    property FlagOF: TX86FlagValue read FOF write SetOF default fvUnused;
  +    property FlagCF: TX86FlagValue index 0 read GetFlagValue write SetFlagValue default fvUnused;
  +    property FlagPF: TX86FlagValue index 1 read GetFlagValue write SetFlagValue default fvUnused;
  +    property FlagAF: TX86FlagValue index 2 read GetFlagValue write SetFlagValue default fvUnused;
  +    property FlagZF: TX86FlagValue index 3 read GetFlagValue write SetFlagValue default fvUnused;
  +    property FlagSF: TX86FlagValue index 4 read GetFlagValue write SetFlagValue default fvUnused;
  +    property FlagTF: TX86FlagValue index 5 read GetFlagValue write SetFlagValue default fvUnused;
  +    property FlagIF: TX86FlagValue index 6 read GetFlagValue write SetFlagValue default fvUnused;
  +    property FlagDF: TX86FlagValue index 7 read GetFlagValue write SetFlagValue default fvUnused;
  +    property FlagOF: TX86FlagValue index 8 read GetFlagValue write SetFlagValue default fvUnused;
  +    property FlagIOPL: TX86FlagValue index 9 read GetFlagValue write SetFlagValue default fvUnused;
  +    property FlagNT: TX86FlagValue index 10 read GetFlagValue write SetFlagValue default fvUnused;
       { EFLAGS }
  -    property FlagRF: TX86FlagValue read FRF write SetRF default fvUnused;
  -    property FlagVM: TX86FlagValue read FVM write SetVM default fvUnused;
  -    property FlagAC: TX86FlagValue read FAC write SetAC default fvUnused;
  -    property FlagVIF: TX86FlagValue read FVIF write SetVIF default fvUnused;
  -    property FlagVIP: TX86FlagValue read FVIP write SetVIP default fvUnused;
  -    property FlagID: TX86FlagValue read FID write SetID default fvUnused;
  +    property FlagRF: TX86FlagValue index 11 read GetFlagValue write SetFlagValue default fvUnused;
  +    property FlagVM: TX86FlagValue index 12 read GetFlagValue write SetFlagValue default fvUnused;
  +    property FlagAC: TX86FlagValue index 13 read GetFlagValue write SetFlagValue default fvUnused;
  +    property FlagVIF: TX86FlagValue index 14 read GetFlagValue write SetFlagValue default fvUnused;
  +    property FlagVIP: TX86FlagValue index 15 read GetFlagValue write SetFlagValue default fvUnused;
  +    property FlagID: TX86FlagValue index 16 read GetFlagValue write SetFlagValue default fvUnused;
     end;
   
     {TEVEXEncodingContext = (
  
positive.code:         Include(RegsRead, regEFLAGS);
        end;
      end;
      if (F[I]^ in [fvModified, fvReset, fvSet, fvUndefined, fvPriorValue]) then
      begin
        if (I < 9) then
        begin
  
negative.code:   end;
  end;
  
  procedure TX86Flags.SetFlagValue(Index: Integer; const Value: TX86FlagValue);
  var
    Flag: PX86FlagValue;
  begin
    Flag := GetFlagById(Index);
    if (Flag^ <> Value) then
    begin
      Flag^ := Value;
      Changed;
    end;
  end;
  