mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:08:22 +02:00
24 lines
325 B
ObjectPascal
24 lines
325 B
ObjectPascal
{ %CPU=i386 }
|
|
{$asmmode intel}
|
|
|
|
var
|
|
a : array[0..5] of byte;
|
|
|
|
function f : byte;assembler;
|
|
|
|
asm
|
|
mov ebx,offset a
|
|
mov ecx,0
|
|
mov al,[ebx+4*ecx]
|
|
end;
|
|
|
|
begin
|
|
fillchar(a,5,255);
|
|
a[0]:=0;
|
|
if f<>0 then
|
|
begin
|
|
writeln('Scale factor problem in asmmode intel!');
|
|
halt(1);
|
|
end;
|
|
end.
|