аналог функции portw[] из паскаля?

← →
aspen © (2002-12-06 11:40) [0]

Функция на Паскале
function MDGet: integer begin while (Portw[CSR] and $1)=0 do; MDGet:=Portw[DR]; end;

как сделать аналог для Дельфи?

← →
Ihor Osov'yak © (2002-12-07 11:04) [1]

function ReadPortW(aAddr:word):word; assembler;
asm
push edx;
mov dx,aAddr
in ax,dx
pop edx;
end;

Только оно тебе надо? Работать будет только под Win9X

← →
Anatoly Podgoretsky © (2002-12-07 11:19) [2]

Лучше так

function ReadPortW(aAddr: word): word; asm mov dx,ax // aAddr тоже подойдет in ax,dx end;

Да и еще к вопросу о Win9X, даже в этом случает может не подойти, порты и здесь виртуальные, не все доступны.

аналог функции portw[] из паскаля? Найти похожие ветки