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