Update Apple UCSD Pascal directory documentation.

documentation/apple.pascal.txt

@@ -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