home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / visionix / test / tuartu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-21  |  939 b   |  62 lines
  1. program tuartu;
  2.  
  3. uses
  4.  
  5.   vcrtu,
  6.   vtypesu,
  7.   vuartu;
  8.  
  9. {-----------------------------------}
  10.  
  11. Procedure UartWrite( S : STRING );
  12.  
  13. Var
  14.  
  15.  Z : INTEGER;
  16.  
  17. BEGIN
  18.  
  19.   For Z:=1 to Length(S) Do
  20.     VUartWriteChar( S[Z] );
  21.  
  22. END;
  23.  
  24. {-----------------------------------}
  25.  
  26. Procedure UartWriteLn( S : STRING );
  27.  
  28. BEGIN
  29.  
  30.   UartWrite(S);
  31.   UartWrite( #13+#10 );
  32.  
  33. END;
  34.  
  35. {-----------------------------------}
  36.  
  37. begin
  38.  
  39.   ClrScr;
  40.  
  41.   WriteLn('VUART Tester; Version 0.8');
  42.   WriteLn;
  43.  
  44.   Write(    'VUartInit ........... ' );
  45.   If VUartInit( 2, 2400 )=0 Then
  46.   BEGIN
  47.     WriteLN('Good');
  48.     WriteLn('  VUartBaudGet ...... ',VUartBaudGet     );
  49.     WriteLn('  VUartIsTXReady .... ',VUartIsTXReady   );
  50.     WriteLn('  VUartIsRXReady .... ',VUartIsRXReady   );
  51.  
  52.     UartWriteLn( '' );
  53.     UartWriteLn( 'ATDT6488851');
  54.  
  55.     Repeat Until keypressed;
  56.  
  57.     VUartDeInit;
  58.   END
  59.   ELSE
  60.     WriteLN('Failed!');
  61.  
  62. end.