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

 ;    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.56] to compile.
+;   Use [flat assembler 1.64] to compile.
+;
 ;---------------------------------------------------------------------
   use32 	 ; turn on 32 bit mode
 ;  dd     0x0             ; address of buffer for parameters (not used)
   dd	 0x0	     ; reserved
-;---------------------------------------------------------------------
 ;---------------------------------------------------------------------
 include "lang.inc"
 include "macros.inc"	 ; standart macros & constants
 include "meosfunc.inc"	   ; MenuetOS API functions names
 include "debug.inc"	; printing to debug board
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; play - plays wav file!
 ;; in:  nothing
 ;; out: nothing (but sound :)   !corrupts registers!
 play:
-    ; at first, reset file
+    ; 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_block], 0
+    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
      @@:
-    shr    ebx, 9	      ; size_of_file / 512 = number_of_blocks
-    mov    [file_size], ebx
     mov    al, [LOAD_BUFFER+32] ; bytes per sample
     dec    al
     jz	  @f
 update_next_buffer:
     push   esi edi
     movzx  edx, byte [wav_mode]
     mov    ecx, [blocks + edx * 4]
-    mov    [fileinfo.blocks], ecx
+    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
-    test eax, eax
+        cmp     eax, 6
-    jz @f
+        jz      @f
     cmp   [attempts],100
     je	 @f
     inc   [attempts]
     jmp   start_attempts
-    dpd eax
+;    dpd eax
-    newline
+;    newline
-    dpd [fileinfo.first_block]
+;    dpd [fileinfo.first_block]
-    newline
+;    newline
        @@:
 ;        print  " loaded!"
     inc   ecx
   temp_12_7:
     pop    edx ebx
     mov    eax,[esp+4]            ;restore buffer index
-    add    [fileinfo.first_block], ecx ; +60Kb
+    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
 schetchik dd 0
 znak db 0
 type_of_conversion db 0
 convert dd c8mono, c8stereo, c16mono, c16stereo
-blocks	  dd 30, 60, 60, 120
+blocks	  dd 30*512, 60*512, 60*512, 120*512
 ;---------------------------------------------------------------------
 ;---  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
+ .mode          dd      0		 ; READ
+ .first_byte    dd      0
- .first_block  dd  0
+                dd      0
- .blocks       dd  120		 ; 120 Kb
+ .bytes         dd      60*1024		 ; 60 Kb
- .dest		 dd  LOAD_BUFFER ;file_data
- .work		 dd  work_area
+ .dest		 dd  LOAD_BUFFER ;file_data
 	 ;  db  "/HD/1/WINDOWS/MEDIA/WICEB7~1.WAV",0
-;sz textbox_string, "/hd/1/testmuz/menuet11.wav",0
-sz textbox_string, "                                                        ",0
+;sz textbox_string, "/hd/1/testmuz/menuet11.wav",0
-;   rb 256
+textbox_string:
 ;---------------------------------------------------------------------
+IMAGE_END:		 ; end of program's image
-IMAGE_END:		 ; end of program's image
+   rb 257
-   rb 100-textbox_string.size
+;   rb 257-textbox_string.size
 ;     textbox_string.size
 ST_EXIT = 0x2
 ST_STOP = 0x4
+status	    db ?
-status	    db ?
+fileattr: rb 40
 ;---------------------------------------------------------------------
 phys_bdl_buffer rd 1
 phys_wav_buffer1 rd 1

Subversion Repositories Kolibri OS

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