anchor.diff:          (print-ed sys.int::*cold-stream* ed :indent "    " :buffers t))
   
         ;; tell HC that the control list has work
  -      (setf (pci:pci-io-region/16 (bar ohci) +ohci-command-status+)
  +      (setf (pci:pci-io-region/32 (bar ohci) +ohci-command-status+)
               (dpb 1 +command-control-list-filled+ 0))
   
         ;; TODO wait with timeout?
  
positive.code:                           (return)))))
  
        ;; disable control list
        (setf (pci:pci-io-region/16 bar0 +ohci-control+)
              (logandc2 (pci:pci-io-region/16 bar0 +ohci-control+)
                        (dpb 1 +control-control-list-enable+ 0)))
  
        (wait-for-next-sof ohci)
  
        ;; clear currentED
        (setf (pci:pci-io-region/16 bar0 +ohci-current-control-pointer+) 0)
  
        ;; enable control list
        (setf (pci:pci-io-region/16 bar0 +ohci-control+)
              (logior (pci:pci-io-region/16 bar0 +ohci-control+)
                      (dpb 1 +control-control-list-enable+ 0)))
  
        ;; TODO - loop over td list freeing td and remhash incase there
  
negative.code:       (with-trace-level (3)
          (print-ed sys.int::*cold-stream* ed :indent "    " :buffers t))
  
        (setf (pci:pci-io-region/32 (bar ohci) +ohci-command-status+)
              (dpb 1 +command-control-list-filled+ 0))
  
        ;; TODO wait with timeout?
  