forked from KolibriOS/kolibrios
383 lines
10 KiB
NASM
383 lines
10 KiB
NASM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;
|
|
;; Distributed under terms of the GNU General Public License ;;
|
|
;; ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
format PE DLL native 0.05
|
|
entry START
|
|
|
|
include 'CONFIG.INC'
|
|
|
|
section '.flat' code readable writable executable
|
|
include '..\..\struct.inc'
|
|
include '..\..\macros.inc'
|
|
include '..\..\proc32.inc'
|
|
include '..\..\peimport.inc'
|
|
|
|
include 'SB16.INC'
|
|
|
|
;-------------------------------------------------------------------------------
|
|
proc START c uses ebx esi edi, state:dword, cmdline:dword
|
|
cmp [state], 1
|
|
jne .stop
|
|
.entry:
|
|
|
|
if DEBUG
|
|
mov esi, msgInit
|
|
invoke SysMsgBoardStr
|
|
end if
|
|
|
|
call detect ;returns DSP version or zero if
|
|
test eax, eax ;SB card not found
|
|
jz .exit
|
|
|
|
if DEBUG
|
|
movzx eax, al ;major version
|
|
mov esi, sb_DSP_description
|
|
dec eax
|
|
jz .sb_say_about_found_dsp
|
|
mov dword[esi], '2.x '
|
|
dec eax
|
|
jz .sb_say_about_found_dsp
|
|
mov dword[esi], 'Pro '
|
|
dec eax
|
|
jz .sb_say_about_found_dsp
|
|
mov dword[esi], '16 '
|
|
.sb_say_about_found_dsp:
|
|
mov esi, msgDSPFound
|
|
invoke SysMsgBoardStr
|
|
end if
|
|
|
|
xor ebx, ebx
|
|
mov ecx, [sb_base_port]
|
|
lea edx, [ecx+0xF]
|
|
invoke ReservePortArea ;these ports must be mine !
|
|
|
|
dec eax
|
|
jnz @f
|
|
|
|
if DEBUG
|
|
mov esi, msgErrRsrvPorts
|
|
invoke SysMsgBoardStr
|
|
end if
|
|
jmp .exit
|
|
|
|
@@:
|
|
invoke AllocDMA24, sb_buffer_size
|
|
test eax, eax
|
|
jz .exit
|
|
mov [SB16Buffer], eax
|
|
|
|
call sb_setup ;clock it, etc
|
|
|
|
invoke AttachIntHandler, sb_irq_num, sb_irq, 0
|
|
|
|
if DEBUG
|
|
test eax, eax
|
|
jnz @f
|
|
|
|
mov esi, msgErrAtchIRQ
|
|
invoke SysMsgBoardStr
|
|
|
|
; stdcall GetIntHandler, sb_irq_num
|
|
; call SysMsgBoardNum
|
|
|
|
jmp .stop
|
|
@@:
|
|
mov esi, msgSucAtchIRQ
|
|
invoke SysMsgBoardStr
|
|
end if
|
|
invoke RegService, my_service, service_proc
|
|
ret
|
|
.stop:
|
|
call sb_reset
|
|
.exit:
|
|
|
|
if DEBUG
|
|
mov esi, msgExit
|
|
invoke SysMsgBoardStr
|
|
end if
|
|
|
|
xor eax, eax
|
|
ret
|
|
endp
|
|
;-------------------------------------------------------------------------------
|
|
|
|
proc service_proc stdcall uses ebx esi edi, ioctl:dword
|
|
mov edi, [ioctl]
|
|
mov eax, [edi+IOCTL.io_code]
|
|
cmp eax, SRV_GETVERSION
|
|
jne @F
|
|
|
|
mov eax, [edi+IOCTL.output]
|
|
cmp [edi+IOCTL.out_size], 4
|
|
jne .fail
|
|
mov [eax], dword API_VERSION
|
|
xor eax, eax
|
|
ret
|
|
@@:
|
|
cmp eax, DEV_PLAY
|
|
jne @f
|
|
if DEBUG
|
|
mov esi, msgPlay
|
|
invoke SysMsgBoardStr
|
|
end if
|
|
call sb_stop ;to play smth new we must stop smth old
|
|
|
|
call pre_fill_data ;fill first and second half of the buffer
|
|
call pre_fill_data ;
|
|
|
|
call sb_set_dma ;is it really needed here? Paranoia.
|
|
call sb_play
|
|
xor eax, eax ;set maximum volume
|
|
call sb_set_master_vol
|
|
xor eax, eax
|
|
ret
|
|
;@@: ;all this commented stuff in service proc
|
|
; cmp eax,DEV_STOP ;is never used. Mixer do this virtually,
|
|
; jne @f ;e.g. instead of stopping driver it
|
|
;if DEBUG ;outputs silence
|
|
; mov esi,msgStop
|
|
; call SysMsgBoardStr
|
|
;end if
|
|
; call sb_stop
|
|
; xor eax,eax
|
|
; ret
|
|
@@:
|
|
cmp eax, DEV_CALLBACK
|
|
jne @f
|
|
if DEBUG
|
|
mov esi, msgCallback
|
|
invoke SysMsgBoardStr
|
|
end if
|
|
mov edi, [edi+IOCTL.input]
|
|
mov eax, [edi]
|
|
mov [callback], eax
|
|
if DEBUG
|
|
call SysMsgBoardNum
|
|
end if
|
|
xor eax, eax
|
|
ret
|
|
@@:
|
|
cmp eax, DEV_SET_MASTERVOL;Serge asked me to unlock
|
|
jne @F ;DEV_SET(GET)_MASTERVOL, although mixer doesn't use it.
|
|
;It doesn't use it _in current version_ - but in the future...
|
|
|
|
if DEBUG
|
|
mov esi, msgSetVol
|
|
invoke SysMsgBoardStr
|
|
end if
|
|
mov eax, [edi+IOCTL.input]
|
|
mov eax, [eax]
|
|
call sb_set_master_vol
|
|
xor eax, eax
|
|
ret
|
|
@@:
|
|
cmp eax, DEV_GET_MASTERVOL
|
|
jne @F
|
|
if DEBUG
|
|
mov esi, msgGetVol
|
|
invoke SysMsgBoardStr
|
|
end if
|
|
mov eax, [edi+IOCTL.output]
|
|
mov edx, [sb_master_vol]
|
|
mov [eax], edx
|
|
xor eax, eax
|
|
ret
|
|
|
|
.fail:
|
|
or eax, -1
|
|
ret
|
|
endp
|
|
|
|
;-------------------------------------------------------------------------------
|
|
proc sb_irq
|
|
mov edx, [sb_base_port];tell the DSP that we have processed IRQ
|
|
add dl, 0xF ;0xF for 16 bit sound, 0xE for 8 bit sound
|
|
in al, dx ;for non-stop sound
|
|
|
|
pre_fill_data:
|
|
mov eax, int_flip_flop
|
|
not dword[eax]
|
|
mov eax, [eax]
|
|
test eax, eax
|
|
jns .fill_second_half
|
|
|
|
if sb_buffer_size eq small_buffer
|
|
mov eax, [SB16Buffer]
|
|
stdcall [callback], eax ;for 32k buffer
|
|
else if sb_buffer_size eq full_buffer
|
|
mov eax, [SB16Buffer]
|
|
push eax
|
|
stdcall [callback], eax ;for 64k buffer
|
|
pop eax
|
|
add eax, 16384
|
|
stdcall [callback], eax ;for 64k buffer
|
|
end if
|
|
xor eax, eax
|
|
not eax
|
|
ret
|
|
|
|
.fill_second_half:
|
|
if sb_buffer_size eq small_buffer
|
|
mov eax, [SB16Buffer]
|
|
add eax, 16384
|
|
stdcall [callback], eax ;for 32k buffer
|
|
else if sb_buffer_size eq full_buffer
|
|
mov eax, [SB16Buffer]
|
|
add eax, 32768
|
|
push eax
|
|
stdcall [callback], eax ;for 64k buffer
|
|
pop eax
|
|
add eax, 16384
|
|
stdcall [callback], eax ;for 64k buffer
|
|
end if
|
|
xor eax, eax
|
|
not eax
|
|
ret
|
|
endp
|
|
;-------------------------------------------------------------------------------
|
|
align 4
|
|
proc detect
|
|
.sb_detect_next_port:
|
|
if DEBUG
|
|
inc dword[port_second_digit_num]
|
|
end if
|
|
mov edx, sb_base_port
|
|
add byte[edx], 10h
|
|
cmp byte[edx], 80h
|
|
jbe .sb_try_to_detect_at_specified_port
|
|
;error - no SB card detected
|
|
.sb_not_found_err:
|
|
xor eax, eax
|
|
ret
|
|
|
|
.sb_try_to_detect_at_specified_port:
|
|
call sb_reset
|
|
add dl, 8
|
|
mov ecx, 100
|
|
.sb_check_port:
|
|
in al, dx
|
|
test al, al ;is DSP port ready to be read?
|
|
jns .sb_port_not_ready
|
|
|
|
sub dl, 4
|
|
in al, dx ;check for AAh response
|
|
add dl, 4
|
|
cmp al, 0xAA
|
|
jne .sb_port_not_ready
|
|
.sb_card_found:
|
|
and dl, 0xF0
|
|
add dl, 0xC
|
|
sb_out 0xE1 ;get DSP version
|
|
add dl, 2
|
|
@@:
|
|
in al, dx
|
|
test al, al ;is DSP port ready to be read?
|
|
jns @b
|
|
sub dl, 4
|
|
in al, dx ;get major version
|
|
ror eax, 16
|
|
add dl, 4
|
|
@@:
|
|
in al, dx
|
|
test al, al ;is DSP port ready to be read?
|
|
jns @b
|
|
sub dl, 4
|
|
in al, dx ;get minor version
|
|
xor edx, edx
|
|
mov dl, 10
|
|
div dl
|
|
ror eax, 16
|
|
xor ah, ah
|
|
mov [sb_DSP_version_int], eax;for internal usage
|
|
if DEBUG
|
|
add [sb_DSP_version], eax
|
|
end if
|
|
ret
|
|
|
|
.sb_port_not_ready:
|
|
loop .sb_check_port ;100 retries (~100 microsec.)
|
|
jmp .sb_detect_next_port
|
|
endp
|
|
;-------------------------------------------------------------------------------
|
|
if DEBUG
|
|
proc SysMsgBoardNum ;warning: destroys eax,ebx,ecx,esi
|
|
mov ebx, eax
|
|
mov ecx, 8
|
|
mov esi, (number_to_out+1)
|
|
.1:
|
|
mov eax, ebx
|
|
and eax, 0xF
|
|
add al, '0'
|
|
cmp al, (10+'0')
|
|
jb @f
|
|
add al, ('A'-'0'-10)
|
|
@@:
|
|
mov [esi+ecx], al
|
|
shr ebx, 4
|
|
loop .1
|
|
dec esi
|
|
invoke SysMsgBoardStr
|
|
ret
|
|
endp
|
|
end if
|
|
;all initialized data place here
|
|
align 4
|
|
|
|
sb_base_port:
|
|
dd 200h ;don't ask me why - see the code&docs
|
|
|
|
sound_dma dd sb_dma_num
|
|
|
|
;note that 4th DMA channel doesn't exist, it is used for cascade
|
|
;plugging the first DMA controler to the second
|
|
dma_table db 0x87,0x83,0x81,0x82,0xFF,0x8B,0x89,0x8A
|
|
|
|
my_service db 'SOUND',0 ;max 16 chars include zero
|
|
|
|
if DEBUG
|
|
number_to_out db '0x00000000',13,10,0
|
|
|
|
msgInit db 'detecting hardware...',13,10,0
|
|
msgExit db 'exiting... May be some problems found?',13,10,0
|
|
msgPlay db 'start play',13,10,0
|
|
;msgStop db 'stop play',13,10,0
|
|
msgCallback db 'set_callback received from the mixer!',13,10
|
|
db 'callback handler is: ',0
|
|
msgErrAtchIRQ db 'failed to attach IRQ',(sb_irq_num+'0'),13,10
|
|
db 'owner',39,'s handler: ',0
|
|
msgSucAtchIRQ db 'succesfully attached IRQ',(sb_irq_num+'0')
|
|
db ' as hardcoded',13,10,0
|
|
msgErrRsrvPorts db 'failed to reserve needed ports.',13,10,0
|
|
msgSetVol db 'DEV_SET_MASTERVOL call came',13,10,0
|
|
msgGetVol db 'DEV_GET_MASTERVOL call came',13,10,0
|
|
msgErrDMAsetup db 'failed to setup DMA - bad channel',13,10,0
|
|
;-------------------------------------------------------------------------------
|
|
msgDSPFound db 'DSP found at port 2'
|
|
label port_second_digit_num dword at $
|
|
db '00h',13,10,'DSP version '
|
|
sb_DSP_version:
|
|
db '0.00 - SB'
|
|
sb_DSP_description:
|
|
db 32,32,32,32,13,10,0
|
|
;-------------------------------------------------------------------------------
|
|
end if
|
|
|
|
align 4
|
|
data fixups
|
|
end data
|
|
|
|
align 4
|
|
SB16Buffer rd 1
|
|
|
|
callback rd 1
|
|
|
|
int_flip_flop rd 1
|
|
|
|
sb_master_vol rd 1
|
|
|
|
sb_DSP_version_int rd 1
|