anchor.diff:    (* (fat32-sectors-per-cluster fat32)
        (fat32-bytes-per-sector fat32)))
   
  +(defun next-free-cluster (fat)
  +  (loop :for i :from 0 :by 4 :to (1- (array-dimension fat 0))
  +        :for m := (sys.int::ub32ref/le fat i)
  +        :when (zerop m)
  +        :return (ash i -2)))
  +
   (defun read-sector (disk start-sector n-sectors)
     "Read n sectors from disk"
     (let* ((sector-size (mezzano.supervisor:disk-sector-size disk))
  
positive.code:             (date (logior date
                            (ash month 5)
                            (ash (- year 1980) 9)))
              (cluster-number (1+ (fs-info-next-free-cluster (fat32-info host))))
              (millisecond-stamp 0))
          (flet ((set-short-name (name file i cluster-number)
                   ;; Write short name part
  
negative.code:                        cluster-sector
                         (fat32-structure host)
                         file)
          ;; Update fat
          (setf (sys.int::ub32ref/le (fat host) (* cluster-number 4))
                #x0FFFFFFF)
  