If this is all your program is supposed to do, i'd use something like this instead. Much faster.

Code:
ADCON1.7 = 1                          'right justified
Loop:
    ADCIN 1,TempRead
    IF tempread>800 THEN tempread=800 'Min. temp.
    IF tempread<650 THEN tempread=650 'Max. temp.
    XF = 301 - ((TempRead - 650)<<1)  '301-((TempRead-650)*2)
    Lcdout $fe,1,”Temp:”, #XF
GoTo loop
/Ingvar