anchor.diff:  
           (setf  (pci:pci-io-region/32 bar0 +ohci-low-speed-threshold+) #x0628)
   
  -        (setf (pci:pci-io-region/16 bar0 +ohci-control+)
  +        (setf (pci:pci-io-region/32 bar0 +ohci-control+)
                 (logior
                  (dpb 0 +control-bulk-service-ratio+ 0)
                  (dpb 1 +control-periodic-list-enable+ 0)
  
positive.code: 
        ;; Setup the host controller - section 5.1.1.4 - 5.1.1.5
        (let ((frame-interval (pci:pci-io-region/32 bar0 +ohci-frame-interval+)))
          (setf (pci:pci-io-region/16 bar0 +ohci-command-status+)
                (dpb 1 +command-controller-reset+ 0))
          (sleep 0.000015) ;; >= 10 usec
  
  
negative.code:                           (return)))))
  
        ;; disable control list
        (setf (pci:pci-io-region/32 bar0 +ohci-control+)
              (logandc2 (pci:pci-io-region/32 bar0 +ohci-control+)
                        (dpb 1 +control-control-list-enable+ 0)))
  
        (wait-for-next-sof ohci)
  
        ;; clear currentED
        (setf (pci:pci-io-region/32 bar0 +ohci-current-control-pointer+) 0)
  
        ;; enable control list
        (setf (pci:pci-io-region/32 bar0 +ohci-control+)
              (logior (pci:pci-io-region/32 bar0 +ohci-control+)
                      (dpb 1 +control-control-list-enable+ 0)))
  
        ;; TODO - loop over td list freeing td and remhash incase there
  