DEFINITION MODULE SCSIDisk; (*$Implementation:=FALSE*)
(* 10-May-1992/cn *)

FROM SYSTEM IMPORT ADDRESS;

CONST
 scsiCmd=28;

TYPE
 SCSIFlags=(
  readWriteB,autoSenseB,oldAutoSenseB,scf3,scf4,scf5,scf6,scf7
 );
 SCSIFlagSet=SET OF SCSIFlags;

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

CONST
 write=SCSIFlagSet{};
 read=SCSIFlagSet{readWriteB};
 noSense=SCSIFlagSet{};
 autoSense=SCSIFlagSet{autoSenseB};
 oldAutoSense=SCSIFlagSet{autoSenseB,oldAutoSenseB};

 SelfUnit=40;
 DMA=41;
 Phase=42;
 Parity=43;
 SelTimeout=44;
 BadStatus=45;
 NoBoard=50;

END SCSIDisk.noimp
