Как прочитать байт из параллельного порта?

Материал из DRKB

Как прочитать байт из параллельного порта?[править | править код]

Первый способ:


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);  { маскируем неиспользуемые биты  }


Второй способ :

Используем команды Turbo Pascal ...


  value := port[$379]; { Прочитать из порта } 
  port[$379] := value; { Записать в порт }


Source: Взято из http://forum.sources.ru
ID: 01340