WebSVN – Kolibri OS – Diff – /programs/media/ac97wav/trunk/ac97wav.asm


;---------------------------------------------------------------------
;
;   MenuetOS AC97 WAV Player
;
;    0.03  November 10, 2004  doesn't halt if file not found
;    0.04  November 11, 2004  better positioning (with mouse)
;    0.05  November 14, 2004  internals clean up
;                             fixed cutting sound at the edges
;    0.06  November 17, 2004  fixed many bugs
;    0.07  Nov      20, 2004  deactivates text box when 'play' pressed
;                             stops playing before closing a window
;    0.08  Nov      24, 2004  added support for 8bit and mono modes
;                             +variable rate for some chipsets
;    0.09  August   26, 2006  modified to use function 70
;
;   Use [flat assembler 1.64] to compile.
;
;---------------------------------------------------------------------
 
  use32 	 ; turn on 32 bit mode
  org	  0x0	      ; the program is placed at 0 offset
 
  db	 'MENUET01'	; 8-byte identifier of MenuetOS application
  dd	 0x01	      ; header version (always 1)
  dd	 START	       ; address of the beginning of the code
  dd	 IMAGE_END     ; size of the program's image
  dd	 MEMORY_END	; how much memory does it need
  dd	 STACK_P     ; a pointer to the top of the stack
  dd	 textbox_string
;  dd     0x0             ; address of buffer for parameters (not used)
  dd	 0x0	     ; reserved
 
;---------------------------------------------------------------------
 
 
include "macros.inc"	 ; standart macros & constants
include "meosfunc.inc"	   ; MenuetOS API functions names
include "debug.inc"	; printing to debug board
include "constant.inc"	   ; BIT?? constants
include "ac97.inc"     ; AC'97 constants
include "pci.inc"     ; PCI interface
include "codec.inc"	; functions for configuring codec
include "frontend.inc"	   ; main window
 
;---------------------------------------------------------------------
 
;  Uncomment these strings if you don't want to receive debug messages:
 
;  macro dps str   {}    ; dps prints a string without CRLF
;  macro dpd num   {}    ; prints unsigned decimal number
;  macro pregs     {}    ; outputs EAX, EBX, ECX, EDX
;  macro newline   {}    ; CRLF
;  macro print str {}    ; output a string with CRLF
;  macro dph arg   {}    ; print hex number
 
;---------------------------------------------------------------------
 
;macro device id, addr { dd id, addr }
macro devices [id, str]
{
  common
    label supported_devices dword
  forward
    local string
    dd id
    dd string
  forward
    string db str
    db 0
}
 
 
devices \
  (ICH_DID shl 16) + INTEL_VID,      "ICH"    ,\
  (ICH0_DID shl 16) + INTEL_VID,     "ICH0"   ,\
  (ICH2_DID shl 16) + INTEL_VID,     "ICH2"   ,\
  (ICH3_DID shl 16) + INTEL_VID,     "ICH2"   ,\
  (ICH4_DID shl 16) + INTEL_VID,     "ICH4"   ,\
  (ICH5_DID shl 16) + INTEL_VID,     "ICH5"   ,\
  (MX440_DID shl 16) + INTEL_VID,    "440MX"  ,\
  (SI7012_DID shl 16) + SIS_VID,     "SI7012" ,\
  (NFORCE_DID shl 16) + NVIDIA_VID,  "NForce" ,\
  (NFORCE2_DID shl 16) + NVIDIA_VID, "NForce2",\
  (AMD8111_DID shl 16) + AMD_VID,    "AMD8111",\
  (AMD768_DID shl 16) + AMD_VID,     "AMD768"
dd    0
 
 
;---------------------------------------------------------------------
;---  MAIN PROGRAM  --------------------------------------------------
;---------------------------------------------------------------------
 
START:
 
; Print PCI version (for example, 2.16)
;        mcall   MF_PCI, 0
;        mov     bl, al
;        movzx   eax, ah
;        dps    "PCI version: "
;        dpd     eax
;        movzx   eax, bl
;        dpd     eax
;        newline
 
; Check PCI access mechanism (must be 1 or 2)
    mcall    MF_PCI, 2
    dec    al
    cmp    al, 1
    jna    @f
    print    "Error: cannot access PCI bus."
    jmp    exit
;        dps     "PCI returned "
;        movzx   eax, al
;        dpd     eax
;        newline
     @@:
 
 
; Get last bus & then check all buses & devices
    mcall    MF_PCI, 1
    mov    [lastbus], al
 
     ; looking for a compatible device
    mov    [bus], -1
  .next_bus:
    inc    [bus]
 
    mov    al, [lastbus]
    cmp    al, [bus]
    jb	  .device_not_found
 
    mov    [devfn], 0
  .next_devfn:
 
    mov    cl, 0
    call    pciRegRead32
 
    mov    edi, supported_devices
      @@:
    mov    ebx, [edi]
    test    ebx, ebx
    jz	  @f
    cmp    eax, ebx
    jnz    .skip
    add    edi, 4
    mov    [device_id], eax
    mov    edx, [edi]
    call    debug_outstr
    jmp    proceed
       .skip:
    add    edi, 8
    jmp    @b
      @@:
 
    inc    [devfn]
    cmp    [devfn], 255
    jb	  .next_devfn
 
    jmp    .next_bus
 
 
  .device_not_found:
    print    "Could not find Intel AC'97 compatible codec!"
    print    "1) Check if it's enabled in BIOS."
    print    "2) Check if your device is included in the device list."
    jmp    exit
 
 
 proceed:
    print    " integrated AC97 audio codec detected."
    mov    eax, [device_id]
    cmp    eax, (ICH4_DID shl 16) + INTEL_VID
    je	  .newich
    cmp    eax, (ICH5_DID shl 16) + INTEL_VID
    jne    .nonewich
      .newich:
    mov    [AC97ICH4], 1
      .nonewich:
 
    cmp    eax, (SI7012_DID shl 16) + SIS_VID
    jne    @f
    mov    [SI7012], 1
      @@:
 
;---------------------------------------------------------------------
 
; Get NAMBAR register base port address & save it
    mov    cl, NAMBAR_REG
    call    pciRegRead16
 
    and    eax, 0xFFFE
    mov    [NAMBAR], ax
    test    eax, eax
    jnz    .mixer_base_ok
 
    print    "Error: Intel ICH based AC97 audio codec disabled in BIOS!"
    jmp    exit
 
 .mixer_base_ok:
    dps    "NAMBAR: "
    dph    eax
 
; Get NABMBAR & save it
    mov    cl, NABMBAR_REG
    call    pciRegRead16
    and    eax, 0xFFC0
    mov    [NABMBAR], ax
    test    eax, eax
    jnz    .bm_base_ok
 
    print    "Error: Intel ICH based AC97 audio codec disabled in BIOS!"
    jmp    exit
 
 .bm_base_ok:
    dps    " NABMBAR: "
    dph    eax
    newline
 
;---------------------------------------------------------------------
 
; Get IRQ (not used)
    mov    cl, IRQ_REG
    call    pciRegRead8
    mov    [AC97IRQ], al
 
; Get Interrupt pin (not used)
    mov    cl, INT_REG
    call    pciRegRead8
    mov    [AC97INT], al
 
; AC97ICH4 should work then...
    cmp    [AC97ICH4], 1
    jne    .skip_ich4_init
 
    mov    cl, ICH4_CFG_REG  ; 0x41
    call    pciRegRead8
    or	  al, 0x1
    mov    dl, al
    call    pciRegWrite8
 
    mov    cl, 0x54
    call    pciRegRead16
    and    eax, 0xFFFF
    dps    "Power Control & Status: "
    dph    eax
    newline
 .skip_ich4_init:
 
