;title=Castlevania Dawn of Sorrow / Dark Night Crash
;
; SMW port by gocha
; requires Carol's addmusic
;
; You can port this source to addmusicM quite easily.
; Just search [addmusicM] to know where to edit.

; standard vcmds
"VCMD_PATCH=$da"
"VCMD_PANPOT=$db"
"VCMD_PAN_FADE=$dc"
"VCMD_VIBRATO_ON=$de"
"VCMD_VIBRATO_OFF=$df"
"VCMD_MASTER_VOL_FADE=$e1"
"VCMD_MASTER_VOLUME=$e0"
"VCMD_SET_TEMPO=$e2"
"VCMD_TEMPO_FADE=$e3"
"VCMD_GLOBAL_TRANSPOSE=$e4"
;"VCMD_PERVOICE_TRANSPOSE="
"VCMD_TREMOLO_ON=$e5"
"VCMD_TREMOLO_OFF=$e5 $00 $00 $00" ; $e6
"VCMD_VOLUME=$e7"
"VCMD_VOL_FADE=$e8"
"VCMD_SUBROUTINE=$e9"
"VCMD_VIBRATO_FADE=$ea"
"VCMD_PITCHENV_TO=$eb"
"VCMD_PITCHENV_FROM=$ec"
"VCMD_PITCHENV_OFF=$eb $00 $00 $00"
"VCMD_TUNING=$ee"
"VCMD_ECHO_ON=$ef"
"VCMD_ECHO_OFF=$f0"
"VCMD_ECHO_PARAM=$f1"
"VCMD_ECHO_VOL_FADE=$f2"
"VCMD_PITCH_SLIDE=$dd"
;"VCMD_PERC_PATCH_BASE="

; extra vcmds
"VCMD_ADSR=$ed"
"VCMD_SRCN=$e5" ; [addmusicM] $f3 / [Carol] $e5
"VCMD_LOOP_ALT=$e6"
"VCMD_YOSHI_SW=$f4 $00"
"VCMD_PORTAMENTO_LITE_SW=" ; [addmusicM] $f4 $02
"VCMD_PORTAMENTO_SW=$f4 $01"
"VCMD_PULSE_SW=$f4 $04"
"VCMD_PULSE_SPEED=$fa"
"VCMD_NOISE_FREQ=$f8"
"VCMD_ECHO_SW=$f4 $03"
"VCMD_ECHO_FIR=$f5"
"VCMD_65C816_WRITE=$f9"
"VCMD_65C816_COUNT_SW=$f4 $05"
"VCMD_DSP_WRITE=$f6"
"VCMD_ARAM_WRITE=$f7"

; envelopes
"NO_ADSR=VCMD_ADSR $7f $e0"
"ADSR_CYMBAL="
"ADSR_ORCH_HIT=VCMD_ADSR $3f $e0"
"ADSR_STRINGS_REG=VCMD_ADSR $7c $a7"
"ADSR_STRINGS_REL=VCMD_ADSR $7c $ba"
"ADSR_OVERDRIVEN_GUITAR_REG=VCMD_ADSR $7f $e0"
"ADSR_OVERDRIVEN_GUITAR_REL=VCMD_ADSR $7f $fa"
"ADSR_GUITAR_WOW=VCMD_ADSR $7f $ac"
"ADSR_ORGAN_2=VCMD_ADSR $7f $ea"

; tremolos
"TREMOLO_ORGAN_1=VCMD_TREMOLO_ON $00 $0a $1e"
"TREMOLO_ORGAN_2=VCMD_TREMOLO_ON $00 $10 $7f"

; tunings
"TUNING_NULL=VCMD_TUNING $00"
"TUNING_OVERDRIVEN_GUITAR=VCMD_TUNING $20"

; patches
"PATCH_ORCH_HIT=@15 ADSR_ORCH_HIT TUNING_NULL"
"PATCH_STRINGS=@1 ADSR_STRINGS_REG TUNING_NULL"
"PATCH_SLAP_BASS=@14 NO_ADSR TUNING_NULL"
"PATCH_POWER_GUITAR=@17 h12 NO_ADSR TUNING_NULL"
"PATCH_OVERDRIVEN_GUITAR=@0 ADSR_OVERDRIVEN_GUITAR_REG TUNING_OVERDRIVEN_GUITAR"
"PATCH_GUITAR_WOW=@4 ADSR_GUITAR_WOW TUNING_NULL"
"PATCH_ORGAN=@13 NO_ADSR TUNING_NULL"
"PATCH_ORGAN_2=@2 h-17 ADSR_ORGAN_2 TUNING_NULL"

