Как прочитать байт из параллельного порта? |
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