Отправлено smav 04 июня 2002 г. 10:59 В ответ на: Ответ: отправлено Bukva 04 июня 2002 г. 09:15

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;
В этом случае компилятор не будет создавать стековый кадр.Обращаться к ней можно как к обычной паскалевской процедуре.

• Еrror — Bukva   (04.06.2002 11:22, 65 байт)
  • Ответ: Попробуй так — CTAC   (04.06.2002 12:44, 37 байт)