got one knob working so far
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
VELVar VAR WORD ‘velocity value for noteout
ADCvar VAR WORD
ADCvarFIX VAR WORD
ADCvar2 VAR WORD
NOTEvar VAR WORD
TRISA = %11111111
ADCON1 = %10000010
Pause 500
output portb.7
main:
‘ADCIN 2, ADCvar2
ADCIN 0, ADCvar
ADCvarFIX = ADCvar / 8
hserout [$90, ADCvarFIX, VELVar]
Pause 100
‘ noteoff channel 1, middle A
‘hserout [$80, $45, $000]
goto main