(**************************************************************************

     $RCSfile: ScsiDisk.mod $
  Description: SCSI command definitions

   Created by: fjc (Frank Copeland)
    $Revision: 1.2 $
      $Author: fjc $
        $Date: 1994/05/12 19:11:02 $

  Copyright © 1994, Frank Copeland.
  This file is part of the Oberon-A Library.
  See Oberon-A.doc for conditions of use and distribution.

  Log entries are at the end of the file.

***************************************************************************)

MODULE ScsiDisk;

(* $P- allow non-portable code *)

IMPORT T := Types, SYS := SYSTEM;

CONST

  hdScsiCmd *      = 28;

TYPE

  SCSICmdPtr * = CPOINTER TO SCSICmd;
  SCSICmd * = RECORD
    scsiData *        : SYS.CPTR;

    scsiLength *      : T.ULONG;

    scsiActual *      : T.ULONG;
    scsiCommand *     : SYS.CPTR;
    scsiCmdLength *   : T.UWORD;
    scsiCmdActual *   : T.UWORD;
    scsiFlags *       : T.BSET;
    scsiStatus *      : T.UBYTE;
    scsiSenseData *   : SYS.CPTR;

    scsiSenseLength * : T.UWORD;

    scsiSenseActual * : T.UWORD;
  END;

CONST

  scsifWrite *             = {};
  scsifRead *              = {0};
  scsiReadWrite *          = 0;

  scsifNoSense *           = {};
  scsifAutoSense *         = {1};

  scsifOldAutoSense *      = {1,2};

  scsiAutoSense *          = 1;
  scsiOldAutoSense *       = 2;

  hfErrSelfUnit *          = 40;
  hfErrDMA *               = 41;
  hfErrPhase *             = 42;
  hfErrParity *            = 43;
  hfErrSelTimeout *        = 44;
  hfErrBadStatus *         = 45;

  hfErrNoBoard *           = 50;

END ScsiDisk.

(**************************************************************************

  $Log: ScsiDisk.mod $
  Revision 1.2  1994/05/12  19:11:02  fjc
  - Prepared for release

  Revision 1.1  1994/01/15  21:20:10  fjc
  - Start of revision control

***************************************************************************)

 

(* Comments stripped by StripComments 1.0 *)