Problem with A port on 18F2550

[NL2TTL]

I have a problem with my a port on the 18F2550 device. When i use this code the a port will toggle all the time. What do I wrong.

I have the following code:

Include "modedefs.bas"

Define OSC 20
DEFINE DEBUG_REG PORTC
DEFINE DEBUG_BIT 7
DEFINE DEBUG_BAUD 9600
DEFINE DEBUG_MODE 1

LEDGroen VAR PORTB.7
LEDRood VAR PORTA.2


Relais1 VAR PORTA.5 ' Relaiscontact'

LATA = 0


ADCON1 = 7 'poort a op digitaal
'ADCON1 = 0 'poort a op analoog

ADCON0 = 0
ADCON2 = 0

'CMCON = 7


TRISB.3 = 1 'Input
TRISB.2 = 1 'Input
TRISA.1 = 1 'Input

TRISA = 255


DEFINE ADC_BITS 8 ' Set number of bits in result (8, 10 or 12)
DEFINE ADC_CLOCK 2 ' Set clock source (rc = 3)
DEFINE ADC_SAMPLEUS 50 ' Set sampling time in microseconds

Init:

HIGH LEDGroen
PAUSE 500
LOW LEDGroen
Pause 500
HIGH LEDRood
PAUSE 500
LOW LEDRood
Pause 500
Debug "->Start<-", 13,10

Goto Main


Main:
High Relais1
Goto Main: