Реферат: Тест на быстродействие микропроцессора

vid:byte;

t1,t2,NN:word;

time1,time2:real;

Procedure Add_Pascal(N:word); {Сложение на Pascal}

var i:word;

Summa:integer;

Begin

summa:=0;

t1:=0;

t2:=0;

asm

in al,40h

mov bl,al

in al,40h {Считываем начальное значение тиков от таймера}

mov bh,al

mov t1,bx

end;

for i:=1 to N do

summa:=summa+i;

asm

in al,40h

mov bl,al {Конечное количество тиков}

in al,40h

mov bh,al

mov t2,bx

end;

Time1:=t1/(65536*18.2);

time2:=t2/(65536*18.2);

writeln('Время выполнения сложения на Pascal: ',(time2-time1):6:12);