Проблеммы с резидентом., резидента на прерывание 9 вешаю. Опции

[Altair]

У меня такая проблемма:
я написал резидента, обработчик $9 прерывания, он у меня
к прерыванию 10h часто обращается (для работы с экраном) и 15h(для задержки)
И все это у меня зависает!
Что может вызывать зависание?

[virt]

а задержка на сколько нужна?

если на 1/18 секунду то можно так :

var timer:longint absolute $0:$046c;
    brtime:longint;

begin
   brtime:=timer+1;
   while timer<brtime do
end.

timer -- обновляется 18.2 раза в сек.
как сделать задержку в реальном режиме поменьше есть только одно предположение :
заводим переменную большую :longint например ,и в цикле выполнения чего-то там увеличиваем её значение. В начале узнаем тактовую частоту как-нить ,и потом берем коэффициент во сколько раз эта частота больше эталонной.