PIC und Potiemeter

Hallo,

finde Hier eine/r einen Fehler im mein Quellcode

DEFINE LOADER_USED 1
DEFINE OSC 20
BufferSize      con 8
DataBuffer      Var Byte(BufferSize) ' data buffer
DataBufferCount Var Byte             ' buffer size
ADCON1 = 7          ' Port A = digital I/O
CDS  VAR BYTE
TRISA.0 = 1         ' Set Port A pin 0 to input
USBInit
Main:
pot PORTA.0, 255, CDS
     DataBuffer(0) = "A"
     DataBuffer(1) = "0"

    DataBuffer(2) = CDS[0]
    DataBuffer(3) = "."
    DataBuffer(4) = CDS[1]
    databuffer(5) = CDS[2]
    GOSUB DoUSBOut
 GOTO Main

' ************************************************************
'  receive data from the USB bus                            
' ************************************************************
DoUSBIn:
    DataBufferCount = BufferSize
    USBService
    USBIn 1, DataBuffer, DataBufferCount, DoUSBIn
    RETURN

' ************************************************************
'  wait for USB interface to attach                         
' ************************************************************
DoUSBOut:
    DataBufferCount = BufferSize
    USBService
    USBOut 1, DataBuffer, DataBufferCount, DoUSBOut
    RETURN
END

Gruß

Andreas Klein