;---------------------------------------------------------------------
 
    mov    cl, PCI_CMD_REG
    call    pciRegRead16	   ; read PCI command register
    mov    dx, ax
    or	  dx, IO_ENA+BM_ENA+BIT10    ; enable IO and bus master + disable
		       ;  interrupts
    call    pciRegWrite16
 
;---------------------------------------------------------------------
 
    print    "Enabling access to ports..."
 
    movzx    ecx, [NAMBAR]
    mov    edx, ecx
    add    edx, NAM_SIZE
    mcall    MF_PORTS, PRT_RESERVE
    test    eax, eax
    jz	  @f
    print    "Error: couldn't enable access to ports"
    jmp    exit
     @@:
 
    movzx    ecx, [NABMBAR]
    mov    edx, ecx
    add    edx, NABM_SIZE
    mcall    MF_PORTS, PRT_RESERVE
    test    eax, eax
    jz	  @f
    print    "Error: couldn't enable access to ports"
    jmp    exit
     @@:
 
;---------------------------------------------------------------------
 
; setup the Codec
    mov    eax, 48000
    call    codecConfig 	 ; unmute codec, set rates.
    test    eax, eax
    jnz    @f
    print    "Error: cannot initialize AC97 device."
    jmp    fpexit
       @@:
 
    print    "Congrutalations! Your device has been initialized properly!"
    call    print_info
 
;---------------------------------------------------------------------
 
; register reset the DMA engine.
    mov    edx, PO_CR_REG    ; PCM out control register
    mov    al, RR	 ; reset
    call    NABMBAR_write_byte
    
;start fix for MM (1)
    mcall  MF_INTERNAL_SERVICES,ALLOC_PHYS_MEM,120*1024
    test   eax,eax
    jz     no_phys_buffers             ;not enough memory
    mov    [phys_wav_buffer1],eax
    add    eax,60*1024
    mov    [phys_wav_buffer2],eax
    mcall  MF_INTERNAL_SERVICES,ALLOC_PHYS_MEM,32*8
    test   eax,eax
    jnz    @f
    mcall  MF_INTERNAL_SERVICES,FREE_PHYS_MEM,[phys_wav_buffer1]
    jmp    no_phys_buffers
@@:
    mov    [phys_bdl_buffer],eax
;end fix for MM (1)
 
; create Buffer Descriptors List
    call    prepare_BDL
 
; open player's window
    mcall    MF_THREAD, THR_CREATE, thread, thread_stack
 
; wait for command
  .new_check:
    cmp    [status], ST_PLAY
    jne    @f
    call    play
      @@:
    cmp    [status], ST_STOP
    jne    @f
    call    stop
      @@:
    cmp    [status], ST_EXIT
    je	  stopexit
 
    mcall    MF_DELAY, 10
    jmp    .new_check
 
stopexit:
    call    stop
 
fpexit:
 
; free ports
    movzx    ecx, [NAMBAR]
    mov    edx, ecx
    add    edx, NAM_SIZE
    mcall    MF_PORTS, PRT_FREE
 
    movzx    ecx, [NABMBAR]
    mov    edx, ecx
    add    edx, NABM_SIZE
    mcall    MF_PORTS, PRT_FREE
 
;---------------------------------------------------------------------
;start fix for MM (2)
    mcall  MF_INTERNAL_SERVICES,FREE_PHYS_MEM,[phys_bdl_buffer]
    mcall  MF_INTERNAL_SERVICES,FREE_PHYS_MEM,[phys_wav_buffer1]
;end fix for MM (2)
exit:
    mcall    MF_EXIT
no_phys_buffers:
    print  "allocation of physical buffers failed"
    jmp    exit
 
;---------------------------------------------------------------------
;---  FUNCTIONS  -----------------------------------------------------
;---------------------------------------------------------------------
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; prepare_BDL - initializes BUFFER DESCRIPTORS LIST
prepare_BDL:
    mov    ecx, 32 / 2	  ; make 32 entries in BDL
    mov    edi, BDL_BUFFER
;    call   get_my_address
    mov    ebx, 30*1024
    cmp    [SI7012], 1
    jne    @f
    add    ebx, ebx
@@:
    ; set buf. desc. 0 to start of data file in memory
    push   eax
;    add    eax, WAV_BUFFER1
;start fix for MM (6)
    mov    eax,[phys_wav_buffer1]
;end fix for MM (6)    
    stosd
    ; set length to 60k samples. 1 sample is 16 bit or 2 bytes.
    mov    eax, ebx ;60*1024   ; number of samples
    or	   eax, BUP
    stosd
 
    mov    eax, [esp]
;    add    eax, WAV_BUFFER2
;start fix for MM (7)
    mov    eax,[phys_wav_buffer2]
;end fix for MM (7)
    stosd
    mov    eax, ebx ;60*1024
    or	   eax, BUP
    stosd
 
    pop    eax
    loop   @b
        
 
    ; tell the DMA engine where to find our list of Buffer Descriptors.
    ; eax = base addr!
;start fix for MM (3)
  ;copy to physical memory
    mcall  MF_INTERNAL_SERVICES,SET_PHYS_BUFFER,[phys_bdl_buffer],BDL_BUFFER,32*8 
  ;physical address of bdl    
    mov    eax,[phys_bdl_buffer]                                
;end fix for MM (3)    
    mov    edx, PO_BDBAR_REG
;    add    eax, BDL_BUFFER
    call   NABMBAR_write_dword
 
ret
 
 
;---------------------------------------------------------------------
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; stop - stops current music
;; in:  nothing
;; out: nothing
stop:
;        print   "STOP!"
    push    eax edx
 
    mcall    MF_DELAY, 10
    mov    edx, PO_CR_REG
    mov    al, 0
    call    NABMBAR_write_byte
    cmp    [status], ST_STOP
    jne    .exit
    mov    [status], ST_DONE
      .exit:
 
    pop    edx eax
ret
 
;---------------------------------------------------------------------
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; play - plays wav file!
;; in:  nothing
;; out: nothing (but sound :)   !corrupts registers!
play:
    ; at first, reset file and get file size
        mcall   MF_SYSTREE, attrinfo
        test    eax, eax
        jnz     .notfound
        mov     eax, [fileattr+32]
        mov     [file_size], eax
    mov    [fileinfo.first_byte], 0
    mcall    MF_SYSTREE, fileinfo ; load a block, returns error code in eax
		     ;   and size of the file in ebx
    test    eax, eax	     ; 0 - successful
    jz	  @f
        cmp     eax, 6          ; 6 = eof - successful too
        jz      @f
.notfound:
    print    "AC97: File not found!"
    mov    [status], ST_STOP
    jmp    .exit
     @@:
 
 
 
 
    mov    al, [LOAD_BUFFER+32] ; bytes per sample
    dec    al
    jz	  @f
    cmp    al, 3
    je	  @f
    sub    al, [LOAD_BUFFER+22] ; channels
    add    al, 2
      @@:
    mov    [wav_mode], al
 
    pusha
    movzx    ebx,word [LOAD_BUFFER+24]
    mov   eax,48000
    xor   edx,edx
    div   ebx
    mov   [difference_of_frequency],al
;        dph   eax
    mov   ecx,edx
    imul  eax,ecx,10
    xor   edx,edx
    div   ebx
    mov   ecx,edx
    imul  ecx,10
    push  eax
    mov   eax,ecx
    xor   edx,edx
    div   ebx
;        dph   eax
    cmp   eax,5
    jl	  .temp_15
    pop   eax
