;title=RomaSaga Taisou 1.
;
; http://en.wikipedia.org/wiki/Radio_taiso
; SaGa arranged MIDI sequence by Groul and J.M.
; and ported to SNES by gocha (also a bit arranged).
;
; Requirements:
; - Custom soundbank for the music (rsaga_a.bnk)
; - Carol's AddMusic with MORE.bin (macro, ADSR, SRCN)
; Links:
;  Groul's website "F#"
;  http://www.geocities.jp/fsharp1999/
;  J.M's website "JMMIDI Library"
;  http://www.jm-home.net/jmmidi/
;
; RSaGa bank issues/specifications:
; - removed sample $10, as a result, Toms in switch BGM has become silence.
; - removed sample $12, as a result, Yoshi's voice has become silence.
; - shortened sample $13 boldly, as a result, explosion SFXs may sound odd.
;   (I didn't think they are too much odd. I don't know how you will feel, though :P)
; - some other samples are also removed, keep in mind if you'd like to use this bank.
;
; Mix5̃X{X퉹yǂ̂ƂAǃXNEFAȂȂ̂Ȃď݂ĂA
; ˂ɃoNtpłȋȂĂ݂Ȃ܂BMix5֌WȂł :P
; OXoNgȃf[^Ă݂̂A2009NɂȂĂ悤₭AB
;
; ȃf[^𐧍삷鑤̐l͂킩Ǝv̂łAXɒǉF悤
; eʂ̗]TSMWɂ͂ȂłBȂ킯ŁA̋Ȃ̃oN̍\͂Ȃ薳ȕ
; v܂BʉƎSWOȂǂ̕K{ȂŎgȂAłĂl̔
; ƍTĂāAc{ƉF͂ɍĂ܂B
; ̂悤ȗRAȂ痘pɂ͏L̂悤Ȑ񂪂܂BB
; ʉ̖CɂȂ́AScript700portɒlŊmFƂ悢łB
;
; 悭łAWȂ̂łASNESɎނɂĈꕔ̉肵Ă܂B
; XgOX16Ŗ炳Ƃ̓XNEFÃGWۂK[gt@
; ̂łASMW̃GW̎dlAǂĂŌ̉r؂CɂȂA
; ǂɂȂ̂łȂƂɂ܂BʉƂ̌ˍSzłA
; łނ˂ŖĂ悤łB
;
; u܂SaGax˂IvƂ{̏̕CȂǂ͂RɂǂB
;
; 2009-01-18: first version.

; 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" ; SRCN+$80
"VCMD_LOOP_ALT=$e6"

; ADSR
"NO_ADSR=VCMD_ADSR $7f $e0"
"ADSR_SLAPBASS_DEF=VCMD_ADSR $7f $ef"
"ADSR_TRUMPET_DEF= VCMD_ADSR $7f $e0"
"ADSR_TRUMPET_REL1=VCMD_ADSR $7f $fc"
"ADSR_STRINGS_DEF= VCMD_ADSR $7f $e0"
"ADSR_STRINGS_REL1=VCMD_ADSR $7f $f7"
"ADSR_STRINGS_REL2=VCMD_ADSR $7f $f6"
"ADSR_HIGHSAW_DEF= VCMD_ADSR $7f $e0"
"ADSR_CYMBAL=      VCMD_ADSR $7f $f0"

"PATCH_SLAPBASS=  VCMD_SRCN $95 $08 h23  ADSR_SLAPBASS_DEF VCMD_TUNING $00 VCMD_VIBRATO_OFF"
"PATCH_TRUMPET=   VCMD_SRCN $96 $04 h0   ADSR_TRUMPET_DEF  VCMD_TUNING $00 VCMD_VIBRATO_ON $00 $0b $1c VCMD_VIBRATO_FADE $1c"
"PATCH_STRINGS=   VCMD_SRCN $97 $05 h0   ADSR_STRINGS_DEF  VCMD_TUNING $00 VCMD_VIBRATO_OFF"
"PATCH_HIGHSAW=   VCMD_SRCN $98 $07 h-22 ADSR_HIGHSAW_DEF  VCMD_TUNING $4f VCMD_VIBRATO_OFF"

"_VELSLAP=f"
"_VELTRPT=d"
"_VELSTR1=d"
"_VELHSAW=8"

"PVOL_KICK_N=q7d"
"PVOL_SNARE_W=q7e"
"PVOL_SNARE_N=q7f"
"PVOL_TOM_N=q7d"
"PVOL_CYM_N=q7e"
"PVOL_HAT_N=q7c"

"PPAN_KICK_N=y10"
"PPAN_SNARE_N=y10"
"PPAN_TOM1_N=y6"
"PPAN_TOM2_N=y10"
"PPAN_TOM3_N=y12"
"PPAN_CYML_N=y13"
"PPAN_CYMR_N=y7"
"PPAN_HAT_N=y14"

"PERC_KICK_N= o3f"
"PERC_SNARE_N=o3a+"
"PERC_SNARE_LN=o3a"
"PERC_SNARE_HN=o3b"
"PERC_TOM1_N= PPAN_TOM1_N o3g"
"PERC_TOM2_N= PPAN_TOM2_N o3a"
"PERC_TOM3_N= PPAN_TOM3_N o4c+"
"PERC_CYML_N= PPAN_CYML_N o4f+"
"PERC_CYMR_N= PPAN_CYMR_N o4f"
"PERC_HAT_N=  PPAN_HAT_N o4d"
"PERC_KICK_P=  VCMD_SRCN $99 $06 h0 VCMD_VIBRATO_OFF PVOL_KICK_N PPAN_KICK_N PERC_KICK_N"
"PERC_SNARE_P= VCMD_SRCN $9a $06 h0 VCMD_VIBRATO_OFF PVOL_SNARE_N PPAN_SNARE_N PERC_SNARE_N"
"PERC_SNARE_LP=VCMD_SRCN $9a $06 h0 VCMD_VIBRATO_OFF PVOL_SNARE_N PPAN_SNARE_N PERC_SNARE_LN"
"PERC_SNARE_HP=VCMD_SRCN $9a $06 h0 VCMD_VIBRATO_OFF PVOL_SNARE_N PPAN_SNARE_N PERC_SNARE_HN"
"PERC_TOM1_P=  VCMD_SRCN $9b $06 h0 VCMD_VIBRATO_OFF PVOL_TOM_N PERC_TOM1_N"
"PERC_TOM2_P=  VCMD_SRCN $9b $06 h0 VCMD_VIBRATO_OFF PVOL_TOM_N PERC_TOM2_N"
"PERC_TOM3_P=  VCMD_SRCN $9b $06 h0 VCMD_VIBRATO_OFF PVOL_TOM_N PERC_TOM3_N"
"PERC_CYML_P=  VCMD_SRCN $9c $06 h0 VCMD_VIBRATO_OFF ADSR_CYMBAL PVOL_CYM_N PERC_CYML_N"
"PERC_CYMR_P=  VCMD_SRCN $9c $06 h0 VCMD_VIBRATO_OFF ADSR_CYMBAL PVOL_CYM_N PERC_CYMR_N"
"PERC_HAT_P=   VCMD_SRCN $86 $06 h0 VCMD_VIBRATO_OFF PVOL_HAT_N PERC_HAT_N" ; @22

; labels
"LR4=0"
"LTP1=1"
"LST1_1=2"
"LST1_2=3"
"LST1_3=4"
"LST2_1=5"
"LST2_2=6"
"LST2_3=7"
"LST3_1=8"
"LST3_2=9"
"LST3_3=10"
"LST3_4=11"
"LSAW1=12"
"LSAW2=13"
"LKICK4_1=14"
"LSNARE16_1=15"
"LBDSD4_1=16"
"LDR1=17"
"LHAT1=18"
"LHAT2=19"

#0	t62
	w220
	VCMD_ECHO_ON $fc $00 $00
	VCMD_ECHO_PARAM $04 $52 $01
	VCMD_ECHO_VOL_FADE $20 $1f $1f ; RS3 Battle EVOL=$19

	PATCH_SLAPBASS
	y10

	o2 l8 q6_VELSLAP
	d2 ^cd<b- g2 ^gb->d< agaeagae
	VCMD_TEMPO_FADE $60 $26
	a4>c+4
	t27
	d4^
	VCMD_PITCHENV_TO $00 $18 $fb
	a
	VCMD_PITCHENV_OFF

	t62

	o2 l8 q6_VELSLAP
	dddddcd<a> dddddfec
	dddddcd<b- aaaaa4>
	VCMD_PITCHENV_TO $00 $30 $fb
	e4
	VCMD_PITCHENV_OFF

	/

	o2 l8 q6_VELSLAP
	dddddddd dddddcd<b-
	gggggggg ggggggab->
	ddddcccc<b-b-b-b-g+g+g+g+
	aaaaaegb- a2 a8.>c+8.e

	; quantization is different from J.M's one
	o2 l8
	q6_VELSLAP d> q1_VELSLAP d<
	q6_VELSLAP d> q1_VELSLAP d<
	q6_VELSLAP d> q1_VELSLAP d<
	q6_VELSLAP d> q1_VELSLAP d<
	q6_VELSLAP d> q1_VELSLAP d<
	q6_VELSLAP d> q1_VELSLAP d<
	q6_VELSLAP dcd<b-
	q6_VELSLAP g> q1_VELSLAP g<
	q6_VELSLAP g> q1_VELSLAP g<
	q6_VELSLAP g> q1_VELSLAP g<
	q6_VELSLAP g> q1_VELSLAP g<
	q6_VELSLAP g> q1_VELSLAP g<
	q6_VELSLAP g> q1_VELSLAP g<
	q6_VELSLAP g> q1_VELSLAP g<
	q6_VELSLAP ab->
	q6_VELSLAP d> q1_VELSLAP d<
	q6_VELSLAP d> q1_VELSLAP d<
	q6_VELSLAP c> q1_VELSLAP c<
	q6_VELSLAP c> q1_VELSLAP c<
	<
	q6_VELSLAP b->q1_VELSLAP b-<
	q6_VELSLAP b->q1_VELSLAP b-<
	q6_VELSLAP g+>q1_VELSLAP g+<
	q6_VELSLAP g+>q1_VELSLAP g+<
	q6_VELSLAP a> q1_VELSLAP a<
	q6_VELSLAP a> q1_VELSLAP a<
	q6_VELSLAP aa>c+e d4<a4>d4
	VCMD_PITCHENV_TO $00 $30 $fb
	f4
	VCMD_PITCHENV_OFF

	o1 l8 q6_VELSLAP
	aaaaaaaa> c+c+c+c+c+c+c+c+
	dc+d<a>dc+d<a>dc+d<a>dc+de<
	gggggggg> cccccccc<
	ffffffff f+f+f+f+ f+8.a8.>d<
	ggg^^6>g6d6< ggggg> l16 gd<b->d<b-g l8
	fff^^6>f6c6< fffffga>c
	e-e-e-e-e-de-<b-> dc+d<a>d l16 b-fdfd<g l8
	a2>c+4
	VCMD_PITCHENV_TO $00 $30 $fb
	a4
	VCMD_PITCHENV_OFF

	o2 l8 q6_VELSLAP
	ddddd<a>c<a> dddddfec
	ddddd<a>c<a> dddddfec
	dddddcd<a> dddddfec
	dddddcd<b- aaaaa4>
	VCMD_PITCHENV_TO $00 $30 $fb
	e4
	VCMD_PITCHENV_OFF

#2	PERC_CYMR_P1
	PERC_CYML_N1
	^1
	PERC_CYMR_N4
	PERC_CYML_N4
	PERC_CYMR_N2

	(LSAW1)[
	PATCH_HIGHSAW
	o6 l16 q2_VELHSAW

	y16 VCMD_PAN_FADE $60 $04
	dd>d<af>d<af>
	VCMD_PAN_FADE $60 $10
	d<af>d<af>d<a
	]3

	(LSAW2)[
	VCMD_PAN_FADE $60 $04
	c+c+>c+<ae>c+<ae
	]1

	(LST3_4)[
	PATCH_STRINGS
	y8

	o3 q7_VELSTR1
	l16 c+<b>c+<a> c+<b>c+<a>
	]1

	/

	PATCH_TRUMPET
	y9

	(LTP1)[
	o5 l4 q5_VELTRPT
	d^de f4.g16f16 d<a>
	g^ga b-2 l8 ADSR_TRUMPET_REL1 ^ ADSR_TRUMPET_DEF q2_VELTRPT b-ag
	l4 q5_VELTRPT
	f^fa gfed
	]1
	l4 q5_VELTRPT
	efgf e2<a4.a16>c+16

	(LTP1)1
	o5 l4 q5_VELTRPT
	edec+ d1

	PERC_CYML_P1^1^1

	PATCH_TRUMPET
	y9
	o5 l16 q5_VELTRPT
	rrffffrrffr4.

	PERC_CYML_P1^1^1

	PATCH_TRUMPET
	y9
	o5 l16 q5_VELTRPT
	rraaaarr<
	q6_VELTRPT
	f+8.a8.>d8<
	b-2^8g8.b-8.>d2<b-2>
	c2^8<a8.>c8.f2c2
	e-2 l8 ^<b-^>c
	l4 de-gf e2c+2
	d1^1
	r1r1

	PERC_CYMR_P1^1^1
	PERC_CYMR_N4
	PERC_CYML_N2.

#3	PATCH_STRINGS
	y13

	o3 l8 q7_VELSTR1
	a4>f8.g16adfa
	g4b-8.>c16d<gb->d<
	a>dc<b-agfg afged2

	o3 q7_VELSTR1
	l2 (LST1_2)[fgag]1 (LST1_3)[fge>
	l16 c+<a>c+egegb-
	; man, I want slur vcmd
	;c+
	;VCMD_PITCH_SLIDE $0b $01 $a1
	;VCMD_PITCH_SLIDE $0c $01 $a5
	;VCMD_PITCH_SLIDE $0c $01 $a8
	;VCMD_PITCH_SLIDE $0c $01 $ab
	;VCMD_PITCH_SLIDE $0c $01 $a8
	;VCMD_PITCH_SLIDE $0c $01 $ab
	;VCMD_PITCH_SLIDE $0c $01 $ae
	]1

	/

	o3 l4 q7_VELSTR1
	(LST1_1)[a^a>cd^<a^> d^dfgab-g
	d^cfed<b^>]1 c+^edc+^c+^
	(LST1_1)1 c+<a>c+<a
	a2. ^8 ADSR_STRINGS_REL1 ^8 ADSR_STRINGS_DEF

	o4 l4 q7_VELSTR1
	e4. ADSR_STRINGS_REL1 ^8 ADSR_STRINGS_DEF edc+^<a^>
	dc+de f2. ^8 ADSR_STRINGS_REL1 ^8 ADSR_STRINGS_DEF
	g4. ADSR_STRINGS_REL1 ^8 ADSR_STRINGS_DEF gfe^c^
	fefg a2 ADSR_STRINGS_REL2 ^2 ADSR_STRINGS_DEF
	o3 l2 q7_VELSTR1
	g^8d8.g8.b-g f^8f8.f8.>c<a
	b- l8 ^g^a l4 b->ce-c l2 c+<a>

	(LST1_2)3 (LST1_3)1

#5	PATCH_STRINGS
	y10

	o3 l8 q7_VELSTR1
	f4>d8.e16f<a>df
	d4g8.a16b-dgb-
	faagfede fdec+<a2

	o2 q7_VELSTR1
	l2 (LST2_2)[ab->c<b-]1 (LST2_3)[ab->c+
	l16 aea>c+ec+eg
	; man, I want slur vcmd
	;a
	;VCMD_PITCH_SLIDE $0b $01 $9c
	;VCMD_PITCH_SLIDE $0c $01 $a1
	;VCMD_PITCH_SLIDE $0c $01 $a5
	;VCMD_PITCH_SLIDE $0c $01 $a8
	;VCMD_PITCH_SLIDE $0c $01 $a5
	;VCMD_PITCH_SLIDE $0c $01 $a8
	;VCMD_PITCH_SLIDE $0c $01 $ab
	]1

	/

	o3 l2 q7_VELSTR1
	(LST2_1)[f^af b-^> l4 dfgd<
	a^a>c<b-^g+^]1 l2 ab-aa
	(LST2_1)1 l4 aeae
	f2. ^8 ADSR_STRINGS_REL1 ^8 ADSR_STRINGS_DEF

	o4 l4 q7_VELSTR1
	c+4. ADSR_STRINGS_REL1 ^8 ADSR_STRINGS_DEF c+<aa^e^
	aaa>c+ d2. ^8 ADSR_STRINGS_REL1 ^8 ADSR_STRINGS_DEF
	e4. ADSR_STRINGS_REL1 ^8 ADSR_STRINGS_DEF edc<b-ag>
	dcde f+2 ADSR_STRINGS_REL2 ^2 ADSR_STRINGS_DEF
	o3 l2 q7_VELSTR1
	d^8<b-8.>d8.d^ d^8d8.d8.ff
	g l8 ^e-^e- l4 f+f+>c<g l2 ae

	(LST2_2)3 (LST2_3)1

#6	PATCH_STRINGS
	y8

	o2 ;o1
	l1 q7_VELSTR1
	d<ga a4>c+4d2

	r1r1r1r1

	/

	PATCH_STRINGS
	y8

	o2 l2 q7_VELSTR1
	(LST3_1)[f^af d^< l4 gab->c
	d^c^<b-^g+^]1 a1> l4 edc+^<
	(LST3_1)1 l4 a^>e^ d<a>d^

	o2 l4 q7_VELSTR1
	e1 ae>c+<a d1 af>df
	l4 e^edc<g>ec< a^>c^f+^d^<
	g1 dgb-^ a1 cfa^ b-1 l2 f+>d<a>c+

	PERC_CYMR_P1
	(LHAT1)[
	PERC_HAT_P8
	PERC_HAT_N16
	PERC_HAT_N16
	]10
	PERC_HAT_N2
	(LHAT1)14
	PERC_HAT_N2

; Actually, I missed some notes intentionally,
; because a SPC channel can utter only one sound.
#1	NO_ADSR
	y10

	PERC_KICK_P2^8
	PERC_TOM3_P8
	PERC_TOM2_N8
	PERC_TOM1_N8

	PERC_KICK_P2^8
	(LSNARE16_1)[PERC_SNARE_P16]1
	PERC_SNARE_N16
	PERC_SNARE_N16
	r16
	PERC_SNARE_N16
	PERC_SNARE_N16

	PERC_KICK_P4
	PERC_SNARE_P4
	PERC_KICK_P4
	PERC_SNARE_P16^16
	PERC_SNARE_N16
	PERC_SNARE_N16

	PERC_KICK_P8
	PERC_TOM3_P8
	PERC_TOM2_N8
	PERC_TOM1_N8
	PERC_KICK_P2

	(LKICK4_1)[PERC_KICK_P4]14
	(LDR1)[
	PERC_KICK_N16
	PERC_SNARE_P8
	PERC_SNARE_N16
	PERC_SNARE_N16
	PERC_TOM3_P16
	PERC_TOM2_N16
	PERC_TOM1_N16
	]1

	/

	(LKICK4_1)30
	PERC_KICK_N8
	(LSNARE16_1)6
	(LBDSD4_1)[
	PERC_KICK_P4
	PERC_SNARE_P4
	]13
	PERC_KICK_P4
	PERC_SNARE_P8
	PERC_SNARE_N16
	PERC_SNARE_N16

	PERC_KICK_P16
	PERC_TOM3_P16
	PERC_TOM2_N16
	PERC_TOM1_N16
	PERC_KICK_P8
	PERC_SNARE_P16
	PERC_SNARE_N16
	PERC_SNARE_N4
	PERC_KICK_P4

	(LBDSD4_1)14
	PERC_KICK_P4
	PERC_SNARE_P8
	PERC_SNARE_N16
	PERC_SNARE_N16
	PERC_SNARE_N8.
	PERC_SNARE_N8.
	PERC_SNARE_N8

	[
	PERC_KICK_P8
	PERC_KICK_N8
	PERC_SNARE_P16
	PERC_SNARE_N16^16
	PERC_SNARE_N16
	PERC_SNARE_N8.
	PERC_TOM2_P8.
	PERC_TOM1_N8

	PERC_KICK_P4
	PERC_SNARE_P8
	PERC_SNARE_N8
	PERC_SNARE_N8
	PERC_TOM3_P16
	PERC_TOM3_N16
	PERC_TOM2_N16
	PERC_TOM2_N16
	PERC_TOM1_N16
	PERC_TOM1_N16
	]2

	(LBDSD4_1)2

	PERC_KICK_P4
	PERC_SNARE_P16
	PERC_SNARE_N16
	PERC_SNARE_N16
	PERC_SNARE_N16
	PERC_SNARE_N8
	PERC_TOM3_P16
	PERC_TOM3_N16
	PERC_TOM2_N16
	PERC_TOM2_N16
	PERC_TOM1_N16
	PERC_TOM1_N16

	[
	PERC_KICK_P8
	PERC_TOM3_P16
	PERC_TOM3_N16
	PERC_TOM2_N16
	PERC_TOM2_N16
	PERC_TOM1_N16
	PERC_TOM1_N16
	]2

	(LKICK4_1)14
	(LDR1)1
	(LKICK4_1)14
	PERC_SNARE_P16
	PVOL_SNARE_W
	PERC_SNARE_N16
	PERC_SNARE_N16
	PERC_SNARE_N16
	PVOL_SNARE_N
	PERC_SNARE_N16
	PERC_SNARE_N16
	PERC_SNARE_N16
	PERC_SNARE_N16

#4	r1r1
	(LHAT1)4
	r1

	PERC_CYMR_P1
	(LHAT1)10
	PERC_HAT_N2
	/
	PERC_CYMR_P1
	(LHAT1)12
	PERC_CYMR_P1
	(LHAT1)8
	PERC_CYMR_P4
	PERC_CYML_N2.
	PERC_CYMR_P1
	(LHAT1)12
	PERC_CYMR_P1
	(LHAT1)8
	PERC_CYMR_P4
	PERC_CYML_N4
	PERC_CYMR_N2

	(LHAT2)[
	PERC_HAT_P8
	PERC_HAT_N8
	PERC_HAT_N8
	PERC_HAT_N16
	PERC_HAT_N16
	]6

	PATCH_TRUMPET
	y9
	o5 l16 q5_VELTRPT
	rrddddrrddr4.

	(LHAT2)6

	PATCH_TRUMPET
	y9
	o5 l16 q5_VELTRPT
	rrf+f+f+f+rr<

	PERC_CYMR_P8.
	PERC_CYML_N8.
	PERC_CYMR_N8

	[
	PERC_CYMR_P8
	PERC_CYML_N8^2.
	PERC_CYMR_N1
	]2
	PERC_CYMR_N1^1
	PERC_CYMR_N2
	PERC_CYML_N2

	(LSAW1)7 (LSAW2)1 (LST3_4)1

; Full low-strings part of J.M's seq.
; I used only a few of pieces for some reasons.
;
;#8	PATCH_STRINGS
;	y10
;
;	o2 ;o1
;	l1 q7_VELSTR1
;	d<ga a4>c+4d2
;
;	o2 q7_VELSTR1
;	l16 (LST3_2)[dc+d<a>]12 (LST3_3)[c+<b>c+<a]4
;
;	/
;
;	o2 l2 q7_VELSTR1
;	(LST3_1)[f^af d^< l4 gab->c
;	d^c^<b-^g+^]1 a1> l4 edc+^<
;	(LST3_1)1 l4 a^>e^ d<a>d^
;
;	o2 l4 q7_VELSTR1
;	e1 ae>c+<a d1 af>df
;	l4 e^edc<g>ec< a^>c^f+^d^<
;	g1 dgb-^ a1 cfa^ b-1 l2 f+>d<a>c+
;
;	(LST3_2)40 (LST3_3)4

#7	r1r1r1r1
	(LHAT1)4
	r1r1r1
	/
	(LHAT1)4
	r1r1r1
	(LHAT1)4
	r1r1r1
	(LHAT1)4
	r1r1r1
	(LHAT1)4
	r1r1r1

	r1r1r1
	(LHAT2)2
	r1r1r1
	(LHAT2)1 r2
	r1
	(LHAT1)2
	PERC_HAT_N2
	r1
	(LHAT1)2
	PERC_HAT_N2
	(LHAT1)5
	PERC_HAT_N2.
	r1
	(LHAT1)4
	r1r1r1r1r1r1r1
