\ serialconst  1/03/98  gwj

\ error codes
hex 300 decimal constant serErrorClass	

serErrorClass
dup 1 or constant serErrBadParam
dup 2 or constant serErrBadPort
dup 3 or constant serErrNoMem
dup 4 or constant serErrBadConnID
dup 5 or constant serErrTimeOut
dup 6 or constant serErrLineErr
dup 7 or constant serErrAlreadyOpen
dup 8 or constant serErrStillOpen
dup 9 or constant serErrNotOpen	
 10 or constant serErrNotSupported	

\ settings flags (32 bit)
hex
1 0 2constant serSetFlagStopBitsM
0 0 2constant serSetFlagStopBits1
1 0 2constant serSetFlagStopBits2
2 0 2constant serSetFlagParityOnM
4 0 2constant serSetFlagParityEvenM
8 0 2constant serSetFlagXonXoffM
10 0 2constant serSetFlagRTSAutoM
20 0 2constant serSetFlagCTSAutoM
C0 0 
2constant serSetFlagBitsPerCharM
0 0 2constant serSetFlagBitsPerChar5
40 0
2constant serSetFlagBitsPerChar6
80 0
2constant serSetFlagBitsPerChar7
C0 0
2constant  serSetFlagBitsPerChar8
decimal

\ Thanks to Marcio Marchini
: 2or ( d1 d2 -- d )
   rot or rot rot or swap
;

\ Default settings
serSetFlagBitsPerChar8
serSetFlagStopBits1 2or
serSetFlagRTSAutoM 2or
 2constant serDefaultSettings
500 constant serDefaultCTSTimeout


\ line errors
1 constant serLnErrParity
2 constant serLnErrHWOverrun
4 constant serLnErrFraming
8 constant serLnErrBreak
16 constant serLnErrHShake
32 constant serLnErrSWOverrun