/************************************************************************************* [PC88] SORCERIAN - 呪われたクイーンマリー号:船内 - (C)Falcom 1987 by LinearDrive date:2010-10-12 初版 JASRAC:045-4683-1 **************************************************************************************/ #OCTAVE REVERSE $POFF = @o0,0 @o0,1 @o0,2 @o0,3 @i0,0 @i0,1 @i0,2 @i0,3; /* FM-Tone(A):bass fb7,al0 */ $TA1 = x1 $POFF @o1,0 @13-1 @e1,0, 5,111,80 @v84 ns40 @d-10; $TA2 = x1 $POFF @i4,0 @o1,1 @0 @e1,0,15,111, 896,0,80 @v71 ns-12 @d3; $TA3 = x1 $POFF @i4,1 @o1,2 @0 @e1,0,30,111, 896,0,80 @v118 ns-12 @d3; $TA4 = x1 $POFF @i4,2 @0 @e1,0,30,111,1152,0,80 ns-12 @d3; /* FM-Tone(B):lead1 fb5,al4 */ $TB1o = x1 $POFF @o1,0 @13-0 @e1,0,0,127,99999 @v116 ns12; $TB1=$TB1o @d-3; $TB2o = x1 $POFF @i4,0 @0 @e1,3,24,119,288 ns36; $TB2=$TB2o @d-3; $TB3o = x1 $POFF @o1,1 @0 @e1,0,0,127,99999 @v115 ns24; $TB3=$TB3o @d3; $TB4o = x1 $POFF @i4,1 @0 @e1,3,24,119,288 ns24; $TB4=$TB4o @d3; $UB1 = $TB1o @d1; $UB2 = $TB2o @d1; $UB3 = $TB3o @d7; $UB4 = $TB4o @d7; /* FM-Tone(C):lead2 fb7,al6 */ $TC1o = x1 $POFF @o1,0 @0 @e1,12,512,119,1280,0,64 @v72 ns24; $TC1=$TC1o @d-2; $TC2o = x1 $POFF @i4,0 @0 @e1,12, 40,119,1280,0,64 ns12; $TC2=$TC2o @d-2; $TC3o = x1 $POFF @0 @e1,12,512,119,1280,0,64 ns12; $TC3=$TC3o @d-2; $TC4o = x1 $POFF @0 @e1,12,512,119,1280,0,64 ns12; $TC4=$TC4o @d-2; $UC1 = $TC1o @d2; $UC2 = $TC2o @d2; $UC3 = $TC3o @d2; $UC4 = $TC4o @d2; /* FM-Tone(D):lead3 fb0,al6 */ $TD1o = x1 $POFF @o1,0 @0 @e1,0,240, 0,288 @v123 ns24; $TD1=$TD1o @d0; $TD2o = x1 $POFF @i5,0 @0 @e1,0, 0,127,544 ns36; $TD2=$TD2o @d0; $TD3o = x1 $POFF @0 @e1,0, 0,127,544 ns36; $TD3=$TD3o @d0; $TD4o = x1 $POFF @0 @e1,0, 0,127,544 ns12; $TD4=$TD4o @d0; $UD1 = $TD1o @d4; $UD2 = $TD2o @d4; $UD3 = $TD3o @d4; $UD4 = $TD4o @d4; /* FM-Tone(E):lead4 fb5,al5 */ $TE1o = x1 $POFF @o1,0 @13-0 @e1,1,26,119,56 @v94 ns0 ; $TE1=$TE1o @d0; $TE2o = x1 $POFF @i4,0 @0 @e1,1,30,111,80 ns0 ; $TE2=$TE2o @d0; $TE3o = x1 $POFF @i4,0 @0 @e1,1,52,103,2048,0,80 ns12; $TE3=$TE3o @d0; $TE4o = x1 $POFF @i4,0 @0 @e1,1,30,111,80 ns12; $TE4=$TE4o @d0; $UE1 = $TE1o @d4; $UE2 = $TE2o @d4; $UE3 = $TE3o @d4; $UE4 = $TE4o @d4; /* FM-Tone(F):drums fb7,al6 */ $UF1 = x1 $POFF @o1,0 @4@n0 @e1,0,15,111,1024,0,72 @v127 ns0 @d0; $UF2 = x1 $POFF @i4,0 @0 @e1,0, 7, 87, 48,0,64 ns-12 @d0; $UF3 = x1 $POFF @0 @e1,0,24, 47, 96,0,64 ns-12 @d3; $UF4 = x1 $POFF @0 @e1,0,40, 63, 80,0,56 ns-12 @d3; /* MML定義(FM ch.A) */ $A0 = @q0q16 l16 ; $A1 = r4r12 ; $A2 = /:2 g24r12g24g24r24d24r24:/ c24r12c24c24r24c+12 /:4 d24r12d24d24r24:/ /:2 g24r12g24g24r24d24r24:/ c24r12c24c24r24c+24r24< a+24r12a+24a+24r24f24r24 a+24r12a+24a+24r24f24a+24> c24r12c24c24r24 c24r12c24c24r24e12 /:2 d8>d24r12c24a+24r24d24f24g24a24c+24e24r24g24a24e24c+24 :/ /:2 d24r12d24d24r24:/ /:2 g24r12g24g24r24d24r24:/ /:2 c24r12c24c24r24:/ f24r12f24f24r24c24r24f24r12f24d12c12 < /:2 a+24r12a+24a+24r24f24r24:/ /:2 g24r12g24g24r24d24r24:/ > /:2 e24r12e24e24r24:/ < /:2 a24r12a24a24r24e24r24:/ > /:2 f24r12f24f24r24c24r24:/ /:2 g24r12g24g24r24d24r24:/ /:2 a24r12a24a24r24e24r24:/ f24r12f24f24r24e12d24r12d24d24r24 /:2 d+24r12d+24d+24r24:/ /:2 e24r12e24e24r24:/ < /:2 a24r12a24a24r24e24r24:/ /:2 a+24r12a+24a+24r24f24r24:/ > c24r12c24c24r24c+12 /:3 d24r12d24d24r24:/ d24>d24r24:/ g24r12g24g24r24d24r24g24r12g24g24r24 d24r12d24d24r24c+24r12c+24c+24r24 c24r12c24c24r24c24r12c24c24r24e24r24 /:2 g24r12g24g24r24d24r24:/ /:2 a24r12a24a24r24e24r24:/ /:3 d24r12d24d24r24:/ d24>d24c24<a+24a24 /:3 d24r12d24d24r24:/ d24>d24r24 f+4f4&f12f4&f12e4&e6f4f4&f12f4&f12r12 @q0 < ; $B4 = e8f8g12a4&a6a+12>c12d12c12d12c12d12 f12e4&e6f12g12a+12a8f8g12a6>c6c12< a+4&a+12a+8a8>c12c8d12e8f8g12e12r12e6f4&f12d12 f12e12r12e12r12d12c+4g2&g12f+24e24f+4&f+6 << ; $B5 = a12>d12e12f+4&f+6g12a12a+12g4&g6f+12e12d12g4f+24e24 f+2&f+4d12e12f+4&f+6e12d12f+12f+4&f+12e4&e12 ; $B6 = @q1 g4f4&f6e4f4&f6g4f4&f6e4&e12 < @q0 ; $B7 = d8f8a12 ; /* MML定義(FM ch.C) */ $MPON = @l2000,64,13-9,3,0,0; $MPOF = @l0,0,0,0,0,0; $C0 = @q0q16 l16 o4 $MPOF ; $C1 = r8d8f8a12 ; $C2 = g2d12e12f4&f12e6c+6d2&d4&d8 ; $C3 = $MPON >b24b24g24r24e24r24e24e24< $MPOF ; $C4 = a8g2d12e12f4&f12e6c+6d2&d6e2&e6 > ; $C5 = @q1 f+4f4&f12f4&f12e8 @q0 ; $C6 = $MPON g24r24g24g24 $MPOF ; $C7 = @q1 e8f4f4&f12f4&f12r12 @q0 ; $C8 = ; $C9 = $MPON g24g24g24g24 < $MPOF ; $CA = g8a4&a6a+12>c12d12b24b24g24g24e24e24c24c24< $MPOF ; $CC = g8a4&a6a+12>c12d12c12d12f12e4&e6f12g12a+12 a8f8g12a6>c6c12c12c8d12e8f8g24 ; $CD = $MPON $MPOF ; $CE = e8f4&f12d12f12e12r12e12r24 ; $CF = $MPON $MPOF ; $CG = c+8g2&g12f+24e24f+4&f+6 << ; $CH = a12>d12e12f+4&f+6g12a12a+12g4&g6f+12e12d12g4f+24e24 f+2&f+4d12e12f+4&f+6e12d12f+12f+4&f+12e24 ; $CI = $MPON g24r24g24g24 $MPOF ; $CJ = e8 ; $CK = @q1 g4f4&f6e4f4&f6g4f4&f24 @q0 ; $CL = $MPON b24b24b24b24g24g24g24g24e24e24e24e24c24c24c24c24 $MPOF ; $CM = < a8 ; /* MML定義(SSG ch.D) */ $Ev1 = @e1,0,32,127,640,0,288; $Ev2 = @e1,0, 7,103,15,0,96; $D1 = x1 q16@q0 @3 ns0 @d0 v10 l16 o5 $Ev1 @l4,8,0,60,0,0 f8a8>c12< ; $D2 = $Ev1 b2g12g12a+4&a+12a6e6f1f8a8>c12f12g12a+12>d12<f12a+12>c12g12d12c6g6c12e12g12a+12f6e6c12e12c12f4g12a+12> d12f4g12a+12>d12g+6>g+6c6f4f12a6d6g12>d12c+6g12a12 c+12e12c+12f8c12f6a6g12f6d6g8f8d+12g4&g12 g8f8e12g8g8a+12>c+8c+8c+12c+12r12c+6d12c+12d6d12d12e12 d12e6d24c+6 c+12d6c+4&c+12c+4&c+12 /:3 d4d4&d6 :/ d4&d12c12 < ; /* MML定義(SSG ch.E) */ $E1 = x1 q16@q0 @3 ns0 @d13 v8 l16 o5 $Ev1 r12 f8a8>c12< ; $E2 = $Ev1 b2g12g12a+4&a+12a6e6f1f8a8>c12f12g12a+12>d12<f12a+12>c12 ( d24f24d24d24f24 /:2 g24d24d24g24a+24:/ /:2 g24e24c24c24e24:/ f24e24c24c24e24f24d24c24c24d24 /:2 f24d24d24:/ /:2 g24d24d24:/ /:2 g+24e24e24:/ /:2 d24c+24:/ /:2 f24c24c24f24a24:/ /:2 g24d24d24:/ /:2 e24c+24c+24:/ f24c24c24f24d24d24 /:2 f24d24d24:/ /:2 d+24d+24g24a+24 > :/ /:2 e24c24:/ /:2 e24c+24c+24:/ /:2 d24 :/ c24c+24c+24 < $Ev1 )) d4&d12a4a24a24a4&a12&a6 e12f+12a12a6>c+12d6d12d12e12d12e6c+6c+12d6c12< /*c12*/ ; /* MML定義(SSG ch.F) */ $Ev10 = @e1,0,1,127,1,103, 64,0,32; $Ev11 = @e1,0,1,127,1,103, 96,0,32; $Ev12 = @e1,0,1,127,1,103,128,0,64; $Ev13 = @e1,0,2,127,2,103,128,0,64; $Nz1 = o0d24; $Nz2a = $Ev11 o0a12 $Ev10; $Nz2b = $Ev11 o0a24 $Ev10; $Nz3 = $Ev12 o0d+8 $Ev10; $Nz4a = $Ev11 o0f12 $Ev10; $Nz4b = $Ev11 o0f24 $Ev10; $Nz5 = $Ev12 o0d+6 $Ev10; $Nz6 = $Ev13 o0b12 $Ev10; $F1 = x1 q16@q0 @7 ns0 @d0 v12 l16 o5 $Ev10 r4r12 ; $F2 = /:7 $Nz1r24 $Nz1$Nz1 $Nz2a $Nz1$Nz1 :/ $Nz2b $Nz2b $Nz2b r24 $Nz2b r24 $Nz2b $Nz2b /:7 $Nz1r24 $Nz1$Nz1 $Nz2a $Nz1$Nz1 :/ $Nz2b $Nz3 $Nz2b $Nz2b $Nz4b $Nz4b /:4 $Nz1$Nz1$Nz1$Nz2a$Nz1$Nz1$Nz1 $Nz1$Nz1$Nz4a $Nz4b$Nz4b$Nz4a :/ /:15 $Nz1r24 $Nz1$Nz1 $Nz2a $Nz1$Nz1 :/ /:8 $Nz2b :/ /:15 $Nz1r24 $Nz1$Nz1 $Nz2a $Nz1$Nz1 :/ $Nz1$Nz1 /:6 $Nz2b :/ /:3 $Nz1r24 $Nz1$Nz1 $Nz2a $Nz1$Nz1 :/ $Nz1$Nz1 $Nz2b $Nz2b $Nz2b r24 $Nz2b $Nz2b /:2 $Nz1r24 $Nz1$Nz1 $Nz2a $Nz1$Nz1 :/ /:3 $Nz1 $Nz1 $Nz4a :/ $Nz1 $Nz2b $Nz1 $Nz1 /:19 $Nz1r24 $Nz1$Nz1 $Nz2a $Nz1$Nz1 :/ $Nz2a $Nz5 $Nz6 ; /* 演奏(FM) */ $LOOP=32; t94 r8 $A0 $TA1$A1 /:$LOOP $A2 :/; r8 $A0 $TA2$A1 /:$LOOP $A2 :/; r8 $A0 $TA3$A1 /:$LOOP $A2 :/; r8 $A0v13 $TA4$A1 /:$LOOP $A2 :/; r8 $B0 $TB1$B1 /:$LOOP $B2 $TC1$B3 $TD1$B4 $TE1$B5 $TC1$B6 $TB1$B7 :/; r8 $B0v11 $TB2$B1 /:$LOOP $B2 v11 $TC2$B3 v10 $TD2$B4 v11 $TE2$B5 $TC2$B6 $TB2$B7 :/; r8 $B0 $TB3$B1 /:$LOOP $B2 v11 $TC3$B3 v10 $TD3$B4 v11 $TE3$B5 $TC3$B6 $TB3$B7 :/; r8 $B0v11 $TB4$B1 /:$LOOP $B2 v11 $TC4$B3 v10 $TD4$B4 v11 $TE4$B5 $TC4$B6 $TB4$B7 :/; r8 $C0 $UB1$C1 /:$LOOP $C2 $UF1$C3 $UB1$C4 $UC1$C5 $UF1$C6 $UC1$C7 $UD1$C8 $UF1$C9 $UD1$CA $UF1$CB $UD1$CC $UF1$CD $UD1$CE $UF1$CF $UD1$CG $UE1$CH $UF1$CI $UE1$CJ $UC1$CK $UF1$CL $UB1$CM :/; r8 $C0v9 $UB2$C1 /:$LOOP $C2 v11$UF2$C3 v9 $UB2$C4 v9 $UC2$C5 v11$UF2$C6 v9 $UC2$C7 $UD2$C8 v11 $UF2$C9 v9 $UD2$CA v11$UF2$CB v8 $UD2$CC v11$UF2$CD v8 $UD2$CE v11$UF2$CF v8 $UD2$CG v9 $UE2$CH v11$UF2$CI v9 $UE2$CJ $UC2$CK v11$UF2$CL v9 $UB2$CM :/; r8 $C0 $UB3$C1 /:$LOOP $C2 v11$UF3$C3 $UB3$C4 v9 $UC3$C5 v11$UF3$C6 v9 $UC3$C7 $UD3$C8 v11 $UF3$C9 v9 $UD3$CA v11$UF3$CB v8 $UD3$CC v11$UF3$CD v8 $UD3$CE v11$UF3$CF v8 $UD3$CG v9 $UE3$CH v11$UF3$CI v9 $UE3$CJ $UC3$CK v11$UF3$CL $UB3$CM :/; r8 $C0v9 $UB4$C1 /:$LOOP $C2 v11$UF4$C3 v9 $UB4$C4 v9 $UC4$C5 v11$UF4$C6 v9 $UC4$C7 $UD4$C8 v11 $UF4$C9 v9 $UD4$CA v11$UF4$CB v8 $UD4$CC v11$UF4$CD v8 $UD4$CE v11$UF4$CF v8 $UD4$CG v9 $UE4$CH v11$UF4$CI v9 $UE4$CJ $UC4$CK v11$UF4$CL v9 $UB4$CM :/; /* 演奏(SSG) */ r8 $D1 /:$LOOP $D2:/; r8 $E1 /:$LOOP $E2:/; r8 $F1 /:$LOOP $F2:/; /* 波形メモリ定義(フィードバック変調済み正弦波) 【生成式】 y = [TL]sin( rd + [FB][2*pi]last_y ) 【パラメータ】 TL:OPN-TotalLevel, rd:ラジアン, FB:OPN-FB変調率, pi:円周率, last_y:前回のy. */ /* WAV13-0 【生成情報】 1周期分880サンプル生成。 TL=22(0.14962..倍), FB=5(0.5倍). */ #WAV13 0,8082848587898A8C8E9091939596989A9B9D9FA0A2A3A5A7A8AAABADAEB0B1B3B4B6B7B9BABCBDBEC0C1C2C4C5C6C7C9CACBCCCDCFD0D1D2D3D4D5D6D7D8D9DADBDCDDDEDFE0E1E1E2E3E4E5E6E6E7E8E9E9EAEBEBECEDEDEEEEEFF0F0F1F1F2F2F3F3F4F4F5F5F6F6F6F7F7F8F8F8F9F9F9FAFAFAFBFBFBFBFCFCFCFCFDFDFDFDFDFEFEFEFEFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFEFEFEFEFDFDFDFDFDFDFDFCFCFCFCFCFBFBFBFBFAFAFAFAFAF9F9F9F9F8F8F8F8F7F7F7F6F6F6F6F5F5F5F4F4F4F3F3F3F2F2F2F1F1F1F0F0F0EFEFEEEEEEEDEDEDECECEBEBEBEAEAE9E9E9E8E8E7E7E7E6E6E5E5E4E4E4E3E3E2E2E1E1E0E0DFDFDFDEDEDDDDDCDCDBDBDADAD9D9D8D8D7D7D6D6D5D5D4D4D3D3D2D2D1D1D0D0CFCFCECECDCDCCCBCBCACAC9C9C8C8C7C7C6C6C5C4C4C3C3C2C2C1C1C0BFBFBEBEBDBDBCBBBBBABAB9B9B8B7B7B6B6B5B5B4B3B3B2B2B1B1B0AFAFAEAEADACACABABAAA9A9A8A8A7A6A6A5A5A4A3A3A2A2A1A0A09F9F9E9D9D9C9C9B9A9A999898979796959594949392929190908F8F8E8D8D8C8C8B8A8A898888878786858584848382828180807F7F7E7D7D7C7B7B7A7A797878777776757574737372727170706F6F6E6D6D6C6B6B6A6A696868676766656564636362626160605F5F5E5D5D5C5C5B5A5A59595857575656555454535352515150504F4F4E4D4D4C4C4B4A4A4949484847464645454444434242414140403F3F3E3D3D3C3C3B3B3A3A393938373736363535343433333232313130302F2E2E2D2D2C2C2B2B2A2A2929282827272626262525242423232222212120201F1F1F1E1E1D1D1C1C1B1B1B1A1A19191818181717161616151514141413131312121111111010100F0F0F0E0E0E0D0D0D0C0C0C0B0B0B0A0A0A0A090909080808080707070706060606050505050504040404040303030303030202020202020202010101010101010101010101010101010101010101010101010101010101010101010102020202020202030303030304040404040505050606060607070708080909090A0A0B0B0C0C0C0D0D0E0E0F101011111212131414151616171818191A1B1B1C1D1E1F1F202122232425262728292A2B2C2D2E2F30313234353637383A3B3C3D3F40414344454748494B4C4E4F5152545557585A5C5D5F6062646567686A6C6D6F7173747678797B7D7E /* WAV13-1 【生成情報】 1周期分440サンプル生成。 TL=44(0.022387..倍), FB=7(2倍). */ #WAV13 1,7F828487898C8E919396989B9DA0A2A4A7A9ABAEB0B2B5B7B9BBBDBFC2C4C6C8CACBCDCFD1D3D5D6D8DADBDDDEE0E1E3E4E5E7E8E9EBECEDEEEFF0F1F2F3F4F5F5F6F7F8F8F9FAFAFBFBFCFCFDFDFDFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFDFDFDFCFCFCFBFBFAFAF9F9F8F8F7F7F6F5F5F4F3F3F2F1F0F0EFEEEDECECEBEAE9E8E7E6E5E4E3E2E1E0DFDEDDDCDBDAD9D8D7D6D5D3D2D1D0CFCECCCBCAC9C8C6C5C4C3C1C0BFBEBCBBBAB8B7B6B4B3B2B0AFAEACABAAA8A7A6A4A3A1A09F9D9C9B999896959492918F8E8C8B8A888785848381807E7D7B7A797776747372706F6D6C6A696866656362615F5E5D5B5A585756545352504F4E4C4B4A484746444342413F3E3D3C3A3938373634333231302E2D2C2B2A2928272625232221201F1E1D1C1B1B1A19181716151413131211100F0F0E0D0D0C0B0B0A09090808070706060505040403030302020202010101010101010101010101010101010101020202030303040405050606070708090A0A0B0C0D0E0F1011121314151617191A1B1D1E1F2122242627292B2C2E3032333537393B3D3F414346484A4C4E515355585A5C5F616466686B6D707275777A7C /* ピッチベンドテーブル for drums */ #WAV13 9,807F7E7D7C7B7A797877767574737271706F6E6D6C6B6A696867666564636261605F5E5D5C5B5A595857565554535251504F4E4D4C4B4A494847464544434241403F3E3D3C3B3A393837363534333231302F2E2D2C2B2A292827262524232221201F1E1D1C1B1A191817161514131211100F0E0D0C0B0A090807060504030201 /*EOF*/