home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / devices / serial.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  2.5 KB  |  121 lines
  1. {$if not def DEVICES_SERIAL_H} CONST DEVICES_SERIAL_H=0;
  2.  
  3. { ******************************************************************
  4.   ** KickPascal-Include-Datei "devices/serial.h" zu Kickstart 3.0 **
  5.   ****************************************************************** }
  6.  
  7. TYPE p_IOTArray = ^IOTArray;
  8. TYPE p_IOExtSer = ^IOExtSer;
  9.  
  10. {$if not def EXEC_IO_H;incl "exec/io.h";endif}
  11.  
  12. TYPE IOTArray = RECORD
  13.  TermArray0 : Long;
  14.  TermArray1 : Long;
  15. END;
  16.  
  17. CONST SER_DEFAULT_CTLCHAR = $11130000;
  18.  
  19. TYPE IOExtSer = RECORD
  20.  IOSer        : IOStdReq;
  21.  io_CtlChar   : Long;
  22.  io_RBufLen   : Long;
  23.  io_ExtFlags  : Long;
  24.  io_Baud      : Long;
  25.  io_BrkTime   : Long;
  26.  io_TermArray : IOTArray;
  27.  io_ReadLen   : Byte;
  28.  io_WriteLen  : Byte;
  29.  io_StopBits  : Byte;
  30.  io_SerFlags  : Byte;
  31.  io_Status    : Word;
  32. END;
  33.  
  34. CONST
  35.  SDCMD_QUERY     = CMD_NONSTD;
  36.  SDCMD_BREAK     = (CMD_NONSTD+1);
  37.  SDCMD_SETPARAMS = (CMD_NONSTD+2);
  38.  
  39.  
  40. CONST
  41.  SERB_XDISABLED  = 7;
  42.  SERF_XDISABLED  = $80;
  43.  SERB_EOFMODE    = 6;
  44.  SERF_EOFMODE    = $40;
  45.  SERB_SHARED     = 5;
  46.  SERF_SHARED     = $20;
  47.  SERB_RAD_BOOGIE = 4;
  48.  SERF_RAD_BOOGIE = $10;
  49.  SERB_QUEUEDBRK  = 3;
  50.  SERF_QUEUEDBRK  = $8;
  51.  SERB_7WIRE      = 2;
  52.  SERF_7WIRE      = $4;
  53.  SERB_PARTY_ODD  = 1;
  54.  SERF_PARTY_ODD  = $2;
  55.  SERB_PARTY_ON   = 0;
  56.  SERF_PARTY_ON   = $1;
  57.  
  58. CONST
  59.  IO_STATB_XOFFREAD   = 12;
  60.  IO_STATF_XOFFREAD   = $1000;
  61.  IO_STATB_XOFFWRITE  = 11;
  62.  IO_STATF_XOFFWRITE  = $800;
  63.  IO_STATB_READBREAK  = 10;
  64.  IO_STATF_READBREAK  = $400;
  65.  IO_STATB_WROTEBREAK = 9;
  66.  IO_STATF_WROTEBREAK = $200;
  67.  IO_STATB_OVERRUN    = 8;
  68.  IO_STATF_OVERRUN    = $100;
  69.  
  70. CONST
  71.  SEXTB_MSPON = 1;
  72.  SEXTF_MSPON = $2;
  73.  SEXTB_MARK  = 0;
  74.  SEXTF_MARK  = $1;
  75.  
  76. CONST
  77.  SerErr_DevBusy       = 1;
  78.  SerErr_BaudMismatch  = 2;
  79.  SerErr_BufErr        = 4;
  80.  SerErr_InvParam      = 5;
  81.  SerErr_LineErr       = 6;
  82.  SerErr_ParityErr     = 9;
  83.  SerErr_TimerErr      = 11;
  84.  SerErr_BufOverflow   = 12;
  85.  SerErr_NoDSR         = 13;
  86.  SerErr_DetectedBreak = 15;
  87.  
  88.  
  89. {$if def DEVICES_SERIAL_H_OBSOLETE}
  90. CONST
  91.  SerErr_InvBaud   = 3;
  92.  SerErr_NotOpen   = 7;
  93.  SerErr_PortReset = 8;
  94.  SerErr_InitErr   = 10;
  95.  SerErr_NoCTS     = 14;
  96.  IOSTB_XOFFREAD   = 4;
  97.  IOSTF_XOFFREAD   = $10;
  98.  IOSTB_XOFFWRITE  = 3;
  99.  IOSTF_XOFFWRITE  = $8;
  100.  IOSTB_READBREAK  = 2;
  101.  IOSTF_READBREAK  = $4;
  102.  IOSTB_WROTEBREAK = 1;
  103.  IOSTF_WROTEBREAK = $2;
  104.  IOSTB_OVERRUN    = 0;
  105.  IOSTF_OVERRUN    = $1;
  106.  
  107.  IOSERB_BUFRREAD  = 7;
  108.  IOSERF_BUFRREAD  = $80;
  109.  IOSERB_QUEUED    = 6;
  110.  IOSERF_QUEUED    = $40;
  111.  IOSERB_ABORT     = 5;
  112.  IOSERF_ABORT     = $20;
  113.  IOSERB_ACTIVE    = 4;
  114.  IOSERF_ACTIVE    = $10;
  115. {$endif}
  116.  
  117.  
  118. CONST SERIALNAME = "serial.device";
  119.  
  120. {$endif}
  121.