Control digital por puerto paralelo LPT

[[seoane]]

Haber si te entendi bien, quieres hacer una funcion tal que asi:

Código Delphi [-]
procedure SalidaOn(num: Integer);
begin
   bErr := Out32($378, 1 shl (num-1));
end;

Esto equivale a:

SalidaOn(1) -> bErr := Out32($378,1);
SalidaOn(2) -> bErr := Out32($378,2);
SalidaOn(3) -> bErr := Out32($378,4);

Y asi sucesivamente, ¿era eso lo que querias?

[[FGarcia]]

Gracias Seoane!
Si era eso lo que queria para manejar individualmente cada salida, sin embargo si quieres activar mas de una simultaneamente los valores se deben de sumar o no? es decir si activas la salida (bits) 1 y 2

SalidaOn(1); //00000001 esto es individualmente
SalidaOn(2); //00000010

Cuando ambas estan activadas equivaldria a 00000011 o el numero 3

si fuese:

SalidaOn(1);
SalidaOn(5);
SalidaOn(8);

eso seria 10010001 que equivaldria a 145. Esto es para activar y para desactivar deberia restar el valor correspondiente:

SalidaOff(1);
SalidaOn(5);
SalidaOn(8);

esto seria 10010000 que equivaldria a 144

Gracias por tu ayuda! Voy a investigar mas esto de los operadores logicos.