we shall see:
DEFINE OSC 20
define HSER_RCSTA 90h ‘enable the receive register
define HSER_TXSTA 20h ‘enable the transmit register
define HSER_BAUD 31250 ‘ set the baud rate
DEFINE ADC_BITS 10
DEFINE ADC_CLOCK 20
DEFINE ADC_SAMPLEUS 50
INPUT portd.1
INPUT portd.0
INPUT portc.3
INPUT portc.2
buttonVar VAR WORD
buttonVar1 VAR WORD
buttonVar2 VAR WORD
buttonVar3 VAR WORD
ADCvar VAR WORD
ADCvarFIX VAR WORD
ADCvar1 VAR WORD
ADCvar1FIX VAR WORD
ADCvar2 VAR WORD
ADCvar2FIX VAR WORD
ADCvar3 VAR WORD
ADCvar3FIX VAR WORD
ADCvar4 VAR WORD
ADCvar4FIX VAR WORD
ADCvar5 VAR WORD
ADCvar5FIX VAR WORD
ADCvar6 VAR WORD
ADCvar6FIX VAR WORD
ADCvar7 VAR WORD
ADCvar7FIX VAR WORD
TRISA = %11111111
ADCON1 = %10000010
Pause 500
main:
ADCIN 7, ADCvar7
ADCIN 6, ADCvar6
ADCIN 5, ADCvar5
ADCIN 4, ADCvar4
ADCIN 3, ADCvar3
ADCIN 2, ADCvar2
ADCIN 1, ADCvar1
ADCIN 0, ADCvar
buttonVar = portd.1
buttonVar1 = portd.0
buttonVar2 = portc.3
buttonVar3 = portc.2
ADCvarFIX = ADCvar / 8
ADCvar1FIX = ADCvar1 / 8
ADCvar2FIX = ADCvar2 / 8
ADCvar3FIX = ADCvar3 / 8
ADCvar4FIX = ADCvar4 / 8
ADCvar5FIX = ADCvar5 / 8
ADCvar6FIX = ADCvar6 / 8
ADCvar7FIX = ADCvar7 / 8
hserout [$90, 60, ADCvarFix]
hserout [$90, 61, ADCVAR1FIX]
hserout [$90, 62, ADCvar2FIX]
hserout [$90, 63, ADCvar3FIX]
hserout [$90, 64, ADCvar4FIX]
hserout [$90, 65, ADCvar5FIX]
hserout [$90, 66, ADCvar6FIX]
hserout [$90, 67, ADCvar7FIX]
hserout [$90, 68, buttonVar]
hserout [$90, 69, buttonVar1]
hserout [$90, 70, buttonVar2]
hserout [$90, 71, buttonVar3]
Pause 100
goto main