home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-3.DMS / in.adf / Units / Serial.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  1.4 KB  |  82 lines
  1. unit Serial;
  2.  
  3. INTERFACE
  4. uses Exec;
  5.  
  6.  
  7. type
  8.     pIOTArray = ^tIOTArray;
  9.     tIOTArray = record
  10.         TermArray0: long;
  11.         TermArray1: long;
  12.         end;
  13.  
  14.     pIOExtSer = ^tIOExtSer;
  15.     tIOExtSer = record
  16.         IOSer: tIOStdReq;
  17.         io_CtlChar: long;
  18.         io_RBufLen: long;
  19.         io_ExtFlags: long;
  20.         io_Baud: long;
  21.         io_BrkTime: long;
  22.         io_TermArray: tIOTArray;
  23.         io_ReadLen: byte;
  24.         io_WriteLen: byte;
  25.         io_StopBits: byte;
  26.         io_SerFlags: byte;
  27.         io_Status: word;
  28.         end;
  29.  
  30.  
  31.  
  32. const
  33.     SERF_EOFMODE = $40;
  34.     SerErr_NoDSR = $D;
  35.     IO_STATB_XOFFREAD = $C;
  36.     SerErr_ParityErr = 9;
  37.     IO_STATF_XOFFREAD = $1000;
  38.     SDCMD_BREAK = $A;
  39.     SerErr_BufOverflow = $C;
  40.     IO_STATB_XOFFWRITE = $B;
  41.     IO_STATF_XOFFWRITE = $800;
  42.     SERB_SHARED = 5;
  43.     SERF_SHARED = $20;
  44.     SERIALNAME = 'serial.device';
  45.     SERB_RAD_BOOGIE = 4;
  46.     SDCMD_SETPARAMS = $B;
  47.     SERF_RAD_BOOGIE = $10;
  48.     SERB_PARTY_ON = 0;
  49.     SER_DEFAULT_CTLCHAR = $11130000;
  50.     SERB_XDISABLED = 7;
  51.     SERF_PARTY_ON = 1;
  52.     SERF_XDISABLED = $80;
  53.     IO_STATB_READBREAK = $A;
  54.     SERB_7WIRE = 2;
  55.     SDCMD_QUERY = 9;
  56.     IO_STATF_READBREAK = $400;
  57.     SERF_7WIRE = 4;
  58.     SerErr_DetectedBreak = $F;
  59.     SerErr_BufErr = 4;
  60.     SERB_QUEUEDBRK = 3;
  61.     SerErr_LineErr = 6;
  62.     IO_STATB_WROTEBREAK = 9;
  63.     SERF_QUEUEDBRK = 8;
  64.     IO_STATF_WROTEBREAK = $200;
  65.     IO_STATB_OVERRUN = 8;
  66.     SEXTB_MSPON = 1;
  67.     SerErr_BaudMismatch = 2;
  68.     SerErr_InvParam = 5;
  69.     IO_STATF_OVERRUN = $100;
  70.     SEXTB_MARK = 0;
  71.     SEXTF_MSPON = 2;
  72.     SEXTF_MARK = 1;
  73.     SerErr_DevBusy = 1;
  74.     SerErr_TimerErr = $B;
  75.     SERB_PARTY_ODD = 1;
  76.     SERB_EOFMODE = 6;
  77.     SERF_PARTY_ODD = 2;
  78.  
  79.  
  80. IMPLEMENTATION
  81. end.
  82.