anchor.diff:  \ OF methods
   
   : open  ( -- TRUE|FALSE )
  -   (allocate-mem)
  +   instance-count dup 0= IF
  +     s" OHCI First open" usb-debug-print
  +     (allocate-mem)
  +   THEN
  +   1 + TO instance-count
  +   s" OHCI Open instance count now: " instance-count usb-debug-print-val
      TRUE
   ;
   
   : close  ( -- )
  -   (de-allocate-mem)
  +   instance-count dup 1 = IF
  +     s" OHCI Last close" usb-debug-print
  +     (de-allocate-mem)
  +   THEN
  +   1 - TO instance-count
  +   s" OHCI Close instance count now: " instance-count usb-debug-print-val
   ;
   
   
  
positive.code:    ed-list-region @ TO temp1
     0 TO temp2   BEGIN
        temp1 zero-out-an-ed-except-link
        temp1 /edlen +  dup virt2phys  temp1 ed>ned  l!-le  TO temp1
        temp2 1+ TO temp2
        temp2 MAX-EDS =
  
negative.code: 14 CONSTANT MAX-EDS
  0 VALUE ed-freelist-head
  0 VALUE num-free-eds
  VARIABLE ed-list-region
  VARIABLE ed-list-region-dma
  0 VALUE usb-address
  0 VALUE initial-hub-address
  0 VALUE new-device-address
  