; [MSX2] ウシャス SCC-Arr. -Opening-
;
; (C) KONAMI 1987
#opll_mode 1
#title "[MSX2] ウシャス SCC-Arr. -Opening-"
#tempo 150
; Env & Macro
; == Melody ==
@r0 = {1,0,255,0,0,0,0,0}
@r1 = {1,0,255,255,220,220,0,0}
@r2 = {1,0,255,255,100,200,0,0}
@r3 = {1,0,255,255,100,200,0,10}
*1 = {v11@1q8}
*2 = {v12@1q8}
*3 = {v11@2q8}
*4 = {v14@3q7}
; == BASS ==
@r4 = {1,0,255,255,100,180,0,20}
@r5 = {1,0,255,255,100,200,0,10}
*5 = {v15@4q8}
*6 = {v15@5}
; == SUB ==
@r6 = {1,0,255,255,25,200,0,10}
*7 = {v12@6q8}
*8 = {v13@6q8}
*9 = {v12@1q8}
; == Intro ==
@s00 = { 001931475A6A757D7F7D756A5A473119 8090A0B0C0D0E0F00010203040506070 } ;Intro
@r10 = {1,0,255,255,200,200,0,10}
*10 = {@00@r10v7q8}
; == Melody ==
@s01 = { 80889098A0B0B0B8C0C8D0D8E0E8F0F8 00081018202830384048505860687078 } ;LongTone
@r14 = {1,0,255,255,100,100,0,7}
*14 = {@01@r14v15q7 h12,0,3,-3 ho \0}
@r15 = {1,0,255,255,255,255,0,7}
*15 = {@01@r15v3q7}
; == BASS ==
@s02 = { 70707070707070708080808080808080 70707080808070707070808080808080 } ;BASS
@r16 = {1,0,255,255,100,110,0,6}
*16 = {@02@r16v7q8}
@r17 = {1,0,255,255,100, 90,0,10}
*17 = {@02@r17v7q7}
; == Drum ==
; --------------------------------- ;BD
@e20 = {1,0,F0,y7,185}
*20 = {@e20 v15 p50 o1b}
; --------------------------------- ;Hat
@e22 = {2,0,FD0,y7,185}
*22 = {@e22 v11 o5g}
@e25 = {2,2,FC:4B:4A:4.9:4.8:4.7:4.6:4.5:4,y7,185}
*25 = {@e25 v12 o5g}
@r27 = {2,10,255,255,255,160,1,10}
*27 = {@r27 v13 o5g}
; --------------------------------- ;Snare 1
@e23 = {1,0,F,/2,n8CBA98765,y7,185}
*23 = {@e23 v15 o1c}
; --------------------------------- ;Snare 2
@e24 = {2,20,F,/1,F,/2,n16,BA,y7,185}
*24 = {@e24 v12 o3a}
; --------------------------------- ;Snare 2
*26 = {@e24 o3a}
; == init ==
12345678 v0c
; == Intro ==
; -- PSG --
1 l32 *1o2a>ded eaea >dde deae a>dd edea *2ea>ddeae ddea >dea>e dea>d edea
2 l32 @0v9o2ra>ded eaea >dde deae a>dd edea v10ea>ddeae ddea >dea>e dea>d ede
3 l32 *7o1a>ded eaea >dde deae a>dd edea *8ea>ddeae ddea >dea>e dea>d edea
; -- SCC --
4 l32 *10 o2a>ded eaea >dde deae a>dd edea ea>ddeae ddea >dea>e dea>d edea
4 [ l32 *10 v3 o2a>ded eaea >dde deae a>dd edea ea>ddeae ddea >dea>e dea>d edea ] l16 *17o1ab>v+cdv+efga
5 l32 *10 [(]5 \-2 r8 o2a>ded eaea >dde deae a \-1 >dd edea )ea \0 >ddeae ddea >dea \-1 >e dea>d edea
5 [ l32 *10 v2 o2a>ded eaea >dde deae a>dd edea ea>ddeae ddea >dea>e dea>d edea ]
; -- mute --
678 l32 v0o2ra>ded eaea >dde deae a>dd edea ea>ddeae ddea >dea>e dea>d ede
; == Melody ==
; -- PSG --
3 [ l32 *1o2a>ded eaea >dde deae a>dd edea ea>ddeae ddea >dea>e dea>d edea ] l16 *9o2ab>v+cdv+efga
3 l8 *4o4e4.@0v8e *4e.g.ag4@0v9g *4gg.f.e hf c+ [a4][g4]e2&e4.@0v8e
; -- SCC --
7 l8 *14 o4
8 l8 *15 o4 r. \-1
78 a4.r a.b.>ce2&e4.r d.c+.c4d4ce2&e4.r d.c+.a2a16b16>c4d4c+ f+[*6f+@0v8f+]*6gdeq7f+8 [f8]q6faq7>c8 <[g8]q6gbq7>d8 c+ f+[f+r] gdeq7f+8 [f8]q5faq7>c8 <[g8]q5gbq7>d8