; percussions
"PERC_KICK_SRCN=$8f" ; [Carol] $8f / [addmusicM] $a5
"PERC_KICK_CONT=o3d+"
"PERC_KICK_INIT=VCMD_SRCN PERC_KICK_SRCN $06 h0 NO_ADSR TUNING_NULL y10 PERC_KICK_CONT"
"PERC_SNARE_CONT=o3a+"
"PERC_SNARE_INIT=VCMD_SRCN $8b $06 h0 NO_ADSR TUNING_NULL y10 PERC_SNARE_CONT"
"PERC_CYMBAL_1_CONT=h0 @23c"
"PERC_CYMBAL_1_INIT=y6 ADSR_CYMBAL TUNING_NULL PERC_CYMBAL_1_CONT"
"PERC_CYMBAL_2_CONT=h0 @23d"
"PERC_CYMBAL_2_INIT=y14 ADSR_CYMBAL TUNING_NULL PERC_CYMBAL_2_CONT"
"PERC_HIHAT_CLOSED_CONT=o4a"
"PERC_HIHAT_CLOSED_INIT=VCMD_SRCN $86 $03 h0 NO_ADSR TUNING_NULL y13 PERC_HIHAT_CLOSED_CONT"

; labels
"LBL_KICK_L8=0"
"LBL_SNARE_L4=1"
"LBL_KICK_SNARE_1=2"
"LBL_KICK_SNARE_2=3"
"LBL_BASS_1=4"
"LBL_BASS_2=5"
"LBL_BASS_3=6"
"LBL_BASS_4=7"
"LBL_ORCH_HIT_1=8"
"LBL_GUITAR_WOW_1_=9"
"LBL_GUITAR_WOW_1a=10"
"LBL_GUITAR_WOW_1b=11"
"LBL_STRING_1H=12"
"LBL_STRING_1L=13"
"LBL_STRING_2H=14"
"LBL_STRING_2L=15"
"LBL_HIHAT_CLOSED_L4=16"

"INITIAL_OFFSET=r=1"

"ECHO_VOL=$20 $e0"

#0	t61
	w220
	VCMD_ECHO_OFF

	INITIAL_OFFSET
	VCMD_ECHO_PARAM $02 $4e $01
	VCMD_PORTAMENTO_LITE_SW

	/

	VCMD_ECHO_ON $0a ECHO_VOL

	q7f
	[PERC_CYMBAL_2_INIT4]32

	q7f

	(LBL_KICK_SNARE_1)[
	PERC_KICK_INIT8.
	PERC_KICK_CONT16
	PERC_SNARE_INIT8.
	v190
	PERC_SNARE_CONT16
	v255
	PERC_KICK_INIT16
	PERC_SNARE_INIT16
	PERC_KICK_INIT8
	PERC_SNARE_INIT8.
	v204
	PERC_SNARE_CONT16
	v255

	PERC_KICK_INIT8.
	PERC_KICK_CONT16
	PERC_SNARE_INIT8.
	v190
	PERC_SNARE_CONT16
	v255
	PERC_KICK_INIT16
	PERC_SNARE_INIT16
	PERC_KICK_INIT8
	PERC_SNARE_INIT8
	v204
	PERC_SNARE_CONT16
	PERC_SNARE_CONT16
	v255
	]1
	(LBL_KICK_SNARE_1)2

	(LBL_KICK_SNARE_2)[
	PERC_KICK_INIT8.
	PERC_KICK_CONT16
	PERC_SNARE_INIT8.
	v190
	PERC_SNARE_CONT16
	v255
	PERC_KICK_INIT16
	PERC_SNARE_INIT16
	PERC_KICK_INIT8
	PERC_SNARE_INIT8.
	v204
	PERC_SNARE_CONT16
	v255

	PERC_KICK_INIT8.
	PERC_KICK_CONT16
	PERC_SNARE_INIT8.
	v190
	PERC_SNARE_CONT16
	v255
	PERC_KICK_INIT16
	PERC_SNARE_INIT16
	PERC_KICK_INIT8
	PERC_SNARE_INIT16
	PERC_SNARE_CONT16
	PERC_SNARE_CONT16
	PERC_SNARE_CONT16
	]1

	(LBL_KICK_SNARE_1)7
	(LBL_KICK_SNARE_2)1

