home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / MODULAV2GERMAN.DMS / in.adf / Def.zoo / TrackDisk.def < prev    next >
Encoding:
Modula Definition  |  1988-11-06  |  1.4 KB  |  80 lines
  1. (*$M-*)
  2. DEFINITION MODULE TrackDisk;
  3.  
  4. FROM SYSTEM IMPORT
  5.  BYTE,SHIFT;
  6. FROM Exec IMPORT
  7.  clear,read,update,write,nonstd,IOStdReq,Unit;
  8.  
  9. CONST
  10.  trackDiskName="trackdisk.device";
  11.  motor=nonstd;
  12.  seek=nonstd+1;
  13.  format=nonstd+2;
  14.  remove=nonstd+3;
  15.  changeNum=nonstd+4;
  16.  changeState=nonstd+5;
  17.  protStatus=nonstd+6;
  18.  rawRead=nonstd+7;
  19.  rawWrite=nonstd+8;
  20.  getDriveType=nonstd+9;
  21.  getNumTracks=nonstd+10;
  22.  addChangeInt=nonstd+11;
  23.  remChangeInt=nonstd+12;
  24.  lastComm=nonstd+13;
  25.  extCom=8000H;
  26.  extWrite=write+extCom;
  27.  extRead=read+extCom;
  28.  extMotor=motor+extCom;
  29.  extSeek=seek+extCom;
  30.  extFormat=format+extCom;
  31.  extUpdate=update+extCom;
  32.  extClear=clear+extCom;
  33.  extRawRead=rawRead+extCom;
  34.  extRawWrite=rawWrite+extCom;
  35.  numSecs=11;
  36.  numUnits=4;
  37.  sector=512;
  38.  secShift=9;
  39.  labelSize=16;
  40.  indexSync=4;
  41.  allowNon35=0;
  42.  drive35=1;
  43.  drive525=2;
  44.  notSpecified=20;
  45.  noSecHdr=21;
  46.  badSecPreamble=22;
  47.  badSecId=23;
  48.  badHdrSum=24;
  49.  badSecSum=25;
  50.  tooFewSecs=26;
  51.  badSecHdr=27;
  52.  writeProt=28;
  53.  diskChanged=29;
  54.  seekError=30;
  55.  noMem=31;
  56.  badUnitNum=32;
  57.  badDriveType=33;
  58.  driveInUse=34;
  59.  postReset=35;
  60.  
  61. TYPE
  62.  IOTrackDisk=RECORD
  63.   req:IOStdReq;
  64.   count:LONGCARD;
  65.   secLabel:LONGCARD;
  66.  END;
  67.  IOTrackDiskPtr=POINTER TO IOTrackDisk; 
  68.  TDUPublicUnit=RECORD
  69.   unit:Unit;
  70.   comp01Track:CARDINAL;
  71.   comp10Track:CARDINAL;
  72.   comp11Track:CARDINAL;
  73.   stepDelay:LONGCARD;
  74.   settleDelay:LONGCARD;
  75.   retryCnt:[0..255]
  76.  END;
  77.  
  78. END TrackDisk.
  79.  
  80.