forked from KolibriOS/kolibrios
1085 lines
24 KiB
NASM
1085 lines
24 KiB
NASM
;---------------------------------------------------------------------
|
|
;
|
|
; MenuetOS AC97 WAV Player
|
|
;
|
|
; 0.03 November 10, 2004 doesn't halt if file not found
|
|
; 0.04 November 11, 2004 better positioning (with mouse)
|
|
; 0.05 November 14, 2004 internals clean up
|
|
; fixed cutting sound at the edges
|
|
; 0.06 November 17, 2004 fixed many bugs
|
|
; 0.07 Nov 20, 2004 deactivates text box when 'play' pressed
|
|
; stops playing before closing a window
|
|
; 0.08 Nov 24, 2004 added support for 8bit and mono modes
|
|
; +variable rate for some chipsets
|
|
;
|
|
; Use [flat assembler 1.56] to compile.
|
|
;
|
|
;---------------------------------------------------------------------
|
|
|
|
use32 ; turn on 32 bit mode
|
|
org 0x0 ; the program is placed at 0 offset
|
|
|
|
db 'MENUET01' ; 8-byte identifier of MenuetOS application
|
|
dd 0x01 ; header version (always 1)
|
|
dd START ; address of the beginning of the code
|
|
dd IMAGE_END ; size of the program's image
|
|
dd MEMORY_END ; how much memory does it need
|
|
dd STACK_P ; a pointer to the top of the stack
|
|
dd textbox_string
|
|
; dd 0x0 ; address of buffer for parameters (not used)
|
|
dd 0x0 ; reserved
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
include "lang.inc"
|
|
include "macros.inc" ; standart macros & constants
|
|
include "meosfunc.inc" ; MenuetOS API functions names
|
|
include "debug.inc" ; printing to debug board
|
|
include "constant.inc" ; BIT?? constants
|
|
include "ac97.inc" ; AC'97 constants
|
|
include "pci.inc" ; PCI interface
|
|
include "codec.inc" ; functions for configuring codec
|
|
include "frontend.inc" ; main window
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
; Uncomment these strings if you don't want to receive debug messages:
|
|
|
|
; macro dps str {} ; dps prints a string without CRLF
|
|
; macro dpd num {} ; prints unsigned decimal number
|
|
; macro pregs {} ; outputs EAX, EBX, ECX, EDX
|
|
; macro newline {} ; CRLF
|
|
; macro print str {} ; output a string with CRLF
|
|
; macro dph arg {} ; print hex number
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
;macro device id, addr { dd id, addr }
|
|
macro devices [id, str]
|
|
{
|
|
common
|
|
label supported_devices dword
|
|
forward
|
|
local string
|
|
dd id
|
|
dd string
|
|
forward
|
|
string db str
|
|
db 0
|
|
}
|
|
|
|
|
|
devices \
|
|
(ICH_DID shl 16) + INTEL_VID, "ICH" ,\
|
|
(ICH0_DID shl 16) + INTEL_VID, "ICH0" ,\
|
|
(ICH2_DID shl 16) + INTEL_VID, "ICH2" ,\
|
|
(ICH3_DID shl 16) + INTEL_VID, "ICH2" ,\
|
|
(ICH4_DID shl 16) + INTEL_VID, "ICH4" ,\
|
|
(ICH5_DID shl 16) + INTEL_VID, "ICH5" ,\
|
|
(MX440_DID shl 16) + INTEL_VID, "440MX" ,\
|
|
(SI7012_DID shl 16) + SIS_VID, "SI7012" ,\
|
|
(NFORCE_DID shl 16) + NVIDIA_VID, "NForce" ,\
|
|
(NFORCE2_DID shl 16) + NVIDIA_VID, "NForce2",\
|
|
(AMD8111_DID shl 16) + AMD_VID, "AMD8111",\
|
|
(AMD768_DID shl 16) + AMD_VID, "AMD768"
|
|
dd 0
|
|
|
|
|
|
;---------------------------------------------------------------------
|
|
;--- MAIN PROGRAM --------------------------------------------------
|
|
;---------------------------------------------------------------------
|
|
|
|
START:
|
|
|
|
; Print PCI version (for example, 2.16)
|
|
; mcall MF_PCI, 0
|
|
; mov bl, al
|
|
; movzx eax, ah
|
|
; dps "PCI version: "
|
|
; dpd eax
|
|
; movzx eax, bl
|
|
; dpd eax
|
|
; newline
|
|
|
|
; Check PCI access mechanism (must be 1 or 2)
|
|
mcall MF_PCI, 2
|
|
dec al
|
|
cmp al, 1
|
|
jna @f
|
|
print "Error: cannot access PCI bus."
|
|
jmp exit
|
|
; dps "PCI returned "
|
|
; movzx eax, al
|
|
; dpd eax
|
|
; newline
|
|
@@:
|
|
|
|
|
|
; Get last bus & then check all buses & devices
|
|
mcall MF_PCI, 1
|
|
mov [lastbus], al
|
|
|
|
; looking for a compatible device
|
|
mov [bus], -1
|
|
.next_bus:
|
|
inc [bus]
|
|
|
|
mov al, [lastbus]
|
|
cmp al, [bus]
|
|
jb .device_not_found
|
|
|
|
mov [devfn], 0
|
|
.next_devfn:
|
|
|
|
mov cl, 0
|
|
call pciRegRead32
|
|
|
|
mov edi, supported_devices
|
|
@@:
|
|
mov ebx, [edi]
|
|
test ebx, ebx
|
|
jz @f
|
|
cmp eax, ebx
|
|
jnz .skip
|
|
add edi, 4
|
|
mov [device_id], eax
|
|
mov edx, [edi]
|
|
call debug_outstr
|
|
jmp proceed
|
|
.skip:
|
|
add edi, 8
|
|
jmp @b
|
|
@@:
|
|
|
|
inc [devfn]
|
|
cmp [devfn], 255
|
|
jb .next_devfn
|
|
|
|
jmp .next_bus
|
|
|
|
|
|
.device_not_found:
|
|
print "Could not find Intel AC'97 compatible codec!"
|
|
print "1) Check if it's enabled in BIOS."
|
|
print "2) Check if your device is included in the device list."
|
|
jmp exit
|
|
|
|
|
|
proceed:
|
|
print " integrated AC97 audio codec detected."
|
|
mov eax, [device_id]
|
|
cmp eax, (ICH4_DID shl 16) + INTEL_VID
|
|
je .newich
|
|
cmp eax, (ICH5_DID shl 16) + INTEL_VID
|
|
jne .nonewich
|
|
.newich:
|
|
mov [AC97ICH4], 1
|
|
.nonewich:
|
|
|
|
cmp eax, (SI7012_DID shl 16) + SIS_VID
|
|
jne @f
|
|
mov [SI7012], 1
|
|
@@:
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
; Get NAMBAR register base port address & save it
|
|
mov cl, NAMBAR_REG
|
|
call pciRegRead16
|
|
|
|
and eax, 0xFFFE
|
|
mov [NAMBAR], ax
|
|
test eax, eax
|
|
jnz .mixer_base_ok
|
|
|
|
print "Error: Intel ICH based AC97 audio codec disabled in BIOS!"
|
|
jmp exit
|
|
|
|
.mixer_base_ok:
|
|
dps "NAMBAR: "
|
|
dph eax
|
|
|
|
; Get NABMBAR & save it
|
|
mov cl, NABMBAR_REG
|
|
call pciRegRead16
|
|
and eax, 0xFFC0
|
|
mov [NABMBAR], ax
|
|
test eax, eax
|
|
jnz .bm_base_ok
|
|
|
|
print "Error: Intel ICH based AC97 audio codec disabled in BIOS!"
|
|
jmp exit
|
|
|
|
.bm_base_ok:
|
|
dps " NABMBAR: "
|
|
dph eax
|
|
newline
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
; Get IRQ (not used)
|
|
mov cl, IRQ_REG
|
|
call pciRegRead8
|
|
mov [AC97IRQ], al
|
|
|
|
; Get Interrupt pin (not used)
|
|
mov cl, INT_REG
|
|
call pciRegRead8
|
|
mov [AC97INT], al
|
|
|
|
; AC97ICH4 should work then...
|
|
cmp [AC97ICH4], 1
|
|
jne .skip_ich4_init
|
|
|
|
mov cl, ICH4_CFG_REG ; 0x41
|
|
call pciRegRead8
|
|
or al, 0x1
|
|
mov dl, al
|
|
call pciRegWrite8
|
|
|
|
mov cl, 0x54
|
|
call pciRegRead16
|
|
and eax, 0xFFFF
|
|
dps "Power Control & Status: "
|
|
dph eax
|
|
newline
|
|
.skip_ich4_init:
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
mov cl, PCI_CMD_REG
|
|
call pciRegRead16 ; read PCI command register
|
|
mov dx, ax
|
|
or dx, IO_ENA+BM_ENA+BIT10 ; enable IO and bus master + disable
|
|
; interrupts
|
|
call pciRegWrite16
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
print "Enabling access to ports..."
|
|
|
|
movzx ecx, [NAMBAR]
|
|
mov edx, ecx
|
|
add edx, NAM_SIZE
|
|
mcall MF_PORTS, PRT_RESERVE
|
|
test eax, eax
|
|
jz @f
|
|
print "Error: couldn't enable access to ports"
|
|
jmp exit
|
|
@@:
|
|
|
|
movzx ecx, [NABMBAR]
|
|
mov edx, ecx
|
|
add edx, NABM_SIZE
|
|
mcall MF_PORTS, PRT_RESERVE
|
|
test eax, eax
|
|
jz @f
|
|
print "Error: couldn't enable access to ports"
|
|
jmp exit
|
|
@@:
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
; setup the Codec
|
|
mov eax, 48000
|
|
call codecConfig ; unmute codec, set rates.
|
|
test eax, eax
|
|
jnz @f
|
|
print "Error: cannot initialize AC97 device."
|
|
jmp fpexit
|
|
@@:
|
|
|
|
print "Congrutalations! Your device has been initialized properly!"
|
|
call print_info
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
; register reset the DMA engine.
|
|
mov edx, PO_CR_REG ; PCM out control register
|
|
mov al, RR ; reset
|
|
call NABMBAR_write_byte
|
|
|
|
;start fix for MM (1)
|
|
mcall MF_INTERNAL_SERVICES,ALLOC_PHYS_MEM,120*1024
|
|
test eax,eax
|
|
jz no_phys_buffers ;not enough memory
|
|
mov [phys_wav_buffer1],eax
|
|
add eax,60*1024
|
|
mov [phys_wav_buffer2],eax
|
|
mcall MF_INTERNAL_SERVICES,ALLOC_PHYS_MEM,32*8
|
|
test eax,eax
|
|
jnz @f
|
|
mcall MF_INTERNAL_SERVICES,FREE_PHYS_MEM,[phys_wav_buffer1]
|
|
jmp no_phys_buffers
|
|
@@:
|
|
mov [phys_bdl_buffer],eax
|
|
;end fix for MM (1)
|
|
|
|
; create Buffer Descriptors List
|
|
call prepare_BDL
|
|
|
|
; open player's window
|
|
mcall MF_THREAD, THR_CREATE, thread, thread_stack
|
|
|
|
; wait for command
|
|
.new_check:
|
|
cmp [status], ST_PLAY
|
|
jne @f
|
|
call play
|
|
@@:
|
|
cmp [status], ST_STOP
|
|
jne @f
|
|
call stop
|
|
@@:
|
|
cmp [status], ST_EXIT
|
|
je stopexit
|
|
|
|
mcall MF_DELAY, 10
|
|
jmp .new_check
|
|
|
|
stopexit:
|
|
call stop
|
|
|
|
fpexit:
|
|
|
|
; free ports
|
|
movzx ecx, [NAMBAR]
|
|
mov edx, ecx
|
|
add edx, NAM_SIZE
|
|
mcall MF_PORTS, PRT_FREE
|
|
|
|
movzx ecx, [NABMBAR]
|
|
mov edx, ecx
|
|
add edx, NABM_SIZE
|
|
mcall MF_PORTS, PRT_FREE
|
|
|
|
;---------------------------------------------------------------------
|
|
;start fix for MM (2)
|
|
mcall MF_INTERNAL_SERVICES,FREE_PHYS_MEM,[phys_bdl_buffer]
|
|
mcall MF_INTERNAL_SERVICES,FREE_PHYS_MEM,[phys_wav_buffer1]
|
|
;end fix for MM (2)
|
|
exit:
|
|
mcall MF_EXIT
|
|
no_phys_buffers:
|
|
print "allocation of physical buffers failed"
|
|
jmp exit
|
|
|
|
;---------------------------------------------------------------------
|
|
;--- FUNCTIONS -----------------------------------------------------
|
|
;---------------------------------------------------------------------
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; prepare_BDL - initializes BUFFER DESCRIPTORS LIST
|
|
prepare_BDL:
|
|
mov ecx, 32 / 2 ; make 32 entries in BDL
|
|
mov edi, BDL_BUFFER
|
|
; call get_my_address
|
|
mov ebx, 30*1024
|
|
cmp [SI7012], 1
|
|
jne @f
|
|
add ebx, ebx
|
|
@@:
|
|
; set buf. desc. 0 to start of data file in memory
|
|
push eax
|
|
; add eax, WAV_BUFFER1
|
|
;start fix for MM (6)
|
|
mov eax,[phys_wav_buffer1]
|
|
;end fix for MM (6)
|
|
stosd
|
|
; set length to 60k samples. 1 sample is 16 bit or 2 bytes.
|
|
mov eax, ebx ;60*1024 ; number of samples
|
|
or eax, BUP
|
|
stosd
|
|
|
|
mov eax, [esp]
|
|
; add eax, WAV_BUFFER2
|
|
;start fix for MM (7)
|
|
mov eax,[phys_wav_buffer2]
|
|
;end fix for MM (7)
|
|
stosd
|
|
mov eax, ebx ;60*1024
|
|
or eax, BUP
|
|
stosd
|
|
|
|
pop eax
|
|
loop @b
|
|
|
|
|
|
; tell the DMA engine where to find our list of Buffer Descriptors.
|
|
; eax = base addr!
|
|
;start fix for MM (3)
|
|
;copy to physical memory
|
|
mcall MF_INTERNAL_SERVICES,SET_PHYS_BUFFER,[phys_bdl_buffer],BDL_BUFFER,32*8
|
|
;physical address of bdl
|
|
mov eax,[phys_bdl_buffer]
|
|
;end fix for MM (3)
|
|
mov edx, PO_BDBAR_REG
|
|
; add eax, BDL_BUFFER
|
|
call NABMBAR_write_dword
|
|
|
|
ret
|
|
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; stop - stops current music
|
|
;; in: nothing
|
|
;; out: nothing
|
|
stop:
|
|
; print "STOP!"
|
|
push eax edx
|
|
|
|
mcall MF_DELAY, 10
|
|
mov edx, PO_CR_REG
|
|
mov al, 0
|
|
call NABMBAR_write_byte
|
|
cmp [status], ST_STOP
|
|
jne .exit
|
|
mov [status], ST_DONE
|
|
.exit:
|
|
|
|
pop edx eax
|
|
ret
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; play - plays wav file!
|
|
;; in: nothing
|
|
;; out: nothing (but sound :) !corrupts registers!
|
|
play:
|
|
; at first, reset file
|
|
mov [fileinfo.first_block], 0
|
|
mcall MF_SYSTREE, fileinfo ; load a block, returns error code in eax
|
|
; and size of the file in ebx
|
|
test eax, eax ; 0 - successful
|
|
jz @f
|
|
print "AC97: File not found!"
|
|
mov [status], ST_STOP
|
|
jmp .exit
|
|
@@:
|
|
shr ebx, 9 ; size_of_file / 512 = number_of_blocks
|
|
mov [file_size], ebx
|
|
|
|
|
|
mov al, [LOAD_BUFFER+32] ; bytes per sample
|
|
dec al
|
|
jz @f
|
|
cmp al, 3
|
|
je @f
|
|
sub al, [LOAD_BUFFER+22] ; channels
|
|
add al, 2
|
|
@@:
|
|
mov [wav_mode], al
|
|
|
|
pusha
|
|
movzx ebx,word [LOAD_BUFFER+24]
|
|
mov eax,48000
|
|
xor edx,edx
|
|
div ebx
|
|
mov [difference_of_frequency],al
|
|
; dph eax
|
|
mov ecx,edx
|
|
imul eax,ecx,10
|
|
xor edx,edx
|
|
div ebx
|
|
mov ecx,edx
|
|
imul ecx,10
|
|
push eax
|
|
mov eax,ecx
|
|
xor edx,edx
|
|
div ebx
|
|
; dph eax
|
|
cmp eax,5
|
|
jl .temp_15
|
|
pop eax
|
|
; dph eax
|
|
|
|
inc eax
|
|
jmp .temp_16
|
|
.temp_15:
|
|
pop eax
|
|
.temp_16:
|
|
mov [difference_of_frequency_1],al
|
|
; dph eax
|
|
xor edx,edx
|
|
movzx ebx,[difference_of_frequency]
|
|
imul ebx,10
|
|
add bl,[difference_of_frequency_1]
|
|
mov [difference_of_frequency_2],bl
|
|
; dph ebx
|
|
popa
|
|
|
|
movzx eax, word [LOAD_BUFFER+24]
|
|
;dps "Freq: "
|
|
;dpd eax
|
|
;newline
|
|
call set_sample_rate
|
|
|
|
|
|
; change the last_valid_index to the (current_index-1)
|
|
; the LVI register tells the DMA engine where to stop playing
|
|
call updateLVI
|
|
|
|
; if current index is odd, load buffer 1 then 0, jump to tuneLoop
|
|
; if it is even, buffers 0 then 1; tuneLoop1
|
|
call getCurrentIndex
|
|
and eax, BIT0
|
|
|
|
mov esi, eax
|
|
push eax
|
|
call update_next_buffer
|
|
pop eax
|
|
xor eax, 1
|
|
call update_next_buffer
|
|
|
|
; start playing!
|
|
mov edx, PO_CR_REG
|
|
mov al, RPBM
|
|
call NABMBAR_write_byte
|
|
|
|
jmp [jumpto+esi*4]
|
|
|
|
|
|
.tuneLoop:
|
|
; wait while the current_index is even
|
|
@@:
|
|
; dps "a"
|
|
mcall MF_DELAY, 7
|
|
call getCurrentIndex
|
|
test al, BIT0
|
|
jz @b ; loop if not ready yet
|
|
; print "fa"
|
|
|
|
call updateLVI
|
|
|
|
mov eax, 0
|
|
call update_next_buffer
|
|
test al, al
|
|
jnz .exit_wait
|
|
|
|
cmp [status], ST_PLAY
|
|
jne .exit
|
|
|
|
test [volume], 0x10000000 ; test volume_changed bit
|
|
je @f
|
|
mov al, byte [volume]
|
|
call setVolume
|
|
and [volume], 0x0FFFFFFF ; clear vloume_changed bit
|
|
@@:
|
|
|
|
.tuneLoop1:
|
|
@@:
|
|
; dps "b"
|
|
mcall MF_DELAY, 7
|
|
call getCurrentIndex
|
|
test al, BIT0
|
|
jnz @b ; loop if not ready yet
|
|
; print "fb"
|
|
|
|
cmp [status], ST_PLAY
|
|
jne .exit
|
|
|
|
call updateLVI
|
|
|
|
mov eax, 1
|
|
call update_next_buffer
|
|
test al, al
|
|
jnz .exit_wait
|
|
|
|
jmp .tuneLoop
|
|
.exit_wait:
|
|
mcall MF_DELAY, 30 ; a little pause - let the player finish
|
|
.exit:
|
|
ret
|
|
attempts db 0
|
|
|
|
buffers dd WAV_BUFFER1, WAV_BUFFER2
|
|
jumpto dd play.tuneLoop, play.tuneLoop1
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; update_first_buffer - load a chunk into the first buffer, increments offset
|
|
;; in: eax = number - 0 or 1
|
|
;; out: error code, 0 - successful
|
|
update_next_buffer:
|
|
push esi edi
|
|
|
|
movzx edx, byte [wav_mode]
|
|
mov ecx, [blocks + edx * 4]
|
|
mov [fileinfo.blocks], ecx
|
|
|
|
mov esi, LOAD_BUFFER
|
|
mov edi, [buffers+eax*4]
|
|
push eax ;save buffer index
|
|
start_attempts:
|
|
mcall MF_SYSTREE, fileinfo
|
|
test eax, eax
|
|
jz @f
|
|
cmp [attempts],100
|
|
je @f
|
|
inc [attempts]
|
|
jmp start_attempts
|
|
dpd eax
|
|
newline
|
|
dpd [fileinfo.first_block]
|
|
newline
|
|
@@:
|
|
; print " loaded!"
|
|
|
|
push eax ebx edx
|
|
mov eax,ecx
|
|
xor edx,edx
|
|
imul eax,10
|
|
movzx ebx,[difference_of_frequency_2]
|
|
|
|
div ebx
|
|
mov ecx,eax
|
|
|
|
; mov ebx,10
|
|
; mov eax,edx
|
|
; xor edx,edx
|
|
; div ebx
|
|
; cmp edx,5
|
|
; jb temp_12_7
|
|
; inc ecx
|
|
; temp_12_7:
|
|
cmp edx,0
|
|
je temp_12_7
|
|
inc ecx
|
|
temp_12_7:
|
|
|
|
pop edx ebx
|
|
mov eax,[esp+4] ;restore buffer index
|
|
add [fileinfo.first_block], ecx ; +60Kb
|
|
call [convert + edx * 4]
|
|
;start fix for MM (4)
|
|
mov eax,[esp+4] ;restore buffer index
|
|
test eax,not 1
|
|
jz .ok
|
|
print "buffer index out of range"
|
|
dpd eax
|
|
jmp .ret
|
|
.ok:
|
|
push ebp
|
|
mov ebp,[phys_wav_buffer1+eax*4]
|
|
mov edi,[buffers+eax*4]
|
|
mcall MF_INTERNAL_SERVICES,SET_PHYS_BUFFER,ebp,edi,60*1024
|
|
pop ebp
|
|
.ret:
|
|
pop eax
|
|
add esp,4 ;pop buffer index
|
|
;end fix for MM (4)
|
|
|
|
pop edi esi
|
|
ret
|
|
|
|
c8mono:
|
|
mov [type_of_conversion],1
|
|
jmp for_all_type
|
|
|
|
c8mono_1:
|
|
lodsb
|
|
call c8mono_2
|
|
push ax
|
|
shl eax,16
|
|
pop ax
|
|
push eax
|
|
mov al,[esi]
|
|
call c8mono_2
|
|
push ax
|
|
shl eax,16
|
|
pop ax
|
|
mov ebx,eax
|
|
pop eax
|
|
jmp for_all_type_1
|
|
|
|
c8mono_2:
|
|
sub al, 0x80
|
|
cbw
|
|
imul ax, 255
|
|
ret
|
|
|
|
c8stereo:
|
|
mov [type_of_conversion],2
|
|
jmp for_all_type
|
|
|
|
c8stereo_1:
|
|
lodsb
|
|
call c8stereo_2
|
|
shl eax,16
|
|
lodsb
|
|
call c8stereo_2
|
|
push eax
|
|
mov al,[esi]
|
|
call c8stereo_2
|
|
shl eax,16
|
|
mov al,[esi+1]
|
|
call c8stereo_2
|
|
mov ebx,eax
|
|
pop eax
|
|
jmp for_all_type_1
|
|
|
|
c8stereo_2:
|
|
sub al, 0x80
|
|
cbw
|
|
imul ax, 255
|
|
ret
|
|
|
|
c16mono:
|
|
mov [type_of_conversion],3
|
|
jmp for_all_type
|
|
|
|
c16mono_1:
|
|
lodsw
|
|
push ax
|
|
shl eax,16
|
|
pop ax
|
|
mov bx,[esi]
|
|
shl ebx,16
|
|
mov bx,[esi]
|
|
jmp for_all_type_1
|
|
|
|
c16stereo:
|
|
for_all_type:
|
|
xor edx,edx
|
|
mov eax, 15*1024*10
|
|
movzx ebx,[difference_of_frequency_2]
|
|
xor edx,edx
|
|
div ebx
|
|
mov ecx,eax
|
|
|
|
; mov ebx,10
|
|
; mov eax,edx
|
|
; xor edx,edx
|
|
; div ebx
|
|
; cmp edx,5
|
|
; jb temp_12_6
|
|
; inc ecx
|
|
; temp_12_6:
|
|
cmp edx,0
|
|
je temp_12_6
|
|
inc ecx
|
|
temp_12_6:
|
|
|
|
c16stereo_1:
|
|
mov [znak],0
|
|
|
|
cmp [type_of_conversion],1
|
|
je c8mono_1
|
|
cmp [type_of_conversion],2
|
|
je c8stereo_1
|
|
cmp [type_of_conversion],3
|
|
je c16mono_1
|
|
lodsd
|
|
|
|
mov ebx,[esi]
|
|
for_all_type_1:
|
|
cmp eax,ebx
|
|
jne c16stereo_2
|
|
inc [znak]
|
|
c16stereo_2:
|
|
push eax
|
|
push ecx
|
|
sub eax,ebx
|
|
push eax
|
|
shl eax,16
|
|
movzx ebx,[difference_of_frequency]
|
|
inc ebx
|
|
xor edx,edx
|
|
div ebx
|
|
shr eax,16
|
|
mov ecx,eax
|
|
pop eax
|
|
xor ax,ax
|
|
xor edx,edx
|
|
div ebx
|
|
shl eax,16
|
|
mov cx,ax
|
|
mov ebx,ecx
|
|
pop ecx
|
|
pop eax
|
|
mov dl,[difference_of_frequency]
|
|
inc dl
|
|
@@:
|
|
temp_12:
|
|
cmp [difference_of_frequency_1],0
|
|
je temp_12_3
|
|
cmp [difference_of_frequency_1],5
|
|
jne temp_12_4
|
|
cmp [difference_of_frequency_4],2
|
|
jne temp_12_3
|
|
jmp temp_12_5
|
|
temp_12_4:
|
|
cmp [difference_of_frequency_4],10
|
|
jne temp_12_3
|
|
|
|
temp_12_5:
|
|
|
|
cmp [znak],0
|
|
jne temp_12_5_1
|
|
sub eax,ebx
|
|
jmp temp_12_5_2
|
|
temp_12_5_1:
|
|
add eax,ebx
|
|
temp_12_5_2:
|
|
|
|
|
|
stosd
|
|
inc [schetchik]
|
|
mov [difference_of_frequency_4],0
|
|
temp_12_3:
|
|
cmp [znak],0
|
|
jne temp_13
|
|
sub eax,ebx
|
|
jmp temp_14
|
|
temp_13:
|
|
add eax,ebx
|
|
|
|
temp_14:
|
|
cld
|
|
dec dl
|
|
jz temp_14_1
|
|
stosd
|
|
inc [schetchik]
|
|
inc [difference_of_frequency_4]
|
|
jmp temp_12
|
|
temp_14_1:
|
|
dec ecx
|
|
cmp ecx,0
|
|
; jnz c16stereo_1
|
|
jg c16stereo_1
|
|
newline
|
|
dph [schetchik]
|
|
temp_14_2:
|
|
cmp [schetchik],15360
|
|
jge temp_14_3
|
|
stosd
|
|
inc [schetchik]
|
|
jmp temp_14_2
|
|
|
|
temp_14_3:
|
|
newline
|
|
dph [schetchik]
|
|
cmp [schetchik],15360
|
|
je temp_14_4
|
|
; mov [edi-4],dword 0
|
|
sub edi,4
|
|
; sub esi,4
|
|
temp_14_4:
|
|
mov [schetchik],0
|
|
ret
|
|
|
|
|
|
difference_of_frequency db 0
|
|
difference_of_frequency_1 db 0
|
|
difference_of_frequency_2 db 0
|
|
difference_of_frequency_4 db 0
|
|
schetchik dd 0
|
|
znak db 0
|
|
type_of_conversion db 0
|
|
|
|
convert dd c8mono, c8stereo, c16mono, c16stereo
|
|
blocks dd 30, 60, 60, 120
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; get_my_address - get base address of the program in physical memory
|
|
;; in: nothing
|
|
;; out: eax = address
|
|
;start fix for MM (8)
|
|
;function shouldn't used.
|
|
;get_my_address:
|
|
; pushad
|
|
; mcall MF_PROCINFO, procinfo, PN_MYSELF
|
|
; popad
|
|
; mov eax, [procinfo.memory_start]
|
|
;ret
|
|
;end fix for MM (8)
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; set the last valid index to something other than we're currently playing
|
|
;; so that we never end
|
|
;;
|
|
;; this routine just sets the last valid index to 1 less than the index
|
|
;; that we're currently playing, thus keeping it in and endless loop
|
|
;; input: none
|
|
;; output: none
|
|
updateLVI:
|
|
push eax
|
|
call getCurrentIndex
|
|
; dps "index "
|
|
; dpd eax
|
|
; newline
|
|
dec al
|
|
and al, INDEX_MASK
|
|
call setLastValidIndex
|
|
pop eax
|
|
ret
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; returns AL = current index value
|
|
getCurrentIndex:
|
|
push edx
|
|
mov edx, PO_CIV_REG
|
|
call NABMBAR_read_byte
|
|
pop edx
|
|
ret
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; input AL = index # to stop on
|
|
setLastValidIndex:
|
|
push edx
|
|
mov edx, PO_LVI_REG
|
|
call NABMBAR_write_byte
|
|
pop edx
|
|
ret
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; print_info - outputs debug information
|
|
;; in: nothing
|
|
;; out: nothing
|
|
print_info:
|
|
dps "BUS: "
|
|
movzx eax, [bus]
|
|
dph eax
|
|
|
|
dps " DEVFN: "
|
|
movzx eax, [devfn]
|
|
dph eax
|
|
|
|
dps " IRQ: "
|
|
movzx eax, [AC97IRQ]
|
|
dpd eax
|
|
newline
|
|
|
|
|
|
dps "CODEC_POWER_CTRL: "
|
|
mov edx, CODEC_POWER_CTRL_REG
|
|
call NAMBAR_read_word
|
|
dph eax
|
|
dps " (bits 0-3 should be set)"
|
|
newline
|
|
|
|
mov edx, 0x28
|
|
call NAMBAR_read_word
|
|
dph eax
|
|
dps " - supported features"
|
|
newline
|
|
mov edx, 0x2A
|
|
call NAMBAR_read_word
|
|
dph eax
|
|
dps " - config"
|
|
newline
|
|
mov edx, 0x2C
|
|
call NAMBAR_read_word
|
|
dph eax
|
|
dps " - PCM rate"
|
|
|
|
newline
|
|
ret
|
|
|
|
|
|
;---------------------------------------------------------------------
|
|
;--- DATA OF PROGRAM -----------------------------------------------
|
|
;---------------------------------------------------------------------
|
|
volume dd 15
|
|
|
|
fileinfo:
|
|
.mode dd 0 ; READ
|
|
.first_block dd 0
|
|
.blocks dd 120 ; 120 Kb
|
|
.dest dd LOAD_BUFFER ;file_data
|
|
.work dd work_area
|
|
; db "/HD/1/WINDOWS/MEDIA/WICEB7~1.WAV",0
|
|
;sz textbox_string, "/hd/1/testmuz/menuet11.wav",0
|
|
sz textbox_string, " ",0
|
|
; rb 256
|
|
;---------------------------------------------------------------------
|
|
|
|
IMAGE_END: ; end of program's image
|
|
rb 100-textbox_string.size
|
|
; textbox_string.size
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
device_id dd ? ; (device_id << 16) + vendor_id
|
|
lastbus db ? ; pci coordinates
|
|
bus db ?
|
|
devfn db ?
|
|
|
|
AC97ICH4 db ? ; Intel ICH4 codec flag
|
|
SI7012 db ? ; SiS SI7012 codec flag
|
|
NAMBAR dw ? ; Audio Mixers Registers (base)
|
|
NABMBAR dw ? ; Bus Master Registers (base)
|
|
|
|
AC97IRQ db ? ; Interrupt request
|
|
AC97INT db ? ; Interrupt pin
|
|
|
|
wav_mode db ? ; bits per sample & channels
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
ST_DONE = 0x0 ; for interacting with player's window
|
|
ST_PLAY = 0x1
|
|
ST_EXIT = 0x2
|
|
ST_STOP = 0x4
|
|
|
|
status db ?
|
|
|
|
;---------------------------------------------------------------------
|
|
phys_bdl_buffer rd 1
|
|
phys_wav_buffer1 rd 1
|
|
phys_wav_buffer2 rd 1
|
|
align 32
|
|
|
|
|
|
; Buffer Descriptors List
|
|
; ___________________________
|
|
; | physical address | dword
|
|
; |_________________________|
|
|
; | attr | length | dword max. length = 65535 samples
|
|
; |_________________________|
|
|
|
|
BDL_BUFFER:
|
|
rb 32*8 ; 32 descriptors, 8 bytes each
|
|
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
file_data:
|
|
|
|
WAV_BUFFER1:
|
|
rb 60 * 1024 ; 60 Kb
|
|
|
|
WAV_BUFFER2:
|
|
rb 60 * 1024
|
|
|
|
LOAD_BUFFER:
|
|
rb 60 * 1024
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
procinfo process_information
|
|
|
|
work_area:
|
|
rb 0x10000
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
rb 0x800
|
|
thread_stack:
|
|
|
|
rb 0x1000 ; for stack
|
|
STACK_P:
|
|
|
|
MEMORY_END:
|