'Thanks Dan O'Sullivan Modified by Michael Schneider

DEFINE OSC 4 DEFINE ADC_BITS 10 DEFINE ADC_CLOCK 3 DEFINE ADC_SAMPLEUS 20 TRISA = %11111111 adcon1 = %10000010

RedLed? Var Portd.0

output redled

adcVar0 VAR WORD ' ir Create variable to store result adcVar1 VAR WORD ' ir Create variable to store result switchVar var byte inputVar Var BYTE

x var byte

pause 500 main: 

    ADCIN 0, adcVar0
    ADCIN 1, adcVar1

    serout2 portc.6, 16468, [DEC adcVar0,44,DEC adcVar1,44,DEC PORTB.6,13]
    serIN2 portc.7, 16468, [inputVar]
    PULSOUT portd.0 ,inputVar
    PAUSE 10

GoTo? main


Page last modified February 14, 2006, at 10:08 PM