�>WaveVoice

� WT% 255
� Code% 4096
(
2"ș"Sound_Volume",127 � UserVol
<� s%=0 � 255
F8 ș"Sound_SoundLog",&7FFFFFFF*�(2*�*s%/256) � WT%?s%
P�
Z&ș"Sound_Volume",UserVol � UserVol
d
n� C% = 0 � 2 � 2
xP%=Code%
�[ OPT C%
�.VoiceBase
�B       Fill
�B       Fill
�B       GateOn
�B       GateOff
�B       Instance
�LDMFD   R13!,{PC}
�LDMFD   R13!,{PC}
�!EQUD    VoiceName - VoiceBase
�!.VoiceName      EQUS "SinMax"
�                EQUB 0
�	ALIGN

.LogAmpPtr      EQUD 0

.WaveBase       EQUD WT%



"
.Instance

,STMFD   R13!,{R0-R4}

6MOV     R0,#0

@MOV     R1,#0

JMOV     R2,#0

TMOV     R3,#0

^MOV     R4,#0

hSWI     "XSound_Configure"

rLDRVC   R0,[R3,#12]

|STRVC   R0,LogAmpPtr

�STRVS   R0,[R13]

�LDMFD   R13!,{R0-R4,PC}

�

�.GateOn

�LDR     R0,WaveBase

�STR     R0,[R9,#16]

�LDR     R0,LogAmpPtr

�STR     R0,[R9,#20]

�

�	.Fill

�LDMIA   R9,{R1-R6}

��     R1,R1,#&7F

�LDRB    R1,[R6,R1,LSL #1]
MOV     R1,R1,LSR #1
RSB     R1,R1,#127

.FillLoop
&ADD R2,R2,R2,LSL #16
0LDRB    R0,[R5,R2,LSR #24]
:SUBS    R0,R0,R1,LSL #1
DMOVMI   R0,#0
NSTRB    R0,[R12],R11
X
bADD R2,R2,R2,LSL #16
lLDRB    R0,[R5,R2,LSR #24]
vSUBS    R0,R0,R1,LSL #1
�MOVMI   R0,#0
�STRB    R0,[R12],R11
�
�ADD R2,R2,R2,LSL #16
�LDRB    R0,[R5,R2,LSR #24]
�SUBS    R0,R0,R1,LSL #1
�MOVMI   R0,#0
�STRB    R0,[R12],R11
�
�ADD R2,R2,R2,LSL #16
�LDRB    R0,[R5,R2,LSR #24]
�SUBS    R0,R0,R1,LSL #1
�MOVMI   R0,#0
STRB    R0,[R12],R11

CMP     R12,R10
 BLT     FillLoop
*
4SUBS    R4,R4,#1
>STMIB   R9,{R2-R5}
HMOVPL   R0,#%00001000
RMOVMi   R0,#%00000010
\LDMFD   R13!,{PC}
f
p.GateOff
zMOV     R0,#0
�.FlushLoop
�STRB    R0,[R12],R11
�STRB    R0,[R12],R11
�STRB    R0,[R12],R11
�STRB    R0,[R12],R11
�CMP     R12,R10
�BLT     FlushLoop
�MOV     R0,#%00000001
�LDMFD   R13!,{PC}
�]
��
�
�� OldVoice%(8)
3ș "Sound_InstallVoice",VoiceBase,0 � a%,Voice%
� v%=1 � 8
1ș"Sound_AttachVoice",v%,0 � z%,OldVoice%(v%)
$ȡ v%,"SinMax"
.�
8
B� � �RestoreSound : �
L
VȠ 8
`*voices
j� 1,&17F,53,10
t5�"press any key to make a noise, <ESCAPE> to end"
~
�C%=1
��
�K%=�(1)
�� K%>0 �
� � C%,&17F,K%,100
� C%+=1 : � C%>8 � C%=1
��
�� 0
�
�� �RestoreSound
�	� � �
�	�:� �
#ș "Sound_RemoveVoice",0,Voice%

� v%=1 � 8
+ ș"Sound_AttachVoice",v%,OldVoice%(v%)
�
(Ƞ 1
2*voices
<�
F�
P
�

00000000  0d 00 0a 0f f4 3e 57 61  76 65 56 6f 69 63 65 0d  |.....>WaveVoice.|
00000010  00 14 0d de 20 57 54 25  20 32 35 35 0d 00 1e 10  |.... WT% 255....|
00000020  de 20 43 6f 64 65 25 20  34 30 39 36 0d 00 28 04  |. Code% 4096..(.|
00000030  0d 00 32 22 c8 99 22 53  6f 75 6e 64 5f 56 6f 6c  |..2".."Sound_Vol|
00000040  75 6d 65 22 2c 31 32 37  20 b8 20 55 73 65 72 56  |ume",127 . UserV|
00000050  6f 6c 0d 00 3c 10 e3 20  73 25 3d 30 20 b8 20 32  |ol..<.. s%=0 . 2|
00000060  35 35 0d 00 46 38 20 c8  99 22 53 6f 75 6e 64 5f  |55..F8 .."Sound_|
00000070  53 6f 75 6e 64 4c 6f 67  22 2c 26 37 46 46 46 46  |SoundLog",&7FFFF|
00000080  46 46 46 2a b5 28 32 2a  af 2a 73 25 2f 32 35 36  |FFF*.(2*.*s%/256|
00000090  29 20 b8 20 57 54 25 3f  73 25 0d 00 50 05 ed 0d  |) . WT%?s%..P...|
000000a0  00 5a 26 c8 99 22 53 6f  75 6e 64 5f 56 6f 6c 75  |.Z&.."Sound_Volu|
000000b0  6d 65 22 2c 55 73 65 72  56 6f 6c 20 b8 20 55 73  |me",UserVol . Us|
000000c0  65 72 56 6f 6c 0d 00 64  04 0d 00 6e 14 e3 20 43  |erVol..d...n.. C|
000000d0  25 20 3d 20 30 20 b8 20  32 20 88 20 32 0d 00 78  |% = 0 . 2 . 2..x|
000000e0  0c 50 25 3d 43 6f 64 65  25 0d 00 82 0c 5b 20 4f  |.P%=Code%....[ O|
000000f0  50 54 20 43 25 0d 00 8c  0e 2e 56 6f 69 63 65 42  |PT C%.....VoiceB|
00000100  61 73 65 0d 00 96 10 42  20 20 20 20 20 20 20 46  |ase....B       F|
00000110  69 6c 6c 0d 00 a0 10 42  20 20 20 20 20 20 20 46  |ill....B       F|
00000120  69 6c 6c 0d 00 aa 12 42  20 20 20 20 20 20 20 47  |ill....B       G|
00000130  61 74 65 4f 6e 0d 00 b4  13 42 20 20 20 20 20 20  |ateOn....B      |
00000140  20 47 61 74 65 4f 66 66  0d 00 be 14 42 20 20 20  | GateOff....B   |
00000150  20 20 20 20 49 6e 73 74  61 6e 63 65 0d 00 c8 15  |    Instance....|
00000160  4c 44 4d 46 44 20 20 20  52 31 33 21 2c 7b 50 43  |LDMFD   R13!,{PC|
00000170  7d 0d 00 d2 15 4c 44 4d  46 44 20 20 20 52 31 33  |}....LDMFD   R13|
00000180  21 2c 7b 50 43 7d 0d 00  dc 21 45 51 55 44 20 20  |!,{PC}...!EQUD  |
00000190  20 20 56 6f 69 63 65 4e  61 6d 65 20 2d 20 56 6f  |  VoiceName - Vo|
000001a0  69 63 65 42 61 73 65 0d  00 e6 21 2e 56 6f 69 63  |iceBase...!.Voic|
000001b0  65 4e 61 6d 65 20 20 20  20 20 20 45 51 55 53 20  |eName      EQUS |
000001c0  22 53 69 6e 4d 61 78 22  0d 00 f0 1a 20 20 20 20  |"SinMax"....    |
000001d0  20 20 20 20 20 20 20 20  20 20 20 20 45 51 55 42  |            EQUB|
000001e0  20 30 0d 00 fa 09 41 4c  49 47 4e 0d 01 04 1a 2e  | 0....ALIGN.....|
000001f0  4c 6f 67 41 6d 70 50 74  72 20 20 20 20 20 20 45  |LogAmpPtr      E|
00000200  51 55 44 20 30 0d 01 0e  1c 2e 57 61 76 65 42 61  |QUD 0.....WaveBa|
00000210  73 65 20 20 20 20 20 20  20 45 51 55 44 20 57 54  |se       EQUD WT|
00000220  25 0d 01 18 04 0d 01 22  0d 2e 49 6e 73 74 61 6e  |%......"..Instan|
00000230  63 65 0d 01 2c 18 53 54  4d 46 44 20 20 20 52 31  |ce..,.STMFD   R1|
00000240  33 21 2c 7b 52 30 2d 52  34 7d 0d 01 36 11 4d 4f  |3!,{R0-R4}..6.MO|
00000250  56 20 20 20 20 20 52 30  2c 23 30 0d 01 40 11 4d  |V     R0,#0..@.M|
00000260  4f 56 20 20 20 20 20 52  31 2c 23 30 0d 01 4a 11  |OV     R1,#0..J.|
00000270  4d 4f 56 20 20 20 20 20  52 32 2c 23 30 0d 01 54  |MOV     R2,#0..T|
00000280  11 4d 4f 56 20 20 20 20  20 52 33 2c 23 30 0d 01  |.MOV     R3,#0..|
00000290  5e 11 4d 4f 56 20 20 20  20 20 52 34 2c 23 30 0d  |^.MOV     R4,#0.|
000002a0  01 68 1e 53 57 49 20 20  20 20 20 22 58 53 6f 75  |.h.SWI     "XSou|
000002b0  6e 64 5f 43 6f 6e 66 69  67 75 72 65 22 0d 01 72  |nd_Configure"..r|
000002c0  17 4c 44 52 56 43 20 20  20 52 30 2c 5b 52 33 2c  |.LDRVC   R0,[R3,|
000002d0  23 31 32 5d 0d 01 7c 18  53 54 52 56 43 20 20 20  |#12]..|.STRVC   |
000002e0  52 30 2c 4c 6f 67 41 6d  70 50 74 72 0d 01 86 14  |R0,LogAmpPtr....|
000002f0  53 54 52 56 53 20 20 20  52 30 2c 5b 52 31 33 5d  |STRVS   R0,[R13]|
00000300  0d 01 90 1b 4c 44 4d 46  44 20 20 20 52 31 33 21  |....LDMFD   R13!|
00000310  2c 7b 52 30 2d 52 34 2c  50 43 7d 0d 01 9a 04 0d  |,{R0-R4,PC}.....|
00000320  01 a4 0b 2e 47 61 74 65  4f 6e 0d 01 ae 17 4c 44  |....GateOn....LD|
00000330  52 20 20 20 20 20 52 30  2c 57 61 76 65 42 61 73  |R     R0,WaveBas|
00000340  65 0d 01 b8 17 53 54 52  20 20 20 20 20 52 30 2c  |e....STR     R0,|
00000350  5b 52 39 2c 23 31 36 5d  0d 01 c2 18 4c 44 52 20  |[R9,#16]....LDR |
00000360  20 20 20 20 52 30 2c 4c  6f 67 41 6d 70 50 74 72  |    R0,LogAmpPtr|
00000370  0d 01 cc 17 53 54 52 20  20 20 20 20 52 30 2c 5b  |....STR     R0,[|
00000380  52 39 2c 23 32 30 5d 0d  01 d6 04 0d 01 e0 09 2e  |R9,#20].........|
00000390  46 69 6c 6c 0d 01 ea 16  4c 44 4d 49 41 20 20 20  |Fill....LDMIA   |
000003a0  52 39 2c 7b 52 31 2d 52  36 7d 0d 01 f4 14 80 20  |R9,{R1-R6}..... |
000003b0  20 20 20 20 52 31 2c 52  31 2c 23 26 37 46 0d 01  |    R1,R1,#&7F..|
000003c0  fe 1d 4c 44 52 42 20 20  20 20 52 31 2c 5b 52 36  |..LDRB    R1,[R6|
000003d0  2c 52 31 2c 4c 53 4c 20  23 31 5d 0d 02 08 18 4d  |,R1,LSL #1]....M|
000003e0  4f 56 20 20 20 20 20 52  31 2c 52 31 2c 4c 53 52  |OV     R1,R1,LSR|
000003f0  20 23 31 0d 02 12 16 52  53 42 20 20 20 20 20 52  | #1....RSB     R|
00000400  31 2c 52 31 2c 23 31 32  37 0d 02 1c 0d 2e 46 69  |1,R1,#127.....Fi|
00000410  6c 6c 4c 6f 6f 70 0d 02  26 18 41 44 44 20 52 32  |llLoop..&.ADD R2|
00000420  2c 52 32 2c 52 32 2c 4c  53 4c 20 23 31 36 0d 02  |,R2,R2,LSL #16..|
00000430  30 1e 4c 44 52 42 20 20  20 20 52 30 2c 5b 52 35  |0.LDRB    R0,[R5|
00000440  2c 52 32 2c 4c 53 52 20  23 32 34 5d 0d 02 3a 1b  |,R2,LSR #24]..:.|
00000450  53 55 42 53 20 20 20 20  52 30 2c 52 30 2c 52 31  |SUBS    R0,R0,R1|
00000460  2c 4c 53 4c 20 23 31 0d  02 44 11 4d 4f 56 4d 49  |,LSL #1..D.MOVMI|
00000470  20 20 20 52 30 2c 23 30  0d 02 4e 18 53 54 52 42  |   R0,#0..N.STRB|
00000480  20 20 20 20 52 30 2c 5b  52 31 32 5d 2c 52 31 31  |    R0,[R12],R11|
00000490  0d 02 58 04 0d 02 62 18  41 44 44 20 52 32 2c 52  |..X...b.ADD R2,R|
000004a0  32 2c 52 32 2c 4c 53 4c  20 23 31 36 0d 02 6c 1e  |2,R2,LSL #16..l.|
000004b0  4c 44 52 42 20 20 20 20  52 30 2c 5b 52 35 2c 52  |LDRB    R0,[R5,R|
000004c0  32 2c 4c 53 52 20 23 32  34 5d 0d 02 76 1b 53 55  |2,LSR #24]..v.SU|
000004d0  42 53 20 20 20 20 52 30  2c 52 30 2c 52 31 2c 4c  |BS    R0,R0,R1,L|
000004e0  53 4c 20 23 31 0d 02 80  11 4d 4f 56 4d 49 20 20  |SL #1....MOVMI  |
000004f0  20 52 30 2c 23 30 0d 02  8a 18 53 54 52 42 20 20  | R0,#0....STRB  |
00000500  20 20 52 30 2c 5b 52 31  32 5d 2c 52 31 31 0d 02  |  R0,[R12],R11..|
00000510  94 04 0d 02 9e 18 41 44  44 20 52 32 2c 52 32 2c  |......ADD R2,R2,|
00000520  52 32 2c 4c 53 4c 20 23  31 36 0d 02 a8 1e 4c 44  |R2,LSL #16....LD|
00000530  52 42 20 20 20 20 52 30  2c 5b 52 35 2c 52 32 2c  |RB    R0,[R5,R2,|
00000540  4c 53 52 20 23 32 34 5d  0d 02 b2 1b 53 55 42 53  |LSR #24]....SUBS|
00000550  20 20 20 20 52 30 2c 52  30 2c 52 31 2c 4c 53 4c  |    R0,R0,R1,LSL|
00000560  20 23 31 0d 02 bc 11 4d  4f 56 4d 49 20 20 20 52  | #1....MOVMI   R|
00000570  30 2c 23 30 0d 02 c6 18  53 54 52 42 20 20 20 20  |0,#0....STRB    |
00000580  52 30 2c 5b 52 31 32 5d  2c 52 31 31 0d 02 d0 04  |R0,[R12],R11....|
00000590  0d 02 da 18 41 44 44 20  52 32 2c 52 32 2c 52 32  |....ADD R2,R2,R2|
000005a0  2c 4c 53 4c 20 23 31 36  0d 02 e4 1e 4c 44 52 42  |,LSL #16....LDRB|
000005b0  20 20 20 20 52 30 2c 5b  52 35 2c 52 32 2c 4c 53  |    R0,[R5,R2,LS|
000005c0  52 20 23 32 34 5d 0d 02  ee 1b 53 55 42 53 20 20  |R #24]....SUBS  |
000005d0  20 20 52 30 2c 52 30 2c  52 31 2c 4c 53 4c 20 23  |  R0,R0,R1,LSL #|
000005e0  31 0d 02 f8 11 4d 4f 56  4d 49 20 20 20 52 30 2c  |1....MOVMI   R0,|
000005f0  23 30 0d 03 02 18 53 54  52 42 20 20 20 20 52 30  |#0....STRB    R0|
00000600  2c 5b 52 31 32 5d 2c 52  31 31 0d 03 0c 04 0d 03  |,[R12],R11......|
00000610  16 13 43 4d 50 20 20 20  20 20 52 31 32 2c 52 31  |..CMP     R12,R1|
00000620  30 0d 03 20 14 42 4c 54  20 20 20 20 20 46 69 6c  |0.. .BLT     Fil|
00000630  6c 4c 6f 6f 70 0d 03 2a  04 0d 03 34 14 53 55 42  |lLoop..*...4.SUB|
00000640  53 20 20 20 20 52 34 2c  52 34 2c 23 31 0d 03 3e  |S    R4,R4,#1..>|
00000650  16 53 54 4d 49 42 20 20  20 52 39 2c 7b 52 32 2d  |.STMIB   R9,{R2-|
00000660  52 35 7d 0d 03 48 19 4d  4f 56 50 4c 20 20 20 52  |R5}..H.MOVPL   R|
00000670  30 2c 23 25 30 30 30 30  31 30 30 30 0d 03 52 19  |0,#%00001000..R.|
00000680  4d 4f 56 4d 69 20 20 20  52 30 2c 23 25 30 30 30  |MOVMi   R0,#%000|
00000690  30 30 30 31 30 0d 03 5c  15 4c 44 4d 46 44 20 20  |00010..\.LDMFD  |
000006a0  20 52 31 33 21 2c 7b 50  43 7d 0d 03 66 04 0d 03  | R13!,{PC}..f...|
000006b0  70 0c 2e 47 61 74 65 4f  66 66 0d 03 7a 11 4d 4f  |p..GateOff..z.MO|
000006c0  56 20 20 20 20 20 52 30  2c 23 30 0d 03 84 0e 2e  |V     R0,#0.....|
000006d0  46 6c 75 73 68 4c 6f 6f  70 0d 03 8e 18 53 54 52  |FlushLoop....STR|
000006e0  42 20 20 20 20 52 30 2c  5b 52 31 32 5d 2c 52 31  |B    R0,[R12],R1|
000006f0  31 0d 03 98 18 53 54 52  42 20 20 20 20 52 30 2c  |1....STRB    R0,|
00000700  5b 52 31 32 5d 2c 52 31  31 0d 03 a2 18 53 54 52  |[R12],R11....STR|
00000710  42 20 20 20 20 52 30 2c  5b 52 31 32 5d 2c 52 31  |B    R0,[R12],R1|
00000720  31 0d 03 ac 18 53 54 52  42 20 20 20 20 52 30 2c  |1....STRB    R0,|
00000730  5b 52 31 32 5d 2c 52 31  31 0d 03 b6 13 43 4d 50  |[R12],R11....CMP|
00000740  20 20 20 20 20 52 31 32  2c 52 31 30 0d 03 c0 15  |     R12,R10....|
00000750  42 4c 54 20 20 20 20 20  46 6c 75 73 68 4c 6f 6f  |BLT     FlushLoo|
00000760  70 0d 03 ca 19 4d 4f 56  20 20 20 20 20 52 30 2c  |p....MOV     R0,|
00000770  23 25 30 30 30 30 30 30  30 31 0d 03 d4 15 4c 44  |#%00000001....LD|
00000780  4d 46 44 20 20 20 52 31  33 21 2c 7b 50 43 7d 0d  |MFD   R13!,{PC}.|
00000790  03 de 05 5d 0d 03 e8 05  ed 0d 03 f2 04 0d 03 fc  |...]............|
000007a0  12 de 20 4f 6c 64 56 6f  69 63 65 25 28 38 29 0d  |.. OldVoice%(8).|
000007b0  04 06 33 c8 99 20 22 53  6f 75 6e 64 5f 49 6e 73  |..3.. "Sound_Ins|
000007c0  74 61 6c 6c 56 6f 69 63  65 22 2c 56 6f 69 63 65  |tallVoice",Voice|
000007d0  42 61 73 65 2c 30 20 b8  20 61 25 2c 56 6f 69 63  |Base,0 . a%,Voic|
000007e0  65 25 0d 04 10 0e e3 20  76 25 3d 31 20 b8 20 38  |e%..... v%=1 . 8|
000007f0  0d 04 1a 31 c8 99 22 53  6f 75 6e 64 5f 41 74 74  |...1.."Sound_Att|
00000800  61 63 68 56 6f 69 63 65  22 2c 76 25 2c 30 20 b8  |achVoice",v%,0 .|
00000810  20 7a 25 2c 4f 6c 64 56  6f 69 63 65 25 28 76 25  | z%,OldVoice%(v%|
00000820  29 0d 04 24 12 c8 a1 20  76 25 2c 22 53 69 6e 4d  |)..$... v%,"SinM|
00000830  61 78 22 0d 04 2e 05 ed  0d 04 38 04 0d 04 42 19  |ax".......8...B.|
00000840  ee 20 85 20 f2 52 65 73  74 6f 72 65 53 6f 75 6e  |. . .RestoreSoun|
00000850  64 20 3a 20 e0 0d 04 4c  04 0d 04 56 08 c8 a0 20  |d : ...L...V... |
00000860  38 0d 04 60 0b 2a 76 6f  69 63 65 73 0d 04 6a 12  |8..`.*voices..j.|
00000870  d4 20 31 2c 26 31 37 46  2c 35 33 2c 31 30 0d 04  |. 1,&17F,53,10..|
00000880  74 35 f1 22 70 72 65 73  73 20 61 6e 79 20 6b 65  |t5."press any ke|
00000890  79 20 74 6f 20 6d 61 6b  65 20 61 20 6e 6f 69 73  |y to make a nois|
000008a0  65 2c 20 3c 45 53 43 41  50 45 3e 20 74 6f 20 65  |e, <ESCAPE> to e|
000008b0  6e 64 22 0d 04 7e 04 0d  04 88 08 43 25 3d 31 0d  |nd"..~.....C%=1.|
000008c0  04 92 05 f5 0d 04 9c 0b  4b 25 3d a6 28 31 29 0d  |........K%=.(1).|
000008d0  04 a6 0c e7 20 4b 25 3e  30 20 8c 0d 04 b0 15 20  |.... K%>0 ..... |
000008e0  d4 20 43 25 2c 26 31 37  46 2c 4b 25 2c 31 30 30  |. C%,&17F,K%,100|
000008f0  0d 04 ba 1a 20 43 25 2b  3d 31 20 3a 20 e7 20 43  |.... C%+=1 : . C|
00000900  25 3e 38 20 8c 20 43 25  3d 31 0d 04 c4 05 cd 0d  |%>8 . C%=1......|
00000910  04 ce 07 fd 20 30 0d 04  d8 04 0d 04 e2 13 dd 20  |.... 0......... |
00000920  f2 52 65 73 74 6f 72 65  53 6f 75 6e 64 0d 04 ec  |.RestoreSound...|
00000930  09 ee 20 85 20 87 0d 04  f6 09 f6 3a f1 20 9e 0d  |.. . ......:. ..|
00000940  05 00 23 c8 99 20 22 53  6f 75 6e 64 5f 52 65 6d  |..#.. "Sound_Rem|
00000950  6f 76 65 56 6f 69 63 65  22 2c 30 2c 56 6f 69 63  |oveVoice",0,Voic|
00000960  65 25 0d 05 0a 0e e3 20  76 25 3d 31 20 b8 20 38  |e%..... v%=1 . 8|
00000970  0d 05 14 2b 20 c8 99 22  53 6f 75 6e 64 5f 41 74  |...+ .."Sound_At|
00000980  74 61 63 68 56 6f 69 63  65 22 2c 76 25 2c 4f 6c  |tachVoice",v%,Ol|
00000990  64 56 6f 69 63 65 25 28  76 25 29 0d 05 1e 05 ed  |dVoice%(v%).....|
000009a0  0d 05 28 08 c8 a0 20 31  0d 05 32 0b 2a 76 6f 69  |..(... 1..2.*voi|
000009b0  63 65 73 0d 05 3c 05 f1  0d 05 46 05 e1 0d 05 50  |ces..<....F....P|
000009c0  04 0d ff                                          |...|
000009c3