Code for 10K Thermistor on 7 Segment

' Working 3 10K thermistor and Table
' 2019 03 28
' By Donald and Great Cow Basic Example Code

#chip 16F887,4
#config osc = int

;Defines (Constants)
#define 7Seg_HighSide
#define DISP_SEG_A PORTB.0
#define DISP_SEG_B PORTB.1
#define DISP_SEG_C PORTB.2
#define DISP_SEG_D PORTB.3
#define DISP_SEG_E PORTB.4
#define DISP_SEG_F PORTB.5
#define DISP_SEG_G PORTB.6
#define DISP_SEG_DOT PORTB.7
#define Disp_Sel_1 PortD.4
#define Disp_Sel_2 PortD.5
#define Disp_Sel_3 PortD.6

dim Temp, Analog, Num1, Num2, Num3 as integer

Table ADCtoTemp as integer
-10, -9, -8, -8, -7, -7, -6, -6, -5, -5, -4, -4, -4,-3, -3, -2, -2, -1, -1, 0, 0, 1, 1, 1, 2, 2,3, 3, 4, 4, 5, 5, 5, 6, 6, 7, 7, 7, 8,8, 9, 9, 9, 10, 10, 11, 11, 11, 12, 12, 13, 13,13, 14, 14, 15, 15, 15, 16, 16, 17, 17, 17, 18, 18,19, 19, 19, 20, 20, 21, 21, 21, 22, 22, 23, 23, 24,24, 24, 25, 25, 26, 26, 26, 27, 27, 28, 28, 28, 29,29, 30, 30, 31, 31, 31, 32, 32, 33, 33, 34, 34, 35,35, 35, 36, 36, 37, 37, 38, 38, 39, 39, 40, 40, 41,41, 42, 42, 43, 43, 44, 44, 45, 45, 46, 46, 47, 47,48, 49, 49, 50, 50, 51, 51, 52, 53, 53, 54, 55, 55,56, 56, 57, 58, 59, 59, 60, 61, 61, 62, 63, 64, 64,65, 66, 67, 68, 69, 69, 70, 71, 72, 73, 74, 75, 76,77, 78, 79, 81, 82, 83, 84, 86, 87, 88, 90, 91, 93,94, 96, 98, 100, 102, 104, 106, 108, 111, 113, 116, 119, 122,125, 129, 133, 138, 143, 148, 155, 162
End Table

Do Forever
'Calculate temperature
Analog = ReadAD(AN0)-46
ReadTable ADCtoTemp, Analog, Temp

'Display on LCD
Num2 = Temp%10
Num3 = Temp/10

DisplayValue 2, Num2, 1
Wait 5 ms
DisplayValue 3, Num3
Wait 5 ms
Displaychar 1, "C"
Wait 5 ms
Loop