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

Previous  Top  Next

    
 

 

Первый способ:

Code:

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);  \{ маскируем неиспользуемые биты  \}

 

 

Второй способ :

Используем команды Turbo Pascal ...

Code:

value:=port[$379]; \{ Прочитать из порта \}

port[$379]:=value; \{ Записать в порт \}

 

 

 

©Drkb::01340

Взято из http://forum.sources.ru