anchor.diff:  ;; Mount partition
   ;; (let* ((disk-name "FAT32")
   ;;        (disk (nth 3 (mezzano.supervisor:all-disks)))
  -;;        (fat32 (read-fat32-structure (read-sector disk 0)))
  -;;        (fat32-info (read-fat32-info-structure (read-sector disk (fat32-fat-info fat32))))
  +;;        (fat32 (read-fat32-structure (read-sector disk 0 1)))
  +;;        (fat32-info (read-fat32-info-structure (read-sector disk (fat32-fat-info fat32) 1)))
  +;;        (fat (read-sector disk
  +;;                          (fat32-reserved-sector-count fat32)
  +;;                          (/ (fat32-table-size-32 fat32)
  +;;                             (fat32-table-count fat32))))
   ;;        (instance (make-instance 'fat32-host
   ;;                                 :name disk-name
   ;;                                 :partition disk
   ;;                                 :fat32-structure fat32
  -;;                                 :fat32-info fat32-info)))
  +;;                                 :fat32-info fat32-info
  +;;                                 :fat fat)))
   ;;   (setf (mezzano.file-system:find-host disk-name)
   ;;         instance))
   
  
positive.code:   (* (fat32-sectors-per-cluster fat32)
       (fat32-bytes-per-sector fat32)))
  
  (defun read-sector (disk sector)
    "Read sectors from disk"
    (let* ((array (make-array (* 1 (mezzano.supervisor:disk-sector-size disk))
                              :area :wired :element-type '(unsigned-byte 8))))
      (multiple-value-bind (successp error-reason) (mezzano.supervisor:disk-read disk sector 1 array)
        (when (not successp)
          (error "Disk read error: ~S" error-reason)))
      array))
  
  (defun write-sector (disk sector array)
    "Write sectors to disk"
    (multiple-value-bind (successp error-reason) (mezzano.supervisor:disk-write disk sector 1 array)
      (when (not successp)
        (error "Disk write error: ~S" error-reason))))
  
  
negative.code:                                                  :for octet := (aref cluster offset)
                                                   :when (and (/= octet 0)
                                                              (/= octet 255))
                                                   :do (write-char (code-char octet) sub-name))))
                                      (add 1 10)
                                      (add 14 25)
                                      (add 28 31)))))
  