|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
01.11.2011, 22:14 | #1 |
Регистрация: 01.11.2011
Сообщений: 4
|
Из LPT на COM
Доброго времени суток! Уважаемые программисты, обращаюся к вам с просьбой: не могу доделать программу, сам программирую на Delphi и C #, но Ассемблер является инопланетным языком.
Так вот есть код для LPT порта begin set_port:=255; asm mov dx,37ah mov al,set_port out dx,al //in al,dx //mov data,al end; IntervalCount:=0; SetLength(IntervalData,0); ListBox1.Clear; FTick1:=GetTickCount; //data:=253; for i:=1 to 4000000 do // 4000000 begin asm mov dx,378h in al,dx mov data,al end; вот асм вырезка, но не могу переписать на COM порт. Помогите, пожалуйста. Очень прошу. |
02.11.2011, 03:59 | #2 |
Участник клуба
Регистрация: 11.01.2010
Сообщений: 1,139
|
Straif
Разницу между LPT и COM-портом знаешь? LPT - это параллельный порт и одновременно через него можно передавать 8 бит данных, COM - это последовательный порт и через него данные будут передаваться по 1 биту. Если программируешь на Delphi и C # то и напиши на них аналогичную программу, а затем через отладчик посмотри в какие ассемблерные команды это всё превращается... |
02.11.2011, 04:06 | #3 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
эмм, а ничего что код на Делфи не должен работать?(максимум из ДОСовского паскаля)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
02.11.2011, 05:25 | #4 |
Участник клуба
Регистрация: 11.01.2010
Сообщений: 1,139
|
Пепел Феникса
В таких случаях (под Win NT) из Дельфи обращаются к LPT и СОМ как к файлам с именами LPT и СОМ смотрим здесь, Win 95/98 позволял обращаться к портам LPT и СОМ напрямую через порты ввода/вывода, и разве из Дельфи нельзя создать ДОС-приложение? Последний раз редактировалось Mikl___; 02.11.2011 в 05:34. |
02.11.2011, 13:02 | #5 |
Форумчанин
Регистрация: 15.06.2010
Сообщений: 740
|
Не, дельфя не умеет DOS-приложения. Оно генерит PE или, в случае с Delphi ver 1 - NE заголовки. Может путаете DOS-проги и консольные проги?
Чтобы понять рекурсию, сперва нужно понять рекурсию.
|
02.11.2011, 13:39 | #6 |
Участник клуба
Регистрация: 11.01.2010
Сообщений: 1,139
|
Tronix
я имел ввиду DOS, по-моему, Си-билдер, от того же Борланда, мог создавать DOS-приложения, хотя я не уверен |
02.11.2011, 13:49 | #7 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
...giveo.sys и будет
p.s.: чего это все так всполошились, где TC упомянул о DOS-е, а ?
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
02.11.2011, 14:08 | #8 |
Участник клуба
Регистрация: 11.01.2010
Сообщений: 1,139
|
raxp
о ДОСе Пепел Феникса написал, но это и так понятно, что без ДОСа In/Out будут вызывать эксепшен |
02.11.2011, 14:41 | #9 | |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
просто я хотел чтоб ТС знал, что
Цитата:
а про то как работать я знаю. Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
|
02.11.2011, 15:49 | #10 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
...еще раз: giveo и все будет работать и в Delphi и под win.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
LPT ПОРТ | master3763 | Общие вопросы C/C++ | 7 | 11.08.2009 10:32 |
LPT | Hesheit | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 27.06.2009 12:44 |
Работа с LPT. | Levsha100 | Помощь студентам | 2 | 13.09.2008 21:27 |