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

Как объяснить тупому, что такое бит? Элементарно — это байт минус налоги. Как объяснить тупому, что такое байт? Элементарно — объясните ему 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;

Добавить комментарий