Пример функции, которая делает задержку Pascal DOS по абсолютному адресу, без обращений к прерываниям

delay.pas

procedure mydelay(ms:Integer) ;
var x,tick,cnt:longint ;
    systimer:longint absolute $0040 : $006c ;
begin
  tick:=Round(ms/55) ;
  x:=systimer ;
  cnt:=0 ;
  while systimer<x+tick do Inc(cnt);
  { Write(cnt, ' ') ; }
end ;