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

Procedure Add_Asm(N:word);

var i:word;

Proisv:integer;

Begin

t1:=0;

t2:=0;

asm

in al,40h

mov ah,al

in al,40h

xchg ah,al

mov t1,ax

xor ax,ax

xor dx,dx

@@q: {Выполняем сложение}

inc dx

add ax,dx

loop @@q

in al,40h

mov cl,al

in al,40h

mov ch,al

mov t2,cx

end;

Time1:=t1/(65536*18.2);

time2:=t2/(65536*18.2);

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

end;

{=================================================================}