350 lines
4.8 KiB
NASM
350 lines
4.8 KiB
NASM
; ==============================================
|
|
; 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 |