fpcsrc/tests/webtbs/tw0925.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ %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.