PIC18F1320 - Using ADC - 10 bits

PIC18F1320 to transmit data read by AN0 to PC at 115K,8N1 using the on chip EUSART


Device 18F1320 ' Produce code for a 18F1320
' Config file
' Using 10Mhz Crystal - set PLL x 4 (40Mhz internal clock)
' MCLR disabled
'
XTAL = 40 ' 40 Mhz Int Osc
WATCHDOG = OFF '
'
'
'
'Baud Rate setup
Declare HSERIAL_BAUD 115200 ' 115200 baud
Declare HSERIAL_RCSTA %10010000 ' Sets the respective PICmicro hardware register RCSTA
Declare HSERIAL_TXSTA %00100100 ' Sets the respective PICmicro hardware register TXSTA
Declare HSERIAL_CLEAR On ' Clear the overflow error bit before commencing a read
'
'
'
' ADC Setup
'-------------
Declare ADIN_STIME 150 ' Settling time 150uS
ADCON0 = %00000001 ' Chan Select AN0
ADCON1 = %11111110 ' AN0 Analogue
ADCON2 = %10111110 ' Right justified, 20TAD, Fosc/64
'
' Declare variables
'---------------------
Dim ADCVALUE As Word ' ADC reading
'
'Setup Ports
'-------------
TRISA = %00000011 ' Set up IO PortA
TRISB = %11111101 ' Set up IO PortB
'
'
'
ReadADC:
ADCVALUE = ADIn 0 ' Read ADC Chan 0
HSerOut [DEC4 ADCVALUE, ","] ' Send
GoTo ReadADC ' Loop for ever
'
'
End