冒險建築 ! Adventure Architecture

DEFINE OSC 4
INCLUDE "modedefs.bas"
DEFINE ADC_BITS 10
DEFINE ADC_CLOCK 3
DEFINE ADC_SAMPLEUS 10
TRISA = %11111111
adcon1 = %10000010


adcVar0 VAR WORD ' ir Create variable to store result
adcVar1 VAR WORD ' ir Create variable to store result


pause 500

main:
ADCIN 0, adcVar0
ADCIN 1, adcVar1

serout2 portc.6, 16468, [DEC adcVar0,44,DEC adcVar1,44,DEC PORTB.6,13]


PAUSE 10
GoTo main