Home » Personal collection » Acorn ADFS disks » Electron » Electrolysis.ADF » RESISTANCE
RESISTANCE
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron » Electrolysis.ADF |
| Filename: | RESISTANCE |
| Read OK: | ✔ |
| File size: | 0170 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Electrolysis.ADF » RESISTANCE
- Personal collection » Acorn hard disk » zipped_disks » elk06 » electrolys/RESISTANCE
File contents
1 REM RESISTANCE GIVE VALUE OF POWER SUPPLY VOLTAGE (V/Volts) AND SERIES RESISTOR (R/Ohms)
3 PROCsetup
5 CLS
10 PRINT TAB(5,12) FNcalc
20 GOTO10
1000 PROCsetup
1010 A=0:B%=0
1015 B%=B%+1
1018 A=A+(FNcalc-A)/B%
1020 IF B% MOD100=0 THEN PRINT B%,A:GOTO1010
1030 GOTO 1015
1040 DEF FNcalc
1050 adv=ADVAL(CH):v=adv/65536*1.8
1060 =v*R/(V-v)
2000 DEFPROCsetup
2010 R=1000:V=12
2020 CH=1:REM ADVAL CHANNEL
2030 @%=&2020A
2040 ENDPROC
[ � RESISTANCE GIVE VALUE OF POWER SUPPLY VOLTAGE (V/Volts) AND SERIES RESISTOR (R/Ohms) �setup � � �5,12) �calc �TJ@ � �setup � A=0:B%=0 � B%=B%+1 � A=A+(�calc-A)/B% � � B% �100=0 � � B%,A:�drC � �dwC � �calc adv=�(CH):v=adv/65536*1.8 $ =v*R/(V-v) � ��setup � R=1000:V=12 � CH=1:� ADVAL CHANNEL � @%=&2020A � � �
00000000 0d 00 01 5b 20 f4 20 52 45 53 49 53 54 41 4e 43 |...[ . RESISTANC| 00000010 45 20 47 49 56 45 20 56 41 4c 55 45 20 4f 46 20 |E GIVE VALUE OF | 00000020 50 4f 57 45 52 20 53 55 50 50 4c 59 20 56 4f 4c |POWER SUPPLY VOL| 00000030 54 41 47 45 20 28 56 2f 56 6f 6c 74 73 29 20 41 |TAGE (V/Volts) A| 00000040 4e 44 20 53 45 52 49 45 53 20 52 45 53 49 53 54 |ND SERIES RESIST| 00000050 4f 52 20 28 52 2f 4f 68 6d 73 29 0d 00 03 0b 20 |OR (R/Ohms).... | 00000060 f2 73 65 74 75 70 0d 00 05 06 20 db 0d 00 0a 13 |.setup.... .....| 00000070 20 f1 20 8a 35 2c 31 32 29 20 a4 63 61 6c 63 0d | . .5,12) .calc.| 00000080 00 14 0a 20 e5 8d 54 4a 40 0d 03 e8 0b 20 f2 73 |... ..TJ@.... .s| 00000090 65 74 75 70 0d 03 f2 0d 20 41 3d 30 3a 42 25 3d |etup.... A=0:B%=| 000000a0 30 0d 03 f7 0c 20 42 25 3d 42 25 2b 31 0d 03 fa |0.... B%=B%+1...| 000000b0 15 20 41 3d 41 2b 28 a4 63 61 6c 63 2d 41 29 2f |. A=A+(.calc-A)/| 000000c0 42 25 0d 03 fc 1f 20 e7 20 42 25 20 83 31 30 30 |B%.... . B% .100| 000000d0 3d 30 20 8c 20 f1 20 42 25 2c 41 3a e5 8d 64 72 |=0 . . B%,A:..dr| 000000e0 43 0d 04 06 0b 20 e5 20 8d 64 77 43 0d 04 10 0c |C.... . .dwC....| 000000f0 20 dd 20 a4 63 61 6c 63 0d 04 1a 1e 20 61 64 76 | . .calc.... adv| 00000100 3d 96 28 43 48 29 3a 76 3d 61 64 76 2f 36 35 35 |=.(CH):v=adv/655| 00000110 33 36 2a 31 2e 38 0d 04 24 0f 20 3d 76 2a 52 2f |36*1.8..$. =v*R/| 00000120 28 56 2d 76 29 0d 07 d0 0c 20 dd f2 73 65 74 75 |(V-v).... ..setu| 00000130 70 0d 07 da 10 20 52 3d 31 30 30 30 3a 56 3d 31 |p.... R=1000:V=1| 00000140 32 0d 07 e4 19 20 43 48 3d 31 3a f4 20 41 44 56 |2.... CH=1:. ADV| 00000150 41 4c 20 43 48 41 4e 4e 45 4c 0d 07 ee 0e 20 40 |AL CHANNEL.... @| 00000160 25 3d 26 32 30 32 30 41 0d 07 f8 06 20 e1 0d ff |%=&2020A.... ...| 00000170
.