From 9794213a926c715d4bc82706fe8694391a9c3258 Mon Sep 17 00:00:00 2001
From: Adema <h.adema@rug.nl>
Date: Thu, 3 Feb 2022 13:54:19 +0100
Subject: [PATCH] Upload files to ''

---
 HID.bas | 146 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 146 insertions(+)
 create mode 100644 HID.bas

diff --git a/HID.bas b/HID.bas
new file mode 100644
index 0000000..318fa12
--- /dev/null
+++ b/HID.bas
@@ -0,0 +1,146 @@
+'Free basic Address Event Representation
+
+#include once "libusb-1.0.bi"
+#include once "hidlib.bas"
+#include once "HID_info.bas"
+#include once "comlinepar.bas"
+
+counter = 0
+
+For i as integer = 0 To 63
+	databuffer(i) = 100+i
+Next i
+
+'#include once "caerdeviceinfo.bas"
+
+
+returnvalue = libusb_init(NULL)
+If returnvalue < 0 Then
+   End returnvalue
+End If
+
+cnt = libusb_get_device_list(NULL, @ppList)
+If (cnt < 0) then
+    End cnt
+End if
+
+'? "Found ";cnt ;" usb devices"
+'?
+? "Looking for "; Hex(Vendor,4); ":"; Hex(Product,4)
+?
+
+for i as integer = 0 to cnt-1
+    pDevice = ppList[i]
+    returnvalue = libusb_get_device_descriptor(pDevice, @desc) 
+    '? Hex(desc.idVendor,4); ":"; Hex(desc.idProduct,4)
+    If Hex(desc.idVendor,4) = Hex(Vendor,4) And Hex(desc.idProduct,4) = Hex(Product,4) Then
+		?
+		? "Found the device    "; pDevice
+		DHandle(counter) = open_device(pDevice)
+		
+		returnvalue = print_device_descriptor(desc, sup_out)
+		returnvalue = print_vendor_info(DHandle(counter), desc, 0)
+		
+		returnvalue = libusb_get_config_descriptor(pDevice, 0, @Dconfig)
+		If returnvalue = 0 Then
+			returnvalue = print_config_descriptor(Dconfig, sup_out)			
+		    For ii as integer = 0 To Dconfig->bNumInterfaces - 1
+				inter = @Dconfig->interface[ii]
+				Print "Number of alternate settings: ";inter->num_altsetting
+				For j as integer = 0 To inter->num_altsetting - 1
+					interdesc = @inter->altsetting[j]
+					returnvalue = print_interface_descriptor(interdesc, sup_out)
+					returnvalue = print_interface_info(DHandle(counter), interdesc, sup_out)
+					? "number of endpoints: "; interdesc->bNumEndpoints
+					For k as integer = 0 To interdesc->bNumEndpoints - 1
+						epdesc = @interdesc->endpoint[k]
+						returnvalue = print_endpoint_descriptor(epdesc, sup_out)
+						if (sup_out = 0) then 
+							? ii;" ";j;" ";k
+						End If
+						If (epdesc->bEndpointAddress >= 128) then
+							in_endpoint(in_cnt) = epdesc->bEndpointAddress
+							in_packsize(in_cnt) = epdesc->wMaxPacketSize
+							in_cnt = in_cnt + 1
+						End if
+						If (epdesc->bEndpointAddress < 128) then
+							out_endpoint(out_cnt) = epdesc->bEndpointAddress
+							out_packsize(out_cnt) = epdesc->wMaxPacketSize
+							out_cnt = out_cnt + 1
+						End if
+						If (sup_out = 0) then
+							? "ep address "; epdesc->bEndpointAddress
+							? "in "; in_endpoint(in_cnt)
+							? "out "; out_endpoint(out_cnt)
+						End If
+					Next k
+				Next j
+			Next ii			
+		Else
+			? "Error getting config descriptor"
+			End returnvalue
+		End IF
+		
+		counter = counter + 1
+	
+    End If
+next i
+
+? "number of attached devices "; counter
+?
+
+If (counter>0) then
+
+
+
+	Print "press Esc to quit"
+	
+	? "in endpoint 0: "; in_endpoint(0)
+	? "in endpoint 1: "; in_endpoint(1)
+	? "out endpoint 0: "; out_endpoint(0)
+	? "out endpoint 1: "; out_endpoint(1)
+	
+	countbytes = 0
+	
+	Do
+	
+		returnvalues = bulk_tranfer(DHandle(counter-1), in_endpoint(0), dbuf, in_packsize(0), 1, 0)
+		If (returnvalues.B = -4) then 
+			Exit Do
+		End If
+		If (returnvalues.B <> -7) then
+			If (returnvalues.A>0) then
+				'? returnvalues.A; " bytes received"
+				'? "aantal * "; returnvalues.A; " = "; countbytes
+				countbytes = countbytes + returnvalues.A
+				For ii as integer = 0 To returnvalues.A - 1 Step 4
+					if (databuffer(ii) <> databuffer_oud1) or (databuffer(ii+1) <> databuffer_oud2) or (databuffer(ii+2) <> databuffer_oud3) or (databuffer(ii+3) <> databuffer_oud4 )then 
+						? databuffer(ii); ", "; databuffer(ii+1); ", "; databuffer(ii+2); ", "; databuffer(ii+3); ", " 
+					End If
+					databuffer_oud1 = databuffer(ii)
+					databuffer_oud2 = databuffer(ii+1)
+					databuffer_oud3 = databuffer(ii+2)
+					databuffer_oud4 = databuffer(ii+3)
+				Next ii
+			'?
+			'? "packet nr."; 256*databuffer(62)+databuffer(63)
+			End If
+		End If
+		key = Inkey
+		If (key <> "") then
+			? countbytes
+		'	? "key pressed: "; asc(key)
+		'	databuffer(0) = asc(key)
+		'	returnvalues = transfer_data(DHandle(counter-1), out_endpoint(0), dbuf, out_packsize(0), 100, 100)
+		End If
+
+	Loop Until key = chr$(27)
+	
+	returnvalue = close_device(DHandle(counter-1))
+End If
+
+
+returnvalue = exit_prog(ppList)
+
+sleep
+