mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-01 00:53:44 +02:00
15 lines
175 B
ObjectPascal
15 lines
175 B
ObjectPascal
{ %CPU=i386 }
|
|
|
|
{$asmmode intel}
|
|
|
|
PROCEDURE Cursor(Form: word);assembler;
|
|
asm
|
|
mov cx,word ptr[Form]
|
|
and cx,1F1Fh
|
|
mov ah,1
|
|
end;
|
|
|
|
begin
|
|
Cursor($11F);
|
|
end.
|