mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-30 11:34:39 +02:00
23 lines
379 B
ObjectPascal
23 lines
379 B
ObjectPascal
{$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. |