Device = 18F2553
    Declare Xtal = 20 
    Config_Start
    WDT = On 
    Config_End
    Declare Reminders = On
    Declare Show_System_Variables = On
    Declare LCD_DTPin = PORTC.4
    Declare LCD_RSPin = PORTC.0
    Declare LCD_ENPin = PORTC.1
    Declare LCD_Interface = 4
    Declare LCD_Lines = 2
    Declare LCD_Type = 0
    Declare LCD_CommandUs = 2000
    Declare LCD_DataUs = 50   
             
    Declare PortB_Pullups = 1 
    Declare Adin_Res = 12
    Declare Adin_Tad = 2                    ' CLK options are 0, 1, 2, 3 (0-2 are based on internal cycles)
    Declare Adin_Stime = 400
    
     
    'Declare Float_Display_Type = Fast 
    Dim ADC_Reading As  Word    ' Temp is a word sized variable                  ' 
    Dim Cent As Float           ' Temperatore in centigrade
    Dim Fahr As Float           ' Temperature in Fahrenheit                 
    Dim Vout As Float           ' Output from AD8495 in Volts
    Dim Vtc As Float            ' Vtc output of K type thermocouples in mV
    Dim var1 As SWord           ' Temporary
     
    TRISC = %11111111
    TRISA = %11111111
    TRISB = %00000000
    ADCON1 = %10000000                        
    ADCON0 = %00000001
    ADCON2 = %10001111
                                                         
      Print At 1,1, "DIG. THERMOMETER"                   'Initialization
      Print At 2,1," -25",223,"C"," TO ","500",223,"C"   '
      DelayMS 50
      Cls                  
