Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape33a_acorn_eu_1992_april.wav » Q.SFplay

Q.SFplay

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 tapes » Electron_User » Electron_User_tape33a_acorn_eu_1992_april.wav
Filename: Q.SFplay
Read OK:
File size: 0451 bytes
Load address: FFFF1900
Exec address: FFFF801F
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10MODE 7
   20PRINTTAB(0,20)"Loading Sound Files"
   30*LOAD S.POP 3000
   40*LOAD S.BOB 5800
   50MODE7:VDU23;8202;0;0;0;
   60PRINT"Log Sample File player"
   70PRINT"By Rafael Jay"
   80PRINT"Modified by Mike Cook"
   90PRINT"(C) The Micro User Jan 92"
  100PROCassem:PRINT
  110PRINT"1. Pop Music"
  120PRINT"2. I can't get the laugh right Bob"
  130REPEAT:G%=GET
  140IFG%=ASC"1" A%=40:X%=&30:Y%=&58:CALLplay
  150IFG%=ASC"2" A%=40:X%=&58:Y%=&7C:CALLplay
  160UNTIL FALSE
  170DEFPROCassem
  180FOR PASS=0 TO 2 STEP 2
  190P%=&900:[OPT PASS
  200.play_s SEI:JSRinit
  210LDA#&0F:STA&72
  220LDA#&00:STA&70
  230LDA&75:STA&71
  240.loop1 LDY#&00
  250.loop2
  260LDA(&70),Y:PHA:AND#&0F
  270JSRsound1:PLA:AND#&F0
  280LSRA:LSRA:LSRA:LSRA
  290JSRsound1:INY
  300BNEloop2:INC&71
  310LDA&71:CMP&76:BNEloop1
  320LDA#&0F:JSRsound1
  330CLI:RTS
  340.init LDA#&FF:STA&FE43
  350LDA#&84:JSRsound
  360LDA#&00:JSRsound
  370LDA#&A4:JSRsound
  380LDA#&00:JSRsound
  390LDA#&C4:JSRsound
  400LDA#&00:JSRsound
  410RTS
  420.sound STA&FE4F
  430LDX#&00:STX&FE40
  440NOP:NOP:NOP:NOP:NOP:NOP
  450LDX#&08:STX&FE40:RTS
  460.sound1
  470ORA#&90:JSRsound
  480ORA#&20:JSRsound
  490EOR#&60:JSRsound
  500LDX&74
  510.loop3
  520DEX:BNEloop3:RTS
  530.play
  540STA&74:STX&75:STY&76
  550JMPplay_s
  560]:NEXT
  570ENDPROC

� 7
 �0,20)"Loading Sound Files"
