' Name        : ADCX18.pbp
' Compiler    : PICBASIC PRO Compiler 2.6
' Assembler   : PM or MPASM
' Target PIC  : PIC16F88 or similar
' Hardware    : LAB-X18 Experimenter Board
' Oscillator  : 4MHz external crystal
' Keywords    : ADCIN, LCDOUT
' Description : PICBASIC PRO program to read potentiometer on LAB-X18
' and display on LCD.
'

' Define LCD pins
Define LCD_DREG  PORTA
Define LCD_DBIT  0
Define LCD_RSREG PORTB
Define LCD_RSBIT 6
Define LCD_EREG  PORTB
Define LCD_EBIT  3

' Allocate variables
x Var Byte

   ANSEL = %00010000 ' Make the pot input analog and rest digital
   CMCON = 7         ' Set PORTA to digital
   Pause 100         ' Wait for LCD to start

mainloop:
   Adcin 4, x        ' Read the pot
   Lcdout $fe, 1, "pot=", #x ' Send value to LCD
   Pause 100         ' Do it about 10 times a second
   Goto mainloop     ' Do it forever

   End