Re: 18F4550 USB takes over
Yes, that was it. Now instead of looping on the USBIN part, my way out is clear. It finally responds to a specific key and prints the result.
USBDATA:
cnt = 16
USB_IN:
LCDOUT $FE,$C0+15,"*"
' Must service USB regularly
USBSERVICE
USBIN 3,usb_buffer,cnt,NOUSB
usb_buffer[13] = 0
select case usb_buffer[0]
case 97
usb_buffer[13] = "A"
end select
USB_OUT:
USBSERVICE
usb_buffer[0] = "H"
usb_buffer[1] = "e"
usb_buffer[2] = "l"
usb_buffer[3] = "l"
usb_buffer[4] = "o"
usb_buffer[5] = "W"
usb_buffer[6] = "o"
usb_buffer[7] = "r"
usb_buffer[8] = "l"
usb_buffer[9] = "d"
usb_buffer[10] = 13
usb_buffer[11] = 10
usb_buffer[12] = 0
USBOut 3,usb_buffer,14,USB_OUT
NOUSB:
LCDOUT $FE,$C0+15," "
Return