Pascal disks may be either 140K or 800K.

This commit is contained in:
John B. Matthews 2007-03-30 21:49:20 +00:00
parent 04fc2ae1bd
commit ef653863f3
1 changed files with 2 additions and 2 deletions

View File

@ -456,10 +456,10 @@ public class Disk {
/**
* Test the disk format to see if this is a Pascal formatted
* disk.
* disk. Pascal disks may be either 140K or 800K.
*/
public boolean isPascalFormat() {
if (!is140KbDisk()) return false;
if (!(is140KbDisk() || is800KbDisk())) return false;
byte[] directory = readBlock(2);
return directory[0] == 0 && directory[1] == 0
&& directory[2] == 6 && directory[3] == 0