Qui sait programmer un port paralelle en pascal???

J'ai oublié le turboi pascal depuis le temps, mais je crois me souvenir d'une instruction "port", sans parler des interruptions DOS.
Bon courage

Le port imprimante se contrôle via l'interruption $17. Par exemple qq fonctions :

interface

function PrtReady:boolean;
function imprim(chaine:string):byte;

implementation

uses Dos,printer;

function PrtReady:boolean;

var reg : registers;

(* la fonction renvoie dans AH les information suivantes :

bit signification
--- -----------------------
0 timeout 1
1,2 pas utilis‚s 2,4
3 erreur 8
4 imprimante s‚lectionn‚e 16
5 plus de papier 32
6 128
7 imprimante prˆte *)

begin
reg.ax:=$0200;
reg.dx:=0;
intr($17,reg);
PrtReady := ( reg.ah = 144 ) or ( reg.ah = 16 );
end;

Les fonctions de l'interruption sont :

00 Envoi d'un car
01 Init
02 lecture de l'état (prête...) Utilisée dans l'ex ci-dessus

Pour attaquer directement l'imprimante sans passer par le BIOS, il faut effectivement passer par l'instruction Port ou PortW