Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape33b_acorn_eu_1992_april.wav » Q.SoftSmp

Q.SoftSmp

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_tape33b_acorn_eu_1992_april.wav
Filename: Q.SoftSmp
Read OK: ✔
File size: 0A16 bytes
Load address: FFFF1900
Exec address: FFFF801F
Duplicates

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

File contents
   10PRINT"BEEB BODY BUILDING COURSE"
   20PRINT"SOUND SAMPLER"
   30PRINT"Using internal sound chip"
   40PRINT"By Mike Cook"
   50PRINT
   60PRINT"Calculating look up table"
   70V=15/LOG(255)
   80P%=&901
   90FOR A%=1 TO 255
  100?P%=15-INT(LOG(A%)*V)
  110P%=P%+1
  120NEXT
  130?&900=15
  140FOR PASS=0 TO 3 STEP 3
  150P%=&A00
  160[
  170OPT PASS
  180.SETUP \ INITILISE
  190SEI \ DISABLE INTERRUPTS
  200LDA #&40
  210LDY #0
  220STA &FE6B \ ENABLE TIMER 1
  230LDA #&C0
  240STA &FE6E \ ENABLE INTERRUPT
  250LDA #0
  260STA &FE65 \ START IT OFF
  270RTS
  280.GIN \ GET SAMPLE INTO MEMORY
  290JSR SETUP
  300.HOLD
  310LDA &FE6D \ GET INTERRUPT FLAG
  320BPL HOLD \ LOOP UNTIL TIME OUT
  330STA &FE6D \ CLEAR INTERRUPT
  340\ GET SAMPLE
  350LDX #10:LDA#0
  360STA &FE60 \ CS AND CLOCK LOW
  370.SLOOP
  380LDA &FE60 \ GET DATA
  390LSR A:ROL &80 \ MOVE INTO MEMORY
  400LDA #2:STA &FE60 \ CLOCK HIGH
  410LDA #0:STA &FE60 \ CLOCK LOW
  420DEX
  430BNE SLOOP
  440LDA #6:STA &FE60
  450LDA &80 \ GET FINAL SAMPLE
  460STA (&70),Y
  470INY
  480BNE HOLD \ GET ANOTHER
  490INC &71 \ INCREASE MS POINTER
  500LDA #&7D
  510CMP &71 \ REACHED LIMIT ?
  520BNE HOLD \ BRANCH IF NOT
  530.FIN LDA #&40
  540STA &FE6E \ DISABLE T1 INTERRUPT
  550STA &FE6D \ CLEAR ANY INTERRUPTS
  560CLI \ ENABLE SYSTEM INTERRUPTS
  570RTS
  580.SOUT \ PLAY A SAMPLE
  590JSR SETUP:JSR INIT
  600LDA &72 \ TRANSFER START ADDRESS
  610STA &70
  620LDA &73
  630STA &71
  640.HOUT
  650LDA &FE6D \ GET INTERRUPT FLAG
  660BPL HOUT \ LOOP UNTIL TIME OUT
  670STA &FE6D \ CLEAR INTERRUPT
  680LDA (&70),Y \ GET A SAMPLE
  690JSR SND1 \ OUTPUT IT
  700INC &70
  710BNE HOUT \ GET ANOTHER
  720INC &71 \ INCREASE MS POINTER
  730LDA #&7D
  740CMP &71 \ REACHED LIMIT ?
  750BNE HOUT \ BRANCH IF NOT
  760JMP FIN
  770.INIT \ Initilise sound chip
  780LDA #&FF:STA &FE43
  790LDA #&84:JSR SND
  800LDA #&00:JSR SND
  810LDA #&A4:JSR SND
  820LDA #&00:JSR SND
  830LDA #&C4:JSR SND
  840LDA #&00:JSR SND
  850LDY #0
  860RTS
  870.SND
  880STA &FE4F
  890LDX #&00:STX &FE40
  900NOP:NOP:NOP:NOP:NOP:NOP
  910LDX #&08:STX &FE40
  920RTS
  930.SND1
  940TAX
  950LDA &900,X \ CONVERT TO LOG
  960ORA #&90:JSR SND
  970ORA #&20:JSR SND
  980EOR #&60:JSR SND
  990RTS
 1000]
 1010NEXT
 1020MODE1
 1030PROC_INSTRUCTIONS
 1040CD%=180
 1050?&FE62=6
 1060?&FCC7=0
 1070?&FCC6=CD%
 1080?&70=&00
 1090?&72=&00
 1100?&71=&30
 1110?&73=&30
 1120REPEAT
 1130PRINTTAB(0,31);SPC(38);
 1140PRINTTAB(0,31);"(S sp R)";
 1150A$=GET$
 1160IF A$="S" THEN ?&70=00:?&71=&30:CALL GIN
 1170IF A$=" " THEN ?&70=00:?&71=&30:CALL SOUT
 1180IF A$="R" THEN PROC_RATE
 1190UNTIL FALSE
 1200DEF PROC_RATE
 1210PRINT"DELAY ";CD%;" INPUT NEW VALUE ";
 1220T$=""
 1230REPEAT
 1240A$=GET$
 1250IF A$<> CHR$(13) THEN PRINTA$;
 1260T$=T$+A$
 1270UNTIL A$=CHR$(13)
 1280CD%=VAL(T$)
 1290?&FE66=CD%
 1300ENDPROC
 1310DEF PROC_INSTRUCTIONS
 1320PRINT"BEEB BODY BUILDING COURSE"
 1330PRINT"SOUND SAMPLER"
 1340PRINT"JANUARY 1992"
 1350PRINT"By Mike Cook"
 1360PRINT
 1370PRINT"Options are:-"
 1380PRINT"S  - Sample input"
 1390PRINT"sp - Play back sample"
 1400PRINT"R  - Rate of digitising"
 1410ENDPROC


 �"BEEB BODY BUILDING COURSE"
