List USB devices from BASIC

For a little project I need to find the usb descriptor (USBxx) for a USB device.
I want to do this from BASIC.
I have searched the forum for any examples but couldn’t find one.
Can someone point me in the right direction?

Just to bump this one up.

Is my question to simple, to hard, not understood or impossible to answer?

Look at Service Calls. One of them (use OS_ServiceCall) will return a linked list of all connected USB devices, however note that it is your responsibility to free all of the blocks as you walk the list (and once you find the device you are interested in, keep on going until all blocks are freed).

https://www.riscosopen.org/wiki/documentation/show/OS_ServiceCall

https://www.riscosopen.org/wiki/documentation/show/Service_USBDriver

https://www.riscosopen.org/wiki/documentation/show/Service_USBDriver%201

Rick thank you for your help.

I now have a neat little BASIC program that lists the connected usb devices.

However that is not what I am looking for. I need a way to get to the description field as shown in the output of usbdevices. This is so I can find match the device by the description to the USB device.

Any more pointers?

BTW It is great fun to re-learn all the BASIC skills that I have lost over the years.

To follow up on my own thread.
I have now found Collin’s program !USBDescriptors. This will give me all I need to find the correct USB device.

I read your message earlier, but didn’t fancy replying using a phone while trying to eat a Big Mac. What it looks like you need, which USBDescriptors should guide you to, is to walk into the Device Descriptors block, after the USBServiceCall block (+32…) to find the USB Device Descriptor, part of which is the iProduct string; but note that a zero (NULL) is a valid index, meaning there is no string description.

I read your message earlier, but didn’t fancy replying using a phone while trying to eat a Big Mac.

Is this a new healthy-eating option? Isn’t he on Casualty

I read your message earlier, but didn’t fancy replying using a phone while trying to eat a Big Mac.

Is this a new healthy-eating option?

Somehow I doubt that… ;-)

Isn’t he on Casualty

No idea. The last time I watched seriously was when Duffy was in it. I briefly watched it on and off again a while back with a dark haired woman that often wore a black pinafore dress. She got shot in the back, which is I guess one of the better ways to bow out of that series.

I saw part of it recently. Can’t believe Charlie is still in it. Shouldn’t they have a spin off series set in a nursing home by now?

Don’t watch broadcast TV much these days; I mostly just watch a few animé series, but don’t seem to have as much free time as I used to. Tonight I’ll be watching Cold Eyes. I just hope the subtitles were written by a person, not a machine!

Edit: Thanks to Wikia and looking through the entire cast, that woman I mentioned – Selena. http://i82.photobucket.com/albums/j276/JB-Casualty/Selena/Character-NathanSelenaMaggie.jpg Would have saved me a lot of time if she’d been called Alice or something at the start of the alphabet. Speaking of which, Alice was cute.

Is this a new healthy-eating option?

It’s very healthy compared to some of these!

When I saw the title of this thread I thought it would provide just the info I was after. Having read through it though, I’m none the wiser.
Does anyone have a snippet of Basic that will read the USB descriptors – especially the vendor IDs? I looked through the USBDescriptor source but I couldn’t work out what was going on – never having been much of a C programmer.
Any help greatly appreciated.

Does anyone have a snippet of Basic that will read the USB descriptors – especially the vendor IDs?

From his comments above I’d say Leo has some BASIC code.
His old web pages look a bit dusty but the Twitter account is active.

Here’s something I put together. May be wrong in loads of ways, but seems to work for me…

REM >enumdevs

ON ERROR PRINT REPORT$+" at "+STR$(ERL) : END

REM Enumerate USB devices

DIM d% 63
DIM f% 11
where% = 0

