' Name        : ADCINX4.pbp
' Compiler    : PICBASIC PRO Compiler 2.6
' Assembler   : PM or MPASM
' Target PIC  : 8-pin PIC12F675 or similar types
' Hardware    : Lab-X4 board
' Oscillator  : 4MHz internal
' Keywords    : ADCIN, SEROUT
' Description : PICBASIC PRO program to display result of 8-bit A/D conversion on
' Lab-X4 serial LCD.
'

Include "modedefs.bas"      ' Mode definitions for Serout

Define  OSCCAL_1K  1        ' Calibrate internal oscillator

' Define ADCIN parameters
Define ADC_BITS 8           ' Set number of bits in result
Define ADC_CLOCK 3          ' Set clock source (3=rc)
Define ADC_SAMPLEUS 50      ' Set sampling time in uS

LCD Var GPIO.1              ' LCD TX pin
adval Var Byte              ' Create adval to store result

   ANSEL = %00111000        ' Set AN3 analog, rest digital
   CMCON = 7                ' Analog comparators off

   Pause 500                ' Wait .5 second for LCD to init

mainloop:
   ADCIN 3, adval           ' Read channel 3 to adval

   Serout LCD, T2400, [$fe, 1]  ' Clear screen
   Serout LCD, T2400, ["Value: ", #adval]   ' Display the decimal value  

   Pause 100                ' Wait .1 second

   Goto mainloop            ' Do it forever

   End