mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 20:09:28 +02:00
33 lines
427 B
ObjectPascal
33 lines
427 B
ObjectPascal
{ %CPU=i8086 }
|
|
program tasmpublic3;
|
|
|
|
{$goto on}
|
|
{$asmmode intel}
|
|
|
|
label
|
|
test_gLoBaL_label;
|
|
|
|
var
|
|
codeseg_var: LongWord; external far name 'test_gLoBaL_label';
|
|
|
|
begin
|
|
asm
|
|
public test_gLoBaL_label
|
|
jmp @@skip
|
|
db 'some garbage here'
|
|
test_gLoBaL_label:
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
@@skip:
|
|
end;
|
|
if codeseg_var<>$90909090 then
|
|
begin
|
|
Writeln('Error!');
|
|
Halt(1);
|
|
end
|
|
else
|
|
Writeln('Ok!');
|
|
end.
|