REPEAT
  SYS "OS_GBPB", 9, "Devices:$", f%, 1, where%, 12, "USB*" TO ,,,num%,where%
  IF (num% <> 0) THEN
    SYS "XOS_GenerateError", f% TO f$

    REM Read vendor and device ID strings
    vendor$ = FNreadstring(f$, 1)
    device$ = FNreadstring(f$, 2)

    REM Read device ID
    id%     = FNreadidword(f$)

    REM Spewage
    PRINT RIGHT$("   "+f$, 5) + "  ";
    PRINT LEFT$(vendor$+STRING$(30, " "), 30) + " ";
    PRINT LEFT$(device$+STRING$(30, " "), 30) + " ";
    PRINT "&"+RIGHT$("00000000"+STR$~(id%), 8)
  ENDIF
UNTIL (where% = -1)
END

DEFFNreadstring(dev$, what%)
  LOCAL s$, l%

  bmRequestType% = %10000000
  bRequest%      = 6
  wValue%        = &300 + what%
  wIndex%        = &0409
  wLength%       = 32

  SYS "XDeviceFS_CallDevice", (1<<31), dev$,, (&3000680 OR (what% << 16)), &400409, d% TO ; fl%
  REM (bmRequestType% + (bRequest% << 8) + ((wValue%) << 16)), (wIndex% + (wLength% << 16)), d% TO ; fl%

   IF (fl% AND 1) THEN =""

  s$ = ""
  FOR l% = 2 TO (d%?0 - 2)
    IF (d%?l% > 31) THEN s$ = s$ + CHR$(d%?l%)
  NEXT
=s$
:
DEFFNreadidword(dev$)
  LOCAL id%

  SYS "XDeviceFS_CallDevice", (1<<31), dev$,, &1000680, &400000, d% TO ; fl%
  IF (fl% AND 1) THEN =&666 : REM Magic to spot where this doesn't work.

  id% = (d%?9 << 24) OR (d%?8 << 16) OR (d%?11 << 8) OR d%?10
=id%

The output is:

*enumdevs
 USB1                                 Synopsys DWC OTG root hub      &00000000
 USB2                                                                &04249514
 USB3                                                                &0424EC00
 USB4  Prolific Technology Inc.       USB-Serial Controller          &067B2303
 USB5  Logitech                       USB-PS/2 Optical Mouse         &046DC03D
 USB6  USB                            USB Keykoard                   &1C4F0002

Yes, “Keykoard” really is like that. Cheap Chinese Crap. ;-)

FWIW I just tried your listing on my Pi B. Works fine for me.

e:
I love that it’s 2017 and it’s still possible to grab a BASIC listing to run on a home computer :)

Thanks Rick, I’ll give it a go.

My website might be dusty, but I am not (yet).

I have a BASIC program to communicate with a CodeBug. This contains code to find the USB port depending on the vendor en device Id’s.
I am a little hard pressed for time these days but I will try to put it on my website asap (this will not before tonight and more realistic in the weekend).

Unfortunately, when I run the above code I get no output. num% and where% return 0 and 1, then 1 and 2, followed by the usual ‘click mouse to continue’.
I’m running this on a B+ with RO 5.21, if that makes a difference.

If you want to just find a device using a vendor Id – which you can get from ‘usbdevices’ and ‘usbdevinfo’ try

DEF FNusb_findDeviceByVendor(vendor%,product%,version%)
    LOCAL list%,item%,desc%,usb$
    usb$=""

    SYS "OS_ServiceCall",1,&D2,0 TO,,list%

    item%=list%
    WHILE item% <> 0
       desc%=item%+4+(item%!6 AND &FFFF)
       IF  vendor%=(desc%!8 AND &FFFF) AND product%=(desc%!10 AND &FFFF) AND (version%=-1 OR version%=(desc%!12 AND &FFFF)) THEN
           SYS "XOS_GenerateError",item%+4+4 TO usb$
       ENDIF
       IF usb$<>"" item%=0 ELSE item%=!item%
    ENDWHILE

    WHILE list% <> 0
        item%=!list%
        SYS "OS_Module",7,,list%
        list%=item%
    ENDWHILE
=usb$

which you call like this

usbdev$ = FNusb_findDeviceByVendor(&424,&7505,-1)

