home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / RS.ZIP / RS_ODB_1.PAS < prev    next >
Pascal/Delphi Source File  |  1994-01-31  |  808b  |  50 lines
  1. program ODBIORNIK;
  2.  
  3. const
  4.   rRBR=$3F8;
  5.   rLCR=$3FB;
  6.   rDLL=$3F8;
  7.   rLSR=$3FD;
  8.   rDLM=$3F9;
  9.  
  10. procedure Programowanie_8250;
  11. begin
  12.   port[rLCR]:=$87;
  13.   port[rDLM]:=00;
  14.   port[rDLL]:=192;
  15.   port[rLCR]:=port[rLCR] and 127;
  16. end;
  17.  
  18. procedure Odbior_danych;
  19. var
  20.   f:file of char;
  21.   PlikWy:string[12];
  22.   znak:char;
  23.   liczba:integer;
  24.  
  25. begin
  26.   Write('Podaj nazwe pliku wyjsciowego: ');
  27.   Readln(PlikWy);
  28.   Assign(f,PlikWy);
  29.   Rewrite(f);
  30.   repeat
  31.   until (port[rLSR] and $01)=$01;
  32.   liczba:=port[rRBR];
  33.   znak:=chr(liczba);
  34.   Write(f,znak);
  35.   Write(znak);
  36.   while liczba<>26 do
  37.   begin
  38.     repeat
  39.     until (port[rLSR] and $01)=$01;
  40.     liczba:=port[rRBR];
  41.     znak:=chr(liczba);
  42.     write(znak);
  43.   end;
  44.   Close(f);
  45. end;
  46.  
  47. BEGIN
  48.   Programowanie_8250;
  49.   Odbior_danych;
  50. END.