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;