#1	VCMD_PORTAMENTO_LITE_SW
	INITIAL_OFFSET

	/

	PATCH_POWER_GUITAR
	q7b
	o3 [c1^1<f1g1>]2
	q7a
	[c1c1c1<g1>]2 <

	PATCH_ORGAN
	VCMD_PANPOT $09
	TREMOLO_ORGAN_1
	q7c o4
	a-1^1g1^1
	a-1^1g1^1
	VCMD_TREMOLO_OFF

	PATCH_POWER_GUITAR
	q7b o2
	[f1f+1g1g1]2

#2	VCMD_PORTAMENTO_LITE_SW
	INITIAL_OFFSET

	/

	PATCH_SLAP_BASS
	VCMD_PANPOT $0a
	q7f
	o2 l16

	(LBL_BASS_1)[
	cccc>c<cc>c<cc>c<c>c<cc>c<
	cccc>c<cc>c<cc>c<c>c<cc>c< <
	ffff>f<ff>f<ff>f<f>f<ff>f<
	gggg>g<gg>g<gg>g<g>g<gab>
	]2

	(LBL_BASS_2)[
	cccc>c<cc>c<cc>c<c>c<cf>c<
	cccc>c<cc>c<cc>c<c>c<cf>c<
	cccc>c<cc>c<cc>c<c>c<cf>c< <
	gggg>g<gg>g<gg>g<g>g<gab>
	]2

	(LBL_BASS_3)[
	c+c+c+c+>c+<c+c+>c+<c+c+>c+<c+>c+<c+c+>c+<
	c+c+c+c+>c+<c+c+>c+<c+c+>c+<c+>c+<c+c+>c+<
	cccc>c<cc>c<cc>c<c>c<cc>c<
	cccc>c<cc>c<cc>c<c>c<cc>c<
	]2

	<
	(LBL_BASS_4)[
	ffff>f<ff>f<ff>f<f>f<ff>f<
	f+f+f+f+>f+<f+f+>f+<f+f+>f+<f+>f+<f+f+>f+<
	gggg>g<gg>g<gg>g<g>g<gg>g<
	]1
	gggg>g<gg>g<gg>g<g>g<gg>g<

	(LBL_BASS_4)1
	gggg>g<gg>g<gg>g<g>g<ab-b>

