Home » Personal collection » Commodore disks » disk54b_sound_master_64.d64 » convert
convert
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 » disk54b_sound_master_64.d64 |
| Filename: | convert |
| Read OK: | ✔ |
| File size: | 03F2 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
5 B=0:AD=$4000:DIM LD(10),PD(64):BC=0
7 FORR=0TO64:READ PD(R):NEXT
9 FORR=0TO9:READ LD(R):NEXT
30 POKE54296,10:POKE54277,7:POKE54291,7
40 POKE54278,133:POKE54285,133:POKE54292,133
50 POKE54284,7:READV,P,L
51 IF L>3 THEN L=L AND 254
52 IF L=0 THEN 60
53 IF P<1136 THEN P=1136
55 FORR=0TO64:IFP=PD(R)THENPS=R
56 NEXT
57 FORR=0TO9:IFL=LD(R)THENLS=R
58 NEXT
59 PRINTAD
60 POKEAD+B,PS:POKEAD+5+INT(B/2),PEEK(AD+5+INT(B/2)) OR LS*(1+15*(B AND 1))
69 V=(V-1)*7:B=B+1:IF B=6 THEN B=5
70 POKE54273+V,INT(P/256)
80 POKE54272+V,P-INT(P/256)*256
90 POKE54276+V,17:IFV<>14THENPA=0:V1=L:GOTO50
95 IF V=14 THEN AD=AD+8:B=0:BC=BC+L:IF BC>23 THEN BC=0:POKEAD,$FE:AD=AD+8
100 POKE54276+V,16
105 PA=PA+L:IFPA=V1THENPOKE54276,16:POKE54283,16
110 GOTO50
111 DATA 1,1136,1204,1275,1351,1432,1517,1607,1703,1804,1911,2025,2145,2273
112 DATA 2408,2551,2703,2864,3034,3215,3406,3608,3823,4050,4291,4547,4817,5103
113 DATA 5407,5728,6069,6430,6812,7217,7647,8101,8583,9094,9634,10207,10814
114 DATA 11457,12139,12860,13625,14435,15294,16203,17167,18188,19269,20415
115 DATA 21629,22915,24278,25721,27251,28871,30588,32407,34334,36376,38539,1,1
117 DATA 1,1.5,2,3,4,6,8,12,16,24
' B�0:AD�$4000:� LD(10),PD(64):BC�0 = �R�0�64:� PD(R):� R �R�0�9:� LD(R):� r �54296,10:�54277,7:�54291,7 �( �54278,133:�54285,133:�54292,133 �2 �54284,7:�V,P,L �3 � L�3 � L�L � 254 �4 � L�0 � 60 �5 � P�1136 � P�1136 7 �R�0�64:�P�PD(R)�PS�R 8 � 9 �R�0�9:�L�LD(R)�LS�R % : � - ; �AD j < �AD�B,PS:�AD�5��(B�2),�(AD�5��(B�2)) � LS�(1�15�(B � 1)) � E V�(V�1)�7:B�B�1:� B�6 � B�5 � F �54273�V,�(P�256) � P �54272�V,P��(P�256)�256 � Z �54276�V,17:�V��14�PA�0:V1�L:�50 ! _ � V�14 � AD�AD�8:B�0:BC�BC�L:� BC�23 � BC�0:�AD,$FE:AD�AD�8 1 d �54276�V,16 X i PA�PA�L:�PA�V1��54276,16:�54283,16 ` n �50 � o � 1,1136,1204,1275,1351,1432,1517,1607,1703,1804,1911,2025,2145,2273 � p � 2408,2551,2703,2864,3034,3215,3406,3608,3823,4050,4291,4547,4817,5103 > q � 5407,5728,6069,6430,6812,7217,7647,8101,8583,9094,9634,10207,10814 � r � 11457,12139,12860,13625,14435,15294,16203,17167,18188,19269,20415 � s � 21629,22915,24278,25721,27251,28871,30588,32407,34334,36376,38539,1,1 � u � 1,1.5,2,3,4,6,8,12,16,24
'HE@b.0:ad.$4000:. ld(10),pd(64):bc.0@=HG@.r.0.64:. pd(r):.@rHI@.r.0.9:. ld(r):.@RH.@.54296,10:.54277,7:.54291,7@.H(@.54278,133:.54285,133:.54292,133@.H2@.54284,7:.v,p,l@.H3@. l.3 . l.l . 254@.H4@. l.0 . 60@.H5@. p.1136 . p.1136@@I7@.r.0.64:.p.pd(r).ps.r@FI8@.@.I9@.r.0.9:.l.ld(r).ls.r@%I:@.@-I;@.ad@JI<@.ad.b,ps:.ad.5..(b.2),.(ad.5..(b.2)) . ls.(1.15.(b . 1))@.Ie@v.(v.1).7:b.b.1:. b.6 . b.5@.If@.54273.v,.(p.256)@.Ip@.54272.v,p..(p.256).256@.Iz@.54276.v,17:.v..14.pa.0:v1.l:.50@!J.@. v.14 . ad.ad.8:b.0:bc.bc.l:. bc.23 . bc.0:.ad,$fe:ad.ad.8@1JD@.54276.v,16@xJI@pa.pa.l:.pa.v1..54276,16:.54283,16@.JN@.50@.JO@. 1,1136,1204,1275,1351,1432,1517,1607,1703,1804,1911,2025,2145,2273@.JP@. 2408,2551,2703,2864,3034,3215,3406,3608,3823,4050,4291,4547,4817,5103@>KQ@. 5407,5728,6069,6430,6812,7217,7647,8101,8583,9094,9634,10207,10814@.KR@. 11457,12139,12860,13625,14435,15294,16203,17167,18188,19269,20415@.KS@. 21629,22915,24278,25721,27251,28871,30588,32407,34334,36376,38539,1,1@.KU@. 1,1.5,2,3,4,6,8,12,16,24@@@
00000000 27 08 05 00 42 b2 30 3a 41 44 b2 24 34 30 30 30 |'...B.0:AD.$4000| 00000010 3a 86 20 4c 44 28 31 30 29 2c 50 44 28 36 34 29 |:. LD(10),PD(64)| 00000020 3a 42 43 b2 30 00 3d 08 07 00 81 52 b2 30 a4 36 |:BC.0.=....R.0.6| 00000030 34 3a 87 20 50 44 28 52 29 3a 82 00 52 08 09 00 |4:. PD(R):..R...| 00000040 81 52 b2 30 a4 39 3a 87 20 4c 44 28 52 29 3a 82 |.R.0.9:. LD(R):.| 00000050 00 72 08 1e 00 97 35 34 32 39 36 2c 31 30 3a 97 |.r....54296,10:.| 00000060 35 34 32 37 37 2c 37 3a 97 35 34 32 39 31 2c 37 |54277,7:.54291,7| 00000070 00 97 08 28 00 97 35 34 32 37 38 2c 31 33 33 3a |...(..54278,133:| 00000080 97 35 34 32 38 35 2c 31 33 33 3a 97 35 34 32 39 |.54285,133:.5429| 00000090 32 2c 31 33 33 00 ab 08 32 00 97 35 34 32 38 34 |2,133...2..54284| 000000a0 2c 37 3a 87 56 2c 50 2c 4c 00 c1 08 33 00 8b 20 |,7:.V,P,L...3.. | 000000b0 4c b1 33 20 a7 20 4c b2 4c 20 af 20 32 35 34 00 |L.3 . L.L . 254.| 000000c0 d0 08 34 00 8b 20 4c b2 30 20 a7 20 36 30 00 e6 |..4.. L.0 . 60..| 000000d0 08 35 00 8b 20 50 b3 31 31 33 36 20 a7 20 50 b2 |.5.. P.1136 . P.| 000000e0 31 31 33 36 00 00 09 37 00 81 52 b2 30 a4 36 34 |1136...7..R.0.64| 000000f0 3a 8b 50 b2 50 44 28 52 29 a7 50 53 b2 52 00 06 |:.P.PD(R).PS.R..| 00000100 09 38 00 82 00 1f 09 39 00 81 52 b2 30 a4 39 3a |.8.....9..R.0.9:| 00000110 8b 4c b2 4c 44 28 52 29 a7 4c 53 b2 52 00 25 09 |.L.LD(R).LS.R.%.| 00000120 3a 00 82 00 2d 09 3b 00 99 41 44 00 6a 09 3c 00 |:...-.;..AD.j.<.| 00000130 97 41 44 aa 42 2c 50 53 3a 97 41 44 aa 35 aa b5 |.AD.B,PS:.AD.5..| 00000140 28 42 ad 32 29 2c c2 28 41 44 aa 35 aa b5 28 42 |(B.2),.(AD.5..(B| 00000150 ad 32 29 29 20 b0 20 4c 53 ac 28 31 aa 31 35 ac |.2)) . LS.(1.15.| 00000160 28 42 20 af 20 31 29 29 00 8a 09 45 00 56 b2 28 |(B . 1))...E.V.(| 00000170 56 ab 31 29 ac 37 3a 42 b2 42 aa 31 3a 8b 20 42 |V.1).7:B.B.1:. B| 00000180 b2 36 20 a7 20 42 b2 35 00 a0 09 46 00 97 35 34 |.6 . B.5...F..54| 00000190 32 37 33 aa 56 2c b5 28 50 ad 32 35 36 29 00 bc |273.V,.(P.256)..| 000001a0 09 50 00 97 35 34 32 37 32 aa 56 2c 50 ab b5 28 |.P..54272.V,P..(| 000001b0 50 ad 32 35 36 29 ac 32 35 36 00 e1 09 5a 00 97 |P.256).256...Z..| 000001c0 35 34 32 37 36 aa 56 2c 31 37 3a 8b 56 b3 b1 31 |54276.V,17:.V..1| 000001d0 34 a7 50 41 b2 30 3a 56 31 b2 4c 3a 89 35 30 00 |4.PA.0:V1.L:.50.| 000001e0 21 0a 5f 00 8b 20 56 b2 31 34 20 a7 20 41 44 b2 |!._.. V.14 . AD.| 000001f0 41 44 aa 38 3a 42 b2 30 3a 42 43 b2 42 43 aa 4c |AD.8:B.0:BC.BC.L| 00000200 3a 8b 20 42 43 b1 32 33 20 a7 20 42 43 b2 30 3a |:. BC.23 . BC.0:| 00000210 97 41 44 2c 24 46 45 3a 41 44 b2 41 44 aa 38 00 |.AD,$FE:AD.AD.8.| 00000220 31 0a 64 00 97 35 34 32 37 36 aa 56 2c 31 36 00 |1.d..54276.V,16.| 00000230 58 0a 69 00 50 41 b2 50 41 aa 4c 3a 8b 50 41 b2 |X.i.PA.PA.L:.PA.| 00000240 56 31 a7 97 35 34 32 37 36 2c 31 36 3a 97 35 34 |V1..54276,16:.54| 00000250 32 38 33 2c 31 36 00 60 0a 6e 00 89 35 30 00 a9 |283,16.`.n..50..| 00000260 0a 6f 00 83 20 31 2c 31 31 33 36 2c 31 32 30 34 |.o.. 1,1136,1204| 00000270 2c 31 32 37 35 2c 31 33 35 31 2c 31 34 33 32 2c |,1275,1351,1432,| 00000280 31 35 31 37 2c 31 36 30 37 2c 31 37 30 33 2c 31 |1517,1607,1703,1| 00000290 38 30 34 2c 31 39 31 31 2c 32 30 32 35 2c 32 31 |804,1911,2025,21| 000002a0 34 35 2c 32 32 37 33 00 f5 0a 70 00 83 20 32 34 |45,2273...p.. 24| 000002b0 30 38 2c 32 35 35 31 2c 32 37 30 33 2c 32 38 36 |08,2551,2703,286| 000002c0 34 2c 33 30 33 34 2c 33 32 31 35 2c 33 34 30 36 |4,3034,3215,3406| 000002d0 2c 33 36 30 38 2c 33 38 32 33 2c 34 30 35 30 2c |,3608,3823,4050,| 000002e0 34 32 39 31 2c 34 35 34 37 2c 34 38 31 37 2c 35 |4291,4547,4817,5| 000002f0 31 30 33 00 3e 0b 71 00 83 20 35 34 30 37 2c 35 |103.>.q.. 5407,5| 00000300 37 32 38 2c 36 30 36 39 2c 36 34 33 30 2c 36 38 |728,6069,6430,68| 00000310 31 32 2c 37 32 31 37 2c 37 36 34 37 2c 38 31 30 |12,7217,7647,810| 00000320 31 2c 38 35 38 33 2c 39 30 39 34 2c 39 36 33 34 |1,8583,9094,9634| 00000330 2c 31 30 32 30 37 2c 31 30 38 31 34 00 86 0b 72 |,10207,10814...r| 00000340 00 83 20 31 31 34 35 37 2c 31 32 31 33 39 2c 31 |.. 11457,12139,1| 00000350 32 38 36 30 2c 31 33 36 32 35 2c 31 34 34 33 35 |2860,13625,14435| 00000360 2c 31 35 32 39 34 2c 31 36 32 30 33 2c 31 37 31 |,15294,16203,171| 00000370 36 37 2c 31 38 31 38 38 2c 31 39 32 36 39 2c 32 |67,18188,19269,2| 00000380 30 34 31 35 00 d2 0b 73 00 83 20 32 31 36 32 39 |0415...s.. 21629| 00000390 2c 32 32 39 31 35 2c 32 34 32 37 38 2c 32 35 37 |,22915,24278,257| 000003a0 32 31 2c 32 37 32 35 31 2c 32 38 38 37 31 2c 33 |21,27251,28871,3| 000003b0 30 35 38 38 2c 33 32 34 30 37 2c 33 34 33 33 34 |0588,32407,34334| 000003c0 2c 33 36 33 37 36 2c 33 38 35 33 39 2c 31 2c 31 |,36376,38539,1,1| 000003d0 00 f1 0b 75 00 83 20 31 2c 31 2e 35 2c 32 2c 33 |...u.. 1,1.5,2,3| 000003e0 2c 34 2c 36 2c 38 2c 31 32 2c 31 36 2c 32 34 00 |,4,6,8,12,16,24.| 000003f0 00 00 |..| 000003f2
.