fpc/tests/webtbs/tw0925.pp

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