Ciao ragazzi.Avrei un problema:ho scritto un programma in Pascal che mi invia dati alla porta parallela:

Program parallela;
uses wincrt;
var
i,j,lav,lav1,lav2:integer;
Begin
lav:=$01;
for i:=1 to 8 do
begin
port [$378]:=lav;{Vengono trasmessi i dati alla porta [378]}
lav:=lav*2;
{In lav2 vorrei avere il valore in uscita dalla porta, come posso fare}
end;
end.

Vorrei fare in modo che di volta in volta, nella variabile lav2, venga immesso il valore presente sulla porta parallela. Come posso fare???Premetto che l'istruzione lav2:=port[378] mi dà come risultato sempre 1 e non il valore presente sulla porta...