DEFINITION MODULE KermParam; (************************************************************************) (* This module initializes and stores all global parameters *) (* written: 09.10.85 Matthias Aebi *) (* last modification: 26.02.86 Matthias Aebi *) (************************************************************************) EXPORT QUALIFIED LBaudRate, LCheckType, LCurrPort, LEcho, LEOLChar, LEscChar, LFileType, LMaxRetries, LNumOfPad, LPackSize, LPadChar, LParity, LPrefChar, LQuoteChar, LStartChar, LTimeOut, LTimer, LFilNamConv, LDebug, LPrompt, LWarning, REOLChar, RNumOfPad, RPackSize, RPadChar, RQuoteChar, RTimeOut, FileTyp, ParityTyp, Packet; TYPE FileTyp = (text, binary); ParityTyp = (none, even, odd, mark, space); Packet = ARRAY [0..93] OF CHAR; VAR LBaudRate : CARDINAL; LCheckType : CARDINAL; (* 1,2 or 3 character CRC *) LCurrPort : CARDINAL; (* Number of current serial port *) LDebug : BOOLEAN; (* Display debugging Information *) LEcho : BOOLEAN; (* Local echo on/off when connecte *) LEOLChar : CHAR; (* Local End of line character *) LEscChar : CHAR; (* Current escape from connect character *) LFileType : FileTyp; (* Binary- or text- file transmission *) LFilNamConv : BOOLEAN; (* should filenames to be converted *) LMaxRetries : CARDINAL; (* Maximum number of retries *) LNumOfPad : CARDINAL; (* Number of padding characters (local) *) LPackSize : CARDINAL; (* Length of data packets (sending) *) LPadChar : CHAR; (* Padding character (sending) *) LParity : ParityTyp; (* Parity currently selected *) LPrefChar : CHAR; (* Character for eighth bit prefixing *) LPrompt : ARRAY [0..15] OF CHAR; (* local prompt string *) LQuoteChar : CHAR; (* Use this character as ctrl Quote *) LStartChar : CHAR; (* Start of packet, normally SOH (01H) *) LTimeOut : CARDINAL; (* Timeout after LTimeOut seconds *) LTimer : BOOLEAN; (* Timer on/off *) LWarning : BOOLEAN; (* Warn user if there are name conflicts *) REOLChar : CHAR; (* Remote End of line character *) RNumOfPad : CARDINAL; (* Number of padding characters (remote) *) RPackSize : CARDINAL; (* Length of data packets (receiving) *) RPadChar : CHAR; (* Padding character (sending) *) RQuoteChar : CHAR; (* Remote uses this character as ctrl Quo*) RTimeOut : CARDINAL; (* Remote timeout after RTimeOut seconds *) END KermParam.