;        dph   eax
 
    inc   eax
    jmp   .temp_16
     .temp_15:
    pop   eax
     .temp_16:
    mov   [difference_of_frequency_1],al
;        dph   eax
    xor   edx,edx
    movzx  ebx,[difference_of_frequency]
    imul   ebx,10
    add    bl,[difference_of_frequency_1]
    mov   [difference_of_frequency_2],bl
;        dph   ebx
    popa
 
    movzx    eax, word [LOAD_BUFFER+24]
    ;dps "Freq: "
    ;dpd eax
    ;newline
    call    set_sample_rate
 
 
    ; change the last_valid_index to the (current_index-1)
    ; the LVI register tells the DMA engine where to stop playing
    call    updateLVI
 
    ; if current index is odd, load buffer 1 then 0, jump to tuneLoop
    ; if it is even, buffers 0 then 1; tuneLoop1
    call    getCurrentIndex
    and    eax, BIT0
 
    mov    esi, eax
    push    eax
    call    update_next_buffer
    pop    eax
    xor    eax, 1
    call    update_next_buffer
 
    ; start playing!
    mov    edx, PO_CR_REG
    mov    al, RPBM
    call    NABMBAR_write_byte
 
    jmp    [jumpto+esi*4]
 
 
   .tuneLoop:
    ; wait while the current_index is even
    @@:
;        dps     "a"
    mcall    MF_DELAY, 7
    call    getCurrentIndex
    test    al, BIT0
    jz	  @b	   ; loop if not ready yet
;        print   "fa"
 
    call    updateLVI
 
    mov    eax, 0
    call    update_next_buffer
    test    al, al
    jnz    .exit_wait
 
    cmp    [status], ST_PLAY
    jne    .exit
 
    test    [volume], 0x10000000 ; test volume_changed bit
    je	  @f
    mov    al, byte [volume]
    call    setVolume
    and    [volume], 0x0FFFFFFF ; clear vloume_changed bit
     @@:
 
     .tuneLoop1:
     @@:
;        dps     "b"
    mcall    MF_DELAY, 7
    call    getCurrentIndex
    test    al, BIT0
    jnz    @b	    ; loop if not ready yet
;        print   "fb"
 
    cmp    [status], ST_PLAY
    jne    .exit
 
    call    updateLVI
 
    mov    eax, 1
    call    update_next_buffer
    test    al, al
    jnz    .exit_wait
 
    jmp    .tuneLoop
   .exit_wait:
    mcall    MF_DELAY, 30 ; a little pause - let the player finish
   .exit:
ret
attempts db 0
 
buffers dd WAV_BUFFER1, WAV_BUFFER2
jumpto	  dd play.tuneLoop, play.tuneLoop1
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; update_first_buffer - load a chunk into the first buffer, increments offset
;; in:  eax = number - 0 or 1
;; out: error code, 0 - successful
update_next_buffer:
    push   esi edi
 
    movzx  edx, byte [wav_mode]
    mov    ecx, [blocks + edx * 4]
    mov    [fileinfo.bytes], ecx
 
    mov    esi, LOAD_BUFFER
    mov    edi, [buffers+eax*4]
    push   eax              ;save buffer index
  start_attempts:
    mcall  MF_SYSTREE, fileinfo
    test eax, eax
    jz @f
        cmp     eax, 6
        jz      @f
    cmp   [attempts],100
    je	 @f
    inc   [attempts]
    jmp   start_attempts
;    dpd eax
;    newline
;    dpd [fileinfo.first_block]
;    newline
       @@:
;        print  " loaded!"
 
    push   eax ebx edx
    mov    eax,ecx
    xor    edx,edx
    imul   eax,10
    movzx     ebx,[difference_of_frequency_2]
 
    div    ebx
    mov    ecx,eax
 
;    mov   ebx,10
;    mov   eax,edx
;    xor   edx,edx
;    div   ebx
;   cmp   edx,5
;    jb   temp_12_7
;    inc   ecx
;  temp_12_7:
   cmp	 edx,0
    je	 temp_12_7
    inc   ecx
  temp_12_7:
 
    pop    edx ebx 
    mov    eax,[esp+4]            ;restore buffer index
    add    [fileinfo.first_byte], ecx ; +60Kb
    call   [convert + edx * 4]
;start fix for MM (4)    
    mov    eax,[esp+4]            ;restore buffer index
    test   eax,not 1
    jz     .ok
    print  "buffer index out of range"
    dpd    eax
    jmp    .ret
  .ok:
    push   ebp
    mov    ebp,[phys_wav_buffer1+eax*4]
    mov    edi,[buffers+eax*4]
    mcall  MF_INTERNAL_SERVICES,SET_PHYS_BUFFER,ebp,edi,60*1024
    pop    ebp
.ret:
    pop    eax
    add    esp,4                  ;pop buffer index    
;end fix for MM (4)    
 
    pop    edi esi
ret
 
c8mono:
    mov   [type_of_conversion],1
    jmp   for_all_type
 
c8mono_1:
    lodsb
    call  c8mono_2
    push  ax
    shl   eax,16
    pop   ax
    push  eax
    mov al,[esi]
    call  c8mono_2
    push  ax
    shl   eax,16
    pop   ax
    mov  ebx,eax
    pop  eax
    jmp  for_all_type_1
 
c8mono_2:
    sub    al, 0x80
    cbw
    imul   ax, 255
    ret
 
c8stereo:
    mov   [type_of_conversion],2
    jmp   for_all_type
 
c8stereo_1:
    lodsb
    call  c8stereo_2
    shl eax,16
    lodsb
    call  c8stereo_2
    push  eax
    mov al,[esi]
    call  c8stereo_2
    shl eax,16
    mov al,[esi+1]
    call  c8stereo_2
    mov   ebx,eax
    pop  eax
    jmp   for_all_type_1
 
c8stereo_2:
    sub    al, 0x80
    cbw
    imul   ax, 255
    ret
 
c16mono:
    mov   [type_of_conversion],3
    jmp   for_all_type
 
c16mono_1:
	lodsw
	push  ax
	shl eax,16
	pop   ax
	mov bx,[esi]
	shl ebx,16
	mov bx,[esi]
	jmp  for_all_type_1
 
c16stereo:
 for_all_type:
    xor   edx,edx
    mov    eax, 15*1024*10
    movzx     ebx,[difference_of_frequency_2]
    xor    edx,edx
    div    ebx
    mov    ecx,eax
 
;    mov   ebx,10
;    mov   eax,edx
;    xor   edx,edx
;    div   ebx
;    cmp   edx,5
;    jb   temp_12_6
;    inc   ecx
;  temp_12_6:
   cmp	 edx,0
    je	 temp_12_6
    inc   ecx
  temp_12_6:
 
  c16stereo_1:
    mov  [znak],0
 
    cmp  [type_of_conversion],1
    je	 c8mono_1
    cmp  [type_of_conversion],2
    je	 c8stereo_1
    cmp  [type_of_conversion],3
    je	 c16mono_1
    lodsd
 
    mov ebx,[esi]
for_all_type_1:
    cmp eax,ebx
    jne  c16stereo_2
    inc  [znak]
    c16stereo_2:
    push eax
    push ecx
    sub  eax,ebx
    push eax
    shl  eax,16
    movzx  ebx,[difference_of_frequency]
    inc   ebx
    xor  edx,edx
    div  ebx
    shr  eax,16
    mov  ecx,eax
    pop  eax
    xor  ax,ax
    xor  edx,edx
    div  ebx
    shl  eax,16
    mov  cx,ax
    mov  ebx,ecx
    pop  ecx
    pop   eax
    mov    dl,[difference_of_frequency]
    inc   dl
    @@:
