Как прочитать байт из параллельного порта?
Falk0ner, вс, 06/07/2008 - 15:34.
Первый способ:
Var
BytesRead : BYTE;
begin
asm \{ Читаем порт (LPT1) через встроенный ассемблер \}
MOV dx,$379;
IN al,dx;
MOV BytesRead,al;
end;
BytesRead:=(BytesRead OR $07); \{ OR а затем XOR данных \}
BytesRead:=(BytesRead XOR $80); \{ маскируем неиспользуемые биты \}
BytesRead : BYTE;
begin
asm \{ Читаем порт (LPT1) через встроенный ассемблер \}
MOV dx,$379;
IN al,dx;
MOV BytesRead,al;
end;
BytesRead:=(BytesRead OR $07); \{ OR а затем XOR данных \}
BytesRead:=(BytesRead XOR $80); \{ маскируем неиспользуемые биты \}
Второй способ :
Используем команды Turbo Pascal ...
value:=port[$379]; \{ Прочитать из порта \}
port[$379]:=value; \{ Записать в порт \}
port[$379]:=value; \{ Записать в порт \}
Взято из http://forum.sources.ru
Отправить комментарий