home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / HardBlocks.def < prev    next >
Text File  |  1994-05-25  |  4KB  |  140 lines
  1. |##########|
  2. |#MAGIC   #|CLABLMFB
  3. |#PROJECT #|"ImportAll"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x-xx---x-x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x-xx-x----------
  9. |##########|
  10. DEFINITION MODULE HardBlocks;
  11. (* $A- *)
  12. FROM System IMPORT LONGSET;
  13. FROM Dos    IMPORT DosEnvec;
  14.  
  15. TYPE
  16.   IdField              = ARRAY [0..3] OF CHAR;
  17.  
  18. CONST
  19.   locationLimit        = $10;
  20.   nil                  = $FFFFFFFF;
  21.   badBlock             = IdField:("B","A","D","B");
  22.   fileSysHeader        = IdField:("F","S","H","D");
  23.   loadSeg              = IdField:("L","S","E","G");
  24.   partition            = IdField:("P","A","R","T");
  25.   rigidDisk            = IdField:("R","D","S","K");
  26.  
  27. TYPE
  28.   HardBlock            = RECORD
  29.                id          : IdField;
  30.                summedLongs : LONGCARD;
  31.                chkSum      : LONGINT;
  32.                hostId      : LONGCARD;
  33.              END;
  34.  
  35.   BadBlockEntry        = RECORD
  36.                badBlock,
  37.                goodBlock : LONGCARD
  38.              END;
  39.  
  40.   BadBlockBlock        = RECORD OF HardBlock;
  41.                next        : LONGCARD;
  42.                reserved    : LONGCARD;
  43.                blockPairs  : ARRAY [61] OF BadBlockEntry
  44.              END;
  45.  
  46.   FileSysHeaderBlock   = RECORD OF HardBlock;
  47.                next          : LONGCARD;
  48.                flags         : LONGSET;
  49.                reserved1     : ARRAY [2] OF LONGCARD;
  50.                dosType,
  51.                version       : LONGCARD;
  52.                patchFlags    : LONGSET;
  53.                type,
  54.                task,
  55.                lock,
  56.                handler,
  57.                stackSize     : LONGCARD;
  58.                priority,
  59.                startup,
  60.                segListBlocks,
  61.                globalVec     : LONGINT;
  62.                reserved2     : ARRAY [23] OF LONGCARD;
  63.                reserved3     : ARRAY [21] OF LONGCARD
  64.              END;
  65.  
  66.   LoadSegBlock         = RECORD OF HardBlock;
  67.                next        : LONGCARD;
  68.                loadData    : ARRAY [123] OF LONGCARD;
  69.              END;
  70.  
  71.   PartitionFlags       = (bootable, noMount, makeMeLong = 31);
  72.   PartitionFlagSet     = SET OF PartitionFlags;
  73.  
  74.   PartitionBlock       = RECORD OF HardBlock;
  75.                next        : LONGCARD;
  76.                flags       : PartitionFlagSet;
  77.                reserved1   : ARRAY [2] OF LONGCARD;
  78.                DevFlags    : LONGSET;
  79.                driveName   : ARRAY [32] OF CHAR;
  80.                reserved2   : ARRAY [15] OF LONGCARD;
  81.                enviroment  : DosEnvec;
  82.                ereserved   : ARRAY [15] OF LONGCARD;
  83.                reserved256 : ARRAY [256] OF SHORTCARD;
  84.              END;
  85.  
  86.   RigidDiskFlags       = (last,       lastLun,    lastTId,    noReselect,
  87.               diskId,     ctrlrId,
  88.               makeMeLong = 31);
  89.   RigidDiskFlagSet     = SET OF RigidDiskFlags;
  90.  
  91.   RigidDiskBlock       = RECORD OF HardBlock;
  92.                blockBytes         : LONGCARD;
  93.                flags              : RigidDiskFlagSet;
  94.                badBlockList,
  95.                partitionList,
  96.                fileSysHeaderList,
  97.                driveInit          : LONGCARD;
  98.                reserved1          : ARRAY [6] OF LONGCARD;
  99.                cylinders,
  100.                sectors,
  101.                heads,
  102.                interleave,
  103.                park               : LONGCARD;
  104.                reserved2          : ARRAY [3] OF LONGCARD;
  105.                writePreComp,
  106.                reducedWrite,
  107.                stepRate           : LONGCARD;
  108.                reserved3          : ARRAY [5] OF LONGCARD;
  109.                blocksLo,
  110.                blocksHi,
  111.                loCylinder,
  112.                hiCylinder,
  113.                cylBlocks,
  114.                autoParkSeconds    : LONGCARD;
  115.                reserved4          : ARRAY [2]   OF LONGCARD;
  116.                diskVendor         : ARRAY [8]   OF CHAR;
  117.                diskProduct        : ARRAY [16]  OF CHAR;
  118.                diskRevision       : ARRAY [4]   OF CHAR;
  119.                controllerVendor   : ARRAY [8]   OF CHAR;
  120.                controllerProduct  : ARRAY [16]  OF CHAR;
  121.                controllerRevision : ARRAY [4]   OF CHAR;
  122.                reserved5          : ARRAY [10]  OF LONGCARD;
  123.                reserved512        : ARRAY [256] OF SHORTCARD
  124.              END;
  125.  
  126.  
  127. GROUP
  128.   All   =
  129.   (*I*)   LONGSET,
  130.   (*T*)   BadBlockBlock,      BadBlockEntry,      FileSysHeaderBlock,
  131.       IdField,            LoadSegBlock,       PartitionBlock,
  132.       PartitionBlock,     PartitionFlags,     PartitionFlagSet,
  133.       RigidDiskBlock,     RigidDiskBlock,     RigidDiskFlags,
  134.       RigidDiskFlagSet,
  135.   (*C*)   badBlock,           fileSysHeader,      loadSeg,
  136.       locationLimit,      nil,                partition,
  137.       rigidDisk;
  138.  
  139. END HardBlocks.
  140.