; ==============================================
; 1/4         = $48
; 1/4 double  = $6C
; 1/4 triplet = $30
; 1/8         = $24
; 1/8 double  = $36
; 1/8 triplet = $18
; 1/16        = $12
; 1/16 double = $1B
; 1/32        = $09

; db C4, !Tie, !Tie, !Tie : whole note (1/1)
; db C4, !Tie             : half note (1/2)

!4th   = $48
!4thD  = $6C
!4thT  = $30
!8th   = $24
!8thD  = $36
!8thT  = $18
!16th  = $12
!16thD = $1B
!32nd  = $09

macro SetDuration(v) 
db <v>
endmacro

; n default is $7F
macro SetDurationN(v, n) 
db <v>, <n>
endmacro

; ==============================================
; N-SPC Instruments

; 00 Noise
; 01 Rain
; 02 Tympani
; 03 Square wave
; 04 Saw wave
; 05 Sine wave (clink)
; 06 Wobbly lead
; 07 Compound saw wave
; 08 Tweet
; 09 Strings A
; 0A Strings B
; 0B Trombone
; 0C Cymbal
; 0D Ocarina
; 0E Chime
; 0F Harp
; 10 Splash
; 11 Trumpet
; 12 Horn
; 13 Snare A
; 14 Snare B
; 15 Choir
; 16 Flute
; 17 Oof
; 18 Piano

macro SetInstrument(v)
db $E0, <v>
endmacro

macro Tympani()
 %SetInstrument($02)
endmacro

macro Trombone()
 %SetInstrument($0B)
endmacro

macro Ocarina()
 %SetInstrument($0D)
endmacro

macro Harp()
 %SetInstrument($0F)
endmacro

macro Splash()
 %SetInstrument($10)
endmacro

macro Trumpet()
 %SetInstrument($11)
endmacro

macro Horn()
 %SetInstrument($12)
endmacro

macro Snare()
 %SetInstrument($13)
endmacro

macro Choir()
 %SetInstrument($15)
endmacro

macro Flute()
 %SetInstrument($16)
endmacro

macro Piano()
 %SetInstrument($18)
endmacro

macro Cymbal()
  %SetInstrument($0C)
endmacro

macro Strings()
  %SetInstrument($09)
endmacro

macro Sawtooth()
  %SetInstrument($04)
endmacro

macro Sine()
  %SetInstrument($05)
endmacro

; ==============================================

macro SetChannelVolume(v)
db $ED, <v>
endmacro

macro SetMasterVolume(v)
db $E5, <v>
endmacro

macro SetTempo(v)
db $E7, <v>
endmacro

macro CallSubroutine(addr, repeat)
db $EF
dw <addr>
db <repeat>
endmacro

macro SetPan(v)
db $E1, <v>
endmacro

macro PanFade(length, dest)
db $E2, <length>, <dest>
endmacro

macro VibratoOn(delay, rate, depth)
db $E3, <delay>, <rate>, <depth>
endmacro

macro VibratoOff()
db $E4
endmacro

macro MasterVolumeFade(length, dest)
db $E6, <length>, <dest>
endmacro

macro TempoFade(length, dest)
db $E8, <length>, <dest>
endmacro

macro GlobalTranspose(tone)
db $E9, <tone>
endmacro

macro ChannelTranspose(tone)
db $EA, <tone>
endmacro

macro TremoloOn(delay, rate, depth)
db $EB, <delay>, <rate>, <depth>
endmacro

macro TremoloOff()
db $EC
endmacro

macro ChannelVolumeFade(length, dest)
db $EE, <length>, <dest>
endmacro

macro VibratoFade(length)
db $F0, <length>
endmacro

macro PitchEnvelopeTo(delay, length, key)
db $F1, <delay>, <length>, <key>
endmacro

macro PitchEnvelopeFrom(delay, length, key)
db $F2, <delay>, <length>, <key>
endmacro

macro PitchEnvelopeOff()
db $F3
endmacro

macro Tuning(v)
db $F4, <v>
endmacro

macro EchoVBits(switch, left, right)
db $F5, <switch>, <left>, <right>
endmacro

macro EchoOff()
db $F6
endmacro

macro EchoParams(delay, feedback, filter)
db $F7, <delay>, <feedback>, <filter>
endmacro

macro EchoVolumeFade(length, left, right)
db $F8, <length>, <left>, <right>
endmacro

macro PitchSlide(delay, length, note)
db $F9, <delay>, <length>, <note>
endmacro

macro PercussionPatchBass(instrument)
db $FA, <instrument>
endmacro

; ==============================================

macro PlayQuarterNotes(...)
  if sizeof(...) > 0
    db !4th, <...>
  else
    db !4th
  endif
endmacro

macro PlayEighthNotes(...)
  if sizeof(...) > 0
    db !8th, <...>
  else
    db !8th
  endif
endmacro

macro PlayHalfNotes(...)
  if sizeof(...) > 0
    db !4th, <...>
  else
    db !4th
  endif
  ; db !4th, <note>, $C8
endmacro

macro SustainNoteN(note, num)
  db note
  if num > 1
    db $C8
    %SustainNoteN(note, num - 1)
  endif
endmacro

End = $00
Rest = $C9
Tie = $C8

C1 = $80
C1s = $81
D1 = $82
D1s = $83
E1 = $84
F1 = $85
F1s = $86
G1 = $87
G1s = $88
A1 = $89
A1s = $8A
B1 = $8B

C2 = $8C
C2s = $8D
D2 = $8E
D2s = $8F
E2 = $90
F2 = $91
F2s = $92
G2 = $93
G2s = $94
A2 = $95
A2s = $96
B2 = $97

C3 = $98
C3s = $99
D3 = $9A
D3s = $9B
E3 = $9C
F3 = $9D
F3s = $9E
G3 = $9F
G3s = $A0
A3 = $A1
A3s = $A2
B3 = $A3

C4 = $A4
C4s = $A5
D4 = $A6
D4s = $A7
E4 = $A8
F4 = $A9
F4s = $AA
G4 = $AB
G4s = $AC
A4 = $AD
A4s = $AE
B4 = $AF

C5 = $B0
C5s = $B1
D5 = $B2
D5s = $B3
E5 = $B4
F5 = $B5
F5s = $B6
G5 = $B7
G5s = $B8
A5 = $B9
A5s = $BA
B5 = $BB

C6 = $BC
C6s = $BD
D6 = $BE
D6s = $BF
E6 = $C0
F6 = $C1
F6s = $C2
G6 = $C3
G6s = $C4
A6 = $C5
A6s = $C6
B6 = $C7