Registers

type Registers = packed record

  case i: Integer of

    0: (

        ax: Word;

AX register.

        f1: Word;

F1 register.

        bx: Word;

BX register.

        f2: Word;

F2 register.

        cx: Word;

CX register.

        f3: Word;

F3 register.

        dx: Word;

DX register.

        f4: Word;

F4 register.

        bp: Word;

BP register.

        f5: Word;

F5 register.

        si: Word;

SI register.

        f51: Word;

F51 register.

        di: Word;

DI register.

        f6: Word;

F6 register.

        ds: Word;

DS register.

        f7: Word;

F7 register.

        es: Word;

ES register.

        f8: Word;

F8 register.

        flags: Word;

Flags.

        fs: Word;

FS register.

        gs: Word;

GS register.

      );

    1: (

        al: Byte;

AL register.

        ah: Byte;

AH register.

        f9: Byte;

F9 register.

        f10: Byte;

F10 register.

        bl: Byte;

BL register.

        bh: Byte;

BH register.

        f11: Byte;

F11 register.

        f12: Byte;

F12 register.

        cl: Byte;

CL register.

        ch: Byte;

CH register.

        f13: Byte;

F13 register.

        f14: Byte;

F14 register.

        dl: Byte;

DL register.

        dh: Byte;

DH register.

      );

    2: (

        eax: LongInt;

EAX register.

        ebx: LongInt;

EBX register.

        ecx: LongInt;

ECX register.

        edx: LongInt;

EDX register.

        ebp: LongInt;

EBP register.

        esi: LongInt;

ESI register.

        edi: LongInt;

EDI register.

      );

end;