13.07.2015 Views

apple-pascal-1.3-manual

apple-pascal-1.3-manual

apple-pascal-1.3-manual

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

{First, some general declarations relating to disk directories:}CONST maxdir = 77;vidleng = 7;tidleng = 15;fblksize = 512;dirblk = 2;{Maximum number of entries in directory}{Number of characters in volume ID}{Number of characters in title ID}{Standard disk block length}{Directory starts at this disk-block address}TYPE daterec = PACKED RECORD {Volume/file data mark}month: 0 .. 12; {ll = meaningless date}day: 0 .. 31; {Day of month}year: 0 .. 100 {100 =dated volume is temporary}END {daterec};vid =STRING [vidlengl; {Volume ID}dirrange = W • . maxdir; {Possible number of files on disk}tid =STRING Ctidlengl; {Title ID}filekind = [untypedfile, xdskfile, codefile, textfile, infofile,datafile, graffile, fotofile, securedirl;{Now, the actual layout of the directory entry for each file stored onthe disk, plus the type declaration for the directory as a whole. Eachentry is a packed record with a variant part, and the whole directoryis an array of such records.}direntryPACKED RECORDdfirstblk: integer; {1st physical disk address}dlastblk: integer; {Points to block after last used block}CASE dfkind: filekind OFsecuredir, untypedfile: {Volume info-only in dir[ll]}[filler1: 0 .. 2048; {Waste 13 bits for compatibility}dvid: vid; {Name of disk volume}deovblk: integer; {Last block in volume}dnumfiles: dirrange; {Number of files in directory}dloadtime: integer; {Time of last access}dlastboot: daterecl; {Most recent date setting}xdskfile, codefile, textfile, infofile, datafile,graffile, fotof ile: {Regular file info}[filler2: 0 .. 1~24;

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!