I am attempting to implement a usb keyboard. This is a sample of project and it work. I send the letter "a" (small).
My question is how to send big letter "A" with shift press?


DEFINE OSC 48
DEFINE LOADER_USED 1

USBBufferSizeMax con 8 ' maximum buffer size
USBBufferSizeTX con 8 ' input
USBBufferSizeRX con 8 ' output

' the USB buffer...
USBBuffer Var Byte[USBBufferSizeMax]
USBBufferCount Var Byte
I var byte

TRISD = 255


usbinit ' initialise USB...


USBbuffer[0] = 0
USBbuffer[1] = 0
USBbuffer[2] = $04
USBbuffer[3] = 0
USBbuffer[4] = 0
USBbuffer[5] = 0
USBbuffer[6] = 0
USBbuffer[7] = 0


ProgramStart:
USBSERVICE
IF PORTD.0 = 0 THEN
pause 5
Goto DoUSBOut1
ENDIF
goto ProgramStart




DoUSBOut1:

USBBufferCount = USBBufferSizeTX ' TX buffer size
USBService ' keep connection alive
USBOut 1, USBBuffer, USBBufferCount,DoUSBOut1 ' if bus available, transmit data

Tipka3:
USBService
If PORTD.0 = 0 then
pause 5
goto tipka3
else
USBbuffer[2] = $FF
GOSUB DoUSBOut2
GOTO programstart
endif
goto Tipka3

DoUSBOut2:
USBBufferCount = USBBufferSizeTX ' TX buffer size
USBService ' keep connection alive
USBOut 1, USBBuffer, USBBufferCount,DoUSBOut2 ' if bus available, transmit data
return

end