241 lines
3.3 KiB
NASM
241 lines
3.3 KiB
NASM
macro SetChannelVolume(v)
|
|
db $ED, <v>
|
|
endmacro
|
|
|
|
macro SetMasterVolume(v)
|
|
db $E5, <v>
|
|
endmacro
|
|
|
|
macro SetTempo(v)
|
|
db $E7, <v>
|
|
endmacro
|
|
|
|
; 00 Unknown
|
|
; 01 Rain
|
|
; 02 Tympani
|
|
; 03 Square wave
|
|
; 04 Saw wave
|
|
; 05 Sine wave
|
|
; 06 Double saw wave 1
|
|
; 07 Double save wave 2
|
|
; 08 Tweet
|
|
; 09 Strings
|
|
; 0A Same as 9
|
|
; 0B Trombone
|
|
; 0C Cymbal
|
|
; 0D Ocarina
|
|
; 0E Chime
|
|
; 0F harp
|
|
; 10 Splash
|
|
; 11 Trumpet
|
|
; 12 Horn
|
|
; 13 Snare
|
|
; 14 Same as 13
|
|
; 15 Choir
|
|
; 16 Flute
|
|
; 17 Oof
|
|
; 18 Guitar
|
|
|
|
macro SetInstrument(v)
|
|
db $E0, <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
|
|
|
|
;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
|
|
; To make a whole note you tie 4 1/4 so something like
|
|
;%SetDuration(48)
|
|
;db !C4, !Tie, !Tie, !Tie ; will play a whole note (1/1)
|
|
;db !C4, !Tie ; will play a half note (1/2)
|
|
|
|
macro SetDuration(v) ; $48 = 1/4, $24 = 1/8, $12 = 1/16, $09 = 1/32
|
|
db <v>
|
|
endmacro
|
|
|
|
macro SetDurationN(v, n) ; n default is $7F
|
|
db <v>, <n>
|
|
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 |