home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / devices / parallel.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.5 KB  |  71 lines
  1. {$if not def DEVICES_PARALLEL_H} CONST DEVICES_PARALLEL_H=0;
  2.  
  3. { ********************************************************************
  4.   ** KickPascal-Include-Datei "devices/parallel.h" zu Kickstart 3.0 **
  5.   ******************************************************************** }
  6.  
  7. TYPE p_IOPArray = ^IOPArray;
  8. TYPE p_IOExtPar = ^IOExtPar;
  9.  
  10. {$if not def EXEC_IO_H;incl "exec/io.h";endif}
  11.  
  12. TYPE IOPArray = RECORD
  13.  PTermArray0 : Long;
  14.  PTermArray1 : Long;
  15. END;
  16.  
  17. TYPE IOExtPar = RECORD
  18.  IOPar         : IOStdReq;
  19.  io_PExtFlags  : Long;
  20.  io_Status     : Byte;
  21.  io_ParFlags   : Byte;
  22.  io_PTermArray : IOPArray;
  23. END;
  24.  
  25. CONST
  26.  PARB_SHARED     = 5;
  27.  PARF_SHARED     = $20;
  28.  PARB_SLOWMODE   = 4;
  29.  PARF_SLOWMODE   = $10;
  30.  PARB_FASTMODE   = 3;
  31.  PARF_FASTMODE   = $8;
  32.  PARB_RAD_BOOGIE = 3;
  33.  PARF_RAD_BOOGIE = $4;
  34.  PARB_ACKMODE    = 2;
  35.  PARF_ACKMODE    = $2;
  36.  PARB_EOFMODE    = 1;
  37.  PARF_EOFMODE    = $1;
  38.  
  39. CONST
  40.  IOPARB_QUEUED  = 6;
  41.  IOPARF_QUEUED  = $40;
  42.  IOPARB_ABORT   = 5;
  43.  IOPARF_ABORT   = $20;
  44.  IOPARB_ACTIVE  = 4;
  45.  IOPARF_ACTIVE  = $10;
  46.  IOPTB_RWDIR    = 3;
  47.  IOPTF_RWDIR    = $8;
  48.  IOPTB_PARSEL   = 2;
  49.  IOPTF_PARSEL   = $4;
  50.  IOPTB_PAPEROUT = 1;
  51.  IOPTF_PAPEROUT = $2;
  52.  IOPTB_PARBUSY  = 0;
  53.  IOPTF_PARBUSY  = $1;
  54.  
  55. CONST PARALLELNAME = "parallel.device";
  56.  
  57. CONST
  58.  PDCMD_QUERY     = CMD_NONSTD;
  59.  PDCMD_SETPARAMS = (CMD_NONSTD+1);
  60.  
  61. CONST
  62.  ParErr_DevBusy   = 1;
  63.  ParErr_BufTooBig = 2;
  64.  ParErr_InvParam  = 3;
  65.  ParErr_LineErr   = 4;
  66.  ParErr_NotOpen   = 5;
  67.  ParErr_PortReset = 6;
  68.  ParErr_InitErr   = 7;
  69.  
  70. {$endif}
  71.