(*************************************************************) (* *) (* Copyright (C) 1988, 1989 *) (* by Stony Brook Software *) (* *) (* All rights reserved. *) (* *) (*************************************************************) DEFINITION MODULE CommPort; TYPE CommStatus = ( Success, InvalidPort, InvalidParameter, AlreadyReceiving, NotReceiving, NoCharacter, FramingError, OverrunError, ParityError, BufferOverflow, TimeOut ); BaudRate = ( Baud110, Baud150, Baud300, Baud600, Baud1200, Baud2400, Baud4800, Baud9600, Baud19200 ); DataBits = [7..8]; StopBits = [1..2]; Parity = (Even, Odd, None); PROCEDURE InitPort(port : CARDINAL; speed : BaudRate; data : DataBits; stop : StopBits; check : Parity) : CommStatus; PROCEDURE StartReceiving(port, bufsize : CARDINAL) : CommStatus; PROCEDURE StopReceiving(port : CARDINAL) : CommStatus; PROCEDURE GetChar(port : CARDINAL; VAR ch : CHAR) : CommStatus; PROCEDURE SendChar(port : CARDINAL; ch : CHAR; modem : BOOLEAN) : CommStatus; END CommPort.