Device = 18F4550 ' Use a device with full speed USB capabilities
Xtal = 48 ' Set the oscillator speed to 48MHz (using a 20MHz crystal)
Reminders OFF

Adin_Res 10 ' Set the resolution to 10
Adin_Tad FRC ' Choose the RC osc for ADC samples
Adin_Stime 100 ' Allow 100us for charge time

USB_Descriptor = "CDCDESC.INC" ' Point to the CDC DESCRIPTOR file (located in the INC\USB_18 folder)

Dim PP0 As Byte System ' USBPOLL status return
Dim USB_BUFFER As String * 20 ' USB buffer
Dim AD_RESULT As ADRESL.Word ' \
Dim VALUE As Word ' \
Dim VOLTS As Byte ' / ADC conversion variables
Dim MILLIVOLTS As Byte ' /

Symbol CARRY_FLAG = STATUS.0 ' High if microcontroller does not have control over the buffer
Symbol TRNIF = UIR.3 ' Low if USB Busy

'-------------------------------------------------------------------------------

DelayMS 200 ' Wait for things to stabilise
Clear ' Clear all RAM before we start

Repeat ' \
USBPoll ' Wait for the USB interface to become attached
Until PP0 = %00000110 ' /

TRISA.0 = 1 ' Setup PORTA.0 as an input
ADCON1 = %10001110 ' Make PORTA.0 analogue
ADCON2 = %10000000 ' Right justify the ADC result

While 1 = 1
USBPoll ' Keep the USB interface alive
AD_RESULT = ADIn 0 ' Read the ADC
VALUE = 489 * (AD_RESULT / 10) ' Quantasize the result
VOLTS = VALUE / 10000 ' Split off the Volts
MILLIVOLTS = (VALUE // 10000) / 100 ' Split off the MilliVolts
'
' Convert the value into a string
'
USB_BUFFER = Str$(Dec1,VOLTS) + "." + Str$(Dec2,MILLIVOLTS) + " Volts\r"
Repeat
USBOut 3, USB_BUFFER, Auto ' Poll the USB and transmit the string from endpoint 3
Until CARRY_FLAG = 0 ' Keep trying if the microcontroller does not have control over the buffer
Repeat : Until TRNIF = 1 ' Wait for completion before continuing
Wend ' Go wait for the next buffer input