Main: ADC_Reading = ADIn 0      
      Vout= ADC_Reading * 5 / 4096                       ' Calcualate Vout of AD8495 
      Print At 1,1,Dec ADC_Reading, "  ",Dec Vout        ' This is temporary just to see results  
      Vtc = ((Vout -1)*1000 -1.25)/122.4                 ' Calculate thermocouple output as per AD8495 datasheet
      Print At 2,1,"Vtc=:",Dec5 Vtc                      ' Temporary to check results        
      var1 = -1156:Print At 4,1,Dec var1                 ' Print Result: var2=64380 (64380-65536= -1156)
      ' now look in the lookup table for the temperature corresponding to this Vtc value
     DelayMS 5                                                                 
     GoTo Main   
        
 Org 5000    
 VTc_Table:            
 CData As Float -0.968,-0.930,-0.892,-0.854,-0.816,-0.778,-0.739,-0.701,-0.663,-0.624,-0.586,_
                -0.547,-0.508,-0.470,-0.431,-0.392,-0.353,-0.314,-0.275,-0.236,-0.197,-0.157,_
                -0.118,-0.079,-0.039,0.000,0.039,0.079,0.119,0.158,0.198,0.238,0.277,0.317,_
                 0.357,0.397,0.437,0.477,0.517,0.557,0.597,0.637,0.677,0.718,0.758,0.798,0.838,_
                 0.879,0.919,0.960,1.000,1.041,1.081,1.122,1.163,1.203,1.244,1.285,1.326,1.366,_
                 1.407,1.448,1.489,1.530,1.571,1.612,1.653,1.694,1.735,1.776,1.817,1.858,1.899,_
                 1.941,1.982,2.023,2.064,2.106,2.147,2.188,2.230,2.271,2.312,2.354,2.395,2.436,_
                 2.478,2.519,2.561,2.602,2.644,2.685,2.727,2.768,2.810,2.851,2.893,2.934,2.976,_
                 3.017,3.059,3.100,3.142,3.184,3.225,3.267,3.308,3.350,3.391,3.433,3.474,3.516,_
                 3.557,3.599,3.640,3.682,3.723,3.765,3.806,3.848,3.889,3.931,3.972,4.013,4.055,_
                 4.096,4.138,4.179,4.220,4.262,4.303,4.344,4.385,4.427,4.468,4.509,4.550,4.591,_
                 4.633,4.674,4.715,4.756,4.797,4.838,4.879,4.920,4.961,5.002,5.043,5.084,5.124,_
                 5.165,5.206,5.247,5.288,5.328,4.920,4.961,5.002,5.043,5.084,5.124,5.165,5.206,_
                 5.247,5.288,5.328,5.369,5.410,5.450,5.491,5.532,5.572,5.613,5.653,5.694,5.735,_
                 5.775,5.815,5.856,5.896,5.937,5.977,6.017,6.058,6.098,6.138,6.179,6.219,6.259,_
                 6.299,6.339,6.380,6.420,6.460,6.500,6.540,6.580,6.620,6.660,6.701,6.741,6.781,_
                 6.821,6.861,6.901,6.941,6.981,7.021,7.060,7.100,7.140,7.180,7.220,7.260,7.300,_
                 7.340,7.380,7.420,7.460,7.500,7.540,7.579,7.619,7.659,7.699,7.739,7.779,7.819,_
                 7.859,7.899,7.939,7.979,8.019,8.059,8.099,8.138,8.178,8.218,8.258,8.298,8.338,_
                 8.378,8.418,8.458,8.499,8.539,8.579,8.619,8.659,8.699,8.739,8.779,8.819,8.860,_
                 8.900,8.940,8.980,9.020,9.061,9.101,9.141,9.181,9.222,9.262,9.302,9.343,9.383,_
                 9.423,9.464,9.504,9.545,9.585,9.626,9.666,9.707,9.747,9.788,9.828,9.869,9.909,_
                 9.950,9.991,10.031,10.072,10.113,10.153,10.194,10.235,10.276,10.316,10.357,_
                 10.398,10.439,10.480,10.520,10.561,10.602,10.643,10.684,10.725,10.766,10.807,_
                 10.848,10.889,10.930,10.971,11.012,11.053,11.094,11.135,11.176,11.217,11.259,_
                 11.300,11.341,11.382,11.423,11.465,11.506,11.547,11.588,11.630,11.671,11.712,_
                 11.753,11.795,11.836,11.877,11.919,11.960,12.001,12.043,12.084,12.126,12.167,_
                 12.209,12.250,12.291,12.333,12.374,12.416,12.457,12.499,12.540,12.582,12.624,_
                 12.665,12.707,12.748,12.790,12.831,12.873,12.915,12.956,12.998,13.040,13.081,_
                 13.123,13.165,13.206,13.248,13.290,13.331,13.373,13.415,13.457,13.498,13.540,_
                 13.582,13.624,13.665,13.707,13.749,13.791,13.833,13.874,13.916,13.958,14.000,_
                 14.042,14.084,14.126,14.167,14.209,14.251,14.293,14.335,14.377,14.419,14.461,_
                 14.503,14.545,14.587,14.629,14.671,14.713,14.755,14.797,14.839,14.881,14.923,_
                 14.965,15.007,15.049,15.091,15.133,15.175,15.217,15.259,15.301,15.343,15.385,_
                 15.427,15.469,15.511,15.554,15.596,15.638,15.680,15.722,15.764,15.806,15.849,_
                 15.891,15.933,15.975,16.017,16.059,16.102,16.144,16.186,16.228,16.270,16.313,_
                 16.355,16.397,16.439,16.482,16.524,16.566,16.608,16.651,16.693,16.735,16.778,_
                 16.820,16.862,16.904,16.947,16.989,17.031,17.074,17.116,17.158,17.201,17.243,_
                 17.285,17.328,17.370,17.413,17.455,17.497,17.540,17.582,17.624,17.667,17.709,_
                 17.752,17.794,17.837,17.879,17.921,17.964,18.006,18.049,18.091,18.134,18.176,_
                 18.218,18.261,18.303,18.346,18.388,18.431,18.473,18.516,18.558,18.601,18.643,_
                 18.686,18.728,18.771,18.813,18.856,18.898,18.941,18.983,19.026,19.068,19.111,_
                 19.154,19.196,19.239,19.281,19.324,19.366,19.409,19.451,19.494,19.537,19.579,_
                 19.622,19.664,19.707,19.750,19.792,19.835,19.877,19.920,19.962,20.005,20.048,_
                 20.090,20.133,20.175,20.218,20.261,20.303,20.346,20.389,20.431,20.474,20.516,_
                 20.559,20.602,20.644