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

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

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

Как объяснить тупому, что такое бит? Элементарно - это байт минус налоги. Как объяснить тупому, что такое байт? Элементарно - объясните ему 8 раз, что такое бит. Что такое килобайт? Это слишком долго рассказывать...

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