blob: 15970a8df41a59e1267753d022b1ae058ce2689a (
plain)
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
|
{ %CPU=i386 }
{ %OPT=-Cg- }
{$asmmode intel}
const
Count=100;
type
trec=record
a,b : longint;
end;
var
r : trec;
begin
asm
xor esi,esi
mov [esi+r],eax
lea esi,r
mov [esi+2+trec.b],eax
mov trec[esi].b,eax
mov eax,trec.b+2
mov trec[esi].b+2,eax
mov eax,Count
mov eax,Count*100
{$ifdef go32v2}
mov fs:[0468+trec.b],eax
mov fs:[046ch],eax
{$endif}
end;
end.
|
