mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 16:59:26 +02:00
25 lines
394 B
ObjectPascal
25 lines
394 B
ObjectPascal
{ %CPU=i386 }
|
|
{$asmmode intel}
|
|
|
|
{$ifdef go32v2}
|
|
PROCEDURE Cursor(Form: word);assembler;
|
|
asm
|
|
mov cx,word ptr[Form]
|
|
and cx,1F1Fh
|
|
mov ah,1
|
|
int 10h
|
|
end;
|
|
{$else not go32v2}
|
|
{ no interrupt call on other targets }
|
|
procedure cursor(form : word);assembler;
|
|
asm
|
|
mov cx,word ptr[Form]
|
|
and cx,1F1Fh
|
|
mov ah,1
|
|
end;
|
|
{$endif go32v2}
|
|
|
|
begin
|
|
Cursor($11F);
|
|
end.
|