#3	VCMD_PORTAMENTO_LITE_SW
	INITIAL_OFFSET

	/

	PATCH_ORCH_HIT
	VCMD_PANPOT $8a
	q7f
	l4 o5 rc<bb-ag+gf+

	VCMD_ECHO_ON $02 ECHO_VOL

	PATCH_STRINGS
	VCMD_PANPOT $0c
	q7f
	o5 a-4. g24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG
	q7a g24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG q7f >c4.
	c4. <b24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG
	q7a b24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG q7f >d4.

	ADSR_STRINGS_REL ^4

	VCMD_ECHO_ON $0a ECHO_VOL

	PATCH_ORCH_HIT
	VCMD_PANPOT $8a
	q7f
	l4 o5 e-dc+c<bb-a

	VCMD_ECHO_ON $02 ECHO_VOL

	PATCH_STRINGS
	VCMD_PANPOT $0c
	q7f
	o5 a-4. g24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG
	q7a g24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG q7f >f4.
	e-4. d24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG
	q7a d24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG q7f <b4.

	VCMD_ECHO_ON $0a ECHO_VOL

	PATCH_OVERDRIVEN_GUITAR
	VCMD_PANPOT $0a
	q7d o5 l8
	c24d24e-24g^f+fe-ff+
	f VCMD_PITCH_SLIDE $09 $07 g ADSR_OVERDRIVEN_GUITAR_REL ^16 ADSR_OVERDRIVEN_GUITAR_REG
	l4 c. VCMD_PITCH_SLIDE $2a $2a <b-.> l8 ADSR_OVERDRIVEN_GUITAR_REL ^16 ADSR_OVERDRIVEN_GUITAR_REG de-g>
	c. VCMD_PITCH_SLIDE $05 $0c d. ^. VCMD_PITCH_SLIDE $05 $0c c.
	<g4fe-f

	(LBL_ORCH_HIT_1)[
	PATCH_ORCH_HIT
	VCMD_PANPOT $8a
	q7f
	o4 g8.a8.b-8.b8.>d8g8
	]1

	PATCH_OVERDRIVEN_GUITAR
	VCMD_PANPOT $0a
	q7d o5 l8
	c24d24e-24g4f+fe-ff+
	f VCMD_PITCH_SLIDE $09 $07 g ADSR_OVERDRIVEN_GUITAR_REL ^16 ADSR_OVERDRIVEN_GUITAR_REG
	>d8.c ADSR_OVERDRIVEN_GUITAR_REL ^ ADSR_OVERDRIVEN_GUITAR_REG <b>cd
	c+. VCMD_PITCH_SLIDE $05 $0c e-. e. VCMD_PITCH_SLIDE $00 $0b d.
	c8.<g8.fe-

	(LBL_ORCH_HIT_1)1

	PATCH_STRINGS
	VCMD_PANPOT $08
	(LBL_STRING_1L)[
	o4 l16 q7f
	gfg>c ADSR_STRINGS_REL ^ ADSR_STRINGS_REG < g24 ADSR_STRINGS_REL ^24^24 ADSR_STRINGS_REG f24 ADSR_STRINGS_REL ^48 ADSR_STRINGS_REG
	gfg>c ADSR_STRINGS_REL ^ ADSR_STRINGS_REG < g24 ADSR_STRINGS_REL ^24^24 ADSR_STRINGS_REG f24 ADSR_STRINGS_REL ^48 ADSR_STRINGS_REG
	gfg>e- ADSR_STRINGS_REL ^ ADSR_STRINGS_REG d ADSR_STRINGS_REL ^ ADSR_STRINGS_REG e-
	d8c8<b-8>c8
	d8.<b-8.g8.f8.g ADSR_STRINGS_REL ^ ADSR_STRINGS_REG b- ADSR_STRINGS_REL ^ ADSR_STRINGS_REG
	]1
	d2. ADSR_STRINGS_REL ^4 ADSR_STRINGS_REG

	(LBL_STRING_1L)1

	; [Carol]
	o5 q7f d4.
	l24 c+
	^ VCMD_PITCH_SLIDE $00 $01 c
	^ VCMD_PITCH_SLIDE $00 $01 <b l4
	^. VCMD_PITCH_SLIDE $00 $01 b-. l16
	ADSR_STRINGS_REL ^8 ADSR_STRINGS_REG
	; [addmusicM]
	;o5 q7f d4. VCMD_PORTAMENTO_SW
	;c+24c24<b24
	;b-4. ADSR_STRINGS_REL ^8 ADSR_STRINGS_REG
	;VCMD_PORTAMENTO_SW

	(LBL_STRING_2L)[
	o5
	c8.<a-8.f8 ADSR_STRINGS_REL ^8 ADSR_STRINGS_REG >c8.d8.
	c8.<a8.f+8 ADSR_STRINGS_REL ^8 ADSR_STRINGS_REG >c8.d8.
	e-2 ADSR_STRINGS_REL ^8 ADSR_STRINGS_REG d8.e-8.
	]1

	; [Carol]
	d4. l16
	c+ ^ VCMD_PITCH_SLIDE $00 $01 c l4
	^ VCMD_PITCH_SLIDE $00 $01 <b l16
	ADSR_STRINGS_REL ^4 ADSR_STRINGS_REG >
	(LBL_STRING_2L)1
	d1
	; [addmusicM]
	;d4. VCMD_PORTAMENTO_SW
	;c+16c16
	;<b4 ADSR_STRINGS_REL ^4 ADSR_STRINGS_REG >
	;VCMD_PORTAMENTO_SW
	;(LBL_STRING_2L)1
	;d=191 VCMD_ECHO_SW r=1

