Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape31b_acorn_eu_1992_january.wav » SFplay

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_tape31b_acorn_eu_1992_january.wav
Filename: SFplay
Read OK:
File size: 048A bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

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

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

 � 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
6 LDA&71:CMP&76:BNEloop1
@ LDA#&0F:JSRsound1
J CLI:RTS
T .init LDA#&FF:STA&FE43
^ LDA#&84:JSRsound
h LDA#&00:JSRsound
r LDA#&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 08 20 eb 20 37  0d 00 14 21 20 f1 8a 30  |.... . 7...! ..0|
00000010  2c 32 30 29 22 4c 6f 61  64 69 6e 67 20 53 6f 75  |,20)"Loading Sou|
00000020  6e 64 20 46 69 6c 65 73  22 0d 00 1e 15 20 2a 4c  |nd Files".... *L|
00000030  4f 41 44 20 53 2e 50 4f  50 20 33 30 30 30 0d 00  |OAD S.POP 3000..|
00000040  28 15 20 2a 4c 4f 41 44  20 53 2e 42 4f 42 20 35  |(. *LOAD S.BOB 5|
00000050  38 30 30 0d 00 32 17 20  eb 37 3a ef 32 33 3b 38  |800..2. .7:.23;8|
00000060  32 30 32 3b 30 3b 30 3b  30 3b 0d 00 3c 1e 20 f1  |202;0;0;0;..<. .|
00000070  22 4c 6f 67 20 53 61 6d  70 6c 65 20 46 69 6c 65  |"Log Sample File|
00000080  20 70 6c 61 79 65 72 22  0d 00 46 15 20 f1 22 42  | player"..F. ."B|
00000090  79 20 52 61 66 61 65 6c  20 4a 61 79 22 0d 00 50  |y Rafael Jay"..P|
000000a0  1d 20 f1 22 4d 6f 64 69  66 69 65 64 20 62 79 20  |. ."Modified by |
000000b0  4d 69 6b 65 20 43 6f 6f  6b 22 0d 00 5a 21 20 f1  |Mike Cook"..Z! .|
000000c0  22 28 43 29 20 54 68 65  20 4d 69 63 72 6f 20 55  |"(C) The Micro U|
000000d0  73 65 72 20 4a 61 6e 20  39 32 22 0d 00 64 0d 20  |ser Jan 92"..d. |
000000e0  f2 61 73 73 65 6d 3a f1  0d 00 6e 14 20 f1 22 31  |.assem:...n. ."1|
000000f0  2e 20 50 6f 70 20 4d 75  73 69 63 22 0d 00 78 2a  |. Pop Music"..x*|
00000100  20 f1 22 32 2e 20 49 20  63 61 6e 27 74 20 67 65  | ."2. I can't ge|
00000110  74 20 74 68 65 20 6c 61  75 67 68 20 72 69 67 68  |t the laugh righ|
00000120  74 20 42 6f 62 22 0d 00  82 0b 20 f5 3a 47 25 3d  |t Bob".... .:G%=|
00000130  a5 0d 00 8c 27 20 e7 47  25 3d 97 22 31 22 20 41  |....' .G%=."1" A|
00000140  25 3d 34 30 3a 58 25 3d  26 33 30 3a 59 25 3d 26  |%=40:X%=&30:Y%=&|
00000150  35 38 3a d6 70 6c 61 79  0d 00 96 27 20 e7 47 25  |58:.play...' .G%|
00000160  3d 97 22 32 22 20 41 25  3d 34 30 3a 58 25 3d 26  |=."2" A%=40:X%=&|
00000170  35 38 3a 59 25 3d 26 37  43 3a d6 70 6c 61 79 0d  |58:Y%=&7C:.play.|
00000180  00 a0 08 20 fd 20 a3 0d  00 aa 0c 20 dd f2 61 73  |... . ..... ..as|
00000190  73 65 6d 0d 00 b4 15 20  e3 20 50 41 53 53 3d 30  |sem.... . PASS=0|
000001a0  20 b8 20 32 20 88 20 32  0d 00 be 16 20 50 25 3d  | . 2 . 2.... P%=|
000001b0  26 39 30 30 3a 5b 4f 50  54 20 50 41 53 53 0d 00  |&900:[OPT PASS..|
000001c0  c8 18 20 2e 70 6c 61 79  5f 73 20 53 45 49 3a 4a  |.. .play_s SEI:J|
000001d0  53 52 69 6e 69 74 0d 00  d2 13 20 4c 44 41 23 26  |SRinit.... LDA#&|
000001e0  30 46 3a 53 54 41 26 37  32 0d 00 dc 13 20 4c 44  |0F:STA&72.... LD|
000001f0  41 23 26 30 30 3a 53 54  41 26 37 30 0d 00 e6 12  |A#&00:STA&70....|
00000200  20 4c 44 41 26 37 35 3a  53 54 41 26 37 31 0d 00  | LDA&75:STA&71..|
00000210  f0 13 20 2e 6c 6f 6f 70  31 20 4c 44 59 23 26 30  |.. .loop1 LDY#&0|
00000220  30 0d 00 fa 0b 20 2e 6c  6f 6f 70 32 0d 01 04 19  |0.... .loop2....|
00000230  20 4c 44 41 28 26 37 30  29 2c 59 3a 50 48 41 3a  | LDA(&70),Y:PHA:|
00000240  80 23 26 30 46 0d 01 0e  18 20 4a 53 52 73 6f 75  |.#&0F.... JSRsou|
00000250  6e 64 31 3a 50 4c 41 3a  80 23 26 46 30 0d 01 18  |nd1:PLA:.#&F0...|
00000260  18 20 4c 53 52 41 3a 4c  53 52 41 3a 4c 53 52 41  |. LSRA:LSRA:LSRA|
00000270  3a 4c 53 52 41 0d 01 22  12 20 4a 53 52 73 6f 75  |:LSRA..". JSRsou|
00000280  6e 64 31 3a 49 4e 59 0d  01 2c 14 20 42 4e 45 6c  |nd1:INY..,. BNEl|
00000290  6f 6f 70 32 3a 49 4e 43  26 37 31 0d 01 36 1b 20  |oop2:INC&71..6. |
000002a0  4c 44 41 26 37 31 3a 43  4d 50 26 37 36 3a 42 4e  |LDA&71:CMP&76:BN|
000002b0  45 6c 6f 6f 70 31 0d 01  40 16 20 4c 44 41 23 26  |Eloop1..@. LDA#&|
000002c0  30 46 3a 4a 53 52 73 6f  75 6e 64 31 0d 01 4a 0c  |0F:JSRsound1..J.|
000002d0  20 43 4c 49 3a 52 54 53  0d 01 54 1b 20 2e 69 6e  | CLI:RTS..T. .in|
000002e0  69 74 20 4c 44 41 23 26  46 46 3a 53 54 41 26 46  |it LDA#&FF:STA&F|
000002f0  45 34 33 0d 01 5e 15 20  4c 44 41 23 26 38 34 3a  |E43..^. LDA#&84:|
00000300  4a 53 52 73 6f 75 6e 64  0d 01 68 15 20 4c 44 41  |JSRsound..h. LDA|
00000310  23 26 30 30 3a 4a 53 52  73 6f 75 6e 64 0d 01 72  |#&00:JSRsound..r|
00000320  15 20 4c 44 41 23 26 41  34 3a 4a 53 52 73 6f 75  |. LDA#&A4:JSRsou|
00000330  6e 64 0d 01 7c 15 20 4c  44 41 23 26 30 30 3a 4a  |nd..|. LDA#&00:J|
00000340  53 52 73 6f 75 6e 64 0d  01 86 15 20 4c 44 41 23  |SRsound.... LDA#|
00000350  26 43 34 3a 4a 53 52 73  6f 75 6e 64 0d 01 90 15  |&C4:JSRsound....|
00000360  20 4c 44 41 23 26 30 30  3a 4a 53 52 73 6f 75 6e  | LDA#&00:JSRsoun|
00000370  64 0d 01 9a 08 20 52 54  53 0d 01 a4 14 20 2e 73  |d.... RTS.... .s|
00000380  6f 75 6e 64 20 53 54 41  26 46 45 34 46 0d 01 ae  |ound STA&FE4F...|
00000390  15 20 4c 44 58 23 26 30  30 3a 53 54 58 26 46 45  |. LDX#&00:STX&FE|
000003a0  34 30 0d 01 b8 1c 20 4e  4f 50 3a 4e 4f 50 3a 4e  |40.... NOP:NOP:N|
000003b0  4f 50 3a 4e 4f 50 3a 4e  4f 50 3a 4e 4f 50 0d 01  |OP:NOP:NOP:NOP..|
000003c0  c2 19 20 4c 44 58 23 26  30 38 3a 53 54 58 26 46  |.. LDX#&08:STX&F|
000003d0  45 34 30 3a 52 54 53 0d  01 cc 0c 20 2e 73 6f 75  |E40:RTS.... .sou|
000003e0  6e 64 31 0d 01 d6 14 20  84 41 23 26 39 30 3a 4a  |nd1.... .A#&90:J|
000003f0  53 52 73 6f 75 6e 64 0d  01 e0 14 20 84 41 23 26  |SRsound.... .A#&|
00000400  32 30 3a 4a 53 52 73 6f  75 6e 64 0d 01 ea 13 20  |20:JSRsound.... |
00000410  82 23 26 36 30 3a 4a 53  52 73 6f 75 6e 64 0d 01  |.#&60:JSRsound..|
00000420  f4 0b 20 4c 44 58 26 37  34 0d 01 fe 0b 20 2e 6c  |.. LDX&74.... .l|
00000430  6f 6f 70 33 0d 02 08 15  20 44 45 58 3a 42 4e 45  |oop3.... DEX:BNE|
00000440  6c 6f 6f 70 33 3a 52 54  53 0d 02 12 0a 20 2e 70  |loop3:RTS.... .p|
00000450  6c 61 79 0d 02 1c 19 20  53 54 41 26 37 34 3a 53  |lay.... STA&74:S|
00000460  54 58 26 37 35 3a 53 54  59 26 37 36 0d 02 26 0e  |TX&75:STY&76..&.|
00000470  20 4a 4d 50 70 6c 61 79  5f 73 0d 02 30 08 20 5d  | JMPplay_s..0. ]|
00000480  3a ed 0d 02 3a 06 20 e1  0d ff                    |:...:. ...|
0000048a
SFplay.m0
SFplay.m1
SFplay.m2
SFplay.m4
SFplay.m5