/* [AC] BUBBLE SYSTEM - Konami Morning Music - (BOOT) (C)KONAMI 1985 by LinearDrive date:2011-04-06 [FlMML rev.38704] JASRAC:101-9376-6 */ #OCTAVE REVERSE #VELOCITY REVERSE /* 0005289 波形データ */ /* |---.---l---.---|---.---l---.--- */ #WAV10 00,707ACDEDCA742101247BDEDB7310137E #WAV10 01,317EC9CEA7CFD8AB728D945720385136 #WAV10 02,47ACCA778BDEDA655799841013677422 #WAV10 03,4579ABCDDEEEDDCBA975432110001123 #WAV10 04,0088888FF880008888FFF8008888FF88 #WAV10 05,0088808FFF8880888000080088880008 #WAV10 06,FF00112233445566778899AABBCCDDEE #WAV10 07,00EEEEEEEE00000000EEE000EEEEE000 #WAV10 08,707ACDEDCA742101247BDEDB7310137E #WAV10 09,317EC9CEA7CFD8AB728D945720385136 #WAV10 10,47ACCA778BDEDA655799841013677422 #WAV10 11,ED21112233445566778899AABBCCDDEE #WAV10 12,00FFFF00000000000000000000000000 #WAV10 13,00FFFFFFFF0000000000000000000000 #WAV10 14,7578AB7DD7E7DD7BA975737170707173 #WAV10 15,00FFE01100CCB01100AA901100887011 /* シーケンサ初期化 */ $I= x1 v0 @x127 @d0 q16 @q0; /* 音長制御用 */ $P= q5; $Q= q2; $R= q16; /* エンベロープブレイク */ $X= @x0 r64 @x127 r32.; $Y= r; /* $Yの箇所も$X同様breakするが、$X部分のみ有効とする */ /* AY3-8910 ch.1 (iv7) */ $A0= $I l16 @3@w50 @e1,0,0,127,160 v12 o6 @d0 ; $A1= r4 r1r1 r2 $R c8rr rr $Q drrr $R c8rr rr $Q c drrr crrr< $R b4 r4 $R a8 r4 $Q gr f+r gr ar f+r $R b8 r4 $Q ar gr ar br gr $Q g+rrr $R b8 r4 $Q a g+ ar gr $Q f+rrr $R a8 r4 $Q g f+ gr f+r $R e4 r4 $Q dr er f+r>dr< $R g2 r4 $Q f+r er $Q dr d e f+ e d f+ er f+r gr er $R f+2 r2 r4 b4 r2 r4 a4 r2 r4 $Q grrr $R f+2&f+4 r4 $Q f+rrr $R a4 r4 $Q gr f+r errr drrr $R c+2 r4 d4& d4&d8 r8 r4 $Q c+r gr rr f+r er gr f+r rr r4 > ; /* AY3-8910 ch.2 (iv8) */ $B0= $I l16 @3@w50 @e1,0,0,127,160 v13 o6 @d0 ; $B1= r4 $R d1 r4 $Q cr drrr $R g2 r1 r1 r1 r1 r1 $R c8&c2 r4 $Q er $R d+4.r4 $Q f+rrr $R e8 r4 $Q frrr $R e4 r4 d2. r4 $Q er cr er $R d8 r4 $Q cr < $R b2 r4 $Q ar gr f+r f+ g a g f+ a gr ar a+r gr $R f+2 r2 $Q r4 e8 r8 e8 r8 r4 r4 d8 r8 d8 r8 r4 r4 c+8r8 c+8r8 r4 r2. $R f+4 < r1 r1 r2 r8 $Q brrr r8 r1 >> ; /* AY3-8910 ch.3 (iv7) */ $C0= $I l16 @3@w50 @e1,0,0,127,160 v12 o6 @d6 ; $C1= r4 r1r1 r2 $R c8rr rr $Q drrr $R c8rr rr $Q c drrr crrr< $R b4 r4 $R a8 r4 $Q gr f+r gr ar f+r $R b8 r4 $Q ar gr ar br gr $Q g+rrr $R b8 r4 $Q a g+ ar gr $Q f+rrr $R a8 r4 $Q g f+ gr f+r $R e4 r4 $Q dr er f+r>dr< $R g2 r4 $Q f+r er $Q dr d e f+ e d f+ er f+r gr er $R f+2 r2 r4 b4 r2 r4 a4 r2 r4 $Q grrr $R f+2&f+4 r4 $Q f+rrr $R a4 r4 $Q gr f+r errr drrr $R c+2 r4 d4& d4&d8 r8 r4 $Q c+r gr rr f+r er gr f+r rr r4 > ; /* 0005289 ch.1 (iv11) */ $D0= $I l16 @10-1 @e1,0,0,127,432 @v122 o4 @d6 ; $D1= $P drrr gr ar br gr> cr rr $Yr cr rr $Yr cr< ar $Yg $R g4 rrr$Y rr $P br er gr cr rr $Yr d e f+r gr ar cr
c d er f+r gr
crrr grr$Y rr f+ e f+r $Yg $R g2 rr $P er f+r gr $R a2 rr $P f+r gr ar $R b2 rr $P >cr dr
$R c8rr rr $P
cr< ar $R b8rr rr $P ar gr cr er gr f+r gr ar f+r gr f+r er dr $R c+8rrrr $P dr $R d2...r d2r4 $P d e a br gr er dr c+rrr c+ e a ar f+r dr c+r d g gr er c+r
c+r< $R b8rr rr $P >c+ d $R c+8rr rr $P f+ c+< br rr > $R g8rr rr $P er f+r gr $R a8rr rr $P dr er f+r er f+r $R g8rr rr $Q c+r $R d2..r8 ; /* 0005289 ch.2 (iv11) */ $E0= $I l16 @10-1 @e1,0,0,127,432 @v122 o3 @d6 ; $E1= r4 $P brrr grrr arrr f+rrr grrr c+rrr dr er f+r er grrr $R f8rr rr $Q e d er cr dr er f+r er gr gr f+r errr grrr arrr drrr f+rrr grrr crrr errr cr< ar> $R d8rr rr $Q dr er f+r gr er< $R a2...r a2...r a2...r a2...r a2.r4 $P grrr brrr $R a4 rrrr $R d2...r d2r2 rrrr $P g+rrr g+rrr rrrr rrrr f+rrr grrr rrrr rrrr d+rrr f+rrr> errr drrr d2 rr $P er f+r dr ; /* 演奏 */ $LOOP= 32; t103 r8 $A0 /:$LOOP $A1 :/; r8 $B0 /:$LOOP $B1 :/; r8 $C0 /:$LOOP $C1 :/; r8 $D0 /:$LOOP $D1 :/; r8 $E0 /:$LOOP $E1 :/; /*EOF*/