#4	VCMD_PORTAMENTO_LITE_SW
	INITIAL_OFFSET

	/

	r16 q7f
	(LBL_KICK_L8)[PERC_KICK_INIT8]15
	r16

	PATCH_STRINGS
	VCMD_PANPOT $08
	o4 f4. e-24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG
	q7a e-24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG q7f a-4.
	g4. g24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG
	q7a g24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG q7f b4.

	r16
	(LBL_KICK_L8)15
	r16

	PATCH_STRINGS
	VCMD_PANPOT $08
	o4 f4. e-24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG
	q7a e-24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG q7f >c4.
	c4. <b24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG
	q7a b24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG q7f g4.

	(LBL_GUITAR_WOW_1_)[PATCH_GUITAR_WOW
	VCMD_PANPOT $06
	q6a o4 e-4e-8.e-16r16e-16r8f4]3

	r8 q7f
	PERC_HIHAT_CLOSED_INIT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT8

	(LBL_GUITAR_WOW_1_)3

	r8 q7f
	PERC_HIHAT_CLOSED_INIT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT8

	;PERC_CYMBAL_2_INIT1
	PERC_CYMBAL_2_INIT4.
	PERC_HIHAT_CLOSED_INIT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT8
	^8
	(LBL_HIHAT_CLOSED_L4)[PERC_HIHAT_CLOSED_INIT4]7
	PERC_HIHAT_CLOSED_CONT8

	PATCH_STRINGS
	VCMD_PANPOT $0c
	o5 l16 q7f d2. ADSR_STRINGS_REL ^4 ADSR_STRINGS_REG

	r8
	(LBL_HIHAT_CLOSED_L4)45
	PERC_HIHAT_CLOSED_CONT8

	PATCH_ORGAN_2
	VCMD_PANPOT $09
	TREMOLO_ORGAN_2
	q7f o5 g=95
	VCMD_TREMOLO_OFF r=1

#5	VCMD_PORTAMENTO_LITE_SW
	INITIAL_OFFSET

	/

	q7f
	(LBL_SNARE_L4)[PERC_SNARE_INIT4]8

	PATCH_STRINGS
	VCMD_PANPOT $0a
	o5 c4. c24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG
	q7a c24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG q7f f4.
	f4. f24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG
	q7a f24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG q7f f4.

	(LBL_SNARE_L4)8

	PATCH_STRINGS
	VCMD_PANPOT $0a
	o5 c4. c24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG
	q7a c24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG q7f a-4.
	g4. g24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG
	q7a g24^24 ADSR_STRINGS_REL ^24 ADSR_STRINGS_REG q7f d4.

	q7f
	;PERC_CYMBAL_1_INIT1
	PERC_CYMBAL_1_INIT4.
	PERC_HIHAT_CLOSED_INIT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT8
	^8
	PERC_HIHAT_CLOSED_INIT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT8

	VCMD_ECHO_ON $2a ECHO_VOL

	PATCH_OVERDRIVEN_GUITAR
	VCMD_PANPOT $0a
	o5 q7d l16 g
	VCMD_PITCH_SLIDE $31 $6c f
	VCMD_VOL_FADE $9e $b9 ^8.^4^4
	ADSR_OVERDRIVEN_GUITAR_REL ^4 ADSR_OVERDRIVEN_GUITAR_REG v255

	VCMD_ECHO_ON $0a ECHO_VOL

	q7f
	;PERC_CYMBAL_1_INIT1
	;PERC_CYMBAL_1_CONT1
	PERC_CYMBAL_1_INIT4.
	PERC_HIHAT_CLOSED_INIT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT8
	PERC_CYMBAL_1_INIT8
	PERC_HIHAT_CLOSED_INIT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT8
	^8
	PERC_HIHAT_CLOSED_INIT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT8

	VCMD_ECHO_ON $2a ECHO_VOL

	PATCH_OVERDRIVEN_GUITAR
	VCMD_PANPOT $0a
	o5 q7d l16 g
	VCMD_PITCH_SLIDE $31 $6c f
	VCMD_VOL_FADE $9e $b9 ^8.^4^4
	ADSR_OVERDRIVEN_GUITAR_REL ^4 ADSR_OVERDRIVEN_GUITAR_REG v255

	VCMD_ECHO_ON $02 ECHO_VOL

	PATCH_STRINGS
	VCMD_PANPOT $0c
	(LBL_STRING_1H)[
	o5 l16 q7f
	gfg>c ADSR_STRINGS_REL ^ ADSR_STRINGS_REG < g24 ADSR_STRINGS_REL ^24^24 ADSR_STRINGS_REG f24 ADSR_STRINGS_REL ^48 ADSR_STRINGS_REG
	gfg>c ADSR_STRINGS_REL ^ ADSR_STRINGS_REG < g24 ADSR_STRINGS_REL ^24^24 ADSR_STRINGS_REG f24 ADSR_STRINGS_REL ^48 ADSR_STRINGS_REG
	gfg>e- ADSR_STRINGS_REL ^ ADSR_STRINGS_REG d ADSR_STRINGS_REL ^ ADSR_STRINGS_REG e-
	d8c8<b-8>c8
	d8.<b-8.g8.f8.g ADSR_STRINGS_REL ^ ADSR_STRINGS_REG b- ADSR_STRINGS_REL ^ ADSR_STRINGS_REG
	]1

	VCMD_ECHO_ON $22 ECHO_VOL

	PATCH_ORCH_HIT
	VCMD_PANPOT $8a
	q7f
	o4 d8.b-8.g8.f8.g8b-8

	VCMD_ECHO_ON $02 ECHO_VOL

	PATCH_STRINGS
	VCMD_PANPOT $0c
	(LBL_STRING_1H)1

	; [Carol]
	o6 q7f d4.
	l24 c+
	^ VCMD_PITCH_SLIDE $00 $01 c
	^ VCMD_PITCH_SLIDE $00 $01 <b l4
	^. VCMD_PITCH_SLIDE $00 $01 b-. l16
	ADSR_STRINGS_REL ^8 ADSR_STRINGS_REG
	; [addmusicM]
	;o6 q7f
	;d4. VCMD_PORTAMENTO_SW
	;c+24c24<b24
	;b-4. ADSR_STRINGS_REL ^8 ADSR_STRINGS_REG
	;VCMD_PORTAMENTO_SW

	(LBL_STRING_2H)[
	o6
	c8.<a-8.f8 ADSR_STRINGS_REL ^8 ADSR_STRINGS_REG >c8.d8.
	c8.<a8.f+8 ADSR_STRINGS_REL ^8 ADSR_STRINGS_REG >c8.d8.
	e-2 ADSR_STRINGS_REL ^8 ADSR_STRINGS_REG d8.e-8.
	]1

	; [Carol]
	d4. l16
	c+ ^ VCMD_PITCH_SLIDE $00 $01 c l4
	^ VCMD_PITCH_SLIDE $00 $01 <b l16
	ADSR_STRINGS_REL ^4 ADSR_STRINGS_REG >
	; [addmusicM]
	;d4. VCMD_PORTAMENTO_SW
	;c+16c16
	;<b4 ADSR_STRINGS_REL ^4 ADSR_STRINGS_REG >
	;VCMD_PORTAMENTO_SW

	(LBL_STRING_2H)1
	d1

