That works better.


Is this causing my problem since they are PBP Interrupts, it's not exiting like it should...

AdcMaxReads is at 64, Each time I loop I increment the channel, that way I only do 64 reads per loop.


GetADC:
ADCVAL = 0
ADCAVG = 0

For AdcCnt = 1 to AdcMaxReads
ADCIN NextChan,ADCVAL
ADCAVG = ADCAVG + ADCVal
Next AdcCnt
Reg[NextChan] = ADCAVG / AdcMaxReads

NextChan = NextChan + 1
If NextChan = 10 then 'Cycled thru all 9 analogs
If (LowBatSP > 0) Then
BatVolts = Reg[8]
GoSub CheckBat
EndIf
NextChan = 0
EndIf
Return





Main:
Gosub GetADC
Goto Main