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

in al,40h

mov bl,al

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

mov bh,al

mov t1,bx

xor ax,ax

xor bx,bx

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

inc dx

mul dx

loop @@q

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('Время выполнения умножения на Assembler: ',(time2-time1):6:12);

end;

Begin

clrscr;

{Определяем вид операции}

textcolor(11);

Writeln('Сделайте выбор операции и нажмите клавишу ENTER:');

Writeln('1) Сложение');

Writeln('2) Умножение');

Readln(vid);