Форум: "Система";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];

Вниз

Com Port   Найти похожие ветки 

← →
Satrap   (2001-12-13 09:58) [3]

procedure SetPort(addres,Value:word);
begin
Value:=trunc(Value and 255);
asm
push ax
push dx
mov ax,addres
mov al,Value
out ax,al
pop dx
pop ax
end;
end;

У меня вот так работает.

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.008 c