Home » Personal collection » Acorn ADFS disks » Electron » Electrolysis.ADF » ANAfreq
ANAfreq
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: | ANAfreq |
| Read OK: | ✔ |
| File size: | 012B 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 » ANAfreq
- Personal collection » Acorn hard disk » zipped_disks » elk06 » electrolys/ANAfreq
File contents
5 start=&3400:end=&3FFF 10 AV=0:FOR A%=start TO end:AV=AV+(?A%-AV)/(A%-start+1):NEXT 20 CYCLES=0:IF ?start>=AV THEN LEVEL%=1 ELSE LEVEL%=0 30 FOR A%=start TO end:IF LEVEL%=0 AND ?A%>=AV THEN LEVEL%=1:CYCLES=CYCLES+0.5:NEXT:GOTO50 40 IF LEVEL%=1 AND ?A%<AV THEN LEVEL%=0:CYCLES=CYCLES+0.5 50 NEXT 60 PRINT CYCLES/(end-start)*100
start=&3400:end=&3FFF 8 AV=0:� A%=start � end:AV=AV+(?A%-AV)/(A%-start+1):� 0 CYCLES=0:� ?start>=AV � LEVEL%=1 � LEVEL%=0 O � A%=start � end:� LEVEL%=0 � ?A%>=AV � LEVEL%=1:CYCLES=CYCLES+0.5:�:�Tr@ (5 � LEVEL%=1 � ?A%<AV � LEVEL%=0:CYCLES=CYCLES+0.5 2 � < � CYCLES/(end-start)*100 �
00000000 0d 00 05 1a 20 73 74 61 72 74 3d 26 33 34 30 30 |.... start=&3400| 00000010 3a 65 6e 64 3d 26 33 46 46 46 0d 00 0a 38 20 41 |:end=&3FFF...8 A| 00000020 56 3d 30 3a e3 20 41 25 3d 73 74 61 72 74 20 b8 |V=0:. A%=start .| 00000030 20 65 6e 64 3a 41 56 3d 41 56 2b 28 3f 41 25 2d | end:AV=AV+(?A%-| 00000040 41 56 29 2f 28 41 25 2d 73 74 61 72 74 2b 31 29 |AV)/(A%-start+1)| 00000050 3a ed 0d 00 14 30 20 43 59 43 4c 45 53 3d 30 3a |:....0 CYCLES=0:| 00000060 e7 20 3f 73 74 61 72 74 3e 3d 41 56 20 8c 20 4c |. ?start>=AV . L| 00000070 45 56 45 4c 25 3d 31 20 8b 20 4c 45 56 45 4c 25 |EVEL%=1 . LEVEL%| 00000080 3d 30 0d 00 1e 4f 20 e3 20 41 25 3d 73 74 61 72 |=0...O . A%=star| 00000090 74 20 b8 20 65 6e 64 3a e7 20 4c 45 56 45 4c 25 |t . end:. LEVEL%| 000000a0 3d 30 20 80 20 3f 41 25 3e 3d 41 56 20 8c 20 4c |=0 . ?A%>=AV . L| 000000b0 45 56 45 4c 25 3d 31 3a 43 59 43 4c 45 53 3d 43 |EVEL%=1:CYCLES=C| 000000c0 59 43 4c 45 53 2b 30 2e 35 3a ed 3a e5 8d 54 72 |YCLES+0.5:.:..Tr| 000000d0 40 0d 00 28 35 20 e7 20 4c 45 56 45 4c 25 3d 31 |@..(5 . LEVEL%=1| 000000e0 20 80 20 3f 41 25 3c 41 56 20 8c 20 4c 45 56 45 | . ?A%<AV . LEVE| 000000f0 4c 25 3d 30 3a 43 59 43 4c 45 53 3d 43 59 43 4c |L%=0:CYCLES=CYCL| 00000100 45 53 2b 30 2e 35 0d 00 32 06 20 ed 0d 00 3c 1d |ES+0.5..2. ...<.| 00000110 20 f1 20 43 59 43 4c 45 53 2f 28 65 6e 64 2d 73 | . CYCLES/(end-s| 00000120 74 61 72 74 29 2a 31 30 30 0d ff |tart)*100..| 0000012b
.