Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape33b_acorn_eu_1992_april.wav » Q.S&C

Q.S&C

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.S&C
Read OK: ✔
File size: 0595 bytes
Load address: FFFF1900
Exec address: FFFF801F
Duplicates

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

File contents
   10MODE 7
   20PRINT"Body Build Sound Sampler"
   30PRINT"Jan 1992 Micro User"
   40PRINT"Sample and save as a Log File"
   50DIM CODE% 200,LT%(256)
   60F$=""
   70PROC_Cinit
   80PROC_TAB
   90MODE 1
  100REPEAT
  110CLS
  120PRINT:PRINT
  130IF F$="" THEN INPUT"File name for the sample ",F$
  140PRINT TAB(0,5)"When sample is compleat press"
  150PRINT"D - To save on disc"
  160PRINT"    this will take 60 seconds"
  170PRINT TAB(0,9)"OR any key to sample again"
  180PRINT TAB(0,12)"Press Space NOW to sample"
  190A$=GET$
  200CALL SBUF
  210A$=GET$
  220IF A$="D" OR A$="d" THEN PROC_CONV
  230UNTIL FALSE
  240END
  250DEF PROC_Cinit
  260FOR N%=0 TO 2 STEP 2
  270P%=&900
  280[
  290OPT N%
  300.PINT \ PORT INITILISATION
  310LDA #&06
  320STA &FE62
  330STA &FE60
  340RTS
  350.SAMP1
  360LDX #10 \ NUMBER OF PULSES
  370LDA #&0
  380STA &FE60 \ CS AND CLOCK LOW
  390.SLOOP
  400LDA &FE60 \ GET DATA
  410LSR A:ROL &70 \ MOVE BIT INTO MEMORY 
  420LDA #&2 \ CLOCK HIGH
  430STA &FE60
  440LDA #0 \ CLOCK LOW
  450STA &FE60
  460DEX
  470BNE SLOOP
  480LDA #&6
  490STA &FE60
  500RTS
  510.SBUF
  520SEI \ STOP INTERRUPTS
  530LDA #0 \ SAMPLE BUFFER ADDRESS
  540STA &72
  550LDA #&30
  560STA &73
  570.SBL
  580JSR SAMP1
  590LDX #0
  600LDA &70 \ GET SAMPLE
  610STA (&72,X)
  620INC &72
  630BNE NC1
  640INC &73
  650.NC1 LDA &73
  660CMP #&80
  670BNE SBL
  680CLI \ ENABLE INTERRUPTS
  690RTS
  700]
  710NEXT
  720CALL PINT
  730ENDPROC
  740DEF PROC_TAB
  750PRINT"Please wait a second"
  760V=15/LOG(255)
  770FOR A%=1 TO 255
  780LT%(A%)=15-INT(LOG(A%)*V)
  790NEXT
  800LT%(0)=15
  810ENDPROC
  820DEF PROC_CONV
  830F%=OPENOUT(F$)
  840FOR A%=&3000 TO &8000 STEP 2
  850S1%=LT%(A%?0)
  860S2%=LT%(A%?1)
  870S%=S1% OR (S2%*16)
  880BPUT#F%,S%
  890NEXT
  900CLOSE#F%
  910F$=""
  920ENDPROC


� 7
�"Body Build Sound Sampler"
�"Jan 1992 Micro User"
($�"Sample and save as a Log File"
2� CODE% 200,LT%(256)
<	F$=""
F�_Cinit
P	�_TAB
Z� 1
d�
n�
x�:�
�-� F$="" � �"File name for the sample ",F$
�*� �0,5)"When sample is compleat press"
��"D - To save on disc"
�$�"    this will take 60 seconds"
�'� �0,9)"OR any key to sample again"
�'� �0,12)"Press Space NOW to sample"
�A$=�
�
� SBUF
�A$=�
�� A$="D" � A$="d" � �_CONV
�� �
��
�
� �_Cinit
� N%=0 � 2 � 2
P%=&900
[
"
OPT N%
,.PINT \ PORT INITILISATION
6LDA #&06
@
STA &FE62
J
STA &FE60
TRTS
^
.SAMP1
hLDX #10 \ NUMBER OF PULSES
rLDA #&0
|STA &FE60 \ CS � CLOCK LOW
�
.SLOOP
�LDA &FE60 \ � �
�$LSR A:ROL &70 \ � BIT �O MEMORY 
�LDA #&2 \ CLOCK HIGH
�
STA &FE60
�LDA #0 \ CLOCK LOW
�
STA &FE60
�DEX
�
BNE SLOOP
�LDA #&6
�
STA &FE60
�RTS
�	.SBUF
SEI \ � �ERRUPTS
"LDA #0 \ SAMPLE BUFFER ADDRESS
STA &72
&LDA #&30
0STA &73
:.SBL
D
JSR SAMP1
N
LDX #0
XLDA &70 \ � SAMPLE
bSTA (&72,X)
lINC &72
vBNE NC1
�INC &73
�.NC1 LDA &73
�CMP #&80
�BNE SBL
�CLI \ ENABLE �ERRUPTS
�RTS
�]
��
�
� PINT
��
�� �_TAB
��"Please wait a second"
�V=15/�(255)
� A%=1 � 255
LT%(A%)=15-�(�(A%)*V)
�
 
