;
; Music theme for a certain stage in Rockman Basics
; Copyright (C) 1992,2005 Joel Yliluoma http://iki.fi/bisqwit/
;
; To be compiled with mus_compiler which is included in Rockedit
; http://bisqwit.iki.fi/source/rockedit.html (GPL).
;
; Will be playable with the music player in Rockman1 or Rockman2 games.
; The player assembler module (for either game) is available at:
; http://bisqwit.iki.fi/jutut/megamansource/
;
; The assembler that can be used to assemble it, is nescom.
; It is available at http://bisqwit.iki.fi/source/nescom.html (GPL).
;

;Commands (commands use hexadecimal numbers, everything else uses decimal):
; A = SetSpeed
; C = SetVibratoCtrl (?)
; D = SetDutyCycle
; E = SetNoteDelay (?)
; H = SetVibratoIndex
; S = SetVolumeCurve (8610 = decreasing at length 6 power 1, 0210 = increasing at length 2 power 1)
; V = SetVolumeAndEnv
;Structures
; {...}n = loop ... n times
;
; n: = define data for channel n
;
; l = define length
; o = define octave
;
; If length is followed by 't', it's a triplet (three notes in the time of 2)
;
;Note: The compiler will break out loops and create new loops by finding
;equivalent sequences of data. Don't bother trying to compress manually
;with loops (unless you want to save writing). Same goes for pause lengths.
;"l8 p p", "p16" and "l8t p p p" all compile into the same single byte,
;so write whatever is most natural.
;

;------------------------
0: A09 V38 DC0    o4 l64
1: A09 S8610 H02  o5 l4 V16
2: A09 V50 H02 o2 o2 l4
3: A09 S8290 H02  o2 l4
;------------------------

0:
   o4 l64 p p p
1:
   l64 p o5 l4
   V12
   {d# f# c a}4
   V14
   {d# f# c a}4
   V16
2:
   l4
   {c  p  c p
    c  p  c p
    c  p  c p
    d# f# g p}3
3:
   l4
   {c p c c d# p c c}6

;------------------------
LOOPBEGIN
;------------------------
0:
   H00
   S0510 l64 c f# l48 e
   S0210 l8t c < a f#
   S0410 l64 d#
1: 
   {d# f# c a}16
2:
   {c  p  c p
    c  p  c p
    c  p  c p
    d# f# g p}4
3:
   {c p c c d# p c c}8
;------------------------
0:
   S0510 l64 a > d# l48 c
   S0210 l8t f# d# c
   H01
   S0410 l64 a
1: 
   {d# f# c a}16
2:
   {c  p  c p
    c  p  c p
    c  p  c p
    d# f# g p}4
3:
   {c p c c d# p c c}7
   f# d# c f# d# f# c f#