LPT - Mehrere Pins ansprechen!?

[flomei]

Hallo! Jetzt schreib ich mal wieder ein Prog für die Schule. Dieses Programm soll eine "Flaschenabfüllanlage" steuern. Bevor mich jetzt jeder fragt, wie die aussieht und wie die was abfüllt bleiben wir bei Delphi. Bei meinem ersten Steuerprogramm habe ich nach langem Googlen (so bin ich auch hier hingekommen! ) ein paar Teile Assembler gefunden mit denen das unter Win9X und ME ohne Treiber funktioniert. Das nächste Programm soll auch wieder unter Win98 laufen muss aber mehrere Ports einlesen und ausgeben.
Ich hatte folgenden Code zum Ansteuern des Parallelports:

Delphi-Quellcode:

procedure port(x:byte);
begin
 asm
  mov dx,378h
  mov al,x
  out dx,al
 end;
end;

Geht auch. Wenn ich nun den ersten Datenpin auf High setzen will hab ich das so gemacht:

Delphi-Quellcode:

procedure TSteuerung.Pin1HighClick(Sender: TObject); assembler;
begin
  port(1); //setzt ersten Datenpin high
end;

Nun frage ich mich:

• Wie steuere ich mehrere Pins an? Überlegung: Port(00000011); //oder anders???
• Wie lese ich Pins ein? Überlegung: in dx,al //in statt out

Thx im Voraus.

MfG Florian

P.S.: Ich würde gerne nach Schluss des Projektes das Programm und ein paar Infos über die Anlage hochladen für alle Interessierten. Wenn ich darf!