pokecrystal-board/audio/music/evolution.asm
2020-02-04 16:03:01 +01:00

204 lines
2.7 KiB
NASM

Music_Evolution:
channel_count 4
channel 1, Music_Evolution_Ch1
channel 2, Music_Evolution_Ch2
channel 3, Music_Evolution_Ch3
channel 4, Music_Evolution_Ch4
Music_Evolution_Ch1:
tempo 132
volume 7, 7
vibrato 6, 3, 4
pitch_offset 1
duty_cycle 2
note_type 12, 9, 2
octave 3
pitch_slide 1, 4, A_
note C_, 1
pitch_slide 1, 4, A_
note G_, 1
pitch_slide 1, 4, A_
note C_, 1
pitch_slide 1, 4, A_
note G_, 1
rest 4
duty_cycle 3
stereo_panning FALSE, TRUE
.mainloop:
.loop1:
sound_call .sub1
note_type 12, 10, 4
note F#, 4
sound_call .sub1
note_type 12, 10, 4
note F#, 4
sound_loop 2, .loop1
sound_call .sub2
note_type 12, 10, 4
note G#, 4
sound_call .sub2
note_type 12, 10, 4
note G#, 4
sound_loop 0, .mainloop
.sub1:
note_type 12, 10, 2
octave 3
note C_, 4
note G_, 4
note C_, 4
note G_, 4
note C_, 4
note G_, 4
note C_, 4
sound_ret
.sub2:
note_type 12, 10, 2
octave 3
note D_, 4
note A_, 4
note D_, 4
note A_, 4
note D_, 4
note A_, 4
note D_, 4
sound_ret
Music_Evolution_Ch2:
duty_cycle 2
vibrato 8, 2, 5
note_type 12, 10, 2
octave 4
note G_, 1
note D_, 1
note G_, 1
note D_, 1
rest 4
duty_cycle 3
stereo_panning TRUE, FALSE
.mainloop:
.loop1:
sound_call .sub1
note_type 12, 11, 5
note A_, 4
sound_call .sub1
note_type 12, 11, 5
note B_, 4
sound_loop 2, .loop1
sound_call .sub2
note_type 12, 11, 5
note B_, 4
sound_call .sub2
note_type 12, 11, 5
octave 4
note C#, 4
octave 3
sound_loop 0, .mainloop
.sub1:
note_type 12, 11, 2
octave 3
note G_, 4
note D_, 4
note G_, 4
note D_, 4
note G_, 4
note D_, 4
note G_, 4
sound_ret
.sub2:
note_type 12, 11, 2
octave 3
note A_, 4
note E_, 4
note A_, 4
note E_, 4
note A_, 4
note E_, 4
note A_, 4
sound_ret
Music_Evolution_Ch3:
note_type 12, 1, 6
rest 8
.mainloop:
.loop1:
sound_call .sub1
octave 3
note A_, 4
sound_call .sub1
octave 3
note B_, 4
sound_loop 2, .loop1
sound_call .sub2
octave 3
note B_, 4
sound_call .sub2
octave 4
note C#, 4
sound_loop 0, .mainloop
.sub1:
octave 2
note A_, 2
rest 2
octave 3
note D_, 2
rest 2
octave 2
note A_, 2
rest 2
octave 3
note D_, 2
rest 2
octave 2
note A_, 2
rest 2
octave 3
note D_, 2
rest 2
octave 2
note A_, 2
rest 2
sound_ret
.sub2:
octave 2
note B_, 2
rest 2
octave 3
note E_, 2
rest 2
octave 2
note B_, 2
rest 2
octave 3
note E_, 2
rest 2
octave 2
note B_, 2
rest 2
octave 3
note E_, 2
rest 2
octave 2
note A_, 2
rest 2
sound_ret
Music_Evolution_Ch4:
toggle_noise 5
drum_speed 12
rest 8
.mainloop:
stereo_panning TRUE, FALSE
drum_note 11, 6
drum_note 11, 4
stereo_panning FALSE, TRUE
drum_note 5, 2
drum_note 5, 2
drum_note 5, 2
sound_loop 0, .mainloop