home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / os2pm / datalink.def < prev    next >
Encoding:
Modula Definition  |  2020-01-01  |  752 b   |  29 lines
  1. DEFINITION MODULE DataLink;   (* Sends and Receives Packets for PCKermit *)
  2.  
  3.    FROM PMWIN IMPORT
  4.       MPARAM;
  5.  
  6.    FROM PAD IMPORT
  7.       PacketType;
  8.  
  9.    EXPORT QUALIFIED
  10.       WM_DL, FlushUART, SendPacket, ReceivePacket, DoDLMsg;
  11.  
  12.    CONST
  13.       WM_DL = 6000H;
  14.  
  15.    PROCEDURE FlushUART;
  16.    (* ensure no characters left in UART holding registers *)
  17.  
  18.    PROCEDURE SendPacket (s : PacketType);
  19.    (* Adds SOH and CheckSum to packet *)
  20.  
  21.    PROCEDURE ReceivePacket (VAR r : PacketType) : BOOLEAN;
  22.    (* strips SOH and checksum -- returns status: TRUE= good packet       *)
  23.    (* received;  FALSE = timed out waiting for packet or checksum error  *)
  24.  
  25.    PROCEDURE DoDLMsg (mp1, mp2 [VALUE] : MPARAM);
  26.    (* Process DataLink Messages *)
  27.  
  28. END DataLink.
  29.