home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / VDL020D.ZIP / SDPSLOW.DOC < prev    next >
Encoding:
Text File  |  1993-04-14  |  2.0 KB  |  63 lines
  1. Unit SDPSLow;
  2.  
  3. {-------------------------------------------------------------------------}
  4. {                       Unit SDPSLow                                      }
  5. {-------------------------------------------------------------------------}
  6. { PURPOSE: general purpose library full of low-level SDPS functions.      }
  7. { SOURCE: JR Taylor                                                       }
  8. {-------------------------------------------------------------------------}
  9.  
  10.  
  11. Uses
  12.  
  13.   VGen,
  14.   VCDPLib;
  15.  
  16. TYPE
  17.     LSRecPtr = ^LSrec;
  18.  
  19.     LSrec    = RECORD
  20.       OSdef    : ARRAY[0..13] of CHAR;
  21.       Spc1     : CHAR;
  22.       ParName  : ARRAY[15..22] of CHAR;
  23.       Spc2     : CHAR;
  24.       ParSize  : ARRAY[24..31] of CHAR;
  25.       NumHeads : BYTE;
  26.       SPT1     : BYTE;
  27.       Cyl      : WORD;
  28.       BPS      : WORD;
  29.       SPAlloc  : BYTE;
  30.       RsvdSect : WORD;
  31.       FATs     : BYTE;
  32.       RootDir  : WORD;
  33.       LogImage : WORD;
  34.       Media    : BYTE;
  35.       SPF      : WORD;
  36.       SPT2     : WORD;
  37.       Heads    : WORD;
  38.       Hidden   : LONGINT;
  39.       TotSect  : LONGINT;
  40.       Rsvd     : ARRAY[61..67] of BYTE;
  41.       SSMult   : WORD;
  42.       SCount   : BYTE;
  43.       SpanInfo : ARRAY[1..110] of LONGINT;
  44.       Reserved : BYTE;
  45.     END;
  46.  
  47.  
  48. Procedure CreateLocalStore( LocalStore : LSRecPtr;
  49.                             ParName    : STRING;
  50.                             ParSize    : LONGINT;
  51.                             ParType    : BYTE;
  52.                             ParBoot    : BOOLEAN;
  53.                             FDISK      : BOOLEAN;
  54.                             Efficient  : BOOLEAN  );
  55.  
  56. Procedure BlocksToHeadsCylindersSectors(     BlockNum  : LONGINT;
  57.                                              SPT       : LONGINT;
  58.                                              NumHeads  : LONGINT;
  59.                                          var Heads     : LONGINT;
  60.                                          var Cylinders : LONGINT;
  61.                                          var Sectors   : LONGINT  );
  62.  
  63.