Порты в Win2000

← →
Mihaliu (2001-09-25 20:58) [12]

Под 9х подсказка UsBall © самая полноценная .
Навернека помогает cki ,sti

2 Mihaliu
Это кусочек из программы, работающей с устройством через LPT.
Реально работающей!
Под 98й он работает, а вот под 2000й не будет, по идее не должен.
function Port_Read( Addres_Port : word ) : byte;
{Эта функция читает порт Ввода - вывода. Прерывания запрещены! Адрес базовый порта LPT 888}
begin
asm
mov dx, Addres_Port
cli
in al, dx { Читает значение из порта}
sti
mov Result, al
end;
end;
{----------------------------------------------------------------------------------------------------}
procedure Port_Write( Addres_Port : word; Value : byte );
{ Эта функция пишет в порт Ввода - вывода. Прерывания запрещены!}
begin
asm
mov dx, Addres_Port
mov al, Value
cli
out dx, al { Пишет значение в порт }
sti
end;
end;
Под 2000й доступа к портам нет такого, он конечно возможен, но на вскидку сейчас не подскажу.

Порты в Win2000 Найти похожие ветки