Из LPT на COM

[Straif]

Доброго времени суток! Уважаемые программисты, обращаюся к вам с просьбой: не могу доделать программу, сам программирую на 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 порт.
Помогите, пожалуйста. Очень прошу.

[Mikl___]

Straif
Разницу между LPT и COM-портом знаешь? LPT - это параллельный порт и одновременно через него можно передавать 8 бит данных, COM - это последовательный порт и через него данные будут передаваться по 1 биту. Если программируешь на Delphi и C # то и напиши на них аналогичную программу, а затем через отладчик посмотри в какие ассемблерные команды это всё превращается...

[Пепел Феникса]

эмм, а ничего что код на Делфи не должен работать?(максимум из ДОСовского паскаля)

[Mikl___]

Пепел Феникса
В таких случаях (под Win NT) из Дельфи обращаются к LPT и СОМ как к файлам с именами LPT и СОМ смотрим здесь, Win 95/98 позволял обращаться к портам LPT и СОМ напрямую через порты ввода/вывода, и разве из Дельфи нельзя создать ДОС-приложение?

[Tronix]

Не, дельфя не умеет DOS-приложения. Оно генерит PE или, в случае с Delphi ver 1 - NE заголовки. Может путаете DOS-проги и консольные проги?

[Mikl___]

Tronix
я имел ввиду DOS, по-моему, Си-билдер, от того же Борланда, мог создавать DOS-приложения, хотя я не уверен

[raxp]

...giveo.sys и будет

p.s.: чего это все так всполошились, где TC упомянул о DOS-е, а ?

[Mikl___]

raxp
о ДОСе Пепел Феникса написал, но это и так понятно, что без ДОСа In/Out будут вызывать эксепшен

[Пепел Феникса]

просто я хотел чтоб ТС знал, что

Так вот есть код для LPT порта

в Делфи не будет работать, что там немного сложнее/проще(кому как)/иначе короче.

а про то как работать я знаю.

[raxp]

...еще раз: giveo и все будет работать и в Delphi и под win.