/*
   [FC] FAMILY COMPUTER ROBOT <Gyro> - GAME A - (C)Nintendo 1985 by LinearDrive
   date:2011-05-07
   JASRAC:094-5770-4
*/

#OCTAVE REVERSE
#VELOCITY REVERSE


/* ＦＣ三角波定義 */
/*       |---.---l---.---|---.---l---.--- */
#WAV10 0,89ABCDEFFEDCBA987654321001234567


/* ピッチベンドテーブル for drums */
#WAV13 0,807F7E7D7C7B7A797877767574737271706F6E6D6C6B6A696867666564636261605F5E5D5C5B5A595857565554535251504F4E4D4C4B4A494847464544434241403F3E3D3C3B3A393837363534333231302F2E2D2C2B2A292827262524232221201F1E1D1C1B1A191817161514131211100F0E0D0C0B0A090807060504030201


/* エンベロープ定義 */
$E11= @e1, 0,  9,  0, 12;
$E21= @e1, 0,  9,  0, 12;
$E31= @e1, 0,  0,127,  0;
$E41= @e1, 0,  8,  0, 12;
$E42= @e1, 0, 24,  0, 12;


/* シーケンサ初期化 */
$M= r8 x0 q16 @q0 o5 ns0 @d0 @x127 v0
;


/* RP2A03 SQUARE-A */
$MAI=
   $M l16 @5@w4 o4 v12 $E11 @l3000,32,13-0,0,1,0
;
$MA=
   /:3 a4>g4<a4>g4< :/ a4>g4<a8>g8g8g8<
   /:7 a4>e4<a4>e4< :/ a4>g4 g8g8<a8>g8<
   /:23 a4>g4<a4>g4< :/ a4>g4 e8<aa>g4<
   /:2 a4>g4<a4>g8<a8 :/
   /:8 a4>e4<a4>e4< :/
;


/* RP2A03 SQUARE-B */
$MBI=
   $M l16 @5@w4 o5 v12 $E21
;
$MB=
   /:2
     g>c<g>c< g>c<g>c< a>c<a>c< a>c<a>c<
     afaf >c<a>c<a >e<b>e<b >d<a>d<a
   :/
   /:2
     r8e8 r8e8 r8e8 r8e8
     r8e8 r8e8 <ab>c8 <b>cd8
   :/
   r1 r1 r1 r1
   >
   /:4
     r8e8 gga8 r8>c8< r8gg
     a+8<a+8 r8a+8 r8a+8 r8a+8>
     r8a8 aa>c8< r8a8 r8g8
     <r8g8 r8g8 r8g8 r8g8>
   :/
   /:2
     r8ee g8aa&a8>c8< r8c8
     bb<e8> g8>c8 <<r8c8 r8c8
     r8f8 r8>dd f8a8 r8<f8>
     gg<g8> e8<g8> c8<g8 r8g8>
   :/
   <
   r1 r1
   /:2
     r8e8 r8e8 r8e8 r8e8
     r8e8 r8e8 <ab>c8 <b>cd8
   :/
   r1 r1 r1 r1
;


/* RP2A03 TRIANGLE */
$MCI=
   $M l16 @10-0 o6 v15 $E31 q10
;
$MC=
   /:2 c<ergr>cr<g> c<frar>cr<a> c<drfrarf gabrb>cdr :/
   <<
   /:4 crgr<gr>gr crgr<gr>gr crgr<gr>gr <fgargabr> :/
   /:4
     cr>er<<gr>>er< cc>er<<gr>>er<
     d+r>gr<<a+r>>gr< d+r>gr<<a+r>>gr<
     fr>ar<cr>ar< ff>ar<cr>ar<
     cr>er<<gr>>er< cr>er<<gr>>er<
   :/
   /:2
     <ff>>ar<cr>ar<< fr>>ar<cr>ar<
     <er>>gr<cr>gr<< aa>>er<er>er<
     dr>ar<<ar>>ar<  dr>ar<<ar>>ar<
     cc>er<<gr>>er<  cc>er<<gr>>er<
   :/
   r1 r1
   /:4 crgr<gr>gr crgr<gr>gr crgr<gr>gr <fgargabr> :/
   >>
;


/* RP2A03 NOISE */
$MDI=
   $M l16 @7 o0 v12 $E41 ns1
;
$MD=
   /:36 r8c8 c8c8 r8c8 c8c8 :/
   /:2 c8c8c8c8c8 $E42 c4 $E41 c8 :/
   /:8 r8c8 c8c8 r8c8 c8c8 :/
;


/* 再生 */
$LOOP=32;
t150
$MAI /:$LOOP $MA :/;
$MBI /:$LOOP $MB :/;
$MCI /:$LOOP $MC :/;
$MDI /:$LOOP $MD :/;


/* EOF */