Работа с ASM в FPC

Есть ассемблер код для Borland Turbo Pascal:

procedure cursOFF; Assembler;
asm
    mov ah,01;
    mov cx,$2000;
    int 10h;
end;

procedure cursON; Assembler;
asm
    mov ah,01;
    mov cx,$0fff;
    int 10h;
end;

Эти процедуры используются для скрытия и показа курсора. При попытке компиляции программы, которая использует вышеприведенный код, в компиляторе FreePascal – возникает куча ошибок. Как я понял, для внедрения кода asm в FreePascal используются некоторые особенности. Помогите адаптировать код для работы в FreePascal.
Пы.Сы.: Сори что беспокою столь древним программированием, решить задачу оч. нуна.