anchor.diff:  : pci-class-name-00 ( addr -- str len )
           pci-class@ 8 rshift FF and CASE
           01  OF s" display"               ENDOF
  -        dup OF s" unknown-legacy-device" ENDOF
  +        dup OF s" legacy-device"         ENDOF
           ENDCASE
   ;
   
  
positive.code: : pci-class-name-07 ( addr -- str len )
          pci-class@ FFFF and CASE
          0000  OF s" serial"                   ENDOF
          0001  OF s" 16450-serial"             ENDOF
          0002  OF s" 16550-serial"             ENDOF
          0003  OF s" 16650-serial"             ENDOF
          0004  OF s" 16750-serial"             ENDOF
          0005  OF s" 16850-serial"             ENDOF
          0006  OF s" 16950-serial"             ENDOF
          0100  OF s" parallel"                 ENDOF
          0101  OF s" bi-directional-parallel"  ENDOF
          0102  OF s" ecp-1.x-parallel"         ENDOF
          0103  OF s" ieee1284-controller"      ENDOF
          01FE  OF s" ieee1284-device"          ENDOF
          0200  OF s" multiport-serial"         ENDOF
          0300  OF s" modem"                    ENDOF
          0301  OF s" 16450-modem"              ENDOF
          0302  OF s" 16550-modem"              ENDOF
          0303  OF s" 16650-modem"              ENDOF
          0304  OF s" 16750-modem"              ENDOF
          0400  OF s" gpib"                     ENDOF
          0500  OF s" smart-card"               ENDOF
          dup   OF s" communication-controller" ENDOF
  
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
  