home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
pascal
/
vdl020d.zip
/
SDPSLOW.DOC
< prev
next >
Wrap
Text File
|
1993-04-14
|
2KB
|
63 lines
Unit SDPSLow;
{-------------------------------------------------------------------------}
{ Unit SDPSLow }
{-------------------------------------------------------------------------}
{ PURPOSE: general purpose library full of low-level SDPS functions. }
{ SOURCE: JR Taylor }
{-------------------------------------------------------------------------}
Uses
VGen,
VCDPLib;
TYPE
LSRecPtr = ^LSrec;
LSrec = RECORD
OSdef : ARRAY[0..13] of CHAR;
Spc1 : CHAR;
ParName : ARRAY[15..22] of CHAR;
Spc2 : CHAR;
ParSize : ARRAY[24..31] of CHAR;
NumHeads : BYTE;
SPT1 : BYTE;
Cyl : WORD;
BPS : WORD;
SPAlloc : BYTE;
RsvdSect : WORD;
FATs : BYTE;
RootDir : WORD;
LogImage : WORD;
Media : BYTE;
SPF : WORD;
SPT2 : WORD;
Heads : WORD;
Hidden : LONGINT;
TotSect : LONGINT;
Rsvd : ARRAY[61..67] of BYTE;
SSMult : WORD;
SCount : BYTE;
SpanInfo : ARRAY[1..110] of LONGINT;
Reserved : BYTE;
END;
Procedure CreateLocalStore( LocalStore : LSRecPtr;
ParName : STRING;
ParSize : LONGINT;
ParType : BYTE;
ParBoot : BOOLEAN;
FDISK : BOOLEAN;
Efficient : BOOLEAN );
Procedure BlocksToHeadsCylindersSectors( BlockNum : LONGINT;
SPT : LONGINT;
NumHeads : LONGINT;
var Heads : LONGINT;
var Cylinders : LONGINT;
var Sectors : LONGINT );