home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-3.DMS / in.adf / Units / SCSI.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  715 b   |  46 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.         scsi_SenseData: pbyte;
  19.         scsi_SenseLength: word;
  20.         scsi_SenseActual: word;
  21.         end;
  22.  
  23.  
  24.  
  25. const
  26.     SCSIF_NOSENSE = 0;
  27.     SCSIB_READ_WRITE = 0;
  28.     HFERR_NoBoard = $32;
  29.     HD_SCSICMD = $1C;
  30.     SCSIF_READ = 1;
  31.     SCSIB_AUTOSENSE = 1;
  32.     SCSIF_AUTOSENSE = 2;
  33.     SCSIF_WRITE = 0;
  34.     HFERR_Phase = $2A;
  35.     HFERR_BadStatus = $2D;
  36.     HFERR_SelfUnit = $28;
  37.     SCSIB_OLDAUTOSENSE = 2;
  38.     HFERR_DMA = $29;
  39.     SCSIF_OLDAUTOSENSE = 6;
  40.     HFERR_SelTimeout = $2C;
  41.     HFERR_Parity = $2B;
  42.  
  43.  
  44. IMPLEMENTATION
  45. end.
  46.