PC Interdit/pc-interdit.iso/ports/par_test.pas

Pascal/Delphi Source File | 1994-10-05 | 1008 b | 29 lines

Program Test_port_parallele;

Const Base=$378; {adresse de base du port parallèle }

Procedure PutChar_Par(c:Char);
{transmet un caractère au port parallèle (adresse de base en "Base") }
Begin
  While Port[Base+1] and 128 = 0 Do; {Attend la fin du signal Busy }
  Port[Base]:=Ord(c);                {envoie le caractère sur le port }

  Port[Base+2]:=Port[Base+2] or 1;   {émet un Strobe }
  Port[Base+2]:=Port[Base+2] and not 1;

  While Port[Base+1] and 64 = 1 do;  {attend l'acquittement Ack }
End;

Procedure PutString_Par(s:String);
{transmet une chaîne de caractère au port parallèle en utilisant PutChar_Par)}
Var i:Integer;                       {compteur de caractères }
Begin
  For i:=1 to Length(s) do           {prend chaque caractère }
    PutChar_Par(s[i]);               {et l'envoie sur le port }
End;

Begin
  PutString_Par('Bonjour, ceci est un test d''impression de Micro Application'#13#10);
  PutString_Par('abcdefghijklmnopqrstuvwxyz0123456789'#13#10);
End.