WebSVN – Kolibri OS – Diff – /drivers/audio/sb16/sb16.asm

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                              ;;
-;; Copyright (C) KolibriOS team 2004-2012. All rights reserved. ;;
+;; Copyright (C) KolibriOS team 2004-2014. All rights reserved. ;;
 ;; Distributed under terms of the GNU General Public License    ;;
 ;;                                                              ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+format PE DLL native 0.05
-format MS COFF
+entry START
 include 'CONFIG.INC'
-;structs----------------------------------------------------------
-struc IOCTL
+section '.flat' code readable writable executable
-{  .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
+include '..\..\struct.inc'
-public service_proc
-public version
+include '..\..\macros.inc'
-include '..\proc32.inc'
+include '..\..\proc32.inc'
-include '..\imports.inc'
-section '.flat' code readable align 16
+include '..\..\peimport.inc'
 include 'SB16.INC'
 ;-------------------------------------------------------------------------------
-proc START stdcall, state:dword
+proc START c uses ebx esi edi, state:dword, cmdline:dword
         cmp     [state], 1
         jne     .stop
 .entry:
 if DEBUG
         mov     esi, msgInit
-        call    SysMsgBoardStr
+        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
-        call    SysMsgBoardStr
+        invoke  SysMsgBoardStr
 end if
         xor     ebx, ebx
         mov     ecx, [sb_base_port]
         lea     edx, [ecx+0xF]
-        call    ReservePortArea  ;these ports must be mine !
+        invoke  ReservePortArea  ;these ports must be mine !
         dec     eax
         jnz     @f
 if DEBUG
         mov     esi, msgErrRsrvPorts
-        call    SysMsgBoardStr
+        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
-        stdcall AttachIntHandler, sb_irq_num, sb_irq, 0
+        invoke  AttachIntHandler, sb_irq_num, sb_irq, 0
 if DEBUG
         test    eax, eax
         jnz     @f
         mov     esi, msgErrAtchIRQ
-        call    SysMsgBoardStr
+        invoke  SysMsgBoardStr
 ;        stdcall GetIntHandler, sb_irq_num
 ;        call    SysMsgBoardNum
         jmp     .stop
 @@:
         mov     esi, msgSucAtchIRQ
-        call    SysMsgBoardStr
+        invoke  SysMsgBoardStr
 end if
-        stdcall RegService, my_service, service_proc
+        invoke  RegService, my_service, service_proc
         ret
 .stop:
         call    sb_reset
 .exit:
 if DEBUG
         mov     esi, msgExit
-        call    SysMsgBoardStr
+        invoke  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
+proc service_proc stdcall uses ebx esi edi, ioctl:dword
         mov     edi, [ioctl]
-        mov     eax, [edi+io_code]
+        mov     eax, [edi+IOCTL.io_code]
         cmp     eax, SRV_GETVERSION
         jne     @F
-        mov     eax, [edi+output]
+        mov     eax, [edi+IOCTL.output]
-        cmp     [edi+out_size], 4
+        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
-        call    SysMsgBoardStr
+        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
-        call    SysMsgBoardStr
+        invoke  SysMsgBoardStr
 end if
-        mov     edi, [edi+input]
+        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
-        call    SysMsgBoardStr
+        invoke  SysMsgBoardStr
 end if
-        mov     eax, [edi+input]
+        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
-        call    SysMsgBoardStr
+        invoke  SysMsgBoardStr
 end if
-        mov     eax, [edi+output]
+        mov     eax, [edi+IOCTL.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
+        mov     eax, [SB16Buffer]
-        stdcall [callback], SB16Buffer0   ;for 32k buffer
+        stdcall [callback], eax           ;for 32k buffer
 else if sb_buffer_size eq full_buffer
+        mov     eax, [SB16Buffer]
+        push    eax
-        stdcall [callback], SB16Buffer0   ;for 64k buffer
+        stdcall [callback], eax           ;for 64k buffer
+        pop     eax
+        add     eax, 16384
-        stdcall [callback], SB16Buffer1   ;for 64k buffer
+        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], SB16Buffer1   ;for 32k buffer
+        stdcall [callback], eax           ;for 32k buffer
 else if sb_buffer_size eq full_buffer
+        mov     eax, [SB16Buffer]
+        add     eax, 32768
+        push    eax
-        stdcall [callback], SB16Buffer2   ;for 64k buffer
+        stdcall [callback], eax           ;for 64k buffer
+        pop     eax
+        add     eax, 16384
-        stdcall [callback], SB16Buffer3   ;for 64k buffer
+        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
+        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
+        invoke  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,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
-section '.data' data readable writable align 16
+data fixups
+end data
-;all uninitialized data place here
 align 4
-;pTempBuf          rd 1
+SB16Buffer         rd 1
 callback           rd 1
 int_flip_flop      rd 1
 sb_master_vol      rd 1
 sb_DSP_version_int rd 1

Subversion Repositories Kolibri OS

(root)/drivers/audio/sb16/sb16.asm – Rev 4961 → 5057