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


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                              ;;
;; 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]
	   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
	   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

Rev 1306	Rev 1735
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;; ;;	2	;; ;;
3	;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;	3	;; Copyright (C) KolibriOS team 2004-2007. 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	ret	243	ret
244		244
245	.fill_second_half:	245	.fill_second_half:
246	if sb_buffer_size eq small_buffer	246	if sb_buffer_size eq small_buffer
247	stdcall [callback],SB16Buffer1 ;for 32k buffer	247	stdcall [callback],SB16Buffer1 ;for 32k buffer
248	else if sb_buffer_size eq full_buffer	248	else if sb_buffer_size eq full_buffer
249	stdcall [callback],SB16Buffer2 ;for 64k buffer	249	stdcall [callback],SB16Buffer2 ;for 64k buffer
250	stdcall [callback],SB16Buffer3 ;for 64k buffer	250	stdcall [callback],SB16Buffer3 ;for 64k buffer
251	end if	251	end if
252	xor eax,eax	252	xor eax,eax
253	ret	253	ret
254	endp	254	endp
255	;-------------------------------------------------------------------------------	255	;-------------------------------------------------------------------------------
256	align 4	256	align 4
257	proc detect	257	proc detect
258	.sb_detect_next_port:	258	.sb_detect_next_port:
259	if DEBUG	259	if DEBUG
260	inc dword[port_second_digit_num]	260	inc dword[port_second_digit_num]
261	end if	261	end if
262	mov edx,sb_base_port	262	mov edx,sb_base_port
263	add byte[edx],10h	263	add byte[edx],10h
264	cmp byte[edx],80h	264	cmp byte[edx],80h
265	jbe .sb_try_to_detect_at_specified_port	265	jbe .sb_try_to_detect_at_specified_port
266	;error - no SB card detected	266	;error - no SB card detected
267	.sb_not_found_err:	267	.sb_not_found_err:
268	xor eax, eax	268	xor eax, eax
269	ret	269	ret
270		270
271	.sb_try_to_detect_at_specified_port:	271	.sb_try_to_detect_at_specified_port:
272	call sb_reset	272	call sb_reset
273	add dl,8	273	add dl,8
274	mov ecx,100	274	mov ecx,100
275	.sb_check_port:	275	.sb_check_port:
276	in al,dx	276	in al,dx
277	test al,al ;is DSP port ready to be read?	277	test al,al ;is DSP port ready to be read?
278	jns .sb_port_not_ready	278	jns .sb_port_not_ready
279		279
280	sub dl,4	280	sub dl,4
281	in al,dx ;check for AAh response	281	in al,dx ;check for AAh response
282	add dl,4	282	add dl,4
283	cmp al,0xAA	283	cmp al,0xAA
284	jne .sb_port_not_ready	284	jne .sb_port_not_ready
285	.sb_card_found:	285	.sb_card_found:
286	and dl,0xF0	286	and dl,0xF0
287	add dl,0xC	287	add dl,0xC
288	sb_out 0xE1 ;get DSP version	288	sb_out 0xE1 ;get DSP version
289	add dl,2	289	add dl,2
290	@@:	290	@@:
291	in al,dx	291	in al,dx
292	test al,al ;is DSP port ready to be read?	292	test al,al ;is DSP port ready to be read?
293	jns @b	293	jns @b
294	sub dl,4	294	sub dl,4
295	in al,dx ;get major version	295	in al,dx ;get major version
296	ror eax,16	296	ror eax,16
297	add dl,4	297	add dl,4
298	@@:	298	@@:
299	in al,dx	299	in al,dx
300	test al,al ;is DSP port ready to be read?	300	test al,al ;is DSP port ready to be read?
301	jns @b	301	jns @b
302	sub dl,4	302	sub dl,4
303	in al,dx ;get minor version	303	in al,dx ;get minor version
304	xor edx,edx	304	xor edx,edx
305	mov dl,10	305	mov dl,10
306	div dl	306	div dl
307	ror eax,16	307	ror eax,16
308	xor ah,ah	308	xor ah,ah
309	mov [sb_DSP_version_int],eax ;for internal usage	309	mov [sb_DSP_version_int],eax ;for internal usage
310	if DEBUG	310	if DEBUG
311	add [sb_DSP_version],eax	311	add [sb_DSP_version],eax
312	end if	312	end if
313	ret	313	ret
314		314
315	.sb_port_not_ready:	315	.sb_port_not_ready:
316	loop .sb_check_port ;100 retries (~100 microsec.)	316	loop .sb_check_port ;100 retries (~100 microsec.)
317	jmp .sb_detect_next_port	317	jmp .sb_detect_next_port
318	endp	318	endp
319	;-------------------------------------------------------------------------------	319	;-------------------------------------------------------------------------------
320	if DEBUG	320	if DEBUG
321	proc SysMsgBoardNum ;warning: destroys eax,ebx,ecx,esi	321	proc SysMsgBoardNum ;warning: destroys eax,ebx,ecx,esi
322	mov ebx,eax	322	mov ebx,eax
323	mov ecx,8	323	mov ecx,8
324	mov esi,(number_to_out+1)	324	mov esi,(number_to_out+1)
325	.1:	325	.1:
326	mov eax,ebx	326	mov eax,ebx
327	and eax,0xF	327	and eax,0xF
328	add al,'0'	328	add al,'0'
329	cmp al,(10+'0')	329	cmp al,(10+'0')
330	jb @f	330	jb @f
331	add al,('A'-'0'-10)	331	add al,('A'-'0'-10)
332	@@:	332	@@:
333	mov [esi+ecx],al	333	mov [esi+ecx],al
334	shr ebx,4	334	shr ebx,4
335	loop .1	335	loop .1
336	dec esi	336	dec esi
337	call SysMsgBoardStr	337	call SysMsgBoardStr
338	ret	338	ret
339	endp	339	endp
340	end if	340	end if
341	;all initialized data place here	341	;all initialized data place here
342	align 4	342	align 4
343	version dd (5 shl 16) or (API_VERSION and 0xFFFF)	343	version dd (5 shl 16) or (API_VERSION and 0xFFFF)
344		344
345	sb_base_port: dd 200h ;don't ask me why - see the code&docs	345	sb_base_port: dd 200h ;don't ask me why - see the code&docs
346		346
347	sound_dma dd sb_dma_num	347	sound_dma dd sb_dma_num
348		348
349	;note that 4th DMA channel doesn't exist, it is used for cascade	349	;note that 4th DMA channel doesn't exist, it is used for cascade
350	;plugging the first DMA controler to the second	350	;plugging the first DMA controler to the second
351	dma_table db 0x87,0x83,0x81,0x82,0xFF,0x8B,0x89,0x8A	351	dma_table db 0x87,0x83,0x81,0x82,0xFF,0x8B,0x89,0x8A
352		352
353	my_service db 'SOUND',0 ;max 16 chars include zero	353	my_service db 'SOUND',0 ;max 16 chars include zero
354		354
355	if DEBUG	355	if DEBUG
356	number_to_out db '0x00000000',13,10,0	356	number_to_out db '0x00000000',13,10,0
357		357
358	msgInit db 'detecting hardware...',13,10,0	358	msgInit db 'detecting hardware...',13,10,0
359	msgExit db 'exiting... May be some problems found?',13,10,0	359	msgExit db 'exiting... May be some problems found?',13,10,0
360	msgPlay db 'start play',13,10,0	360	msgPlay db 'start play',13,10,0
361	;msgStop db 'stop play',13,10,0	361	;msgStop db 'stop play',13,10,0
362	msgCallback db 'set_callback received from the mixer!',13,10	362	msgCallback db 'set_callback received from the mixer!',13,10
363	db 'callback handler is: ',0	363	db 'callback handler is: ',0
364	msgErrAtchIRQ db 'failed to attach IRQ',(sb_irq_num+'0'),13,10	364	msgErrAtchIRQ db 'failed to attach IRQ',(sb_irq_num+'0'),13,10
365	db 'owner',39,'s handler: ',0	365	db 'owner',39,'s handler: ',0
366	msgSucAtchIRQ db 'succesfully attached IRQ',(sb_irq_num+'0')	366	msgSucAtchIRQ db 'succesfully attached IRQ',(sb_irq_num+'0')
367	db ' as hardcoded',13,10,0	367	db ' as hardcoded',13,10,0
368	msgErrRsrvPorts db 'failed to reserve needed ports.',13,10	368	msgErrRsrvPorts db 'failed to reserve needed ports.',13,10
369	db 'Driver may work unstable',13,10,0	369	db 'Driver may work unstable',13,10,0
370	msgSetVol db 'DEV_SET_MASTERVOL call came',13,10,0	370	msgSetVol db 'DEV_SET_MASTERVOL call came',13,10,0
371	msgGetVol db 'DEV_GET_MASTERVOL call came',13,10,0	371	msgGetVol db 'DEV_GET_MASTERVOL call came',13,10,0
372	msgErrDMAsetup db 'failed to setup DMA - bad channel',13,10,0	372	msgErrDMAsetup db 'failed to setup DMA - bad channel',13,10,0
373	;-------------------------------------------------------------------------------	373	;-------------------------------------------------------------------------------
374	msgDSPFound db 'DSP found at port 2'	374	msgDSPFound db 'DSP found at port 2'
375	label port_second_digit_num dword at $	375	label port_second_digit_num dword at $
376	db '00h',13,10,'DSP version '	376	db '00h',13,10,'DSP version '
377	sb_DSP_version: db '0.00 - SB'	377	sb_DSP_version: db '0.00 - SB'
378	sb_DSP_description: db 32,32,32,32,13,10,0	378	sb_DSP_description: db 32,32,32,32,13,10,0
379	;-------------------------------------------------------------------------------	379	;-------------------------------------------------------------------------------
380	end if	380	end if
381		381
382	section '.data' data readable writable align 16	382	section '.data' data readable writable align 16
383	;all uninitialized data place here	383	;all uninitialized data place here
384		384
385	;pTempBuf rd 1	385	;pTempBuf rd 1
386		386
387	callback rd 1	387	callback rd 1
388		388
389	int_flip_flop rd 1	389	int_flip_flop rd 1
390		390
391	sb_master_vol rd 1	391	sb_master_vol rd 1
392		392
393	sb_DSP_version_int rd 1	393	sb_DSP_version_int rd 1

Subversion Repositories Kolibri OS

(root)/kernel/trunk/drivers/sb16/sb16.asm – Rev 1306 → 1735