Update Apple UCSD Pascal directory documentation.

This commit is contained in:
John B. Matthews 2008-09-11 02:18:21 +00:00
parent f378b7f586
commit fbe831af96

View File

@ -61,7 +61,7 @@ The first entry is the volume name. It has the following format:
+6 string[7]: volume name (with length byte)
+14 word: number of blocks on disk
+16 word: number of files on disk
+18 word: last access time
+18 word: first block of file
+20 word: most recent date setting
+22 4 bytes: reserved
@ -116,3 +116,35 @@ Neil Parker, nparker@inferno.uoregon.edu, nparker@axis.llx.com,
http://axis.llx.com/~nparker/ (Note new addresses and home page!)
Unsolicited commerical e-mail is not welcome, and will be discarded unread.
-----
Addendum: Apple UCSD Pascal Directory Structure
type
DateRec = packed record
Month: 0..12;
Day: 0..31;
Year: 0..100
end;
VolName = String[7];
FileName = String[15];
FileType = (volume, xDisk, code, text, info, data, graf, foto, secure);
DirEntry = record
dFirstBlk: Integer;
dLastBlk: Integer;
case dFileType: FileType of
volume, secure: (
dVName: VolName;
dBlkCount: Integer; {Blocks on this volume}
dRecCount: Integer; {Directory record count}
dZeroBlk: Integer; {Start block}
dLastBoot: DateRec);{Date formatted or booted}
xDisk, code, text, info, data, graf, foto: (
dFName: FileName;
dLastByte: 1 .. 512;
dAccess: DateRec)
end;
Directory = array[0 .. 77] of DirEntry;
John B. Matthews