Subversion Repositories Kolibri OS

; 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