Узнать процессорное время из MS-DOS приложения

Есть MS-DOS приложение, написано на Turbo Pascal 7.0. Запускается, естественно под Windows.
Требуется узнать, сколько точно времени процессор затратил на выполнение моего куска кода (написать модуль, выполняющий замеры и выводящий результат). Вариант с простым замером времени от начала выполнения куска до конца, не подходит, так как во время выполнения моей проги, винда тоже будет использовать процессор, и результат будет отличаться от чистого процессорного времени, потраченного именно на мою задачу на несколько секунд, что совершенно неприемлемо, если необходимая точность измерений = 1 мс.

 

В винде можно узнать сколько времени потратил процессор на выполнение конкретного потока. Посмотри такое время для твоего потока процесса NTVDM (NT Virtual DOS Machine)

 

Это у меня было сделано в виде отдельного приложения под винду, которое следило за нтвдм и считало его процессорное время, но тут надо сделать, чтобы в определенный момент времени (в начале выполнения кода) из программы в Паскале вызывалась процедурка, которая запоминала бы процессорное время, а потом, при выходе из нужного куска процессорное время бы снова замерялось, сравнивалось и т.д... Под виндой, все легко, вызовы API и т.д., но как из паскаля вызвать API, или что-то в этом роде?

 

хм... чую, что связаться из VM86 с виндой нельзя.. хотя фиг знает, мб можно

 

Это скорее всего так и есть, но неужели нет способа как-нибудь сообщить приложению под виндой, что типа нужно начать мерять время?

 

можно придумать какой-нить заумный способ коммуникации.. только тут надо подумать)

 

OioVologda
Встроенным ассемблером прочитать содержимое системного счетчика.

 

А винда даст к нему обратиться из V86?

 

OioVologda
Дык должна...

 

Если несложно, киньте примерчик...

 

Код (Text):

1. var
2.    l1: Word;
3.    l2: Word;
4.    h1: Word;
5.    h2: Word;
6.  
7. procedure WriteWord(Value: Word);
8. var
9.  HexChars: array [0..$f] of char;
10. begin
11.   HexChars:= '0123456789ABCDEF';
12.  
13.   Write(HexChars[Value shr 12]);
14.   Write(HexChars[(Value shr 8) and $f]);
15.   Write(HexChars[(Value shr 4) and $f]);
16.   Write(HexChars[Value and $f]);
17. end;
18.  
19. begin
20.      asm
21.         push cx
22.         mov cx, 16
23.  
24.         {rdtsc}
25.         db $0f
26.         db $31
27.  
28.         mov l1, ax
29.  
30.         {shr eax, cl}
31.         db $66
32.         shr ax, cl
33.  
34.         mov l2, ax
35.         mov h1, dx
36.  
37.         {shr edx, cl}
38.         db $66
39.         shr dx, cl
40.         mov h2, dx
41.  
42.         pop cx
43.      end;
44.  
45.      Write('edx:eax == ');
46.      WriteWord(h2);
47.      WriteWord(h1);
48.      Write(':');
49.      WriteWord(l2);
50.      WriteWord(l1);
51.      Writeln;
52. end.

 

Спасибо, а счетчик тактов разве вернет количество тактов, затраченных только на нужный процесс?

 

конечно нет
а тебе нужна такая точность? если процессор больше никто не грузит, разница должна быть небольшая

 

нет.

 

Если бы не нужна была точность, я бы отделался простым пдсчетом разницы времени от начала, до конца выполнения участка кода. Мне желательно достичь точность порядка миллисекунды и обосновать это.

 

n0name
и я про то же...

 

миллисекунды? думаешь, в Windows вообще достижима подобная точность?
что-то мне подсказывает, что тебе это нужно для курсовика, а еще что-то - что если сделаешь так и добавишь немного бла-бла-бла, все вполне прокатит

 

Nouzui
Ну вообще-то ты почти прав.
Насчет точности, винда в принципе позволяет через API получать процессорное время с точностью до 100 нс.

 

в таких единицах возвращаются значения.. но точность самих этих значений очень далека от указанной

 

Мне кажется, что винда берет их из структур ядра, напрямую связанных с планированием выполнения процессов в планировщике. Разве в подобных структурах может быть низкая точность?