temp_12:
    cmp   [difference_of_frequency_1],0
    je	  temp_12_3
    cmp   [difference_of_frequency_1],5
    jne   temp_12_4
    cmp  [difference_of_frequency_4],2
    jne  temp_12_3
    jmp  temp_12_5
 temp_12_4:
    cmp  [difference_of_frequency_4],10
    jne  temp_12_3
 
 temp_12_5:
 
    cmp  [znak],0
    jne   temp_12_5_1
    sub  eax,ebx
    jmp  temp_12_5_2
 temp_12_5_1:
    add  eax,ebx
 temp_12_5_2:
 
 
    stosd
    inc  [schetchik]
    mov    [difference_of_frequency_4],0
 temp_12_3:
    cmp  [znak],0
    jne   temp_13
    sub  eax,ebx
    jmp  temp_14
 temp_13:
    add  eax,ebx
 
 temp_14:
    cld
    dec    dl
    jz	  temp_14_1
    stosd
    inc   [schetchik]
    inc   [difference_of_frequency_4]
    jmp   temp_12
 temp_14_1:
    dec    ecx
    cmp   ecx,0
;    jnz    c16stereo_1
    jg	  c16stereo_1
    newline
    dph [schetchik]
 temp_14_2:
    cmp   [schetchik],15360
    jge   temp_14_3
    stosd
    inc  [schetchik]
    jmp  temp_14_2
 
  temp_14_3:
    newline
    dph [schetchik]
    cmp   [schetchik],15360
    je	  temp_14_4
;    mov  [edi-4],dword 0
    sub   edi,4
;    sub   esi,4
 temp_14_4:
    mov   [schetchik],0
    ret
 
 
difference_of_frequency db 0
difference_of_frequency_1 db 0
difference_of_frequency_2 db 0
difference_of_frequency_4 db 0
schetchik dd 0
znak db 0
type_of_conversion db 0
 
convert dd c8mono, c8stereo, c16mono, c16stereo
blocks	  dd 30*512, 60*512, 60*512, 120*512
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; get_my_address - get base address of the program in physical memory
;;   in:  nothing
;;   out: eax = address
;start fix for MM (8)
;function shouldn't used.
;get_my_address:
;    pushad
;    mcall    MF_PROCINFO, procinfo, PN_MYSELF
;    popad
;    mov    eax, [procinfo.memory_start]
;ret
;end fix for MM (8)
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; set the last valid index to something other than we're currently playing
;; so that we never end
;;
;; this routine just sets the last valid index to 1 less than the index
;; that we're currently playing, thus keeping it in and endless loop
;; input:  none
;; output: none
updateLVI:
    push    eax
    call    getCurrentIndex
     ; dps "index "
     ; dpd eax
     ; newline
    dec    al
    and    al, INDEX_MASK
    call    setLastValidIndex
    pop    eax
ret
 
;---------------------------------------------------------------------
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; returns AL = current index value
getCurrentIndex:
    push    edx
    mov    edx, PO_CIV_REG
    call    NABMBAR_read_byte
    pop    edx
ret
 
;---------------------------------------------------------------------
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; input AL = index # to stop on
setLastValidIndex:
    push    edx
    mov    edx, PO_LVI_REG
    call    NABMBAR_write_byte
    pop    edx
ret
 
;---------------------------------------------------------------------
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; print_info - outputs debug information
;;  in:  nothing
;;  out: nothing
print_info:
    dps    "BUS: "
    movzx    eax, [bus]
    dph    eax
 
    dps    " DEVFN: "
    movzx    eax, [devfn]
    dph    eax
 
    dps    " IRQ: "
    movzx    eax, [AC97IRQ]
    dpd    eax
    newline
 
 
    dps    "CODEC_POWER_CTRL: "
    mov    edx, CODEC_POWER_CTRL_REG
    call    NAMBAR_read_word
    dph    eax
    dps    " (bits 0-3 should be set)"
    newline
 
    mov    edx, 0x28
    call    NAMBAR_read_word
    dph    eax
    dps    " - supported features"
    newline
    mov    edx, 0x2A
    call    NAMBAR_read_word
    dph    eax
    dps    " - config"
    newline
    mov    edx, 0x2C
    call    NAMBAR_read_word
    dph    eax
    dps    " - PCM rate"
 
    newline
ret
 
 
;---------------------------------------------------------------------
;---  DATA OF PROGRAM  -----------------------------------------------
;---------------------------------------------------------------------
volume		 dd  15
 
attrinfo:
        dd      5
        dd      0
        dd      0
        dd      0
        dd      fileattr
        db      0
        dd      textbox_string
 
fileinfo:
 .mode          dd      0		 ; READ
 .first_byte    dd      0
                dd      0
 .bytes         dd      60*1024		 ; 60 Kb
 
 .dest		 dd  LOAD_BUFFER ;file_data
	 ;  db  "/HD/1/WINDOWS/MEDIA/WICEB7~1.WAV",0
 
;sz textbox_string, "/hd/1/testmuz/menuet11.wav",0
textbox_string:
;---------------------------------------------------------------------
 
IMAGE_END:		 ; end of program's image
   rb 257
;   rb 257-textbox_string.size
;     textbox_string.size
 
;---------------------------------------------------------------------
 
device_id dd ?	  ; (device_id << 16) + vendor_id
lastbus   db ?	  ; pci coordinates
bus	 db ?
devfn	   db ?
 
AC97ICH4  db ?	  ; Intel ICH4 codec flag
SI7012	    db ?    ; SiS SI7012 codec flag
NAMBAR	    dw ?    ; Audio Mixers Registers (base)
NABMBAR   dw ?	  ; Bus Master Registers   (base)
 
AC97IRQ   db ?	  ; Interrupt request
AC97INT   db ?	  ; Interrupt pin
 
wav_mode  db ?	  ; bits per sample & channels
 
;---------------------------------------------------------------------
 
ST_DONE = 0x0	 ; for interacting with player's window
ST_PLAY = 0x1
ST_EXIT = 0x2
ST_STOP = 0x4
 
status	    db ?
 
fileattr: rb 40
 
;---------------------------------------------------------------------
phys_bdl_buffer rd 1
phys_wav_buffer1 rd 1
phys_wav_buffer2 rd 1
align 32
 
 
; Buffer Descriptors List
;  ___________________________
;  |     physical address    | dword
;  |_________________________|
;  | attr       |   length   | dword     max. length = 65535 samples
;  |_________________________|
 
BDL_BUFFER:
 rb 32*8     ; 32 descriptors, 8 bytes each
 
 
;---------------------------------------------------------------------
 
file_data:
 
WAV_BUFFER1:
 rb 60 * 1024  ; 60 Kb
 
WAV_BUFFER2:
 rb 60 * 1024
 
LOAD_BUFFER:
 rb 60 * 1024
 
;---------------------------------------------------------------------
 
procinfo process_information
 
work_area:
 rb 0x10000
 
;---------------------------------------------------------------------
 
rb 0x800
thread_stack:
 
rb 0x1000 ; for stack
STACK_P:
 
MEMORY_END:

