'-------------------------------------------------------------------------
' PIC12C671 A/D SAMPLE ROUTINE FOR VISUAL BASIC TESTING
' Copyright 1999 Rutherford Robotics, Inc.
'-------------------------------------------------------------------------
' PIN  NAME     USE/CONNECTION
'  1   VDD      +5VDC
'  2   GPIO.5   LED-GREEN
'  3   GPIO.4   LED-RED
'  4   GPIO.3   NO CONNECTION
'  5   GPIO.2   TO MAX232CE.10 SERIAL DATA TO PC
'  6   GPIO.1   NO CONNECTION
'  7   GPIO.0   1K RESISTOR TO CENTER OF 10K POT. (VDD-PIC-VSS)
'  8   VSS      DIGITAL GROUND
'-------------------------------------------------------------------------
ADCON1=7                'SET GPIO MODE TO ALL DIGITAL
OSCCAL=%10010000        'CAL FACTOR FOR THIS JW CHIP (ADJUST AS REQ.)
OUTPUT 4
OUTPUT 5
X VAR BYTE
Y VAR BYTE
'----------------------- OKAY, NOW DO SOMETHING WITH A/D PINS
MAIN:                   'A/D MAIN SEGMENT
ADCON1=6                'GP.0 = ANALOG, ALL ELSE DIGITAL
ADCON0=%00000000        'A/D ALL OFF
ADCON0=%10000000        'A/D CLOCK SET
ADCON0=%10000001        'A/D MODULE TURNED ON
GPIO.4=0                'LED-GREEN OFF
GPIO.5=1                'LED-RED   ON
PAUSE 5                 'SHORT DELAY
ADCON0=%10000101        'START CONVERSION
LOOP:                   'WAIT FOR DATA LOOP
IF ADCON0.2=1 THEN      'CHECK GO/DONE BIT (0=DONE)
GOTO LOOP               'NOT FINISHED CONVERTING YET.
ENDIF
'----------------------- NOW OUTPUT THE RAW DATA 
SEROUT GPIO.2,2,[#ADRES,10,13]
GPIO.4=1                'LED-GREEN ON
GPIO.5=0                'LED-RED   OFF
PAUSE 100               '0.1 SECOND DELAY TO SIMULATE OTHER TASKS
GOTO MAIN