frequency2

Home » Personal collection » Commodore disks » disk42b_unlabelled.d64 » frequency2

frequency2

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:	frequency2
Read OK:	✔
File size:	03D0 bytes
Load address:	0801
Exec address:	0000

File contents

    10 REM    LISTENS TO SPECTRUM MUSIC
    20 REM      + DECODES FREQUENCIES
    30 :
    35 AD=$1900
    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 IF BT<330 THEN L=0:GOTO 3030
  3010 IF BT<660 THEN L=2:GOTO 3030
  3020 L=4:REM CROTCHET
  3030 PRINT L,F;
  3040 FC=1:RESTORE
  3050 READ FX:IF FX>F THEN 3070
  3060 FC=FC+1:GOTO 3050
  3070 POKE AD,FC:POKE AD+1,0:POKE AD+2,0
  3080 POKE AD+3,0:POKE AD+4,0
  3090 POKE AD+5,L
  3100 POKE AD+6,0:POKE AD+7,0
  3110 PRINT"🭿"
  3500 AD=AD+8:RETURN
  5000 DATA 1136,1204,1275,1351,1432,1517,1607,1703,1804,1911,2025,2145,2273
  5110 DATA 2408,2551,2703,2864,3034,3215,3406,3608,3823,4050,4291,4547,4817,5103
  5120 DATA 5407,5728,6069,6430,6812,7217,7647,8101,8583,9094,9634,10207,10814
  5130 DATA 11457,12139,12860,13625,14435,15294,16203,17167,18188,19269,20415
  5140 DATA 21629,22915,24278,25721,27251,28871,30588,32407,34334,36376,38539
  5150 DATA 99999