Rev 109	Rev 139
1	;---------------------------------------------------------------------	1	;---------------------------------------------------------------------
2	;	2	;
3	; MenuetOS AC97 WAV Player	3	; MenuetOS AC97 WAV Player
4	;	4	;
5	; 0.03 November 10, 2004 doesn't halt if file not found	5	; 0.03 November 10, 2004 doesn't halt if file not found
6	; 0.04 November 11, 2004 better positioning (with mouse)	6	; 0.04 November 11, 2004 better positioning (with mouse)
7	; 0.05 November 14, 2004 internals clean up	7	; 0.05 November 14, 2004 internals clean up
8	; fixed cutting sound at the edges	8	; fixed cutting sound at the edges
9	; 0.06 November 17, 2004 fixed many bugs	9	; 0.06 November 17, 2004 fixed many bugs
10	; 0.07 Nov 20, 2004 deactivates text box when 'play' pressed	10	; 0.07 Nov 20, 2004 deactivates text box when 'play' pressed
11	; stops playing before closing a window	11	; stops playing before closing a window
12	; 0.08 Nov 24, 2004 added support for 8bit and mono modes	12	; 0.08 Nov 24, 2004 added support for 8bit and mono modes
13	; +variable rate for some chipsets	13	; +variable rate for some chipsets
-		14	; 0.09 August 26, 2006 modified to use function 70
14	;	15	;
15	; Use [flat assembler 1.56] to compile.	16	; Use [flat assembler 1.64] to compile.
16	;	17	;
17	;---------------------------------------------------------------------	18	;---------------------------------------------------------------------
18		19
19	use32 ; turn on 32 bit mode	20	use32 ; turn on 32 bit mode
20	org 0x0 ; the program is placed at 0 offset	21	org 0x0 ; the program is placed at 0 offset
21		22
22	db 'MENUET01' ; 8-byte identifier of MenuetOS application	23	db 'MENUET01' ; 8-byte identifier of MenuetOS application
23	dd 0x01 ; header version (always 1)	24	dd 0x01 ; header version (always 1)
24	dd START ; address of the beginning of the code	25	dd START ; address of the beginning of the code
25	dd IMAGE_END ; size of the program's image	26	dd IMAGE_END ; size of the program's image
26	dd MEMORY_END ; how much memory does it need	27	dd MEMORY_END ; how much memory does it need
27	dd STACK_P ; a pointer to the top of the stack	28	dd STACK_P ; a pointer to the top of the stack
28	dd textbox_string	29	dd textbox_string
29	; dd 0x0 ; address of buffer for parameters (not used)	30	; dd 0x0 ; address of buffer for parameters (not used)
30	dd 0x0 ; reserved	31	dd 0x0 ; reserved
31		32
32	;---------------------------------------------------------------------	33	;---------------------------------------------------------------------
33		-
34	include "lang.inc"	34
35	include "macros.inc" ; standart macros & constants	35	include "macros.inc" ; standart macros & constants
36	include "meosfunc.inc" ; MenuetOS API functions names	36	include "meosfunc.inc" ; MenuetOS API functions names
37	include "debug.inc" ; printing to debug board	37	include "debug.inc" ; printing to debug board
38	include "constant.inc" ; BIT?? constants	38	include "constant.inc" ; BIT?? constants
39	include "ac97.inc" ; AC'97 constants	39	include "ac97.inc" ; AC'97 constants
40	include "pci.inc" ; PCI interface	40	include "pci.inc" ; PCI interface
41	include "codec.inc" ; functions for configuring codec	41	include "codec.inc" ; functions for configuring codec
42	include "frontend.inc" ; main window	42	include "frontend.inc" ; main window
43		43
44	;---------------------------------------------------------------------	44	;---------------------------------------------------------------------
45		45
46	; Uncomment these strings if you don't want to receive debug messages:	46	; Uncomment these strings if you don't want to receive debug messages:
47		47
48	; macro dps str {} ; dps prints a string without CRLF	48	; macro dps str {} ; dps prints a string without CRLF
49	; macro dpd num {} ; prints unsigned decimal number	49	; macro dpd num {} ; prints unsigned decimal number
50	; macro pregs {} ; outputs EAX, EBX, ECX, EDX	50	; macro pregs {} ; outputs EAX, EBX, ECX, EDX
51	; macro newline {} ; CRLF	51	; macro newline {} ; CRLF
52	; macro print str {} ; output a string with CRLF	52	; macro print str {} ; output a string with CRLF
53	; macro dph arg {} ; print hex number	53	; macro dph arg {} ; print hex number
54		54
55	;---------------------------------------------------------------------	55	;---------------------------------------------------------------------
56		56
57	;macro device id, addr { dd id, addr }	57	;macro device id, addr { dd id, addr }
58	macro devices [id, str]	58	macro devices [id, str]
59	{	59	{
60	common	60	common
61	label supported_devices dword	61	label supported_devices dword
62	forward	62	forward
63	local string	63	local string
64	dd id	64	dd id
65	dd string	65	dd string
66	forward	66	forward
67	string db str	67	string db str
68	db 0	68	db 0
69	}	69	}
70		70
71		71
72	devices \	72	devices \
73	(ICH_DID shl 16) + INTEL_VID, "ICH" ,\	73	(ICH_DID shl 16) + INTEL_VID, "ICH" ,\
74	(ICH0_DID shl 16) + INTEL_VID, "ICH0" ,\	74	(ICH0_DID shl 16) + INTEL_VID, "ICH0" ,\
75	(ICH2_DID shl 16) + INTEL_VID, "ICH2" ,\	75	(ICH2_DID shl 16) + INTEL_VID, "ICH2" ,\
76	(ICH3_DID shl 16) + INTEL_VID, "ICH2" ,\	76	(ICH3_DID shl 16) + INTEL_VID, "ICH2" ,\
77	(ICH4_DID shl 16) + INTEL_VID, "ICH4" ,\	77	(ICH4_DID shl 16) + INTEL_VID, "ICH4" ,\
78	(ICH5_DID shl 16) + INTEL_VID, "ICH5" ,\	78	(ICH5_DID shl 16) + INTEL_VID, "ICH5" ,\
79	(MX440_DID shl 16) + INTEL_VID, "440MX" ,\	79	(MX440_DID shl 16) + INTEL_VID, "440MX" ,\
80	(SI7012_DID shl 16) + SIS_VID, "SI7012" ,\	80	(SI7012_DID shl 16) + SIS_VID, "SI7012" ,\
81	(NFORCE_DID shl 16) + NVIDIA_VID, "NForce" ,\	81	(NFORCE_DID shl 16) + NVIDIA_VID, "NForce" ,\
82	(NFORCE2_DID shl 16) + NVIDIA_VID, "NForce2",\	82	(NFORCE2_DID shl 16) + NVIDIA_VID, "NForce2",\
83	(AMD8111_DID shl 16) + AMD_VID, "AMD8111",\	83	(AMD8111_DID shl 16) + AMD_VID, "AMD8111",\
84	(AMD768_DID shl 16) + AMD_VID, "AMD768"	84	(AMD768_DID shl 16) + AMD_VID, "AMD768"
85	dd 0	85	dd 0
86		86
87		87
88	;---------------------------------------------------------------------	88	;---------------------------------------------------------------------
89	;--- MAIN PROGRAM --------------------------------------------------	89	;--- MAIN PROGRAM --------------------------------------------------
90	;---------------------------------------------------------------------	90	;---------------------------------------------------------------------
91		91
92	START:	92	START:
93		93
94	; Print PCI version (for example, 2.16)	94	; Print PCI version (for example, 2.16)
95	; mcall MF_PCI, 0	95	; mcall MF_PCI, 0
96	; mov bl, al	96	; mov bl, al
97	; movzx eax, ah	97	; movzx eax, ah
98	; dps "PCI version: "	98	; dps "PCI version: "
99	; dpd eax	99	; dpd eax
100	; movzx eax, bl	100	; movzx eax, bl
101	; dpd eax	101	; dpd eax
102	; newline	102	; newline
103		103
104	; Check PCI access mechanism (must be 1 or 2)	104	; Check PCI access mechanism (must be 1 or 2)
105	mcall MF_PCI, 2	105	mcall MF_PCI, 2
106	dec al	106	dec al
107	cmp al, 1	107	cmp al, 1
108	jna @f	108	jna @f
109	print "Error: cannot access PCI bus."	109	print "Error: cannot access PCI bus."
110	jmp exit	110	jmp exit
111	; dps "PCI returned "	111	; dps "PCI returned "
112	; movzx eax, al	112	; movzx eax, al
113	; dpd eax	113	; dpd eax
114	; newline	114	; newline
115	@@:	115	@@:
116		116
117		117
118	; Get last bus & then check all buses & devices	118	; Get last bus & then check all buses & devices
119	mcall MF_PCI, 1	119	mcall MF_PCI, 1
120	mov [lastbus], al	120	mov [lastbus], al
121		121
122	; looking for a compatible device	122	; looking for a compatible device
123	mov [bus], -1	123	mov [bus], -1
124	.next_bus:	124	.next_bus:
125	inc [bus]	125	inc [bus]
126		126
127	mov al, [lastbus]	127	mov al, [lastbus]
128	cmp al, [bus]	128	cmp al, [bus]
129	jb .device_not_found	129	jb .device_not_found
130		130
131	mov [devfn], 0	131	mov [devfn], 0
132	.next_devfn:	132	.next_devfn:
133		133
134	mov cl, 0	134	mov cl, 0
135	call pciRegRead32	135	call pciRegRead32
136		136
137	mov edi, supported_devices	137	mov edi, supported_devices
138	@@:	138	@@:
139	mov ebx, [edi]	139	mov ebx, [edi]
140	test ebx, ebx	140	test ebx, ebx
141	jz @f	141	jz @f
142	cmp eax, ebx	142	cmp eax, ebx
143	jnz .skip	143	jnz .skip
144	add edi, 4	144	add edi, 4
145	mov [device_id], eax	145	mov [device_id], eax
146	mov edx, [edi]	146	mov edx, [edi]
147	call debug_outstr	147	call debug_outstr
148	jmp proceed	148	jmp proceed
149	.skip:	149	.skip:
150	add edi, 8	150	add edi, 8
151	jmp @b	151	jmp @b
152	@@:	152	@@:
153		153
154	inc [devfn]	154	inc [devfn]
155	cmp [devfn], 255	155	cmp [devfn], 255
156	jb .next_devfn	156	jb .next_devfn
157		157
158	jmp .next_bus	158	jmp .next_bus
159		159
160		160
161	.device_not_found:	161	.device_not_found:
162	print "Could not find Intel AC'97 compatible codec!"	162	print "Could not find Intel AC'97 compatible codec!"
163	print "1) Check if it's enabled in BIOS."	163	print "1) Check if it's enabled in BIOS."
164	print "2) Check if your device is included in the device list."	164	print "2) Check if your device is included in the device list."
165	jmp exit	165	jmp exit
166		166
167		167
168	proceed:	168	proceed:
169	print " integrated AC97 audio codec detected."	169	print " integrated AC97 audio codec detected."
170	mov eax, [device_id]	170	mov eax, [device_id]
171	cmp eax, (ICH4_DID shl 16) + INTEL_VID	171	cmp eax, (ICH4_DID shl 16) + INTEL_VID
172	je .newich	172	je .newich
173	cmp eax, (ICH5_DID shl 16) + INTEL_VID	173	cmp eax, (ICH5_DID shl 16) + INTEL_VID
174	jne .nonewich	174	jne .nonewich
175	.newich:	175	.newich:
176	mov [AC97ICH4], 1	176	mov [AC97ICH4], 1
177	.nonewich:	177	.nonewich:
178		178
179	cmp eax, (SI7012_DID shl 16) + SIS_VID	179	cmp eax, (SI7012_DID shl 16) + SIS_VID
180	jne @f	180	jne @f
181	mov [SI7012], 1	181	mov [SI7012], 1
182	@@:	182	@@:
183		183
184	;---------------------------------------------------------------------	184	;---------------------------------------------------------------------
185		185
186	; Get NAMBAR register base port address & save it	186	; Get NAMBAR register base port address & save it
187	mov cl, NAMBAR_REG	187	mov cl, NAMBAR_REG
188	call pciRegRead16	188	call pciRegRead16
189		189
190	and eax, 0xFFFE	190	and eax, 0xFFFE
191	mov [NAMBAR], ax	191	mov [NAMBAR], ax
192	test eax, eax	192	test eax, eax
193	jnz .mixer_base_ok	193	jnz .mixer_base_ok
194		194
195	print "Error: Intel ICH based AC97 audio codec disabled in BIOS!"	195	print "Error: Intel ICH based AC97 audio codec disabled in BIOS!"
196	jmp exit	196	jmp exit
197		197
198	.mixer_base_ok:	198	.mixer_base_ok:
199	dps "NAMBAR: "	199	dps "NAMBAR: "
200	dph eax	200	dph eax
201		201
202	; Get NABMBAR & save it	202	; Get NABMBAR & save it
203	mov cl, NABMBAR_REG	203	mov cl, NABMBAR_REG
204	call pciRegRead16	204	call pciRegRead16
205	and eax, 0xFFC0	205	and eax, 0xFFC0
206	mov [NABMBAR], ax	206	mov [NABMBAR], ax
207	test eax, eax	207	test eax, eax
208	jnz .bm_base_ok	208	jnz .bm_base_ok
209		209
210	print "Error: Intel ICH based AC97 audio codec disabled in BIOS!"	210	print "Error: Intel ICH based AC97 audio codec disabled in BIOS!"
211	jmp exit	211	jmp exit
212		212
213	.bm_base_ok:	213	.bm_base_ok:
214	dps " NABMBAR: "	214	dps " NABMBAR: "
215	dph eax	215	dph eax
216	newline	216	newline
217		217
218	;---------------------------------------------------------------------	218	;---------------------------------------------------------------------
219		219
220	; Get IRQ (not used)	220	; Get IRQ (not used)
221	mov cl, IRQ_REG	221	mov cl, IRQ_REG
222	call pciRegRead8	222	call pciRegRead8
223	mov [AC97IRQ], al	223	mov [AC97IRQ], al
224		224
225	; Get Interrupt pin (not used)	225	; Get Interrupt pin (not used)
226	mov cl, INT_REG	226	mov cl, INT_REG
227	call pciRegRead8	227	call pciRegRead8
228	mov [AC97INT], al	228	mov [AC97INT], al
229		229
230	; AC97ICH4 should work then...	230	; AC97ICH4 should work then...
231	cmp [AC97ICH4], 1	231	cmp [AC97ICH4], 1
232	jne .skip_ich4_init	232	jne .skip_ich4_init
233		233
234	mov cl, ICH4_CFG_REG ; 0x41	234	mov cl, ICH4_CFG_REG ; 0x41
235	call pciRegRead8	235	call pciRegRead8
236	or al, 0x1	236	or al, 0x1
237	mov dl, al	237	mov dl, al
238	call pciRegWrite8	238	call pciRegWrite8
239		239
240	mov cl, 0x54	240	mov cl, 0x54
241	call pciRegRead16	241	call pciRegRead16
242	and eax, 0xFFFF	242	and eax, 0xFFFF
243	dps "Power Control & Status: "	243	dps "Power Control & Status: "
244	dph eax	244	dph eax
245	newline	245	newline
246	.skip_ich4_init:	246	.skip_ich4_init:
247		247
248	;---------------------------------------------------------------------	248	;---------------------------------------------------------------------
249		249
250	mov cl, PCI_CMD_REG	250	mov cl, PCI_CMD_REG
251	call pciRegRead16 ; read PCI command register	251	call pciRegRead16 ; read PCI command register
252	mov dx, ax	252	mov dx, ax
253	or dx, IO_ENA+BM_ENA+BIT10 ; enable IO and bus master + disable	253	or dx, IO_ENA+BM_ENA+BIT10 ; enable IO and bus master + disable
254	; interrupts	254	; interrupts
255	call pciRegWrite16	255	call pciRegWrite16
256		256
257	;---------------------------------------------------------------------	257	;---------------------------------------------------------------------
258		258
259	print "Enabling access to ports..."	259	print "Enabling access to ports..."
260		260
261	movzx ecx, [NAMBAR]	261	movzx ecx, [NAMBAR]
262	mov edx, ecx	262	mov edx, ecx
263	add edx, NAM_SIZE	263	add edx, NAM_SIZE
264	mcall MF_PORTS, PRT_RESERVE	264	mcall MF_PORTS, PRT_RESERVE
265	test eax, eax	265	test eax, eax
266	jz @f	266	jz @f
267	print "Error: couldn't enable access to ports"	267	print "Error: couldn't enable access to ports"
268	jmp exit	268	jmp exit
269	@@:	269	@@:
270		270
271	movzx ecx, [NABMBAR]	271	movzx ecx, [NABMBAR]
272	mov edx, ecx	272	mov edx, ecx
273	add edx, NABM_SIZE	273	add edx, NABM_SIZE
274	mcall MF_PORTS, PRT_RESERVE	274	mcall MF_PORTS, PRT_RESERVE
275	test eax, eax	275	test eax, eax
276	jz @f	276	jz @f
277	print "Error: couldn't enable access to ports"	277	print "Error: couldn't enable access to ports"
278	jmp exit	278	jmp exit
279	@@:	279	@@:
280		280
281	;---------------------------------------------------------------------	281	;---------------------------------------------------------------------
282		282
283	; setup the Codec	283	; setup the Codec
284	mov eax, 48000	284	mov eax, 48000
285	call codecConfig ; unmute codec, set rates.	285	call codecConfig ; unmute codec, set rates.
286	test eax, eax	286	test eax, eax
287	jnz @f	287	jnz @f
288	print "Error: cannot initialize AC97 device."	288	print "Error: cannot initialize AC97 device."
289	jmp fpexit	289	jmp fpexit
290	@@:	290	@@:
291		291
292	print "Congrutalations! Your device has been initialized properly!"	292	print "Congrutalations! Your device has been initialized properly!"
293	call print_info	293	call print_info
294		294
295	;---------------------------------------------------------------------	295	;---------------------------------------------------------------------
296		296
297	; register reset the DMA engine.	297	; register reset the DMA engine.
298	mov edx, PO_CR_REG ; PCM out control register	298	mov edx, PO_CR_REG ; PCM out control register
299	mov al, RR ; reset	299	mov al, RR ; reset
300	call NABMBAR_write_byte	300	call NABMBAR_write_byte
301		301
302	;start fix for MM (1)	302	;start fix for MM (1)
303	mcall MF_INTERNAL_SERVICES,ALLOC_PHYS_MEM,120*1024	303	mcall MF_INTERNAL_SERVICES,ALLOC_PHYS_MEM,120*1024
304	test eax,eax	304	test eax,eax
305	jz no_phys_buffers ;not enough memory	305	jz no_phys_buffers ;not enough memory
306	mov [phys_wav_buffer1],eax	306	mov [phys_wav_buffer1],eax
307	add eax,60*1024	307	add eax,60*1024
308	mov [phys_wav_buffer2],eax	308	mov [phys_wav_buffer2],eax
309	mcall MF_INTERNAL_SERVICES,ALLOC_PHYS_MEM,32*8	309	mcall MF_INTERNAL_SERVICES,ALLOC_PHYS_MEM,32*8
310	test eax,eax	310	test eax,eax
311	jnz @f	311	jnz @f
312	mcall MF_INTERNAL_SERVICES,FREE_PHYS_MEM,[phys_wav_buffer1]	312	mcall MF_INTERNAL_SERVICES,FREE_PHYS_MEM,[phys_wav_buffer1]
313	jmp no_phys_buffers	313	jmp no_phys_buffers
314	@@:	314	@@:
315	mov [phys_bdl_buffer],eax	315	mov [phys_bdl_buffer],eax
316	;end fix for MM (1)	316	;end fix for MM (1)
317		317
318	; create Buffer Descriptors List	318	; create Buffer Descriptors List
319	call prepare_BDL	319	call prepare_BDL
320		320
321	; open player's window	321	; open player's window
322	mcall MF_THREAD, THR_CREATE, thread, thread_stack	322	mcall MF_THREAD, THR_CREATE, thread, thread_stack
323		323
324	; wait for command	324	; wait for command
325	.new_check:	325	.new_check:
326	cmp [status], ST_PLAY	326	cmp [status], ST_PLAY
327	jne @f	327	jne @f
328	call play	328	call play
329	@@:	329	@@:
330	cmp [status], ST_STOP	330	cmp [status], ST_STOP
331	jne @f	331	jne @f
332	call stop	332	call stop
333	@@:	333	@@:
334	cmp [status], ST_EXIT	334	cmp [status], ST_EXIT
335	je stopexit	335	je stopexit
336		336
337	mcall MF_DELAY, 10	337	mcall MF_DELAY, 10
338	jmp .new_check	338	jmp .new_check
339		339
340	stopexit:	340	stopexit:
341	call stop	341	call stop
342		342
343	fpexit:	343	fpexit:
344		344
345	; free ports	345	; free ports
346	movzx ecx, [NAMBAR]	346	movzx ecx, [NAMBAR]
347	mov edx, ecx	347	mov edx, ecx
348	add edx, NAM_SIZE	348	add edx, NAM_SIZE
349	mcall MF_PORTS, PRT_FREE	349	mcall MF_PORTS, PRT_FREE
350		350
351	movzx ecx, [NABMBAR]	351	movzx ecx, [NABMBAR]
352	mov edx, ecx	352	mov edx, ecx
353	add edx, NABM_SIZE	353	add edx, NABM_SIZE
354	mcall MF_PORTS, PRT_FREE	354	mcall MF_PORTS, PRT_FREE
355		355
356	;---------------------------------------------------------------------	356	;---------------------------------------------------------------------
357	;start fix for MM (2)	357	;start fix for MM (2)
358	mcall MF_INTERNAL_SERVICES,FREE_PHYS_MEM,[phys_bdl_buffer]	358	mcall MF_INTERNAL_SERVICES,FREE_PHYS_MEM,[phys_bdl_buffer]
359	mcall MF_INTERNAL_SERVICES,FREE_PHYS_MEM,[phys_wav_buffer1]	359	mcall MF_INTERNAL_SERVICES,FREE_PHYS_MEM,[phys_wav_buffer1]
360	;end fix for MM (2)	360	;end fix for MM (2)
361	exit:	361	exit:
362	mcall MF_EXIT	362	mcall MF_EXIT
363	no_phys_buffers:	363	no_phys_buffers:
364	print "allocation of physical buffers failed"	364	print "allocation of physical buffers failed"
365	jmp exit	365	jmp exit
366		366
367	;---------------------------------------------------------------------	367	;---------------------------------------------------------------------
368	;--- FUNCTIONS -----------------------------------------------------	368	;--- FUNCTIONS -----------------------------------------------------
369	;---------------------------------------------------------------------	369	;---------------------------------------------------------------------
370		370
371	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	371	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
372	;; prepare_BDL - initializes BUFFER DESCRIPTORS LIST	372	;; prepare_BDL - initializes BUFFER DESCRIPTORS LIST
373	prepare_BDL:	373	prepare_BDL:
374	mov ecx, 32 / 2 ; make 32 entries in BDL	374	mov ecx, 32 / 2 ; make 32 entries in BDL
375	mov edi, BDL_BUFFER	375	mov edi, BDL_BUFFER
376	; call get_my_address	376	; call get_my_address
377	mov ebx, 30*1024	377	mov ebx, 30*1024
378	cmp [SI7012], 1	378	cmp [SI7012], 1
379	jne @f	379	jne @f
380	add ebx, ebx	380	add ebx, ebx
381	@@:	381	@@:
382	; set buf. desc. 0 to start of data file in memory	382	; set buf. desc. 0 to start of data file in memory
383	push eax	383	push eax
384	; add eax, WAV_BUFFER1	384	; add eax, WAV_BUFFER1
385	;start fix for MM (6)	385	;start fix for MM (6)
386	mov eax,[phys_wav_buffer1]	386	mov eax,[phys_wav_buffer1]
387	;end fix for MM (6)	387	;end fix for MM (6)
388	stosd	388	stosd
389	; set length to 60k samples. 1 sample is 16 bit or 2 bytes.	389	; set length to 60k samples. 1 sample is 16 bit or 2 bytes.
390	mov eax, ebx ;60*1024 ; number of samples	390	mov eax, ebx ;60*1024 ; number of samples
391	or eax, BUP	391	or eax, BUP
392	stosd	392	stosd
393		393
394	mov eax, [esp]	394	mov eax, [esp]
395	; add eax, WAV_BUFFER2	395	; add eax, WAV_BUFFER2
396	;start fix for MM (7)	396	;start fix for MM (7)
397	mov eax,[phys_wav_buffer2]	397	mov eax,[phys_wav_buffer2]
398	;end fix for MM (7)	398	;end fix for MM (7)
399	stosd	399	stosd
400	mov eax, ebx ;60*1024	400	mov eax, ebx ;60*1024
401	or eax, BUP	401	or eax, BUP
402	stosd	402	stosd
403		403
404	pop eax	404	pop eax
405	loop @b	405	loop @b
406		406
407		407
408	; tell the DMA engine where to find our list of Buffer Descriptors.	408	; tell the DMA engine where to find our list of Buffer Descriptors.
409	; eax = base addr!	409	; eax = base addr!
410	;start fix for MM (3)	410	;start fix for MM (3)
411	;copy to physical memory	411	;copy to physical memory
412	mcall MF_INTERNAL_SERVICES,SET_PHYS_BUFFER,[phys_bdl_buffer],BDL_BUFFER,32*8	412	mcall MF_INTERNAL_SERVICES,SET_PHYS_BUFFER,[phys_bdl_buffer],BDL_BUFFER,32*8
413	;physical address of bdl	413	;physical address of bdl
414	mov eax,[phys_bdl_buffer]	414	mov eax,[phys_bdl_buffer]
415	;end fix for MM (3)	415	;end fix for MM (3)
416	mov edx, PO_BDBAR_REG	416	mov edx, PO_BDBAR_REG
417	; add eax, BDL_BUFFER	417	; add eax, BDL_BUFFER
418	call NABMBAR_write_dword	418	call NABMBAR_write_dword
419		419
420	ret	420	ret
421		421
422		422
423	;---------------------------------------------------------------------	423	;---------------------------------------------------------------------
424		424
425	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	425	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
426	;; stop - stops current music	426	;; stop - stops current music
427	;; in: nothing	427	;; in: nothing
428	;; out: nothing	428	;; out: nothing
429	stop:	429	stop:
430	; print "STOP!"	430	; print "STOP!"
431	push eax edx	431	push eax edx
432		432
433	mcall MF_DELAY, 10	433	mcall MF_DELAY, 10
434	mov edx, PO_CR_REG	434	mov edx, PO_CR_REG
435	mov al, 0	435	mov al, 0
436	call NABMBAR_write_byte	436	call NABMBAR_write_byte
437	cmp [status], ST_STOP	437	cmp [status], ST_STOP
438	jne .exit	438	jne .exit
439	mov [status], ST_DONE	439	mov [status], ST_DONE
440	.exit:	440	.exit:
441		441
442	pop edx eax	442	pop edx eax
443	ret	443	ret
444		444
445	;---------------------------------------------------------------------	445	;---------------------------------------------------------------------
446		446
447	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	447	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
448	;; play - plays wav file!	448	;; play - plays wav file!
449	;; in: nothing	449	;; in: nothing
450	;; out: nothing (but sound :) !corrupts registers!	450	;; out: nothing (but sound :) !corrupts registers!
451	play:	451	play:
452	; at first, reset file	452	; at first, reset file and get file size
-		453	mcall MF_SYSTREE, attrinfo
-		454	test eax, eax
-		455	jnz .notfound
-		456	mov eax, [fileattr+32]
-		457	mov [file_size], eax
453	mov [fileinfo.first_block], 0	458	mov [fileinfo.first_byte], 0
454	mcall MF_SYSTREE, fileinfo ; load a block, returns error code in eax	459	mcall MF_SYSTREE, fileinfo ; load a block, returns error code in eax
455	; and size of the file in ebx	460	; and size of the file in ebx
456	test eax, eax ; 0 - successful	461	test eax, eax ; 0 - successful
457	jz @f	462	jz @f
-		463	cmp eax, 6 ; 6 = eof - successful too
-		464	jz @f
-		465	.notfound:
458	print "AC97: File not found!"	466	print "AC97: File not found!"
459	mov [status], ST_STOP	467	mov [status], ST_STOP
460	jmp .exit	468	jmp .exit
461	@@:	469	@@:
462	shr ebx, 9 ; size_of_file / 512 = number_of_blocks	-
463	mov [file_size], ebx	-
464		-
465		470
466	mov al, [LOAD_BUFFER+32] ; bytes per sample	471	mov al, [LOAD_BUFFER+32] ; bytes per sample
467	dec al	472	dec al
468	jz @f	473	jz @f
469	cmp al, 3	474	cmp al, 3
470	je @f	475	je @f
471	sub al, [LOAD_BUFFER+22] ; channels	476	sub al, [LOAD_BUFFER+22] ; channels
472	add al, 2	477	add al, 2
473	@@:	478	@@:
474	mov [wav_mode], al	479	mov [wav_mode], al
475		480
476	pusha	481	pusha
477	movzx ebx,word [LOAD_BUFFER+24]	482	movzx ebx,word [LOAD_BUFFER+24]
478	mov eax,48000	483	mov eax,48000
479	xor edx,edx	484	xor edx,edx
480	div ebx	485	div ebx
481	mov [difference_of_frequency],al	486	mov [difference_of_frequency],al
482	; dph eax	487	; dph eax
483	mov ecx,edx	488	mov ecx,edx
484	imul eax,ecx,10	489	imul eax,ecx,10
485	xor edx,edx	490	xor edx,edx
486	div ebx	491	div ebx
487	mov ecx,edx	492	mov ecx,edx
488	imul ecx,10	493	imul ecx,10
489	push eax	494	push eax
490	mov eax,ecx	495	mov eax,ecx
491	xor edx,edx	496	xor edx,edx

Subversion Repositories Kolibri OS

(root)/programs/media/ac97wav/trunk/ac97wav.asm – Rev 109 → 139