�"SOUND SAMPLER"
 �"Using internal sound chip"
(�"By Mike Cook"
2�
< �"Calculating look up table"
FV=15/�(255)
PP%=&901
Z� A%=1 � 255
d?P%=15-�(�(A%)*V)
nP%=P%+1
x�
�?&900=15
�� PASS=0 � 3 � 3
�P%=&A00
�[
�OPT PASS
�.SETUP \ INITILISE
�SEI \ DISABLE �ERRUPTS
�LDA #&40
�
LDY #0
�STA &FE6B \ ENABLE TIMER 1
�LDA #&C0
�STA &FE6E \ ENABLE �ERRUPT
�
LDA #0
STA &FE65 \ START IT �
RTS
.GIN \ � SAMPLE �O MEMORY
"
JSR SETUP
,	.HOLD
6LDA &FE6D \ � �ERRUPT FLAG
@BPL HOLD \ LOOP � � OUT
JSTA &FE6D \ � �ERRUPT
T\ � SAMPLE
^LDX #10:LDA#0
hSTA &FE60 \ CS � CLOCK LOW
r
.SLOOP
|LDA &FE60 \ � �
�LSR A:ROL &80 \ � �O MEMORY
�!LDA #2:STA &FE60 \ CLOCK HIGH
� LDA #0:STA &FE60 \ CLOCK LOW
�DEX
�
BNE SLOOP
�LDA #6:STA &FE60
�LDA &80 \ � FINAL SAMPLE
�STA (&70),Y
�INY
�BNE HOLD \ � ANOTHER
�!INC &71 \ INCREASE MS POINTER
�LDA #&7D
�CMP &71 \ REACHED LIMIT ?
BNE HOLD \ BRANCH � �
.FIN LDA #&40
"STA &FE6E \ DISABLE T1 �ERRUPT
&STA &FE6D \ � ANY �ERRUPTS
0 CLI \ ENABLE SYSTEM �ERRUPTS
:RTS
D.SOUT \ PLAY A SAMPLE
NJSR SETUP:JSR INIT
X$LDA &72 \ TRANSFER START ADDRESS
bSTA &70
lLDA &73
vSTA &71
�	.HOUT
�LDA &FE6D \ � �ERRUPT FLAG
�BPL HOUT \ LOOP � � OUT
�STA &FE6D \ � �ERRUPT
�LDA (&70),Y \ � A SAMPLE
�JSR SND1 \ OUTPUT IT
�INC &70
�BNE HOUT \ � ANOTHER
�!INC &71 \ INCREASE MS POINTER
�LDA #&7D
�CMP &71 \ REACHED LIMIT ?
�BNE HOUT \ BRANCH � �
�JMP FIN
 .INIT \ Initilise sound chip
LDA #&FF:STA &FE43
LDA #&84:JSR SND
 LDA #&00:JSR SND
*LDA #&A4:JSR SND
4LDA #&00:JSR SND
>LDA #&C4:JSR SND
HLDA #&00:JSR SND
R
LDY #0
\RTS
f.SND
p
STA &FE4F
zLDX #&00:STX &FE40
�NOP:NOP:NOP:NOP:NOP:NOP
�LDX #&08:STX &FE40
�RTS
�	.SND1
�TAX
�LDA &900,X \ CONVERT � �
��A #&90:JSR SND
��A #&20:JSR SND
�� #&60:JSR SND
�RTS
�]
��
��1
�_INSTRUCTIONS
CD%=180
?&FE62=6
$?&FCC7=0
.?&FCC6=CD%
8?&70=&00
B?&72=&00
L?&71=&30
V?&73=&30
`�
j�0,31);�(38);
t�0,31);"(S sp R)";
~A$=�
�%� A$="S" � ?&70=00:?&71=&30:� GIN
�&� A$=" " � ?&70=00:?&71=&30:� SOUT
�� A$="R" � �_RATE
�� �
�� �_RATE
�&�"DELAY ";CD%;" INPUT NEW VALUE ";
�	T$=""
��
�A$=�
�� A$<> �(13) � �A$;
�T$=T$+A$
�� A$=�(13)

CD%=�(T$)

?&FE66=CD%
�
� �_INSTRUCTIONS
( �"BEEB BODY BUILDING COURSE"
2�"SOUND SAMPLER"
<�"JANUARY 1992"
F�"By Mike Cook"
P�
Z�"Options are:-"
d�"S  - Sample input"
n�"sp - Play back sample"
x�"R  - Rate of digitising"
��
�
00000000  0d 00 0a 20 f1 22 42 45  45 42 20 42 4f 44 59 20  |... ."BEEB BODY |
00000010  42 55 49 4c 44 49 4e 47  20 43 4f 55 52 53 45 22  |BUILDING COURSE"|
00000020  0d 00 14 14 f1 22 53 4f  55 4e 44 20 53 41 4d 50  |....."SOUND SAMP|
00000030  4c 45 52 22 0d 00 1e 20  f1 22 55 73 69 6e 67 20  |LER"... ."Using |
00000040  69 6e 74 65 72 6e 61 6c  20 73 6f 75 6e 64 20 63  |internal sound c|
00000050  68 69 70 22 0d 00 28 13  f1 22 42 79 20 4d 69 6b  |hip"..(.."By Mik|
00000060  65 20 43 6f 6f 6b 22 0d  00 32 05 f1 0d 00 3c 20  |e Cook"..2....< |
00000070  f1 22 43 61 6c 63 75 6c  61 74 69 6e 67 20 6c 6f  |."Calculating lo|
00000080  6f 6b 20 75 70 20 74 61  62 6c 65 22 0d 00 46 0f  |ok up table"..F.|
00000090  56 3d 31 35 2f ab 28 32  35 35 29 0d 00 50 0b 50  |V=15/.(255)..P.P|
000000a0  25 3d 26 39 30 31 0d 00  5a 10 e3 20 41 25 3d 31  |%=&901..Z.. A%=1|
000000b0  20 b8 20 32 35 35 0d 00  64 15 3f 50 25 3d 31 35  | . 255..d.?P%=15|
000000c0  2d a8 28 ab 28 41 25 29  2a 56 29 0d 00 6e 0b 50  |-.(.(A%)*V)..n.P|
000000d0  25 3d 50 25 2b 31 0d 00  78 05 ed 0d 00 82 0c 3f  |%=P%+1..x......?|
000000e0  26 39 30 30 3d 31 35 0d  00 8c 14 e3 20 50 41 53  |&900=15..... PAS|
000000f0  53 3d 30 20 b8 20 33 20  88 20 33 0d 00 96 0b 50  |S=0 . 3 . 3....P|
00000100  25 3d 26 41 30 30 0d 00  a0 05 5b 0d 00 aa 0c 4f  |%=&A00....[....O|
00000110  50 54 20 50 41 53 53 0d  00 b4 16 2e 53 45 54 55  |PT PASS.....SETU|
00000120  50 20 5c 20 49 4e 49 54  49 4c 49 53 45 0d 00 be  |P \ INITILISE...|
00000130  1a 53 45 49 20 5c 20 44  49 53 41 42 4c 45 20 a8  |.SEI \ DISABLE .|
00000140  45 52 52 55 50 54 53 0d  00 c8 0c 4c 44 41 20 23  |ERRUPTS....LDA #|
00000150  26 34 30 0d 00 d2 0a 4c  44 59 20 23 30 0d 00 dc  |&40....LDY #0...|
00000160  1e 53 54 41 20 26 46 45  36 42 20 5c 20 45 4e 41  |.STA &FE6B \ ENA|
00000170  42 4c 45 20 54 49 4d 45  52 20 31 0d 00 e6 0c 4c  |BLE TIMER 1....L|
00000180  44 41 20 23 26 43 30 0d  00 f0 1e 53 54 41 20 26  |DA #&C0....STA &|
00000190  46 45 36 45 20 5c 20 45  4e 41 42 4c 45 20 a8 45  |FE6E \ ENABLE .E|
000001a0  52 52 55 50 54 0d 00 fa  0a 4c 44 41 20 23 30 0d  |RRUPT....LDA #0.|
000001b0  01 04 1a 53 54 41 20 26  46 45 36 35 20 5c 20 53  |...STA &FE65 \ S|
000001c0  54 41 52 54 20 49 54 20  87 0d 01 0e 07 52 54 53  |TART IT .....RTS|
000001d0  0d 01 18 1d 2e 47 49 4e  20 5c 20 a5 20 53 41 4d  |.....GIN \ . SAM|
000001e0  50 4c 45 20 a8 4f 20 4d  45 4d 4f 52 59 0d 01 22  |PLE .O MEMORY.."|
000001f0  0d 4a 53 52 20 53 45 54  55 50 0d 01 2c 09 2e 48  |.JSR SETUP..,..H|
00000200  4f 4c 44 0d 01 36 1e 4c  44 41 20 26 46 45 36 44  |OLD..6.LDA &FE6D|
00000210  20 5c 20 a5 20 a8 45 52  52 55 50 54 20 46 4c 41  | \ . .ERRUPT FLA|
00000220  47 0d 01 40 1b 42 50 4c  20 48 4f 4c 44 20 5c 20  |G..@.BPL HOLD \ |
00000230  4c 4f 4f 50 20 fd 20 91  20 4f 55 54 0d 01 4a 19  |LOOP . . OUT..J.|
00000240  53 54 41 20 26 46 45 36  44 20 5c 20 d8 20 a8 45  |STA &FE6D \ . .E|
00000250  52 52 55 50 54 0d 01 54  0e 5c 20 a5 20 53 41 4d  |RRUPT..T.\ . SAM|
00000260  50 4c 45 0d 01 5e 11 4c  44 58 20 23 31 30 3a 4c  |PLE..^.LDX #10:L|
00000270  44 41 23 30 0d 01 68 1e  53 54 41 20 26 46 45 36  |DA#0..h.STA &FE6|
00000280  30 20 5c 20 43 53 20 80  20 43 4c 4f 43 4b 20 4c  |0 \ CS . CLOCK L|
00000290  4f 57 0d 01 72 0a 2e 53  4c 4f 4f 50 0d 01 7c 13  |OW..r..SLOOP..|.|
000002a0  4c 44 41 20 26 46 45 36  30 20 5c 20 a5 20 dc 0d  |LDA &FE60 \ . ..|
000002b0  01 86 1f 4c 53 52 20 41  3a 52 4f 4c 20 26 38 30  |...LSR A:ROL &80|
000002c0  20 5c 20 ec 20 a8 4f 20  4d 45 4d 4f 52 59 0d 01  | \ . .O MEMORY..|
000002d0  90 21 4c 44 41 20 23 32  3a 53 54 41 20 26 46 45  |.!LDA #2:STA &FE|
000002e0  36 30 20 5c 20 43 4c 4f  43 4b 20 48 49 47 48 0d  |60 \ CLOCK HIGH.|
000002f0  01 9a 20 4c 44 41 20 23  30 3a 53 54 41 20 26 46  |.. LDA #0:STA &F|
00000300  45 36 30 20 5c 20 43 4c  4f 43 4b 20 4c 4f 57 0d  |E60 \ CLOCK LOW.|
00000310  01 a4 07 44 45 58 0d 01  ae 0d 42 4e 45 20 53 4c  |...DEX....BNE SL|
00000320  4f 4f 50 0d 01 b8 14 4c  44 41 20 23 36 3a 53 54  |OOP....LDA #6:ST|
00000330  41 20 26 46 45 36 30 0d  01 c2 1c 4c 44 41 20 26  |A &FE60....LDA &|
00000340  38 30 20 5c 20 a5 20 46  49 4e 41 4c 20 53 41 4d  |80 \ . FINAL SAM|
00000350  50 4c 45 0d 01 cc 0f 53  54 41 20 28 26 37 30 29  |PLE....STA (&70)|
00000360  2c 59 0d 01 d6 07 49 4e  59 0d 01 e0 18 42 4e 45  |,Y....INY....BNE|
00000370  20 48 4f 4c 44 20 5c 20  a5 20 41 4e 4f 54 48 45  | HOLD \ . ANOTHE|
00000380  52 0d 01 ea 21 49 4e 43  20 26 37 31 20 5c 20 49  |R...!INC &71 \ I|
00000390  4e 43 52 45 41 53 45 20  4d 53 20 50 4f 49 4e 54  |NCREASE MS POINT|
000003a0  45 52 0d 01 f4 0c 4c 44  41 20 23 26 37 44 0d 01  |ER....LDA #&7D..|
000003b0  fe 1d 43 4d 50 20 26 37  31 20 5c 20 52 45 41 43  |..CMP &71 \ REAC|
000003c0  48 45 44 20 4c 49 4d 49  54 20 3f 0d 02 08 19 42  |HED LIMIT ?....B|
000003d0  4e 45 20 48 4f 4c 44 20  5c 20 42 52 41 4e 43 48  |NE HOLD \ BRANCH|
000003e0  20 e7 20 ac 0d 02 12 11  2e 46 49 4e 20 4c 44 41  | . ......FIN LDA|
000003f0  20 23 26 34 30 0d 02 1c  22 53 54 41 20 26 46 45  | #&40..."STA &FE|
00000400  36 45 20 5c 20 44 49 53  41 42 4c 45 20 54 31 20  |6E \ DISABLE T1 |
00000410  a8 45 52 52 55 50 54 0d  02 26 1e 53 54 41 20 26  |.ERRUPT..&.STA &|
00000420  46 45 36 44 20 5c 20 d8  20 41 4e 59 20 a8 45 52  |FE6D \ . ANY .ER|
00000430  52 55 50 54 53 0d 02 30  20 43 4c 49 20 5c 20 45  |RUPTS..0 CLI \ E|
00000440  4e 41 42 4c 45 20 53 59  53 54 45 4d 20 a8 45 52  |NABLE SYSTEM .ER|
00000450  52 55 50 54 53 0d 02 3a  07 52 54 53 0d 02 44 19  |RUPTS..:.RTS..D.|
00000460  2e 53 4f 55 54 20 5c 20  50 4c 41 59 20 41 20 53  |.SOUT \ PLAY A S|
00000470  41 4d 50 4c 45 0d 02 4e  16 4a 53 52 20 53 45 54  |AMPLE..N.JSR SET|
00000480  55 50 3a 4a 53 52 20 49  4e 49 54 0d 02 58 24 4c  |UP:JSR INIT..X$L|
00000490  44 41 20 26 37 32 20 5c  20 54 52 41 4e 53 46 45  |DA &72 \ TRANSFE|
000004a0  52 20 53 54 41 52 54 20  41 44 44 52 45 53 53 0d  |R START ADDRESS.|
000004b0  02 62 0b 53 54 41 20 26  37 30 0d 02 6c 0b 4c 44  |.b.STA &70..l.LD|
000004c0  41 20 26 37 33 0d 02 76  0b 53 54 41 20 26 37 31  |A &73..v.STA &71|
000004d0  0d 02 80 09 2e 48 4f 55  54 0d 02 8a 1e 4c 44 41  |.....HOUT....LDA|
000004e0  20 26 46 45 36 44 20 5c  20 a5 20 a8 45 52 52 55  | &FE6D \ . .ERRU|
000004f0  50 54 20 46 4c 41 47 0d  02 94 1b 42 50 4c 20 48  |PT FLAG....BPL H|
00000500  4f 55 54 20 5c 20 4c 4f  4f 50 20 fd 20 91 20 4f  |OUT \ LOOP . . O|
00000510  55 54 0d 02 9e 19 53 54  41 20 26 46 45 36 44 20  |UT....STA &FE6D |
00000520  5c 20 d8 20 a8 45 52 52  55 50 54 0d 02 a8 1c 4c  |\ . .ERRUPT....L|
00000530  44 41 20 28 26 37 30 29  2c 59 20 5c 20 a5 20 41  |DA (&70),Y \ . A|
00000540  20 53 41 4d 50 4c 45 0d  02 b2 18 4a 53 52 20 53  | SAMPLE....JSR S|
00000550  4e 44 31 20 5c 20 4f 55  54 50 55 54 20 49 54 0d  |ND1 \ OUTPUT IT.|
00000560  02 bc 0b 49 4e 43 20 26  37 30 0d 02 c6 18 42 4e  |...INC &70....BN|
00000570  45 20 48 4f 55 54 20 5c  20 a5 20 41 4e 4f 54 48  |E HOUT \ . ANOTH|
00000580  45 52 0d 02 d0 21 49 4e  43 20 26 37 31 20 5c 20  |ER...!INC &71 \ |
00000590  49 4e 43 52 45 41 53 45  20 4d 53 20 50 4f 49 4e  |INCREASE MS POIN|
000005a0  54 45 52 0d 02 da 0c 4c  44 41 20 23 26 37 44 0d  |TER....LDA #&7D.|
000005b0  02 e4 1d 43 4d 50 20 26  37 31 20 5c 20 52 45 41  |...CMP &71 \ REA|
000005c0  43 48 45 44 20 4c 49 4d  49 54 20 3f 0d 02 ee 19  |CHED LIMIT ?....|
000005d0  42 4e 45 20 48 4f 55 54  20 5c 20 42 52 41 4e 43  |BNE HOUT \ BRANC|
000005e0  48 20 e7 20 ac 0d 02 f8  0b 4a 4d 50 20 46 49 4e  |H . .....JMP FIN|
000005f0  0d 03 02 20 2e 49 4e 49  54 20 5c 20 49 6e 69 74  |... .INIT \ Init|
00000600  69 6c 69 73 65 20 73 6f  75 6e 64 20 63 68 69 70  |ilise sound chip|
00000610  0d 03 0c 16 4c 44 41 20  23 26 46 46 3a 53 54 41  |....LDA #&FF:STA|
00000620  20 26 46 45 34 33 0d 03  16 14 4c 44 41 20 23 26  | &FE43....LDA #&|
00000630  38 34 3a 4a 53 52 20 53  4e 44 0d 03 20 14 4c 44  |84:JSR SND.. .LD|
00000640  41 20 23 26 30 30 3a 4a  53 52 20 53 4e 44 0d 03  |A #&00:JSR SND..|
00000650  2a 14 4c 44 41 20 23 26  41 34 3a 4a 53 52 20 53  |*.LDA #&A4:JSR S|
00000660  4e 44 0d 03 34 14 4c 44  41 20 23 26 30 30 3a 4a  |ND..4.LDA #&00:J|
00000670  53 52 20 53 4e 44 0d 03  3e 14 4c 44 41 20 23 26  |SR SND..>.LDA #&|
00000680  43 34 3a 4a 53 52 20 53  4e 44 0d 03 48 14 4c 44  |C4:JSR SND..H.LD|
00000690  41 20 23 26 30 30 3a 4a  53 52 20 53 4e 44 0d 03  |A #&00:JSR SND..|
000006a0  52 0a 4c 44 59 20 23 30  0d 03 5c 07 52 54 53 0d  |R.LDY #0..\.RTS.|
000006b0  03 66 08 2e 53 4e 44 0d  03 70 0d 53 54 41 20 26  |.f..SND..p.STA &|
000006c0  46 45 34 46 0d 03 7a 16  4c 44 58 20 23 26 30 30  |FE4F..z.LDX #&00|
000006d0  3a 53 54 58 20 26 46 45  34 30 0d 03 84 1b 4e 4f  |:STX &FE40....NO|
000006e0  50 3a 4e 4f 50 3a 4e 4f  50 3a 4e 4f 50 3a 4e 4f  |P:NOP:NOP:NOP:NO|
000006f0  50 3a 4e 4f 50 0d 03 8e  16 4c 44 58 20 23 26 30  |P:NOP....LDX #&0|
00000700  38 3a 53 54 58 20 26 46  45 34 30 0d 03 98 07 52  |8:STX &FE40....R|
00000710  54 53 0d 03 a2 09 2e 53  4e 44 31 0d 03 ac 07 54  |TS.....SND1....T|
00000720  41 58 0d 03 b6 1c 4c 44  41 20 26 39 30 30 2c 58  |AX....LDA &900,X|
00000730  20 5c 20 43 4f 4e 56 45  52 54 20 b8 20 ab 0d 03  | \ CONVERT . ...|
00000740  c0 13 84 41 20 23 26 39  30 3a 4a 53 52 20 53 4e  |...A #&90:JSR SN|
00000750  44 0d 03 ca 13 84 41 20  23 26 32 30 3a 4a 53 52  |D.....A #&20:JSR|
00000760  20 53 4e 44 0d 03 d4 12  82 20 23 26 36 30 3a 4a  | SND..... #&60:J|
00000770  53 52 20 53 4e 44 0d 03  de 07 52 54 53 0d 03 e8  |SR SND....RTS...|
00000780  05 5d 0d 03 f2 05 ed 0d  03 fc 06 eb 31 0d 04 06  |.]..........1...|
00000790  12 f2 5f 49 4e 53 54 52  55 43 54 49 4f 4e 53 0d  |.._INSTRUCTIONS.|
000007a0  04 10 0b 43 44 25 3d 31  38 30 0d 04 1a 0c 3f 26  |...CD%=180....?&|
000007b0  46 45 36 32 3d 36 0d 04  24 0c 3f 26 46 43 43 37  |FE62=6..$.?&FCC7|
000007c0  3d 30 0d 04 2e 0e 3f 26  46 43 43 36 3d 43 44 25  |=0....?&FCC6=CD%|
000007d0  0d 04 38 0c 3f 26 37 30  3d 26 30 30 0d 04 42 0c  |..8.?&70=&00..B.|
000007e0  3f 26 37 32 3d 26 30 30  0d 04 4c 0c 3f 26 37 31  |?&72=&00..L.?&71|
000007f0  3d 26 33 30 0d 04 56 0c  3f 26 37 33 3d 26 33 30  |=&30..V.?&73=&30|
00000800  0d 04 60 05 f5 0d 04 6a  12 f1 8a 30 2c 33 31 29  |..`....j...0,31)|
00000810  3b 89 28 33 38 29 3b 0d  04 74 17 f1 8a 30 2c 33  |;.(38);..t...0,3|
00000820  31 29 3b 22 28 53 20 73  70 20 52 29 22 3b 0d 04  |1);"(S sp R)";..|
00000830  7e 08 41 24 3d be 0d 04  88 25 e7 20 41 24 3d 22  |~.A$=....%. A$="|
00000840  53 22 20 8c 20 3f 26 37  30 3d 30 30 3a 3f 26 37  |S" . ?&70=00:?&7|
00000850  31 3d 26 33 30 3a d6 20  47 49 4e 0d 04 92 26 e7  |1=&30:. GIN...&.|
00000860  20 41 24 3d 22 20 22 20  8c 20 3f 26 37 30 3d 30  | A$=" " . ?&70=0|
00000870  30 3a 3f 26 37 31 3d 26  33 30 3a d6 20 53 4f 55  |0:?&71=&30:. SOU|
00000880  54 0d 04 9c 15 e7 20 41  24 3d 22 52 22 20 8c 20  |T..... A$="R" . |
00000890  f2 5f 52 41 54 45 0d 04  a6 07 fd 20 a3 0d 04 b0  |._RATE..... ....|
000008a0  0c dd 20 f2 5f 52 41 54  45 0d 04 ba 26 f1 22 44  |.. ._RATE...&."D|
000008b0  45 4c 41 59 20 22 3b 43  44 25 3b 22 20 49 4e 50  |ELAY ";CD%;" INP|
000008c0  55 54 20 4e 45 57 20 56  41 4c 55 45 20 22 3b 0d  |UT NEW VALUE ";.|
000008d0  04 c4 09 54 24 3d 22 22  0d 04 ce 05 f5 0d 04 d8  |...T$=""........|
000008e0  08 41 24 3d be 0d 04 e2  17 e7 20 41 24 3c 3e 20  |.A$=...... A$<> |
000008f0  bd 28 31 33 29 20 8c 20  f1 41 24 3b 0d 04 ec 0c  |.(13) . .A$;....|
00000900  54 24 3d 54 24 2b 41 24  0d 04 f6 0e fd 20 41 24  |T$=T$+A$..... A$|
00000910  3d bd 28 31 33 29 0d 05  00 0d 43 44 25 3d bb 28  |=.(13)....CD%=.(|
00000920  54 24 29 0d 05 0a 0e 3f  26 46 45 36 36 3d 43 44  |T$)....?&FE66=CD|
00000930  25 0d 05 14 05 e1 0d 05  1e 14 dd 20 f2 5f 49 4e  |%.......... ._IN|
00000940  53 54 52 55 43 54 49 4f  4e 53 0d 05 28 20 f1 22  |STRUCTIONS..( ."|
00000950  42 45 45 42 20 42 4f 44  59 20 42 55 49 4c 44 49  |BEEB BODY BUILDI|
00000960  4e 47 20 43 4f 55 52 53  45 22 0d 05 32 14 f1 22  |NG COURSE"..2.."|
00000970  53 4f 55 4e 44 20 53 41  4d 50 4c 45 52 22 0d 05  |SOUND SAMPLER"..|
00000980  3c 13 f1 22 4a 41 4e 55  41 52 59 20 31 39 39 32  |<.."JANUARY 1992|
00000990  22 0d 05 46 13 f1 22 42  79 20 4d 69 6b 65 20 43  |"..F.."By Mike C|
000009a0  6f 6f 6b 22 0d 05 50 05  f1 0d 05 5a 14 f1 22 4f  |ook"..P....Z.."O|
000009b0  70 74 69 6f 6e 73 20 61  72 65 3a 2d 22 0d 05 64  |ptions are:-"..d|
000009c0  18 f1 22 53 20 20 2d 20  53 61 6d 70 6c 65 20 69  |.."S  - Sample i|
000009d0  6e 70 75 74 22 0d 05 6e  1c f1 22 73 70 20 2d 20  |nput"..n.."sp - |
000009e0  50 6c 61 79 20 62 61 63  6b 20 73 61 6d 70 6c 65  |Play back sample|
000009f0  22 0d 05 78 1e f1 22 52  20 20 2d 20 52 61 74 65  |"..x.."R  - Rate|
00000a00  20 6f 66 20 64 69 67 69  74 69 73 69 6e 67 22 0d  | of digitising".|
00000a10  05 82 05 e1 0d ff                                 |......|
00000a16
Q.SoftSmp.m0
Q.SoftSmp.m1
Q.SoftSmp.m2
Q.SoftSmp.m4
Q.SoftSmp.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .