Home » Archimedes archive » Micro User » MU 1992-04.adf » Listings » 32bit/!Echo/!Run
32bit/!Echo/!Run
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 » Archimedes archive » Micro User » MU 1992-04.adf » Listings |
| Filename: | 32bit/!Echo/!Run |
| Read OK: | ✔ |
| File size: | 1392 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >!Echo.!Run
20REM Sound Sampler Echo Chamber By Mike Cook
30MODE13
40DIM CODE% &300,LUT% 256,CV(8)
50PROC_Title2
60PRINT TAB(0,5)"You need the Sound Sampler for this"
70PRINT"Any key to continue"
80A$=GET$
90PROC_CSU
100PROC_ILUT
110REPEAT
120PROC_Title
130*FX15,0
140A$=GET$
150CASE A$ OF
160WHEN "E","e" :?Bmark=0:PROC_ECHO
170WHEN "R","r" :?Bmark=&FF:PROC_ECHO
180WHEN "B","b" :PROC_Bsize
190WHEN "S","s" :PROC_Speed
200WHEN "O","o" :PROC_Ofset
210WHEN "Q","q" :END
220ENDCASE
230UNTIL FALSE
240
250DEF PROC_Ofset
260PRINTTAB(0,10)"Pointer offset - 1 to Buffer size";
270REPEAT
280INPUT S
290IF S<1 OR S>!BIB THEN PRINT"Values between 1 and Buffer size"
300UNTIL NOT(S<1 OR S>!BIB)
310!BOS=S
320ENDPROC
330
340DEF PROC_ECHO
350TIME=0
360REPEAT UNTIL TIME>40
370*AUDIO ON
380PRINT TAB(25,28);"Any Key to stop";
390CALL SAMP
400*AUDIO OFF
410ENDPROC
420
430DEF PROC_Bsize
440PRINTTAB(0,10)"New buffer size - 0.25 to 80K";
450REPEAT
460INPUT S
470IF S<0.25 OR S>80 THEN PRINT"Values between 0.25 and 80"
480UNTIL NOT(S<0.25 OR S>80)
490!BIB=S*1024 AND NOT(3)
500ENDPROC
510
520DEF PROC_Speed
530PRINTTAB(0,10)"New output speed - 128 is no shift ";
540REPEAT
550INPUT S
560IF S<3 OR S>255 THEN PRINT"Values between 3 and 255"
570UNTIL NOT(S<3 OR S>255)
580?SPE3=S-1
590ENDPROC
600
610DEF PROC_Title
620CLS
630PRINT TAB(0,20)"E - Enter the Echo Chamber"
640PRINT"R - Reverse Echo"
650PRINT"B - Buffer Size now ";!BIB/1024;"K"
660PRINT"S - Speed setting now ";?SPE3+1;"uS"
670PRINT"O - Offset pointer now ";!BOS;" samples"
680PRINT"Q - Quit"
690PROC_Title2
700ENDPROC
710DEF PROC_Title2
720PRINT TAB(0,29)"THE BEEB BODY BUILDING COURSE"
730PRINT SPC(9);"By Mike Cook"
740PRINT " Sound Sampler Echo Chamber";
750ENDPROC
760
770DEF PROC_CSU :REM CODE SETUP
780FOR A=0 TO 2 STEP 2
790P%=CODE%
800[
810OPT A
820.SAMP
830MOV R0,#&18 \ UNUSED VECTOR NUMBER
840ADR R1,GS \ ROUTINE TO CALL ON UNKNOWN SWI
850MOV R2,#0 \ NUMBER TO PASS TO CALLING ROUTINE
860SWI "OS_Claim" \ CLAME VECTOR
870SWI &80101 \ UNUSED VECTOR TO CALL READ IN ROUTINE
880MOV R2,#0
890MOV R0,#&18 \ VECTOR NUMBER
900ADR R1,GS
910SWI &20 \ RELESE VECTOR
920MOV R15,R14 \ BACK TO BASIC
930
940.LUA EQUD 0 \ LOOK UP TABLE ADDRESS
950.SOB EQUD &2000000 \ START OF SOUND BUFFER
960.BIB EQUD &8000 \ BYTES IN BUFFER
970.SPE1 EQUD 0 \ LSB OF SPEED
980.SPE2 EQUD 1 \ MSB OF SPEED
990.SPE3 EQUD 127 \ OUTPUT SPEED
1000.BOS EQUD 60 \ BUFFER OFFSET
1010.Bmark EQUD 0 \ BACKWARDS MARKER
1020
1030.GS \ GATHER SOUND
1040TEQP R15,#&C000003 \DISABLE INTERRUPTS
1050LDR R1,SOB \ CLEAR THE BUFFER
1060LDR R2,BIB
1070MOV R3,#15 \ VALUE TO CLEAR TO
1080.CLOP
1090STRB R3,[R2,R1]
1100SUBS R2,R2,#1
1110BNE CLOP
1120
1130MOV R0,#&3400000 \ Base address of VIDC
1140LDR R2,SPE3 \ Output speed
1150ORR R2,R2,#&100 \ Set bit 8
1160ORR R2,R2,#&C0000000 \ Sound F reg
1170STR R2,[R0] \ Set up sound F
1180
1190MOV R0,#&3600000 \ Base address of MEMC
1200LDR R3,BIB
1210MOV R3,R3,ASR #2
1220BIC R3,R3,#3
1230ORR R3,R3,#&A0000 \ Send buffer
1240STR R0,[R0,R3] \ Write to it
1250MOV R3,#&80000 \ Sstart buffer
1260STR R3,[R0,R3] \ Write to it
1270
1280MOV R0,#&3200000 \ BASE ADDRESS OF IOC
1290ADD R1,R0,#&50000 \ Offset OF PRINTER LATCH
1300
1310LDR R8,Bmark \ BACKWARDS MARKER
1320LDR R7,BIB \ BYTES IN BUFFER
1330LDR R6,SOB \ START OF BUFFER
1340TST R8,#&FF
1350ADDNE R6,R6,R7
1360LDR R2,SPE2 \ T1 VALUE HIGH
1370MOV R2,R2,ASL #16
1380STR R2,[R0,#&54] \ T1 LATCH HIGH
1390LDR R2,SPE1 \ T1 VALUE LOW
1400MOV R2,R2,ASL #16
1410STR R2,[R0,#&50] \ T1 LATCH LOW
1420
1430LDR R2,[R0,#&18] \ GET IRQ MASK
1440ORR R2,R2,#&40 \ ENABLE T1
1450MOV R2,R2,LSL #16
1460STR R2,[R0,#&18] \ MASK REG
1470
1480MOV R2,#&400000 \ CLEAR T1 INTERRUPT
1490STR R2,[R0,#&14] \ IRQ CLEAR
1500STR R2,[R0,#&58] \ GO T1
1510
1520LDR R3,BOS \ SAMPLE OFFSET
1530.FLOOP \ DELAY LOOP AT START
1540LDRB R2,[R0,#&10]
1550TST R2,#&40
1560BEQ FLOOP
1570MOV R2,#&400000 \ CLEAR T1 INTERRUPT
1580STR R2,[R0,#&14] \ IRQ CLEAR
1590SUBS R3,R3,#1
1600BNE FLOOP
1610
1620.TLOOP \ DELAY LOOP FOR TIMER T1
1630LDRB R2,[R0,#&10]
1640TST R2,#&40
1650BEQ TLOOP
1660MOV R2,#&400000 \ CLEAR T1 INTERRUPT
1670STR R2,[R0,#&14] \ IRQ CLEAR
1680
1690\ TAKE ONE SAMPLE
1700MOV R2,#0 \ CHIP SELECT LOW
1710STR R2,[R1,#&10]
1720MOV R3,#&A \ BITS TO READ IN
1730MOV R5,#0 \ COLLECT BITS HERE
1740.LOOP1
1750LDR R4,[R0,#&10] \ GET DATA
1760MOV R2,#&10000 \ CLOCK HIGH
1770STR R2,[R1,#&10] \ PUT OUT TO PRINTER
1780AND R4,R4,#1 \ MASK DATA BIT
1790MOV R5,R5,LSL #1 \ PREPARE R5 TO RECIEVE IT
1800ORR R5,R5,R4 \ MIX IT IN WITH R5
1810MOV R2,#0 \ CLOCK LOW
1820STR R2,[R1,#&10]
1830SUBS R3,R3,#1
1840BNE LOOP1
1850MOV R2,#&20000 \ CHIP SELECT HIGH
1860STR R2,[R1,#&10]
1870AND R5,R5,#&FF \ MASK OFF START BIT
1880\R5 NOW HAS SAMPLE
1890LDR R4,LUA \ LOOK UP TABLE ADDRESS
1900LDRB R5,[R4,R5] \ Convert to log form
1910STRB R5,[R6],#1 \ PUT IT IN THE BUFFER
1920TST R8,#&FF
1930SUBNE R6,R6,#2 \ MOVE POINTER BACK
1940SUBS R7,R7,#1 \ DECREMENT BYTES TO GO
1950BNE TLOOP \ BACK UNTILL ALL DONE
1960LDR R7,BIB
1970LDR R6,SOB
1980TST R8,#&FF
1990ADDNE R6,R6,R7
2000LDRB R2,[R0,#&20] \ LOOK FOR A KEY
2010TST R2,#&80
2020BEQ TLOOP
2030
2040\PREPARE TO EXIT
2050MOV R2,#&400000 \ CLEAR T1 INTERRUPT
2060STR R2,[R0,#&14] \ IRQ CLEAR
2070LDR R2,[R0,#&18] \ GET IRQ MASK
2080AND R2,R2,#&BF \ ENABLE T1
2090MOV R2,R2,LSL #16
2100STR R2,[R0,#&18] \ MASK REG
2110LDMFD R13!, {PC} \ BACK FROM WHENST YOU CAME
2120]
2130NEXT
2140ENDPROC
2150
2160DEF PROC_ILUT
2170*VOLUME 127
2180FOR A%=0 TO 7
2190READ CV(A%)
2200NEXT
2210DATA 0,1,3,7,15,63,127,247
2220
2230FOR A%= 0 TO 255
2240T%=(128-A%)<<24
2250SYS"Sound_SoundLog",T% TO B%
2260?(A%+LUT%)=B%
2270NEXT
2280?LUT%=254
2290!LUA=LUT%
2300ENDPROC
� >!Echo.!Run
-� Sound Sampler Echo Chamber By Mike Cook
�13
( � CODE% &300,LUT% 256,CV(8)
2 �_Title2
<0� �0,5)"You need the Sound Sampler for this"
F�"Any key to continue"
PA$=�
Z �_CSU
d
�_ILUT
n�
x �_Title
� *FX15,0
�A$=�
� Ȏ A$ �
� � "E","e" :?Bmark=0:�_ECHO
� � "R","r" :?Bmark=&FF:�_ECHO
�� "B","b" :�_Bsize
�� "S","s" :�_Speed
�� "O","o" :�_Ofset
�� "Q","q" :�
��
�� �
�
�
� �_Ofset
/�0,10)"Pointer offset - 1 to Buffer size";
�
� S
"8� S<1 � S>!BIB � �"Values between 1 and Buffer size"
,� �(S<1 � S>!BIB)
6
!BOS=S
@�
J
T � �_ECHO
^�=0
h � � �>40
r
*AUDIO ON
| � �25,28);"Any Key to stop";
�
� SAMP
�*AUDIO OFF
��
�
�
� �_Bsize
�+�0,10)"New buffer size - 0.25 to 80K";
��
�� S
�3� S<0.25 � S>80 � �"Values between 0.25 and 80"
�� �(S<0.25 � S>80)
�!BIB=S*1024 � �(3)
��
�
� �_Speed
1�0,10)"New output speed - 128 is no shift ";
�
&� S
0/� S<3 � S>255 � �"Values between 3 and 255"
:� �(S<3 � S>255)
D
?SPE3=S-1
N�
X
b
� �_Title
l�
v(� �0,20)"E - Enter the Echo Chamber"
��"R - Reverse Echo"
�)�"B - Buffer Size now ";!BIB/1024;"K"
�*�"S - Speed setting now ";?SPE3+1;"uS"
�.�"O - Offset pointer now ";!BOS;" samples"
��"Q - Quit"
� �_Title2
��
�� �_Title2
�+� �0,29)"THE BEEB BODY BUILDING COURSE"
�� �(9);"By Mike Cook"
�$� " Sound Sampler Echo Chamber";
��
�
� �_CSU :� CODE SETUP
� A=0 � 2 � 2
P%=CODE%
[
* OPT A
4 .SAMP
>&MOV R0,#&18 \ UNUSED VECTOR NUMBER
H)ADR R1,GS \ ROUTINE � � � UNKNOWN SWI
R,MOV R2,#0 \ NUMBER � PASS � �ING ROUTINE
\!SWI "OS_Claim" \ CLAME VECTOR
f/SWI &80101 \ UNUSED VECTOR � � � IN ROUTINE
p
MOV R2,#0
z MOV R0,#&18 \ VECTOR NUMBER
�
ADR R1,GS
�SWI &20 \ RELESE VECTOR
� MOV R15,R14 \ BACK � BASIC
�
�'.LUA EQUD 0 \ LOOK UP TABLE ADDRESS
�).SOB EQUD &2000000 \ START � � BUFFER
�%.BIB EQUD &8000 \ BYTES IN BUFFER
� .SPE1 EQUD 0 \ LSB � SPEED
� .SPE2 EQUD 1 \ MSB � SPEED
�!.SPE3 EQUD 127 \ OUTPUT SPEED
� .BOS EQUD 60 \ BUFFER �SET
�$.Bmark EQUD 0 \ BACKWARDS MARKER
�
.GS \ GATHER �
(TEQP R15,#&C000003 \DISABLE �ERRUPTS
LDR R1,SOB \ � THE BUFFER
$LDR R2,BIB
.MOV R3,#15 \ �UE � � �
8 .CLOP
BSTRB R3,[R2,R1]
LSUBS R2,R2,#1
V BNE CLOP
`
j+MOV R0,#&3400000 \ Base address of VIDC
t#LDR R2,SPE3 \ Output speed
~ �R R2,R2,#&100 \ Set bit 8
�%�R R2,R2,#&C0000000 \ Sound F reg
� STR R2,[R0] \ Set up sound F
�
�+MOV R0,#&3600000 \ Base address of MEMC
�LDR R3,BIB
�MOV R3,R3,ASR #2
�BIC R3,R3,#3
�"�R R3,R3,#&A0000 \ Send buffer
� STR R0,[R0,R3] \ Write to it
�"MOV R3,#&80000 \ Sstart buffer
� STR R3,[R0,R3] \ Write to it
�
)MOV R0,#&3200000 \ BASE ADDRESS � IOC
*ADD R1,R0,#&50000 \ Offset � �ER LATCH
#LDR R8,Bmark \ BACKWARDS MARKER
( LDR R7,BIB \ BYTES IN BUFFER
2 LDR R6,SOB \ START � BUFFER
<TST R8,#&FF
FADDNE R6,R6,R7
P LDR R2,SPE2 \ T1 �UE HIGH
ZMOV R2,R2,ASL #16
d$STR R2,[R0,#&54] \ T1 LATCH HIGH
n LDR R2,SPE1 \ T1 �UE LOW
xMOV R2,R2,ASL #16
�#STR R2,[R0,#&50] \ T1 LATCH LOW
�
�!LDR R2,[R0,#&18] \ � IRQ MASK
� �R R2,R2,#&40 \ ENABLE T1
�MOV R2,R2,LSL #16
� STR R2,[R0,#&18] \ MASK REG
�
�"MOV R2,#&400000 \ � T1 �ERRUPT
� STR R2,[R0,#&14] \ IRQ �
� STR R2,[R0,#&58] \ GO T1
�
� LDR R3,BOS \ SAMPLE �SET
� .FLOOP \ DELAY LOOP AT START
LDRB R2,[R0,#&10]
TST R2,#&40
BEQ FLOOP
""MOV R2,#&400000 \ � T1 �ERRUPT
, STR R2,[R0,#&14] \ IRQ �
6SUBS R3,R3,#1
@
BNE FLOOP
J
T".TLOOP \ DELAY LOOP � TIMER T1
^LDRB R2,[R0,#&10]
hTST R2,#&40
r
BEQ TLOOP
|"MOV R2,#&400000 \ � T1 �ERRUPT
� STR R2,[R0,#&14] \ IRQ �
�
�\ TAKE �E SAMPLE
� MOV R2,#0 \ CHIP SELECT LOW
�STR R2,[R1,#&10]
� MOV R3,#&A \ BITS � � IN
�!MOV R5,#0 \ COLLECT BITS HERE
�
.LOOP1
�LDR R4,[R0,#&10] \ � �
� MOV R2,#&10000 \ CLOCK HIGH
�$STR R2,[R1,#&10] \ PUT OUT � �ER
�� R4,R4,#1 \ MASK � BIT
�.MOV R5,R5,LSL #1 \ PREPARE R5 � RECIEVE IT
#�R R5,R5,R4 \ MIX IT IN WITH R5
MOV R2,#0 \ CLOCK LOW
STR R2,[R1,#&10]
&SUBS R3,R3,#1
0
BNE LOOP1
:%MOV R2,#&20000 \ CHIP SELECT HIGH
DSTR R2,[R1,#&10]
N#� R5,R5,#&FF \ MASK � START BIT
X\R5 NOW HAS SAMPLE
b&LDR R4,LUA \ LOOK UP TABLE ADDRESS
l)LDRB R5,[R4,R5] \ Convert to log form
v*STRB R5,[R6],#1 \ PUT IT IN THE BUFFER
�TST R8,#&FF
� SUBNE R6,R6,#2 \ � ȒER BACK
�)SUBS R7,R7,#1 \ DECREMENT BYTES � GO
�!BNE TLOOP \ BACK �L ALL DONE
�LDR R7,BIB
�LDR R6,SOB
�TST R8,#&FF
�ADDNE R6,R6,R7
�$LDRB R2,[R0,#&20] \ LOOK � A KEY
�TST R2,#&80
�
BEQ TLOOP
�
�\PREPARE � EXIT
"MOV R2,#&400000 \ � T1 �ERRUPT
STR R2,[R0,#&14] \ IRQ �
!LDR R2,[R0,#&18] \ � IRQ MASK
� R2,R2,#&BF \ ENABLE T1
*MOV R2,R2,LSL #16
4 STR R2,[R0,#&18] \ MASK REG
>-LDMFD R13!, {PC} \ BACK FROM �ST YOU CAME
H]
R�
\�
f
p � �_ILUT
z*VOLUME 127
�� A%=0 � 7
� � CV(A%)
��
�� 0,1,3,7,15,63,127,247
�
�� A%= 0 � 255
�T%=(128-A%)<<24
� ș"Sound_SoundLog",T% � B%
�?(A%+LUT%)=B%
��
�
?LUT%=254
�
!LUA=LUT%
��
� 00000000 0d 00 0a 11 f4 20 3e 21 45 63 68 6f 2e 21 52 75 |..... >!Echo.!Ru|
00000010 6e 0d 00 14 2d f4 20 53 6f 75 6e 64 20 53 61 6d |n...-. Sound Sam|
00000020 70 6c 65 72 20 45 63 68 6f 20 43 68 61 6d 62 65 |pler Echo Chambe|
00000030 72 20 42 79 20 4d 69 6b 65 20 43 6f 6f 6b 0d 00 |r By Mike Cook..|
00000040 1e 07 eb 31 33 0d 00 28 1f de 20 43 4f 44 45 25 |...13..(.. CODE%|
00000050 20 26 33 30 30 2c 4c 55 54 25 20 32 35 36 2c 43 | &300,LUT% 256,C|
00000060 56 28 38 29 0d 00 32 0c f2 5f 54 69 74 6c 65 32 |V(8)..2.._Title2|
00000070 0d 00 3c 30 f1 20 8a 30 2c 35 29 22 59 6f 75 20 |..<0. .0,5)"You |
00000080 6e 65 65 64 20 74 68 65 20 53 6f 75 6e 64 20 53 |need the Sound S|
00000090 61 6d 70 6c 65 72 20 66 6f 72 20 74 68 69 73 22 |ampler for this"|
000000a0 0d 00 46 1a f1 22 41 6e 79 20 6b 65 79 20 74 6f |..F.."Any key to|
000000b0 20 63 6f 6e 74 69 6e 75 65 22 0d 00 50 08 41 24 | continue"..P.A$|
000000c0 3d be 0d 00 5a 09 f2 5f 43 53 55 0d 00 64 0a f2 |=...Z.._CSU..d..|
000000d0 5f 49 4c 55 54 0d 00 6e 05 f5 0d 00 78 0b f2 5f |_ILUT..n....x.._|
000000e0 54 69 74 6c 65 0d 00 82 0b 2a 46 58 31 35 2c 30 |Title....*FX15,0|
000000f0 0d 00 8c 08 41 24 3d be 0d 00 96 0b c8 8e 20 41 |....A$=....... A|
00000100 24 20 ca 0d 00 a0 1e c9 20 22 45 22 2c 22 65 22 |$ ...... "E","e"|
00000110 20 3a 3f 42 6d 61 72 6b 3d 30 3a f2 5f 45 43 48 | :?Bmark=0:._ECH|
00000120 4f 0d 00 aa 20 c9 20 22 52 22 2c 22 72 22 20 3a |O... . "R","r" :|
00000130 3f 42 6d 61 72 6b 3d 26 46 46 3a f2 5f 45 43 48 |?Bmark=&FF:._ECH|
00000140 4f 0d 00 b4 16 c9 20 22 42 22 2c 22 62 22 20 3a |O..... "B","b" :|
00000150 f2 5f 42 73 69 7a 65 0d 00 be 16 c9 20 22 53 22 |._Bsize..... "S"|
00000160 2c 22 73 22 20 3a f2 5f 53 70 65 65 64 0d 00 c8 |,"s" :._Speed...|
00000170 16 c9 20 22 4f 22 2c 22 6f 22 20 3a f2 5f 4f 66 |.. "O","o" :._Of|
00000180 73 65 74 0d 00 d2 10 c9 20 22 51 22 2c 22 71 22 |set..... "Q","q"|
00000190 20 3a e0 0d 00 dc 05 cb 0d 00 e6 07 fd 20 a3 0d | :........... ..|
000001a0 00 f0 04 0d 00 fa 0d dd 20 f2 5f 4f 66 73 65 74 |........ ._Ofset|
000001b0 0d 01 04 2f f1 8a 30 2c 31 30 29 22 50 6f 69 6e |.../..0,10)"Poin|
000001c0 74 65 72 20 6f 66 66 73 65 74 20 2d 20 31 20 74 |ter offset - 1 t|
000001d0 6f 20 42 75 66 66 65 72 20 73 69 7a 65 22 3b 0d |o Buffer size";.|
000001e0 01 0e 05 f5 0d 01 18 07 e8 20 53 0d 01 22 38 e7 |......... S.."8.|
000001f0 20 53 3c 31 20 84 20 53 3e 21 42 49 42 20 8c 20 | S<1 . S>!BIB . |
00000200 f1 22 56 61 6c 75 65 73 20 62 65 74 77 65 65 6e |."Values between|
00000210 20 31 20 61 6e 64 20 42 75 66 66 65 72 20 73 69 | 1 and Buffer si|
00000220 7a 65 22 0d 01 2c 15 fd 20 ac 28 53 3c 31 20 84 |ze"..,.. .(S<1 .|
00000230 20 53 3e 21 42 49 42 29 0d 01 36 0a 21 42 4f 53 | S>!BIB)..6.!BOS|
00000240 3d 53 0d 01 40 05 e1 0d 01 4a 04 0d 01 54 0c dd |=S..@....J...T..|
00000250 20 f2 5f 45 43 48 4f 0d 01 5e 07 d1 3d 30 0d 01 | ._ECHO..^..=0..|
00000260 68 0c f5 20 fd 20 91 3e 34 30 0d 01 72 0d 2a 41 |h.. . .>40..r.*A|
00000270 55 44 49 4f 20 4f 4e 0d 01 7c 20 f1 20 8a 32 35 |UDIO ON..| . .25|
00000280 2c 32 38 29 3b 22 41 6e 79 20 4b 65 79 20 74 6f |,28);"Any Key to|
00000290 20 73 74 6f 70 22 3b 0d 01 86 0a d6 20 53 41 4d | stop";..... SAM|
000002a0 50 0d 01 90 0e 2a 41 55 44 49 4f 20 4f 46 46 0d |P....*AUDIO OFF.|
000002b0 01 9a 05 e1 0d 01 a4 04 0d 01 ae 0d dd 20 f2 5f |............. ._|
000002c0 42 73 69 7a 65 0d 01 b8 2b f1 8a 30 2c 31 30 29 |Bsize...+..0,10)|
000002d0 22 4e 65 77 20 62 75 66 66 65 72 20 73 69 7a 65 |"New buffer size|
000002e0 20 2d 20 30 2e 32 35 20 74 6f 20 38 30 4b 22 3b | - 0.25 to 80K";|
000002f0 0d 01 c2 05 f5 0d 01 cc 07 e8 20 53 0d 01 d6 33 |.......... S...3|
00000300 e7 20 53 3c 30 2e 32 35 20 84 20 53 3e 38 30 20 |. S<0.25 . S>80 |
00000310 8c 20 f1 22 56 61 6c 75 65 73 20 62 65 74 77 65 |. ."Values betwe|
00000320 65 6e 20 30 2e 32 35 20 61 6e 64 20 38 30 22 0d |en 0.25 and 80".|
00000330 01 e0 16 fd 20 ac 28 53 3c 30 2e 32 35 20 84 20 |.... .(S<0.25 . |
00000340 53 3e 38 30 29 0d 01 ea 16 21 42 49 42 3d 53 2a |S>80)....!BIB=S*|
00000350 31 30 32 34 20 80 20 ac 28 33 29 0d 01 f4 05 e1 |1024 . .(3).....|
00000360 0d 01 fe 04 0d 02 08 0d dd 20 f2 5f 53 70 65 65 |......... ._Spee|
00000370 64 0d 02 12 31 f1 8a 30 2c 31 30 29 22 4e 65 77 |d...1..0,10)"New|
00000380 20 6f 75 74 70 75 74 20 73 70 65 65 64 20 2d 20 | output speed - |
00000390 31 32 38 20 69 73 20 6e 6f 20 73 68 69 66 74 20 |128 is no shift |
000003a0 22 3b 0d 02 1c 05 f5 0d 02 26 07 e8 20 53 0d 02 |";.......&.. S..|
000003b0 30 2f e7 20 53 3c 33 20 84 20 53 3e 32 35 35 20 |0/. S<3 . S>255 |
000003c0 8c 20 f1 22 56 61 6c 75 65 73 20 62 65 74 77 65 |. ."Values betwe|
000003d0 65 6e 20 33 20 61 6e 64 20 32 35 35 22 0d 02 3a |en 3 and 255"..:|
000003e0 14 fd 20 ac 28 53 3c 33 20 84 20 53 3e 32 35 35 |.. .(S<3 . S>255|
000003f0 29 0d 02 44 0d 3f 53 50 45 33 3d 53 2d 31 0d 02 |)..D.?SPE3=S-1..|
00000400 4e 05 e1 0d 02 58 04 0d 02 62 0d dd 20 f2 5f 54 |N....X...b.. ._T|
00000410 69 74 6c 65 0d 02 6c 05 db 0d 02 76 28 f1 20 8a |itle..l....v(. .|
00000420 30 2c 32 30 29 22 45 20 2d 20 45 6e 74 65 72 20 |0,20)"E - Enter |
00000430 74 68 65 20 45 63 68 6f 20 43 68 61 6d 62 65 72 |the Echo Chamber|
00000440 22 0d 02 80 17 f1 22 52 20 2d 20 52 65 76 65 72 |"....."R - Rever|
00000450 73 65 20 45 63 68 6f 22 0d 02 8a 29 f1 22 42 20 |se Echo"...)."B |
00000460 2d 20 42 75 66 66 65 72 20 53 69 7a 65 20 6e 6f |- Buffer Size no|
00000470 77 20 22 3b 21 42 49 42 2f 31 30 32 34 3b 22 4b |w ";!BIB/1024;"K|
00000480 22 0d 02 94 2a f1 22 53 20 2d 20 53 70 65 65 64 |"...*."S - Speed|
00000490 20 73 65 74 74 69 6e 67 20 6e 6f 77 20 22 3b 3f | setting now ";?|
000004a0 53 50 45 33 2b 31 3b 22 75 53 22 0d 02 9e 2e f1 |SPE3+1;"uS".....|
000004b0 22 4f 20 2d 20 4f 66 66 73 65 74 20 70 6f 69 6e |"O - Offset poin|
000004c0 74 65 72 20 6e 6f 77 20 22 3b 21 42 4f 53 3b 22 |ter now ";!BOS;"|
000004d0 20 73 61 6d 70 6c 65 73 22 0d 02 a8 0f f1 22 51 | samples"....."Q|
000004e0 20 2d 20 51 75 69 74 22 0d 02 b2 0c f2 5f 54 69 | - Quit"....._Ti|
000004f0 74 6c 65 32 0d 02 bc 05 e1 0d 02 c6 0e dd 20 f2 |tle2.......... .|
00000500 5f 54 69 74 6c 65 32 0d 02 d0 2b f1 20 8a 30 2c |_Title2...+. .0,|
00000510 32 39 29 22 54 48 45 20 42 45 45 42 20 42 4f 44 |29)"THE BEEB BOD|
00000520 59 20 42 55 49 4c 44 49 4e 47 20 43 4f 55 52 53 |Y BUILDING COURS|
00000530 45 22 0d 02 da 19 f1 20 89 28 39 29 3b 22 42 79 |E"..... .(9);"By|
00000540 20 4d 69 6b 65 20 43 6f 6f 6b 22 0d 02 e4 24 f1 | Mike Cook"...$.|
00000550 20 22 20 53 6f 75 6e 64 20 53 61 6d 70 6c 65 72 | " Sound Sampler|
00000560 20 45 63 68 6f 20 43 68 61 6d 62 65 72 22 3b 0d | Echo Chamber";.|
00000570 02 ee 05 e1 0d 02 f8 04 0d 03 02 19 dd 20 f2 5f |............. ._|
00000580 43 53 55 20 3a f4 20 43 4f 44 45 20 53 45 54 55 |CSU :. CODE SETU|
00000590 50 0d 03 0c 11 e3 20 41 3d 30 20 b8 20 32 20 88 |P..... A=0 . 2 .|
000005a0 20 32 0d 03 16 0c 50 25 3d 43 4f 44 45 25 0d 03 | 2....P%=CODE%..|
000005b0 20 05 5b 0d 03 2a 09 4f 50 54 20 41 0d 03 34 09 | .[..*.OPT A..4.|
000005c0 2e 53 41 4d 50 0d 03 3e 26 4d 4f 56 20 52 30 2c |.SAMP..>&MOV R0,|
000005d0 23 26 31 38 20 5c 20 55 4e 55 53 45 44 20 56 45 |#&18 \ UNUSED VE|
000005e0 43 54 4f 52 20 4e 55 4d 42 45 52 0d 03 48 29 41 |CTOR NUMBER..H)A|
000005f0 44 52 20 52 31 2c 47 53 20 5c 20 52 4f 55 54 49 |DR R1,GS \ ROUTI|
00000600 4e 45 20 b8 20 d6 20 ee 20 55 4e 4b 4e 4f 57 4e |NE . . . UNKNOWN|
00000610 20 53 57 49 0d 03 52 2c 4d 4f 56 20 52 32 2c 23 | SWI..R,MOV R2,#|
00000620 30 20 5c 20 4e 55 4d 42 45 52 20 b8 20 50 41 53 |0 \ NUMBER . PAS|
00000630 53 20 b8 20 d6 49 4e 47 20 52 4f 55 54 49 4e 45 |S . .ING ROUTINE|
00000640 0d 03 5c 21 53 57 49 20 22 4f 53 5f 43 6c 61 69 |..\!SWI "OS_Clai|
00000650 6d 22 20 5c 20 43 4c 41 4d 45 20 56 45 43 54 4f |m" \ CLAME VECTO|
00000660 52 0d 03 66 2f 53 57 49 20 26 38 30 31 30 31 20 |R..f/SWI &80101 |
00000670 5c 20 55 4e 55 53 45 44 20 56 45 43 54 4f 52 20 |\ UNUSED VECTOR |
00000680 b8 20 d6 20 f3 20 49 4e 20 52 4f 55 54 49 4e 45 |. . . IN ROUTINE|
00000690 0d 03 70 0d 4d 4f 56 20 52 32 2c 23 30 0d 03 7a |..p.MOV R2,#0..z|
000006a0 1f 4d 4f 56 20 52 30 2c 23 26 31 38 20 5c 20 56 |.MOV R0,#&18 \ V|
000006b0 45 43 54 4f 52 20 4e 55 4d 42 45 52 0d 03 84 0d |ECTOR NUMBER....|
000006c0 41 44 52 20 52 31 2c 47 53 0d 03 8e 1b 53 57 49 |ADR R1,GS....SWI|
000006d0 20 26 32 30 20 5c 20 52 45 4c 45 53 45 20 56 45 | &20 \ RELESE VE|
000006e0 43 54 4f 52 0d 03 98 1e 4d 4f 56 20 52 31 35 2c |CTOR....MOV R15,|
000006f0 52 31 34 20 5c 20 42 41 43 4b 20 b8 20 42 41 53 |R14 \ BACK . BAS|
00000700 49 43 0d 03 a2 04 0d 03 ac 27 2e 4c 55 41 20 45 |IC.......'.LUA E|
00000710 51 55 44 20 30 20 5c 20 4c 4f 4f 4b 20 55 50 20 |QUD 0 \ LOOK UP |
00000720 54 41 42 4c 45 20 41 44 44 52 45 53 53 0d 03 b6 |TABLE ADDRESS...|
00000730 29 2e 53 4f 42 20 45 51 55 44 20 26 32 30 30 30 |).SOB EQUD &2000|
00000740 30 30 30 20 5c 20 53 54 41 52 54 20 ca 20 d4 20 |000 \ START . . |
00000750 42 55 46 46 45 52 0d 03 c0 25 2e 42 49 42 20 45 |BUFFER...%.BIB E|
00000760 51 55 44 20 26 38 30 30 30 20 5c 20 42 59 54 45 |QUD &8000 \ BYTE|
00000770 53 20 49 4e 20 42 55 46 46 45 52 0d 03 ca 1e 2e |S IN BUFFER.....|
00000780 53 50 45 31 20 45 51 55 44 20 30 20 5c 20 4c 53 |SPE1 EQUD 0 \ LS|
00000790 42 20 ca 20 53 50 45 45 44 0d 03 d4 1e 2e 53 50 |B . SPEED.....SP|
000007a0 45 32 20 45 51 55 44 20 31 20 5c 20 4d 53 42 20 |E2 EQUD 1 \ MSB |
000007b0 ca 20 53 50 45 45 44 0d 03 de 21 2e 53 50 45 33 |. SPEED...!.SPE3|
000007c0 20 45 51 55 44 20 31 32 37 20 5c 20 4f 55 54 50 | EQUD 127 \ OUTP|
000007d0 55 54 20 53 50 45 45 44 0d 03 e8 1f 2e 42 4f 53 |UT SPEED.....BOS|
000007e0 20 20 45 51 55 44 20 36 30 20 5c 20 42 55 46 46 | EQUD 60 \ BUFF|
000007f0 45 52 20 87 53 45 54 0d 03 f2 24 2e 42 6d 61 72 |ER .SET...$.Bmar|
00000800 6b 20 45 51 55 44 20 30 20 5c 20 42 41 43 4b 57 |k EQUD 0 \ BACKW|
00000810 41 52 44 53 20 4d 41 52 4b 45 52 0d 03 fc 04 0d |ARDS MARKER.....|
00000820 04 06 12 2e 47 53 20 5c 20 47 41 54 48 45 52 20 |....GS \ GATHER |
00000830 d4 0d 04 10 28 54 45 51 50 20 52 31 35 2c 23 26 |....(TEQP R15,#&|
00000840 43 30 30 30 30 30 33 20 5c 44 49 53 41 42 4c 45 |C000003 \DISABLE|
00000850 20 a8 45 52 52 55 50 54 53 0d 04 1a 1d 4c 44 52 | .ERRUPTS....LDR|
00000860 20 52 31 2c 53 4f 42 20 5c 20 d8 20 54 48 45 20 | R1,SOB \ . THE |
00000870 42 55 46 46 45 52 0d 04 24 0e 4c 44 52 20 52 32 |BUFFER..$.LDR R2|
00000880 2c 42 49 42 0d 04 2e 1a 4d 4f 56 20 52 33 2c 23 |,BIB....MOV R3,#|
00000890 31 35 20 5c 20 bb 55 45 20 b8 20 d8 20 b8 0d 04 |15 \ .UE . . ...|
000008a0 38 09 2e 43 4c 4f 50 0d 04 42 13 53 54 52 42 20 |8..CLOP..B.STRB |
000008b0 52 33 2c 5b 52 32 2c 52 31 5d 0d 04 4c 11 53 55 |R3,[R2,R1]..L.SU|
000008c0 42 53 20 52 32 2c 52 32 2c 23 31 0d 04 56 0c 42 |BS R2,R2,#1..V.B|
000008d0 4e 45 20 43 4c 4f 50 0d 04 60 04 0d 04 6a 2b 4d |NE CLOP..`...j+M|
000008e0 4f 56 20 52 30 2c 23 26 33 34 30 30 30 30 30 20 |OV R0,#&3400000 |
000008f0 5c 20 42 61 73 65 20 61 64 64 72 65 73 73 20 6f |\ Base address o|
00000900 66 20 56 49 44 43 0d 04 74 23 4c 44 52 20 52 32 |f VIDC..t#LDR R2|
00000910 2c 53 50 45 33 20 20 20 20 20 20 5c 20 4f 75 74 |,SPE3 \ Out|
00000920 70 75 74 20 73 70 65 65 64 0d 04 7e 1f 84 52 20 |put speed..~..R |
00000930 52 32 2c 52 32 2c 23 26 31 30 30 20 20 5c 20 53 |R2,R2,#&100 \ S|
00000940 65 74 20 62 69 74 20 38 0d 04 88 25 84 52 20 52 |et bit 8...%.R R|
00000950 32 2c 52 32 2c 23 26 43 30 30 30 30 30 30 30 20 |2,R2,#&C0000000 |
00000960 5c 20 53 6f 75 6e 64 20 46 20 72 65 67 0d 04 92 |\ Sound F reg...|
00000970 20 53 54 52 20 52 32 2c 5b 52 30 5d 20 5c 20 53 | STR R2,[R0] \ S|
00000980 65 74 20 75 70 20 73 6f 75 6e 64 20 46 0d 04 9c |et up sound F...|
00000990 04 0d 04 a6 2b 4d 4f 56 20 52 30 2c 23 26 33 36 |....+MOV R0,#&36|
000009a0 30 30 30 30 30 20 5c 20 42 61 73 65 20 61 64 64 |00000 \ Base add|
000009b0 72 65 73 73 20 6f 66 20 4d 45 4d 43 0d 04 b0 0e |ress of MEMC....|
000009c0 4c 44 52 20 52 33 2c 42 49 42 0d 04 ba 14 4d 4f |LDR R3,BIB....MO|
000009d0 56 20 52 33 2c 52 33 2c 41 53 52 20 23 32 0d 04 |V R3,R3,ASR #2..|
000009e0 c4 10 42 49 43 20 52 33 2c 52 33 2c 23 33 0d 04 |..BIC R3,R3,#3..|
000009f0 ce 22 84 52 20 52 33 2c 52 33 2c 23 26 41 30 30 |.".R R3,R3,#&A00|
00000a00 30 30 20 5c 20 53 65 6e 64 20 62 75 66 66 65 72 |00 \ Send buffer|
00000a10 0d 04 d8 20 53 54 52 20 52 30 2c 5b 52 30 2c 52 |... STR R0,[R0,R|
00000a20 33 5d 20 5c 20 57 72 69 74 65 20 74 6f 20 69 74 |3] \ Write to it|
00000a30 0d 04 e2 22 4d 4f 56 20 52 33 2c 23 26 38 30 30 |..."MOV R3,#&800|
00000a40 30 30 20 5c 20 53 73 74 61 72 74 20 62 75 66 66 |00 \ Sstart buff|
00000a50 65 72 0d 04 ec 20 53 54 52 20 52 33 2c 5b 52 30 |er... STR R3,[R0|
00000a60 2c 52 33 5d 20 5c 20 57 72 69 74 65 20 74 6f 20 |,R3] \ Write to |
00000a70 69 74 0d 04 f6 04 0d 05 00 29 4d 4f 56 20 52 30 |it.......)MOV R0|
00000a80 2c 23 26 33 32 30 30 30 30 30 20 5c 20 42 41 53 |,#&3200000 \ BAS|
00000a90 45 20 41 44 44 52 45 53 53 20 ca 20 49 4f 43 0d |E ADDRESS . IOC.|
00000aa0 05 0a 2a 41 44 44 20 52 31 2c 52 30 2c 23 26 35 |..*ADD R1,R0,#&5|
00000ab0 30 30 30 30 20 5c 20 4f 66 66 73 65 74 20 ca 20 |0000 \ Offset . |
00000ac0 f1 45 52 20 4c 41 54 43 48 0d 05 14 04 0d 05 1e |.ER LATCH.......|
00000ad0 23 4c 44 52 20 52 38 2c 42 6d 61 72 6b 20 5c 20 |#LDR R8,Bmark \ |
00000ae0 42 41 43 4b 57 41 52 44 53 20 4d 41 52 4b 45 52 |BACKWARDS MARKER|
00000af0 0d 05 28 20 4c 44 52 20 52 37 2c 42 49 42 20 5c |..( LDR R7,BIB \|
00000b00 20 42 59 54 45 53 20 49 4e 20 42 55 46 46 45 52 | BYTES IN BUFFER|
00000b10 0d 05 32 1f 4c 44 52 20 52 36 2c 53 4f 42 20 5c |..2.LDR R6,SOB \|
00000b20 20 53 54 41 52 54 20 ca 20 42 55 46 46 45 52 0d | START . BUFFER.|
00000b30 05 3c 0f 54 53 54 20 52 38 2c 23 26 46 46 0d 05 |.<.TST R8,#&FF..|
00000b40 46 12 41 44 44 4e 45 20 52 36 2c 52 36 2c 52 37 |F.ADDNE R6,R6,R7|
00000b50 0d 05 50 1d 4c 44 52 20 52 32 2c 53 50 45 32 20 |..P.LDR R2,SPE2 |
00000b60 5c 20 54 31 20 bb 55 45 20 48 49 47 48 0d 05 5a |\ T1 .UE HIGH..Z|
00000b70 15 4d 4f 56 20 52 32 2c 52 32 2c 41 53 4c 20 23 |.MOV R2,R2,ASL #|
00000b80 31 36 0d 05 64 24 53 54 52 20 52 32 2c 5b 52 30 |16..d$STR R2,[R0|
00000b90 2c 23 26 35 34 5d 20 5c 20 54 31 20 4c 41 54 43 |,#&54] \ T1 LATC|
00000ba0 48 20 48 49 47 48 0d 05 6e 1c 4c 44 52 20 52 32 |H HIGH..n.LDR R2|
00000bb0 2c 53 50 45 31 20 5c 20 54 31 20 bb 55 45 20 4c |,SPE1 \ T1 .UE L|
00000bc0 4f 57 0d 05 78 15 4d 4f 56 20 52 32 2c 52 32 2c |OW..x.MOV R2,R2,|
00000bd0 41 53 4c 20 23 31 36 0d 05 82 23 53 54 52 20 52 |ASL #16...#STR R|
00000be0 32 2c 5b 52 30 2c 23 26 35 30 5d 20 5c 20 54 31 |2,[R0,#&50] \ T1|
00000bf0 20 4c 41 54 43 48 20 4c 4f 57 0d 05 8c 04 0d 05 | LATCH LOW......|
00000c00 96 21 4c 44 52 20 52 32 2c 5b 52 30 2c 23 26 31 |.!LDR R2,[R0,#&1|
00000c10 38 5d 20 5c 20 a5 20 49 52 51 20 4d 41 53 4b 0d |8] \ . IRQ MASK.|
00000c20 05 a0 1d 84 52 20 52 32 2c 52 32 2c 23 26 34 30 |....R R2,R2,#&40|
00000c30 20 5c 20 45 4e 41 42 4c 45 20 54 31 0d 05 aa 16 | \ ENABLE T1....|
00000c40 4d 4f 56 20 20 52 32 2c 52 32 2c 4c 53 4c 20 23 |MOV R2,R2,LSL #|
00000c50 31 36 0d 05 b4 1f 53 54 52 20 52 32 2c 5b 52 30 |16....STR R2,[R0|
00000c60 2c 23 26 31 38 5d 20 5c 20 4d 41 53 4b 20 52 45 |,#&18] \ MASK RE|
00000c70 47 0d 05 be 04 0d 05 c8 22 4d 4f 56 20 52 32 2c |G......."MOV R2,|
00000c80 23 26 34 30 30 30 30 30 20 5c 20 d8 20 54 31 20 |#&400000 \ . T1 |
00000c90 a8 45 52 52 55 50 54 0d 05 d2 1c 53 54 52 20 52 |.ERRUPT....STR R|
00000ca0 32 2c 5b 52 30 2c 23 26 31 34 5d 20 5c 20 49 52 |2,[R0,#&14] \ IR|
00000cb0 51 20 d8 0d 05 dc 1d 53 54 52 20 20 52 32 2c 5b |Q .....STR R2,[|
00000cc0 52 30 2c 23 26 35 38 5d 20 5c 20 47 4f 20 54 31 |R0,#&58] \ GO T1|
00000cd0 0d 05 e6 04 0d 05 f0 1c 4c 44 52 20 52 33 2c 42 |........LDR R3,B|
00000ce0 4f 53 20 5c 20 53 41 4d 50 4c 45 20 87 53 45 54 |OS \ SAMPLE .SET|
00000cf0 0d 05 fa 20 2e 46 4c 4f 4f 50 20 5c 20 44 45 4c |... .FLOOP \ DEL|
00000d00 41 59 20 4c 4f 4f 50 20 41 54 20 53 54 41 52 54 |AY LOOP AT START|
00000d10 0d 06 04 15 4c 44 52 42 20 52 32 2c 5b 52 30 2c |....LDRB R2,[R0,|
00000d20 23 26 31 30 5d 0d 06 0e 0f 54 53 54 20 52 32 2c |#&10]....TST R2,|
00000d30 23 26 34 30 0d 06 18 0d 42 45 51 20 46 4c 4f 4f |#&40....BEQ FLOO|
00000d40 50 0d 06 22 22 4d 4f 56 20 52 32 2c 23 26 34 30 |P..""MOV R2,#&40|
00000d50 30 30 30 30 20 5c 20 d8 20 54 31 20 a8 45 52 52 |0000 \ . T1 .ERR|
00000d60 55 50 54 0d 06 2c 1c 53 54 52 20 52 32 2c 5b 52 |UPT..,.STR R2,[R|
00000d70 30 2c 23 26 31 34 5d 20 5c 20 49 52 51 20 d8 0d |0,#&14] \ IRQ ..|
00000d80 06 36 11 53 55 42 53 20 52 33 2c 52 33 2c 23 31 |.6.SUBS R3,R3,#1|
00000d90 0d 06 40 0d 42 4e 45 20 46 4c 4f 4f 50 0d 06 4a |..@.BNE FLOOP..J|
00000da0 04 0d 06 54 22 2e 54 4c 4f 4f 50 20 5c 20 44 45 |...T".TLOOP \ DE|
00000db0 4c 41 59 20 4c 4f 4f 50 20 e3 20 54 49 4d 45 52 |LAY LOOP . TIMER|
00000dc0 20 54 31 0d 06 5e 15 4c 44 52 42 20 52 32 2c 5b | T1..^.LDRB R2,[|
00000dd0 52 30 2c 23 26 31 30 5d 0d 06 68 0f 54 53 54 20 |R0,#&10]..h.TST |
00000de0 52 32 2c 23 26 34 30 0d 06 72 0d 42 45 51 20 54 |R2,#&40..r.BEQ T|
00000df0 4c 4f 4f 50 0d 06 7c 22 4d 4f 56 20 52 32 2c 23 |LOOP..|"MOV R2,#|
00000e00 26 34 30 30 30 30 30 20 5c 20 d8 20 54 31 20 a8 |&400000 \ . T1 .|
00000e10 45 52 52 55 50 54 0d 06 86 1c 53 54 52 20 52 32 |ERRUPT....STR R2|
00000e20 2c 5b 52 30 2c 23 26 31 34 5d 20 5c 20 49 52 51 |,[R0,#&14] \ IRQ|
00000e30 20 d8 0d 06 90 04 0d 06 9a 14 5c 20 54 41 4b 45 | .........\ TAKE|
00000e40 20 ee 45 20 53 41 4d 50 4c 45 0d 06 a4 1f 4d 4f | .E SAMPLE....MO|
00000e50 56 20 52 32 2c 23 30 20 5c 20 43 48 49 50 20 53 |V R2,#0 \ CHIP S|
00000e60 45 4c 45 43 54 20 4c 4f 57 0d 06 ae 14 53 54 52 |ELECT LOW....STR|
00000e70 20 52 32 2c 5b 52 31 2c 23 26 31 30 5d 0d 06 b8 | R2,[R1,#&10]...|
00000e80 1c 4d 4f 56 20 52 33 2c 23 26 41 20 5c 20 42 49 |.MOV R3,#&A \ BI|
00000e90 54 53 20 b8 20 f3 20 49 4e 0d 06 c2 21 4d 4f 56 |TS . . IN...!MOV|
00000ea0 20 52 35 2c 23 30 20 5c 20 43 4f 4c 4c 45 43 54 | R5,#0 \ COLLECT|
00000eb0 20 42 49 54 53 20 48 45 52 45 0d 06 cc 0a 2e 4c | BITS HERE.....L|
00000ec0 4f 4f 50 31 0d 06 d6 1a 4c 44 52 20 52 34 2c 5b |OOP1....LDR R4,[|
00000ed0 52 30 2c 23 26 31 30 5d 20 5c 20 a5 20 dc 0d 06 |R0,#&10] \ . ...|
00000ee0 e0 1f 4d 4f 56 20 52 32 2c 23 26 31 30 30 30 30 |..MOV R2,#&10000|
00000ef0 20 5c 20 43 4c 4f 43 4b 20 48 49 47 48 0d 06 ea | \ CLOCK HIGH...|
00000f00 24 53 54 52 20 52 32 2c 5b 52 31 2c 23 26 31 30 |$STR R2,[R1,#&10|
00000f10 5d 20 5c 20 50 55 54 20 4f 55 54 20 b8 20 f1 45 |] \ PUT OUT . .E|
00000f20 52 0d 06 f4 1b 80 20 52 34 2c 52 34 2c 23 31 20 |R..... R4,R4,#1 |
00000f30 5c 20 4d 41 53 4b 20 dc 20 42 49 54 0d 06 fe 2e |\ MASK . BIT....|
00000f40 4d 4f 56 20 52 35 2c 52 35 2c 4c 53 4c 20 23 31 |MOV R5,R5,LSL #1|
00000f50 20 5c 20 50 52 45 50 41 52 45 20 52 35 20 b8 20 | \ PREPARE R5 . |
00000f60 52 45 43 49 45 56 45 20 49 54 0d 07 08 23 84 52 |RECIEVE IT...#.R|
00000f70 20 52 35 2c 52 35 2c 52 34 20 5c 20 4d 49 58 20 | R5,R5,R4 \ MIX |
00000f80 49 54 20 49 4e 20 57 49 54 48 20 52 35 0d 07 12 |IT IN WITH R5...|
00000f90 19 4d 4f 56 20 52 32 2c 23 30 20 5c 20 43 4c 4f |.MOV R2,#0 \ CLO|
00000fa0 43 4b 20 4c 4f 57 0d 07 1c 14 53 54 52 20 52 32 |CK LOW....STR R2|
00000fb0 2c 5b 52 31 2c 23 26 31 30 5d 0d 07 26 11 53 55 |,[R1,#&10]..&.SU|
00000fc0 42 53 20 52 33 2c 52 33 2c 23 31 0d 07 30 0d 42 |BS R3,R3,#1..0.B|
00000fd0 4e 45 20 4c 4f 4f 50 31 0d 07 3a 25 4d 4f 56 20 |NE LOOP1..:%MOV |
00000fe0 52 32 2c 23 26 32 30 30 30 30 20 5c 20 43 48 49 |R2,#&20000 \ CHI|
00000ff0 50 20 53 45 4c 45 43 54 20 48 49 47 48 0d 07 44 |P SELECT HIGH..D|
00001000 14 53 54 52 20 52 32 2c 5b 52 31 2c 23 26 31 30 |.STR R2,[R1,#&10|
00001010 5d 0d 07 4e 23 80 20 52 35 2c 52 35 2c 23 26 46 |]..N#. R5,R5,#&F|
00001020 46 20 5c 20 4d 41 53 4b 20 87 20 53 54 41 52 54 |F \ MASK . START|
00001030 20 42 49 54 0d 07 58 16 5c 52 35 20 4e 4f 57 20 | BIT..X.\R5 NOW |
00001040 48 41 53 20 53 41 4d 50 4c 45 0d 07 62 26 4c 44 |HAS SAMPLE..b&LD|
00001050 52 20 52 34 2c 4c 55 41 20 5c 20 4c 4f 4f 4b 20 |R R4,LUA \ LOOK |
00001060 55 50 20 54 41 42 4c 45 20 41 44 44 52 45 53 53 |UP TABLE ADDRESS|
00001070 0d 07 6c 29 4c 44 52 42 20 52 35 2c 5b 52 34 2c |..l)LDRB R5,[R4,|
00001080 52 35 5d 20 5c 20 43 6f 6e 76 65 72 74 20 74 6f |R5] \ Convert to|
00001090 20 6c 6f 67 20 66 6f 72 6d 0d 07 76 2a 53 54 52 | log form..v*STR|
000010a0 42 20 52 35 2c 5b 52 36 5d 2c 23 31 20 5c 20 50 |B R5,[R6],#1 \ P|
000010b0 55 54 20 49 54 20 49 4e 20 54 48 45 20 42 55 46 |UT IT IN THE BUF|
000010c0 46 45 52 0d 07 80 0f 54 53 54 20 52 38 2c 23 26 |FER....TST R8,#&|
000010d0 46 46 0d 07 8a 20 53 55 42 4e 45 20 52 36 2c 52 |FF... SUBNE R6,R|
000010e0 36 2c 23 32 20 5c 20 ec 20 c8 92 45 52 20 42 41 |6,#2 \ . ..ER BA|
000010f0 43 4b 0d 07 94 29 53 55 42 53 20 52 37 2c 52 37 |CK...)SUBS R7,R7|
00001100 2c 23 31 20 20 5c 20 44 45 43 52 45 4d 45 4e 54 |,#1 \ DECREMENT|
00001110 20 42 59 54 45 53 20 b8 20 47 4f 0d 07 9e 21 42 | BYTES . GO...!B|
00001120 4e 45 20 20 54 4c 4f 4f 50 20 5c 20 42 41 43 4b |NE TLOOP \ BACK|
00001130 20 fd 4c 20 41 4c 4c 20 44 4f 4e 45 0d 07 a8 0e | .L ALL DONE....|
00001140 4c 44 52 20 52 37 2c 42 49 42 0d 07 b2 0e 4c 44 |LDR R7,BIB....LD|
00001150 52 20 52 36 2c 53 4f 42 0d 07 bc 0f 54 53 54 20 |R R6,SOB....TST |
00001160 52 38 2c 23 26 46 46 0d 07 c6 12 41 44 44 4e 45 |R8,#&FF....ADDNE|
00001170 20 52 36 2c 52 36 2c 52 37 0d 07 d0 24 4c 44 52 | R6,R6,R7...$LDR|
00001180 42 20 52 32 2c 5b 52 30 2c 23 26 32 30 5d 20 5c |B R2,[R0,#&20] \|
00001190 20 4c 4f 4f 4b 20 e3 20 41 20 4b 45 59 0d 07 da | LOOK . A KEY...|
000011a0 0f 54 53 54 20 52 32 2c 23 26 38 30 0d 07 e4 0d |.TST R2,#&80....|
000011b0 42 45 51 20 54 4c 4f 4f 50 0d 07 ee 04 0d 07 f8 |BEQ TLOOP.......|
000011c0 13 5c 50 52 45 50 41 52 45 20 b8 20 45 58 49 54 |.\PREPARE . EXIT|
000011d0 0d 08 02 22 4d 4f 56 20 52 32 2c 23 26 34 30 30 |..."MOV R2,#&400|
000011e0 30 30 30 20 5c 20 d8 20 54 31 20 a8 45 52 52 55 |000 \ . T1 .ERRU|
000011f0 50 54 0d 08 0c 1c 53 54 52 20 52 32 2c 5b 52 30 |PT....STR R2,[R0|
00001200 2c 23 26 31 34 5d 20 5c 20 49 52 51 20 d8 0d 08 |,#&14] \ IRQ ...|
00001210 16 21 4c 44 52 20 52 32 2c 5b 52 30 2c 23 26 31 |.!LDR R2,[R0,#&1|
00001220 38 5d 20 5c 20 a5 20 49 52 51 20 4d 41 53 4b 0d |8] \ . IRQ MASK.|
00001230 08 20 1c 80 20 52 32 2c 52 32 2c 23 26 42 46 20 |. .. R2,R2,#&BF |
00001240 5c 20 45 4e 41 42 4c 45 20 54 31 0d 08 2a 16 4d |\ ENABLE T1..*.M|
00001250 4f 56 20 20 52 32 2c 52 32 2c 4c 53 4c 20 23 31 |OV R2,R2,LSL #1|
00001260 36 0d 08 34 1f 53 54 52 20 52 32 2c 5b 52 30 2c |6..4.STR R2,[R0,|
00001270 23 26 31 38 5d 20 5c 20 4d 41 53 4b 20 52 45 47 |#&18] \ MASK REG|
00001280 0d 08 3e 2d 4c 44 4d 46 44 20 52 31 33 21 2c 20 |..>-LDMFD R13!, |
00001290 7b 50 43 7d 20 5c 20 42 41 43 4b 20 46 52 4f 4d |{PC} \ BACK FROM|
000012a0 20 c9 53 54 20 59 4f 55 20 43 41 4d 45 0d 08 48 | .ST YOU CAME..H|
000012b0 05 5d 0d 08 52 05 ed 0d 08 5c 05 e1 0d 08 66 04 |.]..R....\....f.|
000012c0 0d 08 70 0c dd 20 f2 5f 49 4c 55 54 0d 08 7a 0f |..p.. ._ILUT..z.|
000012d0 2a 56 4f 4c 55 4d 45 20 31 32 37 0d 08 84 0e e3 |*VOLUME 127.....|
000012e0 20 41 25 3d 30 20 b8 20 37 0d 08 8e 0c f3 20 43 | A%=0 . 7..... C|
000012f0 56 28 41 25 29 0d 08 98 05 ed 0d 08 a2 1b dc 20 |V(A%).......... |
00001300 30 2c 31 2c 33 2c 37 2c 31 35 2c 36 33 2c 31 32 |0,1,3,7,15,63,12|
00001310 37 2c 32 34 37 0d 08 ac 04 0d 08 b6 11 e3 20 41 |7,247......... A|
00001320 25 3d 20 30 20 b8 20 32 35 35 0d 08 c0 13 54 25 |%= 0 . 255....T%|
00001330 3d 28 31 32 38 2d 41 25 29 3c 3c 32 34 0d 08 ca |=(128-A%)<<24...|
00001340 1e c8 99 22 53 6f 75 6e 64 5f 53 6f 75 6e 64 4c |..."Sound_SoundL|
00001350 6f 67 22 2c 54 25 20 b8 20 42 25 0d 08 d4 11 3f |og",T% . B%....?|
00001360 28 41 25 2b 4c 55 54 25 29 3d 42 25 0d 08 de 05 |(A%+LUT%)=B%....|
00001370 ed 0d 08 e8 0d 3f 4c 55 54 25 3d 32 35 34 0d 08 |.....?LUT%=254..|
00001380 f2 0d 21 4c 55 41 3d 4c 55 54 25 0d 08 fc 05 e1 |..!LUA=LUT%.....|
00001390 0d ff |..|
00001392 
.