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