� >Music

K� � ș "Hourglass_Smash":� 0,(error$+" (internal error code "+�(�)+")")
(
2�  Fixed variables :
<
F  trigger$ = ""
P  trigger% = �
Z
d
n
xmodule$ = "Music"
�
�ș "Hourglass_On"
�Oș "OS_File",13,"<Modules$Dir>."+module$+".Music" � mus_exists%,,,,mus_len%
�>� mus_exists% = 0 � � 0,(module$+": Music file not found")
�
�
�assemble
�	�init
�
�Y�"SAVE    <Modules$Dir>."+module$+".Module "+�~Play_Routine+" "+�~(End_Code+mus_len%)
�4�"SETTYPE <Modules$Dir>."+module$+".Module Data"
�
�ș "Hourglass_Off"
��







"� �assemble

,I� *-----------------------------------------------------------------*

6I� *         PLAYROUTINE 1-8 VOICES FOR TRACKER  Version 1.3         *

@I� *-----------------------------------------------------------------*

JI� *                    Written by Fabrice MERCIER                   *

TI� *-----------------------------------------------------------------*

^I� *            (c) 1990 Fabrice MERCIER & The Serial Port           *

hI� *-----------------------------------------------------------------*

rI� *  Many thanks to Hugo for his great help in a bloody debug-day ! *

|I� *-----------------------------------------------------------------*

�I� *  In your own program :                                          *

�I� *  1) Call 'Trk_Init_All' at beginning of your program            *

�I� *  2) Call 'Trk_Play_Music' each frame                            *

�I� *  3) Call 'Trk_Close_All' before to quit                         *

�I� *-----------------------------------------------------------------*

�

�!len% = (32 * 1024) + mus_len%

��  Play_Routine len%

�Sample_Rate   = 34

�Sample_Volume = 44

�Sample_Length = 56

�Repeat_Offset = 68

�Repeat_Length = 80

� Pass% = 8 � 10 � 2
  P% = Play_Routine
