Oberon/A2/Oberon.V24.Mod

MODULE V24 IN Oberon; (** AUTHOR "AFI"; PURPOSE "Backward compatibility module" *) (* Ensures the further validity of the earlier Aos.V24.Mod (object module V24.Obx) authored by "pjm". Most of the port control is now displaced to the new driver module V24.Obx module (Source V24.Mod *) IMPORT SYSTEM, Serials IN A2; CONST (* Needed for compatibility *) (** Port aliases (check with NumberOfPorts) *) COM1* = 1; COM2* = 2; COM3* = 3; COM4* = 4; COM5* = 5; COM6* = 6; COM7* = 7; COM8* = 8; (** Parity *) ParNo* = Serials.ParNo; ParOdd* = Serials.ParOdd; ParEven* = Serials.ParEven; ParMark* = Serials.ParMark; ParSpace* = Serials.ParSpace; (** Stop bits *) Stop1* = Serials.Stop1; Stop2* = Serials.Stop2; Stop1dot5* = Serials.Stop1dot5; (** Modem control lines *) DTR* = Serials.DTR; RTS* = Serials.RTS; (** output *) Break* = Serials.Break; (** input/output - Bit 6 in LCR *) DSR* = Serials.DSR; CTS* = Serials.CTS; RI* = Serials.RI; DCD* = Serials.DCD; (** input *) (** Receive error diagnostic *) OE* = Serials.OverrunError; PE* = Serials.ParityError; FE* = Serials.FramingError; BI* = Serials.BreakInterrupt; termination* = Serials.Closed; (* Indicates that the port is being closed *) Ok* = Serials.Ok; PortInUse* = Serials.PortInUse; NoSuchPort* = Serials.NoSuchPort; WrongBPS* = Serials.WrongBPS; WrongData* = Serials.WrongData; WrongParity* = Serials.WrongParity; WrongStop* = Serials.WrongStop; VAR ports: ARRAY Serials.MaxPorts + 1 OF Serials.Port; (* ports[0] is unused *) (** NumberOfPorts - Return number of ports available. *) PROCEDURE NumberOfPorts*(): SIGNED32; BEGIN RETURN Serials.MaxPorts; END NumberOfPorts; (** Start - Open a serial port (numbered from 0) connection. bps is the required bits per second. data is the number of bits per communication unit. parity is the parity mode (Par values above). stop is the number of stop bits (Stop values above). res returns 0 if ok, or error code on error. 1 means port already in use. 2 means no such port. 3 means bad bps value. 4 means bad data/parity/stop. DTR and RTS are enabled. *) PROCEDURE Start*(portNo, bps, data, parity, stop: SIGNED32; VAR res: INTEGER); VAR port : Serials.Port; BEGIN res := NoSuchPort; port := Serials.GetPort(portNo); IF port # NIL THEN ports[portNo] := port; ports[portNo].Open(bps, data, parity, stop, res) END; END Start; (** Stop - Close the connection of the specified port. Effect on Modem Control lines is undefined. *) PROCEDURE Stop*(portNo: SIGNED32); BEGIN ports[portNo].Close() END Stop; (** Send - Send a byte to the specified port. Waits until buffer space is available. res = Ok iff ok. *) (** Antediluvian: Kept for compatibility. - Use Writer... instead. *) PROCEDURE Send*(portNo: SIGNED32; x: SYSTEM.BYTE; VAR res: INTEGER); BEGIN ports[portNo].SendChar(CHR(x), res); END Send; (** SendBytes - Send n bytes to the specified port. Waits until buffer space is available. res = Ok iff all ok. *) (** Antediluvian: Kept for compatibility. - Use Writer... instead. *) PROCEDURE SendBytes*(portNo: SIGNED32; VAR x: ARRAY OF SYSTEM.BYTE; n: SIGNED32; VAR res: INTEGER); VAR i: SIGNED32; BEGIN i := 0; res := Serials.Ok; WHILE (i # n) & (res = Serials.Ok) DO Send(portNo, x[i], res); INC(i) END END SendBytes; (** Receive - Read one byte from the specified port. Waits until a byte is available. res = Ok iff ok. *) PROCEDURE Receive*(portNo: SIGNED32; VAR x: SYSTEM.BYTE; VAR res: INTEGER); VAR ch: CHAR; BEGIN ports[portNo].ReceiveChar(ch, res); x := ch END Receive; (** ReceiveBytes - Read n bytes from the specified port. Waits until n bytes are available. res = Ok iff ok. In case of error, the reception ends immediately at the first character in error. More data may be left in the buffer. *) PROCEDURE ReceiveBytes*(portNo: SIGNED32; VAR x: ARRAY OF SYSTEM.BYTE; n: SIGNED32; VAR res: INTEGER); VAR i: SIGNED32; BEGIN i := 0; res := Serials.Ok; WHILE (i # n) & (res = Serials.Ok) DO Receive(portNo, x[i], res); INC(i) END END ReceiveBytes; (** ClearMC - Clear the specified modem control lines. s may contain DTR, RTS & Break. *) PROCEDURE ClearMC*(portNo: SIGNED32; s: SET); BEGIN ports[portNo].ClearMC(s) END ClearMC; (** SetMC - Set the specified modem control lines. s may contain DTR, RTS & Break. *) PROCEDURE SetMC*(portNo: SIGNED32; s: SET); BEGIN ports[portNo].SetMC(s) END SetMC; (** GetMC - Return the state of the specified modem control lines. s contains the current state of DSR, CTS, RI, DCD & Break. *) PROCEDURE GetMC*(portNo: SIGNED32; VAR s: SET); BEGIN ports[portNo].GetMC(s) END GetMC; (** Available - Return the number of bytes available in the specified port's buffer. *) PROCEDURE Available*(portNo: SIGNED32): SIZE; BEGIN RETURN ports[portNo].Available() END Available; END V24. System.Free V24 ~