home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / source / pibasync.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-02-06  |  10.5 KB  |  188 lines
  1. UNIT PibAsync;
  2.  
  3. (*----------------------------------------------------------------------*)
  4. (*         PIBASYNC.PAS   --- Asynchronous I/O for Turbo Pascal         *)
  5. (*----------------------------------------------------------------------*)
  6. (*                                                                      *)
  7. (*  Author:  (c) 1985, 1986, 1987 by Philip R. Burns                    *)
  8. (*                                                                      *)
  9. (*  Version: 1.0   (January, 1985)                                      *)
  10. (*           2.0   (June, 1985)                                         *)
  11. (*           2.1   (July, 1985)                                         *)
  12. (*           3.0   (October, 1985)                                      *)
  13. (*           3.1   (October, 1985)                                      *)
  14. (*           3.2   (November, 1985)                                     *)
  15. (*           4.0   (October, 1986)                                      *)
  16. (*           4.1   (December, 1986)                                     *)
  17. (*           4.2   (January, 1987)                                      *)
  18. (*           4.3   (March, 1987)                                        *)
  19. (*           4.4   (July, 1987)                                         *)
  20. (*           4.5   (November, 1987)                                     *)
  21. (*           4.6   (January, 1988)                                      *)
  22. (*           4.7   (February, 1988)                                     *)
  23. (*                                                                      *)
  24. (*  Systems: For MSDOS/PC DOS on IBM PCs and close compatibles only.    *)
  25. (*                                                                      *)
  26. (*  History: Some of these routines are based upon ones written by:     *)
  27. (*                                                                      *)
  28. (*              Alan Bishop                                             *)
  29. (*              C. J. Dunford                                           *)
  30. (*              Michael Quinlan                                         *)
  31. (*              Gene Harris                                             *)
  32. (*                                                                      *)
  33. (*           I have cleaned up these other authors' code, fixed some    *)
  34. (*           bugs, and added many new features.                         *)
  35. (*                                                                      *)
  36. (*           In particular, starting with v4.0 of PibTerm, both input   *)
  37. (*           and output to the serial port is buffered and interrupt-   *)
  38. (*           driven.  Also, XON/XOFF support has been moved to the      *)
  39. (*           serial port interrupt handler, which results in fewer      *)
  40. (*           overrun problems.                                          *)
  41. (*                                                                      *)
  42. (*           Suggestions for improvements or corrections are welcome.   *)
  43. (*                                                                      *)
  44. (*           If you use this code in your own programs, please be nice  *)
  45. (*           and give proper credit.                                    *)
  46. (*                                                                      *)
  47. (*----------------------------------------------------------------------*)
  48. (*                                                                      *)
  49. (*  Routines:                                                           *)
  50. (*                                                                      *)
  51. (*     BIOS_RS232_Init        ---    Use BIOS to initialize port        *)
  52. (*     Async_Isr              ---    Com port interrupt service routine *)
  53. (*     Async_Init             ---    Performs initialization.           *)
  54. (*     Async_Clear_Errors     ---    Clear pending serial port errors   *)
  55. (*     Async_Reset_Port       ---    Resets UART parameters for port    *)
  56. (*     Async_Open             ---    Sets up COM port                   *)
  57. (*     Async_Close            ---    Closes down COM port               *)
  58. (*     Async_Carrier_Detect   ---    Checks for modem carrier detect    *)
  59. (*     Async_Carrier_Drop     ---    Checks for modem carrier drop      *)
  60. (*     Async_Buffer_Check     ---    Checks if character in COM buffer  *)
  61. (*     Async_Term_Ready       ---    Toggles terminal ready status      *)
  62. (*     Async_Find_Delay       ---    Find busy wait count for 1ms delay *)
  63. (*     Async_Receive          ---    Reads character from COM buffer    *)
  64. (*     Async_Receive_With_Timeout                                       *)
  65. (*                            ---    Receives char. with timeout check  *)
  66. (*     Async_Ring_Detect      ---    If ringing detected                *)
  67. (*     Async_Send             ---    Transmits char over COM port       *)
  68. (*     Async_Send_String      ---    Sends string over COM port         *)
  69. (*     Async_Send_String_With_Delays                                    *)
  70. (*                            ---    Sends string with timed delays     *)
  71. (*     Async_Send_Break       ---    Sends break (attention) signal     *)
  72. (*     Async_Percentage_Used  ---    Returns percentage com buffer used *)
  73. (*     Async_Purge_Buffer     ---    Purges receive buffer              *)
  74. (*     Async_Release_Buffers  ---    Free memory for serial port queues *)
  75. (*     Async_Setup_Port       ---    Define port base, IRQ, RS232 addr  *)
  76. (*     Async_Stuff            ---    Insert char into receive buffer    *)
  77. (*     Async_Flush_Output_Buffer                                        *)
  78. (*                            ---    Flush serial port output buffer    *)
  79. (*     Async_Drain_Output_Buffer                                        *)
  80. (*                            ---    Wait for serial output to drain    *)
  81. (*     Async_Port_Address_Given                                         *)
  82. (*                            ---    Check if port address installed    *)
  83. (*     Async_Send_Now         ---    Send character without buffering   *)
  84. (*     Async_Wait_For_Quiet   ---    Wait for port to quiesce           *)
  85. (*                                                                      *)
  86. (*----------------------------------------------------------------------*)
  87. (*                                                                      *)
  88. (*      PIBASYNC.PAS was split into PIBASYN1.PAS and PIBASYN2.PAS at    *)
  89. (*      version 3.2 of PibTerm, and into PIBASYN1, PIBASYN2, and        *)
  90. (*      PIBASYN3 for v4.0 of PibTerm.   The UNIT structure was added    *)
  91. (*      for use with Turbo Pascal v4.0.                                 *)
  92. (*                                                                      *)
  93. (*----------------------------------------------------------------------*)
  94.  
  95. INTERFACE
  96.  
  97. USES
  98.    Dos, Crt, GlobType, PibTimer, PibMTask;
  99.  
  100. PROCEDURE BIOS_RS232_Init( ComPort : INTEGER; ComParm : WORD );
  101. PROCEDURE Async_Close( Drop_DTR: BOOLEAN );
  102. PROCEDURE Async_Clear_Errors;
  103. PROCEDURE Async_Reset_Port( ComPort       : INTEGER;
  104.                             BaudRate      : WORD;
  105.                             Parity        : CHAR;
  106.                             WordSize      : INTEGER;
  107.                             StopBits      : INTEGER  );
  108. FUNCTION  Async_Open( ComPort       : INTEGER;
  109.                       BaudRate      : WORD;
  110.                       Parity        : CHAR;
  111.                       WordSize      : INTEGER;
  112.                       StopBits      : INTEGER  ) : BOOLEAN;
  113. PROCEDURE Async_Send( C : Char );
  114. FUNCTION Async_Receive( VAR C : Char ) : BOOLEAN;
  115. PROCEDURE Async_Receive_With_Timeout( Secs : INTEGER; VAR C : INTEGER );
  116. PROCEDURE Async_Stuff( Ch: CHAR );
  117. PROCEDURE Async_Find_Delay( VAR One_MS_Delay : INTEGER );
  118. PROCEDURE Async_Init( Async_Buffer_Max  : INTEGER;
  119.                       Async_OBuffer_Max : INTEGER;
  120.                       Async_High_Lev1   : INTEGER;
  121.                       Async_High_Lev2   : INTEGER;
  122.                       Async_Low_Lev     : INTEGER );
  123. FUNCTION  Async_Carrier_Detect : BOOLEAN;
  124. FUNCTION  Async_Carrier_Drop : BOOLEAN;
  125. PROCEDURE Async_Term_Ready( Ready_Status : BOOLEAN );
  126. FUNCTION  Async_Buffer_Check : BOOLEAN;
  127. FUNCTION  Async_Line_Error( VAR Error_Flags: BYTE ) : BOOLEAN;
  128. FUNCTION  Async_Ring_Detect : BOOLEAN;
  129. PROCEDURE Async_Send_Break;
  130. PROCEDURE Async_Send_String( S : AnyStr );
  131. PROCEDURE Async_Send_String_With_Delays( S          : AnyStr;
  132.                                          Char_Delay : INTEGER;
  133.                                          EOS_Delay  : INTEGER  );
  134. FUNCTION  Async_Percentage_Used : REAL;
  135. PROCEDURE Async_Purge_Buffer;
  136. FUNCTION  Async_Peek( Nchars : INTEGER ) : CHAR;
  137. PROCEDURE Async_Setup_Port( ComPort       : INTEGER;
  138.                             Base_Address  : INTEGER;
  139.                             IRQ_Line      : INTEGER;
  140.                             Int_Numb      : INTEGER );
  141. PROCEDURE Async_Release_Buffers;
  142. PROCEDURE Async_Flush_Output_Buffer;
  143. PROCEDURE Async_Drain_Output_Buffer( Max_Wait_Time : INTEGER );
  144. FUNCTION  Async_Port_Address_Given( Com_Port : INTEGER ) : BOOLEAN;
  145. PROCEDURE Async_Send_Now( C : Char );
  146. FUNCTION  Async_Wait_For_Quiet( Max_Wait : LONGINT;
  147.                                 Wait_Time: LONGINT  ) : BOOLEAN;
  148.  
  149. IMPLEMENTATION
  150.                                    (* Ensure multitasking defined       *)
  151. {$DEFINE MTASK}
  152.  
  153. (*$I PIBASYN1.MOD *)
  154. (*$I PIBASYN2.MOD *)
  155. (*$I PIBASYN3.MOD *)
  156.  
  157. BEGIN (* PibAsync *)
  158.                                    (* Default communications parameters *)
  159.    Async_Do_CTS         := FALSE;
  160.    Async_Do_DSR         := FALSE;
  161.    Async_Hard_Wired_On  := FALSE;
  162.    Async_Break_Length   := 500;
  163.    Async_Do_XonXoff     := TRUE;
  164.    Async_OV_XonXoff     := TRUE;
  165.    Async_Buffer_Length  := 4096;
  166.    Async_OBuffer_Length := 1132;
  167.                                    (* Port addresses of each com port *)
  168.  
  169.    Default_Com_Base[1]  := COM1_Base;
  170.    Default_Com_Base[2]  := COM2_Base;
  171.    Default_Com_Base[3]  := COM3_Base;
  172.    Default_Com_Base[4]  := COM4_Base;
  173.  
  174.                                    (* IRQ line for each port *)
  175.  
  176.    Default_Com_Irq [1]  := COM1_Irq;
  177.    Default_Com_Irq [2]  := COM2_Irq;
  178.    Default_Com_Irq [3]  := COM3_Irq;
  179.    Default_Com_Irq [4]  := COM4_Irq;
  180.  
  181.                                    (* Pick up address of send-a-character *)
  182.                                    (* routine, which is used by INLINE    *)
  183.                                    (* code.                               *)
  184.  
  185.    Async_Send_Addr := ADDR( Async_Send );
  186.  
  187. END   (* PibAsync *).
  188.