forked from KolibriOS/kolibrios
390 lines
9.1 KiB
NASM
390 lines
9.1 KiB
NASM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
|
;; Distributed under terms of the GNU General Public License ;;
|
|
;; ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
format MS COFF
|
|
|
|
include 'config.inc'
|
|
|
|
;structs----------------------------------------------------------
|
|
struc IOCTL
|
|
{ .handle dd ?
|
|
.io_code dd ?
|
|
.input dd ?
|
|
.inp_size dd ?
|
|
.output dd ?
|
|
.out_size dd ?
|
|
}
|
|
|
|
virtual at 0
|
|
IOCTL IOCTL
|
|
end virtual
|
|
|
|
;something--------------------------------------------------------
|
|
public START
|
|
public service_proc
|
|
public version
|
|
|
|
include '..\proc32.inc'
|
|
include '..\imports.inc'
|
|
|
|
section '.flat' code readable align 16
|
|
|
|
include 'sb16.inc'
|
|
|
|
;-------------------------------------------------------------------------------
|
|
proc START stdcall, state:dword
|
|
cmp [state], 1
|
|
jne .stop
|
|
.entry:
|
|
|
|
if DEBUG
|
|
mov esi, msgInit
|
|
call 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
|
|
call SysMsgBoardStr
|
|
end if
|
|
xor eax,eax
|
|
mov ebx,[sb_base_port]
|
|
lea ecx,[ebx+0xF]
|
|
call ReservePortArea ;these ports must be my!
|
|
if DEBUG
|
|
dec eax
|
|
jnz @f
|
|
mov esi,msgErrRsrvPorts
|
|
call SysMsgBoardStr
|
|
@@:
|
|
end if
|
|
|
|
call sb_setup ;clock it, etc
|
|
|
|
stdcall AttachIntHandler, sb_irq_num, sb_irq, 0
|
|
|
|
if DEBUG
|
|
test eax,eax
|
|
jnz @f
|
|
|
|
mov esi,msgErrAtchIRQ
|
|
call SysMsgBoardStr
|
|
|
|
stdcall GetIntHandler, sb_irq_num
|
|
call SysMsgBoardNum
|
|
|
|
jmp .stop
|
|
@@:
|
|
mov esi,msgSucAtchIRQ
|
|
call SysMsgBoardStr
|
|
end if
|
|
stdcall RegService, my_service, service_proc
|
|
ret
|
|
.stop:
|
|
call sb_reset
|
|
.exit:
|
|
|
|
if DEBUG
|
|
mov esi,msgExit
|
|
call SysMsgBoardStr
|
|
end if
|
|
|
|
xor eax, eax
|
|
ret
|
|
endp
|
|
;-------------------------------------------------------------------------------
|
|
|
|
handle equ IOCTL.handle
|
|
io_code equ IOCTL.io_code
|
|
input equ IOCTL.input
|
|
inp_size equ IOCTL.inp_size
|
|
output equ IOCTL.output
|
|
out_size equ IOCTL.out_size
|
|
|
|
align 4
|
|
proc service_proc stdcall, ioctl:dword
|
|
mov edi,[ioctl]
|
|
mov eax,[edi+io_code]
|
|
cmp eax,SRV_GETVERSION
|
|
jne @F
|
|
|
|
mov eax,[edi+output]
|
|
cmp [edi+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
|
|
call 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
|
|
call SysMsgBoardStr
|
|
end if
|
|
mov edi,[edi+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
|
|
call SysMsgBoardStr
|
|
end if
|
|
mov eax,[edi+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
|
|
call SysMsgBoardStr
|
|
end if
|
|
mov eax,[edi+output]
|
|
mov edx,[sb_master_vol]
|
|
mov [eax],edx
|
|
xor eax,eax
|
|
ret
|
|
|
|
.fail:
|
|
or eax, -1
|
|
ret
|
|
endp
|
|
|
|
restore handle
|
|
restore io_code
|
|
restore input
|
|
restore inp_size
|
|
restore output
|
|
restore out_size
|
|
|
|
;-------------------------------------------------------------------------------
|
|
align 4
|
|
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
|
|
stdcall [callback],SB16Buffer0 ;for 32k buffer
|
|
else if sb_buffer_size eq full_buffer
|
|
stdcall [callback],SB16Buffer0 ;for 64k buffer
|
|
stdcall [callback],SB16Buffer1 ;for 64k buffer
|
|
end if
|
|
xor eax,eax
|
|
ret
|
|
|
|
.fill_second_half:
|
|
if sb_buffer_size eq small_buffer
|
|
stdcall [callback],SB16Buffer1 ;for 32k buffer
|
|
else if sb_buffer_size eq full_buffer
|
|
stdcall [callback],SB16Buffer2 ;for 64k buffer
|
|
stdcall [callback],SB16Buffer3 ;for 64k buffer
|
|
end if
|
|
xor eax,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
|
|
call SysMsgBoardStr
|
|
ret
|
|
endp
|
|
end if
|
|
;all initialized data place here
|
|
align 4
|
|
version dd (5 shl 16) or (API_VERSION and 0xFFFF)
|
|
|
|
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
|
|
db 'Driver may work unstable',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
|
|
|
|
section '.data' data readable writable align 16
|
|
;all uninitialized data place here
|
|
|
|
;pTempBuf rd 1
|
|
|
|
callback rd 1
|
|
|
|
int_flip_flop rd 1
|
|
|
|
sb_master_vol rd 1
|
|
|
|
sb_DSP_version_int rd 1
|