[an error occurred while processing this directive]
[an error occurred while processing this directive]
|
const
arrSize=6;
var
arr:array[0..arrSize-1]of word;
asm
les di,arr
mov dx,portAddr
cld
mov cx,arrSize
@@1: in ax,dx
stosw
loop @@1
end;
Разницы в скорости по сравнению с
for i:=0 to ArrSize-1 do arr[i]:=portw(portAddr);
Вряд ли заметишь.
Примеры использования ассемблера можно посмотреть в исходниках стандартных модулей crt,drivers и т.д. (они входят в полную поставку паскаля). В ассемблерной программе нельзя менять регистры ds и bp (подробности должны быть в help на ключевое слово assembler). Можно (и даже лучше) написать целую процедуру или функцию на ассемблере:
procedure FillArray(var arr;count:word);assembler;
asm
...
end;
В этом случае компилятор не будет создавать стековый кадр.Обращаться к ней можно как к обычной паскалевской процедуре.
E-mail: info@telesys.ru