-- HalfDuplex.mesa (last edited by: Garlick on: July 21, 1980  3:52 PM) --
DIRECTORY
  BufferDefs: FROM "BufferDefs" USING [Buffer],
  RS232C: FROM "RS232C" USING [ChannelHandle, LineSpeed],
  SpecialSystem: FROM "SpecialSystem" USING [ProcessorID];

HalfDuplex: DEFINITIONS =
  BEGIN
  -- procedures
  Initialize: PROCEDURE [
    chHandle: RS232C.ChannelHandle, lineSpeed: RS232C.LineSpeed,
    ourHostNumber: SpecialSystem.ProcessorID];
  Destroy: PROCEDURE;
  WaitToSend: PROCEDURE;
  SendCompleted: PROCEDURE [moreToSend: BOOLEAN];
  CheckForTurnAround: PROCEDURE [b: BufferDefs.Buffer]
    RETURNS [throwAway: BOOLEAN];
  END.
LOG
Time: July 14, 1980  10:24 AM	By: Garlick	Action: Created file