' Access PIC16C7x A/D Include "modedefs.bas" ' Include serial modes SO con 0 ' Define serial output pin ADCON1 = 0 ' Set PortA 0-3 to analog inputs ADCON0 = $41 ' Set A/D to Fosc/8, Channel 0, On Pause 1 ' Wait for channel to setup loop: ADCON0 = $45 ' Start conversion Pause 1 ' Wait for conversion Serout SO,N2400,[#ADRES,10] ' Send variable to serial out Goto loop