<> <> <> DIRECTORY BufferDefs: FROM "BufferDefs" USING [Buffer], RS232C: FROM "RS232C" USING [ChannelHandle, LineSpeed], NSAddress: FROM "NSAddress" USING [ProcessorID]; HalfDuplex: DEFINITIONS = BEGIN <> Initialize: PROCEDURE [ chHandle: RS232C.ChannelHandle, lineSpeed: RS232C.LineSpeed, ourHostNumber: NSAddress.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