Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape26a_acorn_eu_1991_august.wav » PlaySMP

PlaySMP

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_tape26a_acorn_eu_1991_august.wav
Filename: PlaySMP
Read OK:
File size: 03CC bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10MODE7:VDU23;8202;0;0;0;
   20*LOAD SAMPLE1 3000
   30*LOAD SAMPLE2 5D00
   40PROCassem:PRINT
   50PRINT"1. 'Your Highness...' sample"
   60PRINT"2. 'Come on' sample"
   70REPEAT:G%=GET
   80IFG%=ASC"1" A%=20:X%=&30:Y%=&5D:CALLplay:GOTO100
   90IFG%=ASC"2" A%=10:X%=&5D:Y%=&66:CALLplay:GOTO100
  100UNTILFALSE:END
  110DEFPROCassem
  120FOR PASS=0 TO 2 STEP 2
  130P%=&900:[OPT PASS
  140.play_s SEI:JSRinit
  150LDA#&0F:STA&72
  160LDA#&00:STA&70
  170LDA&75:STA&71
  180.loop1 LDY#&00
  190.loop2
  200LDA(&70),Y:PHA:AND#&0F
  210JSRsound1:PLA:AND#&F0
  220LSRA:LSRA:LSRA:LSRA
  230JSRsound1:INY
  240BNEloop2:INC&71
  250LDA&71:CMP&76:BNEloop1
  260LDA#&0F:JSRsound1
  270CLI:RTS
  280.init LDA#&FF:STA&FE43
  290LDA#&84:JSRsound
  300LDA#&00:JSRsound
  310LDA#&A4:JSRsound
  320LDA#&00:JSRsound
  330LDA#&C4:JSRsound
  340LDA#&00:JSRsound
  350RTS
  360.sound STA&FE4F
  370LDX#&00:STX&FE40
  380NOP:NOP:NOP:NOP:NOP:NOP
  390LDX#&08:STX&FE40:RTS
  400.sound1
  410ORA#&90:JSRsound
  420ORA#&20:JSRsound
  430EOR#&60:JSRsound
  440LDX&74:.loop3
  450DEX:BNEloop3:RTS
  460.play
  470STA&74:STX&75:STY&76
  480JMPplay_s
  490]:NEXT
  500ENDPROC