note -1 means you don’t care what the version is

Thanks Colin – got that working fine.
Is there any way to modify it so that it returns all the connected USB devices’ VIDs and PIDs, and also their USB addresses (USB10, USB11 etc)? My program needs to check for a variety of issues such as duplicated devices or unexpected PIDs that might denote newer models etc, and react accordingly.

DEF PROCusb_listDevices
    LOCAL list%,item%,desc%,usb$
    usb$=""

    SYS "OS_ServiceCall",1,&D2,0 TO,,list%

    item%=list%
    WHILE item% <> 0
       desc%=item%+4+(item%!6 AND &FFFF)
       SYS "XOS_GenerateError",item%+4+4 TO usb$
       PRINT usb$;"    VID=";~(desc%!8 AND &FFFF);"   PID=";~(desc%!10 AND &FFFF);"   VERS=";~(desc%!12 AND &FFFF)
       item%=!item%
    ENDWHILE

    WHILE list% <> 0
        item%=!list%
        SYS "OS_Module",7,,list%
        list%=item%
    ENDWHILE
ENDPROC

does that help? It’s untested but should work.

The servicecall returns a list all the known usbdevices including all of their descriptors – if you run my !usbdescriptors program you see all the info available for each item in the list.

item% is an item in list% ie a block of data containing information about a single device.
The XOS_GenerateError line just converts the 0 terminated string at item%+4+4 to a basic string.
desc% is the address of the device descriptor information which is where the VID/PID is found.

You could use

DEF FNusb_makeDeviceList
    LOCAL list%
    SYS "OS_ServiceCall",1,&D2,0 TO,,list%
=list%

DEF PROCusb_deleteDeviceList(list%)
    LOCAL item%
    WHILE list% <> 0
        item%=!list%
        SYS "OS_Module",7,,list%
        list%=item%
    ENDWHILE
ENDPROC

If you want to do complex code with the list you have to remember to delete any device list made with FNusb_makeDeviceList with PROCusb_deleteDeviceList when you are finished with the list.

Many thanks Colin. I’ll have a play with it tonight.

As promised. Here is a function to find the usb device from the vendor and product code.

DEFFN_CB_FindDevice(Vendor%, Product%)
LOCAL U$, N%, P%, R0%, R1%, R2%, R3%, U%, UsbVendor%, UsbProduct%
SYS &30, 1, &D2, 0 TO R0%, R1%, R2%, R3%
P%=R2%
U$=""
WHILE P% <> 0 AND U$ = ""
  REM U% = start address USB block
  U% = P% + 4 + P%?6 + P%?7 * 256
  UsbVendor% = U%?8 + U%?9 * 256
  UsbProduct% = U%?10 + U%?11 * 256
  IF Vendor% = UsbVendor% AND Product% = UsbProduct% THEN
    N% = P% + 8
    WHILE (N%?0 <> 0)
      U$ = U$ + CHR$(N%?0)
      N% = N% + 1
    ENDWHILE
  ENDIF
  P% = !P%
ENDWHILE

REM FREE HEAP MEMORY
P% = R2%
WHILE P% <> 0
 N% = !P%
 SYS &1E, 7, , P%
 P% = N%
ENDWHILE
=U$

You can use this as follows to open the read and write channels

DEF PROCCB_OPEN()
LOCAL USB$
USB$=FN_CB_FindDevice(&04D8, &000a)
Path$="Devices:$."+USB$

SYS "OS_Find", &47, Path$, 0 TO CB_input%
SYS "OS_Find", &C7, Path$, 0 TO CB_output%
ENDPROC

To read do

SYS "OS_GBPB", 4, CB_input%, CB_InBuffer%, 50 TO ,,,NotTransferred%

To write do

SYS "OS_GBPB", 2, CB_output%, buffer%, length% TO ,,,NotTransferred%

One click is enough

My thanks to Rick, Colin and Leo. I now have some suitable code working with my project.