Хочу тупо прочитать LPT порт под MSDOS и не могу... - Паскаль, Turbo Pascal, PascalABC.NET

седьмой · 06.11.2013, 16:57

загрузил с дискеты 3,5" ms-dos 6.22 QP тоже под MS-dos

пишу код

Код:

uses dos;

var data, data1: byte;
	  begin

	  readln(data) ;
	  port[$378]:=data;
	  data1:=    port[$378];
	  writeln(data1);
	  end.

результат без изменений 255, по видимости все контакты "11111111" на контактах с 2го по 9й, подсаживал логический ноль на 2й контакт через резистор 1ком, результат без изменений, проверял тестером напряжение около 2х вольт, для логического нуля великовато, должно быть наверно около полувольта, попробую снизить номинал резистора до 300 ом, но не уверен даст ли это результат, как бы не сжечь порт. Вопрос код программы правильный ? и нужно ли еще что то подавать на порт что бы считать данные или нет?

Serge_Bliznykov · 06.11.2013, 22:13

если мне не изменяет память, то под DOS была утилита CheckIT!
(возможно, тут ссылка на неё, ещё можно тут кое-что почитать)
Она, имхо, показывала порты в реальном времени. Попробуйте ей воспользоваться.
это раз.

второе. Порт сжечь легче лёгкого. Будьте предельно аккуратны с этим!

третье. Поищите нуль-модемный кабель. Именно его использовали для проверки LPT портов во времена оные...

ну и последнее. На форуме есть спец по подобным вопросам. Это raxp.
Попробуйте связаться с ним или дождаться его отзыва.

06.11.2013, 16:57	#1
седьмой Форумчанин Регистрация: 17.07.2012 Сообщений: 140	Хочу тупо прочитать LPT порт под MSDOS и не могу... загрузил с дискеты 3,5" ms-dos 6.22 QP тоже под MS-dos пишу код Код: `uses dos; var data, data1: byte; begin readln(data) ; port[$378]:=data; data1:= port[$378]; writeln(data1); end.` результат без изменений 255, по видимости все контакты "11111111" на контактах с 2го по 9й, подсаживал логический ноль на 2й контакт через резистор 1ком, результат без изменений, проверял тестером напряжение около 2х вольт, для логического нуля великовато, должно быть наверно около полувольта, попробую снизить номинал резистора до 300 ом, но не уверен даст ли это результат, как бы не сжечь порт. Вопрос код программы правильный ? и нужно ли еще что то подавать на порт что бы считать данные или нет? Последний раз редактировалось Stilet; 06.11.2013 в 19:54.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
lpt порт	DeDoK	Компьютерное железо	2	11.07.2010 13:23
LPT порт	ImmortalAlexSan	Компьютерное железо	5	19.06.2010 18:35
LPT ПОРТ	master3763	Общие вопросы C/C++	7	11.08.2009 10:32
LPT порт.	Maxs	Помощь студентам	2	19.04.2009 11:47

06.11.2013, 22:13	#2
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	если мне не изменяет память, то под DOS была утилита CheckIT! (возможно, тут ссылка на неё, ещё можно тут кое-что почитать) Она, имхо, показывала порты в реальном времени. Попробуйте ей воспользоваться. это раз. второе. Порт сжечь легче лёгкого. Будьте предельно аккуратны с этим! третье. Поищите нуль-модемный кабель. Именно его использовали для проверки LPT портов во времена оные... ну и последнее. На форуме есть спец по подобным вопросам. Это raxp. Попробуйте связаться с ним или дождаться его отзыва.