EQU  PDCMD_QUERY        9    ( CMD_NONSTD=9;exec/io )
EQU  PDCMD_SETPARAMS    9+1

EQU  Par_DEVFINISH      10

EQU  ParErr_DevBusy             1
EQU  ParErr_BufTooBig           2
EQU  ParErr_InvParam            3
EQU  ParErr_LineErr             4
EQU  ParErr_NotOpen             5
EQU  ParErr_PortReset           6
EQU  ParErr_InitErr             7


EQU  PARB_SHARED      5
EQU  PARF_SHARED      1<<5
EQU  PARB_RAD_BOOGIE  3
EQU  PARF_RAD_BOOGIE  1<<3
EQU  PARB_EOFMODE     1
EQU  PARF_EOFMODE     1<<1
EQU  IOPARB_QUEUED    6
EQU  IOPARF_QUEUED    1<<6
EQU  IOPARB_ABORT     5
EQU  IOPARF_ABORT     1<<5
EQU  IOPARB_ACTIVE    4
EQU  IOPARF_ACTIVE    1<<4
EQU  IOPTB_RWDIR      3
EQU  IOPTF_RWDIR      1<<3
EQU  IOPTB_PBUSY      2
EQU  IOPTF_PBUSY      1<<2
EQU  IOPTB_PAPEROUT   1
EQU  IOPTF_PAPEROUT   1<<1
EQU  IOPTB_PSEL       0
EQU  IOPTF_PSEL       1<<0


{s IOPArray
    LONG   PTermArray0
    LONG   PTermArray1
   s}

{s IOExtPar
    struct  48 IOPar        ( { IOStdReq=48;exec/io )
    LONG    io_PExtFlags
    BYTE    io_Status
    BYTE    io_ParFlags
    STRUCT  IOPArray io_PTermArray
   s}

: PARALLELNAME   " parallel.device"  drop  ;