Полигон-2

Отличная программа VIDBENCH! Поддержка LFB может особенно пригодиться, к примеру, при настройке write combining / MTRR MSR на AMD K6-х.

Таймеры, особенно на ретрокомпьютерах - та ещё головная боль. TSC в допентиумную эру отсутствует. 2-й канал 8254 очень короткий, максимум 0,11 сек для DOS и 0,055 сек для Windows VDM/NTVDM виртуальных машин. RTC перепрограммировать на ускоренный счёт с прерываниями - дело потенциально опасное для BIOS функций. То же можно сказать и про нулевой канал 8254. В итоге лично я пришёл к выводу, что на 386+ (и даже 286+) компах всё же удобнее использовать нулевой системный канал таймера без перепрограммирования и перехвата прерывания, т.е. as is. Текущее время считывается квазиатомарно: сначала BIOS счётчик тиков, затем защёлкивается счётчик 8254 и после проверяется условие переполнения, которое может произойти из-за не атомарности операций чтения. В итоге получаем стабильный длинный счётчик с дискретой около 1 мкс и гарантией монотонности хоть на AT 286, хоть на пентиуме. Единственное, что может нарушить монотонность хода, это SMI. Включенная legacy поддержка мышей, клавиатур, USB накопителей гарантированно будет давать случайные отрицательные приращения текущего времени. На платформах Cyrix MediaGX/NS Geode с их VSA архитектурой добавится ещё куча неотключаемых SMI источников.

var
FPUStore: double;
const
i8254Time:double = 8.3809581278950972233047626470753e-7;

function GetSystemTime:double; code; {use i8254}
asm
xor eax,eax
mov ebx,dword [46Ch]
out 43h,al
mov edx,dword [46Ch]
in al,40h
mov ah,al
in al,40h
xchg al,ah
cmp ebx,edx
je @SkipCorrection
or ax,ax
js @SkipCorrection
mov edx,ebx
@SkipCorrection:
not ax
mov word [FPUStore],ax
mov dword [FPUStore+2],edx
mov word [FPUStore+6],0
fild qword [FPUStore]
fmul qword [i8254Time]
ret
end;

Виноват. Привык, что во всех моих ПК, начиная с СМ 1810, были сопроцессоры.
Перекомпилировал и перезалил в шапку. Протестировать пока не на чем.

IOSpeed измеряет скорость чтения/записи в пространстве портов ввода-вывода, но не передачи через интерфейсы. COM, LPT и пр. здесь не при чём
Как только запущу 286, проги переделаю под него.