Puerto Paralelo con Freepascal en Linux

Ahora si que al grano, para poder escribir y leer datos del puerto paralelo de nuestra PC en linux usando freepascal tenemos que declarar que vamos a usar la librería oldlinux la cual nos dará acceso a las instrucciones ioperm, WritePortB, ReadPortB que nos ayudará en nuestro propósito de controlar este puerto.

program pp;
uses oldlinux;

begin
ioperm(888,3,1); {Para dar permisos al puerto}
WritePortB(888,0); {Para escribir en el puerto}
ReadPortB(888); {Para leer el puerto o el estado del puerto}
Writeln(ReadPortB(888));
ioperm(888,3,0); {Quitamos los permisos al puerto}
end.

El numero 888 corresponde al 0x378 que es el registro de datos del puerto paralelo, enseguida tenemos los registro de estado y de control.

Con lo cual podemos hacer lo que deseemos sobre el puerto. Como manejar una carga o varias como se muestra en la siguiente figura.