Подскажите (Прерывание ассемблера в Паскале)

   if Enable_Assembler_code = false then
    begin
     gettime(hour, minute, second, sec00);
     ahour:=hour;
     aminute:=minute;
     asecond:=second;
     asec00:=sec00;
    end
   else
    begin
asm
    mov ah, 0
    int $16
 
    mov ah,$2C;{Считывание времени из BIOS.}
    int $21
 
    XCHG ahour, ch;{Обмен значениями.}
    XCHG aminute, cl
    XCHG asecond, dh
    XCHG asec00, dl
end;

 if Enable_Assembler_code = false then
     gettime(ahour, aminute, asecond, asec00)
   else
asm
        mov ah,$2C;{Считывание времени из DOS.}
        int $21
 
        mov byte ptr ahour, ch;
        mov byte ptr aminute, cl
        mov byte ptr asecond, dh
        mov byte ptr asec00, dl
end;

var tic:longint absolute $0:$046c;

var
 t:longint absolute 0:$46c;
    start,finish:longint;
begin
 start:=t;
 readln;
 finish:=t;
 writeln('Тики = ',finish-start,'  Время = ',(finish-start)/18.2:0:3);
 readln
end.