Communicatie CDC USB PIC18F4550 PicBasic

Device = 18F4550

CONFIG_START
   PLLDIV = 5         ; Divide by 5 (20 MHz oscillator input)
   CPUDIV = OSC1_PLL2 ; [OSC1/OSC2 Src: /1][96 MHz PLL Src: /2]
   USBDIV = 2         ; USB clock source comes from the 96 MHz PLL divided by 2
   FOSC = HSPLL_HS    ; HS oscillator, PLL enabled, HS used by USB
   PWRT = On          ; PWRT enabled
   BOR = OFF          ; Brown-out Reset disabled in hardware and software
   VREGEN = On        ; USB voltage regulator enabled
CONFIG_END
XTAL = 20

'USB instellen op virtueel RS232
    Declare USB_DESCRIPTOR = "CDCDESC.INC"
    	Dim PP0 As Byte SYSTEM	
	Dim in_buffer As Byte			
    	Dim out_buffer As Byte 	
	
	Symbol CARRY_FLAG = STATUS.0				
    	Symbol TRNIF = UIR.3	

GoTo MAIN

USB_send:      

    Repeat  
        USBOut 3,out_buffer,1			
   	Until CARRY_FLAG = 0					
    Repeat : Until TRNIF = 1
    Return
    
USB_receive:

    Repeat										
    	USBIn 3,in_buffer,1					
    Until CARRY_FLAG = 0
    Return
    
MAIN:

While 1 = 1
	'check if USB attached	
    	Repeat							
    	USBPoll			
    	Until PP0 = %00000110
    	
	Call USB_receive 'in_buffer contains received byte (like serial RX)
    out_buffer = "L" : Call USB_send 'send char 'c' (like serial TX)

Wend