[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: DiskBrowser Software - Work In Progress



In article 
<3349fd7a-50b4-42eb-a1fe-0a63c6fb576a@n33g2000pri.googlegroups.com>,
 denisbytezone@gmail.com wrote:
[...]
> Someone asked about Pascal earlier - the Pascal support is very
> rudimentary, and it's only there so that I could read my Wizardry
> scenario disks. As I find out more about the format, the support will
> improve.
[...]

Ah, yes. I'd forgotten that Wizardry was written in Pascal. Here is the 
directory structure for Apple UCSD Pascal:

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;

Here's a nice corollary discussion by Neil Parker

<http://applecommander.cvs.sourceforge.net/applecommander/AppleCommander/
documentation/apple.pascal.txt?view=markup>

[Note volume+18 is actually dZeroBlk.]

Here's more notes based on contributions to AppleCommander:

<http://home.woh.rr.com/jbmatthews/ac.html>

Do you have any plans to release the source to DiskBrowser?
 
-- 
John B. Matthews
trashgod at gmail dot com
home dot woh dot rr dot com slash jbmatthews