DCB
:Object DCB <Super Object
Record: AddrOf
int DCBlength
int BaudRate
int BinaryBits \ a 32bit cell of bit fields
1 bits fBinary \ define the bit fields
1 bits fParity
1 bits fOutxCtsFlow
1 bits fOutxDsrFlow \ SDI changed for Rts to Dsr
2 bits fDtrControl
1 bits fDtrSensitivity
1 bits fTXContinueOnXoff
1 bits fOutX
1 bits fInx
1 bits fErrorChar
1 bits fNull
2 bits fRtsControl
1 bits fAbortOnError
17 bits fDummy
short wReserved
short XonLim
short XoffLim
byte ByteSize
byte Parity
byte StopBits
byte XonChar
byte XoffChar
byte ErrorChar
byte EofChar
byte EvtChar
short wReserved1
;RecordSize: SIZEOFDCB
:M Reset: ( -- )
AddrOf SIZEOFDCB erase
;M
:M ClassInit: ( -- )
ClassInit: super
Reset: self \ create structure as Reset
;M
;Object