home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-3.DMS / in.adf / Units / Trackdisk.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  2.3 KB  |  123 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.     pDriveGeometry = ^tDriveGeometry;
  16.     tDriveGeometry = record
  17.         dg_SectorSize: long;
  18.         dg_TotalSectors: long;
  19.         dg_Cylinders: long;
  20.         dg_CylSectors: long;
  21.         dg_Heads: long;
  22.         dg_TrackSectors: long;
  23.         dg_BufMemType: long;
  24.         dg_DeviceType: byte;
  25.         dg_Flags: byte;
  26.         dg_Reserved: word;
  27.         end;
  28.  
  29.     pTDU_PublicUnit = ^tTDU_PublicUnit;
  30.     tTDU_PublicUnit = record
  31.         tdu_Unit: tUnit;
  32.         tdu_Comp01Track: word;
  33.         tdu_Comp10Track: word;
  34.         tdu_Comp11Track: word;
  35.         tdu_StepDelay: long;
  36.         tdu_SettleDelay: long;
  37.         tdu_RetryCnt: byte;
  38.         tdu_PubFlags: byte;
  39.         tdu_CurrTrk: word;
  40.         tdu_CalibrateDelay: long;
  41.         tdu_Counter: long;
  42.         end;
  43.  
  44.  
  45.  
  46. const
  47.     TD_CHANGENUM = $D;
  48.     DG_CDROM = 5;
  49.     TD_REMOVE = $C;
  50.     TDERR_PostReset = $23;
  51.     TDPF_NOCLICK = 1;
  52.     TD_SECTOR = $200;
  53.     TD_EJECT = $17;
  54.     ETD_WRITE = $8003;
  55.     DG_COMMUNICATION = 9;
  56.     TD_LABELSIZE = $10;
  57.     ETD_SEEK = $800A;
  58.     TDB_ALLOW_NON_3_5 = 0;
  59.     ETD_MOTOR = $8009;
  60.     TDERR_WriteProt = $1C;
  61.     DG_SEQUENTIAL_ACCESS = 1;
  62.     TDF_ALLOW_NON_3_5 = 1;
  63.     TDERR_BadSecPreamble = $16;
  64.     TD_REMCHANGEINT = $15;
  65.     TDERR_BadSecSum = $19;
  66.     DRIVE5_25 = 2;
  67.     TDERR_BadHdrSum = $18;
  68.     ETD_RAWREAD = $8010;
  69.     TDERR_NoSecHdr = $15;
  70.     DG_PROCESSOR = 3;
  71.     TD_NAME = 'trackdisk.device';
  72.     ETD_RAWWRITE = $8011;
  73.     NUMSECS = $B;
  74.     NUMUNITS = 4;
  75.     TD_SEEK = $A;
  76.     TD_SECSHIFT = 9;
  77.     DG_OPTICAL_DISK = 7;
  78.     TD_MOTOR = 9;
  79.     TDERR_DiskChanged = $1D;
  80.     TD_CHANGESTATE = $E;
  81.     TD_PROTSTATUS = $F;
  82.     TD_LASTCOMM = $18;
  83.     IOTDB_INDEXSYNC = 4;
  84.     TDERR_NoMem = $1F;
  85.     DG_SCANNER = 6;
  86.     TDERR_BadUnitNum = $20;
  87.     IOTDF_INDEXSYNC = $10;
  88.     DRIVE3_5_150RPM = 3;
  89.     TDERR_BadDriveType = $21;
  90.     DG_WORM = 4;
  91.     TD_GETNUMTRACKS = $13;
  92.     TDERR_BadSecID = $17;
  93.     TDERR_DriveInUse = $22;
  94.     TD_RAWREAD = $10;
  95.     TD_GETDRIVETYPE = $12;
  96.     ETD_UPDATE = $8004;
  97.     DGB_REMOVABLE = 0;
  98.     TDERR_TooFewSecs = $1A;
  99.     DGF_REMOVABLE = 1;
  100.     ETD_FORMAT = $800B;
  101.     TD_RAWWRITE = $11;
  102.     ETD_CLEAR = $8005;
  103.     DG_MEDIUM_CHANGER = 8;
  104.     DRIVE3_5 = 1;
  105.     TDF_EXTCOM = $8000;
  106.     DG_PRINTER = 2;
  107.     TDERR_NotSpecified = $14;
  108.     TD_GETGEOMETRY = $16;
  109.     TDERR_SeekError = $1E;
  110.     DG_UNKNOWN = $1F;
  111.     IOTDB_WORDSYNC = 5;
  112.     IOTDF_WORDSYNC = $20;
  113.     TD_ADDCHANGEINT = $14;
  114.     ETD_READ = $8002;
  115.     DG_DIRECT_ACCESS = 0;
  116.     TD_FORMAT = $B;
  117.     TDERR_BadSecHdr = $1B;
  118.     TDPB_NOCLICK = 0;
  119.  
  120.  
  121. IMPLEMENTATION
  122. end.
  123.