1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
{ %cpu=i386 }
program tlea1;
{$ASMMODE intel}
{$define 16BITADDRSUPPORT}
procedure Fail;
begin
Writeln('Error!');
Halt(1);
end;
procedure TestO32A32;
var
res: DWord;
begin
Writeln('Testing LEA with 32-bit operand size and 32-bit address size...');
asm
mov ecx, 0deadbeefh
mov edi, 0abcdefedh
mov ebx, 055667788h
lea ebx, [ecx + edi * 8 + 12345678h]
mov res, ebx
end ['EBX', 'ECX', 'EDI'];
if res <> $4F5194CF then
Fail;
end;
procedure TestO16A32;
var
res: DWord;
begin
Writeln('Testing LEA with 16-bit operand size and 32-bit address size...');
asm
mov ecx, 0deadbeefh
mov edi, 0abcdefedh
mov ebx, 055667788h
lea bx, [ecx + edi * 8 + 12345678h]
mov res, ebx
end ['EBX', 'ECX', 'EDI'];
if res <> $556694CF then
Fail;
end;
{$ifdef 16BITADDRSUPPORT}
procedure TestO32A16;
var
res: DWord;
begin
Writeln('Testing LEA with 32-bit operand size and 16-bit address size...');
asm
mov ebx, 0deadbeefh
mov edi, 0abcdefedh
mov ecx, 055667788h
lea ecx, [bx + di + 1234h]
mov res, ecx
end ['EBX', 'ECX', 'EDI'];
if res <> $C110 then
Fail;
end;
procedure TestO16A16;
var
res: DWord;
begin
Writeln('Testing LEA with 16-bit operand size and 16-bit address size...');
asm
mov ebx, 0deadbeefh
mov edi, 0abcdefedh
mov ecx, 055667788h
lea cx, [bx + di + 1234h]
mov res, ecx
end ['EBX', 'ECX', 'EDI'];
if res <> $5566C110 then
Fail;
end;
{$endif 16BITADDRSUPPORT}
begin
TestO32A32;
TestO16A32;
{$ifdef 16BITADDRSUPPORT}
TestO32A16;
TestO16A16;
{$endif 16BITADDRSUPPORT}
Writeln('Success!');
end.
|