#6	VCMD_PORTAMENTO_LITE_SW
	INITIAL_OFFSET

	/

	q7f
	r1r1
	(LBL_SNARE_L4)7
	PERC_SNARE_CONT8
	PERC_SNARE_CONT8
	r1r1
	(LBL_SNARE_L4)6
	PERC_SNARE_CONT8
	PERC_SNARE_CONT16
	PERC_SNARE_CONT8
	PERC_SNARE_CONT8
	PERC_SNARE_CONT16 ; TODO l8 rather than l16

	(LBL_GUITAR_WOW_1a)[PATCH_GUITAR_WOW
	VCMD_PANPOT $06
	q6a o3 b-4b-8.b-16r16b-16r8>c4<]3

	r1

	(LBL_GUITAR_WOW_1a)3

	r1

	PATCH_ORGAN
	VCMD_PANPOT $09
	TREMOLO_ORGAN_1
	q7c o4
	f1^1e-1^1
	f1^1e-1^1

	o5
	c1c1e-1d1
	c1c1e-1d=191
	VCMD_TREMOLO_OFF r=1

#7	VCMD_PORTAMENTO_LITE_SW
	INITIAL_OFFSET

	/

	q7f
	r1r2r4..
	(LBL_KICK_L8)15
	PERC_SNARE_INIT8
	PERC_SNARE_CONT8
	r1r2r4.
	(LBL_KICK_L8)14
	PERC_KICK_CONT16
	PERC_SNARE_INIT8
	PERC_SNARE_CONT8

	(LBL_GUITAR_WOW_1b)[PATCH_GUITAR_WOW
	VCMD_PANPOT $06
	q6a o3 g4g8.g16r16g16r8a4]3

	r1

	(LBL_GUITAR_WOW_1b)3

	r1

	PATCH_ORGAN
	VCMD_PANPOT $09
	TREMOLO_ORGAN_1
	q7c o4
	c+1^1c1
	VCMD_TREMOLO_OFF

	r8 q7f
	PERC_HIHAT_CLOSED_INIT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT4
	PERC_HIHAT_CLOSED_CONT8

	PATCH_ORGAN
	VCMD_PANPOT $09
	TREMOLO_ORGAN_1
	q7c o4
	c+1^1c1^1

	o4
	a-1a1b1b1
	a-1a1b1b2
	VCMD_TREMOLO_OFF

	r8 q7f
	PERC_HIHAT_CLOSED_INIT4
	PERC_HIHAT_CLOSED_CONT8
