Emulation/Dxbx
1
0
Fork 0
mirror of https://github.com/PatrickvL/Dxbx.git synced 2024-05-31 19:17:53 -04:00
Code Issues Packages Projects Releases Wiki Activity
Dxbx/Libraries/Pascal/BeaEngine/BeaEngine.pas

354 lines
9.1 KiB
ObjectPascal
Raw Blame History

// ====================================================================
//
// Delphi Static lib for BeaEngine 3.1.0
//
// Date: 2009-Nov-5
// v0.4 support Delphi7 - Delphi2010
// ====================================================================
// BeaEngine.pas convert by Vince
// ====================================================================
// [+] BranchTaken,BranchNotTaken added in TPREFIXINFO v3.1.0
unit BeaEngine;
// ====================================================================
// Default link type is static lib
// comment below line to switch link with DLL
// ====================================================================
//{$DEFINE USEDLL}
// ====================================================================
// Copyright 2006-2009, BeatriX
// File coded by BeatriX
//
// This file is part of BeaEngine.
//
// BeaEngine is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// BeaEngine is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with BeaEngine. If not, see <http://www.gnu.org/licenses/>.
interface
uses Windows,SysUtils;
const
INSTRUCT_LENGTH = 64;
type
TREX_Struct = packed record
W_ : BYTE;
R_ : BYTE;
X_ : BYTE;
B_ : BYTE;
state : BYTE;
end;
type
TPREFIXINFO = packed record
Number : longint;
NbUndefined : longint;
LockPrefix : BYTE;
OperandSize : BYTE;
AddressSize : BYTE;
RepnePrefix : BYTE;
RepPrefix : BYTE;
FSPrefix : BYTE;
SSPrefix : BYTE;
GSPrefix : BYTE;
ESPrefix : BYTE;
CSPrefix : BYTE;
DSPrefix : BYTE;
BranchTaken : BYTE; //v3.1.0 added 2009-11-05
BranchNotTaken : BYTE; //v3.1.0 added 2009-11-05
REX : TREX_Struct;
end;
type
TEFLStruct = packed record
OF_ : BYTE;
SF_ : BYTE;
ZF_ : BYTE;
AF_ : BYTE;
PF_ : BYTE;
CF_ : BYTE;
TF_ : BYTE;
IF_ : BYTE;
DF_ : BYTE;
NT_ : BYTE;
RF_ : BYTE;
alignment : BYTE;
end;
type
TMEMORYTYPE = packed record
BaseRegister : longint;
IndexRegister : longint;
Scale : longint;
Displacement : int64;
end;
type
TINSTRTYPE = packed record
Category : longint; // INSTRUCTION_TYPE
Opcode : longint;
Mnemonic : array[0..15] of AnsiChar;
BranchType : longint; // BRANCH_TYPE
Flags : TEFLStruct;
AddrValue : int64;
Immediat : int64;
ImplicitModifiedRegs : longint;
end;
type
TARGTYPE = packed record
ArgMnemonic : array[0..31] of AnsiChar;
ArgType : longint; // ARGUMENTS_TYPE
ArgSize : longint;
AccessMode : longint; // READ / WRITE ?
Memory : TMEMORYTYPE;
SegmentReg : longint;
end;
type
_Disasm = packed record
EIP : int64;
VirtualAddr : int64;
SecurityBlock : longint;
CompleteInstr : array[0..(INSTRUCT_LENGTH)-1] of AnsiChar;
Archi : longint;
Options : longint;
Instruction : TINSTRTYPE;
Argument1 : TARGTYPE;
Argument2 : TARGTYPE;
Argument3 : TARGTYPE;
Prefix : TPREFIXINFO;
end;
TDISASM = _Disasm;
PDISASM = ^_Disasm;
LPDISASM = ^_Disasm;
const
ESReg = 1;
DSReg = 2;
FSReg = 3;
GSReg = 4;
CSReg = 5;
SSReg = 6;
InvalidPrefix = 4;
SuperfluousPrefix = 2;
NotUsedPrefix = 0;
MandatoryPrefix = 8;
InUsePrefix = 1;
type
INSTRUCTION_TYPE = Longint;
Const
GENERAL_PURPOSE_INSTRUCTION = $10000;
FPU_INSTRUCTION = $20000;
MMX_INSTRUCTION = $40000;
SSE_INSTRUCTION = $80000;
SSE2_INSTRUCTION = $100000;
SSE3_INSTRUCTION = $200000;
SSSE3_INSTRUCTION = $400000;
SSE41_INSTRUCTION = $800000;
SSE42_INSTRUCTION = $1000000;
SYSTEM_INSTRUCTION = $2000000;
VM_INSTRUCTION = $4000000;
UNDOCUMENTED_INSTRUCTION = $8000000;
AMD_INSTRUCTION = $10000000;
ILLEGAL_INSTRUCTION = $20000000;
INCOMPATIBLE_TYPE = $80000000;
DATA_TRANSFER = $1;
ARITHMETIC_INSTRUCTION = 2;
LOGICAL_INSTRUCTION = 3;
SHIFT_ROTATE = 4;
BIT_BYTE = 5;
CONTROL_TRANSFER = 6;
STRING_INSTRUCTION = 7;
InOutINSTRUCTION = 8;
ENTER_LEAVE_INSTRUCTION = 9;
FLAG_CONTROL_INSTRUCTION = 10;
SEGMENT_REGISTER = 11;
MISCELLANEOUS_INSTRUCTION = 12;
COMPARISON_INSTRUCTION = 13;
LOGARITHMIC_INSTRUCTION = 14;
TRIGONOMETRIC_INSTRUCTION = 15;
UNSUPPORTED_INSTRUCTION = 16;
LOAD_CONSTANTS = 17;
FPUCONTROL = 18;
STATE_MANAGEMENT = 19;
CONVERSION_INSTRUCTION = 20;
SHUFFLE_UNPACK = 21;
PACKED_SINGLE_PRECISION = 22;
SIMD128bits = 23;
SIMD64bits = 24;
CACHEABILITY_CONTROL = 25;
FP_INTEGER_CONVERSION = 26;
SPECIALIZED_128bits = 27;
SIMD_FP_PACKED = 28;
SIMD_FP_HORIZONTAL = 29;
AGENT_SYNCHRONISATION = 30;
PACKED_ALIGN_RIGHT = 31;
PACKED_SIGN = 32;
PACKED_BLENDING_INSTRUCTION = 33;
PACKED_TEST = 34;
PACKED_MINMAX = 35;
HORIZONTAL_SEARCH = 36;
PACKED_EQUALITY = 37;
STREAMING_LOAD = 38;
INSERTION_EXTRACTION = 39;
DOT_PRODUCT = 40;
SAD_INSTRUCTION = 41;
ACCELERATOR_INSTRUCTION = 42; // crc32, popcnt (sse4.2)
ROUND_INSTRUCTION = 43;
type
EFLAGS_STATES = Longint;
Const
TE_ = 1;
MO_ = 2;
RE_ = 4;
SE_ = 8;
UN_ = $10;
PR_ = $20;
type
BRANCH_TYPE = Longint;
Const
JO = 1;
JC = 2;
JE = 3;
JA = 4;
JS = 5;
JP = 6;
JL = 7;
JG = 8;
JB = 9;
JECXZ = 10;
JmpType = 11;
CallType = 12;
RetType = 13;
JNO = -(1);
JNC = -(2);
JNE = -(3);
JNA = -(4);
JNS = -(5);
JNP = -(6);
JNL = -(7);
JNG = -(8);
JNB = -(9);
type
ARGUMENTS_TYPE = Longint;
Const
NO_ARGUMENT = $10000000;
REGISTER_TYPE = $20000000;
MEMORY_TYPE = $40000000;
CONSTANT_TYPE = $80000000;
MMX_REG = $10000;
GENERAL_REG = $20000;
FPU_REG = $40000;
SSE_REG = $80000;
CR_REG = $100000;
DR_REG = $200000;
SPECIAL_REG = $400000;
MEMORY_MANAGEMENT_REG = $800000;
SEGMENT_REG = $1000000;
RELATIVE_ = $4000000;
ABSOLUTE_ = $8000000;
READ = $1;
WRITE = $2;
REG0 = $1;
REG1 = $2;
REG2 = $4;
REG3 = $8;
REG4 = $10;
REG5 = $20;
REG6 = $40;
REG7 = $80;
REG8 = $100;
REG9 = $200;
REG10 = $400;
REG11 = $800;
REG12 = $1000;
REG13 = $2000;
REG14 = $4000;
REG15 = $8000;
type
SPECIAL_INFO = Longint;
Const
UNKNOWN_OPCODE = -(1);
OUT_OF_BLOCK = 0;
{ === mask = 0xff }
NoTabulation = $00000000;
Tabulation = $00000001;
{ === mask = 0xff00 }
MasmSyntax = $00000000;
GoAsmSyntax = $00000100;
NasmSyntax = $00000200;
ATSyntax = $00000400;
{ === mask = 0xff0000 }
PrefixedNumeral = $00010000;
SuffixedNumeral = $00000000;
{ === mask = 0xff000000 }
ShowSegmentRegs = $01000000;
function Disasm(var aDisAsm:TDISASM):longint;stdcall;
implementation
{$IFNDEF USEDLL}
{$L BeaEngineLib.obj}
{$ENDIF}
function _strcpy(dest, src: PAnsiChar): PAnsiChar;cdecl;
begin
Result := SysUtils.StrCopy(dest, src);
end;
function _strlen(s: PAnsiChar): Cardinal; cdecl;
begin
Result := SysUtils.StrLen(s);
end;
function _memset(Destination: Pointer; C: Integer; Count: Cardinal): Pointer; cdecl;
begin
FillMemory(Destination, Count, C);
Result := Destination;
end;
function _sprintf(Buffer, Format: PAnsiChar):longint; varargs; cdecl; external 'User32.DLL' name 'wsprintfA';
{$IFDEF USEDLL}
function Disasm(var aDisAsm:TDISASM):longint;stdcall;external 'BeaEngine.DLL' index 1;
{$ELSE}
function Disasm(var aDisAsm:TDISASM):longint;stdcall;external;
{$ENDIF}
end.
Reference in a new issue View git blame Copy permalink