Home » Personal collection » Commodore disks » disk42a_unlabelled.d64 » freqdecode
freqdecode
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 » disk42a_unlabelled.d64 |
| Filename: | freqdecode |
| Read OK: | ✔ |
| File size: | 020E bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
1 REM MUSIC STAR FREQUENCY DECODER
2 REM (SEE LOADSTAR 131)
5 PRINT"<clr>"
10 GOSUB 1000
20 A=(PEEK($C00E)+PEEK($C051)+PEEK($C0CD))+256*(PEEK($C011)+PEEK($C054)+PEEK($C0D0))
30 B=(PEEK($C00F)+PEEK($C052)+PEEK($C0CE))+256*(PEEK($C012)+PEEK($C055)+PEEK($C0D1))
40 C=(PEEK($C010)+PEEK($C053)+PEEK($C0CF))+256*(PEEK($C013)+PEEK($C056)+PEEK($C0D2))
42 IF A>65535 THEN A=A-65536
44 IF B>65535 THEN B=B-65536
46 IF C>65535 THEN C=C-65536
50 PRINT"<home>1.";A;"<cursor left> ";PEEK($C01A);"<cursor left> "
60 PRINT"2.";B;"<cursor left> ";PEEK($C01B);"<cursor left> "
70 PRINT"3.";C;"<cursor left> ";PEEK($C01C);"<cursor left> "
100 GOTO 20
1000 SYS49615:POKE781,0:POKE782,97:SYS49664:POKE49152,7:MU=1:RETURN
2000 PRINT"<cursor left> "
$ � MUSIC STAR FREQUENCY DECODER = � (SEE LOADSTAR 131) F �"�" Q � 1000 � A�(�($C00E)��($C051)��($C0CD))�256�(�($C011)��($C054)��($C0D0)) � B�(�($C00F)��($C052)��($C0CE))�256�(�($C012)��($C055)��($C0D1)) ( C�(�($C010)��($C053)��($C0CF))�256�(�($C013)��($C056)��($C0D2)) 7 * � A�65535 � A�A�65536 Q , � B�65535 � B�B�65536 k . � C�65535 � C�C�65536 � 2 �"1.";A;"� ";�($C01A);"� " � < �"2.";B;"� ";�($C01B);"� " � F �"3.";C;"� ";�($C01C);"� " � d � 20 ��49615:�781,0:�782,97:�49664:�49152,7:MU�1:� ��"� "
$HA@. music star frequency decoder@=HB@. (see loadstar 131)@fHE@."."@qHJ@. 1000@.HT@a.(.($c00e)..($c051)..($c0cd)).256.(.($c011)..($c054)..($c0d0))@.H.@b.(.($c00f)..($c052)..($c0ce)).256.(.($c012)..($c055)..($c0d1))@]I(@c.(.($c010)..($c053)..($c0cf)).256.(.($c013)..($c056)..($c0d2))@7I*@. a.65535 . a.a.65536@qI,@. b.65535 . b.b.65536@KI.@. c.65535 . c.c.65536@.I2@."S1.";a;". ";.($c01a);". "@.I<@."2.";b;". ";.($c01b);". "@.If@."3.";c;". ";.($c01c);". "@.ID@. 20@CJ.C.49615:.781,0:.782,97:.49664:.49152,7:mu.1:.@MJ.G.". "@@@
00000000 24 08 01 00 8f 20 4d 55 53 49 43 20 53 54 41 52 |$.... MUSIC STAR| 00000010 20 46 52 45 51 55 45 4e 43 59 20 44 45 43 4f 44 | FREQUENCY DECOD| 00000020 45 52 00 3d 08 02 00 8f 20 28 53 45 45 20 4c 4f |ER.=.... (SEE LO| 00000030 41 44 53 54 41 52 20 31 33 31 29 00 46 08 05 00 |ADSTAR 131).F...| 00000040 99 22 93 22 00 51 08 0a 00 8d 20 31 30 30 30 00 |.".".Q.... 1000.| 00000050 95 08 14 00 41 b2 28 c2 28 24 43 30 30 45 29 aa |....A.(.($C00E).| 00000060 c2 28 24 43 30 35 31 29 aa c2 28 24 43 30 43 44 |.($C051)..($C0CD| 00000070 29 29 aa 32 35 36 ac 28 c2 28 24 43 30 31 31 29 |)).256.(.($C011)| 00000080 aa c2 28 24 43 30 35 34 29 aa c2 28 24 43 30 44 |..($C054)..($C0D| 00000090 30 29 29 00 d9 08 1e 00 42 b2 28 c2 28 24 43 30 |0)).....B.(.($C0| 000000a0 30 46 29 aa c2 28 24 43 30 35 32 29 aa c2 28 24 |0F)..($C052)..($| 000000b0 43 30 43 45 29 29 aa 32 35 36 ac 28 c2 28 24 43 |C0CE)).256.(.($C| 000000c0 30 31 32 29 aa c2 28 24 43 30 35 35 29 aa c2 28 |012)..($C055)..(| 000000d0 24 43 30 44 31 29 29 00 1d 09 28 00 43 b2 28 c2 |$C0D1))...(.C.(.| 000000e0 28 24 43 30 31 30 29 aa c2 28 24 43 30 35 33 29 |($C010)..($C053)| 000000f0 aa c2 28 24 43 30 43 46 29 29 aa 32 35 36 ac 28 |..($C0CF)).256.(| 00000100 c2 28 24 43 30 31 33 29 aa c2 28 24 43 30 35 36 |.($C013)..($C056| 00000110 29 aa c2 28 24 43 30 44 32 29 29 00 37 09 2a 00 |)..($C0D2)).7.*.| 00000120 8b 20 41 b1 36 35 35 33 35 20 a7 20 41 b2 41 ab |. A.65535 . A.A.| 00000130 36 35 35 33 36 00 51 09 2c 00 8b 20 42 b1 36 35 |65536.Q.,.. B.65| 00000140 35 33 35 20 a7 20 42 b2 42 ab 36 35 35 33 36 00 |535 . B.B.65536.| 00000150 6b 09 2e 00 8b 20 43 b1 36 35 35 33 35 20 a7 20 |k.... C.65535 . | 00000160 43 b2 43 ab 36 35 35 33 36 00 8b 09 32 00 99 22 |C.C.65536...2.."| 00000170 13 31 2e 22 3b 41 3b 22 9d 20 22 3b c2 28 24 43 |.1.";A;". ";.($C| 00000180 30 31 41 29 3b 22 9d 20 22 00 aa 09 3c 00 99 22 |01A);". "...<.."| 00000190 32 2e 22 3b 42 3b 22 9d 20 22 3b c2 28 24 43 30 |2.";B;". ";.($C0| 000001a0 31 42 29 3b 22 9d 20 22 00 c9 09 46 00 99 22 33 |1B);". "...F.."3| 000001b0 2e 22 3b 43 3b 22 9d 20 22 3b c2 28 24 43 30 31 |.";C;". ";.($C01| 000001c0 43 29 3b 22 9d 20 22 00 d2 09 64 00 89 20 32 30 |C);". "...d.. 20| 000001d0 00 03 0a e8 03 9e 34 39 36 31 35 3a 97 37 38 31 |......49615:.781| 000001e0 2c 30 3a 97 37 38 32 2c 39 37 3a 9e 34 39 36 36 |,0:.782,97:.4966| 000001f0 34 3a 97 34 39 31 35 32 2c 37 3a 4d 55 b2 31 3a |4:.49152,7:MU.1:| 00000200 8e 00 0d 0a d0 07 99 22 9d 20 22 00 00 00 |.......". "...| 0000020e
.