LT%(0)=15
*�
4� �_CONV
>F%=�(F$)
H� A%=&3000 � &8000 � 2
RS1%=LT%(A%?0)
\S2%=LT%(A%?1)
fS%=S1% � (S2%*16)
p�#F%,S%
z�
��#F%
�	F$=""
��
�
00000000  0d 00 0a 07 eb 20 37 0d  00 14 1f f1 22 42 6f 64  |..... 7....."Bod|
00000010  79 20 42 75 69 6c 64 20  53 6f 75 6e 64 20 53 61  |y Build Sound Sa|
00000020  6d 70 6c 65 72 22 0d 00  1e 1a f1 22 4a 61 6e 20  |mpler"....."Jan |
00000030  31 39 39 32 20 4d 69 63  72 6f 20 55 73 65 72 22  |1992 Micro User"|
00000040  0d 00 28 24 f1 22 53 61  6d 70 6c 65 20 61 6e 64  |..($."Sample and|
00000050  20 73 61 76 65 20 61 73  20 61 20 4c 6f 67 20 46  | save as a Log F|
00000060  69 6c 65 22 0d 00 32 18  de 20 43 4f 44 45 25 20  |ile"..2.. CODE% |
00000070  32 30 30 2c 4c 54 25 28  32 35 36 29 0d 00 3c 09  |200,LT%(256)..<.|
00000080  46 24 3d 22 22 0d 00 46  0b f2 5f 43 69 6e 69 74  |F$=""..F.._Cinit|
00000090  0d 00 50 09 f2 5f 54 41  42 0d 00 5a 07 eb 20 31  |..P.._TAB..Z.. 1|
000000a0  0d 00 64 05 f5 0d 00 6e  05 db 0d 00 78 07 f1 3a  |..d....n....x..:|
000000b0  f1 0d 00 82 2d e7 20 46  24 3d 22 22 20 8c 20 e8  |....-. F$="" . .|
000000c0  22 46 69 6c 65 20 6e 61  6d 65 20 66 6f 72 20 74  |"File name for t|
000000d0  68 65 20 73 61 6d 70 6c  65 20 22 2c 46 24 0d 00  |he sample ",F$..|
000000e0  8c 2a f1 20 8a 30 2c 35  29 22 57 68 65 6e 20 73  |.*. .0,5)"When s|
000000f0  61 6d 70 6c 65 20 69 73  20 63 6f 6d 70 6c 65 61  |ample is complea|
00000100  74 20 70 72 65 73 73 22  0d 00 96 1a f1 22 44 20  |t press"....."D |
00000110  2d 20 54 6f 20 73 61 76  65 20 6f 6e 20 64 69 73  |- To save on dis|
00000120  63 22 0d 00 a0 24 f1 22  20 20 20 20 74 68 69 73  |c"...$."    this|
00000130  20 77 69 6c 6c 20 74 61  6b 65 20 36 30 20 73 65  | will take 60 se|
00000140  63 6f 6e 64 73 22 0d 00  aa 27 f1 20 8a 30 2c 39  |conds"...'. .0,9|
00000150  29 22 4f 52 20 61 6e 79  20 6b 65 79 20 74 6f 20  |)"OR any key to |
00000160  73 61 6d 70 6c 65 20 61  67 61 69 6e 22 0d 00 b4  |sample again"...|
00000170  27 f1 20 8a 30 2c 31 32  29 22 50 72 65 73 73 20  |'. .0,12)"Press |
00000180  53 70 61 63 65 20 4e 4f  57 20 74 6f 20 73 61 6d  |Space NOW to sam|
00000190  70 6c 65 22 0d 00 be 08  41 24 3d be 0d 00 c8 0a  |ple"....A$=.....|
000001a0  d6 20 53 42 55 46 0d 00  d2 08 41 24 3d be 0d 00  |. SBUF....A$=...|
000001b0  dc 1e e7 20 41 24 3d 22  44 22 20 84 20 41 24 3d  |... A$="D" . A$=|
000001c0  22 64 22 20 8c 20 f2 5f  43 4f 4e 56 0d 00 e6 07  |"d" . ._CONV....|
000001d0  fd 20 a3 0d 00 f0 05 e0  0d 00 fa 0d dd 20 f2 5f  |. ........... ._|
000001e0  43 69 6e 69 74 0d 01 04  12 e3 20 4e 25 3d 30 20  |Cinit..... N%=0 |
000001f0  b8 20 32 20 88 20 32 0d  01 0e 0b 50 25 3d 26 39  |. 2 . 2....P%=&9|
00000200  30 30 0d 01 18 05 5b 0d  01 22 0a 4f 50 54 20 4e  |00....[..".OPT N|
00000210  25 0d 01 2c 1e 2e 50 49  4e 54 20 5c 20 50 4f 52  |%..,..PINT \ POR|
00000220  54 20 49 4e 49 54 49 4c  49 53 41 54 49 4f 4e 0d  |T INITILISATION.|
00000230  01 36 0c 4c 44 41 20 23  26 30 36 0d 01 40 0d 53  |.6.LDA #&06..@.S|
00000240  54 41 20 26 46 45 36 32  0d 01 4a 0d 53 54 41 20  |TA &FE62..J.STA |
00000250  26 46 45 36 30 0d 01 54  07 52 54 53 0d 01 5e 0a  |&FE60..T.RTS..^.|
00000260  2e 53 41 4d 50 31 0d 01  68 1e 4c 44 58 20 23 31  |.SAMP1..h.LDX #1|
00000270  30 20 5c 20 4e 55 4d 42  45 52 20 4f 46 20 50 55  |0 \ NUMBER OF PU|
00000280  4c 53 45 53 0d 01 72 0b  4c 44 41 20 23 26 30 0d  |LSES..r.LDA #&0.|
00000290  01 7c 1e 53 54 41 20 26  46 45 36 30 20 5c 20 43  |.|.STA &FE60 \ C|
000002a0  53 20 80 20 43 4c 4f 43  4b 20 4c 4f 57 0d 01 86  |S . CLOCK LOW...|
000002b0  0a 2e 53 4c 4f 4f 50 0d  01 90 13 4c 44 41 20 26  |..SLOOP....LDA &|
000002c0  46 45 36 30 20 5c 20 a5  20 dc 0d 01 9a 24 4c 53  |FE60 \ . ....$LS|
000002d0  52 20 41 3a 52 4f 4c 20  26 37 30 20 5c 20 ec 20  |R A:ROL &70 \ . |
000002e0  42 49 54 20 a8 4f 20 4d  45 4d 4f 52 59 20 0d 01  |BIT .O MEMORY ..|
000002f0  a4 18 4c 44 41 20 23 26  32 20 5c 20 43 4c 4f 43  |..LDA #&2 \ CLOC|
00000300  4b 20 48 49 47 48 0d 01  ae 0d 53 54 41 20 26 46  |K HIGH....STA &F|
00000310  45 36 30 0d 01 b8 16 4c  44 41 20 23 30 20 5c 20  |E60....LDA #0 \ |
00000320  43 4c 4f 43 4b 20 4c 4f  57 0d 01 c2 0d 53 54 41  |CLOCK LOW....STA|
00000330  20 26 46 45 36 30 0d 01  cc 07 44 45 58 0d 01 d6  | &FE60....DEX...|
00000340  0d 42 4e 45 20 53 4c 4f  4f 50 0d 01 e0 0b 4c 44  |.BNE SLOOP....LD|
00000350  41 20 23 26 36 0d 01 ea  0d 53 54 41 20 26 46 45  |A #&6....STA &FE|
00000360  36 30 0d 01 f4 07 52 54  53 0d 01 fe 09 2e 53 42  |60....RTS.....SB|
00000370  55 46 0d 02 08 14 53 45  49 20 5c 20 fa 20 a8 45  |UF....SEI \ . .E|
00000380  52 52 55 50 54 53 0d 02  12 22 4c 44 41 20 23 30  |RRUPTS..."LDA #0|
00000390  20 5c 20 53 41 4d 50 4c  45 20 42 55 46 46 45 52  | \ SAMPLE BUFFER|
000003a0  20 41 44 44 52 45 53 53  0d 02 1c 0b 53 54 41 20  | ADDRESS....STA |
000003b0  26 37 32 0d 02 26 0c 4c  44 41 20 23 26 33 30 0d  |&72..&.LDA #&30.|
000003c0  02 30 0b 53 54 41 20 26  37 33 0d 02 3a 08 2e 53  |.0.STA &73..:..S|
000003d0  42 4c 0d 02 44 0d 4a 53  52 20 53 41 4d 50 31 0d  |BL..D.JSR SAMP1.|
000003e0  02 4e 0a 4c 44 58 20 23  30 0d 02 58 16 4c 44 41  |.N.LDX #0..X.LDA|
000003f0  20 26 37 30 20 5c 20 a5  20 53 41 4d 50 4c 45 0d  | &70 \ . SAMPLE.|
00000400  02 62 0f 53 54 41 20 28  26 37 32 2c 58 29 0d 02  |.b.STA (&72,X)..|
00000410  6c 0b 49 4e 43 20 26 37  32 0d 02 76 0b 42 4e 45  |l.INC &72..v.BNE|
00000420  20 4e 43 31 0d 02 80 0b  49 4e 43 20 26 37 33 0d  | NC1....INC &73.|
00000430  02 8a 10 2e 4e 43 31 20  4c 44 41 20 26 37 33 0d  |....NC1 LDA &73.|
00000440  02 94 0c 43 4d 50 20 23  26 38 30 0d 02 9e 0b 42  |...CMP #&80....B|
00000450  4e 45 20 53 42 4c 0d 02  a8 19 43 4c 49 20 5c 20  |NE SBL....CLI \ |
00000460  45 4e 41 42 4c 45 20 a8  45 52 52 55 50 54 53 0d  |ENABLE .ERRUPTS.|
00000470  02 b2 07 52 54 53 0d 02  bc 05 5d 0d 02 c6 05 ed  |...RTS....].....|
00000480  0d 02 d0 0a d6 20 50 49  4e 54 0d 02 da 05 e1 0d  |..... PINT......|
00000490  02 e4 0b dd 20 f2 5f 54  41 42 0d 02 ee 1b f1 22  |.... ._TAB....."|
000004a0  50 6c 65 61 73 65 20 77  61 69 74 20 61 20 73 65  |Please wait a se|
000004b0  63 6f 6e 64 22 0d 02 f8  0f 56 3d 31 35 2f ab 28  |cond"....V=15/.(|
000004c0  32 35 35 29 0d 03 02 10  e3 20 41 25 3d 31 20 b8  |255)..... A%=1 .|
000004d0  20 32 35 35 0d 03 0c 19  4c 54 25 28 41 25 29 3d  | 255....LT%(A%)=|
000004e0  31 35 2d a8 28 ab 28 41  25 29 2a 56 29 0d 03 16  |15-.(.(A%)*V)...|
000004f0  05 ed 0d 03 20 0d 4c 54  25 28 30 29 3d 31 35 0d  |.... .LT%(0)=15.|
00000500  03 2a 05 e1 0d 03 34 0c  dd 20 f2 5f 43 4f 4e 56  |.*....4.. ._CONV|
00000510  0d 03 3e 0c 46 25 3d ae  28 46 24 29 0d 03 48 1a  |..>.F%=.(F$)..H.|
00000520  e3 20 41 25 3d 26 33 30  30 30 20 b8 20 26 38 30  |. A%=&3000 . &80|
00000530  30 30 20 88 20 32 0d 03  52 11 53 31 25 3d 4c 54  |00 . 2..R.S1%=LT|
00000540  25 28 41 25 3f 30 29 0d  03 5c 11 53 32 25 3d 4c  |%(A%?0)..\.S2%=L|
00000550  54 25 28 41 25 3f 31 29  0d 03 66 15 53 25 3d 53  |T%(A%?1)..f.S%=S|
00000560  31 25 20 84 20 28 53 32  25 2a 31 36 29 0d 03 70  |1% . (S2%*16)..p|
00000570  0b d5 23 46 25 2c 53 25  0d 03 7a 05 ed 0d 03 84  |..#F%,S%..z.....|
00000580  08 d9 23 46 25 0d 03 8e  09 46 24 3d 22 22 0d 03  |..#F%....F$=""..|
00000590  98 05 e1 0d ff                                    |.....|
00000595
Q.S&C.m0
Q.S&C.m1
Q.S&C.m2
Q.S&C.m4
Q.S&C.m5

© Dominic Ford 2021–2024.

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