Вывод графики встроенный ассемблер Free Pascal

[иванлеон]

Есть такой код, компилируемый на Free Pascal

{$ASMMODE INTEL}
uses crt;

var
SaveMode:byte;

procedure SetVideoMode;assembler;
asm
mov ah,0Fh
int 10h
mov SaveMode,al

mov ah,0
mov al,13h
int 10h

end;

procedure RestoreVideoMode;assembler;
asm
mov ah,10h
int 16h

mov ah,0
mov al,SaveMode
int 10h
end;

begin
SetVideoMode;


RestoreVideoMode;

end.

По идее, он запоминает текущий графический режим, устанавливает другой, ждёт нажатия клавиши, восстанавливает старый, конец.
В результате выполнения (компилирует без ошибок) возникает ошибка - exitcode=216
Почему во Free Pascal не работает, а в Borland Pascal и Turbo Pascal все нормально?