Home » Personal collection » Commodore disks » disk42b_unlabelled.d64 » frequency
frequency
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 » Commodore disks » disk42b_unlabelled.d64 |
| Filename: | frequency |
| Read OK: | ✔ |
| File size: | 0126 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
30 :
40 FOR BY=$1900 TO $9000
50 FOR B=7 TO 0 STEP -1
60 Y=PEEK(BY):ZC=ZC+1:TT=TT+1
65 IF (Y AND 2^B) AND ZC>32 THEN GOSUB 1000
70 IF (Y AND 2^B) AND ZC>2 THEN DN=DN+1:ZC=0:BT=TT
90 NEXT B,BY
110 END
120 :
1000 IF DN<50 THEN 2000
1010 F=(5058/(BT/(DN*1.2))-470)/0.05961
1020 GOSUB 3000
2000 DN=0:BT=0:TT=0:RETURN
2990 :
3000 PRINT BT,DN,F
3020 RETURN
: ( � BY�$1900 � $9000 12 � B�7 � 0 � �1 M< Y��(BY):ZC�ZC�1:TT�TT�1 nA � (Y � 2�B) � ZC�32 � � 1000 �F � (Y � 2�B) � ZC�2 � DN�DN�1:ZC�0:BT�TT �Z � B,BY �n � �x : ��� DN�50 � 2000 ��F�(5058�(BT�(DN�1.2))�470)�0.05961 ��� 3000 �DN�0:BT�0:TT�0:� � : � � BT,DN,F % � �
GH.@:@.H(@. by.$1900 . $9000@1H2@. b.7 . 0 . .1@mH<@y..(by):zc.zc.1:tt.tt.1@NHa@. (y . 2.b) . zc.32 . . 1000@.Hf@. (y . 2.b) . zc.2 . dn.dn.1:zc.0:bt.tt@.Hz@. b,by@.HN@.@.HX@:@.H.C. dn.50 . 2000@.H.Cf.(5058.(bt.(dn.1.2)).470).0.05961@.H.C. 3000@KI.Gdn.0:bt.0:tt.0:.@QI.K:@.I.K. bt,dn,f@%I.K.@@@
00000000 07 08 1e 00 3a 00 1e 08 28 00 81 20 42 59 b2 24 |....:...(.. BY.$| 00000010 31 39 30 30 20 a4 20 24 39 30 30 30 00 31 08 32 |1900 . $9000.1.2| 00000020 00 81 20 42 b2 37 20 a4 20 30 20 a9 20 ab 31 00 |.. B.7 . 0 . .1.| 00000030 4d 08 3c 00 59 b2 c2 28 42 59 29 3a 5a 43 b2 5a |M.<.Y..(BY):ZC.Z| 00000040 43 aa 31 3a 54 54 b2 54 54 aa 31 00 6e 08 41 00 |C.1:TT.TT.1.n.A.| 00000050 8b 20 28 59 20 af 20 32 ae 42 29 20 af 20 5a 43 |. (Y . 2.B) . ZC| 00000060 b1 33 32 20 a7 20 8d 20 31 30 30 30 00 9a 08 46 |.32 . . 1000...F| 00000070 00 8b 20 28 59 20 af 20 32 ae 42 29 20 af 20 5a |.. (Y . 2.B) . Z| 00000080 43 b1 32 20 a7 20 44 4e b2 44 4e aa 31 3a 5a 43 |C.2 . DN.DN.1:ZC| 00000090 b2 30 3a 42 54 b2 54 54 00 a5 08 5a 00 82 20 42 |.0:BT.TT...Z.. B| 000000a0 2c 42 59 00 ab 08 6e 00 80 00 b1 08 78 00 3a 00 |,BY...n.....x.:.| 000000b0 c4 08 e8 03 8b 20 44 4e b3 35 30 20 a7 20 32 30 |..... DN.50 . 20| 000000c0 30 30 00 eb 08 f2 03 46 b2 28 35 30 35 38 ad 28 |00.....F.(5058.(| 000000d0 42 54 ad 28 44 4e ac 31 2e 32 29 29 ab 34 37 30 |BT.(DN.1.2)).470| 000000e0 29 ad 30 2e 30 35 39 36 31 00 f6 08 fc 03 8d 20 |).0.05961...... | 000000f0 33 30 30 30 00 0b 09 d0 07 44 4e b2 30 3a 42 54 |3000.....DN.0:BT| 00000100 b2 30 3a 54 54 b2 30 3a 8e 00 11 09 ae 0b 3a 00 |.0:TT.0:......:.| 00000110 1f 09 b8 0b 99 20 42 54 2c 44 4e 2c 46 00 25 09 |..... BT,DN,F.%.| 00000120 cc 0b 8e 00 00 00 |......| 00000126
.