anchor.diff:  : pci-class-name-03 ( addr -- str len )
           pci-class@ FFFF and CASE
           0000  OF s" vga"             ENDOF
  -        0001  OF s" 8514-compatible" ENDOF
           0100  OF s" xga"             ENDOF
           0200  OF s" 3d-controller"   ENDOF
           dup OF s" display"           ENDOF
  
positive.code: : pci-class-name-08 ( addr -- str len )
          pci-class@ FFFF and CASE
          0000  OF s" interrupt-controller" ENDOF
          0001  OF s" isa-pic"              ENDOF
          0002  OF s" eisa-pic"             ENDOF
          0010  OF s" io-apic"              ENDOF
          0020  OF s" iox-apic"             ENDOF
          0100  OF s" dma-controller"       ENDOF
          0101  OF s" isa-dma"              ENDOF
          0102  OF s" eisa-dma"             ENDOF
          0200  OF s" timer"                ENDOF
          0201  OF s" isa-system-timer"     ENDOF
          0202  OF s" eisa-system-timer"    ENDOF
          0300  OF s" rtc"                  ENDOF
          0301  OF s" isa-rtc"              ENDOF
          0400  OF s" hot-plug-controller"  ENDOF
          0500  OF s" sd-host-conrtoller"   ENDOF
          dup   OF s" system-periphal"      ENDOF
          ENDCASE
  ;
  
  
negative.code:         0310  OF s" usb-ohci"      ENDOF
  	0320  OF s" usb-ehci"      ENDOF
          0330  OF s" usb-xhci"      ENDOF
          0380  OF s" usb-unknown"   ENDOF
          03FE  OF s" usb-device"    ENDOF
          0400  OF s" fibre-channel" ENDOF
          0500  OF s" smb"           ENDOF
          0600  OF s" infiniband"    ENDOF
          0700  OF s" ipmi"          ENDOF
          0701  OF s" ipmi"          ENDOF
          0702  OF s" ipmi"          ENDOF
          0800  OF s" sercos"        ENDOF
          0900  OF s" canbus"        ENDOF
          dup OF s" serial-bus"      ENDOF
  