$
�    LISTENS TO SPECTRUM MUSICE�      + DECODES FREQUENCIESK:X#AD�$1900o(� BY�$1900 � $9000�2� B�7 � 0 � �1�<Y��(BY):ZC�ZC�1:TT�TT�1�A� (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.05961G	�� 3000\	�DN�0:BT�0:TT�0:�b	�:|	�� BT�330 � L�0:� 3030�	�� BT�660 � L�2:� 3030�	�L�4:� CROTCHET�	�� L,F;�	�FC�1:��	�� FX:� FX�F � 3070�	�FC�FC�1:� 3050
�� AD,FC:� AD�1,0:� AD�2,0
� AD�3,0:� AD�4,0*
� AD�5,L@
� AD�6,0:� AD�7,0I
&�"�"W
�
AD�AD�8:��
�� 1136,1204,1275,1351,1432,1517,1607,1703,1804,1911,2025,2145,2273�
�� 2408,2551,2703,2864,3034,3215,3406,3608,3823,4050,4291,4547,4817,51033� 5407,5728,6069,6430,6812,7217,7647,8101,8583,9094,9634,10207,10814{
� 11457,12139,12860,13625,14435,15294,16203,17167,18188,19269,20415�� 21629,22915,24278,25721,27251,28871,30588,32407,34334,36376,38539�� 99999

$HJ@.    listens to spectrum music@eHT@.      + decodes frequencies@kH.@:@xH#@ad.$1900@OH(@. by.$1900 . $9000@.H2@. b.7 . 0 . .1@.H<@y..(by):zc.zc.1:tt.tt.1@.Ha@. (y . 2.b) . zc.32 . . 1000@.Hf@. (y . 2.b) . zc.2 . dn.dn.1:zc.0:bt.tt@.Hz@. b,by@.HN@.@BIX@:@UI.C. dn.50 . 2000@<I.Cf.(5058.(bt.(dn.1.2)).470).0.05961@gI.C. 3000@£I.Gdn.0:bt.0:tt.0:.@BI.K:@.I.K. bt.330 . l.0:. 3030@.I.K. bt.660 . l.2:. 3030@.I.Kl.4:. crotchet@.I.K. l,f;@.I.Kfc.1:.@.I.K. fx:. fx.f . 3070@.I.Kfc.fc.1:. 3050@GJ.K. ad,fc:. ad.1,0:. ad.2,0@]JHL. ad.3,0:. ad.4,0@*JRL. ad.5,l@@J£L. ad.6,0:. ad.7,0@iJ&L."."@wJ.Mad.ad.8:.@.J.S. 1136,1204,1275,1351,1432,1517,1607,1703,1804,1911,2025,2145,2273@.J.S. 2408,2551,2703,2864,3034,3215,3406,3608,3823,4050,4291,4547,4817,5103@3K@T. 5407,5728,6069,6430,6812,7217,7647,8101,8583,9094,9634,10207,10814@.KJT. 11457,12139,12860,13625,14435,15294,16203,17167,18188,19269,20415@.KTT. 21629,22915,24278,25721,27251,28871,30588,32407,34334,36376,38539@.K.T. 99999@@@

00000000  24 08 0a 00 8f 20 20 20  20 4c 49 53 54 45 4e 53  |$....    LISTENS|
00000010  20 54 4f 20 53 50 45 43  54 52 55 4d 20 4d 55 53  | TO SPECTRUM MUS|
00000020  49 43 00 45 08 14 00 8f  20 20 20 20 20 20 2b 20  |IC.E....      + |
00000030  44 45 43 4f 44 45 53 20  46 52 45 51 55 45 4e 43  |DECODES FREQUENC|
00000040  49 45 53 00 4b 08 1e 00  3a 00 58 08 23 00 41 44  |IES.K...:.X.#.AD|
00000050  b2 24 31 39 30 30 00 6f  08 28 00 81 20 42 59 b2  |.$1900.o.(.. BY.|
00000060  24 31 39 30 30 20 a4 20  24 39 30 30 30 00 82 08  |$1900 . $9000...|
00000070  32 00 81 20 42 b2 37 20  a4 20 30 20 a9 20 ab 31  |2.. B.7 . 0 . .1|
00000080  00 9e 08 3c 00 59 b2 c2  28 42 59 29 3a 5a 43 b2  |...<.Y..(BY):ZC.|
00000090  5a 43 aa 31 3a 54 54 b2  54 54 aa 31 00 bf 08 41  |ZC.1:TT.TT.1...A|
000000a0  00 8b 20 28 59 20 af 20  32 ae 42 29 20 af 20 5a  |.. (Y . 2.B) . Z|
000000b0  43 b1 33 32 20 a7 20 8d  20 31 30 30 30 00 eb 08  |C.32 . . 1000...|
000000c0  46 00 8b 20 28 59 20 af  20 32 ae 42 29 20 af 20  |F.. (Y . 2.B) . |
000000d0  5a 43 b1 32 20 a7 20 44  4e b2 44 4e aa 31 3a 5a  |ZC.2 . DN.DN.1:Z|
000000e0  43 b2 30 3a 42 54 b2 54  54 00 f6 08 5a 00 82 20  |C.0:BT.TT...Z.. |
000000f0  42 2c 42 59 00 fc 08 6e  00 80 00 02 09 78 00 3a  |B,BY...n.....x.:|
00000100  00 15 09 e8 03 8b 20 44  4e b3 35 30 20 a7 20 32  |...... DN.50 . 2|
00000110  30 30 30 00 3c 09 f2 03  46 b2 28 35 30 35 38 ad  |000.<...F.(5058.|
00000120  28 42 54 ad 28 44 4e ac  31 2e 32 29 29 ab 34 37  |(BT.(DN.1.2)).47|
00000130  30 29 ad 30 2e 30 35 39  36 31 00 47 09 fc 03 8d  |0).0.05961.G....|
00000140  20 33 30 30 30 00 5c 09  d0 07 44 4e b2 30 3a 42  | 3000.\...DN.0:B|
00000150  54 b2 30 3a 54 54 b2 30  3a 8e 00 62 09 ae 0b 3a  |T.0:TT.0:..b...:|
00000160  00 7c 09 b8 0b 8b 20 42  54 b3 33 33 30 20 a7 20  |.|.... BT.330 . |
00000170  4c b2 30 3a 89 20 33 30  33 30 00 96 09 c2 0b 8b  |L.0:. 3030......|
00000180  20 42 54 b3 36 36 30 20  a7 20 4c b2 32 3a 89 20  | BT.660 . L.2:. |
00000190  33 30 33 30 00 a9 09 cc  0b 4c b2 34 3a 8f 20 43  |3030.....L.4:. C|
000001a0  52 4f 54 43 48 45 54 00  b4 09 d6 0b 99 20 4c 2c  |ROTCHET...... L,|
000001b0  46 3b 00 bf 09 e0 0b 46  43 b2 31 3a 8c 00 d6 09  |F;.....FC.1:....|
000001c0  ea 0b 87 20 46 58 3a 8b  20 46 58 b1 46 20 a7 20  |... FX:. FX.F . |
000001d0  33 30 37 30 00 e9 09 f4  0b 46 43 b2 46 43 aa 31  |3070.....FC.FC.1|
000001e0  3a 89 20 33 30 35 30 00  07 0a fe 0b 97 20 41 44  |:. 3050...... AD|
000001f0  2c 46 43 3a 97 20 41 44  aa 31 2c 30 3a 97 20 41  |,FC:. AD.1,0:. A|
00000200  44 aa 32 2c 30 00 1d 0a  08 0c 97 20 41 44 aa 33  |D.2,0...... AD.3|
00000210  2c 30 3a 97 20 41 44 aa  34 2c 30 00 2a 0a 12 0c  |,0:. AD.4,0.*...|
00000220  97 20 41 44 aa 35 2c 4c  00 40 0a 1c 0c 97 20 41  |. AD.5,L.@.... A|
00000230  44 aa 36 2c 30 3a 97 20  41 44 aa 37 2c 30 00 49  |D.6,0:. AD.7,0.I|
00000240  0a 26 0c 99 22 ba 22 00  57 0a ac 0d 41 44 b2 41  |.&..".".W...AD.A|
00000250  44 aa 38 3a 8e 00 9e 0a  88 13 83 20 31 31 33 36  |D.8:....... 1136|
00000260  2c 31 32 30 34 2c 31 32  37 35 2c 31 33 35 31 2c  |,1204,1275,1351,|
00000270  31 34 33 32 2c 31 35 31  37 2c 31 36 30 37 2c 31  |1432,1517,1607,1|
00000280  37 30 33 2c 31 38 30 34  2c 31 39 31 31 2c 32 30  |703,1804,1911,20|
00000290  32 35 2c 32 31 34 35 2c  32 32 37 33 00 ea 0a f6  |25,2145,2273....|
000002a0  13 83 20 32 34 30 38 2c  32 35 35 31 2c 32 37 30  |.. 2408,2551,270|
000002b0  33 2c 32 38 36 34 2c 33  30 33 34 2c 33 32 31 35  |3,2864,3034,3215|
000002c0  2c 33 34 30 36 2c 33 36  30 38 2c 33 38 32 33 2c  |,3406,3608,3823,|
000002d0  34 30 35 30 2c 34 32 39  31 2c 34 35 34 37 2c 34  |4050,4291,4547,4|
000002e0  38 31 37 2c 35 31 30 33  00 33 0b 00 14 83 20 35  |817,5103.3.... 5|
000002f0  34 30 37 2c 35 37 32 38  2c 36 30 36 39 2c 36 34  |407,5728,6069,64|
00000300  33 30 2c 36 38 31 32 2c  37 32 31 37 2c 37 36 34  |30,6812,7217,764|
00000310  37 2c 38 31 30 31 2c 38  35 38 33 2c 39 30 39 34  |7,8101,8583,9094|
00000320  2c 39 36 33 34 2c 31 30  32 30 37 2c 31 30 38 31  |,9634,10207,1081|
00000330  34 00 7b 0b 0a 14 83 20  31 31 34 35 37 2c 31 32  |4.{.... 11457,12|
00000340  31 33 39 2c 31 32 38 36  30 2c 31 33 36 32 35 2c  |139,12860,13625,|
00000350  31 34 34 33 35 2c 31 35  32 39 34 2c 31 36 32 30  |14435,15294,1620|
00000360  33 2c 31 37 31 36 37 2c  31 38 31 38 38 2c 31 39  |3,17167,18188,19|
00000370  32 36 39 2c 32 30 34 31  35 00 c3 0b 14 14 83 20  |269,20415...... |
00000380  32 31 36 32 39 2c 32 32  39 31 35 2c 32 34 32 37  |21629,22915,2427|
00000390  38 2c 32 35 37 32 31 2c  32 37 32 35 31 2c 32 38  |8,25721,27251,28|
000003a0  38 37 31 2c 33 30 35 38  38 2c 33 32 34 30 37 2c  |871,30588,32407,|
000003b0  33 34 33 33 34 2c 33 36  33 37 36 2c 33 38 35 33  |34334,36376,3853|
000003c0  39 00 cf 0b 1e 14 83 20  39 39 39 39 39 00 00 00  |9...... 99999...|
000003d0

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .