Home » Personal collection » Acorn hard disk » files » jukebox » !JukeBox/!RunImage
!JukeBox/!RunImage
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 hard disk » files » jukebox |
| Filename: | !JukeBox/!RunImage |
| Read OK: | ✔ |
| File size: | 0545 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10ON ERROR REPORT:PRINT " @ ";ERL:END
20*DIR <Obey$Dir>.SONGS
30DIM SPACE &100000
40DIM CODE &1000
50PROCass
60:
70REM Which song?
80INPUTfile
90F=OPENIN("<Obey$Dir>.Songs.Catalogue")
100:
110REM Find catalogue entry
120REPEAT INPUT#F,str$
130UNTIL(((ASC(str$))-64)=file):CLOSE#F
140OSCLI"LOAD <Obey$Dir>.HEADER "+STR$~SPACE
150:
160REM Load file by file
170FORfil=1TO((ASCMID$(str$,2,1))-48)
180OSCLI"LOAD <Obey$Dir>.Songs."+STR$file+CHR$(64+fil)+" "+STR$~(SPACE+&220)
190ad=SPACE+VAL(MID$(str$,7*fil-3,6))+&220
200!(SPACE+&14)=(ad-SPACE-&220+&100)AND&FFFFFF00
210!(SPACE+&17)=(ad-SPACE-&220+&000)AND&FFFFFF00
220!(SPACE+&1B)=(ad-SPACE-&220+&000)AND&FFFFFF00
230!lng=ad-SPACE-&220:!start=SPACE+&220:CALLwave
240ad=((ad+&200-SPACE)AND&FFFFFF00)+&10+SPACE
250FORr=ad-&100TOad STEP4:!r=0:NEXT
260!ad=0:!(ad+4)=0:!(ad+8)=0:!(ad+12)=0
270!(ad+16)=&32534D45:!(ad+20)=1:!(ad+24)=8000
280ad=ad+28
290OSCLI"SAVE <Obey$Dir>.Decode"+CHR$(64+fil)+" "+STR$~SPACE+" "+STR$~ad
300OSCLI"SETTYPE <Obey$Dir>.Decode"+CHR$(64+fil)+" DF9"
310NEXT
320:
330REM Play em!
340FORfil=1TO((ASCMID$(str$,2,1))-48)
350OSCLI"PLAYSAMPLE <Obey$Dir>.Decode"+CHR$(64+fil)
360NEXT
370OSCLI"WIPE <Obey$Dir>.DECODE* ~C~V"
380END
390:
400DEFPROCass
410FORpass=0TO3STEP3:P%=CODE:[OPT pass
420.wave
430ADR R0,start:LDR R1,[R0]:ADR R0,lng:LDR R2,[R0]:ADD R2,R2,R1
440ADR R0,eorbyte:LDR R3,[R0]
450.loop LDR R0,[R1]:EOR R0,R0,R3:STR R0,[R1]:ADD R1,R1,#4:CMP R1,R2
460BCCloop:MOV PC,R14
470.lng EQUD 0
480.start EQUD 0
490.eorbyte EQUD &80808080
500]:NEXT
510ENDPROC
� � �:� " @ ";�:�
*DIR <Obey$Dir>.SONGS
� SPACE &100000
(� CODE &1000
2�ass
<:
F� Which song?
P �file
Z%F=�("<Obey$Dir>.Songs.Catalogue")
d:
n� Find catalogue entry
x� �#F,str$
� �(((�(str$))-64)=file):�#F
�&�"LOAD <Obey$Dir>.HEADER "+�~SPACE
�:
�� Load file by file
� �fil=1�((��str$,2,1))-48)
�@�"LOAD <Obey$Dir>.Songs."+�file+�(64+fil)+" "+�~(SPACE+&220)
�%ad=SPACE+�(�str$,7*fil-3,6))+&220
�/!(SPACE+&14)=(ad-SPACE-&220+&100)�&FFFFFF00
�/!(SPACE+&17)=(ad-SPACE-&220+&000)�&FFFFFF00
�/!(SPACE+&1B)=(ad-SPACE-&220+&000)�&FFFFFF00
�.!lng=ad-SPACE-&220:!start=SPACE+&220:�wave
�,ad=((ad+&200-SPACE)�&FFFFFF00)+&10+SPACE
��r=ad-&100�ad �4:!r=0:�
(!ad=0:!(ad+4)=0:!(ad+8)=0:!(ad+12)=0
/!(ad+16)=&32534D45:!(ad+20)=1:!(ad+24)=8000
ad=ad+28
"<�"SAVE <Obey$Dir>.Decode"+�(64+fil)+" "+�~SPACE+" "+�~ad
,1�"SETTYPE <Obey$Dir>.Decode"+�(64+fil)+" DF9"
6�
@:
J� Play em!
T �fil=1�((��str$,2,1))-48)
^-�"PLAYSAMPLE <Obey$Dir>.Decode"+�(64+fil)
h�
r#�"WIPE <Obey$Dir>.DECODE* ~C~V"
|�
�:
� ��ass
�!�pass=0�3�3:P%=CODE:[OPT pass
� .wave
�@ADR R0,start:LDR R1,[R0]:ADR R0,lng:LDR R2,[R0]:ADD R2,R2,R1
� ADR R0,eorbyte:LDR R3,[R0]
�C.loop LDR R0,[R1]:� R0,R0,R3:STR R0,[R1]:ADD R1,R1,#4:CMP R1,R2
�BCCloop:MOV PC,R14
�.lng EQUD 0
�.start EQUD 0
�.eorbyte EQUD &80808080
�]:�
��
� 00000000 0d 00 0a 15 ee 20 85 20 f6 3a f1 20 22 20 40 20 |..... . .:. " @ | 00000010 22 3b 9e 3a e0 0d 00 14 19 2a 44 49 52 20 3c 4f |";.:.....*DIR <O| 00000020 62 65 79 24 44 69 72 3e 2e 53 4f 4e 47 53 0d 00 |bey$Dir>.SONGS..| 00000030 1e 13 de 20 53 50 41 43 45 20 26 31 30 30 30 30 |... SPACE &10000| 00000040 30 0d 00 28 10 de 20 43 4f 44 45 20 26 31 30 30 |0..(.. CODE &100| 00000050 30 0d 00 32 08 f2 61 73 73 0d 00 3c 05 3a 0d 00 |0..2..ass..<.:..| 00000060 46 11 f4 20 57 68 69 63 68 20 73 6f 6e 67 3f 0d |F.. Which song?.| 00000070 00 50 09 e8 66 69 6c 65 0d 00 5a 25 46 3d 8e 28 |.P..file..Z%F=.(| 00000080 22 3c 4f 62 65 79 24 44 69 72 3e 2e 53 6f 6e 67 |"<Obey$Dir>.Song| 00000090 73 2e 43 61 74 61 6c 6f 67 75 65 22 29 0d 00 64 |s.Catalogue")..d| 000000a0 05 3a 0d 00 6e 1a f4 20 46 69 6e 64 20 63 61 74 |.:..n.. Find cat| 000000b0 61 6c 6f 67 75 65 20 65 6e 74 72 79 0d 00 78 0e |alogue entry..x.| 000000c0 f5 20 e8 23 46 2c 73 74 72 24 0d 00 82 1e fd 28 |. .#F,str$.....(| 000000d0 28 28 97 28 73 74 72 24 29 29 2d 36 34 29 3d 66 |((.(str$))-64)=f| 000000e0 69 6c 65 29 3a d9 23 46 0d 00 8c 26 ff 22 4c 4f |ile):.#F...&."LO| 000000f0 41 44 20 3c 4f 62 65 79 24 44 69 72 3e 2e 48 45 |AD <Obey$Dir>.HE| 00000100 41 44 45 52 20 22 2b c3 7e 53 50 41 43 45 0d 00 |ADER "+.~SPACE..| 00000110 96 05 3a 0d 00 a0 17 f4 20 4c 6f 61 64 20 66 69 |..:..... Load fi| 00000120 6c 65 20 62 79 20 66 69 6c 65 0d 00 aa 1d e3 66 |le by file.....f| 00000130 69 6c 3d 31 b8 28 28 97 c1 73 74 72 24 2c 32 2c |il=1.((..str$,2,| 00000140 31 29 29 2d 34 38 29 0d 00 b4 40 ff 22 4c 4f 41 |1))-48)...@."LOA| 00000150 44 20 3c 4f 62 65 79 24 44 69 72 3e 2e 53 6f 6e |D <Obey$Dir>.Son| 00000160 67 73 2e 22 2b c3 66 69 6c 65 2b bd 28 36 34 2b |gs."+.file+.(64+| 00000170 66 69 6c 29 2b 22 20 22 2b c3 7e 28 53 50 41 43 |fil)+" "+.~(SPAC| 00000180 45 2b 26 32 32 30 29 0d 00 be 25 61 64 3d 53 50 |E+&220)...%ad=SP| 00000190 41 43 45 2b bb 28 c1 73 74 72 24 2c 37 2a 66 69 |ACE+.(.str$,7*fi| 000001a0 6c 2d 33 2c 36 29 29 2b 26 32 32 30 0d 00 c8 2f |l-3,6))+&220.../| 000001b0 21 28 53 50 41 43 45 2b 26 31 34 29 3d 28 61 64 |!(SPACE+&14)=(ad| 000001c0 2d 53 50 41 43 45 2d 26 32 32 30 2b 26 31 30 30 |-SPACE-&220+&100| 000001d0 29 80 26 46 46 46 46 46 46 30 30 0d 00 d2 2f 21 |).&FFFFFF00.../!| 000001e0 28 53 50 41 43 45 2b 26 31 37 29 3d 28 61 64 2d |(SPACE+&17)=(ad-| 000001f0 53 50 41 43 45 2d 26 32 32 30 2b 26 30 30 30 29 |SPACE-&220+&000)| 00000200 80 26 46 46 46 46 46 46 30 30 0d 00 dc 2f 21 28 |.&FFFFFF00.../!(| 00000210 53 50 41 43 45 2b 26 31 42 29 3d 28 61 64 2d 53 |SPACE+&1B)=(ad-S| 00000220 50 41 43 45 2d 26 32 32 30 2b 26 30 30 30 29 80 |PACE-&220+&000).| 00000230 26 46 46 46 46 46 46 30 30 0d 00 e6 2e 21 6c 6e |&FFFFFF00....!ln| 00000240 67 3d 61 64 2d 53 50 41 43 45 2d 26 32 32 30 3a |g=ad-SPACE-&220:| 00000250 21 73 74 61 72 74 3d 53 50 41 43 45 2b 26 32 32 |!start=SPACE+&22| 00000260 30 3a d6 77 61 76 65 0d 00 f0 2c 61 64 3d 28 28 |0:.wave...,ad=((| 00000270 61 64 2b 26 32 30 30 2d 53 50 41 43 45 29 80 26 |ad+&200-SPACE).&| 00000280 46 46 46 46 46 46 30 30 29 2b 26 31 30 2b 53 50 |FFFFFF00)+&10+SP| 00000290 41 43 45 0d 00 fa 1b e3 72 3d 61 64 2d 26 31 30 |ACE.....r=ad-&10| 000002a0 30 b8 61 64 20 88 34 3a 21 72 3d 30 3a ed 0d 01 |0.ad .4:!r=0:...| 000002b0 04 28 21 61 64 3d 30 3a 21 28 61 64 2b 34 29 3d |.(!ad=0:!(ad+4)=| 000002c0 30 3a 21 28 61 64 2b 38 29 3d 30 3a 21 28 61 64 |0:!(ad+8)=0:!(ad| 000002d0 2b 31 32 29 3d 30 0d 01 0e 2f 21 28 61 64 2b 31 |+12)=0.../!(ad+1| 000002e0 36 29 3d 26 33 32 35 33 34 44 34 35 3a 21 28 61 |6)=&32534D45:!(a| 000002f0 64 2b 32 30 29 3d 31 3a 21 28 61 64 2b 32 34 29 |d+20)=1:!(ad+24)| 00000300 3d 38 30 30 30 0d 01 18 0c 61 64 3d 61 64 2b 32 |=8000....ad=ad+2| 00000310 38 0d 01 22 3c ff 22 53 41 56 45 20 3c 4f 62 65 |8.."<."SAVE <Obe| 00000320 79 24 44 69 72 3e 2e 44 65 63 6f 64 65 22 2b bd |y$Dir>.Decode"+.| 00000330 28 36 34 2b 66 69 6c 29 2b 22 20 22 2b c3 7e 53 |(64+fil)+" "+.~S| 00000340 50 41 43 45 2b 22 20 22 2b c3 7e 61 64 0d 01 2c |PACE+" "+.~ad..,| 00000350 31 ff 22 53 45 54 54 59 50 45 20 3c 4f 62 65 79 |1."SETTYPE <Obey| 00000360 24 44 69 72 3e 2e 44 65 63 6f 64 65 22 2b bd 28 |$Dir>.Decode"+.(| 00000370 36 34 2b 66 69 6c 29 2b 22 20 44 46 39 22 0d 01 |64+fil)+" DF9"..| 00000380 36 05 ed 0d 01 40 05 3a 0d 01 4a 0e f4 20 50 6c |6....@.:..J.. Pl| 00000390 61 79 20 65 6d 21 0d 01 54 1d e3 66 69 6c 3d 31 |ay em!..T..fil=1| 000003a0 b8 28 28 97 c1 73 74 72 24 2c 32 2c 31 29 29 2d |.((..str$,2,1))-| 000003b0 34 38 29 0d 01 5e 2d ff 22 50 4c 41 59 53 41 4d |48)..^-."PLAYSAM| 000003c0 50 4c 45 20 3c 4f 62 65 79 24 44 69 72 3e 2e 44 |PLE <Obey$Dir>.D| 000003d0 65 63 6f 64 65 22 2b bd 28 36 34 2b 66 69 6c 29 |ecode"+.(64+fil)| 000003e0 0d 01 68 05 ed 0d 01 72 23 ff 22 57 49 50 45 20 |..h....r#."WIPE | 000003f0 3c 4f 62 65 79 24 44 69 72 3e 2e 44 45 43 4f 44 |<Obey$Dir>.DECOD| 00000400 45 2a 20 7e 43 7e 56 22 0d 01 7c 05 e0 0d 01 86 |E* ~C~V"..|.....| 00000410 05 3a 0d 01 90 09 dd f2 61 73 73 0d 01 9a 21 e3 |.:......ass...!.| 00000420 70 61 73 73 3d 30 b8 33 88 33 3a 50 25 3d 43 4f |pass=0.3.3:P%=CO| 00000430 44 45 3a 5b 4f 50 54 20 70 61 73 73 0d 01 a4 09 |DE:[OPT pass....| 00000440 2e 77 61 76 65 0d 01 ae 40 41 44 52 20 52 30 2c |.wave...@ADR R0,| 00000450 73 74 61 72 74 3a 4c 44 52 20 52 31 2c 5b 52 30 |start:LDR R1,[R0| 00000460 5d 3a 41 44 52 20 52 30 2c 6c 6e 67 3a 4c 44 52 |]:ADR R0,lng:LDR| 00000470 20 52 32 2c 5b 52 30 5d 3a 41 44 44 20 52 32 2c | R2,[R0]:ADD R2,| 00000480 52 32 2c 52 31 0d 01 b8 1e 41 44 52 20 52 30 2c |R2,R1....ADR R0,| 00000490 65 6f 72 62 79 74 65 3a 4c 44 52 20 52 33 2c 5b |eorbyte:LDR R3,[| 000004a0 52 30 5d 0d 01 c2 43 2e 6c 6f 6f 70 20 4c 44 52 |R0]...C.loop LDR| 000004b0 20 52 30 2c 5b 52 31 5d 3a 82 20 52 30 2c 52 30 | R0,[R1]:. R0,R0| 000004c0 2c 52 33 3a 53 54 52 20 52 30 2c 5b 52 31 5d 3a |,R3:STR R0,[R1]:| 000004d0 41 44 44 20 52 31 2c 52 31 2c 23 34 3a 43 4d 50 |ADD R1,R1,#4:CMP| 000004e0 20 52 31 2c 52 32 0d 01 cc 16 42 43 43 6c 6f 6f | R1,R2....BCCloo| 000004f0 70 3a 4d 4f 56 20 50 43 2c 52 31 34 0d 01 d6 0f |p:MOV PC,R14....| 00000500 2e 6c 6e 67 20 45 51 55 44 20 30 0d 01 e0 11 2e |.lng EQUD 0.....| 00000510 73 74 61 72 74 20 45 51 55 44 20 30 0d 01 ea 1b |start EQUD 0....| 00000520 2e 65 6f 72 62 79 74 65 20 45 51 55 44 20 26 38 |.eorbyte EQUD &8| 00000530 30 38 30 38 30 38 30 0d 01 f4 07 5d 3a ed 0d 01 |0808080....]:...| 00000540 fe 05 e1 0d ff |.....| 00000545
.