home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-3.DMS / in.adf / Units / Parallel.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  1.1 KB  |  66 lines
  1. unit Parallel;
  2.  
  3. INTERFACE
  4. uses Exec;
  5.  
  6.  
  7. type
  8.     pIOPArray = ^tIOPArray;
  9.     tIOPArray = record
  10.         PTermArray0: long;
  11.         PTermArray1: long;
  12.         end;
  13.  
  14.     pIOExtPar = ^tIOExtPar;
  15.     tIOExtPar = record
  16.         IOPar: tIOStdReq;
  17.         io_PExtFlags: long;
  18.         io_Status: byte;
  19.         io_ParFlags: byte;
  20.         io_PTermArray: tIOPArray;
  21.         end;
  22.  
  23.  
  24.  
  25. const
  26.     PARF_SLOWMODE = $10;
  27.     ParErr_PortReset = 6;
  28.     IOPARB_ABORT = 5;
  29.     IOPARF_ABORT = $20;
  30.     IOPTB_PARBUSY = 0;
  31.     PARB_SHARED = 5;
  32.     IOPTF_PARBUSY = 1;
  33.     PARF_SHARED = $20;
  34.     IOPTB_PARSEL = 2;
  35.     PARB_RAD_BOOGIE = 3;
  36.     IOPTF_PARSEL = 4;
  37.     PARF_RAD_BOOGIE = 8;
  38.     PDCMD_SETPARAMS = $A;
  39.     ParErr_BufTooBig = 2;
  40.     PDCMD_QUERY = 9;
  41.     ParErr_LineErr = 4;
  42.     IOPTB_RWDIR = 3;
  43.     IOPTF_RWDIR = 8;
  44.     ParErr_InvParam = 3;
  45.     PARALLELNAME = 'parallel.device';
  46.     ParErr_InitErr = 7;
  47.     PARB_FASTMODE = 3;
  48.     IOPARB_ACTIVE = 4;
  49.     ParErr_DevBusy = 1;
  50.     ParErr_NotOpen = 5;
  51.     PARF_FASTMODE = 8;
  52.     IOPARF_ACTIVE = $10;
  53.     PARB_ACKMODE = 2;
  54.     PARF_ACKMODE = 4;
  55.     IOPARB_QUEUED = 6;
  56.     PARB_EOFMODE = 1;
  57.     IOPTB_PAPEROUT = 1;
  58.     IOPARF_QUEUED = $40;
  59.     PARF_EOFMODE = 2;
  60.     IOPTF_PAPEROUT = 2;
  61.     PARB_SLOWMODE = 4;
  62.  
  63.  
  64. IMPLEMENTATION
  65. end.
  66.