DEFINE OSC 48

Buffer VAR BYTE[16]
Cnt VAR BYTE
B0 VAR BYTE
B1 VAR BYTE
led var porta.3

ADCON1 = 15 ' Set all I/Os to Digital
CMCON = 7 ' Disable Comparators
Cnt = 16

USBInit ' Initialize USART
start:
for b0 = 0 to 15
lookup b0,["USB CONNECTED!",10,13],B1
BUFFER(B0) = B1
NEXT B0
gosub send
ledl:
high led
pause 1000'(when i have delay nothing is working)
low led

afterled:
for b0 = 0 to 15
lookup b0,["closed led",10,13],B1
BUFFER(B0) = B1
NEXT B0
gosub send
goto start

send:
USBService ' Must service USB regularly
USBOut 3, Buffer, Cnt,send
return
end