3.5 Программирование LPT порта

LPT порт ЭВМ состоит из трёх регистров - данных, состояния и управления, с адресами для порта LPT1 - 378H, 379H и 37aH соответственно, для порта LPT2 - 278H, 279H и 27aH соответственно. Для связи с портом необходимо использовать драйвер "inpout32. dll”, который должен быть или в системной папке Windows, или в папке с создаваемой программой. В тексте программы драйвер подключается функцией "OpenLibary () ”:

OpenLibrary (1,"inpout32. dll")

Запись и чтение информации с регистров порта удобнее выполнять с помощью процедур:

Запись:

Procedure LPT_Out (Address, Value)

CallFunction (1,"Out32", Address, Value)

EndProcedure

Чтение:

Procedure LPT_Inp (Address)

Value = CallFunction (1, "Inp32", Address)

ProcedureReturn Value; принятый байт

EndProcedure

Теперь достаточно вызвать процедуру с нужными параметрами чтобы считать или записать информацию в регистр порта:

LPT_Out ($378,a) - в регистр данных порта запишется двоичный код десятичного числа а (0.255)

p=LPT_Inp ($379) - переменной p присвоится значение регистра состояния порта в десятичной системе счисления.