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:         (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+)
              (dpb 1 +command-control-list-filled+ 0))
  
        ;; TODO wait with timeout?
  
negative.code: 
          (setf  (pci:pci-io-region/32 bar0 +ohci-low-speed-threshold+) #x0628)
  
          (setf (pci:pci-io-region/32 bar0 +ohci-control+)
                (logior
                 (dpb 0 +control-bulk-service-ratio+ 0)
                 (dpb 1 +control-periodic-list-enable+ 0)
  