�7:�23;8202;0;0;0;
*LOAD SAMPLE1 3000
*LOAD SAMPLE2 5D00
(�assem:�
2#�"1. 'Your Highness...' sample"
<�"2. 'Come on' sample"
F
�:G%=�
P,�G%=�"1" A%=20:X%=&30:Y%=&5D:�play:�Dd@
Z,�G%=�"2" A%=10:X%=&5D:Y%=&66:�play:�Dd@
d��:�
n��assem
x� 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
�LDA&71:CMP&76:BNEloop1
LDA#&0F:JSRsound1
CLI:RTS
.init LDA#&FF:STA&FE43
"LDA#&84:JSRsound
,LDA#&00:JSRsound
6LDA#&A4:JSRsound
@LDA#&00:JSRsound
JLDA#&C4:JSRsound
TLDA#&00:JSRsound
^RTS
h.sound STA&FE4F
rLDX#&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
�]:�
��
�
00000000  0d 00 0a 16 eb 37 3a ef  32 33 3b 38 32 30 32 3b  |.....7:.23;8202;|
00000010  30 3b 30 3b 30 3b 0d 00  14 16 2a 4c 4f 41 44 20  |0;0;0;....*LOAD |
00000020  53 41 4d 50 4c 45 31 20  33 30 30 30 0d 00 1e 16  |SAMPLE1 3000....|
00000030  2a 4c 4f 41 44 20 53 41  4d 50 4c 45 32 20 35 44  |*LOAD SAMPLE2 5D|
00000040  30 30 0d 00 28 0c f2 61  73 73 65 6d 3a f1 0d 00  |00..(..assem:...|
00000050  32 23 f1 22 31 2e 20 27  59 6f 75 72 20 48 69 67  |2#."1. 'Your Hig|
00000060  68 6e 65 73 73 2e 2e 2e  27 20 73 61 6d 70 6c 65  |hness...' sample|
00000070  22 0d 00 3c 1a f1 22 32  2e 20 27 43 6f 6d 65 20  |"..<.."2. 'Come |
00000080  6f 6e 27 20 73 61 6d 70  6c 65 22 0d 00 46 0a f5  |on' sample"..F..|
00000090  3a 47 25 3d a5 0d 00 50  2c e7 47 25 3d 97 22 31  |:G%=...P,.G%=."1|
000000a0  22 20 41 25 3d 32 30 3a  58 25 3d 26 33 30 3a 59  |" A%=20:X%=&30:Y|
000000b0  25 3d 26 35 44 3a d6 70  6c 61 79 3a e5 8d 44 64  |%=&5D:.play:..Dd|
000000c0  40 0d 00 5a 2c e7 47 25  3d 97 22 32 22 20 41 25  |@..Z,.G%=."2" A%|
000000d0  3d 31 30 3a 58 25 3d 26  35 44 3a 59 25 3d 26 36  |=10:X%=&5D:Y%=&6|
000000e0  36 3a d6 70 6c 61 79 3a  e5 8d 44 64 40 0d 00 64  |6:.play:..Dd@..d|
000000f0  08 fd a3 3a e0 0d 00 6e  0b dd f2 61 73 73 65 6d  |...:...n...assem|
00000100  0d 00 78 14 e3 20 50 41  53 53 3d 30 20 b8 20 32  |..x.. PASS=0 . 2|
00000110  20 88 20 32 0d 00 82 15  50 25 3d 26 39 30 30 3a  | . 2....P%=&900:|
00000120  5b 4f 50 54 20 50 41 53  53 0d 00 8c 17 2e 70 6c  |[OPT PASS.....pl|
00000130  61 79 5f 73 20 53 45 49  3a 4a 53 52 69 6e 69 74  |ay_s SEI:JSRinit|
00000140  0d 00 96 12 4c 44 41 23  26 30 46 3a 53 54 41 26  |....LDA#&0F:STA&|
00000150  37 32 0d 00 a0 12 4c 44  41 23 26 30 30 3a 53 54  |72....LDA#&00:ST|
00000160  41 26 37 30 0d 00 aa 11  4c 44 41 26 37 35 3a 53  |A&70....LDA&75:S|
00000170  54 41 26 37 31 0d 00 b4  12 2e 6c 6f 6f 70 31 20  |TA&71.....loop1 |
00000180  4c 44 59 23 26 30 30 0d  00 be 0a 2e 6c 6f 6f 70  |LDY#&00.....loop|
00000190  32 0d 00 c8 18 4c 44 41  28 26 37 30 29 2c 59 3a  |2....LDA(&70),Y:|
000001a0  50 48 41 3a 80 23 26 30  46 0d 00 d2 17 4a 53 52  |PHA:.#&0F....JSR|
000001b0  73 6f 75 6e 64 31 3a 50  4c 41 3a 80 23 26 46 30  |sound1:PLA:.#&F0|
000001c0  0d 00 dc 17 4c 53 52 41  3a 4c 53 52 41 3a 4c 53  |....LSRA:LSRA:LS|
000001d0  52 41 3a 4c 53 52 41 0d  00 e6 11 4a 53 52 73 6f  |RA:LSRA....JSRso|
000001e0  75 6e 64 31 3a 49 4e 59  0d 00 f0 13 42 4e 45 6c  |und1:INY....BNEl|
000001f0  6f 6f 70 32 3a 49 4e 43  26 37 31 0d 00 fa 1a 4c  |oop2:INC&71....L|
00000200  44 41 26 37 31 3a 43 4d  50 26 37 36 3a 42 4e 45  |DA&71:CMP&76:BNE|
00000210  6c 6f 6f 70 31 0d 01 04  15 4c 44 41 23 26 30 46  |loop1....LDA#&0F|
00000220  3a 4a 53 52 73 6f 75 6e  64 31 0d 01 0e 0b 43 4c  |:JSRsound1....CL|
00000230  49 3a 52 54 53 0d 01 18  1a 2e 69 6e 69 74 20 4c  |I:RTS.....init L|
00000240  44 41 23 26 46 46 3a 53  54 41 26 46 45 34 33 0d  |DA#&FF:STA&FE43.|
00000250  01 22 14 4c 44 41 23 26  38 34 3a 4a 53 52 73 6f  |.".LDA#&84:JSRso|
00000260  75 6e 64 0d 01 2c 14 4c  44 41 23 26 30 30 3a 4a  |und..,.LDA#&00:J|
00000270  53 52 73 6f 75 6e 64 0d  01 36 14 4c 44 41 23 26  |SRsound..6.LDA#&|
00000280  41 34 3a 4a 53 52 73 6f  75 6e 64 0d 01 40 14 4c  |A4:JSRsound..@.L|
00000290  44 41 23 26 30 30 3a 4a  53 52 73 6f 75 6e 64 0d  |DA#&00:JSRsound.|
000002a0  01 4a 14 4c 44 41 23 26  43 34 3a 4a 53 52 73 6f  |.J.LDA#&C4:JSRso|
000002b0  75 6e 64 0d 01 54 14 4c  44 41 23 26 30 30 3a 4a  |und..T.LDA#&00:J|
000002c0  53 52 73 6f 75 6e 64 0d  01 5e 07 52 54 53 0d 01  |SRsound..^.RTS..|
000002d0  68 13 2e 73 6f 75 6e 64  20 53 54 41 26 46 45 34  |h..sound STA&FE4|
000002e0  46 0d 01 72 14 4c 44 58  23 26 30 30 3a 53 54 58  |F..r.LDX#&00:STX|
000002f0  26 46 45 34 30 0d 01 7c  1b 4e 4f 50 3a 4e 4f 50  |&FE40..|.NOP:NOP|
00000300  3a 4e 4f 50 3a 4e 4f 50  3a 4e 4f 50 3a 4e 4f 50  |:NOP:NOP:NOP:NOP|
00000310  0d 01 86 18 4c 44 58 23  26 30 38 3a 53 54 58 26  |....LDX#&08:STX&|
00000320  46 45 34 30 3a 52 54 53  0d 01 90 0b 2e 73 6f 75  |FE40:RTS.....sou|
00000330  6e 64 31 0d 01 9a 13 84  41 23 26 39 30 3a 4a 53  |nd1.....A#&90:JS|
00000340  52 73 6f 75 6e 64 0d 01  a4 13 84 41 23 26 32 30  |Rsound.....A#&20|
00000350  3a 4a 53 52 73 6f 75 6e  64 0d 01 ae 12 82 23 26  |:JSRsound.....#&|
00000360  36 30 3a 4a 53 52 73 6f  75 6e 64 0d 01 b8 11 4c  |60:JSRsound....L|
00000370  44 58 26 37 34 3a 2e 6c  6f 6f 70 33 0d 01 c2 14  |DX&74:.loop3....|
00000380  44 45 58 3a 42 4e 45 6c  6f 6f 70 33 3a 52 54 53  |DEX:BNEloop3:RTS|
00000390  0d 01 cc 09 2e 70 6c 61  79 0d 01 d6 18 53 54 41  |.....play....STA|
000003a0  26 37 34 3a 53 54 58 26  37 35 3a 53 54 59 26 37  |&74:STX&75:STY&7|
000003b0  36 0d 01 e0 0d 4a 4d 50  70 6c 61 79 5f 73 0d 01  |6....JMPplay_s..|
000003c0  ea 07 5d 3a ed 0d 01 f4  05 e1 0d ff              |..]:........|
000003cc
PlaySMP.m0
PlaySMP.m1
PlaySMP.m2
PlaySMP.m4
PlaySMP.m5