mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-16 01:50:38 +01:00
28 lines
325 B
ObjectPascal
28 lines
325 B
ObjectPascal
{$asmmode intel}
|
|
{$inline on}
|
|
|
|
procedure DoIt;
|
|
begin
|
|
Writeln('DoIt was called');
|
|
end;
|
|
|
|
const
|
|
CB : word = 5;
|
|
|
|
procedure A(B: word); assembler; inline;
|
|
asm
|
|
MOV AX,B
|
|
CMP AX,[CB]
|
|
JZ @OK
|
|
CLI
|
|
MOV [CB],AX
|
|
STI
|
|
CALL DoIt
|
|
@OK: { <-- creates labels with same name }
|
|
end;
|
|
|
|
begin
|
|
A(5);
|
|
A(8);
|
|
end.
|