home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / RS.ZIP / RS_NAD_1.PAS next >
Pascal/Delphi Source File  |  1994-01-31  |  860b  |  47 lines
  1. program NADAJNIK;
  2.  
  3. uses Crt;
  4.  
  5. const
  6.   rTHR=$3F8;
  7.   rDLL=$3F8;
  8.   rDLM=$3F9;
  9.   rLCR=$3FB;
  10.   rLSR=$3FD;
  11.  
  12. procedure Programowanie_8250;
  13. begin
  14.   { ustalenie szybko₧ci transmisji na 600 bodów (bitów/sek)
  15.     - dotyczy to szybko₧ci przesyÆania bitów tworzåcych sÆowo }
  16.   port[rLCR]:=$87;
  17.   port[rDLM]:=00;
  18.   port[rDLL]:=192; { 600 bodów }
  19.   port[rLCR]:=port[rLCR] and 127;
  20. end;
  21.  
  22. procedure Wysylanie_danych;
  23. var
  24.   f:file of char;
  25.   PlikWe:string[12];
  26.   znak:char;
  27.   liczba:integer;
  28. begin
  29.   Write('Podaj nazwe pliku wejsciowego: ');
  30.   Readln(PlikWe);
  31.   Assign(f,PlikWe);
  32.   Reset(f);
  33.   repeat
  34.     Read(f,znak);
  35.     liczba:=ord(znak);
  36.      repeat
  37.      until (port[rLSR] and $20)=$20;
  38.     Delay(100); { opóªnienie }
  39.     Port[rTHR]:=liczba;
  40.   until Eof(f);
  41.   Close(f);
  42. end;
  43.  
  44. BEGIN
  45.   Programowanie_8250;
  46.   Wysylanie_danych;
  47. END.