Чтение информации с LPT порта

В предыдущей статье я обещал рассказать о чтении информации с LPT порта и привести несколько схем датчиков.
Пока просто расскажу о программировании и о подключении кнопочек, а дальше по ситуации.
Схема подключения кнопок и переключателей оказалась такойже простой как и схема подключения светодиодов: 

Для ввода информации я использовал 5 стандартных входов - выводы 10, 11, 12, 13 и 15.
Первоначальное состояние выводов - log1, т.е. на них напряжение 5V.
Мой тестер сказал, что там не 5, а 4.7V, может тестер не точно показывает, может блок питания в компе слабоват, а может так и надо - не важно.
Следовательно, замкнув вывод порта на землю (выводы 18-25), мы переведем его в состояние Log0. Замыкать вывод прямо на землю я не рискнул и соединил его с землей через резистор в 470 ом. Можно обойтись и без резистора - всё отлично работает, но лучше не рисковать.
Для дальнейших экспериментов я собрал себе панельку из 5 кнопочек по приведенной выше схеме и достал с архивного диска компилятор Turbo Pascal 7.1 (то же что и Pascal 7.0).

Тем, кто не умеет работать с портами, советую прочитать предыдущую статью "Основы программирования LPT", тк. сейчас я уже не буду подробно описывать как и почему.
Как я уже говорил, считать значение на выходах порта можно одной строчкой: data := port[$378], где $378 - базовый адрес порта. Это выходы, ими управлять мы уже умеем. А входы нахотятся по адресу "базовый+1", те. $379 пробуем считать:

Uses Dos;

Var   data:byte; {переменная DATA типа byte}  

 Begin   

data := Port[$379]; {читаем значение порта в data}   

writeln(data);      {выводим значение на экран}

End.

Uses dos, crt;

var data : byte;

BEGIN  

clrscr;  

while not keypressed do {пока не нажата кнопка на клавиатуре...}  

begin                   {повторяем код от сюда.....}    

data := port[$379];   {читаем значение порта в data}    

gotoxy(1,1);          {ставим курсор в позицию 1,1 на экране}    

write('   ');         {пишем пробелы чтобы замазать текст}    

gotoxy(1,1);          {возвращаем курсор назад в позицию 1,1}    

write(data);          {выводим значение на экран}    

delay(100);           {задержка в 100мс.(не точно!)}  

end;                    

{.....до сюда}END.

asm  MOV DX,379h; 

 IN AL,DX  

MOV data,ALend;

Uses Dos;

uses dos, crt;

var bylo,stalo : word;    razn : integer ;

BEGIN  

clrscr;  

bylo := port[$379];  

while not keypressed do 

 begin    

stalo := port[$379];    

razn := stalo - bylo;    

case  razn of        

-64 : writeln('нажата кнопка 10 !');         

64 : writeln('отпущена кнопка 10 !');        

-32 : writeln('нажата кнопка 12 !');         

32 : writeln('отпущена кнопка 12 !');        

 128 : writeln('нажата кнопка 11 !');       

 -128 : writeln('отпущена кнопка 11 !');    

end;   

 bylo := stalo;  

end;

END.

Источник: zps-electronics.com