&  L% = Play_Routine + len%
0  [ OPT Pass%
:
;
D-.init  EQUD Trk_Init_All   - Play_Routine
N-.frame EQUD Trk_Play_Music - Play_Routine
X-.end   EQUD Trk_Close_All  - Play_Routine
b
l:; *--------------------------------------------------*
v:; *    Init Tracker Variables & Init Sound System    *
�:; *--------------------------------------------------*
�
�.Trk_Init_All
�STMFD R13!,{R0-R12,R14}
�
�8BL    Get_End_Addr        ; R2 => Music base address
�=STR   R2,Trk_Base         ; Must be saved in Trk_Base (!)
�
�BADR   R12,Trk_Infos       ; R12 => Tracker Pointers & Counters
�MOV   R1,#0
�@STR   R1,[R12],#4         ; Set position in Sequence to zero
�8LDR   R0,Trk_Base         ; R0 => Music Base Address
�5LDR   R9,[R0,#4]          ; R9 = File Length (-8)
9ADD   R0,R0,#8            ; R0 => First Chunk Address
1ADD   R9,R0,R9            ; R9 => End of file
MOV   R10,R0
 LDR   R4,MLEN_Chunk
*BL    Search_TFF
4DLDR   R1,[R0]             ; R1 = Music Length (=Sequence length)
>STR   R1,[R12],#4
HMOV   R1,#0
R<STR   R1,[R12],#4         ; Pattern line counter to zero
\MOV   R0,R10
fLDR   R4,PLEN_Chunk
pBL    Search_TFF
z?STR   R0,[R12],#4         ; Save Pattern Table Base Address
�MOV   R0,R10
�LDR   R4,SEQU_Chunk
�BL    Search_TFF
�:STR   R0,[R12],#4         ; Save Sequence Base Address
�MOV   R0,R10
�LDR   R4,PNUM_Chunk
�BL    Search_TFF
�=LDR   R6,[R0]             ; R6 = Patterns number in music
�8BL    Get_Patterns_Table  ; R11 => on Patterns Table
�STR   R11,[R12],#4
�LDR   R4,PATT_Chunk
�MOV   R0,R10
�.Search_Patterns
BL    Search_TFF
FSTR   R0,[R11],#4         ; Save Pattern Address in Patterns Table
KADD   R0,R0,R3            ; Add pattern length to chunk (=next pattern)
$SUBS  R6,R6,#1
.BGT   Search_Patterns
8ADR   R1,Trk_Samples
BLDR   R4,SAMP_Chunk
LDMOV   R7,#36              ; 36 Samples Chunks in one music piece
V.Init_Trk_Samples
`BL    Search_TFF
jSUB   R5,R0,#8
tSTR   R5,[R1],#4
~ADD   R0,R0,R3
�SUBS  R7,R7,#1
�BGT   Init_Trk_Samples
�MOV   R0,R10
�LDR   R4,MVOX_Chunk
�BL    Search_TFF
�3LDR   R12,[R0]            ; R12 = Voices Number
�STR   R12,Trk_Voices
�MOV   R0,R10
�LDR   R4,STER_Chunk
�BL    Search_TFF
�<MOV   R11,R0              ; R11 => Stereo Positions List
�CBL    Init_Sound_System   ; Jump To Sound System Initialisation
LDMFD R13!,{R0-R12,PC}


.TINF_Chunk:EQUS "TINF"
.MVOX_Chunk:EQUS "MVOX"
(.STER_Chunk:EQUS "STER"
2.MLEN_Chunk:EQUS "MLEN"
<.PLEN_Chunk:EQUS "PLEN"
F.SEQU_Chunk:EQUS "SEQU"
P.PNUM_Chunk:EQUS "PNUM"
Z.PATT_Chunk:EQUS "PATT"
d.SAMP_Chunk:EQUS "SAMP"
n
x=; *-----------------------------------------------------*
�7; *             � BUFFER Ȑ ROUTINES              *
�=; *-----------------------------------------------------*
�=; *    R9 => Tracker Infos Block (32 Byte per channel)  *
�=; *     [00-03] ( R0 ) Phase Accumulator                *
�=; *     [04-07] ( R1 ) Phase Increment (Cf. Frequency)  *
�=; *     [08-11] ( R2 ) Repeat Offset                    *
�=; *     [12-15] ( R3 ) Sample Length (or Repeat Length) *
�=; *     [16-19] ( R4 ) Sample Address                   *
�=; *     [20-23] ( R5 ) Sample Volume (255-Volume)       *
�=; *     [24-27] ( R6 ) Fill Status (0=Zeros 1=Samples)  *
�=; *     [.....] (....) Others infos for effects         *
�=; *-----------------------------------------------------*
�=; *  R10 = DMA Buffer limits (+1)                       *
=; *  R11 = DMA Buffer Interleave Increment (1-8)        *
=; *  R12 = DMA Buffer base pointer (+R11)               *
=; *-----------------------------------------------------*
"
,.Fill_Sound_Buffer
6ADR   R9,Voices_Infos_Block
@ADD   R9,R9,R7,LSL#5
JLDMIA R9,{R0-R6}
T
^CMP   R6,#0
hBEQ   Clear_Fill
r
|SUB   R8,R3,R0,LSR#16
�SUB   R8,R8,R1,LSR#8
�CMP   R8,#208
�BGT   Full_Fill
�
�.Fill_Loop
�]
�� Plop%=1 � 16
�[OPT Pass%
�LDRB  R8,[R4,R0,LSR#16]
�SUBS  R8,R8,R5
�MOVMI R8,#0
�STRB  R8,[R12],R11
�ADD   R0,R0,R1
]
�
[OPT Pass%
&1CMP   R3,R0,LSR#16          ; End of sample ?
0BGE   Check_Buffer_End
:9MOVS  R0,R2,LSL#16          ; Yes => R0=Repeat Offset
DJBEQ   Clear_Fill            ; If no repeat then fill buffer with zeros
N.Check_Buffer_End
XCMP   R12,R10
bBLT   Fill_Loop
lSTR   R0,[R9]
vMOV   R0,#%00001000
�LDMFD R13!,{PC}
�
�.Clear_Fill
�MOV   R5,#0
�STR   R5,[R9,#24]
�.Clear_Fill_Loop
�STRB  R5,[R12],R11
�CMP   R12,R10
�BLT   Clear_Fill_Loop
�MOV   R0,#%00001000
�LDMFD R13!,{PC}
�
�.Voices_Infos_Block
]
� BufBlk%=1 � 64
[OPT Pass%
 
EQUD 0
*]
4�
>[OPT Pass%
H
R
.Trk_Base
\1EQUD  0                  ; Music Base Address
f.Trk_Infos
p=EQUD  0                  ; Position Counter (In Sequence)
z+EQUD  0                  ; Music Length
�<EQUD  0                  ; Position Counter (In Pattern)
�:EQUD  0                  ; => on Patterns Length Table
�:EQUD  0                  ; => on Sequence Base Address
�GEQUD  0                  ; => on Patterns Table (up to 64 patterns)
�.Trk_Voices
�,EQUD  0                  ; Voices Number
�.Trk_Counter
�
EQUD 5
�.Trk_Speed
�
EQUD 6
�.Trk_Samples
�]
�P%+=36*4
	[OPT Pass%
	.Trk_Periods
	EQUD0:EQUD0:EQUD0:EQUD0
	$EQUD0:EQUD0:EQUD0:EQUD0
	..Trk_Pattern_Line
	8EQUD0:EQUD0:EQUD0:EQUD0
	BEQUD0:EQUD0:EQUD0:EQUD0
	L.Get_Infos_Block
	VADR  R7,Voices_Infos_Block
	`MOV  PC,R14
	j
	t5; *---------------------------------------------*
	~5; *    Increment/Check Counter (Tempo) Value    *
	�5; *---------------------------------------------*
	�
	�.Trk_Play_Music
	�STMFD R13!,{R0-R12,R14}
	�]
	�� trigger% �
	�  [OPT Pass%
	�*  TST   R11,#(1<<(�("z")-�(trigger$)))
	�  BNE   Trk_Ok
	�  LDMFD R13!,{R0-R12,PC}
	�  ]
	��
[OPT Pass%

.Trk_Ok
LDR   R0,Trk_Counter
LDR   R1,Trk_Speed
(ADD   R0,R0,#1
2CMP   R0,R1
<MOVGE R0,#0
FSTR   R0,Trk_Counter
PBEQ   Trk_Player
ZBNE   Trk_Effects
d
n2; *------------------------------------------*
x2; *    Play a new line of current pattern    *
�2; *------------------------------------------*
�
�.Trk_Player
�ADR   R0,Trk_Infos
�LDMIA R0,{R1-R6,R11}
�6LDRB  R7,[R5,R1]             ; R7 = Pattern number
�9LDR   R12,[R6,R7,LSL#2]      ; R12 => Current pattern
�BMOV   R10,R11,LSL#2          ; R10=R11*4 = Pattern Line Length
�>MLA   R12,R3,R10,R12         ; R12 => Current pattern line
�>LDRB  R7,[R4,R7]             ; R7 = Pattern Length (01-64)
�ADD   R3,R3,#1
�3CMP   R3,R7                  ; End of Pattern ?
�BLT   Write_Position
MOV   R3,#0
BADD   R1,R1,#1               ; Next position in Sequence Table
DCMP   R1,R2                  ; Last Position in Sequence Table ?
"9MOVGE R1,#0                  ; If Yes, Clear Counter.
,.Write_Position
64STMIA R0,{R1-R3}             ; Save new position
@
JADR   R2,Trk_Pattern_Line
TLDMIA R12,{R4-R11}
^STMIA R2,{R4-R11}
hADR   R7,Voices_Infos_Block
rLDR   R11,Trk_Voices
|@BL    Get_Frequence_Table   ; Return R8 => 'Frequence' Table
�MOV   R9,#0
�.Trk_VoiceLoop
�4LDR   R5,[R12],#4           ; R5=Note+Instrument
��   R2,R5,#&FF0000
�@MOV   R2,R2,LSR#16          ; R2=Sample number (01-36)=(0-Z)
�SUBS  R2,R2,#1
�BLT   NextOne
�;BL    Get_New_Sample        ; Normal case = N-O S000...
�9MOVS  R4,R5,LSR#24          ; R4=Note number  (01-36)
�7BLGT  Get_New_Note          ; ... Get Sample & Note
�.NextOne
�BL    Trk_Effects2
�ADD   R7,R7,#32
ADD   R9,R9,#1
CMP   R9,R11
BLT   Trk_VoiceLoop
&
0.EndOfPlay
:LDMFD R13!,{R0-R12,PC}
D
N.Get_New_Note
XSTMFD R13!,{R12,R14}
bBL    Get_Periods_Adr
lSUB   R3,R4,#1
vLDR   R3,[R12,R3,LSL#2]
�@STR   R3,[R7,#28]            ; Save period for portamento...
�ADR   R1,Trk_Periods
�6STR   R3,[R1,R9,LSL#2]       ; ...and for arpeggio
�6LDR   R3,[R8,R3,LSL#2]       ; Get phase increment
�BSTR   R3,[R7,#4]             ; & Save it in voices infos block
�MOV   R1,#0
�:STR   R1,[R7,#0]             ; Clear phase accumulator
�LDMFD R13!,{R12,PC}^
�
�.Get_New_Sample
�STMFD R13!,{R4,R12,R14}
�ADR   R3,Trk_Samples
�6LDR   R3,[R3,R2,LSL#2]       ; R3 => Actual Sample

5ADD   R4,R3,#60              ; R4 => Samples Data

STR   R4,[R7,#16]

MOV   R1,#1

 =STR   R1,[R7,#24]            ; R1 = Flag Fill With Sample

*

4; Set Volume

>

H5LDR   R1,[R3,#16+28]         ; R1 = Sample Volume

RSUBS  R4,R1,#68

\MOVLT R4,#0

fMOV   R4,R4,LSR#2

pRSB   R1,R1,#255

zSTR   R1,[R7,#20]

�

�; Set Volume Command

�

��   R4,R5,#&FF00

�CMP   R4,#&1F00

��EQ R1,R5,#&FF

�RSBEQ R1,R1,#&FF

�STREQ R1,[R7,#20]

�

�; Get & Save samples infos

�

�8LDR   R1,[R3,#40+28]            ; R1 = Repeat Offset

�8LDR   R4,[R3,#52+28]            ; R4 = Repeat Length
CMP   R4,#2
ADDNE R4,R4,R1
8LDREQ R4,[R3,#28+28]            ; R4 = Sample Length
$STR   R4,[R7,#12]
.ADDNE R1,R1,#1
89STR   R1,[R7,#8]                ; Sauve Repeat Offset
BLDMFD R13!,{R4,R12,PC}^
L
V$; *----------------------------*
`$; *      Effects Checking #1   *
j$; *----------------------------*
t$; *  'E'  = Set Stereo         *
~$; *  'J'  = Position Jump      *
�$; *  'V'  = Set Volume         *
�$; *  'B'  = Pattern Break      *
�$; *  'S'  = Set Speed          *
�$; *----------------------------*
�
�.Trk_Effects2
��   R4,R5,#&FF00
�
�; Set Volume ('V')
�
�CMP   R4,#&1F00
�BNE   No_Set_Volume
�   R1,R5,#&FF

RSB   R1,R1,#&FF
STR   R1,[R7,#20]
MOV   PC,R14
(.No_Set_Volume
2
<; Set Speed  ('S')
F
PCMP   R4,#&1C00
ZBNE   No_Set_Speed
d�S  R1,R5,#&0F
nSTRNE R1,Trk_Speed
xMOV   PC,R14
�.No_Set_Speed
�
�; Pattern Break  ('B')
�
�CMP   R4,#&B00
�BNE   No_Pattern_Break
�ADR   R0,Trk_Infos
�LDMIA R0,{R1-R3}
�AADD   R1,R1,#1                      ; Position = Position + 1
�CMP   R1,R2
��Q R1,#0
�BMOV   R3,#0                         ; At start of next pattern
�STMIA R0,{R1-R3}
MOV   PC,R14
.No_Pattern_Break

"; Position Jump ('J')
,
6CMP   R4,#&1300
@BNE   No_Position_Jump
JADR   R0,Trk_Infos
T�   R1,R5,#&7F
^STR   R1,[R0]
hMOV   R1,#0
rSTR   R1,[R0,#8]
|MOV   PC,R14
�.No_Position_Jump
�
�CMP   R4,#&1500
�BNE   No_Line_Jump
��   R1,R5,#&F
�MOV   R2,R5,LSR#4
��S  R2,R2,#&F
�MOVGT R3,#10
�MLAGT R1,R2,R3,R1
�CMP   R1,#63
�ADRLE R0,Trk_Infos
�STRLE R1,[R0,#8]
�MOV   PC,R14
.No_Line_Jump

CMP   R4,#&E00
&BNE   No_Set_Stereo
0ADR   R10,Stereo_Table
:8�S  R2,R5,#&0F          ; R2 = Stereo position (1-7)
D
�Q PC,R14
NCMP   R2,#7
XMOVGT PC,R14
bSUB   R2,R2,#1
lLDR   R1,[R10,R2,LSL#2]
v1ADD   R0,R9,#1            ; R0 = Voice Number
�STMFD R13!,{R8,R9}
�MOV   R0,PC
��R   R8,R9,#3
�TEQP  R8,#0
�MOVNV R0,R0
�STMFD R13!,{R14}
�SWI   "Sound_Stereo"
�LDMFD R13!,{R14}
�TEQP  R9,#0
�MOVNV R0,R0
�LDMFD R13!,{R8,R9}
�.No_Set_Stereo
�MOV   PC,R14

#; *---------------------------*
#; *    Effects Checking #2    *
 #; *---------------------------*
*#; * '0'  = Arpeggio           *
4#; * '1'  = Portamento Up      *
>#; * '2'  = Portamento Down    *
H#; * 'G'  = Slide Volume Up    *
R#; * 'H'  = Slide Volume Down  *
\#; *---------------------------*
f
p.Trk_Effects
zADR   R9,Trk_Pattern_Line
�ADR   R10,Trk_Periods
�4LDR   R11,Trk_Voices       ; R11 = Voices Number
�6BL    Get_Frequence_Table  ; R8 => Frequence Table
�FBL    Get_Infos_Block      ; R7 => Infos Block (32 Byte / Channel)
�MOV   R2,#0
�.CheckEffectsLoop
�LDR   R1,[R9,R2,LSL#2]
�/�   R3,R1,#&00FF         ; R3 = Effect Data
�MOV   R1,R1,LSR#8
�/�   R1,R1,#&FF           ; R1 = Effect Type
�
�CMP   R1,#&10
�BNE   No_Slide_Vol_Up
�   R3,R3,#&FF
ADD   R4,R7,R2,LSL#5
/LDR   R5,[R4,#20]           ; R5=255-Volume
$RSB   R5,R5,#255
.ADD   R5,R5,R3
8CMP   R5,#&FF
BMOVGT R5,#&FF
LRSB   R5,R5,#255
VSTR   R5,[R4,#20]
`B     CheckNextVox
j.No_Slide_Vol_Up
t
~CMP   R1,#&11
�BNE   No_Slide_Vol_Down
��   R3,R3,#&FF
�ADD   R4,R7,R2,LSL#5
�-LDR   R5,[R4,#20]         ; R5=255-Volume
�RSB   R5,R5,#255
�SUBS  R5,R5,R3
�MOVLT R5,#0
�RSB   R5,R5,#255
�STR   R5,[R4,#20]
�B     CheckNextVox
�.No_Slide_Vol_Down
�
CMP   R1,#1

BNE   NoPortUp
ADD   R4,R7,R2,LSL#5
0LDR   R5,[R4,#28]         ; R5=Actual Period
(SUB   R5,R5,R3
2CMP   R5,#&50
<MOVLT R5,#&50
FSTR   R5,[R4,#28]
PLDR   R5,[R8,R5,LSL#2]
ZSTR   R5,[R4,#4]
dB     CheckNextVox
n
.NoPortUp
x
�CMP   R1,#2
�BNE   NoPortDown
�ADD   R4,R7,R2,LSL#5
�5LDR   R5,[R4,#28]         ; Hauteur Note Actuelle
�ADD   R5,R5,R3
�CMP   R5,#&3F0
�MOVGT R5,#&3F0
�STR   R5,[R4,#28]
�6LDR   R5,[R8,R5,LSL#2]    ; Get phase increment...
�*STR   R5,[R4,#4]          ; ...Save it
�B     CheckNextVox
�.NoPortDown
�
CMP   R1,#0
BLEQ  Trk_Arpeggio

".CheckNextVox
,*ADD   R2,R2,#1            ; Next Voice
6,CMP   R2,R11              ; Last Voice ?
@BNE   CheckEffectsLoop
JLDMFD R13!,{R0-R12,PC}
T
^.Trk_Arpeggio
hSTMFD R13!,{R14}
rCMP   R3,#0
|LDMEQFD R13!,{PC}
�LDR   R0,Trk_Counter
�CMP   R0,#1
�BEQ   Arp_Loop2
�CMP   R0,#2
�BEQ   Arp_Loop3
�CMP   R0,#3
�BEQ   Arp_Loop4
�CMP   R0,#4
�BEQ   Arp_Loop2
�CMP   R0,#5
�BEQ   Arp_Loop3
�LDMFD R13!,{PC}
�
.Arp_Loop2
KMOV   R0,R3,LSR#4        ; R0=First nibble, then add it to current tone
B     Arp_Cont
&.Arp_Loop3
0J�   R0,R3,#&0F         ; R0=Second nibble, then add it to current tone
:B     Arp_Cont
D.Arp_Loop4
N0LDR   R3,[R10,R2,LSL#2]  ; Play current tone
XB     Arp_EndPart
b
.Arp_Cont
lBL    Get_Periods_Adr
vLDR   R1,[R10,R2,LSL#2]
�ADD   R4,R12,#36*4
�.Arp_Loop5
�LDR   R3,[R12,R0,LSL#2]
�LDR   R6,[R12],#4
�CMP   R6,R1
�BEQ   Arp_EndPart
�B     Arp_Loop5
�
�.Arp_EndPart
�ADD   R12,R12,R0,LSL#2
�CMP   R12,R4
�LDMGTFD R13!,{PC}
�ADD   R4,R7,R2,LSL#5
CMP   R3,#0
LDMEQFD R13!,{PC}
;LDR   R5,[R8,R3,LSL#2]         ; Get phase increment...
 ESTR   R5,[R4,#4]               ; ...Save it in Voices Infos_Block
*.End_Effect
4LDMFD R13!,{PC}
>
H.Stereo_Table
R?EQUD -126:EQUD -70:EQUD -40:EQUD 0:EQUD 40:EQUD 70:EQUD 127
\
f.Voice_Control_Block
pB Fill_Sound_Buffer
zB Fill_Sound_Buffer
�B Fill_Sound_Buffer
�LDMFD R13!,{PC}
�LDMFD R13!,{PC}
�LDMFD R13!,{PC}
�LDMFD R13!,{PC}
�'EQUD Voice_Name-Voice_Control_Block
�.Voice_Name
�EQUS "Tracker":EQUB 0:ALIGN
�
�); *---------------------------------*
�); *    Init Tracker Sound System    *
�); *---------------------------------*
�
.Init_Sound_System
STMFD R13!,{R0-R12,R14}
LDR   R12,Trk_Voices
$
. ADR   R0,Voice_Control_Block
8MOV   R1,#0
BSWI   "Sound_InstallVoice"
LSTR   R1,Old_Voice_Slot
V
`MOV   R10,#1
jADR   R9,OldVoices
tSUB   R9,R9,#4
~.Voices_Exterminator
�MOV   R0,R10
�MOV   R1,#0
�SWI   "Sound_AttachVoice"
�STR   R1,[R9,R10,LSL#2]
�ADD   R10,R10,#1
�CMP   R10,#8
�BLE   Voices_Exterminator
�
�MOV   R10,#1
�.InitAllVoices
�MOV   R0,R10
�ADR   R1,Voice_Name
"SWI   "Sound_AttachNamedVoice"

ADD   R10,R10,#1
CMP   R10,R12
BLE   InitAllVoices
(
2ADR   R7,OldStereos
<ADR   R10,Stereo_Table
FMOV   R9,#1
P.Set_Stereo_Loop
ZMOV   R0,R9
dLDRB  R5,[R11],#1
nSUBS  R5,R5,#1
xMOVLT R5,#0
�LDR   R1,[R10,R5,LSL#2]
�SWI   "Sound_Stereo"
�STRB  R1,[R7],#1
�ADD   R9,R9,#1
�CMP   R9,R12
�BLE   Set_Stereo_Loop
�
�.MOV   R0,R12               ; Voices number
�BMOV   R1,#208              ; Buffer length in byte per channel
�@MOV   R2,#Sample_Rate      ; Sample Rate (34us = 29.411 Khz)
�MOV   R3,#0
�MOV   R4,#0
�SWI   "Sound_Configure"
ADR   R9,OldConfigure
STMIA R9,{R0-R4}

"MOV   R8,R12
,.SoundAllVoices
6MOV   R0,R8
@MVN   R1,#20
JMOV   R2,#&F0
TMOV   R3,#&FF
^SWI   "Sound_Control"
hSUBS  R8,R8,#1
rBGT   SoundAllVoices
|LDMFD R13!,{R0-R12,PC}^
�
�.OldVoices
�EQUD 0:EQUD 0:EQUD 0:EQUD 0
�EQUD 0:EQUD 0:EQUD 0:EQUD 0
�.OldConfigure
�&EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�.OldStereos
�EQUD 0:EQUD 0
�
�(; *--------------------------------*
�(; *  Exit of Tracker Sound System  *
�(; *--------------------------------*
�
.Trk_Close_All
STMFD R13!,{R0-R12,R14}
MOV   R0,#0
&LDR   R1,Old_Voice_Slot
0SWI   "Sound_RemoveVoice"
:
DLDR   R12,Trk_Voices
NMOV   R10,#1
XADR   R9,OldVoices
bSUB   R9,R9,#4
l.Detach_Trk_Voices
vMOV   R0,R10
�LDR   R1,[R9,R10,LSL#2]
�SWI   "Sound_AttachVoice"
�ADD   R10,R10,#1
�CMP   R10,R12
�BLE   Detach_Trk_Voices
�
�ADR   R9,OldStereos
�MOV   R10,#1
�.Restore_Stereos
�MOV   R0,R10
�LDRB  R1,[R9],#1
�SWI   "Sound_Stereo"
�ADD   R10,R10,#1
CMP   R10,R12
BLE   Restore_Stereos

 ADR   R9,OldConfigure
*LDMIA R9,{R0-R4}
4SWI   "Sound_Configure"
>LDMFD R13!,{R0-R12,PC}^
H
R.Old_Voice_Slot
\
EQUD 0
f.Get_Periods_Adr
pADR   R12,Trk_Periods_List
zMOV   PC,R14
�.Trk_Periods_List
�/EQUD &0358:EQUD &0328:EQUD &02FA:EQUD &02D0
�/EQUD &02A6:EQUD &0280:EQUD &025C:EQUD &023A
�/EQUD &021A:EQUD &01FC:EQUD &01E0:EQUD &01C5
�/EQUD &01AC:EQUD &0194:EQUD &017D:EQUD &0168
�/EQUD &0153:EQUD &0140:EQUD &012E:EQUD &011D
�/EQUD &010D:EQUD &00FE:EQUD &00F0:EQUD &00E2
�/EQUD &00D6:EQUD &00CA:EQUD &00BE:EQUD &00B4
�/EQUD &00AA:EQUD &00A0:EQUD &0097:EQUD &008F
�/EQUD &0087:EQUD &007F:EQUD &0078:EQUD &0071
�
�:; *--------------------------------------------------*
�:; *    Locate a TFF (Tracker File Format !) Chunk    *
:; *--------------------------------------------------*
:; *  Entry parameters =                              *
:; *  R0 => Previous Chunk or Base Address            *
$:; *  R4 =  Chunck name                               *
.:; *  R9 => Enf of File Address                       *
8:; *--------------------------------------------------*
B
L.Search_TFF
VLDMIA R0!,{R2-R3}
`CMP   R2,R4
jADDNE R0,R0,R3
t
�Q PC,R14
~+CMP   R0,R9             ; End Of File ?
�>MOVGE PC,R14            ; Should display an error here (!)
�B     Search_TFF
�.Get_Patterns_Table
�ADR   R11,Patterns_Table
�MOV   PC,R14
�
�.Patterns_Table
�]:P%+=256:[OPT Pass%
�
�F; *--------------------------------------------------------------*
�F; *  Fill sound buffer without loop (Not beautifull but faster)  *
�F; *--------------------------------------------------------------*


.Full_Fill
]
� FillSB%=1 � 208
([OPT Pass%
2LDRB  R8,[R4,R0,LSR#16]
<SUBS  R8,R8,R5
FMOVMI R8,#0
PSTRB  R8,[R12],R11
ZADD   R0,R0,R1
d]
n�
x[OPT Pass%
�STR   R0,[R9]
�MOV   R0,#%00001000
�LDMFD R13!,{PC}
�
�
�.Get_Frequence_Table
�CADR   R8,Frequence_Table1    ; => Freq Table For 1 & 2 Channels
�CMP   R11,#3
�CADDGE R8,R8,#4096            ; => Freq Table For 3 & 4 Channels
�CMP   R11,#5
�CADDGE R8,R8,#4096            ; => Freq Table For 5 - 8 Channels
�MOV   PC,R14
�
.Frequence_Table1
]:P%+=4096:[OPT Pass%
.Frequence_Table2
"]:P%+=4096:[OPT Pass%
,.Frequence_Table3
6]:P%+=4096:[OPT Pass%
@
J.Get_End_Addr
TADR   R2,End_Code
^MOV   PC,R14
h
r
.End_Code
|]
��
��
�
�
�
�
��init
�
�  � Periods%=1 � 1020
�M    Frequence_Table1!(Periods%*4)=((3575872/Periods%)/(1000000/37))*60000
�  �
�  
�  � Periods%=1 � 1020
�V    Frequence_Table2!(Periods%*4)=((3575872/Periods%)/(1000000/Sample_Rate))*60000
   �
   
   � Periods%=1 � 1020
 &M    Frequence_Table3!(Periods%*4)=((3575872/Periods%)/(1000000/26))*60000
 0  �
 :
 D9  �"LOAD <Modules$Dir>."+module$+".Music "+�~End_Code
 N
 X�
�

00000000  0d 00 0a 0c f4 20 3e 4d  75 73 69 63 0d 00 14 04  |..... >Music....|
00000010  0d 00 1e 4b ee 20 85 20  c8 99 20 22 48 6f 75 72  |...K. . .. "Hour|
00000020  67 6c 61 73 73 5f 53 6d  61 73 68 22 3a 85 20 30  |glass_Smash":. 0|
00000030  2c 28 65 72 72 6f 72 24  2b 22 20 28 69 6e 74 65  |,(error$+" (inte|
00000040  72 6e 61 6c 20 65 72 72  6f 72 20 63 6f 64 65 20  |rnal error code |
00000050  22 2b c3 28 9e 29 2b 22  29 22 29 0d 00 28 04 0d  |"+.(.)+")")..(..|
00000060  00 32 18 f4 20 20 46 69  78 65 64 20 76 61 72 69  |.2..  Fixed vari|
00000070  61 62 6c 65 73 20 3a 0d  00 3c 04 0d 00 46 13 20  |ables :..<...F. |
00000080  20 74 72 69 67 67 65 72  24 20 3d 20 22 22 0d 00  | trigger$ = ""..|
00000090  50 12 20 20 74 72 69 67  67 65 72 25 20 3d 20 a3  |P.  trigger% = .|
000000a0  0d 00 5a 04 0d 00 64 04  0d 00 6e 04 0d 00 78 15  |..Z...d...n...x.|
000000b0  6d 6f 64 75 6c 65 24 20  3d 20 22 4d 75 73 69 63  |module$ = "Music|
000000c0  22 0d 00 82 04 0d 00 8c  15 c8 99 20 22 48 6f 75  |".......... "Hou|
000000d0  72 67 6c 61 73 73 5f 4f  6e 22 0d 00 96 4f c8 99  |rglass_On"...O..|
000000e0  20 22 4f 53 5f 46 69 6c  65 22 2c 31 33 2c 22 3c  | "OS_File",13,"<|
000000f0  4d 6f 64 75 6c 65 73 24  44 69 72 3e 2e 22 2b 6d  |Modules$Dir>."+m|
00000100  6f 64 75 6c 65 24 2b 22  2e 4d 75 73 69 63 22 20  |odule$+".Music" |
00000110  b8 20 6d 75 73 5f 65 78  69 73 74 73 25 2c 2c 2c  |. mus_exists%,,,|
00000120  2c 6d 75 73 5f 6c 65 6e  25 0d 00 a0 3e e7 20 6d  |,mus_len%...>. m|
00000130  75 73 5f 65 78 69 73 74  73 25 20 3d 20 30 20 8c  |us_exists% = 0 .|
00000140  20 85 20 30 2c 28 6d 6f  64 75 6c 65 24 2b 22 3a  | . 0,(module$+":|
00000150  20 4d 75 73 69 63 20 66  69 6c 65 20 6e 6f 74 20  | Music file not |
00000160  66 6f 75 6e 64 22 29 0d  00 aa 04 0d 00 b4 0d f2  |found").........|
00000170  61 73 73 65 6d 62 6c 65  0d 00 be 09 f2 69 6e 69  |assemble.....ini|
00000180  74 0d 00 c8 04 0d 00 d2  59 ff 22 53 41 56 45 20  |t.......Y."SAVE |
00000190  20 20 20 3c 4d 6f 64 75  6c 65 73 24 44 69 72 3e  |   <Modules$Dir>|
000001a0  2e 22 2b 6d 6f 64 75 6c  65 24 2b 22 2e 4d 6f 64  |."+module$+".Mod|
000001b0  75 6c 65 20 22 2b c3 7e  50 6c 61 79 5f 52 6f 75  |ule "+.~Play_Rou|
000001c0  74 69 6e 65 2b 22 20 22  2b c3 7e 28 45 6e 64 5f  |tine+" "+.~(End_|
000001d0  43 6f 64 65 2b 6d 75 73  5f 6c 65 6e 25 29 0d 00  |Code+mus_len%)..|
000001e0  dc 34 ff 22 53 45 54 54  59 50 45 20 3c 4d 6f 64  |.4."SETTYPE <Mod|
000001f0  75 6c 65 73 24 44 69 72  3e 2e 22 2b 6d 6f 64 75  |ules$Dir>."+modu|
00000200  6c 65 24 2b 22 2e 4d 6f  64 75 6c 65 20 44 61 74  |le$+".Module Dat|
00000210  61 22 0d 00 e6 04 0d 00  f0 16 c8 99 20 22 48 6f  |a".......... "Ho|
00000220  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 00 fa 05  |urglass_Off"....|
00000230  e0 0d 01 04 04 0d 01 0e  04 0d 01 18 04 0d 01 22  |..............."|
00000240  0f dd 20 f2 61 73 73 65  6d 62 6c 65 0d 01 2c 49  |.. .assemble..,I|
00000250  f4 20 2a 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. *-------------|
00000260  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000290  2d 2d 2d 2d 2a 0d 01 36  49 f4 20 2a 20 20 20 20  |----*..6I. *    |
000002a0  20 20 20 20 20 50 4c 41  59 52 4f 55 54 49 4e 45  |     PLAYROUTINE|
000002b0  20 31 2d 38 20 56 4f 49  43 45 53 20 46 4f 52 20  | 1-8 VOICES FOR |
000002c0  54 52 41 43 4b 45 52 20  20 56 65 72 73 69 6f 6e  |TRACKER  Version|
000002d0  20 31 2e 33 20 20 20 20  20 20 20 20 20 2a 0d 01  | 1.3         *..|
000002e0  40 49 f4 20 2a 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |@I. *-----------|
000002f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000320  2d 2d 2d 2d 2d 2d 2a 0d  01 4a 49 f4 20 2a 20 20  |------*..JI. *  |
00000330  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000340  20 20 57 72 69 74 74 65  6e 20 62 79 20 46 61 62  |  Written by Fab|
00000350  72 69 63 65 20 4d 45 52  43 49 45 52 20 20 20 20  |rice MERCIER    |
00000360  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2a  |               *|
00000370  0d 01 54 49 f4 20 2a 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..TI. *---------|
00000380  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000003b0  2d 2d 2d 2d 2d 2d 2d 2d  2a 0d 01 5e 49 f4 20 2a  |--------*..^I. *|
000003c0  20 20 20 20 20 20 20 20  20 20 20 20 28 63 29 20  |            (c) |
000003d0  31 39 39 30 20 46 61 62  72 69 63 65 20 4d 45 52  |1990 Fabrice MER|
000003e0  43 49 45 52 20 26 20 54  68 65 20 53 65 72 69 61  |CIER & The Seria|
000003f0  6c 20 50 6f 72 74 20 20  20 20 20 20 20 20 20 20  |l Port          |
00000400  20 2a 0d 01 68 49 f4 20  2a 2d 2d 2d 2d 2d 2d 2d  | *..hI. *-------|
00000410  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000440  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2a 0d 01 72 49 f4  |----------*..rI.|
00000450  20 2a 20 20 4d 61 6e 79  20 74 68 61 6e 6b 73 20  | *  Many thanks |
00000460  74 6f 20 48 75 67 6f 20  66 6f 72 20 68 69 73 20  |to Hugo for his |
00000470  67 72 65 61 74 20 68 65  6c 70 20 69 6e 20 61 20  |great help in a |
00000480  62 6c 6f 6f 64 79 20 64  65 62 75 67 2d 64 61 79  |bloody debug-day|
00000490  20 21 20 2a 0d 01 7c 49  f4 20 2a 2d 2d 2d 2d 2d  | ! *..|I. *-----|
000004a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000004d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2a 0d 01 86  |------------*...|
000004e0  49 f4 20 2a 20 20 49 6e  20 79 6f 75 72 20 6f 77  |I. *  In your ow|
000004f0  6e 20 70 72 6f 67 72 61  6d 20 3a 20 20 20 20 20  |n program :     |
00000500  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000520  20 20 20 20 20 2a 0d 01  90 49 f4 20 2a 20 20 31  |     *...I. *  1|
00000530  29 20 43 61 6c 6c 20 27  54 72 6b 5f 49 6e 69 74  |) Call 'Trk_Init|
00000540  5f 41 6c 6c 27 20 61 74  20 62 65 67 69 6e 6e 69  |_All' at beginni|
00000550  6e 67 20 6f 66 20 79 6f  75 72 20 70 72 6f 67 72  |ng of your progr|
00000560  61 6d 20 20 20 20 20 20  20 20 20 20 20 20 2a 0d  |am            *.|
00000570  01 9a 49 f4 20 2a 20 20  32 29 20 43 61 6c 6c 20  |..I. *  2) Call |
00000580  27 54 72 6b 5f 50 6c 61  79 5f 4d 75 73 69 63 27  |'Trk_Play_Music'|
00000590  20 65 61 63 68 20 66 72  61 6d 65 20 20 20 20 20  | each frame     |
000005a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000005b0  20 20 20 20 20 20 20 2a  0d 01 a4 49 f4 20 2a 20  |       *...I. * |
000005c0  20 33 29 20 43 61 6c 6c  20 27 54 72 6b 5f 43 6c  | 3) Call 'Trk_Cl|
000005d0  6f 73 65 5f 41 6c 6c 27  20 62 65 66 6f 72 65 20  |ose_All' before |
000005e0  74 6f 20 71 75 69 74 20  20 20 20 20 20 20 20 20  |to quit         |
000005f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000600  2a 0d 01 ae 49 f4 20 2a  2d 2d 2d 2d 2d 2d 2d 2d  |*...I. *--------|
00000610  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000640  2d 2d 2d 2d 2d 2d 2d 2d  2d 2a 0d 01 b8 04 0d 01  |---------*......|
00000650  c2 21 6c 65 6e 25 20 3d  20 28 33 32 20 2a 20 31  |.!len% = (32 * 1|
00000660  30 32 34 29 20 2b 20 6d  75 73 5f 6c 65 6e 25 0d  |024) + mus_len%.|
00000670  01 cc 18 de 20 20 50 6c  61 79 5f 52 6f 75 74 69  |....  Play_Routi|
00000680  6e 65 20 6c 65 6e 25 0d  01 d6 16 53 61 6d 70 6c  |ne len%....Sampl|
00000690  65 5f 52 61 74 65 20 20  20 3d 20 33 34 0d 01 e0  |e_Rate   = 34...|
000006a0  16 53 61 6d 70 6c 65 5f  56 6f 6c 75 6d 65 20 3d  |.Sample_Volume =|
000006b0  20 34 34 0d 01 ea 16 53  61 6d 70 6c 65 5f 4c 65  | 44....Sample_Le|
000006c0  6e 67 74 68 20 3d 20 35  36 0d 01 f4 16 52 65 70  |ngth = 56....Rep|
000006d0  65 61 74 5f 4f 66 66 73  65 74 20 3d 20 36 38 0d  |eat_Offset = 68.|
000006e0  01 fe 16 52 65 70 65 61  74 5f 4c 65 6e 67 74 68  |...Repeat_Length|
000006f0  20 3d 20 38 30 0d 02 08  04 0d 02 12 18 e3 20 50  | = 80......... P|
00000700  61 73 73 25 20 3d 20 38  20 b8 20 31 30 20 88 20  |ass% = 8 . 10 . |
00000710  32 0d 02 1c 17 20 20 50  25 20 3d 20 50 6c 61 79  |2....  P% = Play|
00000720  5f 52 6f 75 74 69 6e 65  0d 02 26 1e 20 20 4c 25  |_Routine..&.  L%|
00000730  20 3d 20 50 6c 61 79 5f  52 6f 75 74 69 6e 65 20  | = Play_Routine |
00000740  2b 20 6c 65 6e 25 0d 02  30 11 20 20 5b 20 4f 50  |+ len%..0.  [ OP|
00000750  54 20 50 61 73 73 25 0d  02 3a 04 0d 02 3b 04 0d  |T Pass%..:...;..|
00000760  02 44 2d 2e 69 6e 69 74  20 20 45 51 55 44 20 54  |.D-.init  EQUD T|
00000770  72 6b 5f 49 6e 69 74 5f  41 6c 6c 20 20 20 2d 20  |rk_Init_All   - |
00000780  50 6c 61 79 5f 52 6f 75  74 69 6e 65 0d 02 4e 2d  |Play_Routine..N-|
00000790  2e 66 72 61 6d 65 20 45  51 55 44 20 54 72 6b 5f  |.frame EQUD Trk_|
000007a0  50 6c 61 79 5f 4d 75 73  69 63 20 2d 20 50 6c 61  |Play_Music - Pla|
000007b0  79 5f 52 6f 75 74 69 6e  65 0d 02 58 2d 2e 65 6e  |y_Routine..X-.en|
000007c0  64 20 20 20 45 51 55 44  20 54 72 6b 5f 43 6c 6f  |d   EQUD Trk_Clo|
000007d0  73 65 5f 41 6c 6c 20 20  2d 20 50 6c 61 79 5f 52  |se_All  - Play_R|
000007e0  6f 75 74 69 6e 65 0d 02  62 04 0d 02 6c 3a 3b 20  |outine..b...l:; |
000007f0  2a 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |*---------------|
00000800  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000820  2d 2d 2d 2a 0d 02 76 3a  3b 20 2a 20 20 20 20 49  |---*..v:; *    I|
00000830  6e 69 74 20 54 72 61 63  6b 65 72 20 56 61 72 69  |nit Tracker Vari|
00000840  61 62 6c 65 73 20 26 20  49 6e 69 74 20 53 6f 75  |ables & Init Sou|
00000850  6e 64 20 53 79 73 74 65  6d 20 20 20 20 2a 0d 02  |nd System    *..|
00000860  80 3a 3b 20 2a 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.:; *-----------|
00000870  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000890  2d 2d 2d 2d 2d 2d 2d 2a  0d 02 8a 04 0d 02 94 11  |-------*........|
000008a0  2e 54 72 6b 5f 49 6e 69  74 5f 41 6c 6c 0d 02 9e  |.Trk_Init_All...|
000008b0  1b 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 30 2d  |.STMFD R13!,{R0-|
000008c0  52 31 32 2c 52 31 34 7d  0d 02 a8 04 0d 02 b2 38  |R12,R14}.......8|
000008d0  42 4c 20 20 20 20 47 65  74 5f 45 6e 64 5f 41 64  |BL    Get_End_Ad|
000008e0  64 72 20 20 20 20 20 20  20 20 3b 20 52 32 20 3d  |dr        ; R2 =|
000008f0  3e 20 4d 75 73 69 63 20  62 61 73 65 20 61 64 64  |> Music base add|
00000900  72 65 73 73 0d 02 bc 3d  53 54 52 20 20 20 52 32  |ress...=STR   R2|
00000910  2c 54 72 6b 5f 42 61 73  65 20 20 20 20 20 20 20  |,Trk_Base       |
00000920  20 20 3b 20 4d 75 73 74  20 62 65 20 73 61 76 65  |  ; Must be save|
00000930  64 20 69 6e 20 54 72 6b  5f 42 61 73 65 20 28 21  |d in Trk_Base (!|
00000940  29 0d 02 c6 04 0d 02 d0  42 41 44 52 20 20 20 52  |).......BADR   R|
00000950  31 32 2c 54 72 6b 5f 49  6e 66 6f 73 20 20 20 20  |12,Trk_Infos    |
00000960  20 20 20 3b 20 52 31 32  20 3d 3e 20 54 72 61 63  |   ; R12 => Trac|
00000970  6b 65 72 20 50 6f 69 6e  74 65 72 73 20 26 20 43  |ker Pointers & C|
00000980  6f 75 6e 74 65 72 73 0d  02 da 0f 4d 4f 56 20 20  |ounters....MOV  |
00000990  20 52 31 2c 23 30 0d 02  e4 40 53 54 52 20 20 20  | R1,#0...@STR   |
000009a0  52 31 2c 5b 52 31 32 5d  2c 23 34 20 20 20 20 20  |R1,[R12],#4     |
000009b0  20 20 20 20 3b 20 53 65  74 20 70 6f 73 69 74 69  |    ; Set positi|
000009c0  6f 6e 20 69 6e 20 53 65  71 75 65 6e 63 65 20 74  |on in Sequence t|
000009d0  6f 20 7a 65 72 6f 0d 02  ee 38 4c 44 52 20 20 20  |o zero...8LDR   |
000009e0  52 30 2c 54 72 6b 5f 42  61 73 65 20 20 20 20 20  |R0,Trk_Base     |
000009f0  20 20 20 20 3b 20 52 30  20 3d 3e 20 4d 75 73 69  |    ; R0 => Musi|
00000a00  63 20 42 61 73 65 20 41  64 64 72 65 73 73 0d 02  |c Base Address..|
00000a10  f8 35 4c 44 52 20 20 20  52 39 2c 5b 52 30 2c 23  |.5LDR   R9,[R0,#|
00000a20  34 5d 20 20 20 20 20 20  20 20 20 20 3b 20 52 39  |4]          ; R9|
00000a30  20 3d 20 46 69 6c 65 20  4c 65 6e 67 74 68 20 28  | = File Length (|
00000a40  2d 38 29 0d 03 02 39 41  44 44 20 20 20 52 30 2c  |-8)...9ADD   R0,|
00000a50  52 30 2c 23 38 20 20 20  20 20 20 20 20 20 20 20  |R0,#8           |
00000a60  20 3b 20 52 30 20 3d 3e  20 46 69 72 73 74 20 43  | ; R0 => First C|
00000a70  68 75 6e 6b 20 41 64 64  72 65 73 73 0d 03 0c 31  |hunk Address...1|
00000a80  41 44 44 20 20 20 52 39  2c 52 30 2c 52 39 20 20  |ADD   R9,R0,R9  |
00000a90  20 20 20 20 20 20 20 20  20 20 3b 20 52 39 20 3d  |          ; R9 =|
00000aa0  3e 20 45 6e 64 20 6f 66  20 66 69 6c 65 0d 03 16  |> End of file...|
00000ab0  10 4d 4f 56 20 20 20 52  31 30 2c 52 30 0d 03 20  |.MOV   R10,R0.. |
00000ac0  17 4c 44 52 20 20 20 52  34 2c 4d 4c 45 4e 5f 43  |.LDR   R4,MLEN_C|
00000ad0  68 75 6e 6b 0d 03 2a 14  42 4c 20 20 20 20 53 65  |hunk..*.BL    Se|
00000ae0  61 72 63 68 5f 54 46 46  0d 03 34 44 4c 44 52 20  |arch_TFF..4DLDR |
00000af0  20 20 52 31 2c 5b 52 30  5d 20 20 20 20 20 20 20  |  R1,[R0]       |
00000b00  20 20 20 20 20 20 3b 20  52 31 20 3d 20 4d 75 73  |      ; R1 = Mus|
00000b10  69 63 20 4c 65 6e 67 74  68 20 28 3d 53 65 71 75  |ic Length (=Sequ|
00000b20  65 6e 63 65 20 6c 65 6e  67 74 68 29 0d 03 3e 15  |ence length)..>.|
00000b30  53 54 52 20 20 20 52 31  2c 5b 52 31 32 5d 2c 23  |STR   R1,[R12],#|
00000b40  34 0d 03 48 0f 4d 4f 56  20 20 20 52 31 2c 23 30  |4..H.MOV   R1,#0|
00000b50  0d 03 52 3c 53 54 52 20  20 20 52 31 2c 5b 52 31  |..R<STR   R1,[R1|
00000b60  32 5d 2c 23 34 20 20 20  20 20 20 20 20 20 3b 20  |2],#4         ; |
00000b70  50 61 74 74 65 72 6e 20  6c 69 6e 65 20 63 6f 75  |Pattern line cou|
00000b80  6e 74 65 72 20 74 6f 20  7a 65 72 6f 0d 03 5c 10  |nter to zero..\.|
00000b90  4d 4f 56 20 20 20 52 30  2c 52 31 30 0d 03 66 17  |MOV   R0,R10..f.|
00000ba0  4c 44 52 20 20 20 52 34  2c 50 4c 45 4e 5f 43 68  |LDR   R4,PLEN_Ch|
00000bb0  75 6e 6b 0d 03 70 14 42  4c 20 20 20 20 53 65 61  |unk..p.BL    Sea|
00000bc0  72 63 68 5f 54 46 46 0d  03 7a 3f 53 54 52 20 20  |rch_TFF..z?STR  |
00000bd0  20 52 30 2c 5b 52 31 32  5d 2c 23 34 20 20 20 20  | R0,[R12],#4    |
00000be0  20 20 20 20 20 3b 20 53  61 76 65 20 50 61 74 74  |     ; Save Patt|
00000bf0  65 72 6e 20 54 61 62 6c  65 20 42 61 73 65 20 41  |ern Table Base A|
00000c00  64 64 72 65 73 73 0d 03  84 10 4d 4f 56 20 20 20  |ddress....MOV   |
00000c10  52 30 2c 52 31 30 0d 03  8e 17 4c 44 52 20 20 20  |R0,R10....LDR   |
00000c20  52 34 2c 53 45 51 55 5f  43 68 75 6e 6b 0d 03 98  |R4,SEQU_Chunk...|
00000c30  14 42 4c 20 20 20 20 53  65 61 72 63 68 5f 54 46  |.BL    Search_TF|
00000c40  46 0d 03 a2 3a 53 54 52  20 20 20 52 30 2c 5b 52  |F...:STR   R0,[R|
00000c50  31 32 5d 2c 23 34 20 20  20 20 20 20 20 20 20 3b  |12],#4         ;|
00000c60  20 53 61 76 65 20 53 65  71 75 65 6e 63 65 20 42  | Save Sequence B|
00000c70  61 73 65 20 41 64 64 72  65 73 73 0d 03 ac 10 4d  |ase Address....M|
00000c80  4f 56 20 20 20 52 30 2c  52 31 30 0d 03 b6 17 4c  |OV   R0,R10....L|
00000c90  44 52 20 20 20 52 34 2c  50 4e 55 4d 5f 43 68 75  |DR   R4,PNUM_Chu|
00000ca0  6e 6b 0d 03 c0 14 42 4c  20 20 20 20 53 65 61 72  |nk....BL    Sear|
00000cb0  63 68 5f 54 46 46 0d 03  ca 3d 4c 44 52 20 20 20  |ch_TFF...=LDR   |
00000cc0  52 36 2c 5b 52 30 5d 20  20 20 20 20 20 20 20 20  |R6,[R0]         |
00000cd0  20 20 20 20 3b 20 52 36  20 3d 20 50 61 74 74 65  |    ; R6 = Patte|
00000ce0  72 6e 73 20 6e 75 6d 62  65 72 20 69 6e 20 6d 75  |rns number in mu|
00000cf0  73 69 63 0d 03 d4 38 42  4c 20 20 20 20 47 65 74  |sic...8BL    Get|
00000d00  5f 50 61 74 74 65 72 6e  73 5f 54 61 62 6c 65 20  |_Patterns_Table |
00000d10  20 3b 20 52 31 31 20 3d  3e 20 6f 6e 20 50 61 74  | ; R11 => on Pat|
00000d20  74 65 72 6e 73 20 54 61  62 6c 65 0d 03 de 16 53  |terns Table....S|
00000d30  54 52 20 20 20 52 31 31  2c 5b 52 31 32 5d 2c 23  |TR   R11,[R12],#|
00000d40  34 0d 03 e8 17 4c 44 52  20 20 20 52 34 2c 50 41  |4....LDR   R4,PA|
00000d50  54 54 5f 43 68 75 6e 6b  0d 03 f2 10 4d 4f 56 20  |TT_Chunk....MOV |
00000d60  20 20 52 30 2c 52 31 30  0d 03 fc 14 2e 53 65 61  |  R0,R10.....Sea|
00000d70  72 63 68 5f 50 61 74 74  65 72 6e 73 0d 04 06 14  |rch_Patterns....|
00000d80  42 4c 20 20 20 20 53 65  61 72 63 68 5f 54 46 46  |BL    Search_TFF|
00000d90  0d 04 10 46 53 54 52 20  20 20 52 30 2c 5b 52 31  |...FSTR   R0,[R1|
00000da0  31 5d 2c 23 34 20 20 20  20 20 20 20 20 20 3b 20  |1],#4         ; |
00000db0  53 61 76 65 20 50 61 74  74 65 72 6e 20 41 64 64  |Save Pattern Add|
00000dc0  72 65 73 73 20 69 6e 20  50 61 74 74 65 72 6e 73  |ress in Patterns|
00000dd0  20 54 61 62 6c 65 0d 04  1a 4b 41 44 44 20 20 20  | Table...KADD   |
00000de0  52 30 2c 52 30 2c 52 33  20 20 20 20 20 20 20 20  |R0,R0,R3        |
00000df0  20 20 20 20 3b 20 41 64  64 20 70 61 74 74 65 72  |    ; Add patter|
00000e00  6e 20 6c 65 6e 67 74 68  20 74 6f 20 63 68 75 6e  |n length to chun|
00000e10  6b 20 28 3d 6e 65 78 74  20 70 61 74 74 65 72 6e  |k (=next pattern|
00000e20  29 0d 04 24 12 53 55 42  53 20 20 52 36 2c 52 36  |)..$.SUBS  R6,R6|
00000e30  2c 23 31 0d 04 2e 19 42  47 54 20 20 20 53 65 61  |,#1....BGT   Sea|
00000e40  72 63 68 5f 50 61 74 74  65 72 6e 73 0d 04 38 18  |rch_Patterns..8.|
00000e50  41 44 52 20 20 20 52 31  2c 54 72 6b 5f 53 61 6d  |ADR   R1,Trk_Sam|
00000e60  70 6c 65 73 0d 04 42 17  4c 44 52 20 20 20 52 34  |ples..B.LDR   R4|
00000e70  2c 53 41 4d 50 5f 43 68  75 6e 6b 0d 04 4c 44 4d  |,SAMP_Chunk..LDM|
00000e80  4f 56 20 20 20 52 37 2c  23 33 36 20 20 20 20 20  |OV   R7,#36     |
00000e90  20 20 20 20 20 20 20 20  20 3b 20 33 36 20 53 61  |         ; 36 Sa|
00000ea0  6d 70 6c 65 73 20 43 68  75 6e 6b 73 20 69 6e 20  |mples Chunks in |
00000eb0  6f 6e 65 20 6d 75 73 69  63 20 70 69 65 63 65 0d  |one music piece.|
00000ec0  04 56 15 2e 49 6e 69 74  5f 54 72 6b 5f 53 61 6d  |.V..Init_Trk_Sam|
00000ed0  70 6c 65 73 0d 04 60 14  42 4c 20 20 20 20 53 65  |ples..`.BL    Se|
00000ee0  61 72 63 68 5f 54 46 46  0d 04 6a 12 53 55 42 20  |arch_TFF..j.SUB |
00000ef0  20 20 52 35 2c 52 30 2c  23 38 0d 04 74 14 53 54  |  R5,R0,#8..t.ST|
00000f00  52 20 20 20 52 35 2c 5b  52 31 5d 2c 23 34 0d 04  |R   R5,[R1],#4..|
00000f10  7e 12 41 44 44 20 20 20  52 30 2c 52 30 2c 52 33  |~.ADD   R0,R0,R3|
00000f20  0d 04 88 12 53 55 42 53  20 20 52 37 2c 52 37 2c  |....SUBS  R7,R7,|
00000f30  23 31 0d 04 92 1a 42 47  54 20 20 20 49 6e 69 74  |#1....BGT   Init|
00000f40  5f 54 72 6b 5f 53 61 6d  70 6c 65 73 0d 04 9c 10  |_Trk_Samples....|
00000f50  4d 4f 56 20 20 20 52 30  2c 52 31 30 0d 04 a6 17  |MOV   R0,R10....|
00000f60  4c 44 52 20 20 20 52 34  2c 4d 56 4f 58 5f 43 68  |LDR   R4,MVOX_Ch|
00000f70  75 6e 6b 0d 04 b0 14 42  4c 20 20 20 20 53 65 61  |unk....BL    Sea|
00000f80  72 63 68 5f 54 46 46 0d  04 ba 33 4c 44 52 20 20  |rch_TFF...3LDR  |
00000f90  20 52 31 32 2c 5b 52 30  5d 20 20 20 20 20 20 20  | R12,[R0]       |
00000fa0  20 20 20 20 20 3b 20 52  31 32 20 3d 20 56 6f 69  |     ; R12 = Voi|
00000fb0  63 65 73 20 4e 75 6d 62  65 72 0d 04 c4 18 53 54  |ces Number....ST|
00000fc0  52 20 20 20 52 31 32 2c  54 72 6b 5f 56 6f 69 63  |R   R12,Trk_Voic|
00000fd0  65 73 0d 04 ce 10 4d 4f  56 20 20 20 52 30 2c 52  |es....MOV   R0,R|
00000fe0  31 30 0d 04 d8 17 4c 44  52 20 20 20 52 34 2c 53  |10....LDR   R4,S|
00000ff0  54 45 52 5f 43 68 75 6e  6b 0d 04 e2 14 42 4c 20  |TER_Chunk....BL |
00001000  20 20 20 53 65 61 72 63  68 5f 54 46 46 0d 04 ec  |   Search_TFF...|
00001010  3c 4d 4f 56 20 20 20 52  31 31 2c 52 30 20 20 20  |<MOV   R11,R0   |
00001020  20 20 20 20 20 20 20 20  20 20 20 3b 20 52 31 31  |           ; R11|
00001030  20 3d 3e 20 53 74 65 72  65 6f 20 50 6f 73 69 74  | => Stereo Posit|
00001040  69 6f 6e 73 20 4c 69 73  74 0d 04 f6 43 42 4c 20  |ions List...CBL |
00001050  20 20 20 49 6e 69 74 5f  53 6f 75 6e 64 5f 53 79  |   Init_Sound_Sy|
00001060  73 74 65 6d 20 20 20 3b  20 4a 75 6d 70 20 54 6f  |stem   ; Jump To|
00001070  20 53 6f 75 6e 64 20 53  79 73 74 65 6d 20 49 6e  | Sound System In|
00001080  69 74 69 61 6c 69 73 61  74 69 6f 6e 0d 05 00 1a  |itialisation....|
00001090  4c 44 4d 46 44 20 52 31  33 21 2c 7b 52 30 2d 52  |LDMFD R13!,{R0-R|
000010a0  31 32 2c 50 43 7d 0d 05  0a 04 0d 05 14 1b 2e 54  |12,PC}.........T|
000010b0  49 4e 46 5f 43 68 75 6e  6b 3a 45 51 55 53 20 22  |INF_Chunk:EQUS "|
000010c0  54 49 4e 46 22 0d 05 1e  1b 2e 4d 56 4f 58 5f 43  |TINF".....MVOX_C|
000010d0  68 75 6e 6b 3a 45 51 55  53 20 22 4d 56 4f 58 22  |hunk:EQUS "MVOX"|
000010e0  0d 05 28 1b 2e 53 54 45  52 5f 43 68 75 6e 6b 3a  |..(..STER_Chunk:|
000010f0  45 51 55 53 20 22 53 54  45 52 22 0d 05 32 1b 2e  |EQUS "STER"..2..|
00001100  4d 4c 45 4e 5f 43 68 75  6e 6b 3a 45 51 55 53 20  |MLEN_Chunk:EQUS |
00001110  22 4d 4c 45 4e 22 0d 05  3c 1b 2e 50 4c 45 4e 5f  |"MLEN"..<..PLEN_|
00001120  43 68 75 6e 6b 3a 45 51  55 53 20 22 50 4c 45 4e  |Chunk:EQUS "PLEN|
00001130  22 0d 05 46 1b 2e 53 45  51 55 5f 43 68 75 6e 6b  |"..F..SEQU_Chunk|
00001140  3a 45 51 55 53 20 22 53  45 51 55 22 0d 05 50 1b  |:EQUS "SEQU"..P.|
00001150  2e 50 4e 55 4d 5f 43 68  75 6e 6b 3a 45 51 55 53  |.PNUM_Chunk:EQUS|
00001160  20 22 50 4e 55 4d 22 0d  05 5a 1b 2e 50 41 54 54  | "PNUM"..Z..PATT|
00001170  5f 43 68 75 6e 6b 3a 45  51 55 53 20 22 50 41 54  |_Chunk:EQUS "PAT|
00001180  54 22 0d 05 64 1b 2e 53  41 4d 50 5f 43 68 75 6e  |T"..d..SAMP_Chun|
00001190  6b 3a 45 51 55 53 20 22  53 41 4d 50 22 0d 05 6e  |k:EQUS "SAMP"..n|
000011a0  04 0d 05 78 3d 3b 20 2a  2d 2d 2d 2d 2d 2d 2d 2d  |...x=; *--------|
000011b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000011d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2a 0d 05  |-------------*..|
000011e0  82 37 3b 20 2a 20 20 20  20 20 20 20 20 20 20 20  |.7; *           |
000011f0  20 20 d4 20 42 55 46 46  45 52 20 c8 90 20 52 4f  |  . BUFFER .. RO|
00001200  55 54 49 4e 45 53 20 20  20 20 20 20 20 20 20 20  |UTINES          |
00001210  20 20 20 20 2a 0d 05 8c  3d 3b 20 2a 2d 2d 2d 2d  |    *...=; *----|
00001220  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001250  2d 2a 0d 05 96 3d 3b 20  2a 20 20 20 20 52 39 20  |-*...=; *    R9 |
00001260  3d 3e 20 54 72 61 63 6b  65 72 20 49 6e 66 6f 73  |=> Tracker Infos|
00001270  20 42 6c 6f 63 6b 20 28  33 32 20 42 79 74 65 20  | Block (32 Byte |
00001280  70 65 72 20 63 68 61 6e  6e 65 6c 29 20 20 2a 0d  |per channel)  *.|
00001290  05 a0 3d 3b 20 2a 20 20  20 20 20 5b 30 30 2d 30  |..=; *     [00-0|
000012a0  33 5d 20 28 20 52 30 20  29 20 50 68 61 73 65 20  |3] ( R0 ) Phase |
000012b0  41 63 63 75 6d 75 6c 61  74 6f 72 20 20 20 20 20  |Accumulator     |
000012c0  20 20 20 20 20 20 20 20  20 20 20 2a 0d 05 aa 3d  |           *...=|
000012d0  3b 20 2a 20 20 20 20 20  5b 30 34 2d 30 37 5d 20  |; *     [04-07] |
000012e0  28 20 52 31 20 29 20 50  68 61 73 65 20 49 6e 63  |( R1 ) Phase Inc|
000012f0  72 65 6d 65 6e 74 20 28  43 66 2e 20 46 72 65 71  |rement (Cf. Freq|
00001300  75 65 6e 63 79 29 20 20  2a 0d 05 b4 3d 3b 20 2a  |uency)  *...=; *|
00001310  20 20 20 20 20 5b 30 38  2d 31 31 5d 20 28 20 52  |     [08-11] ( R|
00001320  32 20 29 20 52 65 70 65  61 74 20 4f 66 66 73 65  |2 ) Repeat Offse|
00001330  74 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |t               |
00001340  20 20 20 20 20 2a 0d 05  be 3d 3b 20 2a 20 20 20  |     *...=; *   |
00001350  20 20 5b 31 32 2d 31 35  5d 20 28 20 52 33 20 29  |  [12-15] ( R3 )|
00001360  20 53 61 6d 70 6c 65 20  4c 65 6e 67 74 68 20 28  | Sample Length (|
00001370  6f 72 20 52 65 70 65 61  74 20 4c 65 6e 67 74 68  |or Repeat Length|
00001380  29 20 2a 0d 05 c8 3d 3b  20 2a 20 20 20 20 20 5b  |) *...=; *     [|
00001390  31 36 2d 31 39 5d 20 28  20 52 34 20 29 20 53 61  |16-19] ( R4 ) Sa|
000013a0  6d 70 6c 65 20 41 64 64  72 65 73 73 20 20 20 20  |mple Address    |
000013b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2a  |               *|
000013c0  0d 05 d2 3d 3b 20 2a 20  20 20 20 20 5b 32 30 2d  |...=; *     [20-|
000013d0  32 33 5d 20 28 20 52 35  20 29 20 53 61 6d 70 6c  |23] ( R5 ) Sampl|
000013e0  65 20 56 6f 6c 75 6d 65  20 28 32 35 35 2d 56 6f  |e Volume (255-Vo|
000013f0  6c 75 6d 65 29 20 20 20  20 20 20 20 2a 0d 05 dc  |lume)       *...|
00001400  3d 3b 20 2a 20 20 20 20  20 5b 32 34 2d 32 37 5d  |=; *     [24-27]|
00001410  20 28 20 52 36 20 29 20  46 69 6c 6c 20 53 74 61  | ( R6 ) Fill Sta|
00001420  74 75 73 20 28 30 3d 5a  65 72 6f 73 20 31 3d 53  |tus (0=Zeros 1=S|
00001430  61 6d 70 6c 65 73 29 20  20 2a 0d 05 e6 3d 3b 20  |amples)  *...=; |
00001440  2a 20 20 20 20 20 5b 2e  2e 2e 2e 2e 5d 20 28 2e  |*     [.....] (.|
00001450  2e 2e 2e 29 20 4f 74 68  65 72 73 20 69 6e 66 6f  |...) Others info|
00001460  73 20 66 6f 72 20 65 66  66 65 63 74 73 20 20 20  |s for effects   |
00001470  20 20 20 20 20 20 2a 0d  05 f0 3d 3b 20 2a 2d 2d  |      *...=; *--|
00001480  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000014b0  2d 2d 2d 2a 0d 05 fa 3d  3b 20 2a 20 20 52 31 30  |---*...=; *  R10|
000014c0  20 3d 20 44 4d 41 20 42  75 66 66 65 72 20 6c 69  | = DMA Buffer li|
000014d0  6d 69 74 73 20 28 2b 31  29 20 20 20 20 20 20 20  |mits (+1)       |
000014e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000014f0  2a 0d 06 04 3d 3b 20 2a  20 20 52 31 31 20 3d 20  |*...=; *  R11 = |
00001500  44 4d 41 20 42 75 66 66  65 72 20 49 6e 74 65 72  |DMA Buffer Inter|
00001510  6c 65 61 76 65 20 49 6e  63 72 65 6d 65 6e 74 20  |leave Increment |
00001520  28 31 2d 38 29 20 20 20  20 20 20 20 20 2a 0d 06  |(1-8)        *..|
00001530  0e 3d 3b 20 2a 20 20 52  31 32 20 3d 20 44 4d 41  |.=; *  R12 = DMA|
00001540  20 42 75 66 66 65 72 20  62 61 73 65 20 70 6f 69  | Buffer base poi|
00001550  6e 74 65 72 20 28 2b 52  31 31 29 20 20 20 20 20  |nter (+R11)     |
00001560  20 20 20 20 20 20 20 20  20 20 2a 0d 06 18 3d 3b  |          *...=;|
00001570  20 2a 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | *--------------|
00001580  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000015a0  2d 2d 2d 2d 2d 2d 2d 2a  0d 06 22 04 0d 06 2c 16  |-------*.."...,.|
000015b0  2e 46 69 6c 6c 5f 53 6f  75 6e 64 5f 42 75 66 66  |.Fill_Sound_Buff|
000015c0  65 72 0d 06 36 1f 41 44  52 20 20 20 52 39 2c 56  |er..6.ADR   R9,V|
000015d0  6f 69 63 65 73 5f 49 6e  66 6f 73 5f 42 6c 6f 63  |oices_Infos_Bloc|
000015e0  6b 0d 06 40 18 41 44 44  20 20 20 52 39 2c 52 39  |k..@.ADD   R9,R9|
000015f0  2c 52 37 2c 4c 53 4c 23  35 0d 06 4a 14 4c 44 4d  |,R7,LSL#5..J.LDM|
00001600  49 41 20 52 39 2c 7b 52  30 2d 52 36 7d 0d 06 54  |IA R9,{R0-R6}..T|
00001610  04 0d 06 5e 0f 43 4d 50  20 20 20 52 36 2c 23 30  |...^.CMP   R6,#0|
00001620  0d 06 68 14 42 45 51 20  20 20 43 6c 65 61 72 5f  |..h.BEQ   Clear_|
00001630  46 69 6c 6c 0d 06 72 04  0d 06 7c 19 53 55 42 20  |Fill..r...|.SUB |
00001640  20 20 52 38 2c 52 33 2c  52 30 2c 4c 53 52 23 31  |  R8,R3,R0,LSR#1|
00001650  36 0d 06 86 18 53 55 42  20 20 20 52 38 2c 52 38  |6....SUB   R8,R8|
00001660  2c 52 31 2c 4c 53 52 23  38 0d 06 90 11 43 4d 50  |,R1,LSR#8....CMP|
00001670  20 20 20 52 38 2c 23 32  30 38 0d 06 9a 13 42 47  |   R8,#208....BG|
00001680  54 20 20 20 46 75 6c 6c  5f 46 69 6c 6c 0d 06 a4  |T   Full_Fill...|
00001690  04 0d 06 ae 0e 2e 46 69  6c 6c 5f 4c 6f 6f 70 0d  |......Fill_Loop.|
000016a0  06 b8 05 5d 0d 06 c2 12  e3 20 50 6c 6f 70 25 3d  |...]..... Plop%=|
000016b0  31 20 b8 20 31 36 0d 06  cc 0e 5b 4f 50 54 20 50  |1 . 16....[OPT P|
000016c0  61 73 73 25 0d 06 d6 1b  4c 44 52 42 20 20 52 38  |ass%....LDRB  R8|
000016d0  2c 5b 52 34 2c 52 30 2c  4c 53 52 23 31 36 5d 0d  |,[R4,R0,LSR#16].|
000016e0  06 e0 12 53 55 42 53 20  20 52 38 2c 52 38 2c 52  |...SUBS  R8,R8,R|
000016f0  35 0d 06 ea 0f 4d 4f 56  4d 49 20 52 38 2c 23 30  |5....MOVMI R8,#0|
00001700  0d 06 f4 16 53 54 52 42  20 20 52 38 2c 5b 52 31  |....STRB  R8,[R1|
00001710  32 5d 2c 52 31 31 0d 06  fe 12 41 44 44 20 20 20  |2],R11....ADD   |
00001720  52 30 2c 52 30 2c 52 31  0d 07 08 05 5d 0d 07 12  |R0,R0,R1....]...|
00001730  05 ed 0d 07 1c 0e 5b 4f  50 54 20 50 61 73 73 25  |......[OPT Pass%|
00001740  0d 07 26 31 43 4d 50 20  20 20 52 33 2c 52 30 2c  |..&1CMP   R3,R0,|
00001750  4c 53 52 23 31 36 20 20  20 20 20 20 20 20 20 20  |LSR#16          |
00001760  3b 20 45 6e 64 20 6f 66  20 73 61 6d 70 6c 65 20  |; End of sample |
00001770  3f 0d 07 30 1a 42 47 45  20 20 20 43 68 65 63 6b  |?..0.BGE   Check|
00001780  5f 42 75 66 66 65 72 5f  45 6e 64 0d 07 3a 39 4d  |_Buffer_End..:9M|
00001790  4f 56 53 20 20 52 30 2c  52 32 2c 4c 53 4c 23 31  |OVS  R0,R2,LSL#1|
000017a0  36 20 20 20 20 20 20 20  20 20 20 3b 20 59 65 73  |6          ; Yes|
000017b0  20 3d 3e 20 52 30 3d 52  65 70 65 61 74 20 4f 66  | => R0=Repeat Of|
000017c0  66 73 65 74 0d 07 44 4a  42 45 51 20 20 20 43 6c  |fset..DJBEQ   Cl|
000017d0  65 61 72 5f 46 69 6c 6c  20 20 20 20 20 20 20 20  |ear_Fill        |
000017e0  20 20 20 20 3b 20 49 66  20 6e 6f 20 72 65 70 65  |    ; If no repe|
000017f0  61 74 20 74 68 65 6e 20  66 69 6c 6c 20 62 75 66  |at then fill buf|
00001800  66 65 72 20 77 69 74 68  20 7a 65 72 6f 73 0d 07  |fer with zeros..|
00001810  4e 15 2e 43 68 65 63 6b  5f 42 75 66 66 65 72 5f  |N..Check_Buffer_|
00001820  45 6e 64 0d 07 58 11 43  4d 50 20 20 20 52 31 32  |End..X.CMP   R12|
00001830  2c 52 31 30 0d 07 62 13  42 4c 54 20 20 20 46 69  |,R10..b.BLT   Fi|
00001840  6c 6c 5f 4c 6f 6f 70 0d  07 6c 11 53 54 52 20 20  |ll_Loop..l.STR  |
00001850  20 52 30 2c 5b 52 39 5d  0d 07 76 17 4d 4f 56 20  | R0,[R9]..v.MOV |
00001860  20 20 52 30 2c 23 25 30  30 30 30 31 30 30 30 0d  |  R0,#%00001000.|
00001870  07 80 13 4c 44 4d 46 44  20 52 31 33 21 2c 7b 50  |...LDMFD R13!,{P|
00001880  43 7d 0d 07 8a 04 0d 07  94 0f 2e 43 6c 65 61 72  |C}.........Clear|
00001890  5f 46 69 6c 6c 0d 07 9e  0f 4d 4f 56 20 20 20 52  |_Fill....MOV   R|
000018a0  35 2c 23 30 0d 07 a8 15  53 54 52 20 20 20 52 35  |5,#0....STR   R5|
000018b0  2c 5b 52 39 2c 23 32 34  5d 0d 07 b2 14 2e 43 6c  |,[R9,#24].....Cl|
000018c0  65 61 72 5f 46 69 6c 6c  5f 4c 6f 6f 70 0d 07 bc  |ear_Fill_Loop...|
000018d0  16 53 54 52 42 20 20 52  35 2c 5b 52 31 32 5d 2c  |.STRB  R5,[R12],|
000018e0  52 31 31 0d 07 c6 11 43  4d 50 20 20 20 52 31 32  |R11....CMP   R12|
000018f0  2c 52 31 30 0d 07 d0 19  42 4c 54 20 20 20 43 6c  |,R10....BLT   Cl|
00001900  65 61 72 5f 46 69 6c 6c  5f 4c 6f 6f 70 0d 07 da  |ear_Fill_Loop...|
00001910  17 4d 4f 56 20 20 20 52  30 2c 23 25 30 30 30 30  |.MOV   R0,#%0000|
00001920  31 30 30 30 0d 07 e4 13  4c 44 4d 46 44 20 52 31  |1000....LDMFD R1|
00001930  33 21 2c 7b 50 43 7d 0d  07 ee 04 0d 07 f8 17 2e  |3!,{PC}.........|
00001940  56 6f 69 63 65 73 5f 49  6e 66 6f 73 5f 42 6c 6f  |Voices_Infos_Blo|
00001950  63 6b 0d 08 02 05 5d 0d  08 0c 14 e3 20 42 75 66  |ck....]..... Buf|
00001960  42 6c 6b 25 3d 31 20 b8  20 36 34 0d 08 16 0e 5b  |Blk%=1 . 64....[|
00001970  4f 50 54 20 50 61 73 73  25 0d 08 20 0a 45 51 55  |OPT Pass%.. .EQU|
00001980  44 20 30 0d 08 2a 05 5d  0d 08 34 05 ed 0d 08 3e  |D 0..*.]..4....>|
00001990  0e 5b 4f 50 54 20 50 61  73 73 25 0d 08 48 04 0d  |.[OPT Pass%..H..|
000019a0  08 52 0d 2e 54 72 6b 5f  42 61 73 65 0d 08 5c 31  |.R..Trk_Base..\1|
000019b0  45 51 55 44 20 20 30 20  20 20 20 20 20 20 20 20  |EQUD  0         |
000019c0  20 20 20 20 20 20 20 20  20 3b 20 4d 75 73 69 63  |         ; Music|
000019d0  20 42 61 73 65 20 41 64  64 72 65 73 73 0d 08 66  | Base Address..f|
000019e0  0e 2e 54 72 6b 5f 49 6e  66 6f 73 0d 08 70 3d 45  |..Trk_Infos..p=E|
000019f0  51 55 44 20 20 30 20 20  20 20 20 20 20 20 20 20  |QUD  0          |
00001a00  20 20 20 20 20 20 20 20  3b 20 50 6f 73 69 74 69  |        ; Positi|
00001a10  6f 6e 20 43 6f 75 6e 74  65 72 20 28 49 6e 20 53  |on Counter (In S|
00001a20  65 71 75 65 6e 63 65 29  0d 08 7a 2b 45 51 55 44  |equence)..z+EQUD|
00001a30  20 20 30 20 20 20 20 20  20 20 20 20 20 20 20 20  |  0             |
00001a40  20 20 20 20 20 3b 20 4d  75 73 69 63 20 4c 65 6e  |     ; Music Len|
00001a50  67 74 68 0d 08 84 3c 45  51 55 44 20 20 30 20 20  |gth...<EQUD  0  |
00001a60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001a70  3b 20 50 6f 73 69 74 69  6f 6e 20 43 6f 75 6e 74  |; Position Count|
00001a80  65 72 20 28 49 6e 20 50  61 74 74 65 72 6e 29 0d  |er (In Pattern).|
00001a90  08 8e 3a 45 51 55 44 20  20 30 20 20 20 20 20 20  |..:EQUD  0      |
00001aa0  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 3d 3e  |            ; =>|
00001ab0  20 6f 6e 20 50 61 74 74  65 72 6e 73 20 4c 65 6e  | on Patterns Len|
00001ac0  67 74 68 20 54 61 62 6c  65 0d 08 98 3a 45 51 55  |gth Table...:EQU|
00001ad0  44 20 20 30 20 20 20 20  20 20 20 20 20 20 20 20  |D  0            |
00001ae0  20 20 20 20 20 20 3b 20  3d 3e 20 6f 6e 20 53 65  |      ; => on Se|
00001af0  71 75 65 6e 63 65 20 42  61 73 65 20 41 64 64 72  |quence Base Addr|
00001b00  65 73 73 0d 08 a2 47 45  51 55 44 20 20 30 20 20  |ess...GEQUD  0  |
00001b10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001b20  3b 20 3d 3e 20 6f 6e 20  50 61 74 74 65 72 6e 73  |; => on Patterns|
00001b30  20 54 61 62 6c 65 20 28  75 70 20 74 6f 20 36 34  | Table (up to 64|
00001b40  20 70 61 74 74 65 72 6e  73 29 0d 08 ac 0f 2e 54  | patterns).....T|
00001b50  72 6b 5f 56 6f 69 63 65  73 0d 08 b6 2c 45 51 55  |rk_Voices...,EQU|
00001b60  44 20 20 30 20 20 20 20  20 20 20 20 20 20 20 20  |D  0            |
00001b70  20 20 20 20 20 20 3b 20  56 6f 69 63 65 73 20 4e  |      ; Voices N|
00001b80  75 6d 62 65 72 0d 08 c0  10 2e 54 72 6b 5f 43 6f  |umber.....Trk_Co|
00001b90  75 6e 74 65 72 0d 08 ca  0a 45 51 55 44 20 35 0d  |unter....EQUD 5.|
00001ba0  08 d4 0e 2e 54 72 6b 5f  53 70 65 65 64 0d 08 de  |....Trk_Speed...|
00001bb0  0a 45 51 55 44 20 36 0d  08 e8 10 2e 54 72 6b 5f  |.EQUD 6.....Trk_|
00001bc0  53 61 6d 70 6c 65 73 0d  08 f2 05 5d 0d 08 fc 0c  |Samples....]....|
00001bd0  50 25 2b 3d 33 36 2a 34  0d 09 06 0e 5b 4f 50 54  |P%+=36*4....[OPT|
00001be0  20 50 61 73 73 25 0d 09  10 10 2e 54 72 6b 5f 50  | Pass%.....Trk_P|
00001bf0  65 72 69 6f 64 73 0d 09  1a 1b 45 51 55 44 30 3a  |eriods....EQUD0:|
00001c00  45 51 55 44 30 3a 45 51  55 44 30 3a 45 51 55 44  |EQUD0:EQUD0:EQUD|
00001c10  30 0d 09 24 1b 45 51 55  44 30 3a 45 51 55 44 30  |0..$.EQUD0:EQUD0|
00001c20  3a 45 51 55 44 30 3a 45  51 55 44 30 0d 09 2e 15  |:EQUD0:EQUD0....|
00001c30  2e 54 72 6b 5f 50 61 74  74 65 72 6e 5f 4c 69 6e  |.Trk_Pattern_Lin|
00001c40  65 0d 09 38 1b 45 51 55  44 30 3a 45 51 55 44 30  |e..8.EQUD0:EQUD0|
00001c50  3a 45 51 55 44 30 3a 45  51 55 44 30 0d 09 42 1b  |:EQUD0:EQUD0..B.|
00001c60  45 51 55 44 30 3a 45 51  55 44 30 3a 45 51 55 44  |EQUD0:EQUD0:EQUD|
00001c70  30 3a 45 51 55 44 30 0d  09 4c 14 2e 47 65 74 5f  |0:EQUD0..L..Get_|
00001c80  49 6e 66 6f 73 5f 42 6c  6f 63 6b 0d 09 56 1e 41  |Infos_Block..V.A|
00001c90  44 52 20 20 52 37 2c 56  6f 69 63 65 73 5f 49 6e  |DR  R7,Voices_In|
00001ca0  66 6f 73 5f 42 6c 6f 63  6b 0d 09 60 0f 4d 4f 56  |fos_Block..`.MOV|
00001cb0  20 20 50 43 2c 52 31 34  0d 09 6a 04 0d 09 74 35  |  PC,R14..j...t5|
00001cc0  3b 20 2a 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |; *-------------|
00001cd0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001cf0  2a 0d 09 7e 35 3b 20 2a  20 20 20 20 49 6e 63 72  |*..~5; *    Incr|
00001d00  65 6d 65 6e 74 2f 43 68  65 63 6b 20 43 6f 75 6e  |ement/Check Coun|
00001d10  74 65 72 20 28 54 65 6d  70 6f 29 20 56 61 6c 75  |ter (Tempo) Valu|
00001d20  65 20 20 20 20 2a 0d 09  88 35 3b 20 2a 2d 2d 2d  |e    *...5; *---|
00001d30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001d50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2a 0d 09 92 04 0d  |----------*.....|
00001d60  09 9c 13 2e 54 72 6b 5f  50 6c 61 79 5f 4d 75 73  |....Trk_Play_Mus|
00001d70  69 63 0d 09 a6 1b 53 54  4d 46 44 20 52 31 33 21  |ic....STMFD R13!|
00001d80  2c 7b 52 30 2d 52 31 32  2c 52 31 34 7d 0d 09 b0  |,{R0-R12,R14}...|
00001d90  05 5d 0d 09 ba 10 e7 20  74 72 69 67 67 65 72 25  |.]..... trigger%|
00001da0  20 8c 0d 09 c4 10 20 20  5b 4f 50 54 20 50 61 73  | .....  [OPT Pas|
00001db0  73 25 0d 09 ce 2a 20 20  54 53 54 20 20 20 52 31  |s%...*  TST   R1|
00001dc0  31 2c 23 28 31 3c 3c 28  97 28 22 7a 22 29 2d 97  |1,#(1<<(.("z")-.|
00001dd0  28 74 72 69 67 67 65 72  24 29 29 29 0d 09 d8 12  |(trigger$)))....|
00001de0  20 20 42 4e 45 20 20 20  54 72 6b 5f 4f 6b 0d 09  |  BNE   Trk_Ok..|
00001df0  e2 1c 20 20 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |..  LDMFD R13!,{|
00001e00  52 30 2d 52 31 32 2c 50  43 7d 0d 09 ec 07 20 20  |R0-R12,PC}....  |
00001e10  5d 0d 09 f6 05 cd 0d 0a  00 0e 5b 4f 50 54 20 50  |].........[OPT P|
00001e20  61 73 73 25 0d 0a 0a 0b  2e 54 72 6b 5f 4f 6b 0d  |ass%.....Trk_Ok.|
00001e30  0a 14 18 4c 44 52 20 20  20 52 30 2c 54 72 6b 5f  |...LDR   R0,Trk_|
00001e40  43 6f 75 6e 74 65 72 0d  0a 1e 16 4c 44 52 20 20  |Counter....LDR  |
00001e50  20 52 31 2c 54 72 6b 5f  53 70 65 65 64 0d 0a 28  | R1,Trk_Speed..(|
00001e60  12 41 44 44 20 20 20 52  30 2c 52 30 2c 23 31 0d  |.ADD   R0,R0,#1.|
00001e70  0a 32 0f 43 4d 50 20 20  20 52 30 2c 52 31 0d 0a  |.2.CMP   R0,R1..|
00001e80  3c 0f 4d 4f 56 47 45 20  52 30 2c 23 30 0d 0a 46  |<.MOVGE R0,#0..F|
00001e90  18 53 54 52 20 20 20 52  30 2c 54 72 6b 5f 43 6f  |.STR   R0,Trk_Co|
00001ea0  75 6e 74 65 72 0d 0a 50  14 42 45 51 20 20 20 54  |unter..P.BEQ   T|
00001eb0  72 6b 5f 50 6c 61 79 65  72 0d 0a 5a 15 42 4e 45  |rk_Player..Z.BNE|
00001ec0  20 20 20 54 72 6b 5f 45  66 66 65 63 74 73 0d 0a  |   Trk_Effects..|
00001ed0  64 04 0d 0a 6e 32 3b 20  2a 2d 2d 2d 2d 2d 2d 2d  |d...n2; *-------|
00001ee0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001f00  2d 2d 2d 2a 0d 0a 78 32  3b 20 2a 20 20 20 20 50  |---*..x2; *    P|
00001f10  6c 61 79 20 61 20 6e 65  77 20 6c 69 6e 65 20 6f  |lay a new line o|
00001f20  66 20 63 75 72 72 65 6e  74 20 70 61 74 74 65 72  |f current patter|
00001f30  6e 20 20 20 20 2a 0d 0a  82 32 3b 20 2a 2d 2d 2d  |n    *...2; *---|
00001f40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001f60  2d 2d 2d 2d 2d 2d 2d 2a  0d 0a 8c 04 0d 0a 96 0f  |-------*........|
00001f70  2e 54 72 6b 5f 50 6c 61  79 65 72 0d 0a a0 16 41  |.Trk_Player....A|
00001f80  44 52 20 20 20 52 30 2c  54 72 6b 5f 49 6e 66 6f  |DR   R0,Trk_Info|
00001f90  73 0d 0a aa 18 4c 44 4d  49 41 20 52 30 2c 7b 52  |s....LDMIA R0,{R|
00001fa0  31 2d 52 36 2c 52 31 31  7d 0d 0a b4 36 4c 44 52  |1-R6,R11}...6LDR|
00001fb0  42 20 20 52 37 2c 5b 52  35 2c 52 31 5d 20 20 20  |B  R7,[R5,R1]   |
00001fc0  20 20 20 20 20 20 20 20  20 20 3b 20 52 37 20 3d  |          ; R7 =|
00001fd0  20 50 61 74 74 65 72 6e  20 6e 75 6d 62 65 72 0d  | Pattern number.|
00001fe0  0a be 39 4c 44 52 20 20  20 52 31 32 2c 5b 52 36  |..9LDR   R12,[R6|
00001ff0  2c 52 37 2c 4c 53 4c 23  32 5d 20 20 20 20 20 20  |,R7,LSL#2]      |
00002000  3b 20 52 31 32 20 3d 3e  20 43 75 72 72 65 6e 74  |; R12 => Current|
00002010  20 70 61 74 74 65 72 6e  0d 0a c8 42 4d 4f 56 20  | pattern...BMOV |
00002020  20 20 52 31 30 2c 52 31  31 2c 4c 53 4c 23 32 20  |  R10,R11,LSL#2 |
00002030  20 20 20 20 20 20 20 20  20 3b 20 52 31 30 3d 52  |         ; R10=R|
00002040  31 31 2a 34 20 3d 20 50  61 74 74 65 72 6e 20 4c  |11*4 = Pattern L|
00002050  69 6e 65 20 4c 65 6e 67  74 68 0d 0a d2 3e 4d 4c  |ine Length...>ML|
00002060  41 20 20 20 52 31 32 2c  52 33 2c 52 31 30 2c 52  |A   R12,R3,R10,R|
00002070  31 32 20 20 20 20 20 20  20 20 20 3b 20 52 31 32  |12         ; R12|
00002080  20 3d 3e 20 43 75 72 72  65 6e 74 20 70 61 74 74  | => Current patt|
00002090  65 72 6e 20 6c 69 6e 65  0d 0a dc 3e 4c 44 52 42  |ern line...>LDRB|
000020a0  20 20 52 37 2c 5b 52 34  2c 52 37 5d 20 20 20 20  |  R7,[R4,R7]    |
000020b0  20 20 20 20 20 20 20 20  20 3b 20 52 37 20 3d 20  |         ; R7 = |
000020c0  50 61 74 74 65 72 6e 20  4c 65 6e 67 74 68 20 28  |Pattern Length (|
000020d0  30 31 2d 36 34 29 0d 0a  e6 12 41 44 44 20 20 20  |01-64)....ADD   |
000020e0  52 33 2c 52 33 2c 23 31  0d 0a f0 33 43 4d 50 20  |R3,R3,#1...3CMP |
000020f0  20 20 52 33 2c 52 37 20  20 20 20 20 20 20 20 20  |  R3,R7         |
00002100  20 20 20 20 20 20 20 20  20 3b 20 45 6e 64 20 6f  |         ; End o|
00002110  66 20 50 61 74 74 65 72  6e 20 3f 0d 0a fa 18 42  |f Pattern ?....B|
00002120  4c 54 20 20 20 57 72 69  74 65 5f 50 6f 73 69 74  |LT   Write_Posit|
00002130  69 6f 6e 0d 0b 04 0f 4d  4f 56 20 20 20 52 33 2c  |ion....MOV   R3,|
00002140  23 30 0d 0b 0e 42 41 44  44 20 20 20 52 31 2c 52  |#0...BADD   R1,R|
00002150  31 2c 23 31 20 20 20 20  20 20 20 20 20 20 20 20  |1,#1            |
00002160  20 20 20 3b 20 4e 65 78  74 20 70 6f 73 69 74 69  |   ; Next positi|
00002170  6f 6e 20 69 6e 20 53 65  71 75 65 6e 63 65 20 54  |on in Sequence T|
00002180  61 62 6c 65 0d 0b 18 44  43 4d 50 20 20 20 52 31  |able...DCMP   R1|
00002190  2c 52 32 20 20 20 20 20  20 20 20 20 20 20 20 20  |,R2             |
000021a0  20 20 20 20 20 3b 20 4c  61 73 74 20 50 6f 73 69  |     ; Last Posi|
000021b0  74 69 6f 6e 20 69 6e 20  53 65 71 75 65 6e 63 65  |tion in Sequence|
000021c0  20 54 61 62 6c 65 20 3f  0d 0b 22 39 4d 4f 56 47  | Table ?.."9MOVG|
000021d0  45 20 52 31 2c 23 30 20  20 20 20 20 20 20 20 20  |E R1,#0         |
000021e0  20 20 20 20 20 20 20 20  20 3b 20 49 66 20 59 65  |         ; If Ye|
000021f0  73 2c 20 43 6c 65 61 72  20 43 6f 75 6e 74 65 72  |s, Clear Counter|
00002200  2e 0d 0b 2c 13 2e 57 72  69 74 65 5f 50 6f 73 69  |...,..Write_Posi|
00002210  74 69 6f 6e 0d 0b 36 34  53 54 4d 49 41 20 52 30  |tion..64STMIA R0|
00002220  2c 7b 52 31 2d 52 33 7d  20 20 20 20 20 20 20 20  |,{R1-R3}        |
00002230  20 20 20 20 20 3b 20 53  61 76 65 20 6e 65 77 20  |     ; Save new |
00002240  70 6f 73 69 74 69 6f 6e  0d 0b 40 04 0d 0b 4a 1d  |position..@...J.|
00002250  41 44 52 20 20 20 52 32  2c 54 72 6b 5f 50 61 74  |ADR   R2,Trk_Pat|
00002260  74 65 72 6e 5f 4c 69 6e  65 0d 0b 54 16 4c 44 4d  |tern_Line..T.LDM|
00002270  49 41 20 52 31 32 2c 7b  52 34 2d 52 31 31 7d 0d  |IA R12,{R4-R11}.|
00002280  0b 5e 15 53 54 4d 49 41  20 52 32 2c 7b 52 34 2d  |.^.STMIA R2,{R4-|
00002290  52 31 31 7d 0d 0b 68 1f  41 44 52 20 20 20 52 37  |R11}..h.ADR   R7|
000022a0  2c 56 6f 69 63 65 73 5f  49 6e 66 6f 73 5f 42 6c  |,Voices_Infos_Bl|
000022b0  6f 63 6b 0d 0b 72 18 4c  44 52 20 20 20 52 31 31  |ock..r.LDR   R11|
000022c0  2c 54 72 6b 5f 56 6f 69  63 65 73 0d 0b 7c 40 42  |,Trk_Voices..|@B|
000022d0  4c 20 20 20 20 47 65 74  5f 46 72 65 71 75 65 6e  |L    Get_Frequen|
000022e0  63 65 5f 54 61 62 6c 65  20 20 20 3b 20 52 65 74  |ce_Table   ; Ret|
000022f0  75 72 6e 20 52 38 20 3d  3e 20 27 46 72 65 71 75  |urn R8 => 'Frequ|
00002300  65 6e 63 65 27 20 54 61  62 6c 65 0d 0b 86 0f 4d  |ence' Table....M|
00002310  4f 56 20 20 20 52 39 2c  23 30 0d 0b 90 12 2e 54  |OV   R9,#0.....T|
00002320  72 6b 5f 56 6f 69 63 65  4c 6f 6f 70 0d 0b 9a 34  |rk_VoiceLoop...4|
00002330  4c 44 52 20 20 20 52 35  2c 5b 52 31 32 5d 2c 23  |LDR   R5,[R12],#|
00002340  34 20 20 20 20 20 20 20  20 20 20 20 3b 20 52 35  |4           ; R5|
00002350  3d 4e 6f 74 65 2b 49 6e  73 74 72 75 6d 65 6e 74  |=Note+Instrument|
00002360  0d 0b a4 16 80 20 20 20  52 32 2c 52 35 2c 23 26  |.....   R2,R5,#&|
00002370  46 46 30 30 30 30 0d 0b  ae 40 4d 4f 56 20 20 20  |FF0000...@MOV   |
00002380  52 32 2c 52 32 2c 4c 53  52 23 31 36 20 20 20 20  |R2,R2,LSR#16    |
00002390  20 20 20 20 20 20 3b 20  52 32 3d 53 61 6d 70 6c  |      ; R2=Sampl|
000023a0  65 20 6e 75 6d 62 65 72  20 28 30 31 2d 33 36 29  |e number (01-36)|
000023b0  3d 28 30 2d 5a 29 0d 0b  b8 12 53 55 42 53 20 20  |=(0-Z)....SUBS  |
000023c0  52 32 2c 52 32 2c 23 31  0d 0b c2 11 42 4c 54 20  |R2,R2,#1....BLT |
000023d0  20 20 4e 65 78 74 4f 6e  65 0d 0b cc 3b 42 4c 20  |  NextOne...;BL |
000023e0  20 20 20 47 65 74 5f 4e  65 77 5f 53 61 6d 70 6c  |   Get_New_Sampl|
000023f0  65 20 20 20 20 20 20 20  20 3b 20 4e 6f 72 6d 61  |e        ; Norma|
00002400  6c 20 63 61 73 65 20 3d  20 4e 2d 4f 20 53 30 30  |l case = N-O S00|
00002410  30 2e 2e 2e 0d 0b d6 39  4d 4f 56 53 20 20 52 34  |0......9MOVS  R4|
00002420  2c 52 35 2c 4c 53 52 23  32 34 20 20 20 20 20 20  |,R5,LSR#24      |
00002430  20 20 20 20 3b 20 52 34  3d 4e 6f 74 65 20 6e 75  |    ; R4=Note nu|
00002440  6d 62 65 72 20 20 28 30  31 2d 33 36 29 0d 0b e0  |mber  (01-36)...|
00002450  37 42 4c 47 54 20 20 47  65 74 5f 4e 65 77 5f 4e  |7BLGT  Get_New_N|
00002460  6f 74 65 20 20 20 20 20  20 20 20 20 20 3b 20 2e  |ote          ; .|
00002470  2e 2e 20 47 65 74 20 53  61 6d 70 6c 65 20 26 20  |.. Get Sample & |
00002480  4e 6f 74 65 0d 0b ea 0c  2e 4e 65 78 74 4f 6e 65  |Note.....NextOne|
00002490  0d 0b f4 16 42 4c 20 20  20 20 54 72 6b 5f 45 66  |....BL    Trk_Ef|
000024a0  66 65 63 74 73 32 0d 0b  fe 13 41 44 44 20 20 20  |fects2....ADD   |
000024b0  52 37 2c 52 37 2c 23 33  32 0d 0c 08 12 41 44 44  |R7,R7,#32....ADD|
000024c0  20 20 20 52 39 2c 52 39  2c 23 31 0d 0c 12 10 43  |   R9,R9,#1....C|
000024d0  4d 50 20 20 20 52 39 2c  52 31 31 0d 0c 1c 17 42  |MP   R9,R11....B|
000024e0  4c 54 20 20 20 54 72 6b  5f 56 6f 69 63 65 4c 6f  |LT   Trk_VoiceLo|
000024f0  6f 70 0d 0c 26 04 0d 0c  30 0e 2e 45 6e 64 4f 66  |op..&...0..EndOf|
00002500  50 6c 61 79 0d 0c 3a 1a  4c 44 4d 46 44 20 52 31  |Play..:.LDMFD R1|
00002510  33 21 2c 7b 52 30 2d 52  31 32 2c 50 43 7d 0d 0c  |3!,{R0-R12,PC}..|
00002520  44 04 0d 0c 4e 11 2e 47  65 74 5f 4e 65 77 5f 4e  |D...N..Get_New_N|
00002530  6f 74 65 0d 0c 58 18 53  54 4d 46 44 20 52 31 33  |ote..X.STMFD R13|
00002540  21 2c 7b 52 31 32 2c 52  31 34 7d 0d 0c 62 19 42  |!,{R12,R14}..b.B|
00002550  4c 20 20 20 20 47 65 74  5f 50 65 72 69 6f 64 73  |L    Get_Periods|
00002560  5f 41 64 72 0d 0c 6c 12  53 55 42 20 20 20 52 33  |_Adr..l.SUB   R3|
00002570  2c 52 34 2c 23 31 0d 0c  76 1b 4c 44 52 20 20 20  |,R4,#1..v.LDR   |
00002580  52 33 2c 5b 52 31 32 2c  52 33 2c 4c 53 4c 23 32  |R3,[R12,R3,LSL#2|
00002590  5d 0d 0c 80 40 53 54 52  20 20 20 52 33 2c 5b 52  |]...@STR   R3,[R|
000025a0  37 2c 23 32 38 5d 20 20  20 20 20 20 20 20 20 20  |7,#28]          |
000025b0  20 20 3b 20 53 61 76 65  20 70 65 72 69 6f 64 20  |  ; Save period |
000025c0  66 6f 72 20 70 6f 72 74  61 6d 65 6e 74 6f 2e 2e  |for portamento..|
000025d0  2e 0d 0c 8a 18 41 44 52  20 20 20 52 31 2c 54 72  |.....ADR   R1,Tr|
000025e0  6b 5f 50 65 72 69 6f 64  73 0d 0c 94 36 53 54 52  |k_Periods...6STR|
000025f0  20 20 20 52 33 2c 5b 52  31 2c 52 39 2c 4c 53 4c  |   R3,[R1,R9,LSL|
00002600  23 32 5d 20 20 20 20 20  20 20 3b 20 2e 2e 2e 61  |#2]       ; ...a|
00002610  6e 64 20 66 6f 72 20 61  72 70 65 67 67 69 6f 0d  |nd for arpeggio.|
00002620  0c 9e 36 4c 44 52 20 20  20 52 33 2c 5b 52 38 2c  |..6LDR   R3,[R8,|
00002630  52 33 2c 4c 53 4c 23 32  5d 20 20 20 20 20 20 20  |R3,LSL#2]       |
00002640  3b 20 47 65 74 20 70 68  61 73 65 20 69 6e 63 72  |; Get phase incr|
00002650  65 6d 65 6e 74 0d 0c a8  42 53 54 52 20 20 20 52  |ement...BSTR   R|
00002660  33 2c 5b 52 37 2c 23 34  5d 20 20 20 20 20 20 20  |3,[R7,#4]       |
00002670  20 20 20 20 20 20 3b 20  26 20 53 61 76 65 20 69  |      ; & Save i|
00002680  74 20 69 6e 20 76 6f 69  63 65 73 20 69 6e 66 6f  |t in voices info|
00002690  73 20 62 6c 6f 63 6b 0d  0c b2 0f 4d 4f 56 20 20  |s block....MOV  |
000026a0  20 52 31 2c 23 30 0d 0c  bc 3a 53 54 52 20 20 20  | R1,#0...:STR   |
000026b0  52 31 2c 5b 52 37 2c 23  30 5d 20 20 20 20 20 20  |R1,[R7,#0]      |
000026c0  20 20 20 20 20 20 20 3b  20 43 6c 65 61 72 20 70  |       ; Clear p|
000026d0  68 61 73 65 20 61 63 63  75 6d 75 6c 61 74 6f 72  |hase accumulator|
000026e0  0d 0c c6 18 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |....LDMFD R13!,{|
000026f0  52 31 32 2c 50 43 7d 5e  0d 0c d0 04 0d 0c da 13  |R12,PC}^........|
00002700  2e 47 65 74 5f 4e 65 77  5f 53 61 6d 70 6c 65 0d  |.Get_New_Sample.|
00002710  0c e4 1b 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |...STMFD R13!,{R|
00002720  34 2c 52 31 32 2c 52 31  34 7d 0d 0c ee 18 41 44  |4,R12,R14}....AD|
00002730  52 20 20 20 52 33 2c 54  72 6b 5f 53 61 6d 70 6c  |R   R3,Trk_Sampl|
00002740  65 73 0d 0c f8 36 4c 44  52 20 20 20 52 33 2c 5b  |es...6LDR   R3,[|
00002750  52 33 2c 52 32 2c 4c 53  4c 23 32 5d 20 20 20 20  |R3,R2,LSL#2]    |
00002760  20 20 20 3b 20 52 33 20  3d 3e 20 41 63 74 75 61  |   ; R3 => Actua|
00002770  6c 20 53 61 6d 70 6c 65  0d 0d 02 35 41 44 44 20  |l Sample...5ADD |
00002780  20 20 52 34 2c 52 33 2c  23 36 30 20 20 20 20 20  |  R4,R3,#60     |
00002790  20 20 20 20 20 20 20 20  20 3b 20 52 34 20 3d 3e  |         ; R4 =>|
000027a0  20 53 61 6d 70 6c 65 73  20 44 61 74 61 0d 0d 0c  | Samples Data...|
000027b0  15 53 54 52 20 20 20 52  34 2c 5b 52 37 2c 23 31  |.STR   R4,[R7,#1|
000027c0  36 5d 0d 0d 16 0f 4d 4f  56 20 20 20 52 31 2c 23  |6]....MOV   R1,#|
000027d0  31 0d 0d 20 3d 53 54 52  20 20 20 52 31 2c 5b 52  |1.. =STR   R1,[R|
000027e0  37 2c 23 32 34 5d 20 20  20 20 20 20 20 20 20 20  |7,#24]          |
000027f0  20 20 3b 20 52 31 20 3d  20 46 6c 61 67 20 46 69  |  ; R1 = Flag Fi|
00002800  6c 6c 20 57 69 74 68 20  53 61 6d 70 6c 65 0d 0d  |ll With Sample..|
00002810  2a 04 0d 0d 34 10 3b 20  53 65 74 20 56 6f 6c 75  |*...4.; Set Volu|
00002820  6d 65 0d 0d 3e 04 0d 0d  48 35 4c 44 52 20 20 20  |me..>...H5LDR   |
00002830  52 31 2c 5b 52 33 2c 23  31 36 2b 32 38 5d 20 20  |R1,[R3,#16+28]  |
00002840  20 20 20 20 20 20 20 3b  20 52 31 20 3d 20 53 61  |       ; R1 = Sa|
00002850  6d 70 6c 65 20 56 6f 6c  75 6d 65 0d 0d 52 13 53  |mple Volume..R.S|
00002860  55 42 53 20 20 52 34 2c  52 31 2c 23 36 38 0d 0d  |UBS  R4,R1,#68..|
00002870  5c 0f 4d 4f 56 4c 54 20  52 34 2c 23 30 0d 0d 66  |\.MOVLT R4,#0..f|
00002880  15 4d 4f 56 20 20 20 52  34 2c 52 34 2c 4c 53 52  |.MOV   R4,R4,LSR|
00002890  23 32 0d 0d 70 14 52 53  42 20 20 20 52 31 2c 52  |#2..p.RSB   R1,R|
000028a0  31 2c 23 32 35 35 0d 0d  7a 15 53 54 52 20 20 20  |1,#255..z.STR   |
000028b0  52 31 2c 5b 52 37 2c 23  32 30 5d 0d 0d 84 04 0d  |R1,[R7,#20].....|
000028c0  0d 8e 18 3b 20 53 65 74  20 56 6f 6c 75 6d 65 20  |...; Set Volume |
000028d0  43 6f 6d 6d 61 6e 64 0d  0d 98 04 0d 0d a2 14 80  |Command.........|
000028e0  20 20 20 52 34 2c 52 35  2c 23 26 46 46 30 30 0d  |   R4,R5,#&FF00.|
000028f0  0d ac 13 43 4d 50 20 20  20 52 34 2c 23 26 31 46  |...CMP   R4,#&1F|
00002900  30 30 0d 0d b6 12 80 45  51 20 52 31 2c 52 35 2c  |00.....EQ R1,R5,|
00002910  23 26 46 46 0d 0d c0 14  52 53 42 45 51 20 52 31  |#&FF....RSBEQ R1|
00002920  2c 52 31 2c 23 26 46 46  0d 0d ca 15 53 54 52 45  |,R1,#&FF....STRE|
00002930  51 20 52 31 2c 5b 52 37  2c 23 32 30 5d 0d 0d d4  |Q R1,[R7,#20]...|
00002940  04 0d 0d de 1e 3b 20 47  65 74 20 26 20 53 61 76  |.....; Get & Sav|
00002950  65 20 73 61 6d 70 6c 65  73 20 69 6e 66 6f 73 0d  |e samples infos.|
00002960  0d e8 04 0d 0d f2 38 4c  44 52 20 20 20 52 31 2c  |......8LDR   R1,|
00002970  5b 52 33 2c 23 34 30 2b  32 38 5d 20 20 20 20 20  |[R3,#40+28]     |
00002980  20 20 20 20 20 20 20 3b  20 52 31 20 3d 20 52 65  |       ; R1 = Re|
00002990  70 65 61 74 20 4f 66 66  73 65 74 0d 0d fc 38 4c  |peat Offset...8L|
000029a0  44 52 20 20 20 52 34 2c  5b 52 33 2c 23 35 32 2b  |DR   R4,[R3,#52+|
000029b0  32 38 5d 20 20 20 20 20  20 20 20 20 20 20 20 3b  |28]            ;|
000029c0  20 52 34 20 3d 20 52 65  70 65 61 74 20 4c 65 6e  | R4 = Repeat Len|
000029d0  67 74 68 0d 0e 06 0f 43  4d 50 20 20 20 52 34 2c  |gth....CMP   R4,|
000029e0  23 32 0d 0e 10 12 41 44  44 4e 45 20 52 34 2c 52  |#2....ADDNE R4,R|
000029f0  34 2c 52 31 0d 0e 1a 38  4c 44 52 45 51 20 52 34  |4,R1...8LDREQ R4|
00002a00  2c 5b 52 33 2c 23 32 38  2b 32 38 5d 20 20 20 20  |,[R3,#28+28]    |
00002a10  20 20 20 20 20 20 20 20  3b 20 52 34 20 3d 20 53  |        ; R4 = S|
00002a20  61 6d 70 6c 65 20 4c 65  6e 67 74 68 0d 0e 24 15  |ample Length..$.|
00002a30  53 54 52 20 20 20 52 34  2c 5b 52 37 2c 23 31 32  |STR   R4,[R7,#12|
00002a40  5d 0d 0e 2e 12 41 44 44  4e 45 20 52 31 2c 52 31  |]....ADDNE R1,R1|
00002a50  2c 23 31 0d 0e 38 39 53  54 52 20 20 20 52 31 2c  |,#1..89STR   R1,|
00002a60  5b 52 37 2c 23 38 5d 20  20 20 20 20 20 20 20 20  |[R7,#8]         |
00002a70  20 20 20 20 20 20 20 3b  20 53 61 75 76 65 20 52  |       ; Sauve R|
00002a80  65 70 65 61 74 20 4f 66  66 73 65 74 0d 0e 42 1b  |epeat Offset..B.|
00002a90  4c 44 4d 46 44 20 52 31  33 21 2c 7b 52 34 2c 52  |LDMFD R13!,{R4,R|
00002aa0  31 32 2c 50 43 7d 5e 0d  0e 4c 04 0d 0e 56 24 3b  |12,PC}^..L...V$;|
00002ab0  20 2a 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | *--------------|
00002ac0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2a 0d  |--------------*.|
00002ad0  0e 60 24 3b 20 2a 20 20  20 20 20 20 45 66 66 65  |.`$; *      Effe|
00002ae0  63 74 73 20 43 68 65 63  6b 69 6e 67 20 23 31 20  |cts Checking #1 |
00002af0  20 20 2a 0d 0e 6a 24 3b  20 2a 2d 2d 2d 2d 2d 2d  |  *..j$; *------|
00002b00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002b10  2d 2d 2d 2d 2d 2d 2a 0d  0e 74 24 3b 20 2a 20 20  |------*..t$; *  |
00002b20  27 45 27 20 20 3d 20 53  65 74 20 53 74 65 72 65  |'E'  = Set Stere|
00002b30  6f 20 20 20 20 20 20 20  20 20 2a 0d 0e 7e 24 3b  |o         *..~$;|
00002b40  20 2a 20 20 27 4a 27 20  20 3d 20 50 6f 73 69 74  | *  'J'  = Posit|
00002b50  69 6f 6e 20 4a 75 6d 70  20 20 20 20 20 20 2a 0d  |ion Jump      *.|
00002b60  0e 88 24 3b 20 2a 20 20  27 56 27 20 20 3d 20 53  |..$; *  'V'  = S|
00002b70  65 74 20 56 6f 6c 75 6d  65 20 20 20 20 20 20 20  |et Volume       |
00002b80  20 20 2a 0d 0e 92 24 3b  20 2a 20 20 27 42 27 20  |  *...$; *  'B' |
00002b90  20 3d 20 50 61 74 74 65  72 6e 20 42 72 65 61 6b  | = Pattern Break|
00002ba0  20 20 20 20 20 20 2a 0d  0e 9c 24 3b 20 2a 20 20  |      *...$; *  |
00002bb0  27 53 27 20 20 3d 20 53  65 74 20 53 70 65 65 64  |'S'  = Set Speed|
00002bc0  20 20 20 20 20 20 20 20  20 20 2a 0d 0e a6 24 3b  |          *...$;|
00002bd0  20 2a 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | *--------------|
00002be0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2a 0d  |--------------*.|
00002bf0  0e b0 04 0d 0e ba 11 2e  54 72 6b 5f 45 66 66 65  |........Trk_Effe|
00002c00  63 74 73 32 0d 0e c4 14  80 20 20 20 52 34 2c 52  |cts2.....   R4,R|
00002c10  35 2c 23 26 46 46 30 30  0d 0e ce 04 0d 0e d8 16  |5,#&FF00........|
00002c20  3b 20 53 65 74 20 56 6f  6c 75 6d 65 20 28 27 56  |; Set Volume ('V|
00002c30  27 29 0d 0e e2 04 0d 0e  ec 13 43 4d 50 20 20 20  |')........CMP   |
00002c40  52 34 2c 23 26 31 46 30  30 0d 0e f6 17 42 4e 45  |R4,#&1F00....BNE|
00002c50  20 20 20 4e 6f 5f 53 65  74 5f 56 6f 6c 75 6d 65  |   No_Set_Volume|
00002c60  0d 0f 00 12 80 20 20 20  52 31 2c 52 35 2c 23 26  |.....   R1,R5,#&|
00002c70  46 46 0d 0f 0a 14 52 53  42 20 20 20 52 31 2c 52  |FF....RSB   R1,R|
00002c80  31 2c 23 26 46 46 0d 0f  14 15 53 54 52 20 20 20  |1,#&FF....STR   |
00002c90  52 31 2c 5b 52 37 2c 23  32 30 5d 0d 0f 1e 10 4d  |R1,[R7,#20]....M|
00002ca0  4f 56 20 20 20 50 43 2c  52 31 34 0d 0f 28 12 2e  |OV   PC,R14..(..|
00002cb0  4e 6f 5f 53 65 74 5f 56  6f 6c 75 6d 65 0d 0f 32  |No_Set_Volume..2|
00002cc0  04 0d 0f 3c 16 3b 20 53  65 74 20 53 70 65 65 64  |...<.; Set Speed|
00002cd0  20 20 28 27 53 27 29 0d  0f 46 04 0d 0f 50 13 43  |  ('S')..F...P.C|
00002ce0  4d 50 20 20 20 52 34 2c  23 26 31 43 30 30 0d 0f  |MP   R4,#&1C00..|
00002cf0  5a 16 42 4e 45 20 20 20  4e 6f 5f 53 65 74 5f 53  |Z.BNE   No_Set_S|
00002d00  70 65 65 64 0d 0f 64 12  80 53 20 20 52 31 2c 52  |peed..d..S  R1,R|
00002d10  35 2c 23 26 30 46 0d 0f  6e 16 53 54 52 4e 45 20  |5,#&0F..n.STRNE |
00002d20  52 31 2c 54 72 6b 5f 53  70 65 65 64 0d 0f 78 10  |R1,Trk_Speed..x.|
00002d30  4d 4f 56 20 20 20 50 43  2c 52 31 34 0d 0f 82 11  |MOV   PC,R14....|
00002d40  2e 4e 6f 5f 53 65 74 5f  53 70 65 65 64 0d 0f 8c  |.No_Set_Speed...|
00002d50  04 0d 0f 96 1a 3b 20 50  61 74 74 65 72 6e 20 42  |.....; Pattern B|
00002d60  72 65 61 6b 20 20 28 27  42 27 29 0d 0f a0 04 0d  |reak  ('B').....|
00002d70  0f aa 12 43 4d 50 20 20  20 52 34 2c 23 26 42 30  |...CMP   R4,#&B0|
00002d80  30 0d 0f b4 1a 42 4e 45  20 20 20 4e 6f 5f 50 61  |0....BNE   No_Pa|
00002d90  74 74 65 72 6e 5f 42 72  65 61 6b 0d 0f be 16 41  |ttern_Break....A|
00002da0  44 52 20 20 20 52 30 2c  54 72 6b 5f 49 6e 66 6f  |DR   R0,Trk_Info|
00002db0  73 0d 0f c8 14 4c 44 4d  49 41 20 52 30 2c 7b 52  |s....LDMIA R0,{R|
00002dc0  31 2d 52 33 7d 0d 0f d2  41 41 44 44 20 20 20 52  |1-R3}...AADD   R|
00002dd0  31 2c 52 31 2c 23 31 20  20 20 20 20 20 20 20 20  |1,R1,#1         |
00002de0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 20 50  |             ; P|
00002df0  6f 73 69 74 69 6f 6e 20  3d 20 50 6f 73 69 74 69  |osition = Positi|
00002e00  6f 6e 20 2b 20 31 0d 0f  dc 0f 43 4d 50 20 20 20  |on + 1....CMP   |
00002e10  52 31 2c 52 32 0d 0f e6  0c ec 51 20 52 31 2c 23  |R1,R2.....Q R1,#|
00002e20  30 0d 0f f0 42 4d 4f 56  20 20 20 52 33 2c 23 30  |0...BMOV   R3,#0|
00002e30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002e40  20 20 20 20 20 20 20 20  20 3b 20 41 74 20 73 74  |         ; At st|
00002e50  61 72 74 20 6f 66 20 6e  65 78 74 20 70 61 74 74  |art of next patt|
00002e60  65 72 6e 0d 0f fa 14 53  54 4d 49 41 20 52 30 2c  |ern....STMIA R0,|
00002e70  7b 52 31 2d 52 33 7d 0d  10 04 10 4d 4f 56 20 20  |{R1-R3}....MOV  |
00002e80  20 50 43 2c 52 31 34 0d  10 0e 15 2e 4e 6f 5f 50  | PC,R14.....No_P|
00002e90  61 74 74 65 72 6e 5f 42  72 65 61 6b 0d 10 18 04  |attern_Break....|
00002ea0  0d 10 22 19 3b 20 50 6f  73 69 74 69 6f 6e 20 4a  |..".; Position J|
00002eb0  75 6d 70 20 28 27 4a 27  29 0d 10 2c 04 0d 10 36  |ump ('J')..,...6|
00002ec0  13 43 4d 50 20 20 20 52  34 2c 23 26 31 33 30 30  |.CMP   R4,#&1300|
00002ed0  0d 10 40 1a 42 4e 45 20  20 20 4e 6f 5f 50 6f 73  |..@.BNE   No_Pos|
00002ee0  69 74 69 6f 6e 5f 4a 75  6d 70 0d 10 4a 16 41 44  |ition_Jump..J.AD|
00002ef0  52 20 20 20 52 30 2c 54  72 6b 5f 49 6e 66 6f 73  |R   R0,Trk_Infos|
00002f00  0d 10 54 12 80 20 20 20  52 31 2c 52 35 2c 23 26  |..T..   R1,R5,#&|
00002f10  37 46 0d 10 5e 11 53 54  52 20 20 20 52 31 2c 5b  |7F..^.STR   R1,[|
00002f20  52 30 5d 0d 10 68 0f 4d  4f 56 20 20 20 52 31 2c  |R0]..h.MOV   R1,|
00002f30  23 30 0d 10 72 14 53 54  52 20 20 20 52 31 2c 5b  |#0..r.STR   R1,[|
00002f40  52 30 2c 23 38 5d 0d 10  7c 10 4d 4f 56 20 20 20  |R0,#8]..|.MOV   |
00002f50  50 43 2c 52 31 34 0d 10  86 15 2e 4e 6f 5f 50 6f  |PC,R14.....No_Po|
00002f60  73 69 74 69 6f 6e 5f 4a  75 6d 70 0d 10 90 04 0d  |sition_Jump.....|
00002f70  10 9a 13 43 4d 50 20 20  20 52 34 2c 23 26 31 35  |...CMP   R4,#&15|
00002f80  30 30 0d 10 a4 16 42 4e  45 20 20 20 4e 6f 5f 4c  |00....BNE   No_L|
00002f90  69 6e 65 5f 4a 75 6d 70  0d 10 ae 11 80 20 20 20  |ine_Jump.....   |
00002fa0  52 31 2c 52 35 2c 23 26  46 0d 10 b8 15 4d 4f 56  |R1,R5,#&F....MOV|
00002fb0  20 20 20 52 32 2c 52 35  2c 4c 53 52 23 34 0d 10  |   R2,R5,LSR#4..|
00002fc0  c2 11 80 53 20 20 52 32  2c 52 32 2c 23 26 46 0d  |...S  R2,R2,#&F.|
00002fd0  10 cc 10 4d 4f 56 47 54  20 52 33 2c 23 31 30 0d  |...MOVGT R3,#10.|
00002fe0  10 d6 15 4d 4c 41 47 54  20 52 31 2c 52 32 2c 52  |...MLAGT R1,R2,R|
00002ff0  33 2c 52 31 0d 10 e0 10  43 4d 50 20 20 20 52 31  |3,R1....CMP   R1|
00003000  2c 23 36 33 0d 10 ea 16  41 44 52 4c 45 20 52 30  |,#63....ADRLE R0|
00003010  2c 54 72 6b 5f 49 6e 66  6f 73 0d 10 f4 14 53 54  |,Trk_Infos....ST|
00003020  52 4c 45 20 52 31 2c 5b  52 30 2c 23 38 5d 0d 10  |RLE R1,[R0,#8]..|
00003030  fe 10 4d 4f 56 20 20 20  50 43 2c 52 31 34 0d 11  |..MOV   PC,R14..|
00003040  08 11 2e 4e 6f 5f 4c 69  6e 65 5f 4a 75 6d 70 0d  |...No_Line_Jump.|
00003050  11 12 04 0d 11 1c 12 43  4d 50 20 20 20 52 34 2c  |.......CMP   R4,|
00003060  23 26 45 30 30 0d 11 26  17 42 4e 45 20 20 20 4e  |#&E00..&.BNE   N|
00003070  6f 5f 53 65 74 5f 53 74  65 72 65 6f 0d 11 30 1a  |o_Set_Stereo..0.|
00003080  41 44 52 20 20 20 52 31  30 2c 53 74 65 72 65 6f  |ADR   R10,Stereo|
00003090  5f 54 61 62 6c 65 0d 11  3a 38 80 53 20 20 52 32  |_Table..:8.S  R2|
000030a0  2c 52 35 2c 23 26 30 46  20 20 20 20 20 20 20 20  |,R5,#&0F        |
000030b0  20 20 3b 20 52 32 20 3d  20 53 74 65 72 65 6f 20  |  ; R2 = Stereo |
000030c0  70 6f 73 69 74 69 6f 6e  20 28 31 2d 37 29 0d 11  |position (1-7)..|
000030d0  44 0d ec 51 20 50 43 2c  52 31 34 0d 11 4e 0f 43  |D..Q PC,R14..N.C|
000030e0  4d 50 20 20 20 52 32 2c  23 37 0d 11 58 10 4d 4f  |MP   R2,#7..X.MO|
000030f0  56 47 54 20 50 43 2c 52  31 34 0d 11 62 12 53 55  |VGT PC,R14..b.SU|
00003100  42 20 20 20 52 32 2c 52  32 2c 23 31 0d 11 6c 1b  |B   R2,R2,#1..l.|
00003110  4c 44 52 20 20 20 52 31  2c 5b 52 31 30 2c 52 32  |LDR   R1,[R10,R2|
00003120  2c 4c 53 4c 23 32 5d 0d  11 76 31 41 44 44 20 20  |,LSL#2]..v1ADD  |
00003130  20 52 30 2c 52 39 2c 23  31 20 20 20 20 20 20 20  | R0,R9,#1       |
00003140  20 20 20 20 20 3b 20 52  30 20 3d 20 56 6f 69 63  |     ; R0 = Voic|
00003150  65 20 4e 75 6d 62 65 72  0d 11 80 16 53 54 4d 46  |e Number....STMF|
00003160  44 20 52 31 33 21 2c 7b  52 38 2c 52 39 7d 0d 11  |D R13!,{R8,R9}..|
00003170  8a 0f 4d 4f 56 20 20 20  52 30 2c 50 43 0d 11 94  |..MOV   R0,PC...|
00003180  11 84 52 20 20 20 52 38  2c 52 39 2c 23 33 0d 11  |..R   R8,R9,#3..|
00003190  9e 0f 54 45 51 50 20 20  52 38 2c 23 30 0d 11 a8  |..TEQP  R8,#0...|
000031a0  0f 4d 4f 56 4e 56 20 52  30 2c 52 30 0d 11 b2 14  |.MOVNV R0,R0....|
000031b0  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 31 34 7d  |STMFD R13!,{R14}|
000031c0  0d 11 bc 18 53 57 49 20  20 20 22 53 6f 75 6e 64  |....SWI   "Sound|
000031d0  5f 53 74 65 72 65 6f 22  0d 11 c6 14 4c 44 4d 46  |_Stereo"....LDMF|
000031e0  44 20 52 31 33 21 2c 7b  52 31 34 7d 0d 11 d0 0f  |D R13!,{R14}....|
000031f0  54 45 51 50 20 20 52 39  2c 23 30 0d 11 da 0f 4d  |TEQP  R9,#0....M|
00003200  4f 56 4e 56 20 52 30 2c  52 30 0d 11 e4 16 4c 44  |OVNV R0,R0....LD|
00003210  4d 46 44 20 52 31 33 21  2c 7b 52 38 2c 52 39 7d  |MFD R13!,{R8,R9}|
00003220  0d 11 ee 12 2e 4e 6f 5f  53 65 74 5f 53 74 65 72  |.....No_Set_Ster|
00003230  65 6f 0d 11 f8 10 4d 4f  56 20 20 20 50 43 2c 52  |eo....MOV   PC,R|
00003240  31 34 0d 12 02 04 0d 12  0c 23 3b 20 2a 2d 2d 2d  |14.......#; *---|
00003250  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003260  2d 2d 2d 2d 2d 2d 2d 2d  2a 0d 12 16 23 3b 20 2a  |--------*...#; *|
00003270  20 20 20 20 45 66 66 65  63 74 73 20 43 68 65 63  |    Effects Chec|
00003280  6b 69 6e 67 20 23 32 20  20 20 20 2a 0d 12 20 23  |king #2    *.. #|
00003290  3b 20 2a 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |; *-------------|
000032a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2a 0d  |--------------*.|
000032b0  12 2a 23 3b 20 2a 20 27  30 27 20 20 3d 20 41 72  |.*#; * '0'  = Ar|
000032c0  70 65 67 67 69 6f 20 20  20 20 20 20 20 20 20 20  |peggio          |
000032d0  20 2a 0d 12 34 23 3b 20  2a 20 27 31 27 20 20 3d  | *..4#; * '1'  =|
000032e0  20 50 6f 72 74 61 6d 65  6e 74 6f 20 55 70 20 20  | Portamento Up  |
000032f0  20 20 20 20 2a 0d 12 3e  23 3b 20 2a 20 27 32 27  |    *..>#; * '2'|
00003300  20 20 3d 20 50 6f 72 74  61 6d 65 6e 74 6f 20 44  |  = Portamento D|
00003310  6f 77 6e 20 20 20 20 2a  0d 12 48 23 3b 20 2a 20  |own    *..H#; * |
00003320  27 47 27 20 20 3d 20 53  6c 69 64 65 20 56 6f 6c  |'G'  = Slide Vol|
00003330  75 6d 65 20 55 70 20 20  20 20 2a 0d 12 52 23 3b  |ume Up    *..R#;|
00003340  20 2a 20 27 48 27 20 20  3d 20 53 6c 69 64 65 20  | * 'H'  = Slide |
00003350  56 6f 6c 75 6d 65 20 44  6f 77 6e 20 20 2a 0d 12  |Volume Down  *..|
00003360  5c 23 3b 20 2a 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |\#; *-----------|
00003370  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003380  2a 0d 12 66 04 0d 12 70  10 2e 54 72 6b 5f 45 66  |*..f...p..Trk_Ef|
00003390  66 65 63 74 73 0d 12 7a  1d 41 44 52 20 20 20 52  |fects..z.ADR   R|
000033a0  39 2c 54 72 6b 5f 50 61  74 74 65 72 6e 5f 4c 69  |9,Trk_Pattern_Li|
000033b0  6e 65 0d 12 84 19 41 44  52 20 20 20 52 31 30 2c  |ne....ADR   R10,|
000033c0  54 72 6b 5f 50 65 72 69  6f 64 73 0d 12 8e 34 4c  |Trk_Periods...4L|
000033d0  44 52 20 20 20 52 31 31  2c 54 72 6b 5f 56 6f 69  |DR   R11,Trk_Voi|
000033e0  63 65 73 20 20 20 20 20  20 20 3b 20 52 31 31 20  |ces       ; R11 |
000033f0  3d 20 56 6f 69 63 65 73  20 4e 75 6d 62 65 72 0d  |= Voices Number.|
00003400  12 98 36 42 4c 20 20 20  20 47 65 74 5f 46 72 65  |..6BL    Get_Fre|
00003410  71 75 65 6e 63 65 5f 54  61 62 6c 65 20 20 3b 20  |quence_Table  ; |
00003420  52 38 20 3d 3e 20 46 72  65 71 75 65 6e 63 65 20  |R8 => Frequence |
00003430  54 61 62 6c 65 0d 12 a2  46 42 4c 20 20 20 20 47  |Table...FBL    G|
00003440  65 74 5f 49 6e 66 6f 73  5f 42 6c 6f 63 6b 20 20  |et_Infos_Block  |
00003450  20 20 20 20 3b 20 52 37  20 3d 3e 20 49 6e 66 6f  |    ; R7 => Info|
00003460  73 20 42 6c 6f 63 6b 20  28 33 32 20 42 79 74 65  |s Block (32 Byte|
00003470  20 2f 20 43 68 61 6e 6e  65 6c 29 0d 12 ac 0f 4d  | / Channel)....M|
00003480  4f 56 20 20 20 52 32 2c  23 30 0d 12 b6 15 2e 43  |OV   R2,#0.....C|
00003490  68 65 63 6b 45 66 66 65  63 74 73 4c 6f 6f 70 0d  |heckEffectsLoop.|
000034a0  12 c0 1a 4c 44 52 20 20  20 52 31 2c 5b 52 39 2c  |...LDR   R1,[R9,|
000034b0  52 32 2c 4c 53 4c 23 32  5d 0d 12 ca 2f 80 20 20  |R2,LSL#2].../.  |
000034c0  20 52 33 2c 52 31 2c 23  26 30 30 46 46 20 20 20  | R3,R1,#&00FF   |
000034d0  20 20 20 20 20 20 3b 20  52 33 20 3d 20 45 66 66  |      ; R3 = Eff|
000034e0  65 63 74 20 44 61 74 61  0d 12 d4 15 4d 4f 56 20  |ect Data....MOV |
000034f0  20 20 52 31 2c 52 31 2c  4c 53 52 23 38 0d 12 de  |  R1,R1,LSR#8...|
00003500  2f 80 20 20 20 52 31 2c  52 31 2c 23 26 46 46 20  |/.   R1,R1,#&FF |
00003510  20 20 20 20 20 20 20 20  20 20 3b 20 52 31 20 3d  |          ; R1 =|
00003520  20 45 66 66 65 63 74 20  54 79 70 65 0d 12 e8 04  | Effect Type....|
00003530  0d 12 f2 11 43 4d 50 20  20 20 52 31 2c 23 26 31  |....CMP   R1,#&1|
00003540  30 0d 12 fc 19 42 4e 45  20 20 20 4e 6f 5f 53 6c  |0....BNE   No_Sl|
00003550  69 64 65 5f 56 6f 6c 5f  55 70 0d 13 06 12 80 20  |ide_Vol_Up..... |
00003560  20 20 52 33 2c 52 33 2c  23 26 46 46 0d 13 10 18  |  R3,R3,#&FF....|
00003570  41 44 44 20 20 20 52 34  2c 52 37 2c 52 32 2c 4c  |ADD   R4,R7,R2,L|
00003580  53 4c 23 35 0d 13 1a 2f  4c 44 52 20 20 20 52 35  |SL#5.../LDR   R5|
00003590  2c 5b 52 34 2c 23 32 30  5d 20 20 20 20 20 20 20  |,[R4,#20]       |
000035a0  20 20 20 20 3b 20 52 35  3d 32 35 35 2d 56 6f 6c  |    ; R5=255-Vol|
000035b0  75 6d 65 0d 13 24 14 52  53 42 20 20 20 52 35 2c  |ume..$.RSB   R5,|
000035c0  52 35 2c 23 32 35 35 0d  13 2e 12 41 44 44 20 20  |R5,#255....ADD  |
000035d0  20 52 35 2c 52 35 2c 52  33 0d 13 38 11 43 4d 50  | R5,R5,R3..8.CMP|
000035e0  20 20 20 52 35 2c 23 26  46 46 0d 13 42 11 4d 4f  |   R5,#&FF..B.MO|
000035f0  56 47 54 20 52 35 2c 23  26 46 46 0d 13 4c 14 52  |VGT R5,#&FF..L.R|
00003600  53 42 20 20 20 52 35 2c  52 35 2c 23 32 35 35 0d  |SB   R5,R5,#255.|
00003610  13 56 15 53 54 52 20 20  20 52 35 2c 5b 52 34 2c  |.V.STR   R5,[R4,|
00003620  23 32 30 5d 0d 13 60 16  42 20 20 20 20 20 43 68  |#20]..`.B     Ch|
00003630  65 63 6b 4e 65 78 74 56  6f 78 0d 13 6a 14 2e 4e  |eckNextVox..j..N|
00003640  6f 5f 53 6c 69 64 65 5f  56 6f 6c 5f 55 70 0d 13  |o_Slide_Vol_Up..|
00003650  74 04 0d 13 7e 11 43 4d  50 20 20 20 52 31 2c 23  |t...~.CMP   R1,#|
00003660  26 31 31 0d 13 88 1b 42  4e 45 20 20 20 4e 6f 5f  |&11....BNE   No_|
00003670  53 6c 69 64 65 5f 56 6f  6c 5f 44 6f 77 6e 0d 13  |Slide_Vol_Down..|
00003680  92 12 80 20 20 20 52 33  2c 52 33 2c 23 26 46 46  |...   R3,R3,#&FF|
00003690  0d 13 9c 18 41 44 44 20  20 20 52 34 2c 52 37 2c  |....ADD   R4,R7,|
000036a0  52 32 2c 4c 53 4c 23 35  0d 13 a6 2d 4c 44 52 20  |R2,LSL#5...-LDR |
000036b0  20 20 52 35 2c 5b 52 34  2c 23 32 30 5d 20 20 20  |  R5,[R4,#20]   |
000036c0  20 20 20 20 20 20 3b 20  52 35 3d 32 35 35 2d 56  |      ; R5=255-V|
000036d0  6f 6c 75 6d 65 0d 13 b0  14 52 53 42 20 20 20 52  |olume....RSB   R|
000036e0  35 2c 52 35 2c 23 32 35  35 0d 13 ba 12 53 55 42  |5,R5,#255....SUB|
000036f0  53 20 20 52 35 2c 52 35  2c 52 33 0d 13 c4 0f 4d  |S  R5,R5,R3....M|
00003700  4f 56 4c 54 20 52 35 2c  23 30 0d 13 ce 14 52 53  |OVLT R5,#0....RS|
00003710  42 20 20 20 52 35 2c 52  35 2c 23 32 35 35 0d 13  |B   R5,R5,#255..|
00003720  d8 15 53 54 52 20 20 20  52 35 2c 5b 52 34 2c 23  |..STR   R5,[R4,#|
00003730  32 30 5d 0d 13 e2 16 42  20 20 20 20 20 43 68 65  |20]....B     Che|
00003740  63 6b 4e 65 78 74 56 6f  78 0d 13 ec 16 2e 4e 6f  |ckNextVox.....No|
00003750  5f 53 6c 69 64 65 5f 56  6f 6c 5f 44 6f 77 6e 0d  |_Slide_Vol_Down.|
00003760  13 f6 04 0d 14 00 0f 43  4d 50 20 20 20 52 31 2c  |.......CMP   R1,|
00003770  23 31 0d 14 0a 12 42 4e  45 20 20 20 4e 6f 50 6f  |#1....BNE   NoPo|
00003780  72 74 55 70 0d 14 14 18  41 44 44 20 20 20 52 34  |rtUp....ADD   R4|
00003790  2c 52 37 2c 52 32 2c 4c  53 4c 23 35 0d 14 1e 30  |,R7,R2,LSL#5...0|
000037a0  4c 44 52 20 20 20 52 35  2c 5b 52 34 2c 23 32 38  |LDR   R5,[R4,#28|
000037b0  5d 20 20 20 20 20 20 20  20 20 3b 20 52 35 3d 41  |]         ; R5=A|
000037c0  63 74 75 61 6c 20 50 65  72 69 6f 64 0d 14 28 12  |ctual Period..(.|
000037d0  53 55 42 20 20 20 52 35  2c 52 35 2c 52 33 0d 14  |SUB   R5,R5,R3..|
000037e0  32 11 43 4d 50 20 20 20  52 35 2c 23 26 35 30 0d  |2.CMP   R5,#&50.|
000037f0  14 3c 11 4d 4f 56 4c 54  20 52 35 2c 23 26 35 30  |.<.MOVLT R5,#&50|
00003800  0d 14 46 15 53 54 52 20  20 20 52 35 2c 5b 52 34  |..F.STR   R5,[R4|
00003810  2c 23 32 38 5d 0d 14 50  1a 4c 44 52 20 20 20 52  |,#28]..P.LDR   R|
00003820  35 2c 5b 52 38 2c 52 35  2c 4c 53 4c 23 32 5d 0d  |5,[R8,R5,LSL#2].|
00003830  14 5a 14 53 54 52 20 20  20 52 35 2c 5b 52 34 2c  |.Z.STR   R5,[R4,|
00003840  23 34 5d 0d 14 64 16 42  20 20 20 20 20 43 68 65  |#4]..d.B     Che|
00003850  63 6b 4e 65 78 74 56 6f  78 0d 14 6e 0d 2e 4e 6f  |ckNextVox..n..No|
00003860  50 6f 72 74 55 70 0d 14  78 04 0d 14 82 0f 43 4d  |PortUp..x.....CM|
00003870  50 20 20 20 52 31 2c 23  32 0d 14 8c 14 42 4e 45  |P   R1,#2....BNE|
00003880  20 20 20 4e 6f 50 6f 72  74 44 6f 77 6e 0d 14 96  |   NoPortDown...|
00003890  18 41 44 44 20 20 20 52  34 2c 52 37 2c 52 32 2c  |.ADD   R4,R7,R2,|
000038a0  4c 53 4c 23 35 0d 14 a0  35 4c 44 52 20 20 20 52  |LSL#5...5LDR   R|
000038b0  35 2c 5b 52 34 2c 23 32  38 5d 20 20 20 20 20 20  |5,[R4,#28]      |
000038c0  20 20 20 3b 20 48 61 75  74 65 75 72 20 4e 6f 74  |   ; Hauteur Not|
000038d0  65 20 41 63 74 75 65 6c  6c 65 0d 14 aa 12 41 44  |e Actuelle....AD|
000038e0  44 20 20 20 52 35 2c 52  35 2c 52 33 0d 14 b4 12  |D   R5,R5,R3....|
000038f0  43 4d 50 20 20 20 52 35  2c 23 26 33 46 30 0d 14  |CMP   R5,#&3F0..|
00003900  be 12 4d 4f 56 47 54 20  52 35 2c 23 26 33 46 30  |..MOVGT R5,#&3F0|
00003910  0d 14 c8 15 53 54 52 20  20 20 52 35 2c 5b 52 34  |....STR   R5,[R4|
00003920  2c 23 32 38 5d 0d 14 d2  36 4c 44 52 20 20 20 52  |,#28]...6LDR   R|
00003930  35 2c 5b 52 38 2c 52 35  2c 4c 53 4c 23 32 5d 20  |5,[R8,R5,LSL#2] |
00003940  20 20 20 3b 20 47 65 74  20 70 68 61 73 65 20 69  |   ; Get phase i|
00003950  6e 63 72 65 6d 65 6e 74  2e 2e 2e 0d 14 dc 2a 53  |ncrement......*S|
00003960  54 52 20 20 20 52 35 2c  5b 52 34 2c 23 34 5d 20  |TR   R5,[R4,#4] |
00003970  20 20 20 20 20 20 20 20  20 3b 20 2e 2e 2e 53 61  |         ; ...Sa|
00003980  76 65 20 69 74 0d 14 e6  16 42 20 20 20 20 20 43  |ve it....B     C|
00003990  68 65 63 6b 4e 65 78 74  56 6f 78 0d 14 f0 0f 2e  |heckNextVox.....|
000039a0  4e 6f 50 6f 72 74 44 6f  77 6e 0d 14 fa 04 0d 15  |NoPortDown......|
000039b0  04 0f 43 4d 50 20 20 20  52 31 2c 23 30 0d 15 0e  |..CMP   R1,#0...|
000039c0  16 42 4c 45 51 20 20 54  72 6b 5f 41 72 70 65 67  |.BLEQ  Trk_Arpeg|
000039d0  67 69 6f 0d 15 18 04 0d  15 22 11 2e 43 68 65 63  |gio......"..Chec|
000039e0  6b 4e 65 78 74 56 6f 78  0d 15 2c 2a 41 44 44 20  |kNextVox..,*ADD |
000039f0  20 20 52 32 2c 52 32 2c  23 31 20 20 20 20 20 20  |  R2,R2,#1      |
00003a00  20 20 20 20 20 20 3b 20  4e 65 78 74 20 56 6f 69  |      ; Next Voi|
00003a10  63 65 0d 15 36 2c 43 4d  50 20 20 20 52 32 2c 52  |ce..6,CMP   R2,R|
00003a20  31 31 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |11              |
00003a30  3b 20 4c 61 73 74 20 56  6f 69 63 65 20 3f 0d 15  |; Last Voice ?..|
00003a40  40 1a 42 4e 45 20 20 20  43 68 65 63 6b 45 66 66  |@.BNE   CheckEff|
00003a50  65 63 74 73 4c 6f 6f 70  0d 15 4a 1a 4c 44 4d 46  |ectsLoop..J.LDMF|
00003a60  44 20 52 31 33 21 2c 7b  52 30 2d 52 31 32 2c 50  |D R13!,{R0-R12,P|
00003a70  43 7d 0d 15 54 04 0d 15  5e 11 2e 54 72 6b 5f 41  |C}..T...^..Trk_A|
00003a80  72 70 65 67 67 69 6f 0d  15 68 14 53 54 4d 46 44  |rpeggio..h.STMFD|
00003a90  20 52 31 33 21 2c 7b 52  31 34 7d 0d 15 72 0f 43  | R13!,{R14}..r.C|
00003aa0  4d 50 20 20 20 52 33 2c  23 30 0d 15 7c 15 4c 44  |MP   R3,#0..|.LD|
00003ab0  4d 45 51 46 44 20 52 31  33 21 2c 7b 50 43 7d 0d  |MEQFD R13!,{PC}.|
00003ac0  15 86 18 4c 44 52 20 20  20 52 30 2c 54 72 6b 5f  |...LDR   R0,Trk_|
00003ad0  43 6f 75 6e 74 65 72 0d  15 90 0f 43 4d 50 20 20  |Counter....CMP  |
00003ae0  20 52 30 2c 23 31 0d 15  9a 13 42 45 51 20 20 20  | R0,#1....BEQ   |
00003af0  41 72 70 5f 4c 6f 6f 70  32 0d 15 a4 0f 43 4d 50  |Arp_Loop2....CMP|
00003b00  20 20 20 52 30 2c 23 32  0d 15 ae 13 42 45 51 20  |   R0,#2....BEQ |
00003b10  20 20 41 72 70 5f 4c 6f  6f 70 33 0d 15 b8 0f 43  |  Arp_Loop3....C|
00003b20  4d 50 20 20 20 52 30 2c  23 33 0d 15 c2 13 42 45  |MP   R0,#3....BE|
00003b30  51 20 20 20 41 72 70 5f  4c 6f 6f 70 34 0d 15 cc  |Q   Arp_Loop4...|
00003b40  0f 43 4d 50 20 20 20 52  30 2c 23 34 0d 15 d6 13  |.CMP   R0,#4....|
00003b50  42 45 51 20 20 20 41 72  70 5f 4c 6f 6f 70 32 0d  |BEQ   Arp_Loop2.|
00003b60  15 e0 0f 43 4d 50 20 20  20 52 30 2c 23 35 0d 15  |...CMP   R0,#5..|
00003b70  ea 13 42 45 51 20 20 20  41 72 70 5f 4c 6f 6f 70  |..BEQ   Arp_Loop|
00003b80  33 0d 15 f4 13 4c 44 4d  46 44 20 52 31 33 21 2c  |3....LDMFD R13!,|
00003b90  7b 50 43 7d 0d 15 fe 04  0d 16 08 0e 2e 41 72 70  |{PC}.........Arp|
00003ba0  5f 4c 6f 6f 70 32 0d 16  12 4b 4d 4f 56 20 20 20  |_Loop2...KMOV   |
00003bb0  52 30 2c 52 33 2c 4c 53  52 23 34 20 20 20 20 20  |R0,R3,LSR#4     |
00003bc0  20 20 20 3b 20 52 30 3d  46 69 72 73 74 20 6e 69  |   ; R0=First ni|
00003bd0  62 62 6c 65 2c 20 74 68  65 6e 20 61 64 64 20 69  |bble, then add i|
00003be0  74 20 74 6f 20 63 75 72  72 65 6e 74 20 74 6f 6e  |t to current ton|
00003bf0  65 0d 16 1c 12 42 20 20  20 20 20 41 72 70 5f 43  |e....B     Arp_C|
00003c00  6f 6e 74 0d 16 26 0e 2e  41 72 70 5f 4c 6f 6f 70  |ont..&..Arp_Loop|
00003c10  33 0d 16 30 4a 80 20 20  20 52 30 2c 52 33 2c 23  |3..0J.   R0,R3,#|
00003c20  26 30 46 20 20 20 20 20  20 20 20 20 3b 20 52 30  |&0F         ; R0|
00003c30  3d 53 65 63 6f 6e 64 20  6e 69 62 62 6c 65 2c 20  |=Second nibble, |
00003c40  74 68 65 6e 20 61 64 64  20 69 74 20 74 6f 20 63  |then add it to c|
00003c50  75 72 72 65 6e 74 20 74  6f 6e 65 0d 16 3a 12 42  |urrent tone..:.B|
00003c60  20 20 20 20 20 41 72 70  5f 43 6f 6e 74 0d 16 44  |     Arp_Cont..D|
00003c70  0e 2e 41 72 70 5f 4c 6f  6f 70 34 0d 16 4e 30 4c  |..Arp_Loop4..N0L|
00003c80  44 52 20 20 20 52 33 2c  5b 52 31 30 2c 52 32 2c  |DR   R3,[R10,R2,|
00003c90  4c 53 4c 23 32 5d 20 20  3b 20 50 6c 61 79 20 63  |LSL#2]  ; Play c|
00003ca0  75 72 72 65 6e 74 20 74  6f 6e 65 0d 16 58 15 42  |urrent tone..X.B|
00003cb0  20 20 20 20 20 41 72 70  5f 45 6e 64 50 61 72 74  |     Arp_EndPart|
00003cc0  0d 16 62 0d 2e 41 72 70  5f 43 6f 6e 74 0d 16 6c  |..b..Arp_Cont..l|
00003cd0  19 42 4c 20 20 20 20 47  65 74 5f 50 65 72 69 6f  |.BL    Get_Perio|
00003ce0  64 73 5f 41 64 72 0d 16  76 1b 4c 44 52 20 20 20  |ds_Adr..v.LDR   |
00003cf0  52 31 2c 5b 52 31 30 2c  52 32 2c 4c 53 4c 23 32  |R1,[R10,R2,LSL#2|
00003d00  5d 0d 16 80 16 41 44 44  20 20 20 52 34 2c 52 31  |]....ADD   R4,R1|
00003d10  32 2c 23 33 36 2a 34 0d  16 8a 0e 2e 41 72 70 5f  |2,#36*4.....Arp_|
00003d20  4c 6f 6f 70 35 0d 16 94  1b 4c 44 52 20 20 20 52  |Loop5....LDR   R|
00003d30  33 2c 5b 52 31 32 2c 52  30 2c 4c 53 4c 23 32 5d  |3,[R12,R0,LSL#2]|
00003d40  0d 16 9e 15 4c 44 52 20  20 20 52 36 2c 5b 52 31  |....LDR   R6,[R1|
00003d50  32 5d 2c 23 34 0d 16 a8  0f 43 4d 50 20 20 20 52  |2],#4....CMP   R|
00003d60  36 2c 52 31 0d 16 b2 15  42 45 51 20 20 20 41 72  |6,R1....BEQ   Ar|
00003d70  70 5f 45 6e 64 50 61 72  74 0d 16 bc 13 42 20 20  |p_EndPart....B  |
00003d80  20 20 20 41 72 70 5f 4c  6f 6f 70 35 0d 16 c6 04  |   Arp_Loop5....|
00003d90  0d 16 d0 10 2e 41 72 70  5f 45 6e 64 50 61 72 74  |.....Arp_EndPart|
00003da0  0d 16 da 1a 41 44 44 20  20 20 52 31 32 2c 52 31  |....ADD   R12,R1|
00003db0  32 2c 52 30 2c 4c 53 4c  23 32 0d 16 e4 10 43 4d  |2,R0,LSL#2....CM|
00003dc0  50 20 20 20 52 31 32 2c  52 34 0d 16 ee 15 4c 44  |P   R12,R4....LD|
00003dd0  4d 47 54 46 44 20 52 31  33 21 2c 7b 50 43 7d 0d  |MGTFD R13!,{PC}.|
00003de0  16 f8 18 41 44 44 20 20  20 52 34 2c 52 37 2c 52  |...ADD   R4,R7,R|
00003df0  32 2c 4c 53 4c 23 35 0d  17 02 0f 43 4d 50 20 20  |2,LSL#5....CMP  |
00003e00  20 52 33 2c 23 30 0d 17  0c 15 4c 44 4d 45 51 46  | R3,#0....LDMEQF|
00003e10  44 20 52 31 33 21 2c 7b  50 43 7d 0d 17 16 3b 4c  |D R13!,{PC}...;L|
00003e20  44 52 20 20 20 52 35 2c  5b 52 38 2c 52 33 2c 4c  |DR   R5,[R8,R3,L|
00003e30  53 4c 23 32 5d 20 20 20  20 20 20 20 20 20 3b 20  |SL#2]         ; |
00003e40  47 65 74 20 70 68 61 73  65 20 69 6e 63 72 65 6d  |Get phase increm|
00003e50  65 6e 74 2e 2e 2e 0d 17  20 45 53 54 52 20 20 20  |ent..... ESTR   |
00003e60  52 35 2c 5b 52 34 2c 23  34 5d 20 20 20 20 20 20  |R5,[R4,#4]      |
00003e70  20 20 20 20 20 20 20 20  20 3b 20 2e 2e 2e 53 61  |         ; ...Sa|
00003e80  76 65 20 69 74 20 69 6e  20 56 6f 69 63 65 73 20  |ve it in Voices |
00003e90  49 6e 66 6f 73 5f 42 6c  6f 63 6b 0d 17 2a 0f 2e  |Infos_Block..*..|
00003ea0  45 6e 64 5f 45 66 66 65  63 74 0d 17 34 13 4c 44  |End_Effect..4.LD|
00003eb0  4d 46 44 20 52 31 33 21  2c 7b 50 43 7d 0d 17 3e  |MFD R13!,{PC}..>|
00003ec0  04 0d 17 48 11 2e 53 74  65 72 65 6f 5f 54 61 62  |...H..Stereo_Tab|
00003ed0  6c 65 0d 17 52 3f 45 51  55 44 20 2d 31 32 36 3a  |le..R?EQUD -126:|
00003ee0  45 51 55 44 20 2d 37 30  3a 45 51 55 44 20 2d 34  |EQUD -70:EQUD -4|
00003ef0  30 3a 45 51 55 44 20 30  3a 45 51 55 44 20 34 30  |0:EQUD 0:EQUD 40|
00003f00  3a 45 51 55 44 20 37 30  3a 45 51 55 44 20 31 32  |:EQUD 70:EQUD 12|
00003f10  37 0d 17 5c 04 0d 17 66  18 2e 56 6f 69 63 65 5f  |7..\...f..Voice_|
00003f20  43 6f 6e 74 72 6f 6c 5f  42 6c 6f 63 6b 0d 17 70  |Control_Block..p|
00003f30  17 42 20 46 69 6c 6c 5f  53 6f 75 6e 64 5f 42 75  |.B Fill_Sound_Bu|
00003f40  66 66 65 72 0d 17 7a 17  42 20 46 69 6c 6c 5f 53  |ffer..z.B Fill_S|
00003f50  6f 75 6e 64 5f 42 75 66  66 65 72 0d 17 84 17 42  |ound_Buffer....B|
00003f60  20 46 69 6c 6c 5f 53 6f  75 6e 64 5f 42 75 66 66  | Fill_Sound_Buff|
00003f70  65 72 0d 17 8e 13 4c 44  4d 46 44 20 52 31 33 21  |er....LDMFD R13!|
00003f80  2c 7b 50 43 7d 0d 17 98  13 4c 44 4d 46 44 20 52  |,{PC}....LDMFD R|
00003f90  31 33 21 2c 7b 50 43 7d  0d 17 a2 13 4c 44 4d 46  |13!,{PC}....LDMF|
00003fa0  44 20 52 31 33 21 2c 7b  50 43 7d 0d 17 ac 13 4c  |D R13!,{PC}....L|
00003fb0  44 4d 46 44 20 52 31 33  21 2c 7b 50 43 7d 0d 17  |DMFD R13!,{PC}..|
00003fc0  b6 27 45 51 55 44 20 56  6f 69 63 65 5f 4e 61 6d  |.'EQUD Voice_Nam|
00003fd0  65 2d 56 6f 69 63 65 5f  43 6f 6e 74 72 6f 6c 5f  |e-Voice_Control_|
00003fe0  42 6c 6f 63 6b 0d 17 c0  0f 2e 56 6f 69 63 65 5f  |Block.....Voice_|
00003ff0  4e 61 6d 65 0d 17 ca 1f  45 51 55 53 20 22 54 72  |Name....EQUS "Tr|
00004000  61 63 6b 65 72 22 3a 45  51 55 42 20 30 3a 41 4c  |acker":EQUB 0:AL|
00004010  49 47 4e 0d 17 d4 04 0d  17 de 29 3b 20 2a 2d 2d  |IGN.......); *--|
00004020  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00004030  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2a  |---------------*|
00004040  0d 17 e8 29 3b 20 2a 20  20 20 20 49 6e 69 74 20  |...); *    Init |
00004050  54 72 61 63 6b 65 72 20  53 6f 75 6e 64 20 53 79  |Tracker Sound Sy|
00004060  73 74 65 6d 20 20 20 20  2a 0d 17 f2 29 3b 20 2a  |stem    *...); *|
00004070  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004090  2d 2a 0d 17 fc 04 0d 18  06 16 2e 49 6e 69 74 5f  |-*.........Init_|
000040a0  53 6f 75 6e 64 5f 53 79  73 74 65 6d 0d 18 10 1b  |Sound_System....|
000040b0  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 30 2d 52  |STMFD R13!,{R0-R|
000040c0  31 32 2c 52 31 34 7d 0d  18 1a 18 4c 44 52 20 20  |12,R14}....LDR  |
000040d0  20 52 31 32 2c 54 72 6b  5f 56 6f 69 63 65 73 0d  | R12,Trk_Voices.|
000040e0  18 24 04 0d 18 2e 20 41  44 52 20 20 20 52 30 2c  |.$.... ADR   R0,|
000040f0  56 6f 69 63 65 5f 43 6f  6e 74 72 6f 6c 5f 42 6c  |Voice_Control_Bl|
00004100  6f 63 6b 0d 18 38 0f 4d  4f 56 20 20 20 52 31 2c  |ock..8.MOV   R1,|
00004110  23 30 0d 18 42 1e 53 57  49 20 20 20 22 53 6f 75  |#0..B.SWI   "Sou|
00004120  6e 64 5f 49 6e 73 74 61  6c 6c 56 6f 69 63 65 22  |nd_InstallVoice"|
00004130  0d 18 4c 1b 53 54 52 20  20 20 52 31 2c 4f 6c 64  |..L.STR   R1,Old|
00004140  5f 56 6f 69 63 65 5f 53  6c 6f 74 0d 18 56 04 0d  |_Voice_Slot..V..|
00004150  18 60 10 4d 4f 56 20 20  20 52 31 30 2c 23 31 0d  |.`.MOV   R10,#1.|
00004160  18 6a 16 41 44 52 20 20  20 52 39 2c 4f 6c 64 56  |.j.ADR   R9,OldV|
00004170  6f 69 63 65 73 0d 18 74  12 53 55 42 20 20 20 52  |oices..t.SUB   R|
00004180  39 2c 52 39 2c 23 34 0d  18 7e 18 2e 56 6f 69 63  |9,R9,#4..~..Voic|
00004190  65 73 5f 45 78 74 65 72  6d 69 6e 61 74 6f 72 0d  |es_Exterminator.|
000041a0  18 88 10 4d 4f 56 20 20  20 52 30 2c 52 31 30 0d  |...MOV   R0,R10.|
000041b0  18 92 0f 4d 4f 56 20 20  20 52 31 2c 23 30 0d 18  |...MOV   R1,#0..|
000041c0  9c 1d 53 57 49 20 20 20  22 53 6f 75 6e 64 5f 41  |..SWI   "Sound_A|
000041d0  74 74 61 63 68 56 6f 69  63 65 22 0d 18 a6 1b 53  |ttachVoice"....S|
000041e0  54 52 20 20 20 52 31 2c  5b 52 39 2c 52 31 30 2c  |TR   R1,[R9,R10,|
000041f0  4c 53 4c 23 32 5d 0d 18  b0 14 41 44 44 20 20 20  |LSL#2]....ADD   |
00004200  52 31 30 2c 52 31 30 2c  23 31 0d 18 ba 10 43 4d  |R10,R10,#1....CM|
00004210  50 20 20 20 52 31 30 2c  23 38 0d 18 c4 1d 42 4c  |P   R10,#8....BL|
00004220  45 20 20 20 56 6f 69 63  65 73 5f 45 78 74 65 72  |E   Voices_Exter|
00004230  6d 69 6e 61 74 6f 72 0d  18 ce 04 0d 18 d8 10 4d  |minator........M|
00004240  4f 56 20 20 20 52 31 30  2c 23 31 0d 18 e2 12 2e  |OV   R10,#1.....|
00004250  49 6e 69 74 41 6c 6c 56  6f 69 63 65 73 0d 18 ec  |InitAllVoices...|
00004260  10 4d 4f 56 20 20 20 52  30 2c 52 31 30 0d 18 f6  |.MOV   R0,R10...|
00004270  17 41 44 52 20 20 20 52  31 2c 56 6f 69 63 65 5f  |.ADR   R1,Voice_|
00004280  4e 61 6d 65 0d 19 00 22  53 57 49 20 20 20 22 53  |Name..."SWI   "S|
00004290  6f 75 6e 64 5f 41 74 74  61 63 68 4e 61 6d 65 64  |ound_AttachNamed|
000042a0  56 6f 69 63 65 22 0d 19  0a 14 41 44 44 20 20 20  |Voice"....ADD   |
000042b0  52 31 30 2c 52 31 30 2c  23 31 0d 19 14 11 43 4d  |R10,R10,#1....CM|
000042c0  50 20 20 20 52 31 30 2c  52 31 32 0d 19 1e 17 42  |P   R10,R12....B|
000042d0  4c 45 20 20 20 49 6e 69  74 41 6c 6c 56 6f 69 63  |LE   InitAllVoic|
000042e0  65 73 0d 19 28 04 0d 19  32 17 41 44 52 20 20 20  |es..(...2.ADR   |
000042f0  52 37 2c 4f 6c 64 53 74  65 72 65 6f 73 0d 19 3c  |R7,OldStereos..<|
00004300  1a 41 44 52 20 20 20 52  31 30 2c 53 74 65 72 65  |.ADR   R10,Stere|
00004310  6f 5f 54 61 62 6c 65 0d  19 46 0f 4d 4f 56 20 20  |o_Table..F.MOV  |
00004320  20 52 39 2c 23 31 0d 19  50 14 2e 53 65 74 5f 53  | R9,#1..P..Set_S|
00004330  74 65 72 65 6f 5f 4c 6f  6f 70 0d 19 5a 0f 4d 4f  |tereo_Loop..Z.MO|
00004340  56 20 20 20 52 30 2c 52  39 0d 19 64 15 4c 44 52  |V   R0,R9..d.LDR|
00004350  42 20 20 52 35 2c 5b 52  31 31 5d 2c 23 31 0d 19  |B  R5,[R11],#1..|
00004360  6e 12 53 55 42 53 20 20  52 35 2c 52 35 2c 23 31  |n.SUBS  R5,R5,#1|
00004370  0d 19 78 0f 4d 4f 56 4c  54 20 52 35 2c 23 30 0d  |..x.MOVLT R5,#0.|
00004380  19 82 1b 4c 44 52 20 20  20 52 31 2c 5b 52 31 30  |...LDR   R1,[R10|
00004390  2c 52 35 2c 4c 53 4c 23  32 5d 0d 19 8c 18 53 57  |,R5,LSL#2]....SW|
000043a0  49 20 20 20 22 53 6f 75  6e 64 5f 53 74 65 72 65  |I   "Sound_Stere|
000043b0  6f 22 0d 19 96 14 53 54  52 42 20 20 52 31 2c 5b  |o"....STRB  R1,[|
000043c0  52 37 5d 2c 23 31 0d 19  a0 12 41 44 44 20 20 20  |R7],#1....ADD   |
000043d0  52 39 2c 52 39 2c 23 31  0d 19 aa 10 43 4d 50 20  |R9,R9,#1....CMP |
000043e0  20 20 52 39 2c 52 31 32  0d 19 b4 19 42 4c 45 20  |  R9,R12....BLE |
000043f0  20 20 53 65 74 5f 53 74  65 72 65 6f 5f 4c 6f 6f  |  Set_Stereo_Loo|
00004400  70 0d 19 be 04 0d 19 c8  2e 4d 4f 56 20 20 20 52  |p........MOV   R|
00004410  30 2c 52 31 32 20 20 20  20 20 20 20 20 20 20 20  |0,R12           |
00004420  20 20 20 20 3b 20 56 6f  69 63 65 73 20 6e 75 6d  |    ; Voices num|
00004430  62 65 72 0d 19 d2 42 4d  4f 56 20 20 20 52 31 2c  |ber...BMOV   R1,|
00004440  23 32 30 38 20 20 20 20  20 20 20 20 20 20 20 20  |#208            |
00004450  20 20 3b 20 42 75 66 66  65 72 20 6c 65 6e 67 74  |  ; Buffer lengt|
00004460  68 20 69 6e 20 62 79 74  65 20 70 65 72 20 63 68  |h in byte per ch|
00004470  61 6e 6e 65 6c 0d 19 dc  40 4d 4f 56 20 20 20 52  |annel...@MOV   R|
00004480  32 2c 23 53 61 6d 70 6c  65 5f 52 61 74 65 20 20  |2,#Sample_Rate  |
00004490  20 20 20 20 3b 20 53 61  6d 70 6c 65 20 52 61 74  |    ; Sample Rat|
000044a0  65 20 28 33 34 75 73 20  3d 20 32 39 2e 34 31 31  |e (34us = 29.411|
000044b0  20 4b 68 7a 29 0d 19 e6  0f 4d 4f 56 20 20 20 52  | Khz)....MOV   R|
000044c0  33 2c 23 30 0d 19 f0 0f  4d 4f 56 20 20 20 52 34  |3,#0....MOV   R4|
000044d0  2c 23 30 0d 19 fa 1b 53  57 49 20 20 20 22 53 6f  |,#0....SWI   "So|
000044e0  75 6e 64 5f 43 6f 6e 66  69 67 75 72 65 22 0d 1a  |und_Configure"..|
000044f0  04 19 41 44 52 20 20 20  52 39 2c 4f 6c 64 43 6f  |..ADR   R9,OldCo|
00004500  6e 66 69 67 75 72 65 0d  1a 0e 14 53 54 4d 49 41  |nfigure....STMIA|
00004510  20 52 39 2c 7b 52 30 2d  52 34 7d 0d 1a 18 04 0d  | R9,{R0-R4}.....|
00004520  1a 22 10 4d 4f 56 20 20  20 52 38 2c 52 31 32 0d  |.".MOV   R8,R12.|
00004530  1a 2c 13 2e 53 6f 75 6e  64 41 6c 6c 56 6f 69 63  |.,..SoundAllVoic|
00004540  65 73 0d 1a 36 0f 4d 4f  56 20 20 20 52 30 2c 52  |es..6.MOV   R0,R|
00004550  38 0d 1a 40 10 4d 56 4e  20 20 20 52 31 2c 23 32  |8..@.MVN   R1,#2|
00004560  30 0d 1a 4a 11 4d 4f 56  20 20 20 52 32 2c 23 26  |0..J.MOV   R2,#&|
00004570  46 30 0d 1a 54 11 4d 4f  56 20 20 20 52 33 2c 23  |F0..T.MOV   R3,#|
00004580  26 46 46 0d 1a 5e 19 53  57 49 20 20 20 22 53 6f  |&FF..^.SWI   "So|
00004590  75 6e 64 5f 43 6f 6e 74  72 6f 6c 22 0d 1a 68 12  |und_Control"..h.|
000045a0  53 55 42 53 20 20 52 38  2c 52 38 2c 23 31 0d 1a  |SUBS  R8,R8,#1..|
000045b0  72 18 42 47 54 20 20 20  53 6f 75 6e 64 41 6c 6c  |r.BGT   SoundAll|
000045c0  56 6f 69 63 65 73 0d 1a  7c 1b 4c 44 4d 46 44 20  |Voices..|.LDMFD |
000045d0  52 31 33 21 2c 7b 52 30  2d 52 31 32 2c 50 43 7d  |R13!,{R0-R12,PC}|
000045e0  5e 0d 1a 86 04 0d 1a 90  0e 2e 4f 6c 64 56 6f 69  |^.........OldVoi|
000045f0  63 65 73 0d 1a 9a 1f 45  51 55 44 20 30 3a 45 51  |ces....EQUD 0:EQ|
00004600  55 44 20 30 3a 45 51 55  44 20 30 3a 45 51 55 44  |UD 0:EQUD 0:EQUD|
00004610  20 30 0d 1a a4 1f 45 51  55 44 20 30 3a 45 51 55  | 0....EQUD 0:EQU|
00004620  44 20 30 3a 45 51 55 44  20 30 3a 45 51 55 44 20  |D 0:EQUD 0:EQUD |
00004630  30 0d 1a ae 11 2e 4f 6c  64 43 6f 6e 66 69 67 75  |0.....OldConfigu|
00004640  72 65 0d 1a b8 26 45 51  55 44 20 30 3a 45 51 55  |re...&EQUD 0:EQU|
00004650  44 20 30 3a 45 51 55 44  20 30 3a 45 51 55 44 20  |D 0:EQUD 0:EQUD |
00004660  30 3a 45 51 55 44 20 30  0d 1a c2 0f 2e 4f 6c 64  |0:EQUD 0.....Old|
00004670  53 74 65 72 65 6f 73 0d  1a cc 11 45 51 55 44 20  |Stereos....EQUD |
00004680  30 3a 45 51 55 44 20 30  0d 1a d6 04 0d 1a e0 28  |0:EQUD 0.......(|
00004690  3b 20 2a 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |; *-------------|
000046a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000046b0  2d 2d 2d 2a 0d 1a ea 28  3b 20 2a 20 20 45 78 69  |---*...(; *  Exi|
000046c0  74 20 6f 66 20 54 72 61  63 6b 65 72 20 53 6f 75  |t of Tracker Sou|
000046d0  6e 64 20 53 79 73 74 65  6d 20 20 2a 0d 1a f4 28  |nd System  *...(|
000046e0  3b 20 2a 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |; *-------------|
000046f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00004700  2d 2d 2d 2a 0d 1a fe 04  0d 1b 08 12 2e 54 72 6b  |---*.........Trk|
00004710  5f 43 6c 6f 73 65 5f 41  6c 6c 0d 1b 12 1b 53 54  |_Close_All....ST|
00004720  4d 46 44 20 52 31 33 21  2c 7b 52 30 2d 52 31 32  |MFD R13!,{R0-R12|
00004730  2c 52 31 34 7d 0d 1b 1c  0f 4d 4f 56 20 20 20 52  |,R14}....MOV   R|
00004740  30 2c 23 30 0d 1b 26 1b  4c 44 52 20 20 20 52 31  |0,#0..&.LDR   R1|
00004750  2c 4f 6c 64 5f 56 6f 69  63 65 5f 53 6c 6f 74 0d  |,Old_Voice_Slot.|
00004760  1b 30 1d 53 57 49 20 20  20 22 53 6f 75 6e 64 5f  |.0.SWI   "Sound_|
00004770  52 65 6d 6f 76 65 56 6f  69 63 65 22 0d 1b 3a 04  |RemoveVoice"..:.|
00004780  0d 1b 44 18 4c 44 52 20  20 20 52 31 32 2c 54 72  |..D.LDR   R12,Tr|
00004790  6b 5f 56 6f 69 63 65 73  0d 1b 4e 10 4d 4f 56 20  |k_Voices..N.MOV |
000047a0  20 20 52 31 30 2c 23 31  0d 1b 58 16 41 44 52 20  |  R10,#1..X.ADR |
000047b0  20 20 52 39 2c 4f 6c 64  56 6f 69 63 65 73 0d 1b  |  R9,OldVoices..|
000047c0  62 12 53 55 42 20 20 20  52 39 2c 52 39 2c 23 34  |b.SUB   R9,R9,#4|
000047d0  0d 1b 6c 16 2e 44 65 74  61 63 68 5f 54 72 6b 5f  |..l..Detach_Trk_|
000047e0  56 6f 69 63 65 73 0d 1b  76 10 4d 4f 56 20 20 20  |Voices..v.MOV   |
000047f0  52 30 2c 52 31 30 0d 1b  80 1b 4c 44 52 20 20 20  |R0,R10....LDR   |
00004800  52 31 2c 5b 52 39 2c 52  31 30 2c 4c 53 4c 23 32  |R1,[R9,R10,LSL#2|
00004810  5d 0d 1b 8a 1d 53 57 49  20 20 20 22 53 6f 75 6e  |]....SWI   "Soun|
00004820  64 5f 41 74 74 61 63 68  56 6f 69 63 65 22 0d 1b  |d_AttachVoice"..|
00004830  94 14 41 44 44 20 20 20  52 31 30 2c 52 31 30 2c  |..ADD   R10,R10,|
00004840  23 31 0d 1b 9e 11 43 4d  50 20 20 20 52 31 30 2c  |#1....CMP   R10,|
00004850  52 31 32 0d 1b a8 1b 42  4c 45 20 20 20 44 65 74  |R12....BLE   Det|
00004860  61 63 68 5f 54 72 6b 5f  56 6f 69 63 65 73 0d 1b  |ach_Trk_Voices..|
00004870  b2 04 0d 1b bc 17 41 44  52 20 20 20 52 39 2c 4f  |......ADR   R9,O|
00004880  6c 64 53 74 65 72 65 6f  73 0d 1b c6 10 4d 4f 56  |ldStereos....MOV|
00004890  20 20 20 52 31 30 2c 23  31 0d 1b d0 14 2e 52 65  |   R10,#1.....Re|
000048a0  73 74 6f 72 65 5f 53 74  65 72 65 6f 73 0d 1b da  |store_Stereos...|
000048b0  10 4d 4f 56 20 20 20 52  30 2c 52 31 30 0d 1b e4  |.MOV   R0,R10...|
000048c0  14 4c 44 52 42 20 20 52  31 2c 5b 52 39 5d 2c 23  |.LDRB  R1,[R9],#|
000048d0  31 0d 1b ee 18 53 57 49  20 20 20 22 53 6f 75 6e  |1....SWI   "Soun|
000048e0  64 5f 53 74 65 72 65 6f  22 0d 1b f8 14 41 44 44  |d_Stereo"....ADD|
000048f0  20 20 20 52 31 30 2c 52  31 30 2c 23 31 0d 1c 02  |   R10,R10,#1...|
00004900  11 43 4d 50 20 20 20 52  31 30 2c 52 31 32 0d 1c  |.CMP   R10,R12..|
00004910  0c 19 42 4c 45 20 20 20  52 65 73 74 6f 72 65 5f  |..BLE   Restore_|
00004920  53 74 65 72 65 6f 73 0d  1c 16 04 0d 1c 20 19 41  |Stereos...... .A|
00004930  44 52 20 20 20 52 39 2c  4f 6c 64 43 6f 6e 66 69  |DR   R9,OldConfi|
00004940  67 75 72 65 0d 1c 2a 14  4c 44 4d 49 41 20 52 39  |gure..*.LDMIA R9|
00004950  2c 7b 52 30 2d 52 34 7d  0d 1c 34 1b 53 57 49 20  |,{R0-R4}..4.SWI |
00004960  20 20 22 53 6f 75 6e 64  5f 43 6f 6e 66 69 67 75  |  "Sound_Configu|
00004970  72 65 22 0d 1c 3e 1b 4c  44 4d 46 44 20 52 31 33  |re"..>.LDMFD R13|
00004980  21 2c 7b 52 30 2d 52 31  32 2c 50 43 7d 5e 0d 1c  |!,{R0-R12,PC}^..|
00004990  48 04 0d 1c 52 13 2e 4f  6c 64 5f 56 6f 69 63 65  |H...R..Old_Voice|
000049a0  5f 53 6c 6f 74 0d 1c 5c  0a 45 51 55 44 20 30 0d  |_Slot..\.EQUD 0.|
000049b0  1c 66 14 2e 47 65 74 5f  50 65 72 69 6f 64 73 5f  |.f..Get_Periods_|
000049c0  41 64 72 0d 1c 70 1e 41  44 52 20 20 20 52 31 32  |Adr..p.ADR   R12|
000049d0  2c 54 72 6b 5f 50 65 72  69 6f 64 73 5f 4c 69 73  |,Trk_Periods_Lis|
000049e0  74 0d 1c 7a 10 4d 4f 56  20 20 20 50 43 2c 52 31  |t..z.MOV   PC,R1|
000049f0  34 0d 1c 84 15 2e 54 72  6b 5f 50 65 72 69 6f 64  |4.....Trk_Period|
00004a00  73 5f 4c 69 73 74 0d 1c  8e 2f 45 51 55 44 20 26  |s_List.../EQUD &|
00004a10  30 33 35 38 3a 45 51 55  44 20 26 30 33 32 38 3a  |0358:EQUD &0328:|
00004a20  45 51 55 44 20 26 30 32  46 41 3a 45 51 55 44 20  |EQUD &02FA:EQUD |
00004a30  26 30 32 44 30 0d 1c 98  2f 45 51 55 44 20 26 30  |&02D0.../EQUD &0|
00004a40  32 41 36 3a 45 51 55 44  20 26 30 32 38 30 3a 45  |2A6:EQUD &0280:E|
00004a50  51 55 44 20 26 30 32 35  43 3a 45 51 55 44 20 26  |QUD &025C:EQUD &|
00004a60  30 32 33 41 0d 1c a2 2f  45 51 55 44 20 26 30 32  |023A.../EQUD &02|
00004a70  31 41 3a 45 51 55 44 20  26 30 31 46 43 3a 45 51  |1A:EQUD &01FC:EQ|
00004a80  55 44 20 26 30 31 45 30  3a 45 51 55 44 20 26 30  |UD &01E0:EQUD &0|
00004a90  31 43 35 0d 1c ac 2f 45  51 55 44 20 26 30 31 41  |1C5.../EQUD &01A|
00004aa0  43 3a 45 51 55 44 20 26  30 31 39 34 3a 45 51 55  |C:EQUD &0194:EQU|
00004ab0  44 20 26 30 31 37 44 3a  45 51 55 44 20 26 30 31  |D &017D:EQUD &01|
00004ac0  36 38 0d 1c b6 2f 45 51  55 44 20 26 30 31 35 33  |68.../EQUD &0153|
00004ad0  3a 45 51 55 44 20 26 30  31 34 30 3a 45 51 55 44  |:EQUD &0140:EQUD|
00004ae0  20 26 30 31 32 45 3a 45  51 55 44 20 26 30 31 31  | &012E:EQUD &011|
00004af0  44 0d 1c c0 2f 45 51 55  44 20 26 30 31 30 44 3a  |D.../EQUD &010D:|
00004b00  45 51 55 44 20 26 30 30  46 45 3a 45 51 55 44 20  |EQUD &00FE:EQUD |
00004b10  26 30 30 46 30 3a 45 51  55 44 20 26 30 30 45 32  |&00F0:EQUD &00E2|
00004b20  0d 1c ca 2f 45 51 55 44  20 26 30 30 44 36 3a 45  |.../EQUD &00D6:E|
00004b30  51 55 44 20 26 30 30 43  41 3a 45 51 55 44 20 26  |QUD &00CA:EQUD &|
00004b40  30 30 42 45 3a 45 51 55  44 20 26 30 30 42 34 0d  |00BE:EQUD &00B4.|
00004b50  1c d4 2f 45 51 55 44 20  26 30 30 41 41 3a 45 51  |../EQUD &00AA:EQ|
00004b60  55 44 20 26 30 30 41 30  3a 45 51 55 44 20 26 30  |UD &00A0:EQUD &0|
00004b70  30 39 37 3a 45 51 55 44  20 26 30 30 38 46 0d 1c  |097:EQUD &008F..|
00004b80  de 2f 45 51 55 44 20 26  30 30 38 37 3a 45 51 55  |./EQUD &0087:EQU|
00004b90  44 20 26 30 30 37 46 3a  45 51 55 44 20 26 30 30  |D &007F:EQUD &00|
00004ba0  37 38 3a 45 51 55 44 20  26 30 30 37 31 0d 1c e8  |78:EQUD &0071...|
00004bb0  04 0d 1c f2 3a 3b 20 2a  2d 2d 2d 2d 2d 2d 2d 2d  |....:; *--------|
00004bc0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004be0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2a 0d 1c fc 3a 3b  |----------*...:;|
00004bf0  20 2a 20 20 20 20 4c 6f  63 61 74 65 20 61 20 54  | *    Locate a T|
00004c00  46 46 20 28 54 72 61 63  6b 65 72 20 46 69 6c 65  |FF (Tracker File|
00004c10  20 46 6f 72 6d 61 74 20  21 29 20 43 68 75 6e 6b  | Format !) Chunk|
00004c20  20 20 20 20 2a 0d 1d 06  3a 3b 20 2a 2d 2d 2d 2d  |    *...:; *----|
00004c30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004c50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2a 0d  |--------------*.|
00004c60  1d 10 3a 3b 20 2a 20 20  45 6e 74 72 79 20 70 61  |..:; *  Entry pa|
00004c70  72 61 6d 65 74 65 72 73  20 3d 20 20 20 20 20 20  |rameters =      |
00004c80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004c90  20 20 20 20 20 20 20 20  2a 0d 1d 1a 3a 3b 20 2a  |        *...:; *|
00004ca0  20 20 52 30 20 3d 3e 20  50 72 65 76 69 6f 75 73  |  R0 => Previous|
00004cb0  20 43 68 75 6e 6b 20 6f  72 20 42 61 73 65 20 41  | Chunk or Base A|
00004cc0  64 64 72 65 73 73 20 20  20 20 20 20 20 20 20 20  |ddress          |
00004cd0  20 20 2a 0d 1d 24 3a 3b  20 2a 20 20 52 34 20 3d  |  *..$:; *  R4 =|
00004ce0  20 20 43 68 75 6e 63 6b  20 6e 61 6d 65 20 20 20  |  Chunck name   |
00004cf0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004d00  20 20 20 20 20 20 20 20  20 20 20 20 2a 0d 1d 2e  |            *...|
00004d10  3a 3b 20 2a 20 20 52 39  20 3d 3e 20 45 6e 66 20  |:; *  R9 => Enf |
00004d20  6f 66 20 46 69 6c 65 20  41 64 64 72 65 73 73 20  |of File Address |
00004d30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004d40  20 20 20 20 20 20 2a 0d  1d 38 3a 3b 20 2a 2d 2d  |      *..8:; *--|
00004d50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004d80  2a 0d 1d 42 04 0d 1d 4c  0f 2e 53 65 61 72 63 68  |*..B...L..Search|
00004d90  5f 54 46 46 0d 1d 56 15  4c 44 4d 49 41 20 52 30  |_TFF..V.LDMIA R0|
00004da0  21 2c 7b 52 32 2d 52 33  7d 0d 1d 60 0f 43 4d 50  |!,{R2-R3}..`.CMP|
00004db0  20 20 20 52 32 2c 52 34  0d 1d 6a 12 41 44 44 4e  |   R2,R4..j.ADDN|
00004dc0  45 20 52 30 2c 52 30 2c  52 33 0d 1d 74 0d ec 51  |E R0,R0,R3..t..Q|
00004dd0  20 50 43 2c 52 31 34 0d  1d 7e 2b 43 4d 50 20 20  | PC,R14..~+CMP  |
00004de0  20 52 30 2c 52 39 20 20  20 20 20 20 20 20 20 20  | R0,R9          |
00004df0  20 20 20 3b 20 45 6e 64  20 4f 66 20 46 69 6c 65  |   ; End Of File|
00004e00  20 3f 0d 1d 88 3e 4d 4f  56 47 45 20 50 43 2c 52  | ?...>MOVGE PC,R|
00004e10  31 34 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |14            ; |
00004e20  53 68 6f 75 6c 64 20 64  69 73 70 6c 61 79 20 61  |Should display a|
00004e30  6e 20 65 72 72 6f 72 20  68 65 72 65 20 28 21 29  |n error here (!)|
00004e40  0d 1d 92 14 42 20 20 20  20 20 53 65 61 72 63 68  |....B     Search|
00004e50  5f 54 46 46 0d 1d 9c 17  2e 47 65 74 5f 50 61 74  |_TFF.....Get_Pat|
00004e60  74 65 72 6e 73 5f 54 61  62 6c 65 0d 1d a6 1c 41  |terns_Table....A|
00004e70  44 52 20 20 20 52 31 31  2c 50 61 74 74 65 72 6e  |DR   R11,Pattern|
00004e80  73 5f 54 61 62 6c 65 0d  1d b0 10 4d 4f 56 20 20  |s_Table....MOV  |
00004e90  20 50 43 2c 52 31 34 0d  1d ba 04 0d 1d c4 13 2e  | PC,R14.........|
00004ea0  50 61 74 74 65 72 6e 73  5f 54 61 62 6c 65 0d 1d  |Patterns_Table..|
00004eb0  ce 18 5d 3a 50 25 2b 3d  32 35 36 3a 5b 4f 50 54  |..]:P%+=256:[OPT|
00004ec0  20 50 61 73 73 25 0d 1d  d8 04 0d 1d e2 46 3b 20  | Pass%.......F; |
00004ed0  2a 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |*---------------|
00004ee0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004f00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2a  |---------------*|
00004f10  0d 1d ec 46 3b 20 2a 20  20 46 69 6c 6c 20 73 6f  |...F; *  Fill so|
00004f20  75 6e 64 20 62 75 66 66  65 72 20 77 69 74 68 6f  |und buffer witho|
00004f30  75 74 20 6c 6f 6f 70 20  28 4e 6f 74 20 62 65 61  |ut loop (Not bea|
00004f40  75 74 69 66 75 6c 6c 20  62 75 74 20 66 61 73 74  |utifull but fast|
00004f50  65 72 29 20 20 2a 0d 1d  f6 46 3b 20 2a 2d 2d 2d  |er)  *...F; *---|
00004f60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004f90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2a 0d 1e 00 04  |-----------*....|
00004fa0  0d 1e 0a 0e 2e 46 75 6c  6c 5f 46 69 6c 6c 0d 1e  |.....Full_Fill..|
00004fb0  14 05 5d 0d 1e 1e 15 e3  20 46 69 6c 6c 53 42 25  |..]..... FillSB%|
00004fc0  3d 31 20 b8 20 32 30 38  0d 1e 28 0e 5b 4f 50 54  |=1 . 208..(.[OPT|
00004fd0  20 50 61 73 73 25 0d 1e  32 1b 4c 44 52 42 20 20  | Pass%..2.LDRB  |
00004fe0  52 38 2c 5b 52 34 2c 52  30 2c 4c 53 52 23 31 36  |R8,[R4,R0,LSR#16|
00004ff0  5d 0d 1e 3c 12 53 55 42  53 20 20 52 38 2c 52 38  |]..<.SUBS  R8,R8|
00005000  2c 52 35 0d 1e 46 0f 4d  4f 56 4d 49 20 52 38 2c  |,R5..F.MOVMI R8,|
00005010  23 30 0d 1e 50 16 53 54  52 42 20 20 52 38 2c 5b  |#0..P.STRB  R8,[|
00005020  52 31 32 5d 2c 52 31 31  0d 1e 5a 12 41 44 44 20  |R12],R11..Z.ADD |
00005030  20 20 52 30 2c 52 30 2c  52 31 0d 1e 64 05 5d 0d  |  R0,R0,R1..d.].|
00005040  1e 6e 05 ed 0d 1e 78 0e  5b 4f 50 54 20 50 61 73  |.n....x.[OPT Pas|
00005050  73 25 0d 1e 82 11 53 54  52 20 20 20 52 30 2c 5b  |s%....STR   R0,[|
00005060  52 39 5d 0d 1e 8c 17 4d  4f 56 20 20 20 52 30 2c  |R9]....MOV   R0,|
00005070  23 25 30 30 30 30 31 30  30 30 0d 1e 96 13 4c 44  |#%00001000....LD|
00005080  4d 46 44 20 52 31 33 21  2c 7b 50 43 7d 0d 1e a0  |MFD R13!,{PC}...|
00005090  04 0d 1e aa 04 0d 1e b4  18 2e 47 65 74 5f 46 72  |..........Get_Fr|
000050a0  65 71 75 65 6e 63 65 5f  54 61 62 6c 65 0d 1e be  |equence_Table...|
000050b0  43 41 44 52 20 20 20 52  38 2c 46 72 65 71 75 65  |CADR   R8,Freque|
000050c0  6e 63 65 5f 54 61 62 6c  65 31 20 20 20 20 3b 20  |nce_Table1    ; |
000050d0  3d 3e 20 46 72 65 71 20  54 61 62 6c 65 20 46 6f  |=> Freq Table Fo|
000050e0  72 20 31 20 26 20 32 20  43 68 61 6e 6e 65 6c 73  |r 1 & 2 Channels|
000050f0  0d 1e c8 10 43 4d 50 20  20 20 52 31 31 2c 23 33  |....CMP   R11,#3|
00005100  0d 1e d2 43 41 44 44 47  45 20 52 38 2c 52 38 2c  |...CADDGE R8,R8,|
00005110  23 34 30 39 36 20 20 20  20 20 20 20 20 20 20 20  |#4096           |
00005120  20 3b 20 3d 3e 20 46 72  65 71 20 54 61 62 6c 65  | ; => Freq Table|
00005130  20 46 6f 72 20 33 20 26  20 34 20 43 68 61 6e 6e  | For 3 & 4 Chann|
00005140  65 6c 73 0d 1e dc 10 43  4d 50 20 20 20 52 31 31  |els....CMP   R11|
00005150  2c 23 35 0d 1e e6 43 41  44 44 47 45 20 52 38 2c  |,#5...CADDGE R8,|
00005160  52 38 2c 23 34 30 39 36  20 20 20 20 20 20 20 20  |R8,#4096        |
00005170  20 20 20 20 3b 20 3d 3e  20 46 72 65 71 20 54 61  |    ; => Freq Ta|
00005180  62 6c 65 20 46 6f 72 20  35 20 2d 20 38 20 43 68  |ble For 5 - 8 Ch|
00005190  61 6e 6e 65 6c 73 0d 1e  f0 10 4d 4f 56 20 20 20  |annels....MOV   |
000051a0  50 43 2c 52 31 34 0d 1e  fa 04 0d 1f 04 15 2e 46  |PC,R14.........F|
000051b0  72 65 71 75 65 6e 63 65  5f 54 61 62 6c 65 31 0d  |requence_Table1.|
000051c0  1f 0e 19 5d 3a 50 25 2b  3d 34 30 39 36 3a 5b 4f  |...]:P%+=4096:[O|
000051d0  50 54 20 50 61 73 73 25  0d 1f 18 15 2e 46 72 65  |PT Pass%.....Fre|
000051e0  71 75 65 6e 63 65 5f 54  61 62 6c 65 32 0d 1f 22  |quence_Table2.."|
000051f0  19 5d 3a 50 25 2b 3d 34  30 39 36 3a 5b 4f 50 54  |.]:P%+=4096:[OPT|
00005200  20 50 61 73 73 25 0d 1f  2c 15 2e 46 72 65 71 75  | Pass%..,..Frequ|
00005210  65 6e 63 65 5f 54 61 62  6c 65 33 0d 1f 36 19 5d  |ence_Table3..6.]|
00005220  3a 50 25 2b 3d 34 30 39  36 3a 5b 4f 50 54 20 50  |:P%+=4096:[OPT P|
00005230  61 73 73 25 0d 1f 40 04  0d 1f 4a 11 2e 47 65 74  |ass%..@...J..Get|
00005240  5f 45 6e 64 5f 41 64 64  72 0d 1f 54 15 41 44 52  |_End_Addr..T.ADR|
00005250  20 20 20 52 32 2c 45 6e  64 5f 43 6f 64 65 0d 1f  |   R2,End_Code..|
00005260  5e 10 4d 4f 56 20 20 20  50 43 2c 52 31 34 0d 1f  |^.MOV   PC,R14..|
00005270  68 04 0d 1f 72 0d 2e 45  6e 64 5f 43 6f 64 65 0d  |h...r..End_Code.|
00005280  1f 7c 05 5d 0d 1f 86 05  ed 0d 1f 90 05 e1 0d 1f  |.|.]............|
00005290  9a 04 0d 1f a4 04 0d 1f  ae 04 0d 1f b8 0a dd f2  |................|
000052a0  69 6e 69 74 0d 1f c2 04  0d 1f cc 19 20 20 e3 20  |init........  . |
000052b0  50 65 72 69 6f 64 73 25  3d 31 20 b8 20 31 30 32  |Periods%=1 . 102|
000052c0  30 0d 1f d6 4d 20 20 20  20 46 72 65 71 75 65 6e  |0...M    Frequen|
000052d0  63 65 5f 54 61 62 6c 65  31 21 28 50 65 72 69 6f  |ce_Table1!(Perio|
000052e0  64 73 25 2a 34 29 3d 28  28 33 35 37 35 38 37 32  |ds%*4)=((3575872|
000052f0  2f 50 65 72 69 6f 64 73  25 29 2f 28 31 30 30 30  |/Periods%)/(1000|
00005300  30 30 30 2f 33 37 29 29  2a 36 30 30 30 30 0d 1f  |000/37))*60000..|
00005310  e0 07 20 20 ed 0d 1f ea  06 20 20 0d 1f f4 19 20  |..  .....  .... |
00005320  20 e3 20 50 65 72 69 6f  64 73 25 3d 31 20 b8 20  | . Periods%=1 . |
00005330  31 30 32 30 0d 1f fe 56  20 20 20 20 46 72 65 71  |1020...V    Freq|
00005340  75 65 6e 63 65 5f 54 61  62 6c 65 32 21 28 50 65  |uence_Table2!(Pe|
00005350  72 69 6f 64 73 25 2a 34  29 3d 28 28 33 35 37 35  |riods%*4)=((3575|
00005360  38 37 32 2f 50 65 72 69  6f 64 73 25 29 2f 28 31  |872/Periods%)/(1|
00005370  30 30 30 30 30 30 2f 53  61 6d 70 6c 65 5f 52 61  |000000/Sample_Ra|
00005380  74 65 29 29 2a 36 30 30  30 30 0d 20 08 07 20 20  |te))*60000. ..  |
00005390  ed 0d 20 12 06 20 20 0d  20 1c 19 20 20 e3 20 50  |.. ..  . ..  . P|
000053a0  65 72 69 6f 64 73 25 3d  31 20 b8 20 31 30 32 30  |eriods%=1 . 1020|
000053b0  0d 20 26 4d 20 20 20 20  46 72 65 71 75 65 6e 63  |. &M    Frequenc|
000053c0  65 5f 54 61 62 6c 65 33  21 28 50 65 72 69 6f 64  |e_Table3!(Period|
000053d0  73 25 2a 34 29 3d 28 28  33 35 37 35 38 37 32 2f  |s%*4)=((3575872/|
000053e0  50 65 72 69 6f 64 73 25  29 2f 28 31 30 30 30 30  |Periods%)/(10000|
000053f0  30 30 2f 32 36 29 29 2a  36 30 30 30 30 0d 20 30  |00/26))*60000. 0|
00005400  07 20 20 ed 0d 20 3a 04  0d 20 44 39 20 20 ff 22  |.  .. :.. D9  ."|
00005410  4c 4f 41 44 20 3c 4d 6f  64 75 6c 65 73 24 44 69  |LOAD <Modules$Di|
00005420  72 3e 2e 22 2b 6d 6f 64  75 6c 65 24 2b 22 2e 4d  |r>."+module$+".M|
00005430  75 73 69 63 20 22 2b c3  7e 45 6e 64 5f 43 6f 64  |usic "+.~End_Cod|
00005440  65 0d 20 4e 04 0d 20 58  05 e1 0d ff              |e. N.. X....|
0000544c