Misc/!Hal/Halms

Home » Archimedes archive » Micro User » MU 1991-12.adf » PD-Stuff » Misc/!Hal/Halms

Misc/!Hal/Halms

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 1991-12.adf » PD-Stuff
Filename:	Misc/!Hal/Halms
Read OK:	✔
File size:	1266 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > <Path$Dir>.HALMS
   20 st=7
   30REM Bug fixed 07/06/90 by Michael Seifert
   40REM !Boot design implemented 07/06/90 by Michael Seifert
   50REM -> Hal's voice from "2001"
   60REM Modified from WaveVoice code in user guide.
   70REM Samples transferred and (not much) work on the
   80REM code done by Hugo Fiennes and Jan Paxton of
   90REM The Serial Port. Buy ARCterm (that's an advert).
  100REM
  110REM Ctrl-Break before running.
  120REM
  130REM This is p.d.. Samples are from an Amiga p.d. disk,
  140REM translated from IFF format. Hold down a key with
  150REM *FX12,1 and listen.....wierd, huh?
  160REM
  170
  180X%=RND(-TIME)
  190DIM WaveTable 150000
  200DIM Code% 4095
  210 
  220OSCLI("LOAD <Obey$Dir>.OPERAT "+STR$~WaveTable)
  230WaveTable%=WaveTable
  240
  250FORC=0TO2STEP2
  260P%=Code%
  270
  280[OPTC
  290;*********************************
  300;* VOICE CO-ROUTINE CODE SEGMENT *
  310;*********************************
  320; On installation, point Level1 voice
  330; pointers to this voice control block
  340; (return address always on top of stack)
  350.VoiceBase
  360B Fill
  370B Fill               ; Update entry
  380B GateOn
  390B GateOff
  400B Instance           ; Instantiate entry
  410LDMFD R13!,{PC}      ; Free entry
  420LDMFD R13!,{PC}      ; Initialise
  430EQUD VoiceName-VoiceBase
  440 
  450.VoiceName EQUS"WaveVoice"
  460EQUB0
  470ALIGN
  480 
  490.LogAmpPtr EQUD0
  500.WaveBase EQUD WaveTable%
  510;*********************************
  520.Instance ; any instance must use LogAmp table
  530STMFD R13!,{R0-R4}
  540MOV R0,#0
  550MOV R1,#0
  560MOV R2,#0
  570MOV R3,#0
  580MOV R4,#0
  590SWI "Sound_Configure"
  600LDR R0,[R3,#12]         ; Level1 ScaleTable offset
  610STR R0,LogAmpPtr
  620LDMFD R13!,{R0-R4,PC} ; Restore & return
  630;******************************
  640;* VOICE BUFFER FILL ROUTINES *
  650;******************************
  660; on entry..
  670;   R0-R8 are available
  680;   R9 is SoundChannelControlBlock pointer
  690;   R10 is DMA buffer limit (+1)
  700;   R12 is DMA buffer base pointer
  710;   R13 is the Sound System Stack with return address and flags
  720;         on top (must LDMFD R13!,{...,PC} )
  730; NO R14 - IRQs are enabled, and R14 is thus not usable.
  740.GateOn
  750LDR R0,WaveBase         ; wavetable base
  760STR R0,[R9,#16]         ; set up as working register 5
  770LDR R0,LogAmpPtr        ; volume scaled log.amp. table
  780STR R0,[R9,#20]         ; set up as working register 6
  790LDMIA R9,{R1-R5}
  800MOV R2,#1
  810B Fill1
  820;*******************************
  830.Fill
  840LDMIA R9,{R1-R5}        ; pick up working registers
  850.Fill1
  860AND R1,R1,#&7F
  870; R1 is amplitude (0-127)         R2 is pitch phase accumulator
  880; R3 is timbre phase accumulator  R4 is duration
  890; R5 is wavetable base            R6 is amplitude table base
  900LDRB R1,[R6,R1,LSL#1]   ; get volume scaled amp
  910MOV R1,R1,LSR#1         ; R1 is volume scaled amp (0-127)
  920RSB R1,R1,#127          ; make attenuation factor
  930
  940.FillLoop
  950ADD R2,R2,#st     ; advance waveform phase
  960LDRB R0,[R5,R2,LSR#4]  ; get wave sample
  970SUBS R0,R0,#0    ; scale amplitude
  980MOVMI R0,#0             ; and correct for underflow
  990STRB R0,[R12],R11       ; generate output sample
 1000ADD R2,R2,#st
 1010LDRB R0,[R5,R2,LSR#4]
 1020SUBS R0,R0,#0
 1030MOVMI R0,#0
 1040STRB R0,[R12],R11
 1050ADD R2,R2,#st
 1060LDRB R0,[R5,R2,LSR#4]
 1070SUBS R0,R0,#0
 1080MOVMI R0,#0
 1090STRB R0,[R12],R11
 1100ADD R2,R2,#st
 1110LDRB R0,[R5,R2,LSR#4]
 1120SUBS R0,R0,#0
 1130MOVMI R0,#0
 1140STRB R0,[R12],R11
 1150CMP R12,R10             ; Check for end of buffer fill
 1160BLT FillLoop            ; Loop back if not finished..
 1170; check for end of note
 1180MOV R0,R2,LSR#4:CMP R0,#&D800:MOVGE R2,#0
 1190SUBS R4,R4,#1           ; decrement centisecond count
 1200STMIB R9,{R2-R5}
 1210MOVPL R0,#%00001000     ; voice active
 1220MOVMI R0,#%00000010     ; force flush
 1230LDMFD R13!,{PC}         ; ..and return to Level1
 1240;***************************
 1250.GateOff
 1260MOV R0,#0
 1270.FlushLoop
 1280STRB R0,[R12],R11
 1290STRB R0,[R12],R11
 1300STRB R0,[R12],R11
 1310STRB R0,[R12],R11
 1320CMP R12,R10
 1330BLT FlushLoop
 1340; Cause Level1 to Flush once more
 1350MOV R0,#%00000001       ; Flush one more buffer
 1360LDMFD R13!,{PC}         ; return to Level1
 1370.tests EQUD 0
 1380]
 1390NEXT
 1400 
 1410DIM OldVoice%(8)
 1420SYS "Sound_InstallVoice",VoiceBase,0 TO a%,Voice%
 1430FORv%=1TO8
 1440SYS "Sound_AttachVoice",v%,0 TO z%,OldVoice%(v%)
 1450VOICE v%,"WaveVoice"
 1460NEXT
 1470 
 1480
 1490ONERRORPROCFejl
 1500 
 1510VOICES 8
 1520*Voices { > NULL: }
 1530REM SOUND1,&17E,100,10:REM Activate channel 1 !
 1540
 1550
 1560 
 1570
 1580
 1590
 1600
 1610SOUND1,&17E,1,80
 1620
 1630SOUND2,&17E,1,80
 1640
 1650
 1660A%=INKEY(400)
 1670PROCRestore_Sound
 1680END
 1690
 1700
 1710DEFPROCRestore_Sound
 1720SYS "Sound_RemoveVoice",0,Voice%
 1730FORv%=1TO8
 1740SYS "Sound_AttachVoice",v%,OldVoice%(v%)
 1750NEXT
 1760VOICES 1
 1770*Voices { > NULL: }
 1780ENDPROC
 1790
 1800DEFPROCFejl
 1810ON
 1820ONERROROFF
 1830REPORT:PRINT" i linie ";ERL
 1840PROCRestore_Sound
 1850END
 1860ENDPROC


� > <Path$Dir>.HALMS
	 st=7
+� Bug fixed 07/06/90 by Michael Seifert
(:� !Boot design implemented 07/06/90 by Michael Seifert
2 � -> Hal's voice from "2001"
<1� Modified from WaveVoice code in user guide.
F4� Samples transferred and (not much) work on the
P1� code done by Hugo Fiennes and Jan Paxton of
Z6� The Serial Port. Buy ARCterm (that's an advert).
d�
n � Ctrl-Break before running.
x�
�8� This is p.d.. Samples are from an Amiga p.d. disk,
�6� translated from IFF format. Hold down a key with
�(� *FX12,1 and listen.....wierd, huh?
��
�
�X%=�(-�)
�� WaveTable 150000
�� Code% 4095
� 
�,�("LOAD <Obey$Dir>.OPERAT "+�~WaveTable)
�WaveTable%=WaveTable
�
��C=0�2�2
P%=Code%

	[OPTC
"&;*********************************
,#;* ȡ CO-ROUTINE CODE SEGMENT *
6&;*********************************
@); On installation, point Level1 voice
J*; pointers to this voice control block
T-; (return address always on top of stack)
^.VoiceBase
h
B Fill
r'B Fill               ; Update entry
|B GateOn
�
B GateOff
�,B Instance           ; Instantiate entry
�%LDMFD R13!,{PC}      ; Free entry
�%LDMFD R13!,{PC}      ; Initialise
�EQUD VoiceName-VoiceBase
� 
�.VoiceName EQUS"WaveVoice"
�	EQUB0
�	ALIGN
� 
�.LogAmpPtr EQUD0
�.WaveBase EQUD WaveTable%
�&;*********************************
2.Instance ; any instance must use LogAmp table
STMFD R13!,{R0-R4}

MOV R0,#0
&
MOV R1,#0
0
MOV R2,#0
:
MOV R3,#0
D
MOV R4,#0
NSWI "Sound_Configure"
X6LDR R0,[R3,#12]         ; Level1 ScaleTable offset
bSTR R0,LogAmpPtr
l,LDMFD R13!,{R0-R4,PC} ; Restore & return
v#;******************************
�;* ȡ BUFFER Ȑ ROUTINES *
�#;******************************
�; on entry..
�;   R0-R8 are available
�.;   R9 is SoundChannelControlBlock pointer
�$;   R10 is DMA buffer limit (+1)
�&;   R12 is DMA buffer base pointer
�C;   R13 is the Sound System Stack with return address and flags
�0;         on top (must LDMFD R13!,{...,PC} )
�<; NO R14 - IRQs are enabled, and R14 is thus not usable.
�.GateOn
�,LDR R0,WaveBase         ; wavetable base
�:STR R0,[R9,#16]         ; set up as working register 5
:LDR R0,LogAmpPtr        ; volume scaled log.amp. table
:STR R0,[R9,#20]         ; set up as working register 6
LDMIA R9,{R1-R5}
 
MOV R2,#1
*B Fill1
4$;*******************************
>	.Fill
H7LDMIA R9,{R1-R5}        ; pick up working registers
R
.Fill1
\� R1,R1,#&7F
fC; R1 is amplitude (0-127)         R2 is pitch phase accumulator
p4; R3 is timbre phase accumulator  R4 is duration
z@; R5 is wavetable base            R6 is amplitude table base
�3LDRB R1,[R6,R1,LSL#1]   ; get volume scaled amp
�=MOV R1,R1,LSR#1         ; R1 is volume scaled amp (0-127)
�5RSB R1,R1,#127          ; make attenuation factor
�
�
.FillLoop
�.ADD R2,R2,#st     ; advance waveform phase
�,LDRB R0,[R5,R2,LSR#4]  ; get wave sample
�&SUBS R0,R0,#0    ; scale amplitude
�7MOVMI R0,#0             ; and correct for underflow
�4STRB R0,[R12],R11       ; generate output sample
�ADD R2,R2,#st
�LDRB R0,[R5,R2,LSR#4]
�SUBS R0,R0,#0
MOVMI R0,#0
STRB R0,[R12],R11
ADD R2,R2,#st
$LDRB R0,[R5,R2,LSR#4]
.SUBS R0,R0,#0
8MOVMI R0,#0
BSTRB R0,[R12],R11
LADD R2,R2,#st
VLDRB R0,[R5,R2,LSR#4]
`SUBS R0,R0,#0
jMOVMI R0,#0
tSTRB R0,[R12],R11
~:CMP R12,R10             ; Check for end of buffer fill
�9BLT FillLoop            ; Loop back if not finished..
�; check for end of note
�-MOV R0,R2,LSR#4:CMP R0,#&D800:MOVGE R2,#0
�9SUBS R4,R4,#1           ; decrement centisecond count
�STMIB R9,{R2-R5}
�*MOVPL R0,#%00001000     ; voice active
�)MOVMI R0,#%00000010     ; force flush
�4LDMFD R13!,{PC}         ; ..and return to Level1
� ;***************************
�.GateOff
�
MOV R0,#0
�.FlushLoop
STRB R0,[R12],R11

STRB R0,[R12],R11
STRB R0,[R12],R11
STRB R0,[R12],R11
(CMP R12,R10
2BLT FlushLoop
<%; Cause Level1 to Flush once more
F3MOV R0,#%00000001       ; Flush one more buffer
P.LDMFD R13!,{PC}         ; return to Level1
Z.tests EQUD 0
d]
n�
x 
�� OldVoice%(8)
�3ș "Sound_InstallVoice",VoiceBase,0 � a%,Voice%
��v%=1�8
�2ș "Sound_AttachVoice",v%,0 � z%,OldVoice%(v%)
�ȡ v%,"WaveVoice"
��
� 
�
���Fejl
� 
�Ƞ 8
�*Voices { > NULL: }
�1� SOUND1,&17E,100,10:REM Activate channel 1 !


 
"
,
6
@
J�1,&17E,1,80
T
^�2,&17E,1,80
h
r
|
A%=�(400)
��Restore_Sound
��
�
�
���Restore_Sound
�#ș "Sound_RemoveVoice",0,Voice%
��v%=1�8
�+ș "Sound_AttachVoice",v%,OldVoice%(v%)
��
�Ƞ 1
�*Voices { > NULL: }
��
�

��Fejl
�

&�:�" i linie ";�
0�Restore_Sound
:�
D�
�

00000000  0d 00 0a 18 f4 20 3e 20  3c 50 61 74 68 24 44 69  |..... > <Path$Di|
00000010  72 3e 2e 48 41 4c 4d 53  0d 00 14 09 20 73 74 3d  |r>.HALMS.... st=|
00000020  37 0d 00 1e 2b f4 20 42  75 67 20 66 69 78 65 64  |7...+. Bug fixed|
00000030  20 30 37 2f 30 36 2f 39  30 20 62 79 20 4d 69 63  | 07/06/90 by Mic|
00000040  68 61 65 6c 20 53 65 69  66 65 72 74 0d 00 28 3a  |hael Seifert..(:|
00000050  f4 20 21 42 6f 6f 74 20  64 65 73 69 67 6e 20 69  |. !Boot design i|
00000060  6d 70 6c 65 6d 65 6e 74  65 64 20 30 37 2f 30 36  |mplemented 07/06|
00000070  2f 39 30 20 62 79 20 4d  69 63 68 61 65 6c 20 53  |/90 by Michael S|
00000080  65 69 66 65 72 74 0d 00  32 20 f4 20 2d 3e 20 48  |eifert..2 . -> H|
00000090  61 6c 27 73 20 76 6f 69  63 65 20 66 72 6f 6d 20  |al's voice from |
000000a0  22 32 30 30 31 22 0d 00  3c 31 f4 20 4d 6f 64 69  |"2001"..<1. Modi|
000000b0  66 69 65 64 20 66 72 6f  6d 20 57 61 76 65 56 6f  |fied from WaveVo|
000000c0  69 63 65 20 63 6f 64 65  20 69 6e 20 75 73 65 72  |ice code in user|
000000d0  20 67 75 69 64 65 2e 0d  00 46 34 f4 20 53 61 6d  | guide...F4. Sam|
000000e0  70 6c 65 73 20 74 72 61  6e 73 66 65 72 72 65 64  |ples transferred|
000000f0  20 61 6e 64 20 28 6e 6f  74 20 6d 75 63 68 29 20  | and (not much) |
00000100  77 6f 72 6b 20 6f 6e 20  74 68 65 0d 00 50 31 f4  |work on the..P1.|
00000110  20 63 6f 64 65 20 64 6f  6e 65 20 62 79 20 48 75  | code done by Hu|
00000120  67 6f 20 46 69 65 6e 6e  65 73 20 61 6e 64 20 4a  |go Fiennes and J|
00000130  61 6e 20 50 61 78 74 6f  6e 20 6f 66 0d 00 5a 36  |an Paxton of..Z6|
00000140  f4 20 54 68 65 20 53 65  72 69 61 6c 20 50 6f 72  |. The Serial Por|
00000150  74 2e 20 42 75 79 20 41  52 43 74 65 72 6d 20 28  |t. Buy ARCterm (|
00000160  74 68 61 74 27 73 20 61  6e 20 61 64 76 65 72 74  |that's an advert|
00000170  29 2e 0d 00 64 05 f4 0d  00 6e 20 f4 20 43 74 72  |)...d....n . Ctr|
00000180  6c 2d 42 72 65 61 6b 20  62 65 66 6f 72 65 20 72  |l-Break before r|
00000190  75 6e 6e 69 6e 67 2e 0d  00 78 05 f4 0d 00 82 38  |unning...x.....8|
000001a0  f4 20 54 68 69 73 20 69  73 20 70 2e 64 2e 2e 20  |. This is p.d.. |
000001b0  53 61 6d 70 6c 65 73 20  61 72 65 20 66 72 6f 6d  |Samples are from|
000001c0  20 61 6e 20 41 6d 69 67  61 20 70 2e 64 2e 20 64  | an Amiga p.d. d|
000001d0  69 73 6b 2c 0d 00 8c 36  f4 20 74 72 61 6e 73 6c  |isk,...6. transl|
000001e0  61 74 65 64 20 66 72 6f  6d 20 49 46 46 20 66 6f  |ated from IFF fo|
000001f0  72 6d 61 74 2e 20 48 6f  6c 64 20 64 6f 77 6e 20  |rmat. Hold down |
00000200  61 20 6b 65 79 20 77 69  74 68 0d 00 96 28 f4 20  |a key with...(. |
00000210  2a 46 58 31 32 2c 31 20  61 6e 64 20 6c 69 73 74  |*FX12,1 and list|
00000220  65 6e 2e 2e 2e 2e 2e 77  69 65 72 64 2c 20 68 75  |en.....wierd, hu|
00000230  68 3f 0d 00 a0 05 f4 0d  00 aa 04 0d 00 b4 0c 58  |h?.............X|
00000240  25 3d b3 28 2d 91 29 0d  00 be 16 de 20 57 61 76  |%=.(-.)..... Wav|
00000250  65 54 61 62 6c 65 20 31  35 30 30 30 30 0d 00 c8  |eTable 150000...|
00000260  10 de 20 43 6f 64 65 25  20 34 30 39 35 0d 00 d2  |.. Code% 4095...|
00000270  05 20 0d 00 dc 2c ff 28  22 4c 4f 41 44 20 3c 4f  |. ...,.("LOAD <O|
00000280  62 65 79 24 44 69 72 3e  2e 4f 50 45 52 41 54 20  |bey$Dir>.OPERAT |
00000290  22 2b c3 7e 57 61 76 65  54 61 62 6c 65 29 0d 00  |"+.~WaveTable)..|
000002a0  e6 18 57 61 76 65 54 61  62 6c 65 25 3d 57 61 76  |..WaveTable%=Wav|
000002b0  65 54 61 62 6c 65 0d 00  f0 04 0d 00 fa 0c e3 43  |eTable.........C|
000002c0  3d 30 b8 32 88 32 0d 01  04 0c 50 25 3d 43 6f 64  |=0.2.2....P%=Cod|
000002d0  65 25 0d 01 0e 04 0d 01  18 09 5b 4f 50 54 43 0d  |e%........[OPTC.|
000002e0  01 22 26 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |."&;************|
000002f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000300  2a 2a 2a 2a 2a 0d 01 2c  23 3b 2a 20 c8 a1 20 43  |*****..,#;* .. C|
00000310  4f 2d 52 4f 55 54 49 4e  45 20 43 4f 44 45 20 53  |O-ROUTINE CODE S|
00000320  45 47 4d 45 4e 54 20 2a  0d 01 36 26 3b 2a 2a 2a  |EGMENT *..6&;***|
00000330  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000340  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 01  |**************..|
00000350  40 29 3b 20 4f 6e 20 69  6e 73 74 61 6c 6c 61 74  |@); On installat|
00000360  69 6f 6e 2c 20 70 6f 69  6e 74 20 4c 65 76 65 6c  |ion, point Level|
00000370  31 20 76 6f 69 63 65 0d  01 4a 2a 3b 20 70 6f 69  |1 voice..J*; poi|
00000380  6e 74 65 72 73 20 74 6f  20 74 68 69 73 20 76 6f  |nters to this vo|
00000390  69 63 65 20 63 6f 6e 74  72 6f 6c 20 62 6c 6f 63  |ice control bloc|
000003a0  6b 0d 01 54 2d 3b 20 28  72 65 74 75 72 6e 20 61  |k..T-; (return a|
000003b0  64 64 72 65 73 73 20 61  6c 77 61 79 73 20 6f 6e  |ddress always on|
000003c0  20 74 6f 70 20 6f 66 20  73 74 61 63 6b 29 0d 01  | top of stack)..|
000003d0  5e 0e 2e 56 6f 69 63 65  42 61 73 65 0d 01 68 0a  |^..VoiceBase..h.|
000003e0  42 20 46 69 6c 6c 0d 01  72 27 42 20 46 69 6c 6c  |B Fill..r'B Fill|
000003f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00000400  20 55 70 64 61 74 65 20  65 6e 74 72 79 0d 01 7c  | Update entry..||
00000410  0c 42 20 47 61 74 65 4f  6e 0d 01 86 0d 42 20 47  |.B GateOn....B G|
00000420  61 74 65 4f 66 66 0d 01  90 2c 42 20 49 6e 73 74  |ateOff...,B Inst|
00000430  61 6e 63 65 20 20 20 20  20 20 20 20 20 20 20 3b  |ance           ;|
00000440  20 49 6e 73 74 61 6e 74  69 61 74 65 20 65 6e 74  | Instantiate ent|
00000450  72 79 0d 01 9a 25 4c 44  4d 46 44 20 52 31 33 21  |ry...%LDMFD R13!|
00000460  2c 7b 50 43 7d 20 20 20  20 20 20 3b 20 46 72 65  |,{PC}      ; Fre|
00000470  65 20 65 6e 74 72 79 0d  01 a4 25 4c 44 4d 46 44  |e entry...%LDMFD|
00000480  20 52 31 33 21 2c 7b 50  43 7d 20 20 20 20 20 20  | R13!,{PC}      |
00000490  3b 20 49 6e 69 74 69 61  6c 69 73 65 0d 01 ae 1c  |; Initialise....|
000004a0  45 51 55 44 20 56 6f 69  63 65 4e 61 6d 65 2d 56  |EQUD VoiceName-V|
000004b0  6f 69 63 65 42 61 73 65  0d 01 b8 05 20 0d 01 c2  |oiceBase.... ...|
000004c0  1e 2e 56 6f 69 63 65 4e  61 6d 65 20 45 51 55 53  |..VoiceName EQUS|
000004d0  22 57 61 76 65 56 6f 69  63 65 22 0d 01 cc 09 45  |"WaveVoice"....E|
000004e0  51 55 42 30 0d 01 d6 09  41 4c 49 47 4e 0d 01 e0  |QUB0....ALIGN...|
000004f0  05 20 0d 01 ea 14 2e 4c  6f 67 41 6d 70 50 74 72  |. .....LogAmpPtr|
00000500  20 45 51 55 44 30 0d 01  f4 1d 2e 57 61 76 65 42  | EQUD0.....WaveB|
00000510  61 73 65 20 45 51 55 44  20 57 61 76 65 54 61 62  |ase EQUD WaveTab|
00000520  6c 65 25 0d 01 fe 26 3b  2a 2a 2a 2a 2a 2a 2a 2a  |le%...&;********|
00000530  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000540  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 02 08 32 2e 49 6e  |*********...2.In|
00000550  73 74 61 6e 63 65 20 3b  20 61 6e 79 20 69 6e 73  |stance ; any ins|
00000560  74 61 6e 63 65 20 6d 75  73 74 20 75 73 65 20 4c  |tance must use L|
00000570  6f 67 41 6d 70 20 74 61  62 6c 65 0d 02 12 16 53  |ogAmp table....S|
00000580  54 4d 46 44 20 52 31 33  21 2c 7b 52 30 2d 52 34  |TMFD R13!,{R0-R4|
00000590  7d 0d 02 1c 0d 4d 4f 56  20 52 30 2c 23 30 0d 02  |}....MOV R0,#0..|
000005a0  26 0d 4d 4f 56 20 52 31  2c 23 30 0d 02 30 0d 4d  |&.MOV R1,#0..0.M|
000005b0  4f 56 20 52 32 2c 23 30  0d 02 3a 0d 4d 4f 56 20  |OV R2,#0..:.MOV |
000005c0  52 33 2c 23 30 0d 02 44  0d 4d 4f 56 20 52 34 2c  |R3,#0..D.MOV R4,|
000005d0  23 30 0d 02 4e 19 53 57  49 20 22 53 6f 75 6e 64  |#0..N.SWI "Sound|
000005e0  5f 43 6f 6e 66 69 67 75  72 65 22 0d 02 58 36 4c  |_Configure"..X6L|
000005f0  44 52 20 52 30 2c 5b 52  33 2c 23 31 32 5d 20 20  |DR R0,[R3,#12]  |
00000600  20 20 20 20 20 20 20 3b  20 4c 65 76 65 6c 31 20  |       ; Level1 |
00000610  53 63 61 6c 65 54 61 62  6c 65 20 6f 66 66 73 65  |ScaleTable offse|
00000620  74 0d 02 62 14 53 54 52  20 52 30 2c 4c 6f 67 41  |t..b.STR R0,LogA|
00000630  6d 70 50 74 72 0d 02 6c  2c 4c 44 4d 46 44 20 52  |mpPtr..l,LDMFD R|
00000640  31 33 21 2c 7b 52 30 2d  52 34 2c 50 43 7d 20 3b  |13!,{R0-R4,PC} ;|
00000650  20 52 65 73 74 6f 72 65  20 26 20 72 65 74 75 72  | Restore & retur|
00000660  6e 0d 02 76 23 3b 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |n..v#;**********|
00000670  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000680  2a 2a 2a 2a 0d 02 80 1e  3b 2a 20 c8 a1 20 42 55  |****....;* .. BU|
00000690  46 46 45 52 20 c8 90 20  52 4f 55 54 49 4e 45 53  |FFER .. ROUTINES|
000006a0  20 2a 0d 02 8a 23 3b 2a  2a 2a 2a 2a 2a 2a 2a 2a  | *...#;*********|
000006b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000006c0  2a 2a 2a 2a 2a 0d 02 94  10 3b 20 6f 6e 20 65 6e  |*****....; on en|
000006d0  74 72 79 2e 2e 0d 02 9e  1b 3b 20 20 20 52 30 2d  |try......;   R0-|
000006e0  52 38 20 61 72 65 20 61  76 61 69 6c 61 62 6c 65  |R8 are available|
000006f0  0d 02 a8 2e 3b 20 20 20  52 39 20 69 73 20 53 6f  |....;   R9 is So|
00000700  75 6e 64 43 68 61 6e 6e  65 6c 43 6f 6e 74 72 6f  |undChannelContro|
00000710  6c 42 6c 6f 63 6b 20 70  6f 69 6e 74 65 72 0d 02  |lBlock pointer..|
00000720  b2 24 3b 20 20 20 52 31  30 20 69 73 20 44 4d 41  |.$;   R10 is DMA|
00000730  20 62 75 66 66 65 72 20  6c 69 6d 69 74 20 28 2b  | buffer limit (+|
00000740  31 29 0d 02 bc 26 3b 20  20 20 52 31 32 20 69 73  |1)...&;   R12 is|
00000750  20 44 4d 41 20 62 75 66  66 65 72 20 62 61 73 65  | DMA buffer base|
00000760  20 70 6f 69 6e 74 65 72  0d 02 c6 43 3b 20 20 20  | pointer...C;   |
00000770  52 31 33 20 69 73 20 74  68 65 20 53 6f 75 6e 64  |R13 is the Sound|
00000780  20 53 79 73 74 65 6d 20  53 74 61 63 6b 20 77 69  | System Stack wi|
00000790  74 68 20 72 65 74 75 72  6e 20 61 64 64 72 65 73  |th return addres|
000007a0  73 20 61 6e 64 20 66 6c  61 67 73 0d 02 d0 30 3b  |s and flags...0;|
000007b0  20 20 20 20 20 20 20 20  20 6f 6e 20 74 6f 70 20  |         on top |
000007c0  28 6d 75 73 74 20 4c 44  4d 46 44 20 52 31 33 21  |(must LDMFD R13!|
000007d0  2c 7b 2e 2e 2e 2c 50 43  7d 20 29 0d 02 da 3c 3b  |,{...,PC} )...<;|
000007e0  20 4e 4f 20 52 31 34 20  2d 20 49 52 51 73 20 61  | NO R14 - IRQs a|
000007f0  72 65 20 65 6e 61 62 6c  65 64 2c 20 61 6e 64 20  |re enabled, and |
00000800  52 31 34 20 69 73 20 74  68 75 73 20 6e 6f 74 20  |R14 is thus not |
00000810  75 73 61 62 6c 65 2e 0d  02 e4 0b 2e 47 61 74 65  |usable......Gate|
00000820  4f 6e 0d 02 ee 2c 4c 44  52 20 52 30 2c 57 61 76  |On...,LDR R0,Wav|
00000830  65 42 61 73 65 20 20 20  20 20 20 20 20 20 3b 20  |eBase         ; |
00000840  77 61 76 65 74 61 62 6c  65 20 62 61 73 65 0d 02  |wavetable base..|
00000850  f8 3a 53 54 52 20 52 30  2c 5b 52 39 2c 23 31 36  |.:STR R0,[R9,#16|
00000860  5d 20 20 20 20 20 20 20  20 20 3b 20 73 65 74 20  |]         ; set |
00000870  75 70 20 61 73 20 77 6f  72 6b 69 6e 67 20 72 65  |up as working re|
00000880  67 69 73 74 65 72 20 35  0d 03 02 3a 4c 44 52 20  |gister 5...:LDR |
00000890  52 30 2c 4c 6f 67 41 6d  70 50 74 72 20 20 20 20  |R0,LogAmpPtr    |
000008a0  20 20 20 20 3b 20 76 6f  6c 75 6d 65 20 73 63 61  |    ; volume sca|
000008b0  6c 65 64 20 6c 6f 67 2e  61 6d 70 2e 20 74 61 62  |led log.amp. tab|
000008c0  6c 65 0d 03 0c 3a 53 54  52 20 52 30 2c 5b 52 39  |le...:STR R0,[R9|
000008d0  2c 23 32 30 5d 20 20 20  20 20 20 20 20 20 3b 20  |,#20]         ; |
000008e0  73 65 74 20 75 70 20 61  73 20 77 6f 72 6b 69 6e  |set up as workin|
000008f0  67 20 72 65 67 69 73 74  65 72 20 36 0d 03 16 14  |g register 6....|
00000900  4c 44 4d 49 41 20 52 39  2c 7b 52 31 2d 52 35 7d  |LDMIA R9,{R1-R5}|
00000910  0d 03 20 0d 4d 4f 56 20  52 32 2c 23 31 0d 03 2a  |.. .MOV R2,#1..*|
00000920  0b 42 20 46 69 6c 6c 31  0d 03 34 24 3b 2a 2a 2a  |.B Fill1..4$;***|
00000930  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000940  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 03 3e 09  |************..>.|
00000950  2e 46 69 6c 6c 0d 03 48  37 4c 44 4d 49 41 20 52  |.Fill..H7LDMIA R|
00000960  39 2c 7b 52 31 2d 52 35  7d 20 20 20 20 20 20 20  |9,{R1-R5}       |
00000970  20 3b 20 70 69 63 6b 20  75 70 20 77 6f 72 6b 69  | ; pick up worki|
00000980  6e 67 20 72 65 67 69 73  74 65 72 73 0d 03 52 0a  |ng registers..R.|
00000990  2e 46 69 6c 6c 31 0d 03  5c 10 80 20 52 31 2c 52  |.Fill1..\.. R1,R|
000009a0  31 2c 23 26 37 46 0d 03  66 43 3b 20 52 31 20 69  |1,#&7F..fC; R1 i|
000009b0  73 20 61 6d 70 6c 69 74  75 64 65 20 28 30 2d 31  |s amplitude (0-1|
000009c0  32 37 29 20 20 20 20 20  20 20 20 20 52 32 20 69  |27)         R2 i|
000009d0  73 20 70 69 74 63 68 20  70 68 61 73 65 20 61 63  |s pitch phase ac|
000009e0  63 75 6d 75 6c 61 74 6f  72 0d 03 70 34 3b 20 52  |cumulator..p4; R|
000009f0  33 20 69 73 20 74 69 6d  62 72 65 20 70 68 61 73  |3 is timbre phas|
00000a00  65 20 61 63 63 75 6d 75  6c 61 74 6f 72 20 20 52  |e accumulator  R|
00000a10  34 20 69 73 20 64 75 72  61 74 69 6f 6e 0d 03 7a  |4 is duration..z|
00000a20  40 3b 20 52 35 20 69 73  20 77 61 76 65 74 61 62  |@; R5 is wavetab|
00000a30  6c 65 20 62 61 73 65 20  20 20 20 20 20 20 20 20  |le base         |
00000a40  20 20 20 52 36 20 69 73  20 61 6d 70 6c 69 74 75  |   R6 is amplitu|
00000a50  64 65 20 74 61 62 6c 65  20 62 61 73 65 0d 03 84  |de table base...|
00000a60  33 4c 44 52 42 20 52 31  2c 5b 52 36 2c 52 31 2c  |3LDRB R1,[R6,R1,|
00000a70  4c 53 4c 23 31 5d 20 20  20 3b 20 67 65 74 20 76  |LSL#1]   ; get v|
00000a80  6f 6c 75 6d 65 20 73 63  61 6c 65 64 20 61 6d 70  |olume scaled amp|
00000a90  0d 03 8e 3d 4d 4f 56 20  52 31 2c 52 31 2c 4c 53  |...=MOV R1,R1,LS|
00000aa0  52 23 31 20 20 20 20 20  20 20 20 20 3b 20 52 31  |R#1         ; R1|
00000ab0  20 69 73 20 76 6f 6c 75  6d 65 20 73 63 61 6c 65  | is volume scale|
00000ac0  64 20 61 6d 70 20 28 30  2d 31 32 37 29 0d 03 98  |d amp (0-127)...|
00000ad0  35 52 53 42 20 52 31 2c  52 31 2c 23 31 32 37 20  |5RSB R1,R1,#127 |
00000ae0  20 20 20 20 20 20 20 20  20 3b 20 6d 61 6b 65 20  |         ; make |
00000af0  61 74 74 65 6e 75 61 74  69 6f 6e 20 66 61 63 74  |attenuation fact|
00000b00  6f 72 0d 03 a2 04 0d 03  ac 0d 2e 46 69 6c 6c 4c  |or.........FillL|
00000b10  6f 6f 70 0d 03 b6 2e 41  44 44 20 52 32 2c 52 32  |oop....ADD R2,R2|
00000b20  2c 23 73 74 20 20 20 20  20 3b 20 61 64 76 61 6e  |,#st     ; advan|
00000b30  63 65 20 77 61 76 65 66  6f 72 6d 20 70 68 61 73  |ce waveform phas|
00000b40  65 0d 03 c0 2c 4c 44 52  42 20 52 30 2c 5b 52 35  |e...,LDRB R0,[R5|
00000b50  2c 52 32 2c 4c 53 52 23  34 5d 20 20 3b 20 67 65  |,R2,LSR#4]  ; ge|
00000b60  74 20 77 61 76 65 20 73  61 6d 70 6c 65 0d 03 ca  |t wave sample...|
00000b70  26 53 55 42 53 20 52 30  2c 52 30 2c 23 30 20 20  |&SUBS R0,R0,#0  |
00000b80  20 20 3b 20 73 63 61 6c  65 20 61 6d 70 6c 69 74  |  ; scale amplit|
00000b90  75 64 65 0d 03 d4 37 4d  4f 56 4d 49 20 52 30 2c  |ude...7MOVMI R0,|
00000ba0  23 30 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |#0             ;|
00000bb0  20 61 6e 64 20 63 6f 72  72 65 63 74 20 66 6f 72  | and correct for|
00000bc0  20 75 6e 64 65 72 66 6c  6f 77 0d 03 de 34 53 54  | underflow...4ST|
00000bd0  52 42 20 52 30 2c 5b 52  31 32 5d 2c 52 31 31 20  |RB R0,[R12],R11 |
00000be0  20 20 20 20 20 20 3b 20  67 65 6e 65 72 61 74 65  |      ; generate|
00000bf0  20 6f 75 74 70 75 74 20  73 61 6d 70 6c 65 0d 03  | output sample..|
00000c00  e8 11 41 44 44 20 52 32  2c 52 32 2c 23 73 74 0d  |..ADD R2,R2,#st.|
00000c10  03 f2 19 4c 44 52 42 20  52 30 2c 5b 52 35 2c 52  |...LDRB R0,[R5,R|
00000c20  32 2c 4c 53 52 23 34 5d  0d 03 fc 11 53 55 42 53  |2,LSR#4]....SUBS|
00000c30  20 52 30 2c 52 30 2c 23  30 0d 04 06 0f 4d 4f 56  | R0,R0,#0....MOV|
00000c40  4d 49 20 52 30 2c 23 30  0d 04 10 15 53 54 52 42  |MI R0,#0....STRB|
00000c50  20 52 30 2c 5b 52 31 32  5d 2c 52 31 31 0d 04 1a  | R0,[R12],R11...|
00000c60  11 41 44 44 20 52 32 2c  52 32 2c 23 73 74 0d 04  |.ADD R2,R2,#st..|
00000c70  24 19 4c 44 52 42 20 52  30 2c 5b 52 35 2c 52 32  |$.LDRB R0,[R5,R2|
00000c80  2c 4c 53 52 23 34 5d 0d  04 2e 11 53 55 42 53 20  |,LSR#4]....SUBS |
00000c90  52 30 2c 52 30 2c 23 30  0d 04 38 0f 4d 4f 56 4d  |R0,R0,#0..8.MOVM|
00000ca0  49 20 52 30 2c 23 30 0d  04 42 15 53 54 52 42 20  |I R0,#0..B.STRB |
00000cb0  52 30 2c 5b 52 31 32 5d  2c 52 31 31 0d 04 4c 11  |R0,[R12],R11..L.|
00000cc0  41 44 44 20 52 32 2c 52  32 2c 23 73 74 0d 04 56  |ADD R2,R2,#st..V|
00000cd0  19 4c 44 52 42 20 52 30  2c 5b 52 35 2c 52 32 2c  |.LDRB R0,[R5,R2,|
00000ce0  4c 53 52 23 34 5d 0d 04  60 11 53 55 42 53 20 52  |LSR#4]..`.SUBS R|
00000cf0  30 2c 52 30 2c 23 30 0d  04 6a 0f 4d 4f 56 4d 49  |0,R0,#0..j.MOVMI|
00000d00  20 52 30 2c 23 30 0d 04  74 15 53 54 52 42 20 52  | R0,#0..t.STRB R|
00000d10  30 2c 5b 52 31 32 5d 2c  52 31 31 0d 04 7e 3a 43  |0,[R12],R11..~:C|
00000d20  4d 50 20 52 31 32 2c 52  31 30 20 20 20 20 20 20  |MP R12,R10      |
00000d30  20 20 20 20 20 20 20 3b  20 43 68 65 63 6b 20 66  |       ; Check f|
00000d40  6f 72 20 65 6e 64 20 6f  66 20 62 75 66 66 65 72  |or end of buffer|
00000d50  20 66 69 6c 6c 0d 04 88  39 42 4c 54 20 46 69 6c  | fill...9BLT Fil|
00000d60  6c 4c 6f 6f 70 20 20 20  20 20 20 20 20 20 20 20  |lLoop           |
00000d70  20 3b 20 4c 6f 6f 70 20  62 61 63 6b 20 69 66 20  | ; Loop back if |
00000d80  6e 6f 74 20 66 69 6e 69  73 68 65 64 2e 2e 0d 04  |not finished....|
00000d90  92 1b 3b 20 63 68 65 63  6b 20 66 6f 72 20 65 6e  |..; check for en|
00000da0  64 20 6f 66 20 6e 6f 74  65 0d 04 9c 2d 4d 4f 56  |d of note...-MOV|
00000db0  20 52 30 2c 52 32 2c 4c  53 52 23 34 3a 43 4d 50  | R0,R2,LSR#4:CMP|
00000dc0  20 52 30 2c 23 26 44 38  30 30 3a 4d 4f 56 47 45  | R0,#&D800:MOVGE|
00000dd0  20 52 32 2c 23 30 0d 04  a6 39 53 55 42 53 20 52  | R2,#0...9SUBS R|
00000de0  34 2c 52 34 2c 23 31 20  20 20 20 20 20 20 20 20  |4,R4,#1         |
00000df0  20 20 3b 20 64 65 63 72  65 6d 65 6e 74 20 63 65  |  ; decrement ce|
00000e00  6e 74 69 73 65 63 6f 6e  64 20 63 6f 75 6e 74 0d  |ntisecond count.|
00000e10  04 b0 14 53 54 4d 49 42  20 52 39 2c 7b 52 32 2d  |...STMIB R9,{R2-|
00000e20  52 35 7d 0d 04 ba 2a 4d  4f 56 50 4c 20 52 30 2c  |R5}...*MOVPL R0,|
00000e30  23 25 30 30 30 30 31 30  30 30 20 20 20 20 20 3b  |#%00001000     ;|
00000e40  20 76 6f 69 63 65 20 61  63 74 69 76 65 0d 04 c4  | voice active...|
00000e50  29 4d 4f 56 4d 49 20 52  30 2c 23 25 30 30 30 30  |)MOVMI R0,#%0000|
00000e60  30 30 31 30 20 20 20 20  20 3b 20 66 6f 72 63 65  |0010     ; force|
00000e70  20 66 6c 75 73 68 0d 04  ce 34 4c 44 4d 46 44 20  | flush...4LDMFD |
00000e80  52 31 33 21 2c 7b 50 43  7d 20 20 20 20 20 20 20  |R13!,{PC}       |
00000e90  20 20 3b 20 2e 2e 61 6e  64 20 72 65 74 75 72 6e  |  ; ..and return|
00000ea0  20 74 6f 20 4c 65 76 65  6c 31 0d 04 d8 20 3b 2a  | to Level1... ;*|
00000eb0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000ec0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 04 e2 0c 2e 47  |**********.....G|
00000ed0  61 74 65 4f 66 66 0d 04  ec 0d 4d 4f 56 20 52 30  |ateOff....MOV R0|
00000ee0  2c 23 30 0d 04 f6 0e 2e  46 6c 75 73 68 4c 6f 6f  |,#0.....FlushLoo|
00000ef0  70 0d 05 00 15 53 54 52  42 20 52 30 2c 5b 52 31  |p....STRB R0,[R1|
00000f00  32 5d 2c 52 31 31 0d 05  0a 15 53 54 52 42 20 52  |2],R11....STRB R|
00000f10  30 2c 5b 52 31 32 5d 2c  52 31 31 0d 05 14 15 53  |0,[R12],R11....S|
00000f20  54 52 42 20 52 30 2c 5b  52 31 32 5d 2c 52 31 31  |TRB R0,[R12],R11|
00000f30  0d 05 1e 15 53 54 52 42  20 52 30 2c 5b 52 31 32  |....STRB R0,[R12|
00000f40  5d 2c 52 31 31 0d 05 28  0f 43 4d 50 20 52 31 32  |],R11..(.CMP R12|
00000f50  2c 52 31 30 0d 05 32 11  42 4c 54 20 46 6c 75 73  |,R10..2.BLT Flus|
00000f60  68 4c 6f 6f 70 0d 05 3c  25 3b 20 43 61 75 73 65  |hLoop..<%; Cause|
00000f70  20 4c 65 76 65 6c 31 20  74 6f 20 46 6c 75 73 68  | Level1 to Flush|
00000f80  20 6f 6e 63 65 20 6d 6f  72 65 0d 05 46 33 4d 4f  | once more..F3MO|
00000f90  56 20 52 30 2c 23 25 30  30 30 30 30 30 30 31 20  |V R0,#%00000001 |
00000fa0  20 20 20 20 20 20 3b 20  46 6c 75 73 68 20 6f 6e  |      ; Flush on|
00000fb0  65 20 6d 6f 72 65 20 62  75 66 66 65 72 0d 05 50  |e more buffer..P|
00000fc0  2e 4c 44 4d 46 44 20 52  31 33 21 2c 7b 50 43 7d  |.LDMFD R13!,{PC}|
00000fd0  20 20 20 20 20 20 20 20  20 3b 20 72 65 74 75 72  |         ; retur|
00000fe0  6e 20 74 6f 20 4c 65 76  65 6c 31 0d 05 5a 11 2e  |n to Level1..Z..|
00000ff0  74 65 73 74 73 20 45 51  55 44 20 30 0d 05 64 05  |tests EQUD 0..d.|
00001000  5d 0d 05 6e 05 ed 0d 05  78 05 20 0d 05 82 12 de  |]..n....x. .....|
00001010  20 4f 6c 64 56 6f 69 63  65 25 28 38 29 0d 05 8c  | OldVoice%(8)...|
00001020  33 c8 99 20 22 53 6f 75  6e 64 5f 49 6e 73 74 61  |3.. "Sound_Insta|
00001030  6c 6c 56 6f 69 63 65 22  2c 56 6f 69 63 65 42 61  |llVoice",VoiceBa|
00001040  73 65 2c 30 20 b8 20 61  25 2c 56 6f 69 63 65 25  |se,0 . a%,Voice%|
00001050  0d 05 96 0b e3 76 25 3d  31 b8 38 0d 05 a0 32 c8  |.....v%=1.8...2.|
00001060  99 20 22 53 6f 75 6e 64  5f 41 74 74 61 63 68 56  |. "Sound_AttachV|
00001070  6f 69 63 65 22 2c 76 25  2c 30 20 b8 20 7a 25 2c  |oice",v%,0 . z%,|
00001080  4f 6c 64 56 6f 69 63 65  25 28 76 25 29 0d 05 aa  |OldVoice%(v%)...|
00001090  15 c8 a1 20 76 25 2c 22  57 61 76 65 56 6f 69 63  |... v%,"WaveVoic|
000010a0  65 22 0d 05 b4 05 ed 0d  05 be 05 20 0d 05 c8 04  |e"......... ....|
000010b0  0d 05 d2 0b ee 85 f2 46  65 6a 6c 0d 05 dc 05 20  |.......Fejl.... |
000010c0  0d 05 e6 08 c8 a0 20 38  0d 05 f0 17 2a 56 6f 69  |...... 8....*Voi|
000010d0  63 65 73 20 7b 20 3e 20  4e 55 4c 4c 3a 20 7d 0d  |ces { > NULL: }.|
000010e0  05 fa 31 f4 20 53 4f 55  4e 44 31 2c 26 31 37 45  |..1. SOUND1,&17E|
000010f0  2c 31 30 30 2c 31 30 3a  52 45 4d 20 41 63 74 69  |,100,10:REM Acti|
00001100  76 61 74 65 20 63 68 61  6e 6e 65 6c 20 31 20 21  |vate channel 1 !|
00001110  0d 06 04 04 0d 06 0e 04  0d 06 18 05 20 0d 06 22  |............ .."|
00001120  04 0d 06 2c 04 0d 06 36  04 0d 06 40 04 0d 06 4a  |...,...6...@...J|
00001130  10 d4 31 2c 26 31 37 45  2c 31 2c 38 30 0d 06 54  |..1,&17E,1,80..T|
00001140  04 0d 06 5e 10 d4 32 2c  26 31 37 45 2c 31 2c 38  |...^..2,&17E,1,8|
00001150  30 0d 06 68 04 0d 06 72  04 0d 06 7c 0d 41 25 3d  |0..h...r...|.A%=|
00001160  a6 28 34 30 30 29 0d 06  86 12 f2 52 65 73 74 6f  |.(400).....Resto|
00001170  72 65 5f 53 6f 75 6e 64  0d 06 90 05 e0 0d 06 9a  |re_Sound........|
00001180  04 0d 06 a4 04 0d 06 ae  13 dd f2 52 65 73 74 6f  |...........Resto|
00001190  72 65 5f 53 6f 75 6e 64  0d 06 b8 23 c8 99 20 22  |re_Sound...#.. "|
000011a0  53 6f 75 6e 64 5f 52 65  6d 6f 76 65 56 6f 69 63  |Sound_RemoveVoic|
000011b0  65 22 2c 30 2c 56 6f 69  63 65 25 0d 06 c2 0b e3  |e",0,Voice%.....|
000011c0  76 25 3d 31 b8 38 0d 06  cc 2b c8 99 20 22 53 6f  |v%=1.8...+.. "So|
000011d0  75 6e 64 5f 41 74 74 61  63 68 56 6f 69 63 65 22  |und_AttachVoice"|
000011e0  2c 76 25 2c 4f 6c 64 56  6f 69 63 65 25 28 76 25  |,v%,OldVoice%(v%|
000011f0  29 0d 06 d6 05 ed 0d 06  e0 08 c8 a0 20 31 0d 06  |)........... 1..|
00001200  ea 17 2a 56 6f 69 63 65  73 20 7b 20 3e 20 4e 55  |..*Voices { > NU|
00001210  4c 4c 3a 20 7d 0d 06 f4  05 e1 0d 06 fe 04 0d 07  |LL: }...........|
00001220  08 0a dd f2 46 65 6a 6c  0d 07 12 05 ee 0d 07 1c  |....Fejl........|
00001230  07 ee 85 87 0d 07 26 14  f6 3a f1 22 20 69 20 6c  |......&..:." i l|
00001240  69 6e 69 65 20 22 3b 9e  0d 07 30 12 f2 52 65 73  |inie ";...0..Res|
00001250  74 6f 72 65 5f 53 6f 75  6e 64 0d 07 3a 05 e0 0d  |tore_Sound..:...|
00001260  07 44 05 e1 0d ff                                 |.D....|
00001266

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .