readings=3000

 A$=""
% �pass=0 � 2 � 2:P%=&A00:[OPTpass
(� LDA#0:STA&70:STA&71:STA&72:STA&73:.loop DEC&74:LDA&74:CMP#&FF:BNEnext:DEC&75:LDA&75:CMP#&FF:BNEnext:DEC&76:LDA&76:CMP#&FF:BNEnext:RTS
2M .next LDA#&81:LDX#&8F:LDY#&FF:JSR&FFF4:BCCok:BRK:EQUB17:EQUS"Escape":BRK
<� .ok LDA#16:LDX#1:JSR&FFF4:LDA#&80:.wait LDX#0:JSR&FFF4:CPY#1:BNEwait:LDX#1:JSR&FFF4:TYA:LDY#0:CLC:ADC&70:STA&70:BCCloop:INC&71:BNEloop:INC&72:BNEloop:INC&73:JMPloop
F ]:�
K% � 23,255,&18,&24,&24,&18,0,0,0,0
P @%=&2010A
Z V=9:� SUPPLY VOLTAGE
d R=510:� SERIES RESISTOR
n !&74=readings
x
 �&A00
� v=!&70/readings/256*1.8
�- � A$;(v*R/(V-v)-3.3018)/.009981;�255;"C"
�
 �Dn@
�

00000000  0d 00 0a 12 20 72 65 61  64 69 6e 67 73 3d 33 30  |.... readings=30|
00000010  30 30 0d 00 14 0a 20 41  24 3d 22 22 0d 00 1e 25  |00.... A$=""...%|
00000020  20 e3 70 61 73 73 3d 30  20 b8 20 32 20 88 20 32  | .pass=0 . 2 . 2|
00000030  3a 50 25 3d 26 41 30 30  3a 5b 4f 50 54 70 61 73  |:P%=&A00:[OPTpas|
00000040  73 0d 00 28 8a 20 4c 44  41 23 30 3a 53 54 41 26  |s..(. LDA#0:STA&|
00000050  37 30 3a 53 54 41 26 37  31 3a 53 54 41 26 37 32  |70:STA&71:STA&72|
00000060  3a 53 54 41 26 37 33 3a  2e 6c 6f 6f 70 20 44 45  |:STA&73:.loop DE|
00000070  43 26 37 34 3a 4c 44 41  26 37 34 3a 43 4d 50 23  |C&74:LDA&74:CMP#|
00000080  26 46 46 3a 42 4e 45 6e  65 78 74 3a 44 45 43 26  |&FF:BNEnext:DEC&|
00000090  37 35 3a 4c 44 41 26 37  35 3a 43 4d 50 23 26 46  |75:LDA&75:CMP#&F|
000000a0  46 3a 42 4e 45 6e 65 78  74 3a 44 45 43 26 37 36  |F:BNEnext:DEC&76|
000000b0  3a 4c 44 41 26 37 36 3a  43 4d 50 23 26 46 46 3a  |:LDA&76:CMP#&FF:|
000000c0  42 4e 45 6e 65 78 74 3a  52 54 53 0d 00 32 4d 20  |BNEnext:RTS..2M |
000000d0  2e 6e 65 78 74 20 4c 44  41 23 26 38 31 3a 4c 44  |.next LDA#&81:LD|
000000e0  58 23 26 38 46 3a 4c 44  59 23 26 46 46 3a 4a 53  |X#&8F:LDY#&FF:JS|
000000f0  52 26 46 46 46 34 3a 42  43 43 6f 6b 3a 42 52 4b  |R&FFF4:BCCok:BRK|
00000100  3a 45 51 55 42 31 37 3a  45 51 55 53 22 45 73 63  |:EQUB17:EQUS"Esc|
00000110  61 70 65 22 3a 42 52 4b  0d 00 3c a9 20 2e 6f 6b  |ape":BRK..<. .ok|
00000120  20 4c 44 41 23 31 36 3a  4c 44 58 23 31 3a 4a 53  | LDA#16:LDX#1:JS|
00000130  52 26 46 46 46 34 3a 4c  44 41 23 26 38 30 3a 2e  |R&FFF4:LDA#&80:.|
00000140  77 61 69 74 20 4c 44 58  23 30 3a 4a 53 52 26 46  |wait LDX#0:JSR&F|
00000150  46 46 34 3a 43 50 59 23  31 3a 42 4e 45 77 61 69  |FF4:CPY#1:BNEwai|
00000160  74 3a 4c 44 58 23 31 3a  4a 53 52 26 46 46 46 34  |t:LDX#1:JSR&FFF4|
00000170  3a 54 59 41 3a 4c 44 59  23 30 3a 43 4c 43 3a 41  |:TYA:LDY#0:CLC:A|
00000180  44 43 26 37 30 3a 53 54  41 26 37 30 3a 42 43 43  |DC&70:STA&70:BCC|
00000190  6c 6f 6f 70 3a 49 4e 43  26 37 31 3a 42 4e 45 6c  |loop:INC&71:BNEl|
000001a0  6f 6f 70 3a 49 4e 43 26  37 32 3a 42 4e 45 6c 6f  |oop:INC&72:BNElo|
000001b0  6f 70 3a 49 4e 43 26 37  33 3a 4a 4d 50 6c 6f 6f  |op:INC&73:JMPloo|
000001c0  70 0d 00 46 08 20 5d 3a  ed 0d 00 4b 25 20 ef 20  |p..F. ]:...K% . |
000001d0  32 33 2c 32 35 35 2c 26  31 38 2c 26 32 34 2c 26  |23,255,&18,&24,&|
000001e0  32 34 2c 26 31 38 2c 30  2c 30 2c 30 2c 30 0d 00  |24,&18,0,0,0,0..|
000001f0  50 0e 20 40 25 3d 26 32  30 31 30 41 0d 00 5a 19  |P. @%=&2010A..Z.|
00000200  20 56 3d 39 3a f4 20 53  55 50 50 4c 59 20 56 4f  | V=9:. SUPPLY VO|
00000210  4c 54 41 47 45 0d 00 64  1c 20 52 3d 35 31 30 3a  |LTAGE..d. R=510:|
00000220  f4 20 53 45 52 49 45 53  20 52 45 53 49 53 54 4f  |. SERIES RESISTO|
00000230  52 0d 00 6e 12 20 21 26  37 34 3d 72 65 61 64 69  |R..n. !&74=readi|
00000240  6e 67 73 0d 00 78 0a 20  d6 26 41 30 30 0d 00 82  |ngs..x. .&A00...|
00000250  1c 20 76 3d 21 26 37 30  2f 72 65 61 64 69 6e 67  |. v=!&70/reading|
00000260  73 2f 32 35 36 2a 31 2e  38 0d 00 8c 2d 20 f1 20  |s/256*1.8...- . |
00000270  41 24 3b 28 76 2a 52 2f  28 56 2d 76 29 2d 33 2e  |A$;(v*R/(V-v)-3.|
00000280  33 30 31 38 29 2f 2e 30  30 39 39 38 31 3b bd 32  |3018)/.009981;.2|
00000290  35 35 3b 22 43 22 0d 00  96 0a 20 e5 8d 44 6e 40  |55;"C".... ..Dn@|
000002a0  0d ff                                             |..|
000002a2