[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