home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-2.DMS / in.adf / Units / SCSI.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  501 b   |  37 lines
  1. unit SCSI;
  2.  
  3. INTERFACE
  4. uses Exec;
  5.  
  6.  
  7. type
  8.     pSCSICmd = ^tSCSICmd;
  9.     tSCSICmd = record
  10.         scsi_Data: pword;
  11.         scsi_Length: long;
  12.         scsi_Actual: long;
  13.         scsi_Command: pbyte;
  14.         scsi_CmdLength: word;
  15.         scsi_CmdActual: word;
  16.         scsi_Flags: byte;
  17.         scsi_Status: byte;
  18.         end;
  19.  
  20.  
  21.  
  22. const
  23.     HFERR_NoBoard = $32;
  24.     HD_SCSICMD = $1C;
  25.     SCSIF_READ = 1;
  26.     SCSIF_WRITE = 0;
  27.     HFERR_Phase = $2A;
  28.     HFERR_BadStatus = $2D;
  29.     HFERR_SelfUnit = $28;
  30.     HFERR_DMA = $29;
  31.     HFERR_SelTimeout = $2C;
  32.     HFERR_Parity = $2B;
  33.  
  34.  
  35. IMPLEMENTATION
  36. end.
  37.