Если не хочется подключать модуль DOS, замерить время можно с помощью взятия значения напрямую из памяти по адресу $0046C (4 байта). Там хранится число "тиков" встроенных часов реального времени, которые тикают 18.54 раз в секунду. И именно оттуда тащат его функции модуля.
Если у вас все еще нет процессора Pentium (или есть, но нужно измерять время на процессоре ниже него), можно разогнать встроенный таймер, при этом нужно будет использовать встроенный ассемблер. Вот этот код по-моему достаточно откомментирован:<{CODE_COLLAPSE_ON}><{CODE_COLLAPSE_OFF}><{CODE_WRAP_ON}><{CODE_WRAP_OFF}>procedure bogusprocedure;near; assembler; asm end; var int08save:pointer; int08handler_count:longint; int08handler_lessercount:word; int08handler_tickin:boolean; procedure int08handler;assembler;{no sense of far, it's int handler, so must have iret inside} asm sti push ax push dx push ds mov ax,seg @data mov ds,ax {loading DS, probably it's changed} mov al,int08handler_tickin or al,al je @hnd_l1 {if not tickin jump forward} db 66h inc word ptr int08handler_count @hnd_l1: dec int08handler_lessercount jne @hnd_l3 mov int08handler_lessercount,0100h {256, must be 65536 div (speedup level)} {ok, let's call normal handler after all that} pushf call dword ptr int08save jmp @hnd_l2 @hnd_l3: mov al,20h out 20h,al {funny, BIOS caller uses call blablabla and ret instead of jmp short} db 0ebh,0 call bogusprocedure @hnd_l2: pop ds pop dx pop ax iret end;
Обработчик прерывания устанавливается на прерывание 08, перед этим нужно сохранить старый вектор вызовом getintvec($08,addr(int08save)), иначе процедура не будет работать 
Таймер программируется вот так:<{CODE_COLLAPSE_ON}><{CODE_COLLAPSE_OFF}><{CODE_WRAP_ON}><{CODE_WRAP_OFF}>{programming timer channel 0, tickin 256, mode 3, hex counter, greater byte only} asm cli mov al,00100110b out 43h,al call bogusprocedure mov al,1 out 40h,al call bogusprocedure sti end;
Вызов bogusprocedure стоит из-за того, что порт может не успеть принять записанный байт до того, как в него запишут следующий.
Значение AL в первом OUT флаговое, это байт управления таймером. Биты 7 и 6 содержат номер канала (для часов это 0), 5й и 4й управляют записью соответственно старшего и младшего байта счетчика таймера, 3,2,1 биты содержат режим работы (новый) счетчика, для часов используется режим 3 - периодические прямоугольные колебания выходного сигнала, каждый полупериод длится N/2 колебаний генератора (1193182 Гц), прерывание генерируется каждый переход с низкого на высокий уровень. 0й байт определяет формат записываемого счетчика (1 - двоично-десятичный, 0 - шестнадцатеричный). При записи обоих байтов счетчика сначала записывается младший байт. Для возврата в нормальное состояние в счетчик должен быть записан 0 в оба байта, что соответствует значению счетчика 65536 и нормальной частоте прерываний. Т.е. код для возврата:
<{CODE_COLLAPSE_ON}><{CODE_COLLAPSE_OFF}><{CODE_WRAP_ON}><{CODE_WRAP_OFF}>asm cli mov al,00110110b out 43h,al call bogusprocedure mov al,0 out 40h,al call bogusprocedure {ok, delay also goes here} out 40h,al call bogusprocedure sti end;
Естественно, нужно еще и вернуть старый вектор, setintvec($08,addr(int08save));
Работой счетчика (на случай выключения из анализа процедуры или двух  ) можно управлять переменной int08handler_tickin, если она true, то счет идет. Вне зависимости от нее, старый вектор прерывания вызывается с нужной частотой. |
Например, вам нужно узнать, сколько времени ваш ребенок (если есть, иначе ученик