*LOAD S.POP 3000
(*LOAD S.BOB 5800
2�7:�23;8202;0;0;0;
<�"Log Sample File player"
F�"By Rafael Jay"
P�"Modified by Mike Cook"
Z �"(C) The Micro User Jan 92"
d�assem:�
n�"1. Pop Music"
x)�"2. I can't get the laugh right Bob"
�
�:G%=�
�&�G%=�"1" A%=40:X%=&30:Y%=&58:�play
�&�G%=�"2" A%=40:X%=&58:Y%=&7C:�play
�� �
���assem
�� PASS=0 � 2 � 2
�P%=&900:[OPT PASS
�.play_s SEI:JSRinit
�LDA#&0F:STA&72
�LDA#&00:STA&70
�LDA&75:STA&71
�.loop1 LDY#&00
�
.loop2
LDA(&70),Y:PHA:�#&0F
JSRsound1:PLA:�#&F0
LSRA:LSRA:LSRA:LSRA
"JSRsound1:INY
,BNEloop2:INC&71
6LDA&71:CMP&76:BNEloop1
@LDA#&0F:JSRsound1
JCLI:RTS
T.init LDA#&FF:STA&FE43
^LDA#&84:JSRsound
hLDA#&00:JSRsound
rLDA#&A4:JSRsound
|LDA#&00:JSRsound
�LDA#&C4:JSRsound
�LDA#&00:JSRsound
�RTS
�.sound STA&FE4F
�LDX#&00:STX&FE40
�NOP:NOP:NOP:NOP:NOP:NOP
�LDX#&08:STX&FE40:RTS
�.sound1
��A#&90:JSRsound
��A#&20:JSRsound
��#&60:JSRsound
�
LDX&74
�
.loop3
DEX:BNEloop3:RTS
	.play
STA&74:STX&75:STY&76
&
JMPplay_s
0]:�
:�
�
00000000  0d 00 0a 07 eb 20 37 0d  00 14 20 f1 8a 30 2c 32  |..... 7... ..0,2|
00000010  30 29 22 4c 6f 61 64 69  6e 67 20 53 6f 75 6e 64  |0)"Loading Sound|
00000020  20 46 69 6c 65 73 22 0d  00 1e 14 2a 4c 4f 41 44  | Files"....*LOAD|
00000030  20 53 2e 50 4f 50 20 33  30 30 30 0d 00 28 14 2a  | S.POP 3000..(.*|
00000040  4c 4f 41 44 20 53 2e 42  4f 42 20 35 38 30 30 0d  |LOAD S.BOB 5800.|
00000050  00 32 16 eb 37 3a ef 32  33 3b 38 32 30 32 3b 30  |.2..7:.23;8202;0|
00000060  3b 30 3b 30 3b 0d 00 3c  1d f1 22 4c 6f 67 20 53  |;0;0;..<.."Log S|
00000070  61 6d 70 6c 65 20 46 69  6c 65 20 70 6c 61 79 65  |ample File playe|
00000080  72 22 0d 00 46 14 f1 22  42 79 20 52 61 66 61 65  |r"..F.."By Rafae|
00000090  6c 20 4a 61 79 22 0d 00  50 1c f1 22 4d 6f 64 69  |l Jay"..P.."Modi|
000000a0  66 69 65 64 20 62 79 20  4d 69 6b 65 20 43 6f 6f  |fied by Mike Coo|
000000b0  6b 22 0d 00 5a 20 f1 22  28 43 29 20 54 68 65 20  |k"..Z ."(C) The |
000000c0  4d 69 63 72 6f 20 55 73  65 72 20 4a 61 6e 20 39  |Micro User Jan 9|
000000d0  32 22 0d 00 64 0c f2 61  73 73 65 6d 3a f1 0d 00  |2"..d..assem:...|
000000e0  6e 13 f1 22 31 2e 20 50  6f 70 20 4d 75 73 69 63  |n.."1. Pop Music|
000000f0  22 0d 00 78 29 f1 22 32  2e 20 49 20 63 61 6e 27  |"..x)."2. I can'|
00000100  74 20 67 65 74 20 74 68  65 20 6c 61 75 67 68 20  |t get the laugh |
00000110  72 69 67 68 74 20 42 6f  62 22 0d 00 82 0a f5 3a  |right Bob".....:|
00000120  47 25 3d a5 0d 00 8c 26  e7 47 25 3d 97 22 31 22  |G%=....&.G%=."1"|
00000130  20 41 25 3d 34 30 3a 58  25 3d 26 33 30 3a 59 25  | A%=40:X%=&30:Y%|
00000140  3d 26 35 38 3a d6 70 6c  61 79 0d 00 96 26 e7 47  |=&58:.play...&.G|
00000150  25 3d 97 22 32 22 20 41  25 3d 34 30 3a 58 25 3d  |%=."2" A%=40:X%=|
00000160  26 35 38 3a 59 25 3d 26  37 43 3a d6 70 6c 61 79  |&58:Y%=&7C:.play|
00000170  0d 00 a0 07 fd 20 a3 0d  00 aa 0b dd f2 61 73 73  |..... .......ass|
00000180  65 6d 0d 00 b4 14 e3 20  50 41 53 53 3d 30 20 b8  |em..... PASS=0 .|
00000190  20 32 20 88 20 32 0d 00  be 15 50 25 3d 26 39 30  | 2 . 2....P%=&90|
000001a0  30 3a 5b 4f 50 54 20 50  41 53 53 0d 00 c8 17 2e  |0:[OPT PASS.....|
000001b0  70 6c 61 79 5f 73 20 53  45 49 3a 4a 53 52 69 6e  |play_s SEI:JSRin|
000001c0  69 74 0d 00 d2 12 4c 44  41 23 26 30 46 3a 53 54  |it....LDA#&0F:ST|
000001d0  41 26 37 32 0d 00 dc 12  4c 44 41 23 26 30 30 3a  |A&72....LDA#&00:|
000001e0  53 54 41 26 37 30 0d 00  e6 11 4c 44 41 26 37 35  |STA&70....LDA&75|
000001f0  3a 53 54 41 26 37 31 0d  00 f0 12 2e 6c 6f 6f 70  |:STA&71.....loop|
00000200  31 20 4c 44 59 23 26 30  30 0d 00 fa 0a 2e 6c 6f  |1 LDY#&00.....lo|
00000210  6f 70 32 0d 01 04 18 4c  44 41 28 26 37 30 29 2c  |op2....LDA(&70),|
00000220  59 3a 50 48 41 3a 80 23  26 30 46 0d 01 0e 17 4a  |Y:PHA:.#&0F....J|
00000230  53 52 73 6f 75 6e 64 31  3a 50 4c 41 3a 80 23 26  |SRsound1:PLA:.#&|
00000240  46 30 0d 01 18 17 4c 53  52 41 3a 4c 53 52 41 3a  |F0....LSRA:LSRA:|
00000250  4c 53 52 41 3a 4c 53 52  41 0d 01 22 11 4a 53 52  |LSRA:LSRA..".JSR|
00000260  73 6f 75 6e 64 31 3a 49  4e 59 0d 01 2c 13 42 4e  |sound1:INY..,.BN|
00000270  45 6c 6f 6f 70 32 3a 49  4e 43 26 37 31 0d 01 36  |Eloop2:INC&71..6|
00000280  1a 4c 44 41 26 37 31 3a  43 4d 50 26 37 36 3a 42  |.LDA&71:CMP&76:B|
00000290  4e 45 6c 6f 6f 70 31 0d  01 40 15 4c 44 41 23 26  |NEloop1..@.LDA#&|
000002a0  30 46 3a 4a 53 52 73 6f  75 6e 64 31 0d 01 4a 0b  |0F:JSRsound1..J.|
000002b0  43 4c 49 3a 52 54 53 0d  01 54 1a 2e 69 6e 69 74  |CLI:RTS..T..init|
000002c0  20 4c 44 41 23 26 46 46  3a 53 54 41 26 46 45 34  | LDA#&FF:STA&FE4|
000002d0  33 0d 01 5e 14 4c 44 41  23 26 38 34 3a 4a 53 52  |3..^.LDA#&84:JSR|
000002e0  73 6f 75 6e 64 0d 01 68  14 4c 44 41 23 26 30 30  |sound..h.LDA#&00|
000002f0  3a 4a 53 52 73 6f 75 6e  64 0d 01 72 14 4c 44 41  |:JSRsound..r.LDA|
00000300  23 26 41 34 3a 4a 53 52  73 6f 75 6e 64 0d 01 7c  |#&A4:JSRsound..||
00000310  14 4c 44 41 23 26 30 30  3a 4a 53 52 73 6f 75 6e  |.LDA#&00:JSRsoun|
00000320  64 0d 01 86 14 4c 44 41  23 26 43 34 3a 4a 53 52  |d....LDA#&C4:JSR|
00000330  73 6f 75 6e 64 0d 01 90  14 4c 44 41 23 26 30 30  |sound....LDA#&00|
00000340  3a 4a 53 52 73 6f 75 6e  64 0d 01 9a 07 52 54 53  |:JSRsound....RTS|
00000350  0d 01 a4 13 2e 73 6f 75  6e 64 20 53 54 41 26 46  |.....sound STA&F|
00000360  45 34 46 0d 01 ae 14 4c  44 58 23 26 30 30 3a 53  |E4F....LDX#&00:S|
00000370  54 58 26 46 45 34 30 0d  01 b8 1b 4e 4f 50 3a 4e  |TX&FE40....NOP:N|
00000380  4f 50 3a 4e 4f 50 3a 4e  4f 50 3a 4e 4f 50 3a 4e  |OP:NOP:NOP:NOP:N|
00000390  4f 50 0d 01 c2 18 4c 44  58 23 26 30 38 3a 53 54  |OP....LDX#&08:ST|
000003a0  58 26 46 45 34 30 3a 52  54 53 0d 01 cc 0b 2e 73  |X&FE40:RTS.....s|
000003b0  6f 75 6e 64 31 0d 01 d6  13 84 41 23 26 39 30 3a  |ound1.....A#&90:|
000003c0  4a 53 52 73 6f 75 6e 64  0d 01 e0 13 84 41 23 26  |JSRsound.....A#&|
000003d0  32 30 3a 4a 53 52 73 6f  75 6e 64 0d 01 ea 12 82  |20:JSRsound.....|
000003e0  23 26 36 30 3a 4a 53 52  73 6f 75 6e 64 0d 01 f4  |#&60:JSRsound...|
000003f0  0a 4c 44 58 26 37 34 0d  01 fe 0a 2e 6c 6f 6f 70  |.LDX&74.....loop|
00000400  33 0d 02 08 14 44 45 58  3a 42 4e 45 6c 6f 6f 70  |3....DEX:BNEloop|
00000410  33 3a 52 54 53 0d 02 12  09 2e 70 6c 61 79 0d 02  |3:RTS.....play..|
00000420  1c 18 53 54 41 26 37 34  3a 53 54 58 26 37 35 3a  |..STA&74:STX&75:|
00000430  53 54 59 26 37 36 0d 02  26 0d 4a 4d 50 70 6c 61  |STY&76..&.JMPpla|
00000440  79 5f 73 0d 02 30 07 5d  3a ed 0d 02 3a 05 e1 0d  |y_s..0.]:...:...|
00000450  ff                                                |.|
00000451
Q.SFplay.m0
Q.SFplay.m1
Q.SFplay.m2
Q.SFplay.m4
Q.SFplay.m5