Как вы думаете, насколько объективно будет в досе следующий код оценивать скорость процессора?
| Код |
Uses DOS;
Var hour, minute, m2, seconds, ms: WORD;
tm,tm2,tot: LongInt ;
begin
GetTime(hour,minute,seconds, ms);
tm:=seconds*100+ms;
ASM
mov AX, 0
@@lpA:
inc AX
mov BX, 0
@@lpB:
inc BX
mov CX, 0
@@lpC:
inc CX
mov DX, 0
@@lpD:
inc DX
push DX
mov DX, 0
inc DX
add DX, 5
dec DX
xor DX, DX
or DX, $A0
add DX, 5
cmp dx, dx
jmp @@n
@@n:
shl DX, 1
shr DX, 1
pop DX
cmp DX, $FFFF
jne @@lpD
cmp CX, $FF
jne @@lpC
cmp BX, $F
jne @@lpB
cmp AX, $F
jne @@lpA
end;
GetTime(hour,m2,seconds, ms);
tm2:=seconds*100+ms;
tot:=tm2-tm;
If tot<0 then tot:=tot+6000;
WriteLn('Total time: ',tot,' milliseconds');
ReadLn;
end.
|
|
