Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape33a_acorn_eu_1992_april.wav » Q.LaySmp
Q.LaySmp
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.LaySmp |
Read OK: | ✔ |
File size: | 03CA bytes |
Load address: | FFFF1900 |
Exec address: | FFFF801F |
Duplicates
There are 3 duplicate copies of this file in the archive:
- AEW website » mu » mu_5_25_discs_Micro_User_10_02_D-MU10_02.ssd » Q.LAYSMP
- AEW website » mu » mu_Micro_User_10_02_MU10-2_B.uef » Q.LaySmp
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape33a_acorn_eu_1992_april.wav » Q.LaySmp
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape33b_acorn_eu_1992_april.wav » Q.LaySmp
File contents
10MODE7:VDU23;8202;0;0;0; 20*LOAD AMPLE1 3000 30*LOAD AMPLE2 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 AMPLE1 3000 *LOAD AMPLE2 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 15 2a 4c 4f 41 44 20 |0;0;0;....*LOAD | 00000020 41 4d 50 4c 45 31 20 33 30 30 30 0d 00 1e 15 2a |AMPLE1 3000....*| 00000030 4c 4f 41 44 20 41 4d 50 4c 45 32 20 35 44 30 30 |LOAD AMPLE2 5D00| 00000040 0d 00 28 0c f2 61 73 73 65 6d 3a f1 0d 00 32 23 |..(..assem:...2#| 00000050 f1 22 31 2e 20 27 59 6f 75 72 20 48 69 67 68 6e |."1. 'Your Highn| 00000060 65 73 73 2e 2e 2e 27 20 73 61 6d 70 6c 65 22 0d |ess...' sample".| 00000070 00 3c 1a f1 22 32 2e 20 27 43 6f 6d 65 20 6f 6e |.<.."2. 'Come on| 00000080 27 20 73 61 6d 70 6c 65 22 0d 00 46 0a f5 3a 47 |' sample"..F..:G| 00000090 25 3d a5 0d 00 50 2c e7 47 25 3d 97 22 31 22 20 |%=...P,.G%=."1" | 000000a0 41 25 3d 32 30 3a 58 25 3d 26 33 30 3a 59 25 3d |A%=20:X%=&30:Y%=| 000000b0 26 35 44 3a d6 70 6c 61 79 3a e5 8d 44 64 40 0d |&5D:.play:..Dd@.| 000000c0 00 5a 2c e7 47 25 3d 97 22 32 22 20 41 25 3d 31 |.Z,.G%=."2" A%=1| 000000d0 30 3a 58 25 3d 26 35 44 3a 59 25 3d 26 36 36 3a |0:X%=&5D:Y%=&66:| 000000e0 d6 70 6c 61 79 3a e5 8d 44 64 40 0d 00 64 08 fd |.play:..Dd@..d..| 000000f0 a3 3a e0 0d 00 6e 0b dd f2 61 73 73 65 6d 0d 00 |.:...n...assem..| 00000100 78 14 e3 20 50 41 53 53 3d 30 20 b8 20 32 20 88 |x.. PASS=0 . 2 .| 00000110 20 32 0d 00 82 15 50 25 3d 26 39 30 30 3a 5b 4f | 2....P%=&900:[O| 00000120 50 54 20 50 41 53 53 0d 00 8c 17 2e 70 6c 61 79 |PT PASS.....play| 00000130 5f 73 20 53 45 49 3a 4a 53 52 69 6e 69 74 0d 00 |_s SEI:JSRinit..| 00000140 96 12 4c 44 41 23 26 30 46 3a 53 54 41 26 37 32 |..LDA#&0F:STA&72| 00000150 0d 00 a0 12 4c 44 41 23 26 30 30 3a 53 54 41 26 |....LDA#&00:STA&| 00000160 37 30 0d 00 aa 11 4c 44 41 26 37 35 3a 53 54 41 |70....LDA&75:STA| 00000170 26 37 31 0d 00 b4 12 2e 6c 6f 6f 70 31 20 4c 44 |&71.....loop1 LD| 00000180 59 23 26 30 30 0d 00 be 0a 2e 6c 6f 6f 70 32 0d |Y#&00.....loop2.| 00000190 00 c8 18 4c 44 41 28 26 37 30 29 2c 59 3a 50 48 |...LDA(&70),Y:PH| 000001a0 41 3a 80 23 26 30 46 0d 00 d2 17 4a 53 52 73 6f |A:.#&0F....JSRso| 000001b0 75 6e 64 31 3a 50 4c 41 3a 80 23 26 46 30 0d 00 |und1:PLA:.#&F0..| 000001c0 dc 17 4c 53 52 41 3a 4c 53 52 41 3a 4c 53 52 41 |..LSRA:LSRA:LSRA| 000001d0 3a 4c 53 52 41 0d 00 e6 11 4a 53 52 73 6f 75 6e |:LSRA....JSRsoun| 000001e0 64 31 3a 49 4e 59 0d 00 f0 13 42 4e 45 6c 6f 6f |d1:INY....BNEloo| 000001f0 70 32 3a 49 4e 43 26 37 31 0d 00 fa 1a 4c 44 41 |p2:INC&71....LDA| 00000200 26 37 31 3a 43 4d 50 26 37 36 3a 42 4e 45 6c 6f |&71:CMP&76:BNElo| 00000210 6f 70 31 0d 01 04 15 4c 44 41 23 26 30 46 3a 4a |op1....LDA#&0F:J| 00000220 53 52 73 6f 75 6e 64 31 0d 01 0e 0b 43 4c 49 3a |SRsound1....CLI:| 00000230 52 54 53 0d 01 18 1a 2e 69 6e 69 74 20 4c 44 41 |RTS.....init LDA| 00000240 23 26 46 46 3a 53 54 41 26 46 45 34 33 0d 01 22 |#&FF:STA&FE43.."| 00000250 14 4c 44 41 23 26 38 34 3a 4a 53 52 73 6f 75 6e |.LDA#&84:JSRsoun| 00000260 64 0d 01 2c 14 4c 44 41 23 26 30 30 3a 4a 53 52 |d..,.LDA#&00:JSR| 00000270 73 6f 75 6e 64 0d 01 36 14 4c 44 41 23 26 41 34 |sound..6.LDA#&A4| 00000280 3a 4a 53 52 73 6f 75 6e 64 0d 01 40 14 4c 44 41 |:JSRsound..@.LDA| 00000290 23 26 30 30 3a 4a 53 52 73 6f 75 6e 64 0d 01 4a |#&00:JSRsound..J| 000002a0 14 4c 44 41 23 26 43 34 3a 4a 53 52 73 6f 75 6e |.LDA#&C4:JSRsoun| 000002b0 64 0d 01 54 14 4c 44 41 23 26 30 30 3a 4a 53 52 |d..T.LDA#&00:JSR| 000002c0 73 6f 75 6e 64 0d 01 5e 07 52 54 53 0d 01 68 13 |sound..^.RTS..h.| 000002d0 2e 73 6f 75 6e 64 20 53 54 41 26 46 45 34 46 0d |.sound STA&FE4F.| 000002e0 01 72 14 4c 44 58 23 26 30 30 3a 53 54 58 26 46 |.r.LDX#&00:STX&F| 000002f0 45 34 30 0d 01 7c 1b 4e 4f 50 3a 4e 4f 50 3a 4e |E40..|.NOP:NOP:N| 00000300 4f 50 3a 4e 4f 50 3a 4e 4f 50 3a 4e 4f 50 0d 01 |OP:NOP:NOP:NOP..| 00000310 86 18 4c 44 58 23 26 30 38 3a 53 54 58 26 46 45 |..LDX#&08:STX&FE| 00000320 34 30 3a 52 54 53 0d 01 90 0b 2e 73 6f 75 6e 64 |40:RTS.....sound| 00000330 31 0d 01 9a 13 84 41 23 26 39 30 3a 4a 53 52 73 |1.....A#&90:JSRs| 00000340 6f 75 6e 64 0d 01 a4 13 84 41 23 26 32 30 3a 4a |ound.....A#&20:J| 00000350 53 52 73 6f 75 6e 64 0d 01 ae 12 82 23 26 36 30 |SRsound.....#&60| 00000360 3a 4a 53 52 73 6f 75 6e 64 0d 01 b8 11 4c 44 58 |:JSRsound....LDX| 00000370 26 37 34 3a 2e 6c 6f 6f 70 33 0d 01 c2 14 44 45 |&74:.loop3....DE| 00000380 58 3a 42 4e 45 6c 6f 6f 70 33 3a 52 54 53 0d 01 |X:BNEloop3:RTS..| 00000390 cc 09 2e 70 6c 61 79 0d 01 d6 18 53 54 41 26 37 |...play....STA&7| 000003a0 34 3a 53 54 58 26 37 35 3a 53 54 59 26 37 36 0d |4:STX&75:STY&76.| 000003b0 01 e0 0d 4a 4d 50 70 6c 61 79 5f 73 0d 01 ea 07 |...JMPplay_s....| 000003c0 5d 3a ed 0d 01 f4 05 e1 0d ff |]:........| 000003ca