home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-2.DMS / in.adf / Units / Parallel.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  960 b   |  60 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.     ParErr_PortReset = 6;
  27.     IOPARB_ABORT = 5;
  28.     IOPARF_ABORT = $20;
  29.     IOPTB_PARBUSY = 0;
  30.     PARB_SHARED = 5;
  31.     IOPTF_PARBUSY = 1;
  32.     PARF_SHARED = $20;
  33.     IOPTB_PARSEL = 2;
  34.     PARB_RAD_BOOGIE = 3;
  35.     IOPTF_PARSEL = 4;
  36.     PARF_RAD_BOOGIE = 8;
  37.     PDCMD_SETPARAMS = $A;
  38.     ParErr_BufTooBig = 2;
  39.     PDCMD_QUERY = 9;
  40.     ParErr_LineErr = 4;
  41.     IOPTB_RWDIR = 3;
  42.     IOPTF_RWDIR = 8;
  43.     ParErr_InvParam = 3;
  44.     PARALLELNAME = 'parallel.device';
  45.     ParErr_InitErr = 7;
  46.     IOPARB_ACTIVE = 4;
  47.     ParErr_DevBusy = 1;
  48.     ParErr_NotOpen = 5;
  49.     IOPARF_ACTIVE = $10;
  50.     IOPARB_QUEUED = 6;
  51.     PARB_EOFMODE = 1;
  52.     IOPTB_PAPEROUT = 1;
  53.     IOPARF_QUEUED = $40;
  54.     PARF_EOFMODE = 2;
  55.     IOPTF_PAPEROUT = 2;
  56.  
  57.  
  58. IMPLEMENTATION
  59. end.
  60.