my $mem_usb_bus = ReadMemory($bus_addr, 532);
    my %usb_bus;
    @usb_bus{qw(
        next   
        prev   
        dirname
        devices
        location
        root_dev
    )} = unpack "VVZ512VVV", $mem_usb_bus;