Хочу написать очень простую программу на ассемблере (почти полный код см.ниже). Смысл программы в том, что она читает содержимое порта в котором изменяются только 4 бита (т.е. всего 16 вариантов в AL). Если значение порта изменилось, то текущее время сохраняется в одном из 16 массивов (размер каждого 64 Мб или больше). Так задумано для экономии времени и упрощения структуры массивов. Обработка результатов осуществляется после окончания работы этой программы.
Мне проще писать в Delphi, но скорее всего придётся писать под DOS, так как там нет проблем с монопольным исполнением кода, но в DOSе я не умею работать с большими объемами памяти без переключения страниц.
Может быть подскажете, если возможно, как организовать выполение этого кода под Win9x или WinXP, так чтобы полностью остановить ОС, включая любые прерывания, а потом возобновить её работу. (остановить нужно примерно на 60 секунд).
Или если под Win это сделать нельзя, то есть ли среда программирования для DOS, в которой можно создавать большие массивы 32 битных чисел, и обращаться к ним линейно (без переключения страниц)? (язык почти всё равно какой, главное чтобы ASM вставлять можно было)
| Код |
start: cli
xor AX,AX
mov DX,PortNumber
next_input: in AL,DX ; важны только 4 бита из 8
cmp AL,AH ; поэтому для экономии памяти сохраняем не AL+TimeStamp,
je next_input ; а только TimeStamp в одном из заранее созданных 16 массивов.
mov AH,AL
EBX:=TimeStamp ; разность между двумя RDTSC
SaveTimeStamp (AL,EBX) ; сохраняем TimeStamp, в массиве с номером 0..15 (номер в AL)
cmp TimeStamp,EndTime ; повторяем в течении заданного времени
jnz next_input
exit: sti
|
P.S. Если возможно монопольное выполнение этой программы под Windows, то на Delphi код функции SaveTimeStamp реализуется очень просто:
| Код |
tBigArray = record
A:array [0..64000000] of LongWord;
LastIndex:LongWord;
end;
Data : array [0..15] of tBigArray;
procedure SaveTimeStamp (PortValue:byte);
begin
with Data[PortValue] do
begin
A[LastIndex]:=TimeStamp;
Inc (LastIndex);
end;
end;
|
|
)