forked from KolibriOS/kolibrios
343 lines
11 KiB
NASM
343 lines
11 KiB
NASM
|
; FASM.ASM
|
||
|
|
; --------
|
||
|
|
; uFMOD public source code release. Provided as-is.
|
||
|
|
|
||
|
|
; *** This stub allows compiling uFMOD sources using FASM.
|
||
|
|
|
||
|
|
; *** CONSTANTS ***
|
||
|
|
|
||
|
|
if UF_FREQ eq 44100
|
||
|
|
FSOUND_MixRate = 44100
|
||
|
|
FREQ_40HZ_p = 1DB8Bh
|
||
|
|
FREQ_40HZ_f = 3B7160h
|
||
|
|
PCM_format = 3 ; PCM_2_16_44
|
||
|
|
else
|
||
|
|
if UF_FREQ eq 22050
|
||
|
|
FSOUND_MixRate = 22050
|
||
|
|
FREQ_40HZ_p = 3B716h
|
||
|
|
FREQ_40HZ_f = 76E2C0h
|
||
|
|
PCM_format = 9 ; PCM_2_16_22
|
||
|
|
else
|
||
|
|
if UF_FREQ eq 48000
|
||
|
|
else
|
||
|
|
display 'UF_FREQ not specified (defaulting to 48KHz)',13,10
|
||
|
|
end if
|
||
|
|
FSOUND_MixRate = 48000
|
||
|
|
FREQ_40HZ_p = 1B4E8h
|
||
|
|
FREQ_40HZ_f = 369D00h
|
||
|
|
PCM_format = 1 ; PCM_2_16_48
|
||
|
|
end if
|
||
|
|
end if
|
||
|
|
|
||
|
|
if UF_RAMP eq NONE
|
||
|
|
RAMP_NONE = 1
|
||
|
|
RAMP_WEAK = 0
|
||
|
|
RAMP_STRONG = 0
|
||
|
|
else
|
||
|
|
if UF_RAMP eq WEAK
|
||
|
|
RAMP_NONE = 0
|
||
|
|
RAMP_WEAK = 1
|
||
|
|
RAMP_STRONG = 0
|
||
|
|
else
|
||
|
|
if UF_RAMP eq STRONG
|
||
|
|
else
|
||
|
|
display 'UF_RAMP not specified (defaulting to STRONG)',13,10
|
||
|
|
end if
|
||
|
|
RAMP_NONE = 0
|
||
|
|
RAMP_WEAK = 0
|
||
|
|
RAMP_STRONG = 1
|
||
|
|
end if
|
||
|
|
end if
|
||
|
|
|
||
|
|
UCODE equ 0
|
||
|
|
|
||
|
|
if UF_MODE eq UNSAFE
|
||
|
|
display 'WARNING! Unsafe mod is ON. Library may crash while loading damaged XM tracks!',13,10
|
||
|
|
CHK4VALIDITY = 0
|
||
|
|
AC97SND_ON = 0
|
||
|
|
else
|
||
|
|
CHK4VALIDITY = 1
|
||
|
|
if UF_MODE eq AC97SND
|
||
|
|
AC97SND_ON = 1
|
||
|
|
else
|
||
|
|
AC97SND_ON = 0
|
||
|
|
end if
|
||
|
|
end if
|
||
|
|
|
||
|
|
if NOLINKER
|
||
|
|
else
|
||
|
|
format MS COFF
|
||
|
|
section '.text' code readable executable
|
||
|
|
end if
|
||
|
|
|
||
|
|
; *** STRUCTS ***
|
||
|
|
|
||
|
|
; Sample type - contains info on sample
|
||
|
|
struc FSOUND_SAMPLE{
|
||
|
|
|
||
|
|
; Don't change order .:.
|
||
|
|
._length dd ? ; sample length
|
||
|
|
.loopstart dd ? ; loop start
|
||
|
|
.looplen dd ? ; loop length
|
||
|
|
.defvol db ? ; default volume
|
||
|
|
.finetune db ? ; finetune value from -128 to 127
|
||
|
|
.bytes db ? ; type [b 0-1] : 0 - no loop
|
||
|
|
; 1 - forward loop
|
||
|
|
; 2 - bidirectional loop (aka ping-pong)
|
||
|
|
; [b 4] : 0 - 8-bit sample data
|
||
|
|
; 1 - 16-bit sample data
|
||
|
|
.defpan db ? ; default pan value from 0 to 255
|
||
|
|
.relative db ? ; relative note (signed value)
|
||
|
|
.Resved db ? ; reserved, known values: 00h - regular delta packed sample data
|
||
|
|
; ADh - ModPlug 4-bit ADPCM packed sample data
|
||
|
|
; .:.
|
||
|
|
|
||
|
|
.loopmode db ?
|
||
|
|
._align db ?
|
||
|
|
.buff db ?,? ; sound data
|
||
|
|
}
|
||
|
|
virtual at 0
|
||
|
|
FSOUND_SAMPLE FSOUND_SAMPLE
|
||
|
|
FSOUND_SAMPLE_size = $-FSOUND_SAMPLE
|
||
|
|
end virtual
|
||
|
|
|
||
|
|
|
||
|
|
; Channel type - contains information on a mixing channel
|
||
|
|
struc FSOUND_CHANNEL{
|
||
|
|
.actualvolume dd ? ; driver level current volume
|
||
|
|
.actualpan dd ? ; driver level panning value
|
||
|
|
.fsampleoffset dd ? ; sample offset (sample starts playing from here)
|
||
|
|
.leftvolume dd ? ; mixing information. adjusted volume for left channel (panning involved)
|
||
|
|
.rightvolume dd ? ; mixing information. adjusted volume for right channel (panning involved)
|
||
|
|
.mixpos dd ? ; mixing information. high part of 32:32 fractional position in sample
|
||
|
|
.speedlo dd ? ; mixing information. playback rate - low part fractional
|
||
|
|
.speedhi dd ? ; mixing information. playback rate - high part fractional
|
||
|
|
.ramp_lefttarget dw ?
|
||
|
|
.ramp_righttarget dw ?
|
||
|
|
.ramp_leftspeed dd ?
|
||
|
|
.ramp_rightspeed dd ?
|
||
|
|
|
||
|
|
; Don't change order .:.
|
||
|
|
.fsptr dd ? ; pointer to FSOUND_SAMPLE currently playing sample
|
||
|
|
.mixposlo dd ? ; mixing information. low part of 32:32 fractional position in sample
|
||
|
|
.ramp_leftvolume dd ?
|
||
|
|
.ramp_rightvolume dd ?
|
||
|
|
.ramp_count dw ?
|
||
|
|
.speeddir db ?,? ; mixing information. playback direction - forwards or backwards
|
||
|
|
; .:.
|
||
|
|
|
||
|
|
}
|
||
|
|
virtual at 0
|
||
|
|
FSOUND_CHANNEL FSOUND_CHANNEL
|
||
|
|
FSOUND_CHANNEL_size = $-FSOUND_CHANNEL
|
||
|
|
end virtual
|
||
|
|
|
||
|
|
; Single note type - contains info on 1 note in a pattern
|
||
|
|
struc FMUSIC_NOTE{
|
||
|
|
.unote db ? ; note to play at (0-97) 97=keyoff
|
||
|
|
.number db ? ; sample being played (0-128)
|
||
|
|
.uvolume db ? ; volume column value (0-64) 255=no volume
|
||
|
|
.effect db ? ; effect number (0-1Ah)
|
||
|
|
.eparam db ? ; effect parameter (0-255)
|
||
|
|
}
|
||
|
|
virtual at 0
|
||
|
|
FMUSIC_NOTE FMUSIC_NOTE
|
||
|
|
FMUSIC_NOTE_size = $-FMUSIC_NOTE
|
||
|
|
end virtual
|
||
|
|
|
||
|
|
; Pattern data type
|
||
|
|
struc FMUSIC_PATTERN{
|
||
|
|
.rows dw ?
|
||
|
|
.patternsize dw ?
|
||
|
|
.data dd ? ; pointer to FMUSIC_NOTE
|
||
|
|
}
|
||
|
|
virtual at 0
|
||
|
|
FMUSIC_PATTERN FMUSIC_PATTERN
|
||
|
|
FMUSIC_PATTERN_size = $-FMUSIC_PATTERN
|
||
|
|
end virtual
|
||
|
|
|
||
|
|
; Multi sample extended instrument
|
||
|
|
struc FMUSIC_INSTRUMENT{
|
||
|
|
.sample rd 16 ; 16 pointers to FSOUND_SAMPLE per instrument
|
||
|
|
|
||
|
|
; Don't change order .:.
|
||
|
|
.keymap rb 96 ; sample keymap assignments
|
||
|
|
.VOLPoints rw 24 ; volume envelope points
|
||
|
|
.PANPoints rw 24 ; panning envelope points
|
||
|
|
.VOLnumpoints db ? ; number of volume envelope points
|
||
|
|
.PANnumpoints db ? ; number of panning envelope points
|
||
|
|
.VOLsustain db ? ; volume sustain point
|
||
|
|
.VOLLoopStart db ? ; volume envelope loop start
|
||
|
|
.VOLLoopEnd db ? ; volume envelope loop end
|
||
|
|
.PANsustain db ? ; panning sustain point
|
||
|
|
.PANLoopStart db ? ; panning envelope loop start
|
||
|
|
.PANLoopEnd db ? ; panning envelope loop end
|
||
|
|
.VOLtype db ? ; type of envelope,bit 0:On 1:Sustain 2:Loop
|
||
|
|
.PANtype db ? ; type of envelope,bit 0:On 1:Sustain 2:Loop
|
||
|
|
.VIBtype db ? ; instrument vibrato type
|
||
|
|
.VIBsweep db ? ; time it takes for vibrato to fully kick in
|
||
|
|
.iVIBdepth db ? ; depth of vibrato
|
||
|
|
.VIBrate db ? ; rate of vibrato
|
||
|
|
.VOLfade dw ? ; fade out value
|
||
|
|
; .:.
|
||
|
|
|
||
|
|
}
|
||
|
|
virtual at 0
|
||
|
|
FMUSIC_INSTRUMENT FMUSIC_INSTRUMENT
|
||
|
|
FMUSIC_INSTRUMENT_size = $-FMUSIC_INSTRUMENT
|
||
|
|
end virtual
|
||
|
|
|
||
|
|
; Channel type - contains information on a mod channel
|
||
|
|
struc FMUSIC_CHANNEL{
|
||
|
|
.note db ? ; last note set in channel
|
||
|
|
.samp db ? ; last sample set in channel
|
||
|
|
.notectrl db ? ; flags for DoFlags proc
|
||
|
|
.inst db ? ; last instrument set in channel
|
||
|
|
.cptr dd ? ; pointer to FSOUND_CHANNEL system mixing channel
|
||
|
|
.freq dd ? ; current mod frequency period for this channel
|
||
|
|
.volume dd ? ; current mod volume for this channel
|
||
|
|
.voldelta dd ? ; delta for volume commands... tremolo/tremor, etc
|
||
|
|
.freqdelta dd ? ; delta for frequency commands... vibrato/arpeggio, etc
|
||
|
|
.pan dd ? ; current mod pan for this channel
|
||
|
|
|
||
|
|
; Don't change order .:.
|
||
|
|
.envvoltick dd ? ; tick counter for envelope position
|
||
|
|
.envvolpos dd ? ; envelope position
|
||
|
|
.envvoldelta dd ? ; delta step between points
|
||
|
|
.envpantick dd ? ; tick counter for envelope position
|
||
|
|
.envpanpos dd ? ; envelope position
|
||
|
|
.envpandelta dd ? ; delta step between points
|
||
|
|
.ivibsweeppos dd ? ; instrument vibrato sweep position
|
||
|
|
.ivibpos dd ? ; instrument vibrato position
|
||
|
|
.keyoff db ?,? ; flag whether keyoff has been hit or not
|
||
|
|
.envvolstopped db ? ; flag to say whether envelope has finished or not
|
||
|
|
.envpanstopped db ? ; flag to say whether envelope has finished or not
|
||
|
|
; .:.
|
||
|
|
|
||
|
|
.envvolfrac dd ? ; fractional interpolated envelope volume
|
||
|
|
.envvol dd ? ; final interpolated envelope volume
|
||
|
|
.fadeoutvol dd ? ; volume fade out
|
||
|
|
.envpanfrac dd ? ; fractional interpolated envelope pan
|
||
|
|
.envpan dd ? ; final interpolated envelope pan
|
||
|
|
.period dd ? ; last period set in channel
|
||
|
|
.sampleoffset dd ? ; sample offset for this channel in SAMPLES
|
||
|
|
.portatarget dd ? ; note to porta to
|
||
|
|
.patloopno db ?,?,?,? ; pattern loop variables for effect E6x
|
||
|
|
.patlooprow dd ?
|
||
|
|
.realnote db ? ; last realnote set in channel
|
||
|
|
.recenteffect db ? ; previous row's effect... used to correct tremolo volume
|
||
|
|
.portaupdown db ? ; last porta up/down value
|
||
|
|
db ? ; unused
|
||
|
|
.xtraportadown db ? ; last porta down value
|
||
|
|
.xtraportaup db ? ; last porta up value
|
||
|
|
.volslide db ? ; last volume slide value
|
||
|
|
.panslide db ? ; pan slide parameter
|
||
|
|
.retrigx db ? ; last retrig volume slide used
|
||
|
|
.retrigy db ? ; last retrig tick count used
|
||
|
|
.portaspeed db ? ; porta speed
|
||
|
|
.vibpos db ? ; vibrato position
|
||
|
|
.vibspeed db ? ; vibrato speed
|
||
|
|
.vibdepth db ? ; vibrato depth
|
||
|
|
.tremolopos db ? ; tremolo position
|
||
|
|
.tremolospeed db ? ; tremolo speed
|
||
|
|
.tremolodepth db ? ; tremolo depth
|
||
|
|
.tremorpos db ? ; tremor position
|
||
|
|
.tremoron db ? ; remembered parameters for tremor
|
||
|
|
.tremoroff db ? ; remembered parameters for tremor
|
||
|
|
.wavecontrol db ? ; waveform type for vibrato and tremolo (4bits each)
|
||
|
|
.finevslup db ? ; parameter for fine volume slide down
|
||
|
|
.fineportaup db ? ; parameter for fine porta slide up
|
||
|
|
.fineportadown db ? ; parameter for fine porta slide down
|
||
|
|
}
|
||
|
|
virtual at 0
|
||
|
|
FMUSIC_CHANNEL FMUSIC_CHANNEL
|
||
|
|
FMUSIC_CHANNEL_size = $-FMUSIC_CHANNEL
|
||
|
|
end virtual
|
||
|
|
|
||
|
|
; Song type - contains info on song
|
||
|
|
struc FMUSIC_MODULE{
|
||
|
|
|
||
|
|
; Don't change order .:.
|
||
|
|
.pattern dd ? ; pointer to FMUSIC_PATTERN array for this song
|
||
|
|
.instrument dd ? ; pointer to FMUSIC_INSTRUMENT array for this song
|
||
|
|
.mixer_samplesleft dd ?
|
||
|
|
.globalvolume dd ? ; global mod volume
|
||
|
|
.tick dd ? ; current mod tick
|
||
|
|
.speed dd ? ; speed of song in ticks per row
|
||
|
|
.order dd ? ; current song order position
|
||
|
|
.row dd ? ; current row in pattern
|
||
|
|
.patterndelay dd ? ; pattern delay counter
|
||
|
|
.nextorder dd ? ; current song order position
|
||
|
|
.nextrow dd ? ; current row in pattern
|
||
|
|
.unused1 dd ?
|
||
|
|
.numchannels dd ? ; number of channels
|
||
|
|
.Channels dd ? ; channel pool
|
||
|
|
.uFMOD_Ch dd ? ; channel array for this song
|
||
|
|
.mixer_samplespertick dd ?
|
||
|
|
.numorders dw ? ; number of orders (song length)
|
||
|
|
.restart dw ? ; restart position
|
||
|
|
.numchannels_xm db ?
|
||
|
|
.globalvsl db ? ; global mod volume
|
||
|
|
.numpatternsmem dw ? ; number of allocated patterns
|
||
|
|
.numinsts dw ? ; number of instruments
|
||
|
|
.flags dw ? ; flags such as linear frequency, format specific quirks, etc
|
||
|
|
.defaultspeed dw ?
|
||
|
|
.defaultbpm dw ?
|
||
|
|
.orderlist rb 256 ; pattern playing order list
|
||
|
|
; .:.
|
||
|
|
|
||
|
|
}
|
||
|
|
virtual at 0
|
||
|
|
FMUSIC_MODULE FMUSIC_MODULE
|
||
|
|
FMUSIC_MODULE_size = $-FMUSIC_MODULE
|
||
|
|
end virtual
|
||
|
|
|
||
|
|
OFFSET equ
|
||
|
|
PTR equ
|
||
|
|
endif equ end if
|
||
|
|
|
||
|
|
include 'ufmod.asm'
|
||
|
|
include 'core.asm'
|
||
|
|
|
||
|
|
if NOLINKER
|
||
|
|
uFMOD_IMG_END: ; End of uFMOD's code. BSS follows.
|
||
|
|
align 16
|
||
|
|
else
|
||
|
|
section '.bss' readable writeable align 16
|
||
|
|
end if
|
||
|
|
|
||
|
|
; Don't change order!
|
||
|
|
_mod rb FMUSIC_MODULE_size ; currently playing track
|
||
|
|
mmt rd 3
|
||
|
|
ufmod_heap dd ?
|
||
|
|
dd ? ; unused
|
||
|
|
if AC97SND_ON
|
||
|
|
extrn hSound
|
||
|
|
dd ?
|
||
|
|
else
|
||
|
|
hSound dd ?
|
||
|
|
endif
|
||
|
|
hBuff dd ?
|
||
|
|
SW_Exit dd ?
|
||
|
|
; mix buffer memory block (align 16!)
|
||
|
|
MixBuf rb FSOUND_BlockSize*8
|
||
|
|
ufmod_noloop db ?
|
||
|
|
ufmod_pause_ db ?
|
||
|
|
mix_endflag rb 2
|
||
|
|
mmf rd 4
|
||
|
|
ufmod_vol dd ? ; global volume scale
|
||
|
|
; * LPCALLBACKS *
|
||
|
|
uFMOD_fopen dd ?
|
||
|
|
uFMOD_fread dd ?
|
||
|
|
file_struct rd 7
|
||
|
|
cache_offset dd ?
|
||
|
|
if INFO_API_ON
|
||
|
|
time_ms dd ?
|
||
|
|
L_vol dw ? ; L channel RMS volume
|
||
|
|
R_vol dw ? ; R channel RMS volume
|
||
|
|
s_row dw ?
|
||
|
|
s_order dw ?
|
||
|
|
szTtl rb 24
|
||
|
|
end if
|
||
|
|
DummySamp rb FSOUND_SAMPLE_size
|