home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-2.DMS / in.adf / Units / Trackdisk.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  1.5 KB  |  85 lines
  1. unit Trackdisk;
  2.  
  3. INTERFACE
  4. uses Exec;
  5.  
  6.  
  7. type
  8.     pIOExtTD = ^tIOExtTD;
  9.     tIOExtTD = record
  10.         iotd_Req: tIOStdReq;
  11.         iotd_Count: long;
  12.         iotd_SecLabel: long;
  13.         end;
  14.  
  15.     pTDU_PublicUnit = ^tTDU_PublicUnit;
  16.     tTDU_PublicUnit = record
  17.         tdu_Unit: tUnit;
  18.         tdu_Comp01Track: word;
  19.         tdu_Comp10Track: word;
  20.         tdu_Comp11Track: word;
  21.         tdu_StepDelay: long;
  22.         tdu_SettleDelay: long;
  23.         tdu_RetryCnt: byte;
  24.         end;
  25.  
  26.  
  27.  
  28. const
  29.     TD_CHANGENUM = $D;
  30.     TD_REMOVE = $C;
  31.     TDERR_PostReset = $23;
  32.     TD_SECTOR = $200;
  33.     ETD_WRITE = $8003;
  34.     TD_LABELSIZE = $10;
  35.     ETD_SEEK = $800A;
  36.     TDB_ALLOW_NON_3_5 = 0;
  37.     ETD_MOTOR = $8009;
  38.     TDERR_WriteProt = $1C;
  39.     TDF_ALLOW_NON_3_5 = 1;
  40.     TDERR_BadSecPreamble = $16;
  41.     TD_REMCHANGEINT = $15;
  42.     TDERR_BadSecSum = $19;
  43.     DRIVE5_25 = 2;
  44.     TDERR_BadHdrSum = $18;
  45.     ETD_RAWREAD = $8010;
  46.     TDERR_NoSecHdr = $15;
  47.     TD_NAME = 'trackdisk.device';
  48.     ETD_RAWWRITE = $8011;
  49.     NUMSECS = $B;
  50.     NUMUNITS = 4;
  51.     TD_SEEK = $A;
  52.     TD_SECSHIFT = 9;
  53.     TD_MOTOR = 9;
  54.     TDERR_DiskChanged = $1D;
  55.     TD_CHANGESTATE = $E;
  56.     TD_PROTSTATUS = $F;
  57.     TD_LASTCOMM = $16;
  58.     IOTDB_INDEXSYNC = 4;
  59.     TDERR_NoMem = $1F;
  60.     TDERR_BadUnitNum = $20;
  61.     IOTDF_INDEXSYNC = $10;
  62.     TDERR_BadDriveType = $21;
  63.     TD_GETNUMTRACKS = $13;
  64.     TDERR_BadSecID = $17;
  65.     TDERR_DriveInUse = $22;
  66.     TD_RAWREAD = $10;
  67.     TD_GETDRIVETYPE = $12;
  68.     ETD_UPDATE = $8004;
  69.     TDERR_TooFewSecs = $1A;
  70.     ETD_FORMAT = $800B;
  71.     TD_RAWWRITE = $11;
  72.     ETD_CLEAR = $8005;
  73.     DRIVE3_5 = 1;
  74.     TDF_EXTCOM = $8000;
  75.     TDERR_NotSpecified = $14;
  76.     TDERR_SeekError = $1E;
  77.     TD_ADDCHANGEINT = $14;
  78.     ETD_READ = $8002;
  79.     TD_FORMAT = $B;
  80.     TDERR_BadSecHdr = $1B;
  81.  
  82.  
  83. IMPLEMENTATION
  84. end.
  85.