home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Interdit
/
pc-interdit.iso
/
ports
/
par_test.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-10-05
|
1KB
|
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.