Registers¶

type
  Registers = packed record
    case i : Integer of
      0: (
        ax : Word;
        f1 : Word;
        bx : Word;
        f2 : Word;
        cx : Word;
        f3 : Word;
        dx : Word;
        f4 : Word;
        bp : Word;
        f5 : Word;
        si : Word;
        f51 : Word;
        di : Word;
        f6 : Word;
        ds : Word;
        f7 : Word;
        es : Word;
        f8 : Word;
        flags : Word;
        fs : Word;
        gs : Word;
      );
      1: (
        al : Byte;
        ah : Byte;
        f9 : Byte;
        f10 : Byte;
        bl : Byte;
        bh : Byte;
        f11 : Byte;
        f12 : Byte;
        cl : Byte;
        ch : Byte;
        f13 : Byte;
        f14 : Byte;
        dl : Byte;
        dh : Byte;
      );
      2: (
        eax : LongInt;
        ebx : LongInt;
        ecx : LongInt;
        edx : LongInt;
        ebp : LongInt;
        esi : LongInt;
        edi : LongInt;
      );
  end;