EQU  SER_CTL      $1113
EQU  SER_DBAUD    9600


EQU  SDCMD_QUERY      9+0       ( CMD_NONSTD=9;exec/io )
EQU  SDCMD_BREAK      9+1
EQU  SDCMD_SETPARAMS  9+2


EQU  SERB_XDISABLED       7
EQU  SERF_XDISABLED       1<<7
EQU  SERB_EOFMODE         6
EQU  SERF_EOFMODE         1<<6
EQU  SERB_SHARED          5
EQU  SERF_SHARED          1<<5
EQU  SERB_RAD_BOOGIE      4
EQU  SERF_RAD_BOOGIE      1<<4
EQU  SERB_QUEUEDBRK       3
EQU  SERF_QUEUEDBRK       1<<3
EQU  SERB_7WIRE           2
EQU  SERF_7WIRE           1<<2
EQU  SERB_PARTY_ODD       1
EQU  SERF_PARTY_ODD       1<<1
EQU  SERB_PARTY_ON        0
EQU  SERF_PARTY_ON        1<<0
EQU  IOSERB_BUFRREAD      7
EQU  IOSERF_BUFRREAD      1<<7
EQU  IOSERB_QUEUED        6
EQU  IOSERF_QUEUED        1<<6
EQU  IOSERB_ABORT         5
EQU  IOSERF_ABORT         1<<5
EQU  IOSERB_ACTIVE        4
EQU  IOSERF_ACTIVE        1<<4
EQU  IOSTB_XOFFREAD       4
EQU  IOSTF_XOFFREAD       1<<4
EQU  IOSTB_XOFFWRITE      3
EQU  IOSTF_XOFFWRITE      1<<3
EQU  IOSTB_READBREAK      2
EQU  IOSTF_READBREAK      1<<2
EQU  IOSTB_WROTEBREAK     1
EQU  IOSTF_WROTEBREAK     1<<1
EQU  IOSTB_OVERRUN        0
EQU  IOSTF_OVERRUN        1<<0
EQU  SEXTB_MSPON          1
EQU  SEXTF_MSPON          1<<1
EQU  SEXTB_MARK           0
EQU  SEXTF_MARK           1<<0

{s IOTArray
    LONG    TermArray0
    LONG    TermArray1
   s}

{s IOExtSer
    struct  48 IOSer        ( { IOStdReq=48;exec/io )
    LONG    io_CtlChar
    LONG    io_RBufLen
    LONG    io_ExtFlags
    LONG    io_Baud
    LONG    io_BrkTime
    STRUCT  IOTArray io_TermArray
    BYTE    io_ReadLen
    BYTE    io_WriteLen
    BYTE    io_StopBits
    BYTE    io_SerFlags
    WORD    io_Status
   s}

EQU  SerErr_DevBusy             1
EQU  SerErr_BaudMismatch        2
EQU  SerErr_InvBaud             3
EQU  SerErr_BufErr              4
EQU  SerErr_InvParam            5
EQU  SerErr_LineErr             6
EQU  SerErr_NotOpen             7
EQU  SerErr_PortReset           8
EQU  SerErr_ParityErr           9
EQU  SerErr_InitErr            10
EQU  SerErr_TimerErr           11
EQU  SerErr_BufOverflow        12
EQU  SerErr_NoDSR              13
EQU  SerErr_NoCTS              14
EQU  SerErr_DetectedBreak      15


: SERIALNAME   " serial.device"  drop  ;