trealregs

Type
trealregs = record
case Integer of
1: (
  EDI : LongInt;
  ESI : LongInt;
  EBP : LongInt;
  Res : LongInt;
  EBX : LongInt;
  EDX : LongInt;
  ECX : LongInt;
  EAX : LongInt;
  Flags : Word;
  ES : Word;
  DS : Word;
  FS : Word;
  GS : Word;
  IP : Word;
  CS : Word;
  SP : Word;
  SS : Word;
);
2: (
  DI : Word;
  DI2 : Word;
  SI : Word;
  SI2 : Word;
  BP : Word;
  BP2 : Word;
  R1 : Word;
  R2 : Word;
  BX : Word;
  BX2 : Word;
  DX : Word;
  DX2 : Word;
  CX : Word;
  CX2 : Word;
  AX : Word;
  AX2 : Word;
);
3: (
  stuff : Array[1..4] of LongInt;
  BL : Byte;
  BH : Byte;
  BL2 : Byte;
  BH2 : Byte;
  DL : Byte;
  DH : Byte;
  DL2 : Byte;
  DH2 : Byte;
  CL : Byte;
  CH : Byte;
  CL2 : Byte;
  CH2 : Byte;
  AL : Byte;
  AH : Byte;
  AL2 : Byte;
  AH2 : Byte;
);
4: (
  RealEDI : LongInt;
  RealESI : LongInt;
  RealEBP : LongInt;
  RealRES : LongInt;
  RealEBX : LongInt;
  RealEDX : LongInt;
  RealECX : LongInt;
  RealEAX : LongInt;
  RealFlags : Word;
  RealES : Word;
  RealDS : Word;
  RealFS : Word;
  RealGS : Word;
  RealIP : Word;
  RealCS : Word;
  RealSP : Word;
  RealSS : Word;
);
end