WebSVN – Kolibri OS – Diff – /kernel/trunk/drivers/sb16/sb16.asm


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                              ;;
;; Copyright (C) KolibriOS team 2004-2012. 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]
        xor     ebx, ebx
        mov     ecx, [sb_base_port]
        lea     edx, [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
        not     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
        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
        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

Rev 2455	Rev 2802
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;; ;;	2	;; ;;
3	;; Copyright (C) KolibriOS team 2004-2011. All rights reserved. ;;	3	;; Copyright (C) KolibriOS team 2004-2012. All rights reserved. ;;
4	;; Distributed under terms of the GNU General Public License ;;	4	;; Distributed under terms of the GNU General Public License ;;
5	;; ;;	5	;; ;;
6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7		7
8	format MS COFF	8	format MS COFF
9		9
10	include 'CONFIG.INC'	10	include 'CONFIG.INC'
11		11
12	;structs----------------------------------------------------------	12	;structs----------------------------------------------------------
13	struc IOCTL	13	struc IOCTL
14	{ .handle dd ?	14	{ .handle dd ?
15	.io_code dd ?	15	.io_code dd ?
16	.input dd ?	16	.input dd ?
17	.inp_size dd ?	17	.inp_size dd ?
18	.output dd ?	18	.output dd ?
19	.out_size dd ?	19	.out_size dd ?
20	}	20	}
21		21
22	virtual at 0	22	virtual at 0
23	IOCTL IOCTL	23	IOCTL IOCTL
24	end virtual	24	end virtual
25		25
26	;something--------------------------------------------------------	26	;something--------------------------------------------------------
27	public START	27	public START
28	public service_proc	28	public service_proc
29	public version	29	public version
30		30
31	include '..\proc32.inc'	31	include '..\proc32.inc'
32	include '..\imports.inc'	32	include '..\imports.inc'
33		33
34	section '.flat' code readable align 16	34	section '.flat' code readable align 16
35		35
36	include 'SB16.INC'	36	include 'SB16.INC'
37		37
38	;-------------------------------------------------------------------------------	38	;-------------------------------------------------------------------------------
39	proc START stdcall, state:dword	39	proc START stdcall, state:dword
40	cmp [state], 1	40	cmp [state], 1
41	jne .stop	41	jne .stop
42	.entry:	42	.entry:
43		43
44	if DEBUG	44	if DEBUG
45	mov esi, msgInit	45	mov esi, msgInit
46	call SysMsgBoardStr	46	call SysMsgBoardStr
47	end if	47	end if
48		48
49	call detect ;returns DSP version or zero if	49	call detect ;returns DSP version or zero if
50	test eax, eax ;SB card not found	50	test eax, eax ;SB card not found
51	jz .exit	51	jz .exit
52		52
53	if DEBUG	53	if DEBUG
54	movzx eax, al ;major version	54	movzx eax, al ;major version
55	mov esi, sb_DSP_description	55	mov esi, sb_DSP_description
56	dec eax	56	dec eax
57	jz .sb_say_about_found_dsp	57	jz .sb_say_about_found_dsp
58	mov dword[esi], '2.x '	58	mov dword[esi], '2.x '
59	dec eax	59	dec eax
60	jz .sb_say_about_found_dsp	60	jz .sb_say_about_found_dsp
61	mov dword[esi], 'Pro '	61	mov dword[esi], 'Pro '
62	dec eax	62	dec eax
63	jz .sb_say_about_found_dsp	63	jz .sb_say_about_found_dsp
64	mov dword[esi], '16 '	64	mov dword[esi], '16 '
65	.sb_say_about_found_dsp:	65	.sb_say_about_found_dsp:
66	mov esi, msgDSPFound	66	mov esi, msgDSPFound
67	call SysMsgBoardStr	67	call SysMsgBoardStr
68	end if	68	end if
69	; xor eax,eax	69	; xor eax,eax
70	; mov ebx,[sb_base_port]	70	; mov ebx,[sb_base_port]
71	; lea ecx,[ebx+0xF]	71	; lea ecx,[ebx+0xF]
72	xor ebx, ebx	72	xor ebx, ebx
73	mov ecx, [sb_base_port]	73	mov ecx, [sb_base_port]
74	lea edx, [ebx+0xF]	74	lea edx, [ebx+0xF]
75		75
76	call ReservePortArea ;these ports must be my!	76	call ReservePortArea ;these ports must be my!
77	if DEBUG	77	if DEBUG
78	dec eax	78	dec eax
79	jnz @f	79	jnz @f
80	mov esi, msgErrRsrvPorts	80	mov esi, msgErrRsrvPorts
81	call SysMsgBoardStr	81	call SysMsgBoardStr
82	@@:	82	@@:
83	end if	83	end if
84		84
85	call sb_setup ;clock it, etc	85	call sb_setup ;clock it, etc
86		86
87	stdcall AttachIntHandler, sb_irq_num, sb_irq, 0	87	stdcall AttachIntHandler, sb_irq_num, sb_irq, 0
88		88
89	if DEBUG	89	if DEBUG
90	test eax, eax	90	test eax, eax
91	jnz @f	91	jnz @f
92		92
93	mov esi, msgErrAtchIRQ	93	mov esi, msgErrAtchIRQ
94	call SysMsgBoardStr	94	call SysMsgBoardStr
95		95
96	stdcall GetIntHandler, sb_irq_num	96	; stdcall GetIntHandler, sb_irq_num
97	call SysMsgBoardNum	97	; call SysMsgBoardNum
98		98
99	jmp .stop	99	jmp .stop
100	@@:	100	@@:
101	mov esi, msgSucAtchIRQ	101	mov esi, msgSucAtchIRQ
102	call SysMsgBoardStr	102	call SysMsgBoardStr
103	end if	103	end if
104	stdcall RegService, my_service, service_proc	104	stdcall RegService, my_service, service_proc
105	ret	105	ret
106	.stop:	106	.stop:
107	call sb_reset	107	call sb_reset
108	.exit:	108	.exit:
109		109
110	if DEBUG	110	if DEBUG
111	mov esi, msgExit	111	mov esi, msgExit
112	call SysMsgBoardStr	112	call SysMsgBoardStr
113	end if	113	end if
114		114
115	xor eax, eax	115	xor eax, eax
116	ret	116	ret
117	endp	117	endp
118	;-------------------------------------------------------------------------------	118	;-------------------------------------------------------------------------------
119		119
120	handle equ IOCTL.handle	120	handle equ IOCTL.handle
121	io_code equ IOCTL.io_code	121	io_code equ IOCTL.io_code
122	input equ IOCTL.input	122	input equ IOCTL.input
123	inp_size equ IOCTL.inp_size	123	inp_size equ IOCTL.inp_size
124	output equ IOCTL.output	124	output equ IOCTL.output
125	out_size equ IOCTL.out_size	125	out_size equ IOCTL.out_size
126		126
127	align 4	127	align 4
128	proc service_proc stdcall, ioctl:dword	128	proc service_proc stdcall, ioctl:dword
129	mov edi, [ioctl]	129	mov edi, [ioctl]
130	mov eax, [edi+io_code]	130	mov eax, [edi+io_code]
131	cmp eax, SRV_GETVERSION	131	cmp eax, SRV_GETVERSION
132	jne @F	132	jne @F
133		133
134	mov eax, [edi+output]	134	mov eax, [edi+output]
135	cmp [edi+out_size], 4	135	cmp [edi+out_size], 4
136	jne .fail	136	jne .fail
137	mov [eax], dword API_VERSION	137	mov [eax], dword API_VERSION
138	xor eax, eax	138	xor eax, eax
139	ret	139	ret
140	@@:	140	@@:
141	cmp eax, DEV_PLAY	141	cmp eax, DEV_PLAY
142	jne @f	142	jne @f
143	if DEBUG	143	if DEBUG
144	mov esi, msgPlay	144	mov esi, msgPlay
145	call SysMsgBoardStr	145	call SysMsgBoardStr
146	end if	146	end if
147	call sb_stop ;to play smth new we must stop smth old	147	call sb_stop ;to play smth new we must stop smth old
148		148
149	call pre_fill_data ;fill first and second half of the buffer	149	call pre_fill_data ;fill first and second half of the buffer
150	call pre_fill_data ;	150	call pre_fill_data ;
151		151
152	call sb_set_dma ;is it really needed here? Paranoia.	152	call sb_set_dma ;is it really needed here? Paranoia.
153	call sb_play	153	call sb_play
154	xor eax, eax ;set maximum volume	154	xor eax, eax ;set maximum volume
155	call sb_set_master_vol	155	call sb_set_master_vol
156	xor eax, eax	156	xor eax, eax
157	ret	157	ret
158	;@@: ;all this commented stuff in service proc	158	;@@: ;all this commented stuff in service proc
159	; cmp eax,DEV_STOP ;is never used. Mixer do this virtually,	159	; cmp eax,DEV_STOP ;is never used. Mixer do this virtually,
160	; jne @f ;e.g. instead of stopping driver it	160	; jne @f ;e.g. instead of stopping driver it
161	;if DEBUG ;outputs silence	161	;if DEBUG ;outputs silence
162	; mov esi,msgStop	162	; mov esi,msgStop
163	; call SysMsgBoardStr	163	; call SysMsgBoardStr
164	;end if	164	;end if
165	; call sb_stop	165	; call sb_stop
166	; xor eax,eax	166	; xor eax,eax
167	; ret	167	; ret
168	@@:	168	@@:
169	cmp eax, DEV_CALLBACK	169	cmp eax, DEV_CALLBACK
170	jne @f	170	jne @f
171	if DEBUG	171	if DEBUG
172	mov esi, msgCallback	172	mov esi, msgCallback
173	call SysMsgBoardStr	173	call SysMsgBoardStr
174	end if	174	end if
175	mov edi, [edi+input]	175	mov edi, [edi+input]
176	mov eax, [edi]	176	mov eax, [edi]
177	mov [callback], eax	177	mov [callback], eax
178	if DEBUG	178	if DEBUG
179	call SysMsgBoardNum	179	call SysMsgBoardNum
180	end if	180	end if
181	xor eax, eax	181	xor eax, eax
182	ret	182	ret
183	@@:	183	@@:
184	cmp eax, DEV_SET_MASTERVOL;Serge asked me to unlock	184	cmp eax, DEV_SET_MASTERVOL;Serge asked me to unlock
185	jne @F ;DEV_SET(GET)_MASTERVOL, although mixer doesn't use it.	185	jne @F ;DEV_SET(GET)_MASTERVOL, although mixer doesn't use it.
186	;It doesn't use it _in current version_ - but in the future...	186	;It doesn't use it _in current version_ - but in the future...
187		187
188	if DEBUG	188	if DEBUG
189	mov esi, msgSetVol	189	mov esi, msgSetVol
190	call SysMsgBoardStr	190	call SysMsgBoardStr
191	end if	191	end if
192	mov eax, [edi+input]	192	mov eax, [edi+input]
193	mov eax, [eax]	193	mov eax, [eax]
194	call sb_set_master_vol	194	call sb_set_master_vol
195	xor eax, eax	195	xor eax, eax
196	ret	196	ret
197	@@:	197	@@:
198	cmp eax, DEV_GET_MASTERVOL	198	cmp eax, DEV_GET_MASTERVOL
199	jne @F	199	jne @F
200	if DEBUG	200	if DEBUG
201	mov esi, msgGetVol	201	mov esi, msgGetVol
202	call SysMsgBoardStr	202	call SysMsgBoardStr
203	end if	203	end if
204	mov eax, [edi+output]	204	mov eax, [edi+output]
205	mov edx, [sb_master_vol]	205	mov edx, [sb_master_vol]
206	mov [eax], edx	206	mov [eax], edx
207	xor eax, eax	207	xor eax, eax
208	ret	208	ret
209		209
210	.fail:	210	.fail:
211	or eax, -1	211	or eax, -1
212	ret	212	ret
213	endp	213	endp
214		214
215	restore handle	215	restore handle
216	restore io_code	216	restore io_code
217	restore input	217	restore input
218	restore inp_size	218	restore inp_size
219	restore output	219	restore output
220	restore out_size	220	restore out_size
221		221
222	;-------------------------------------------------------------------------------	222	;-------------------------------------------------------------------------------
223	align 4	223	align 4
224	proc sb_irq	224	proc sb_irq
225	mov edx, [sb_base_port];tell the DSP that we have processed IRQ	225	mov edx, [sb_base_port];tell the DSP that we have processed IRQ
226	add dl, 0xF ;0xF for 16 bit sound, 0xE for 8 bit sound	226	add dl, 0xF ;0xF for 16 bit sound, 0xE for 8 bit sound
227	in al, dx ;for non-stop sound	227	in al, dx ;for non-stop sound
228		228
229	pre_fill_data:	229	pre_fill_data:
230	mov eax, int_flip_flop	230	mov eax, int_flip_flop
231	not dword[eax]	231	not dword[eax]
232	mov eax, [eax]	232	mov eax, [eax]
233	test eax, eax	233	test eax, eax
234	jns .fill_second_half	234	jns .fill_second_half
235		235
236	if sb_buffer_size eq small_buffer	236	if sb_buffer_size eq small_buffer
237	stdcall [callback], SB16Buffer0 ;for 32k buffer	237	stdcall [callback], SB16Buffer0 ;for 32k buffer
238	else if sb_buffer_size eq full_buffer	238	else if sb_buffer_size eq full_buffer
239	stdcall [callback], SB16Buffer0 ;for 64k buffer	239	stdcall [callback], SB16Buffer0 ;for 64k buffer
240	stdcall [callback], SB16Buffer1 ;for 64k buffer	240	stdcall [callback], SB16Buffer1 ;for 64k buffer
241	end if	241	end if
242	xor eax, eax	242	xor eax, eax
243	not eax	243	not eax
244	ret	244	ret
245		245
246	.fill_second_half:	246	.fill_second_half:
247	if sb_buffer_size eq small_buffer	247	if sb_buffer_size eq small_buffer
248	stdcall [callback], SB16Buffer1 ;for 32k buffer	248	stdcall [callback], SB16Buffer1 ;for 32k buffer
249	else if sb_buffer_size eq full_buffer	249	else if sb_buffer_size eq full_buffer
250	stdcall [callback], SB16Buffer2 ;for 64k buffer	250	stdcall [callback], SB16Buffer2 ;for 64k buffer
251	stdcall [callback], SB16Buffer3 ;for 64k buffer	251	stdcall [callback], SB16Buffer3 ;for 64k buffer
252	end if	252	end if
253	xor eax, eax	253	xor eax, eax
254	not eax	254	not eax
255	ret	255	ret
256	endp	256	endp
257	;-------------------------------------------------------------------------------	257	;-------------------------------------------------------------------------------
258	align 4	258	align 4
259	proc detect	259	proc detect
260	.sb_detect_next_port:	260	.sb_detect_next_port:
261	if DEBUG	261	if DEBUG
262	inc dword[port_second_digit_num]	262	inc dword[port_second_digit_num]
263	end if	263	end if
264	mov edx, sb_base_port	264	mov edx, sb_base_port
265	add byte[edx], 10h	265	add byte[edx], 10h
266	cmp byte[edx], 80h	266	cmp byte[edx], 80h
267	jbe .sb_try_to_detect_at_specified_port	267	jbe .sb_try_to_detect_at_specified_port
268	;error - no SB card detected	268	;error - no SB card detected
269	.sb_not_found_err:	269	.sb_not_found_err:
270	xor eax, eax	270	xor eax, eax
271	ret	271	ret
272		272
273	.sb_try_to_detect_at_specified_port:	273	.sb_try_to_detect_at_specified_port:
274	call sb_reset	274	call sb_reset
275	add dl, 8	275	add dl, 8
276	mov ecx, 100	276	mov ecx, 100
277	.sb_check_port:	277	.sb_check_port:
278	in al, dx	278	in al, dx
279	test al, al ;is DSP port ready to be read?	279	test al, al ;is DSP port ready to be read?
280	jns .sb_port_not_ready	280	jns .sb_port_not_ready
281		281
282	sub dl, 4	282	sub dl, 4
283	in al, dx ;check for AAh response	283	in al, dx ;check for AAh response
284	add dl, 4	284	add dl, 4
285	cmp al, 0xAA	285	cmp al, 0xAA
286	jne .sb_port_not_ready	286	jne .sb_port_not_ready
287	.sb_card_found:	287	.sb_card_found:
288	and dl, 0xF0	288	and dl, 0xF0
289	add dl, 0xC	289	add dl, 0xC
290	sb_out 0xE1 ;get DSP version	290	sb_out 0xE1 ;get DSP version
291	add dl, 2	291	add dl, 2
292	@@:	292	@@:
293	in al, dx	293	in al, dx
294	test al, al ;is DSP port ready to be read?	294	test al, al ;is DSP port ready to be read?
295	jns @b	295	jns @b
296	sub dl, 4	296	sub dl, 4
297	in al, dx ;get major version	297	in al, dx ;get major version
298	ror eax, 16	298	ror eax, 16
299	add dl, 4	299	add dl, 4
300	@@:	300	@@:
301	in al, dx	301	in al, dx
302	test al, al ;is DSP port ready to be read?	302	test al, al ;is DSP port ready to be read?
303	jns @b	303	jns @b
304	sub dl, 4	304	sub dl, 4
305	in al, dx ;get minor version	305	in al, dx ;get minor version
306	xor edx, edx	306	xor edx, edx
307	mov dl, 10	307	mov dl, 10
308	div dl	308	div dl
309	ror eax, 16	309	ror eax, 16
310	xor ah, ah	310	xor ah, ah
311	mov [sb_DSP_version_int], eax;for internal usage	311	mov [sb_DSP_version_int], eax;for internal usage
312	if DEBUG	312	if DEBUG
313	add [sb_DSP_version], eax	313	add [sb_DSP_version], eax
314	end if	314	end if
315	ret	315	ret
316		316
317	.sb_port_not_ready:	317	.sb_port_not_ready:
318	loop .sb_check_port ;100 retries (~100 microsec.)	318	loop .sb_check_port ;100 retries (~100 microsec.)
319	jmp .sb_detect_next_port	319	jmp .sb_detect_next_port
320	endp	320	endp
321	;-------------------------------------------------------------------------------	321	;-------------------------------------------------------------------------------
322	if DEBUG	322	if DEBUG
323	proc SysMsgBoardNum ;warning: destroys eax,ebx,ecx,esi	323	proc SysMsgBoardNum ;warning: destroys eax,ebx,ecx,esi
324	mov ebx, eax	324	mov ebx, eax
325	mov ecx, 8	325	mov ecx, 8
326	mov esi, (number_to_out+1)	326	mov esi, (number_to_out+1)
327	.1:	327	.1:
328	mov eax, ebx	328	mov eax, ebx
329	and eax, 0xF	329	and eax, 0xF
330	add al, '0'	330	add al, '0'
331	cmp al, (10+'0')	331	cmp al, (10+'0')
332	jb @f	332	jb @f
333	add al, ('A'-'0'-10)	333	add al, ('A'-'0'-10)
334	@@:	334	@@:
335	mov [esi+ecx], al	335	mov [esi+ecx], al
336	shr ebx, 4	336	shr ebx, 4
337	loop .1	337	loop .1
338	dec esi	338	dec esi
339	call SysMsgBoardStr	339	call SysMsgBoardStr
340	ret	340	ret
341	endp	341	endp
342	end if	342	end if
343	;all initialized data place here	343	;all initialized data place here
344	align 4	344	align 4
345	version dd (5 shl 16) or (API_VERSION and 0xFFFF)	345	version dd (5 shl 16) or (API_VERSION and 0xFFFF)
346		346
347	sb_base_port:	347	sb_base_port:
348	dd 200h ;don't ask me why - see the code&docs	348	dd 200h ;don't ask me why - see the code&docs
349		349
350	sound_dma dd sb_dma_num	350	sound_dma dd sb_dma_num
351		351
352	;note that 4th DMA channel doesn't exist, it is used for cascade	352	;note that 4th DMA channel doesn't exist, it is used for cascade
353	;plugging the first DMA controler to the second	353	;plugging the first DMA controler to the second
354	dma_table db 0x87,0x83,0x81,0x82,0xFF,0x8B,0x89,0x8A	354	dma_table db 0x87,0x83,0x81,0x82,0xFF,0x8B,0x89,0x8A
355		355
356	my_service db 'SOUND',0 ;max 16 chars include zero	356	my_service db 'SOUND',0 ;max 16 chars include zero
357		357
358	if DEBUG	358	if DEBUG
359	number_to_out db '0x00000000',13,10,0	359	number_to_out db '0x00000000',13,10,0
360		360
361	msgInit db 'detecting hardware...',13,10,0	361	msgInit db 'detecting hardware...',13,10,0
362	msgExit db 'exiting... May be some problems found?',13,10,0	362	msgExit db 'exiting... May be some problems found?',13,10,0
363	msgPlay db 'start play',13,10,0	363	msgPlay db 'start play',13,10,0
364	;msgStop db 'stop play',13,10,0	364	;msgStop db 'stop play',13,10,0
365	msgCallback db 'set_callback received from the mixer!',13,10	365	msgCallback db 'set_callback received from the mixer!',13,10
366	db 'callback handler is: ',0	366	db 'callback handler is: ',0
367	msgErrAtchIRQ db 'failed to attach IRQ',(sb_irq_num+'0'),13,10	367	msgErrAtchIRQ db 'failed to attach IRQ',(sb_irq_num+'0'),13,10
368	db 'owner',39,'s handler: ',0	368	db 'owner',39,'s handler: ',0
369	msgSucAtchIRQ db 'succesfully attached IRQ',(sb_irq_num+'0')	369	msgSucAtchIRQ db 'succesfully attached IRQ',(sb_irq_num+'0')
370	db ' as hardcoded',13,10,0	370	db ' as hardcoded',13,10,0
371	msgErrRsrvPorts db 'failed to reserve needed ports.',13,10	371	msgErrRsrvPorts db 'failed to reserve needed ports.',13,10
372	db 'Driver may work unstable',13,10,0	372	db 'Driver may work unstable',13,10,0
373	msgSetVol db 'DEV_SET_MASTERVOL call came',13,10,0	373	msgSetVol db 'DEV_SET_MASTERVOL call came',13,10,0
374	msgGetVol db 'DEV_GET_MASTERVOL call came',13,10,0	374	msgGetVol db 'DEV_GET_MASTERVOL call came',13,10,0
375	msgErrDMAsetup db 'failed to setup DMA - bad channel',13,10,0	375	msgErrDMAsetup db 'failed to setup DMA - bad channel',13,10,0
376	;-------------------------------------------------------------------------------	376	;-------------------------------------------------------------------------------
377	msgDSPFound db 'DSP found at port 2'	377	msgDSPFound db 'DSP found at port 2'
378	label port_second_digit_num dword at $	378	label port_second_digit_num dword at $
379	db '00h',13,10,'DSP version '	379	db '00h',13,10,'DSP version '
380	sb_DSP_version:	380	sb_DSP_version:
381	db '0.00 - SB'	381	db '0.00 - SB'
382	sb_DSP_description:	382	sb_DSP_description:
383	db 32,32,32,32,13,10,0	383	db 32,32,32,32,13,10,0
384	;-------------------------------------------------------------------------------	384	;-------------------------------------------------------------------------------
385	end if	385	end if
386		386
387	section '.data' data readable writable align 16	387	section '.data' data readable writable align 16
388	;all uninitialized data place here	388	;all uninitialized data place here
389		389
390	;pTempBuf rd 1	390	;pTempBuf rd 1
391		391
392	callback rd 1	392	callback rd 1
393		393
394	int_flip_flop rd 1	394	int_flip_flop rd 1
395		395
396	sb_master_vol rd 1	396	sb_master_vol rd 1
397		397
398	sb_DSP_version_int rd 1	398	sb_DSP_version_int rd 1

Subversion Repositories Kolibri OS

(root)/kernel/trunk/drivers/sb16/sb16.asm – Rev 2455 → 2802