, readings=1:�:A$=�(31)+�(15)+�(12):�TT@

 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
#M .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
2 ]:�
4 @%=&2030A
8 V=12:� SUPPLY VOLTAGE
9 R=1000:� SERIES RESISTOR
< !&74=readings
F
 �&A00
P v=!&70/readings/256*1.8
Z � A$;v*R/(V-v)
d
 �T|@
�

00000000  0d 00 05 2c 20 72 65 61  64 69 6e 67 73 3d 31 3a  |..., readings=1:|
00000010  db 3a 41 24 3d bd 28 33  31 29 2b bd 28 31 35 29  |.:A$=.(31)+.(15)|
00000020  2b bd 28 31 32 29 3a e5  8d 54 54 40 0d 00 0a 12  |+.(12):..TT@....|
00000030  20 72 65 61 64 69 6e 67  73 3d 33 30 30 30 0d 00  | readings=3000..|
00000040  0f 0a 20 41 24 3d 22 22  0d 00 14 25 20 e3 70 61  |.. A$=""...% .pa|
00000050  73 73 3d 30 20 b8 20 32  20 88 20 32 3a 50 25 3d  |ss=0 . 2 . 2:P%=|
00000060  26 41 30 30 3a 5b 4f 50  54 70 61 73 73 0d 00 1e  |&A00:[OPTpass...|
00000070  8a 20 4c 44 41 23 30 3a  53 54 41 26 37 30 3a 53  |. LDA#0:STA&70:S|
00000080  54 41 26 37 31 3a 53 54  41 26 37 32 3a 53 54 41  |TA&71:STA&72:STA|
00000090  26 37 33 3a 2e 6c 6f 6f  70 20 44 45 43 26 37 34  |&73:.loop DEC&74|
000000a0  3a 4c 44 41 26 37 34 3a  43 4d 50 23 26 46 46 3a  |:LDA&74:CMP#&FF:|
000000b0  42 4e 45 6e 65 78 74 3a  44 45 43 26 37 35 3a 4c  |BNEnext:DEC&75:L|
000000c0  44 41 26 37 35 3a 43 4d  50 23 26 46 46 3a 42 4e  |DA&75:CMP#&FF:BN|
000000d0  45 6e 65 78 74 3a 44 45  43 26 37 36 3a 4c 44 41  |Enext:DEC&76:LDA|
000000e0  26 37 36 3a 43 4d 50 23  26 46 46 3a 42 4e 45 6e  |&76:CMP#&FF:BNEn|
000000f0  65 78 74 3a 52 54 53 0d  00 23 4d 20 2e 6e 65 78  |ext:RTS..#M .nex|
00000100  74 20 4c 44 41 23 26 38  31 3a 4c 44 58 23 26 38  |t LDA#&81:LDX#&8|
00000110  46 3a 4c 44 59 23 26 46  46 3a 4a 53 52 26 46 46  |F:LDY#&FF:JSR&FF|
00000120  46 34 3a 42 43 43 6f 6b  3a 42 52 4b 3a 45 51 55  |F4:BCCok:BRK:EQU|
00000130  42 31 37 3a 45 51 55 53  22 45 73 63 61 70 65 22  |B17:EQUS"Escape"|
00000140  3a 42 52 4b 0d 00 28 a9  20 2e 6f 6b 20 4c 44 41  |:BRK..(. .ok LDA|
00000150  23 31 36 3a 4c 44 58 23  31 3a 4a 53 52 26 46 46  |#16:LDX#1:JSR&FF|
00000160  46 34 3a 4c 44 41 23 26  38 30 3a 2e 77 61 69 74  |F4:LDA#&80:.wait|
00000170  20 4c 44 58 23 30 3a 4a  53 52 26 46 46 46 34 3a  | LDX#0:JSR&FFF4:|
00000180  43 50 59 23 31 3a 42 4e  45 77 61 69 74 3a 4c 44  |CPY#1:BNEwait:LD|
00000190  58 23 31 3a 4a 53 52 26  46 46 46 34 3a 54 59 41  |X#1:JSR&FFF4:TYA|
000001a0  3a 4c 44 59 23 30 3a 43  4c 43 3a 41 44 43 26 37  |:LDY#0:CLC:ADC&7|
000001b0  30 3a 53 54 41 26 37 30  3a 42 43 43 6c 6f 6f 70  |0:STA&70:BCCloop|
000001c0  3a 49 4e 43 26 37 31 3a  42 4e 45 6c 6f 6f 70 3a  |:INC&71:BNEloop:|
000001d0  49 4e 43 26 37 32 3a 42  4e 45 6c 6f 6f 70 3a 49  |INC&72:BNEloop:I|
000001e0  4e 43 26 37 33 3a 4a 4d  50 6c 6f 6f 70 0d 00 32  |NC&73:JMPloop..2|
000001f0  08 20 5d 3a ed 0d 00 34  0e 20 40 25 3d 26 32 30  |. ]:...4. @%=&20|
00000200  33 30 41 0d 00 38 1a 20  56 3d 31 32 3a f4 20 53  |30A..8. V=12:. S|
00000210  55 50 50 4c 59 20 56 4f  4c 54 41 47 45 0d 00 39  |UPPLY VOLTAGE..9|
00000220  1d 20 52 3d 31 30 30 30  3a f4 20 53 45 52 49 45  |. R=1000:. SERIE|
00000230  53 20 52 45 53 49 53 54  4f 52 0d 00 3c 12 20 21  |S RESISTOR..<. !|
00000240  26 37 34 3d 72 65 61 64  69 6e 67 73 0d 00 46 0a  |&74=readings..F.|
00000250  20 d6 26 41 30 30 0d 00  50 1c 20 76 3d 21 26 37  | .&A00..P. v=!&7|
00000260  30 2f 72 65 61 64 69 6e  67 73 2f 32 35 36 2a 31  |0/readings/256*1|
00000270  2e 38 0d 00 5a 13 20 f1  20 41 24 3b 76 2a 52 2f  |.8..Z. . A$;v*R/|
00000280  28 56 2d 76 29 0d 00 64  0a 20 e5 8d 54 7c 40 0d  |(V-v)..d. ..T|@.|
00000290  ff                                                |.|
00000291