Hi Norm.

I think you can shorten your code by Left justify the AD results and take only the ADRESH. Same as with the lines:

Code:
        wAD.LowByte = ADRESL       ' 2520 10 BIT AD ONLY
        wAD.HighByte = ADRESH  
        yAD_ARRAY100[i] = wAD >> 2
Ioannis