|##########|
|#MAGIC   #|CLABLLFF
|#PROJECT #|""
|#PATHS   #|"StdProject"
|#FLAGS   #|xx---x--xx--x-x-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|x-xx-x----------
|##########|
DEFINITION MODULE SCSIDisk;
(* $A- *)
CONST
  scsiCmd     = 28;

|Error values
  selfUnit    = 40;
  dma         = 41;
  phase       = 42;
  parity      = 43;
  selTimeout  = 44;
  badStatus   = 45;
  noBoard     = 50;

TYPE
  SCSIFlags      = (readNotWrite,autoSense,oldAutoSense);
  SCSIFlagSet    = SET OF SCSIFlags;

  SCSICmd        = RECORD
                     data        : ANYPTR;
                     length      : LONGCARD;
                     actual      : LONGCARD;
                     command     : ANYPTR;
                     cmdLength,
                     cmdActual   : CARDINAL;
                     flags       : SCSIFlagSet;
                     status      : SHORTCARD;
                     senseLength : CARDINAL;
                     senseActual : CARDINAL;
                   END;
  SCSICmdPtr     = POINTER TO SCSICmd;


GROUP
  All   = scsiCmd,selfUnit,dma,phase,parity,selTimeout,badStatus,noBoard,
          SCSIFlags,SCSIFlagSet,SCSICmd,SCSICmdPtr;

END SCSIDisk.