; **************************************************************************** ; MP3PLAY8.PRG - MP3 DECODER/PLAYER 1.0 for TRDOS 386 Operating System ; ---------------------------------------------------------------------------- ; Based on ; NOCASH MP3PLAY.EXE 1.4 (Windows) ASM source code (Martin Korth, 20/09/2024) ; ; 25/02/2025 ; ; [ Last Modification: 28/02/2025 ] ; ; Modified from 'mp3play5.s' (01/02/2025) and 'mp3play7.s' (24/02/2025) ; ; ---------------------------------------------------------------------------- ; Modified from on MP3PLAY.ASM (for Windows console) source code - 17/10/2024 ; **************************************************************************** ; Modified from Martin Korth's 'mp3play.asm' (TASM32) source code... (v1.4) ; Applied development method: ; Disassembling 'mp3play.exe' v1.4 by using HEX-RAYS disassembler; ; then... converting disassembled code to FASM syntax, ; adding '.idata' code (by help of FASM examples) to the raw ; asm file. Converting 'proc' procedures to labels. ; and Finally: assembling mp3play.asm (single) file by using ; 'fasm mp3play.asm' command. ; ; NOTE: ; Martin Korth's MP3PLAY.EXE (v1.4, 20/09/2024) file size is 45056 bytes. ; (This) modified MP3PLAY.EXE (v1.4.0, 17/10/2024) is 37888 bytes. ; ; --------------------------------------------------------------------------- ; Assembler: FASM ; --------------- ; fasm mp3play.s MP3PLAY.PRG ; 25/01/2025 ; Wave Lighting Graphics Code Reference: ; vgaplay2.s - 18/01/2025 ; 13/01/2025 (mp3play3.s) ; Interpolated sample rate playing method for non-VRA AC97 codecs. ; =========================================================================== ; TRDOS 386 Operating System Specific Procedures - Erdogan Tan - 20/10/2024 ; =========================================================================== ; 20/10/2024 ; 20/08/2024 ; TRDOS 386 v2.0.9 ; TRDOS 386 system calls _ver equ 0 _exit equ 1 _fork equ 2 _read equ 3 _write equ 4 _open equ 5 _close equ 6 _wait equ 7 _creat equ 8 _rename equ 9 _delete equ 10 _exec equ 11 _chdir equ 12 _time equ 13 _mkdir equ 14 _chmod equ 15 _rmdir equ 16 _break equ 17 _drive equ 18 _seek equ 19 _tell equ 20 _mem equ 21 _prompt equ 22 _path equ 23 _env equ 24 _stime equ 25 _quit equ 26 _intr equ 27 _dir equ 28 _emt equ 29 _ldvrt equ 30 _video equ 31 _audio equ 32 _timer equ 33 _sleep equ 34 _msg equ 35 _geterr equ 36 _fpsave equ 37 _pri equ 38 _rele equ 39 _fff equ 40 _fnf equ 41 _alloc equ 42 _dalloc equ 43 _calbac equ 44 _dma equ 45 _stdio equ 46 ; TRDOS 386 v2.0.9 ; --------------------------------------------------------------------------- ; 'sys' macro in FASM format ; --------------------------------------------------------------------------- ; 11/01/2025 if 1 ;%if 0 macro sys op1,op2,op3,op4 { if op4 eq else mov edx, op4 end if if op3 eq else mov ecx, op3 end if if op2 eq else mov ebx, op2 end if mov eax, op1 int 40h } ;%endif end if ; --------------------------------------------------------------------------- ; 'sys' macro in NASM format ; --------------------------------------------------------------------------- ; 09/01/2025 ; 11/01/2025 if 0 ;%macro sys 1-4 ; 29/04/2016 - TRDOS 386 (TRDOS v2.0) ; 03/09/2015 ; 13/04/2015 ; Retro UNIX 386 v1 system call. %if %0 >= 2 mov ebx, %2 %if %0 >= 3 mov ecx, %3 %if %0 = 4 mov edx, %4 %endif %endif %endif mov eax, %1 ;int 30h int 40h ; TRDOS 386 (TRDOS v2.0) ;%endmacro end if ; =========================================================================== ; CODE ; =========================================================================== format binary use32 ;org 0x0 ; =========================================================================== ; 25/02/2025 (mp3play8.s) ; 24/02/2025 (mp3play7.s) ; 20/10/2024 start: ; 21/10/2024 call set_break ; set and clear bss section ; also set stream_start position ;;mov edx, txt_hello ; "nocash mp3 decoder v1.4, 2024" ... ;;call wrstr_edx ;mov ebx, txt_hello ; 22/02/2025 ;call print_msg ; TRDOS 386 system call ; write/display message on screen ; ebx = ASCIIZ message (text) address ; ecx = max. message length (stop count before char zero) ; edx = character color (CGA) sys _msg, txt_hello, 255, 0Bh ; cyan ; 22/02/2025 ; CRLF mov ah, 0Eh mov ebx, 7 mov al, 0Dh int 31h mov al, 0Ah int 31h ; 15/02/2025 sys _msg, txt_bdate, 255, 0Fh sys _msg, txt_original, 255, 07h ; 20/02/2025 ;call get_commandline ;jc ExitP@ ;;; ; 11/01/2025 call detect_enable_audio_device jc ExitP@ ;;; ; 20/02/2025 (mp3play7.s) ;;;; --------------------------------- ; 05/02/2025 (ac97.s) ; ---------- ; 30/11/2024 ; (TRDOS 386 -Retro UNIX 386- argument transfer method) ; (stack: argc,argv0addr,argv1addr,argv2addr .. ; .. argv0text, argv1text ..) ; ---- argc, argv[] ---- mov esi, esp lodsd cmp eax, 2 ; two arguments ; (program file name & mp3 file name) jb short pmsg_usage ; nothing to do ;mov [argc], al shl eax, 2 ; *4 add eax, esp ; eax = last argument's address pointer mov [argvl], eax ; last mp3 file (argument) mov [argv], esi ; current argument (PRG file name) lodsd ; skip program (PRG) file name mov [argvf], esi ; 1st mp3 file (argument) ;;;; --------------------------------- ; 26/02/2025 (mp3play8.s) ; 25/01/2025 (mp3play5.s) ; 21/12/2024 (vgaplay.s) ;;; ; Read (copy) 8x14 system fonts mov esi, fontbuff1 sys _video, 0C03h, 256, 0 ; convert 8x14 fonts to 8x16 fonts ; by inserting 2 empty rows to each characters ;mov esi, fontbuff1 mov edi, fontbuff2 .fontconvert: push ecx mov ecx, 14 ; 26/01/2025 rep movsb sub al, al stosb stosb pop ecx loop .fontconvert ;;; ;;;; --------------------------------- ; 25/01/2025 ; 21/12/2024 ; Set Video Mode to 101h ; 640x480, 256 colors sys _video, 08FFh, 101h or eax, eax ; 25/05/2025 jnz short set_vesa_mode_101h_ok ; ------------------------------------ trdos386_error: sys _msg, trdos386_err_msg, 255, 0Eh mov ebx, -1 ; (not necessary) -error exit example- jmp ExitProcess@ ; ------------------------------------ ; 22/02/2025 pmsg_usage: sys _msg, txt_help, 255, 0Fh jmp ExitP@ ; ------------------------------------ ; 22/02/2025 trdos386_err_msg: db 13, 10 db 'TRDOS 386 System call error !', 13, 10, 0 ; ------------------------------------ set_vesa_mode_101h_ok: ; linear frame buffer access sys _video, 06FFh and eax, eax jnz short save_lfb_addr ; set text mode and write err msg ; 25/02/2025 call set_text_mode jmp short trdos386_error save_lfb_addr: mov [LFB_ADDR], eax ; 25/01/2025 ; 21/12/2024 ;;; ; set wave volume led addresses ;mov ebx, [LFB_ADDR] ; 26/02/2025 mov ebx, eax ;add ebx, (13*80*8*14) ; 16/01/2025 add ebx, (14*80*8*14) mov ebp, 80 mov edi, wleds_addr wleds_sa_1: mov ecx, 15 wleds_sa_2: mov eax, 80*8*14 ; 640*14 pixels (next row) mul ecx add eax, ebx stosd loop wleds_sa_2 mov eax, ebx stosd add ebx, 8 dec ebp jnz short wleds_sa_1 ; 25/01/2025 ; 24/12/2024 (setting for wave lighting points) mov eax, [LFB_ADDR] ;add eax, 164*640 ; 256 volume levels ; 26/01/2025 add eax, 178*640 ; eax = wave graphics start (top) line/row mov [graphstart], eax ; --------------------------------------------------- mov byte [wleds], 1 ; ------------------------------------ ; 20/02/2025 (mp3play7.s) ; 05/02/2025 (ac97play.s) ;;;; --------------------------------- check_p_command: ; 07/12/2024 mov esi, [argv] cmp byte [command], 'P' je short get_previous_file add esi, 4 cmp esi, [argvl] ; last argument (mp3 file) ptr jna short get_next_file jmp player_quit ; ------------------------------------ get_previous_file: ; 22/02/2025 cmp esi, [argvf] ; first argument (mp3 file) ptr jna short get_next_file_@ sub esi, 4 ; 22/02/2025 get_next_file: ; 07/12/2024 mov [argv], esi ; set as current argument get_next_file_@: mov esi, [esi] ;;;; --------------------------------- ; 20/02/2025 - mp3play7.s ; 15/02/2025 - tmp3play.s ; 10/02/2025 - twavply3.s GetFileName: ; (TRDOS 386 -Retro UNIX 386- argument transfer method) ; (stack: argc,argv0addr,argv1addr,argv2addr .. ; .. argv0text, argv1text ..) ; ---- argc, argv[] ---- ; 15/02/2025 mov edi, mp3_file_name xor ecx, ecx ; 0 ScanName: lodsb cmp al, 0Dh ; CR jna short a_4 cmp al, 20h je short ScanName ; scan start of name. stosb mov ah, 0FFh a_0: inc ah a_1: inc ecx lodsb stosb cmp al, '.' je short a_0 cmp al, 20h jna short a_3 and ah, ah jz short a_2 ; 20/02/2025 cmp al, '/' jne short a_2 mov ah, 0 a_2: cmp cl, 75 ; 64+8+'.'+3 -> offset 75 is the last chr jb short a_1 ; 20/02/2025, sub ecx, ecx jmp short a_4 a_3: dec edi or ah, ah ; if period NOT found, jnz short a_4 ; then add a .mp3 extension. SetExt: ; 15/02/2025 mov dword [edi], '.mp3' ;mov dword [edi], '.WAV' ; ! 64+12 is DOS limit ; but writing +4 must not ; destroy the following data ; so, 80 bytes path + 0 is possible here add edi, 4 a_4: mov byte [edi], 0 cmp byte [mp3_file_name], 20h ja short mp3_filename_chk ; 20/02/2025 call set_text_mode check_f_index: ; 22/02/2025 cmp byte [file_count], 0 jna pmsg_usage jmp ExitP@ ; --------------------------------------------------- mp3_filename_chk: mov eax, [edi-4] and eax, 0FFDFDFFFh cmp eax, '.MP3' jne short not_valid_mp3 ; ------------------------------------ xor ebp, ebp call mp3_init call open_and_mmap_the_file ; 22/02/2025 jnc short mp3_open_read_ok cmp byte [file_count], 0 ja check_p_command ; 23/02/2025 cmp dword [hFile], -1 jne short mp3_read_error mp3_open_err: mov esi, txt_not_found jmp short write_err_msg_exit ; ------------------------------------ ; 22/02/2025 txt_not_found: db 13, 10 db 'Error: file not found.', 13, 10, 0 ; ------------------------------------ mp3_read_error: mov esi, txt_read_err jmp short write_err_msg_exit ; ------------------------------------ ; 22/02/2025 txt_read_err: db 0Dh, 0Ah db 'File read error !', 0Dh, 0Ah, 0 ; ------------------------------------ mp3_open_read_ok: call mp3_check_1st_frame ; 20/02/2025 jnc short mp3_file_ready ; ------------------------------------ ; ------------------------------------ not_valid_mp3: ; 22/02/2025 cmp byte [file_count], 0 ja check_p_command mov esi, not_valid_mp3f write_err_msg_exit: ; 20/02/2025 call set_text_mode ; not a proper/valid mp3 file ! sys _msg, esi, 255, 0Ch ; red jmp ExitP@ ; ------------------------------------ ; 22/02/2025 not_valid_mp3f: db 13, 10 db 'Not a proper/valid MP3 file !', 13, 10, 0 ; ------------------------------------ ; ------------------------------------ ; 25/02/2025 (mp3play8.s) mp3_file_ready: ; 26/01/2025 ; 25/01/2025 (mp3play5.s) -graphics mode- .p_template: ; 22/02/2025 ; [mp3_bytes_per_sample] = 2 ; 22/01/2025 ;;;; ; 22/02/2025 (mp3play7.s) mov eax, 640 mov ebx, turn_on_leds_stereo_16bit ; 25/02/2025 mov ecx, UpdateWavePoints_16s ; 22/01/2025 (mp3play4.s) -text mode- ;;;; mov dl, 1 cmp byte [audio_hardware], dl ; 1 ja short .stolp_s16 ; AC97 ; SB16 ;cmp byte [mp3_output_num_channels], dl ; 1 ; 25/02/2025 cmp byte [mp3_num_channels], dl ; 1 ja short .stolp_s .stolp_m: ; 22/02/2025 ;cmp byte [mp3_bytes_per_sample], dl ; 1 ;ja short .stolp_m16 mov ebx, turn_on_leds_mono_16bit ; 25/02/2025 mov ecx, UpdateWavePoints_16m jmp short .stolp_m16 ;.stolp_m8: ; mov dword [turn_on_leds], turn_on_leds_mono_8bit ; mov word [sd_count], 640 ; mov dword [draw_wave_points], UpdateWavePoints_8m ; jmp short .stolp_ok ;.stolp_m16: ; mov dword [turn_on_leds], turn_on_leds_mono_16bit ; mov word [sd_count], 640*2 ; mov dword [draw_wave_points], UpdateWavePoints_16m ; jmp short .stolp_ok ;.stolp_s: ; cmp byte [mp3_bytes_per_sample], dl ; 1 ; ja short .stolp_s16 ;.stolp_s8: ; mov dword [turn_on_leds], turn_on_leds_stereo_8bit ; mov word [sd_count], 640*2 ; mov dword [draw_wave_points], UpdateWavePoints_8s ; jmp short .stolp_ok .stolp_s: ; 25/02/2025 .stolp_s16: ;mov dword [turn_on_leds], turn_on_leds_stereo_16bit ;mov word [sd_count], 640*4 ;mov dword [draw_wave_points], UpdateWavePoints_16s ; 25/02/2025 shl eax, 1 .stolp_m16: ; 25/02/2025 shl eax, 1 .stolp_ok: mov [turn_on_leds], ebx mov [sd_count], eax mov [draw_wave_points], ecx ;;;; ; 22/01/2025 ; Forward/Backward position change parameters (*) mov eax, [stream_pos] mov [stream_begin], eax ; * mov eax, [bytes_left] mov [stream_size], eax ; * ; 22/02/2025 mov byte [command], 0 ; 22/02/2025 ;;;;; mov eax, [mp3_sample_rate] mov [playback_f], eax mov al, byte [mp3_num_channels] mov byte [playback_c], al ;;;;; ; 22/02/2025 mov byte [interpolation], 1 ; 13/01/2025 (interpolation procs for non-VRA AC97 codecs) ;;;; -------------------------- ;mov byte [interpolation], 0 mov al, 2 cmp [audio_hardware], al ; 2 jb short .sb16 ; SB16 ; 17/02/2025 ; AC97 ;mov dword [get_sound_data], get_ac97_sound_data ; (**) .chk_frq: ; 22/02/2025 mov byte [playback_c], al ; 2 ; force to stereo (for AC97) cmp dword [mp3_sample_rate], 48000 ; 48 kHZ jb short .chk_vra cmp byte [mp3_num_channels], 2 ; 17/02/2025 ;jb short .convert ; mono (8bit or 16bit) ;cmp byte [mp3_bytes_per_sample], al ; 2 ;jnb short .direct ; 16bit, stereo ; 17/02/2025 ;jnb short .direct ; 22/02/2025 jnb short .ac97_48khz_s .convert: ; 8bit m/s or 16bit mono ; 22/02/2025 ;mov byte [interpolation], 1 ; convert (to 16 bit stereo) ;jmp short .indirect ; 21/01/2025 jmp short display_frame .chk_vra: ;mov [interpolation], al ; 2 = interpolation ; 22/02/2025 inc byte [interpolation] ; 2 cmp byte [vra], 1 ;jb short .indirect ; 21/01/2025 ; 22/02/2025 jnb short .ac97_vra mov dword [playback_f], 48000 ; for non-VRA codecs jmp short display_frame .ac97_vra: dec byte [interpolation] ; 1 = convert (to 16 bit stereo) cmp byte [mp3_num_channels], 2 ;jb short .indirect ; mono ; 21/01/2025 ; 22/02/2025 jb short display_frame ; 17/02/2025 ;cmp byte [mp3_bytes_per_sample], al ; 2 ;jb short .indirect ; 8 bit ; 21/01/2025 .ac97_48khz_s: ; 22/02/2025 .sb16: ; 14/01/2025 dec byte [interpolation] ; 0 ;;;; -------------------------- display_frame: ; 25/02/2025 (mp3play8.s) ; 23/02/2025 (mp3play7.s) ;;;; mov al, [volume_level] cmp al, -1 jne short skip_init_volume ; initial volume mov al, 3 ; 0 = max, 31 = min skip_init_volume: call SetMasterVolume ;;;; ; 25/01/2025 ; 21/12/2024 ;;; --------------------------- call drawplayingscreen ;;; --------------------------- call SetTotalTime call UpdateFileInfo ;call UpdateVolume call UpdateProgressBar ;;; --------------------------- ; 26/01/2025 cmp byte [p_mode], 0 ja short .skip_rwl ; 22/12/2024 ; prepare all leds as turned off call reset_wave_leds .skip_rwl: ;;;; ========================== ; 20/02/2025 replay: ; 22/02/2025 cmp byte [interpolation], 1 jnb short .indirect .direct: ;;; ; 20/10/2024 ;call detect_enable_audio_device ;jc .exit call audio_system_init ;jc .exit jc short exit@ ; 15/01/2025 ;;; call mp3_cast_to_speaker ; 20/02/2025 (mp3play7.s) ; 15/02/2025 (tmp3play.s) ; 13/01/2025 jmp short decode_done .indirect: call audio_system_init_x jc short exit@ ; 15/01/2025 call mp3_cast_to_speaker_x ;;;; -------------------------- decode_done: ; 25/02/2025 (mp3play8.s) exit@: ; 22/02/2025 (mp3play7.s) ; 05/02/2025 (wavplay2.s) ; 07/12/2024 ;;; ; Stop Playing ;sys _audio, 0700h ; 22/02/2025 cmp byte [init_level], 1 jb short exit@@@ dec byte [init_level] jz short exit@@ ; 1 -> 0 ; Cancel callback service (for user) sys _audio, 0900h dec byte [init_level] ; 1 -> 0 exit@@: ; Deallocate Audio Buffer (for user) sys _audio, 0A00h exit@@@: ; Disable Audio Device sys _audio, 0C00h ;;; ; 22/02/2025 cmp byte [command], 'Q' je short player_quit ; 22/02/2025 ; (Detect & Enable Audio Hardware again) ; (this is needed after disabling audio system) call detect_enable_audio_device jc short player_quit mov byte [stopped], 0 ;;;; ; 23/02/2025 ;mov dword [mp3_initialized], 0 ; 23/02/2025 ; (reset to the initial value is needed) ;mov dword [mp3_huff_num_entries], 12h ; 18 ;;;; call set_break jmp check_p_command player_quit: ; 22/02/2025 jmp ExitProcess ; =============== S U B R O U T I N E ======================================= bswap_eax: xchg al, ah ror eax, 10h xchg al, ah retn ; =============== S U B R O U T I N E ======================================= mp3_recollect_bits: test esi, 1 jnz short .odd mov bp, [esi] add esi, 2 ror bp, 8 shl ebp, 16 mov ch, 0 retn .odd: movzx ebp, byte [esi] inc esi shl ebp, 16 mov bp, [esi] add esi, 2 ror bp, 8 shl ebp, 8 mov ch, 8 retn ; =============== S U B R O U T I N E ======================================= mp3_get_bits: mov eax, ebp shl ebp, cl rol eax, cl xor eax, ebp sub ch, cl js short mp3_collect_more retn mp3_collect_more: mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl retn ; =============== S U B R O U T I N E ======================================= mp3_uncollect_bits: sub esi, 2 shr ch, 3 movzx ecx, ch sub esi, ecx retn ; =============== S U B R O U T I N E ======================================= mp3_search_get_header: ; 16/02/2025 mov dword [mp3_extra_bytes], 0 .retry_header: cmp dword [mp3_src_remain], 4 jb .fail_no_header cmp byte [esi], 0FFh jnz short .bad_header mov al, [esi+1] and al, 0E6h cmp al, 0E2h jnz short .bad_header mov al, [esi+2] cmp al, 0F0h jnb short .bad_header and al, 0Ch cmp al, 0Ch jnz short .good_header .bad_header: inc esi dec dword [mp3_src_remain] inc dword [mp3_extra_bytes] mov dword [main_data_pool_wr_ptr], main_data_pool_start jmp short .retry_header .good_header: mov eax, [esi] call bswap_eax mov [mp3_hdr_32bit_header], eax mov dword [mp3_hdr_flag_lsf], 0 mov dword [mp3_hdr_flag_mpeg25], 0 mov dword [mp3_nb_granules], 2 test eax, 80000h jnz short .lsf_this mov dword [mp3_hdr_flag_lsf], 1 mov dword [mp3_nb_granules], 1 test eax, 100000h jnz short .lsf_this mov dword [mp3_hdr_flag_mpeg25], 1 .lsf_this: shr eax, 10 and eax, 3 mov ecx, [mp3_hdr_flag_lsf] add ecx, [mp3_hdr_flag_mpeg25] movzx edx, word [mp3_freq_tab+eax*2] shr edx, cl lea ecx, [ecx+ecx*2] add eax, ecx mov [mp3_hdr_sample_rate_index], eax mov [mp3_sample_rate], edx ; 15/02/2025 mov eax, [mp3_hdr_32bit_header] shr eax, 10h not eax and eax, 1 mov [mp3_hdr_flag_crc], eax mov eax, [mp3_hdr_32bit_header] shr eax, 9 and eax, 1 mov [mp3_hdr_flag_padding], eax mov eax, [mp3_hdr_32bit_header] shr eax, 12 and eax, 0Fh jnz short .not_free_format call mp3_detect_free_format_block_size jb .bad_header mov eax, [mp3_free_format_frame_size] jmp short .this_frame_size_plus_padding .not_free_format: mov edx, [mp3_hdr_flag_lsf] shl edx, 4 add eax, edx movzx eax, word [mp3_bitrate_tab+eax*2] ; kbit/s imul eax, 1000 ; bit/s mov [mp3_bit_rate], eax imul eax, 144 ; 144=90h=8*18 xor edx, edx div dword [mp3_sample_rate] mov ecx, [mp3_hdr_flag_lsf] shr eax, cl .this_frame_size_plus_padding: add eax, [mp3_hdr_flag_padding] mov [mp3_src_frame_size], eax add eax, esi mov [mp3_src_frame_end], eax mov eax, [mp3_hdr_32bit_header] shr eax, 6 and eax, 3 mov [mp3_hdr_mode_val], eax mov edx, 1 cmp al, 3 jz short .this_channels ;mov edx, 2 ; 10/01/2025 inc edx .this_channels: mov [mp3_num_channels], edx ; 15/02/2025 .allow_stereo: ;imul edx, [mp3_bytes_per_sample] ; 17/02/2025 shl edx, 1 ; [mp3_bytes_per_sample] = 2 mov [mp3_samples_dst_step], edx mov eax, [mp3_hdr_32bit_header] shr eax, 4 and eax, 3 mov [mp3_hdr_mode_ext], eax ; 16/02/2025 .no_rdtsc_supported@: ;clc retn .fail_no_header: ; 16/02/2025 .no_rdtsc_supported@@: mov dword [mp3_src_frame_size], 0 stc retn ; =============== S U B R O U T I N E ======================================= mp3_bitstream_read_header_extra: ; 16/02/2025 .no_rdtsc_supported: cmp dword [mp3_hdr_flag_crc], 0 jz short .without_crc mov eax, ebp ; mp3mac_get_n_bits 16 shl ebp, 10h rol eax, 10h xor eax, ebp sub ch, 10h jns short .without_crc mov cl, ch ; mp3mac_collect_more add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc: cmp dword [mp3_hdr_flag_lsf], 0 jz short .pre_lsf_zero mov dword [mp3_num_compress_bits], 9 mov eax, ebp ; mp3mac_get_n_bits 8 shl ebp, 8 rol eax, 8 xor eax, ebp sub ch, 8 jns short .without_crc@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc@: mov [mp3_main_data_begin], eax mov cl, byte [mp3_num_channels] mov eax, ebp ; mp3mac_get_n_bits cl shl ebp, cl rol eax, cl xor eax, ebp sub ch, cl jns short .without_crc@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc@@: jmp .pre_lsf_done .pre_lsf_zero: mov dword [mp3_num_compress_bits], 4 mov eax, ebp ; mp3mac_get_n_bits 9 shl ebp, 9 rol eax, 9 xor eax, ebp sub ch, 9 jns short .without_crc@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc@@@: mov [mp3_main_data_begin], eax mov cl, byte [mp3_num_channels] shl cl, 1 ; 1,2 --> 2,4 xor cl, 7 ; --> 5,3 mov eax, ebp ; mp3mac_get_n_bits cl shl ebp, cl rol eax, cl xor eax, ebp sub ch, cl jns short .without_crc@@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc@@@@: mov edx, [mp3_num_channels] mov ebx, mp3_granules .pre_channel_lop: mov dword [ebx+40], 0 ; [ebx+$mp3gr_scfsi] add ebx, 2464 ; $mp3gr_entrysiz mov eax, ebp ; mp3mac_get_n_bits 4 shl ebp, 4 rol eax, 4 xor eax, ebp sub ch, 4 jns short .without_crc@@@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc@@@@@: mov [ebx+28h], eax ; [ebx+$mp3gr_scfsi] add ebx, 2464 ; $mp3gr_entrysiz dec edx jnz short .pre_channel_lop .pre_lsf_done: mov eax, [mp3_nb_granules] imul eax, 12h mov [mp3_nb_frames], eax ; 14/01/2025 ;mov eax, [mp3_nb_frames] ; 16/02/2025 imul eax, [mp3_num_channels] ;imul eax, [mp3_bytes_per_sample] ;shl eax, 5 ; 17/02/2025 ; [mp3_bytes_per_sample] = 2 shl eax, 6 ; (eax*2) << 5 ; 15/02/2025 mov [mp3_samples_output_size], eax ; 16/02/2025 .no_rdtsc_supported@: retn ; =============== S U B R O U T I N E ======================================= mp3_bitstream_read_granules: ; 16/02/2025 .no_rdtsc_supported: mov [_@@saved_sp], esp mov dword [mp3_main_data_siz], 0 mov dword [mp3_curr_granule], 0 mov ebx, mp3_granules .hdr_granule_lop: push ebx mov dword [mp3_curr_channel], 0 .hdr_channel_lop: mov eax, ebp ; mp3mac_get_n_bits 12 shl ebp, 12 rol eax, 12 xor eax, ebp sub ch, 12 jns short .without_crc mov cl, ch add ch, 16 rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc: mov edx, [mp3_main_data_siz] mov [ebx], eax mov [ebx+4], edx add eax, edx mov [ebx+8], eax mov [mp3_main_data_siz], eax mov eax, ebp ; mp3mac_get_n_bits 9 shl ebp, 9 rol eax, 9 xor eax, ebp sub ch, 9 jns short .without_crc@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc@: mov [ebx+12], eax ; [ebx+$mp3gr_big_values] mov eax, ebp ; mp3mac_get_n_bits 8 shl ebp, 8 rol eax, 8 xor eax, ebp sub ch, 8 jns short .without_crc@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc@@: add eax, 190 ; 400-210 cmp dword [mp3_hdr_mode_val], 1 jnz short .not_ms_stereo test dword [mp3_hdr_mode_ext], 2 jz short .not_ms_stereo sub eax, 2 .not_ms_stereo: mov [ebx+16], eax ; [ebx+$mp3gr_global_gain] mov cl, byte [mp3_num_compress_bits] mov eax, ebp ; mp3mac_get_n_bits cl shl ebp, cl rol eax, cl xor eax, ebp sub ch, cl jns short .without_crc@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc@@@: mov [ebx+20], eax ; [ebx+$mp3gr_scalefac_compress] dec ch ; mp3mac_get_bit_to_cy ; dec mp3_colNN shl ebp, 1 ; shl mp3_col32,1 ; cy=data jnb .no_blocksplit mov eax, ebp ; mp3mac_get_n_bits 2 shl ebp, 2 rol eax, 2 xor eax, ebp sub ch, 2 jns short .without_crc@@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc@@@@: cmp eax, 0 jz .error mov [ebx+44], eax ; [ebx+$mp3gr_block_type] cmp eax, 2 mov eax, 18 ; 36/2 ; region_size (default) jz short .this_region_size cmp dword [mp3_hdr_sample_rate_index], 2 jbe short .this_region_size mov eax, 27 ; 54/2 ; region_size cmp dword [mp3_hdr_sample_rate_index], 8 jnz short .this_region_size mov eax, 54 ; 108/2 ; region_size (for rate=8) .this_region_size: mov [ebx+80], eax ; [ebx+$mp3gr_region_size+0*4] mov dword [ebx+84], 288 ; [ebx+$mp3gr_region_size+1*4],576/2 mov dword [ebx+88], 288 ; [ebx+$mp3gr_region_size+2*4],576/2 mov eax, ebp ; mp3mac_get_n_bits 1 shl ebp, 1 rol eax, 1 xor eax, ebp sub ch, 1 jns short .without_crc@@@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc@@@@@: mov [ebx+48], eax ; [ebx+$mp3gr_switch_point] mov eax, ebp ; IRP nn,0,1 ; only 0..1 for blocksplit shl ebp, 5 ; mp3mac_get_n_bits 5 rol eax, 5 xor eax, ebp sub ch, 5 jns short .without_crc@@@@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc@@@@@@: mov [ebx+56], eax ; [ebx+$mp3gr_table_select+nn*4] ; nn=0 mov eax, ebp ; mp3mac_get_n_bits 5 shl ebp, 5 rol eax, 5 xor eax, ebp sub ch, 5 jns short .without_crc_@@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc_@@@@: mov [ebx+60], eax ; [ebx+$mp3gr_table_select+nn*4] ; nn=1 mov eax, ebp ; mp3mac_get_n_bits 5 shl ebp, 3 ; IRP nn,0,1,2 rol eax, 3 ; mp3mac_get_n_bits 3 xor eax, ebp sub ch, 3 jns short .without_crc_@@@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc_@@@@@: shl eax, 3 mov [ebx+68], eax ; [ebx+$mp3gr_subblock_gain+nn*4] ; nn=0 mov eax, ebp shl ebp, 3 rol eax, 3 xor eax, ebp sub ch, 3 jns short .without_crc_@@@@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc_@@@@@@: shl eax, 3 mov [ebx+72], eax ; [ebx+$mp3gr_subblock_gain+nn*4] ; nn=1 mov eax, ebp shl ebp, 3 rol eax, 3 xor eax, ebp sub ch, 3 jns short .without_crc_@@@@@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .without_crc_@@@@@@@: shl eax, 3 mov [ebx+76], eax ; [ebx+$mp3gr_subblock_gain+nn*4] ; nn=2 jmp .blocksplit_done .no_blocksplit: mov dword [ebx+44], 0 ; [ebx+$mp3gr_block_type] mov dword [ebx+48], 0 ; [ebx+$mp3gr_switch_point] mov eax, ebp ; IRP nn,0,1,2 ; range 0..2 when non-blocksplit shl ebp, 5 ; mp3mac_get_n_bits 5 rol eax, 5 xor eax, ebp sub ch, 5 jns short .@_without_crc mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .@_without_crc: mov [ebx+56], eax ; [ebx+$mp3gr_table_select+nn*4] ; nn=0 mov eax, ebp shl ebp, 5 rol eax, 5 xor eax, ebp sub ch, 5 jns short .@_without_crc_@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .@_without_crc_@: mov [ebx+60], eax ; [ebx+$mp3gr_table_select+nn*4] ; nn=1 mov eax, ebp shl ebp, 5 rol eax, 5 xor eax, ebp sub ch, 5 jns short .@_without_crc_@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .@_without_crc_@@: mov [ebx+64], eax ; [ebx+$mp3gr_table_select+nn*4] ; nn=2 mov eax, ebp shl ebp, 4 rol eax, 4 xor eax, ebp sub ch, 4 jns short .@_without_crc@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .@_without_crc@@@: inc eax mov [_@@region_address0], eax mov eax, ebp ; mp3mac_get_n_bits 3 shl ebp, 3 rol eax, 3 xor eax, ebp sub ch, 3 jns short .@_without_crc@@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .@_without_crc@@@@: inc eax add eax, [_@@region_address0] mov [_@@region_address1], eax mov eax, [mp3_hdr_sample_rate_index] shl eax, 5 add eax, [_@@region_address0] movzx eax, word [mp3_band_index_long+eax*2] shr eax, 1 mov [ebx+80], eax ; [ebx+$mp3gr_region_size+0*4] mov eax, [mp3_hdr_sample_rate_index] shl eax, 5 add eax, [_@@region_address1] movzx eax, word [mp3_band_index_long+eax*2] shr eax, 1 mov [ebx+84], eax ; [ebx+$mp3gr_region_size+1*4] mov dword [ebx+88], 288 ; [ebx+$mp3gr_region_size+2*4],576/2 .blocksplit_done: lea edi, [ebx+80] ; [ebx+$mp3gr_region_size+0] xor edx, edx mov cl, 3 .trunc_region_size_lop: mov eax, [edi] cmp eax, [ebx+12] ; [ebx+$mp3gr_big_values] jbe short .trunc_region_size_this mov eax, [ebx+12] .trunc_region_size_this: sub eax, edx mov [edi], eax add edx, eax add edi, 4 dec cl jnz short .trunc_region_size_lop mov dword [ebx+28], 13 ; [ebx+$mp3gr_short_start] mov dword [ebx+32], 22 ; [ebx+$mp3gr_long_end] cmp dword [ebx+44], 2 ; [ebx+$mp3gr_block_type] jnz short .these_band_indices mov dword [ebx+28], 0 ; [ebx+$mp3gr_short_start] mov dword [ebx+32], 0 ; [ebx+$mp3gr_long_end] cmp dword [ebx+48], 0 ; [ebx+$mp3gr_switch_point] jz short .these_band_indices mov dword [ebx+28], 2 ; [ebx+$mp3gr_short_start] mov dword [ebx+32], 4 ; [ebx+$mp3gr_long_end] cmp dword [mp3_hdr_sample_rate_index], 8 jz short .these_band_indices cmp dword [mp3_hdr_sample_rate_index], 2 mov dword [ebx+28], 3 ; [ebx+$mp3gr_short_start] mov dword [ebx+32], 8 ; [ebx+$mp3gr_long_end] jbe short .these_band_indices mov dword [ebx+32], 6 ; [ebx+$mp3gr_long_end] .these_band_indices: xor eax, eax cmp dword [mp3_hdr_flag_lsf], 0 jnz short .no_preflag mov eax, ebp ; mp3mac_get_n_bits 1 shl ebp, 1 rol eax, 1 xor eax, ebp sub ch, 1 jns short .no_preflag mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .no_preflag: mov [ebx+24], eax ; [ebx+$mp3gr_preflag] mov eax, ebp ; mp3mac_get_n_bits 1 shl ebp, 1 rol eax, 1 xor eax, ebp sub ch, 1 jns short .@_without_crc@@@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .@_without_crc@@@@@: inc eax mov [ebx+52], eax ; [ebx+$mp3gr_scalefac_scale] mov eax, ebp ; mp3mac_get_n_bits 1 shl ebp, 1 rol eax, 1 xor eax, ebp sub ch, 1 jns short .@_without_crc@@@@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .@_without_crc@@@@@@: add eax, 10h ; table 10h..11h (quad_vlc) mov [ebx+36], eax ; [ebx+$mp3gr_count1table_select] add ebx, 4928 ; $mp3gr_entrysiz*2 inc dword [mp3_curr_channel] mov eax, [mp3_curr_channel] cmp eax, [mp3_num_channels] jb .hdr_channel_lop pop ebx add ebx, 2464 ; $mp3gr_entrysiz inc dword [mp3_curr_granule] mov eax, [mp3_curr_granule] cmp eax, [mp3_nb_granules] jb .hdr_granule_lop ; 16/02/2025 .no_rdtsc_supported@: ;clc retn .error: ; 16/02/2025 .no_rdtsc_supported@@: mov esp, [_@@saved_sp] stc retn ; =============== S U B R O U T I N E ======================================= mp3_bitstream_append_to_main_data_pool: ; 16/02/2025 .no_rdtsc_supported: mov ecx, [mp3_src_frame_end] sub ecx, esi jb fatalunexpected mov edi, [main_data_pool_wr_ptr] lea eax, [edi+ecx] cmp eax, main_data_pool_wr_ptr jbe short .pool_inrange push ecx push esi lea esi, [edi-200h] mov edi, main_data_pool_start mov ecx, 128 rep movsd pop esi pop ecx .pool_inrange: mov eax, edi sub eax, [mp3_main_data_begin] rep movsb mov [main_data_pool_wr_ptr], edi cmp eax, main_data_pool_start js short .below_pool_start mov [mp3_bitstream_start], eax ; 22/10/2024 ;mov eax, 0 mov esi, [mp3_bitstream_start] ; mp3mac_bitstream_set_position ;mov cl, al ;shr eax, 3 ;and cl, 7 ;add esi, eax call mp3_recollect_bits ;mov eax, ebp ; mp3mac_get_n_bits cl ;shl ebp, cl ;rol eax, cl ;xor eax, ebp ;sub ch, cl ;jns short .cont ;mov cl, ch ; mp3mac_collect_more ;add ch, 10h ;rol ebp, cl ;mov bp, [esi] ;add esi, 2 ;ror bp, 8 ;ror ebp, cl .cont: ; 16/02/2025 ; clc ; not needed .no_rdtsc_supported@: retn .below_pool_start: mov dword [mp3_samples_output_size], 0 jmp short .cont ; =============== S U B R O U T I N E ======================================= mp3_bitstream_read_scalefacs: ; 16/02/2025 .no_rdtsc_supported: lea edi, [ebx+112] ; [ebx+$mp3gr_scale_factors] cmp dword [mp3_hdr_flag_lsf], 0 jnz .body_lsf_nonzero mov eax, [ebx+20] ; [ebx+$mp3gr_scalefac_compress] mov dx, [mp3_slen_table+eax*2] ; slen[0,1] cmp dword [ebx+44], 2 ; [ebx+$mp3gr_block_type] jnz short .body_lsf_zero_non_type2 push ebx mov al, 18 sub al, [ebx+48] ; [ebx+$mp3gr_switch_point] mov bl, al ; @@get_bl_scalefacs_with_dl_bits 0 cmp dl, 0 jz short .quickfill .scalefac_get_lop: mov cl, dl ; LSB of edx, slen[i] mov eax, ebp ; mp3mac_get_n_bits cl shl ebp, cl rol eax, cl xor eax, ebp sub ch, cl jns short .cont@ mov cl, ch ; mp3mac_collect_more add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .cont@: stosb dec bl jnz short .scalefac_get_lop jmp short .skip_quickfill .quickfill: push ecx movzx ecx, bl mov al, 0 ; NO_INTENSITY_FLAG rep stosb pop ecx .skip_quickfill: shr edx, 8 mov bl, 18 cmp dl, 0 ; @@get_bl_scalefacs_with_dl_bits 0 jz short .quickfill@ .scalefac_get_lop@: mov cl, dl mov eax, ebp ; mp3mac_get_n_bits cl shl ebp, cl rol eax, cl xor eax, ebp sub ch, cl jns short .cont@@ mov cl, ch ; mp3mac_collect_more add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .cont@@: stosb dec bl jnz short .scalefac_get_lop@ jmp short .skip_quickfill@ .quickfill@: push ecx movzx ecx, bl mov al, 0 rep stosb pop ecx .skip_quickfill@: pop ebx jmp .body_lsf_zeropad .body_lsf_zero_non_type2: push ebx ror edx, 8 mov dh, dl ; slen[0,1,2,3] = slen[0,0,1,1] rol edx, 16 mov dl, dh mov al, [ebx+40] ; [ebx+$mp3gr_scfsi] shl al, 4 ; move to upper 4bit mov byte [_@@scfsi], al mov ebx, 5050506h ; num[0..3] .body_lsf_zero_non_type2_lop: shl byte [_@@scfsi], 1 jb short .body_lsf_zero_non_type2_copy cmp dl, 0 ; @@get_bl_scalefacs_with_dl_bits 0 jz short .quickfill@@ .scalefac_get_lop@@: mov cl, dl mov eax, ebp shl ebp, cl rol eax, cl xor eax, ebp sub ch, cl jns short .cont@@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .cont@@@: stosb dec bl jnz short .scalefac_get_lop@@ jmp short .skip_quickfill@@ .quickfill@@: push ecx movzx ecx, bl mov al, 0 rep stosb pop ecx .skip_quickfill@@: jmp short .body_lsf_zero_non_type2_next .body_lsf_zero_non_type2_copy: push ecx mov eax, esi movzx ecx, bl ; copy lea esi, [edi-2464] ; [edi-$mp3gr_entrysiz] ; src=granule[0] ; from rep movsb ; prev mov esi, eax pop ecx .body_lsf_zero_non_type2_next: shr edx, 8 ; dl=next slen shr ebx, 8 ; bl=next numfacs jnz short .body_lsf_zero_non_type2_lop pop ebx mov al, 0 stosb jmp .body_lsf_done .body_lsf_nonzero: mov edx, [ebx+14h] ; [ebx+$mp3gr_scalefac_compress] test dword [mp3_hdr_mode_ext], 1 ; MODE_EXT_I_STEREO jz short .normal_scalefac cmp dword [mp3_curr_channel], 0 jz short .normal_scalefac add edx, 512 ; for 2nd channel of intensity_stereo .normal_scalefac: mov al, [(mp3_lsf_sf_expand_exploded_table+5)+edx*8] or [ebx+24], al ; [ebx+$mp3gr_preflag] push ebx movzx eax, byte [(mp3_lsf_sf_expand_exploded_table+4)+edx*8] cmp dword [ebx+44], 2 ; [ebx+$mp3gr_block_type] jnz short .this_tindex1 mov ebx, [ebx+48] ; [ebx+$mp3gr_switch_point] lea eax, [eax+ebx*4+4] .this_tindex1: mov ebx, [mp3_lsf_nsf_table+eax] mov edx, dword [mp3_lsf_sf_expand_exploded_table+edx*8] .scalefax_outer_lop: cmp dl, 0 ; @@get_bl_scalefacs_with_dl_bits 1 jz short .@quickfil .@scalefac_get_lop: mov cl, dl mov eax, ebp ; mp3mac_get_n_bits cl shl ebp, cl rol eax, cl xor eax, ebp sub ch, cl jns short .cont mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .cont: mov cl, dl ; numbits mov ah, al inc ah ; val+1 shr ah, cl ; bit0=is.max.value shl ah, 7 ; bit7=is.max.value or al, ah ; apply NO_INTENSITY_FLAG stosb dec bl jnz short .@scalefac_get_lop jmp short .@skip_quickfill .@quickfil: push ecx movzx ecx, bl mov al, 80h rep stosb pop ecx .@skip_quickfill: shr edx, 8 shr ebx, 8 jnz short .scalefax_outer_lop pop ebx .body_lsf_zeropad: mov edx, ecx lea ecx, [ebx+152] ; [ebx+$mp3gr_scale_factors+40] sub ecx, edi ;jb short fatal_scalefactors ; 21/10/2024 jb short fatalunexpected mov al, 0 rep stosb mov ecx, edx .body_lsf_done: ; 16/02/2025 ; clc ; not needed .no_rdtsc_supported@@@: retn ; 21/10/2024 ;fatal_scalefactors: ;jmp fatalunexpected ; --------------------------------------------------------------------------- ; 21/10/2024 fatalunexpected: div dword [zero] hang: jmp short hang ; =============== S U B R O U T I N E ======================================= mp3_get_exponents_from_scale_factors: ; 16/02/2025 .no_rdtsc_supported: push ecx ; mp3mac_push_bitstream push ebp push esi mov dword [_@@rle_point], 0 mov cl, [ebx+52] ; [ebx+$mp3gr_scalefac_scale] mov edi, mp3_exponents xor edx, edx cmp edx, [ebx+32] ; [ebx+$mp3gr_long_end] jnb short .long_done mov eax, [mp3_hdr_sample_rate_index] imul eax, 22 lea ebp, [mp3_band_size_long+eax] mov eax, [ebx+24] ; [ebx+$mp3gr_preflag] imul eax, 22 lea esi, [mp3_pretab+eax] .long_lop: movzx eax, byte [ebx+edx+112] ; [ebx+$mp3gr_scale_factors+edx] and al, 7Fh ; strip NO_INTENSITY_FLAG add al, [esi+edx] shl eax, cl neg eax add eax, [ebx+16] ; [ebx+$mp3gr_global_gain] shl eax, 16 mov al, [ebp+edx+0] add eax, [_@@rle_point] mov word [_@@rle_point], ax stosd inc edx cmp edx, [ebx+32] ; [ebx+$mp3gr_long_end] jb short .long_lop .long_done: mov edx, [ebx+28] ; [ebx+$mp3gr_short_start] cmp edx, 13 jnb .skip_shorts mov eax, [mp3_hdr_sample_rate_index] imul eax, 13 lea ebp, [mp3_band_size_short+eax] mov esi, [ebx+32] ; [ebx+$mp3gr_long_end] mov eax, [ebx+16] ; [ebx+$mp3gr_global_gain] ; IRP nn,0,1,2 sub eax, [ebx+68] ; [ebx+$mp3gr_subblock_gain+nn*4] mov [_@@gains], eax ; [@@gains+nn*4] mov eax, [ebx+16] sub eax, [ebx+72] mov [_@@gains+4], eax ; [@@gains+nn*4] mov eax, [ebx+16] sub eax, [ebx+76] ; [ebx+$mp3gr_subblock_gain+nn*4] mov [_@@gains+8], eax ; [@@gains+nn*4] .short_lop: movzx eax, byte [ebx+esi+112] ; [ebx+$mp3gr_scale_factors+esi] ; IRP nn,0,1,2 and al, 7Fh ; strip NO_INTENSITY_FLAG inc esi shl eax, cl neg eax add eax, [_@@gains] ; [@@gains+nn*4] ; nn=0 shl eax, 16 mov al, [ebp+edx+0] ; bstab[edx] add eax, [_@@rle_point] mov word [_@@rle_point], ax stosd ; msw=val, lsw=point movzx eax, byte [ebx+esi+112] ; [ebx+$mp3gr_scalefac_scale] and al, 7Fh inc esi shl eax, cl neg eax add eax, [_@@gains+4] ; [@@gains+nn*4] ; nn = 1 shl eax, 16 mov al, [ebp+edx+0] add eax, [_@@rle_point] mov word [_@@rle_point], ax stosd movzx eax, byte [ebx+esi+70h] and al, 7Fh inc esi shl eax, cl neg eax add eax, [_@@gains+8] ; [@@gains+nn*4] ; nn=2 shl eax, 10h mov al, [ebp+edx+0] add eax, [_@@rle_point] mov word [_@@rle_point], ax stosd inc edx cmp edx, 13 jb short .short_lop .skip_shorts: pop esi ; mp3mac_pop_bitstream pop ebp pop ecx ; 16/02/2025 .no_rdtsc_supported@: retn ; =============== S U B R O U T I N E ======================================= mp3_huffman_decode: ; 16/02/2025 .no_rdtsc_supported: mov eax, [ebx+8] ; [ebx+$mp3gr_part2_3_end] shr eax, 3 add eax, [mp3_bitstream_start] mov [_@@coarse_end], eax xor edi, edi mov dword [_@@rle_ptr], mp3_exponents mov dword [_@rle_point], 0 mov dword [_@@III], 0 ; i=0 .low_freq_lop_i: mov edx, [_@@III] ; for i=0 to 2 ; low frequencies (called big_values)... mov eax, [ebx+edx*4+80] ; [ebx+$mp3gr_region_size+edx*4] cmp eax, 0 jz .low_freq_next_i mov [_@@JJJ], eax mov edx, [ebx+edx*4+56] ; [ebx+$mp3gr_table_select+edx*4] ; select vlc table movzx eax, byte [mp3_huff_data+edx*2] ; get huff.table number cmp eax, 0 ; huff.table jnz short .low_freq_nonzero push ecx push edi lea edi, [ebx+edi*4+160] ; [ebx+$mp3gr_sb_hybrid+edi*4] mov ecx, [_@@JJJ] shl ecx, 1 xor eax, eax ; when huff.table=0, ; simply set NUM*2 entries to zero rep stosd pop edi pop ecx add edi, [_@@JJJ] ; raise index accordingly (by num*2) add edi, [_@@JJJ] jmp .low_freq_next_i .low_freq_nonzero: mov [_@@vlc_table], eax ; =1..15 cmp eax, 14 ; only table 14..15 have linbits jnb .with_linbits ; so table 0..13 can use faster code... .low_freq_lop_j_small: cmp esi, [_@@coarse_end] ; loop @@JJJ times.. ja .small_near_end .small_not_end: cmp edi, [_@rle_point] ; @@get_runlength small jnb .rle_fetch_next_small .rle_back_small: mov edx, [_@@vlc_table] ; get huffcode .get_child_lop: mov cl, [(huff_tree_buf+2)+edx*4] ; mp3mac_get_huffcode ; in: edx=table, out: eax=data ; bits (table size) (-7..-1) mov dx, word [huff_tree_buf+edx*4] ; code (child table) mov eax, ebp ; mov eax,mp3_col32 ; peek bitstream shr eax, cl add edx, eax mov cl, [(huff_tree_buf+2)+edx*4] ; bits (of entry) cmp cl, 0 js short .got_child movzx eax, word [huff_tree_buf+edx*4] ; return data value shl ebp, cl ; shl mp3_col32,cl ; discard cl bits sub ch, cl ; sub mp3_colNN,cl jns short .got_done mov cl, ch ; mp3mac_collect_more ; mov cl,mp3_colNN ; byte ptr [mp3_numbits_collected] add ch, 16 ; byte ptr [mp3_numbits_collected] rol ebp, cl ; dword ptr [mp3_collected_data] mov bp, [esi] add esi, 2 ror bp, 8 ; ror mp3_col16,8 ; endianess ror ebp, cl ; ror mp3_col32,cl ; dword ptr [mp3_collected_data] jmp short .got_done .got_child: shl ebp, 9 ; shl mp3_col32,CHILD_BITS ; discard 7 bits ; (assuming that parents are always 7bit wide) sub ch, 9 jns short .get_child_lop mov cl, ch ; mp3mac_collect_more add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl jmp short .get_child_lop .got_done: push eax shr eax, 4 ; x jz short .this_sign ; @@getexpval 0 ; @@getexpval macro has_linbits ; eax=0 (without sign) ; when x=0 mov edx, [_@@rle_val_x_40h] mov eax, [mp3_expval_table+edx+eax*4] dec ch ; mp3mac_get_bit_to_cy ; ;jnc short @@this_sign ; ;neg eax shl ebp, 1 ; dec mp3_colNN ; shl mp3_col32,1 ; cy=data sbb edx, edx ; cy=0,1 --> 0,FFFFFFFF xor eax, edx ; invert if cy was 1 ; get sign (negate if sign=1) sub eax, edx ; add 1 if cy was 1 .this_sign: mov [ebx+edi*4+160], eax ; [ebx+$mp3gr_sb_hybrid+edi*4+0] pop eax and eax, 0Fh ; y jz short .this_sign@ ; @@getexpval 0 mov edx, [_@@rle_val_x_40h] mov eax, [mp3_expval_table+edx+eax*4] dec ch shl ebp, 1 sbb edx, edx xor eax, edx sub eax, edx .this_sign@: mov [ebx+edi*4+164], eax ; [ebx+$mp3gr_sb_hybrid+edi*4+4] add edi, 2 dec dword [_@@JJJ] jnz .low_freq_lop_j_small jmp .low_freq_next_i .small_near_end: mov eax, esi ; mp3mac_bitstream_get_position sub eax, [mp3_bitstream_start] movsx edx, ch ; mp3_colNN neg edx lea eax, [edx+eax*8-16] cmp eax, [ebx+8] ; [ebx+$mp3gr_part2_3_end] jb .small_not_end jmp .low_freq_next_i .with_linbits: movzx eax, byte [(mp3_huff_data+1)+edx*2] mov [_@@linbits], eax .low_freq_lop_j: cmp esi, [_@@coarse_end] ; mp3mac_bitstream_get_position ; loop @@JJJ times... ja .lop_j_near_end .small_not_end@: cmp edi, [_@rle_point] ; @@get_runlength small jnb .rle_fetch_next_full .rle_back_full: mov edx, [_@@vlc_table] ; get huffcode .get_child_lop@: mov cl, [(huff_tree_buf+2)+edx*4] ; mp3mac_get_huffcode ; in: edx=table, out: eax=data ; bits (table size) (-7..-1) mov dx, word [huff_tree_buf+edx*4] ; code (child table) mov eax, ebp shr eax, cl add edx, eax mov cl, [(huff_tree_buf+2)+edx*4] ; bits (of entry) cmp cl, 0 js short .got_child@ movzx eax, word [huff_tree_buf+edx*4] ; return data value shl ebp, cl ; discard cl bits sub ch, cl jns short .got_done@ mov cl, ch ; mp3mac_collect_more add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl jmp short .got_done@ .got_child@: shl ebp, 9 sub ch, 9 jns short .get_child_lop@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl jmp short .get_child_lop@ .got_done@: push eax shr eax, 4 ; x jz short .@this_sign ; @@getexpval 1 mov edx, [_@@rle_val] cmp eax, 15 jb short .small ; when x=1..14 mov cl, byte [_@@linbits] ; =0..13 ; when x=15, with linbits mov eax, ebp ; mp3mac_get_n_bits cl ; value = 0..1FFFh shl ebp, cl ; mp3mac_collect_more rol eax, cl xor eax, ebp sub ch, cl jns short .cont mov cl, ch ; mp3mac_collect_more add ch, 16 rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .cont: mov cl, dl ; exponent.lsb and cl, 3 ; exponent.lsb shr edx, 2 ; exponent.msb lea eax, [eax*4+60] ; (value+15)*4 or al, cl ; exponent.lsb+(value+15)*4 mov cl, [mp3_table_4_3_exp+eax] mov eax, [mp3_table_4_3_value+eax*4] sub cl, dl ; sub exponent.msb shr eax, cl cmp cl, 31 jbe short .get_sign xor eax, eax jmp short .get_sign .small: shl edx, 6 ; shl edx,4+2 ; mul16*4 ; when x<15 aka x=1..14 mov eax, [mp3_expval_table+edx+eax*4] .get_sign: dec ch ; mp3mac_get_bit_to_cy shl ebp, 1 sbb edx, edx ; get sign (negate if sign=1) xor eax, edx sub eax, edx .@this_sign: mov [ebx+edi*4+160], eax ; [ebx+$mp3gr_sb_hybrid+edi*4+0] pop eax and eax, 0Fh ; y jz short .@this_sign@ ; @@getexpval 1 mov edx, [_@@rle_val] cmp eax, 0Fh jb short .small@ mov cl, byte [_@@linbits] mov eax, ebp ; mp3mac_get_n_bits cl shl ebp, cl rol eax, cl xor eax, ebp sub ch, cl jns short .cont@ mov cl, ch ; mp3mac_collect_more add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .cont@: mov cl, dl and cl, 3 shr edx, 2 lea eax, [eax*4+60] or al, cl mov cl, [mp3_table_4_3_exp+eax] mov eax, [mp3_table_4_3_value+eax*4] sub cl, dl shr eax, cl cmp cl, 31 jbe short .get_sign@ xor eax, eax jmp short .get_sign@ .small@: shl edx, 6 mov eax, [mp3_expval_table+edx+eax*4] .get_sign@: dec ch ; dec mp3_colNN shl ebp, 1 ; shl mp3_col32,1 ; cy=data sbb edx, edx ; cy=0,1 --> 0,FFFFFFFF xor eax, edx ; invert if cy was 1 sub eax, edx ; add 1 if cy was 1 .@this_sign@: mov [ebx+edi*4+164], eax ; [ebx+$mp3gr_sb_hybrid+edi*4+4] add edi, 2 ; next j dec dword [_@@JJJ] jnz .low_freq_lop_j .low_freq_next_i: inc dword [_@@III] ; next i cmp dword [_@@III], 3 jb .low_freq_lop_i cmp edi, 572 ; aka 576-4 ; skip if less than 4 entries left ja .high_freq_done .high_freq_lop: cmp esi, [_@@coarse_end] jbe short .high_freq_inrange mov eax, esi ; mp3mac_bitstream_get_position sub eax, [mp3_bitstream_start] movsx edx, ch ; mp3_colNN neg edx lea eax, [edx+eax*8-16] cmp eax, [ebx+8] ; [ebx+$mp3gr_part2_3_end] ; check end jb short .high_freq_inrange ; not yet end jz .high_freq_done ; okay, exact end cmp edi, 4 jb short .high_freq_cannot_stepback sub edi, 4 ; stepback, s_index-4 ; dst stepback .high_freq_cannot_stepback: jmp .high_freq_done .high_freq_inrange: mov edx, [ebx+24h] ; [ebx+$mp3gr_count1table_select] ; get huffcode (quad_vlc) .get_child_lop@@: mov cl, [(huff_tree_buf+2)+edx*4] ; mp3mac_get_huffcode mov dx, word [huff_tree_buf+edx*4] mov eax, ebp shr eax, cl add edx, eax mov cl, [(huff_tree_buf+2)+edx*4] cmp cl, 0 js short .got_child@@ movzx eax, word [huff_tree_buf+edx*4] shl ebp, cl sub ch, cl jns short .got_done@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl jmp short .got_done@@ .got_child@@: shl ebp, 9 sub ch, 9 jns short .get_child_lop@@ mov cl, ch add ch, 10h rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl jmp short .get_child_lop@@ .got_done@@: mov dl, al ; flags shl dl, 4 ; flags, to upper 4bit mov dh, 4 ; lopcount .high_freq_flag_lop: xor eax, eax shl dl, 1 ; flag jnb short .high_freq_flag_this cmp edi, [_@rle_point] ; @@get_runlength quads jnb .rle_fetch_next_quads .rle_back_quads: mov eax, [_@@rle_val] mov eax, [mp3_exp_table+eax*4] ; xlat and get sign dec ch ; mp3mac_get_bit_to_cy shl ebp, 1 jnb short .high_freq_flag_this ; ; sbb edx, edx ; cy=0,1 --> 0,FFFFFFFF ; xor eax, edx ; invert if cy was 1 ; sub eax, edx ; add 1 if cy was 1 neg eax .high_freq_flag_this: mov [ebx+edi*4+160], eax ; [ebx+$mp3gr_sb_hybrid+edi*4+0] inc edi dec dh jnz short .high_freq_flag_lop cmp edi, 572 ; aka 576-4 ; loop while space for another 4 values jbe .high_freq_lop .high_freq_done: mov [ebx+92], edi ; [ebx+$mp3gr_num_nonzero_hybrids] push ecx mov ecx, 576 ; end sub ecx, edi ; remain = end-curr ; zeropad remaining entries (can be 0 or 2 dwords, ; or more. If above loop was aborted) lea edi, [ebx+edi*4+160] ; [ebx+$mp3gr_sb_hybrid+edi*4] xor eax, eax rep stosd pop ecx ; 16/02/2025 .no_rdtsc_supported@: ;clc ; out: cy=0=okay retn .rle_fetch_next_small: mov eax, [_@@rle_ptr] ; @@next_runlength small add dword [_@@rle_ptr], 4 mov eax, [eax] cmp di, ax jnb short .rle_fetch_next_small mov word [_@rle_point], ax shr eax, 16 mov [_@@rle_val], eax shl eax, 6 mov [_@@rle_val_x_40h], eax jmp .rle_back_small .rle_fetch_next_full: mov eax, [_@@rle_ptr] ; @@next_runlength full add dword [_@@rle_ptr], 4 mov eax, [eax] cmp di, ax jnb short .rle_fetch_next_full mov word [_@rle_point], ax shr eax, 16 mov [_@@rle_val], eax shl eax, 6 mov [_@@rle_val_x_40h], eax jmp .rle_back_full .rle_fetch_next_quads: mov eax, [_@@rle_ptr] ; msw=val, lsw=point add dword [_@@rle_ptr], 4 ; 2+2 mov eax, [eax] cmp di, ax ; needed if rle fetching was skipped jnb short .rle_fetch_next_quads mov word [_@rle_point], ax shr eax, 16 mov [_@@rle_val], eax jmp .rle_back_quads .lop_j_near_end: mov eax, esi sub eax, [mp3_bitstream_start] movsx edx, ch neg edx lea eax, [edx+eax*8-16] cmp eax, [ebx+8] jb .small_not_end@ jmp .low_freq_next_i ; =============== S U B R O U T I N E ======================================= mp3_compute_stereo: ; 16/02/2025 cmp dword [mp3_num_channels], 2 ; in: ebx=granule(s) jnz short .no_stereo cmp dword [mp3_hdr_mode_ext], 2 ; MODE_EXT_MS_STEREO ; only MS stereo jz short mp3_compute_ms_stereo test dword [mp3_hdr_mode_ext], 1 ; MODE_EXT_I_STEREO ; intensity stereo (optionally with MS stereo) jnz short mp3_compute_i_stereo .no_stereo: retn mp3_compute_ms_stereo: ; 16/02/2025 .no_rdtsc_supported: lea edi, [ebx+5088] ; [ebx+$mp3gr_sb_hybrid+$mp3gr_entrysiz*2] ; for ch1 (2nd channel) mov ecx, [ebx+92] ; [ebx+$mp3gr_num_nonzero_hybrids] ; ch0 mov eax, [ebx+5020] ; [ebx+$mp3gr_num_nonzero_hybrids+($mp3gr_entrysiz*2)] ; ch1 cmp ecx, eax ja short .this_len mov ecx, eax .this_len: jecxz .ms_stereo_done mov [ebx+92], ecx ; [ebx+$mp3gr_num_nonzero_hybrids] ; ch0 mov [ebx+5020], ecx ; [ebx+$mp3gr_num_nonzero_hybrids+($mp3gr_entrysiz*2)] ; ch1 .ms_stereo_lop: mov eax, [edi-4928] ; for i=0 to 576-1 ; [edi+@@ch0] ; @@ch0 equ (-$mp3gr_entrysiz*2) ; granule for channel=0 ; tmp0 = granule.ch0.sb_hybrid[i] mov edx, [edi] ; @@ch1 equ 0 ; granule for channel=1 ; [edi+@@ch1] ; tmp1 = granule.ch1.sb_hybrid[i] sub eax, edx ; tmp0 - tmp1 lea edx, [eax+edx*2] ; tmp0 + tmp1 mov [edi-4928], edx ; [edi+@@ch0] ; granule.ch0.sb_hybrid[i] = tmp0 + tmp1 stosd ; [edi+@@ch1] ; granule.ch1.sb_hybrid[i] = tmp0 - tmp1 dec ecx jnz short .ms_stereo_lop .ms_stereo_done: ; 16/02/2025 .no_rdtsc_supported@: retn mp3_compute_i_stereo: ; 16/02/2025 .no_rdtsc_supported@@@: mov dword [ebx+92], 576 ; ch0 ; [ebx+$mp3gr_num_nonzero_hybrids] mov dword [ebx+5020], 576 ; ch1 ; [ebx+$mp3gr_num_nonzero_hybrids+($mp3gr_entrysiz*2)] mov eax, [ebx+32] ; [ebx+$mp3gr_long_end] mov [_@@n_long_sfb], eax mov eax, 13 ; 39/3 sub eax, [ebx+28] ; [ebx+$mp3gr_short_start] lea eax, [eax+eax*2] ; mul3 mov [_@@n_short_sfb], eax add eax, [_@@n_long_sfb] mov [_@@n_sfb], eax ; ; n_sfb = gr->n_long_sfb + gr->n_short_sfb; cmp byte [_@@n_short_sfb], 0 mov eax, 1 jz short .without_short mov eax, 3 ; max_blocks = gr->n_short_sfb ? 3 : 1; .without_short: mov [_@@max_blocks], eax mov edi, _@@sfb_array mov eax, [mp3_hdr_sample_rate_index] ; bstab imul eax, 22 lea esi, [mp3_band_size_long+eax] mov ecx, [_@@n_long_sfb] rep movsb mov eax, [mp3_hdr_sample_rate_index] imul eax, 13 lea esi, [mp3_band_size_short+eax] ; merge lieff-style mov ecx, [_@@n_short_sfb] jecxz .make_sfb_done ; doing that here is a bit slow, ; it would be better to pre-compute ; all merged-combinations add esi, [ebx+28] ; [ebx+$mp3gr_short_start] .make_sfb_lop: lodsb stosb stosb stosb sub ecx, 3 jnz short .make_sfb_lop .make_sfb_done: call _@@find_top_bands ; ; L3_stereo_top_band(left+576,gr->sfbtab,n_sfb,max_band); cmp byte [_@@n_long_sfb], 0 jz short .without_long mov eax, dword [_@@max_bands] cmp ah, al ; if (gr->n_long_sfb) jg short .not_max1 ; max_band[0] = max_band[1] = max_band[2] = MINIMP3_MAX ; (MINIMP3_MAX(max_band[0], max_band[1]), max_band[2]); mov ah, al .not_max1: shr eax, 8 cmp ah, al jg short .not_max2 mov ah, al .not_max2: mov al, ah shl eax, 8 mov al, ah mov dword [_@@max_bands], eax .without_long: xor ebp, ebp ; blk .adjust_last_prev_lop: mov edx, [_@@n_sfb] sub edx, [_@@max_blocks] ; itop = n_sfb - max_blocks + blk add edx, ebp mov ecx, edx sub ecx, [_@@max_blocks] ; prev = itop - max_blocks; mov eax, [mp3_hdr_flag_lsf] lea eax, [eax+eax*2] ; 0,1 --> 0,3 ; default_pos = HDR_TEST_MPEG1(hdr) ? 3 xor al, 3 ; 0,3 --> 3,0 cmp cl, [ss:_@@max_bands+ebp] jle short .use_default_pos ; ist_pos[itop] = max_band[blk] >= ; prev ? default_pos : ist_pos[prev] mov al, [ebx+ecx+5040] ; [ebx+@@right+$mp3gr_scale_factors+ecx] .use_default_pos: mov [ebx+edx+5040], al ; [ebx+@@right+$mp3gr_scale_factors+edx] inc ebp ; blk cmp ebp, [_@@max_blocks] jb short .adjust_last_prev_lop call _@@apply_i_stereo ; 16/02/2025 .no_rdtsc_supported@@@@: retn ; =============== S U B R O U T I N E ======================================= _@@find_top_bands: mov dword [_@@max_bands], 0FFFFFFh ; set maxband[0..2]=(-1) lea esi, [ebx+5088] ; [ebx+@@right+$mp3gr_sb_hybrid] xor edx, edx .find_top_lop_iii: xor ecx, ecx ; for (i = 0; i < nbands; i++) .find_top_lop_kkk: mov eax, [esi+ecx*4] ; for (k = 0; k < sfb[i]; k += 2) or eax, [esi+ecx*4+4] jnz short .found_nonzero add ecx, 2 cmp cl, [_@@sfb_array+edx] jb short .find_top_lop_kkk jmp short .find_top_next .found_nonzero: mov eax, edx div byte [_@@const_3] movzx eax, ah ; remainder (mod 3) mov [_@@max_bands+eax], dl ; max_bands[0..2]=i .find_top_next: movzx eax, byte [_@@sfb_array+edx] lea esi, [esi+eax*4] inc edx ; next cmp edx, [_@@n_sfb] jb short .find_top_lop_iii retn ; =============== S U B R O U T I N E ======================================= _@@apply_i_stereo: mov eax, mp3_is_table_normal mov ecx, 7 cmp dword [mp3_hdr_flag_lsf], 0 jz short .this_lsf mov eax, [ebx+4948] ; [ebx+@@right+$mp3gr_scalefac_compress] and eax, 1 ; bit0 test dword [mp3_hdr_mode_ext], 2 ; MODE_EXT_MS_STEREO jz short .no_ms or eax, 2 ; bit1=mul_1.414 .no_ms: shl eax, 9 ; N*40h*2*4 add eax, mp3_is_table_lsf mov ecx, 64 ; max (must be below NO_INTENSITY_FLAG) .this_lsf: mov [_@@max_pos], ecx ; 7 or 64 mov [_@@is_tab], eax ; table lea esi, [ebx+160] ; [ebx+$mp3gr_sb_hybrid] xor ecx, ecx ; iii ; for (i = 0; sfb[i]; i++) .apply_lop_i: movzx ebp, byte [_@@sfb_array+ecx] ; if ((int)i > max_band[i % 3] ; && ipos < max_pos) mov eax, ecx div byte [_@@const_3] ; max_band[i % 3] movzx eax, ah ; remainder (mod 3) cmp cl, [_@@max_bands+eax] ; iii,max_bands[0..2]; jle short .apply_ms_stereo movzx edi, byte [ebx+ecx+5040] ; [ebx+@@right+$mp3gr_scale_factors+ecx] ; @@right = $mp3gr_entrysiz*2 = 4928 ; $mp3gr_scale_factors = 112 cmp edi, [_@@max_pos] ; check ipos jnb short .apply_ms_stereo shl edi, 3 ; mul 2*4 add edi, [_@@is_tab] .apply_pan_lop: mov eax, [esi] ; tmp = granule.ch0.sb_hybrid shl eax, 2 imul dword [edi+4] ; v1 mov [esi+4928], edx ; [esi+@@right] ; granule.ch1.sb_hybrid = tmp*v1 mov eax, [esi] ; tmp = granule.ch0.sb_hybrid shl eax, 2 imul dword [edi] ; v0 mov [esi], edx ; granule.ch0.sb_hybrid = tmp*v0 add esi, 4 dec ebp jnz short .apply_pan_lop jmp short .apply_next .apply_ms_stereo: test dword [mp3_hdr_mode_ext], 2 ; MODE_EXT_MS_STEREO jz short .apply_none .ms_stereo_lop: mov eax, [esi] ; tmp0 = granule.ch0.sb_hybrid[i] mov edx, [esi+4928] ; [esi+@@right] ; tmp1 = granule.ch1.sb_hybrid[i] sub eax, edx ; tmp0 - tmp1 lea edx, [eax+edx*2] ; tmp0 + tmp1 mov [esi], edx ; granule.ch0.sb_hybrid[i] = tmp0 + tmp1 mov [esi+4928], eax ; [esi+@@right] ; granule.ch1.sb_hybrid[i] = tmp0 - tmp1 add esi, 4 dec ebp jnz short .ms_stereo_lop jmp short .apply_next .apply_none: lea esi, [esi+ebp*4] ; skip, keep unchanged .apply_next: inc ecx ; iii cmp ecx, [_@@n_sfb] jb .apply_lop_i ; next retn ; =============== S U B R O U T I N E ======================================= mp3_reorder_block: ; 16/02/2025 .no_rdtsc_supported: cmp byte [ebx+44], 2 ; ebx+$mp3gr_block_type] ; only for type 2 jnz short .no_reorder lea esi, [ebx+160] ; [ebx+$mp3gr_sb_hybrid] ; ptr+0 cmp byte [ebx+48], 0 ; [ebx+$mp3gr_switch_point] jz short .this_src add esi, 144 ; 36*4 ; ptr+36*4 cmp dword [mp3_hdr_sample_rate_index], 8 jnz short .this_src add esi, 48 ; 12*4 ; additionally to above 36*4 ; ptr+48*4 .this_src: mov edx, [ebx+28] ; [ebx+$mp3gr_short_start] ; can be 13 cmp edx, 13 jnb short .no_reorder mov dword [ebx+92], 576 ; [ebx+$mp3gr_num_nonzero_hybrids] .outer_lop: mov eax, [mp3_hdr_sample_rate_index] imul eax, 13 ; X*13 movzx ecx, byte [mp3_band_size_short+eax+edx] ; [X*13+Y] mov edi, _@@tmp pusha mov edx, ecx ; step=len (4..44) ; copy LEN*3 dwords to tmp .inner_lop: mov eax, [esi] stosd mov eax, [esi+edx*4] ; copy 3 dwords stosd mov eax, [esi+edx*8] stosd add esi, 4 loop .inner_lop popa lea ecx, [ecx+ecx*2] ; len*3 xchg esi, edi ; copy LEN*3 dwords back from tmp rep movsd xchg esi, edi inc edx cmp edx, 13 jb short .outer_lop ; next .no_reorder: ; 16/02/2025 .no_rdtsc_supported@: retn ; =============== S U B R O U T I N E ======================================= mp3_compute_antialias: ; 16/02/2025 .no_rdtsc_supported: mov eax, [ebx+92] ; [ebx+$mp3gr_num_nonzero_hybrids] add eax, 8 ; 9-1 ; 0..576+8 xor edx, edx mov ecx, 9 div ecx ; (num/9) ; 0..64 mov [ebx+60h], eax shr eax, 1 ; (num/18) ; 0..32 jz .no_antialias ; 0 (when num/9 = 0..1) mov ecx, eax ; 1..32 shr eax, 5 ; 0..1 sub ecx, eax ; 1..31 ; len excluding zeropadding cmp byte [ebx+44], 2 ; [ebx+$mp3gr_block_type] jnz short .this_len ; antialias only "long" bands cmp byte [ebx+48], 0 ; [ebx+$mp3gr_switch_point] jz .no_antialias mov ecx, 1 ; check this for 8000Hz case .this_len: lea eax, [1+ecx*2] cmp [ebx+96], eax ; [ebx+$mp3gr_num_nonzero_hybrids_div9] ja short .is_bigger mov [ebx+96], eax ; opdate highest ; (nonzero required for l3-si_huff.bit) .is_bigger: push ebx lea ebx, [ebx+160] ; [ebx+$mp3gr_sb_hybrid] .lop: add ebx, 72 ; 18*4 mov esi, [ebx-4] ; IRP nn,0,1,2,3,4,5,6,7 ; INT_AA(nn=0..7) mov edi, [ebx] ; @@def_csa macro nn,cs,ca ; mp3_csa_&nn&_cs equ cs ; mp3_csa_&nn&_ca equ ca ; endm ; constants for mp3_csa_table shl esi, 2 ; tmp0 = ptr[-nn-1]*4 shl edi, 2 ; tmp1 = ptr[+nn]*4 lea eax, [esi+edi] ; tmp2 = tmp0+tmp1 mov ebp, 36E12A03h ; @@def_csa 0,36E12A03h,-20ED7F9Ah ;-0.6 ; mp3_csa_&nn&_cs imul ebp ; tmp2 = (tmp2*csa[0]) mov ebp, edx mov eax, -57CEA99Dh ; mp3_csa_&nn&_ca-mp3_csa_&nn&_cs imul esi ; tmp0 = (tmp2+(tmp0*csa[3])) add edx, ebp mov [ebx], edx ; [ebx+(nn)*4] mov eax, 15F3AA69h ; mp3_csa_&nn&_ca+mp3_csa_&nn&_cs imul edi ; tmp1 = (tmp2-(tmp1*csa[2])) sub ebp, edx mov [ebx-4], ebp ; [ebx-(nn+1)*4] mov esi, [ebx-8] mov edi, [ebx+4] shl esi, 2 shl edi, 2 lea eax, [esi+edi] mov ebp, 386E75FDh ; @@def_csa 1,386E75FDh,-1E30DB48h ;-0.535 imul ebp mov ebp, edx mov eax, -569F5145h imul esi add edx, ebp mov [ebx+4], edx ; [ebx+(nn)*4] mov eax, 1A3D9AB5h imul edi sub ebp, edx mov [ebx-8], ebp ; [ebx-(nn+1)*4] mov esi, [ebx-12] mov edi, [ebx+8] shl esi, 2 shl edi, 2 lea eax, [esi+edi] mov ebp, 3CC6B73Eh ; @@def_csa 2,3CC6B73Eh,-140E604Fh ;-0.33 imul ebp mov ebp, edx mov eax, -50D5178Dh imul esi add edx, ebp mov [ebx+8], edx ; [ebx+(nn)*4] mov eax, 28B856EFh imul edi sub ebp, edx mov [ebx-12], ebp ; [ebx-(nn+1)*4] mov esi, [ebx-16] mov edi, [ebx+12] shl esi, 2 shl edi, 2 lea eax, [esi+edi] mov ebp, 3EEEA055h ; @@def_csa 3,3EEEA055h,-0BA47742h ;-0.185 imul ebp mov ebp, edx mov eax, -4A931797h imul esi add edx, ebp mov [ebx+12], edx ; [ebx+(nn)*4] mov eax, 334A2913h imul edi sub ebp, edx mov [ebx-16], ebp ; [ebx-(nn+1)*4] mov esi, [ebx-20] ; ebx-(nn+1)*4] ; tmp0 = ptr[-nn-1] mov edi, [ebx+16] ; [ebx+(nn)*4] ; tmp1 = ptr[+nn] shl esi, 2 shl edi, 2 lea eax, [esi+edi] ; tmp2 = tmp0+tmp1 mov ebp, 3FB6905Ch ; @@def_csa 4,3FB6905Ch,-060D80E9h ;-0.095 imul ebp ; tmp2 = (tmp2*csa[0]) mov ebp, edx mov eax, -45C41145h imul esi ; tmp0 = (tmp2+(tmp0*csa[3])) add edx, ebp mov [ebx+16], edx ; [ebx+(nn)*4] mov eax, 39A90F73h imul edi ; tmp1 = (tmp2-(tmp1*csa[2])) sub ebp, edx mov [ebx-20], ebp ; [ebx-(nn+1)*4] mov esi, [ebx-24] mov edi, [ebx+20] shl esi, 2 shl edi, 2 lea eax, [esi+edi] mov ebp, 3FF23F21h ; @@def_csa 5,3FF23F21h,-029F2E1Bh ;-0.041 imul ebp mov ebp, edx mov eax, -42916D3Ch imul esi add edx, ebp mov [ebx+20], edx ; [ebx+(nn)*4] mov eax, 3D531106h imul edi sub ebp, edx mov [ebx-24], ebp ; [ebx-(nn+1)*4] mov esi, [ebx-28] mov edi, [ebx+24] shl esi, 2 shl edi, 2 lea eax, [esi+edi] mov ebp, 3FFE5932h ; @@def_csa 6,3FFE5932h,-00E8A11Ch ;-0.0142 imul ebp mov ebp, edx mov eax, -40E6FA4Eh imul esi add edx, ebp mov [ebx+24], edx ; [ebx+(nn)*4] mov eax, 3F15B816h imul edi sub ebp, edx mov [ebx-28], ebp ; [ebx-(nn+1)*4] mov esi, [ebx-32] mov edi, [ebx+28] shl esi, 2 shl edi, 2 lea eax, [esi+edi] mov ebp, 3FFFE34Bh ; @@def_csa 7,3FFFE34Bh,-003C9ED1h ;-0.0037 imul ebp mov ebp, edx mov eax, -403C821Ch imul esi add edx, ebp mov [ebx+28], edx ; [ebx+(nn)*4] mov eax, 3FC3447Ah imul edi sub ebp, edx mov [ebx-32], ebp ; [ebx-(nn+1)*4] dec ecx jnz .lop pop ebx .no_antialias: ; 16/02/2025 .no_rdtsc_supported@: retn ; =============== S U B R O U T I N E ======================================= mp3_imdct36: mov eax, [esi] ; in: esi=src (sb_hybrid) ; in: edi=dst (sb_samples) ; in: ebx=buf (mdct_buf) ; in: ebp=win (mdct_win) ; ; [esi+0*4] mov edx, [esi+4] ; IRP i,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17 add eax, edx ; IF i AND 1 (*) ; mov edx,[esi+i*4] ; val[i] ; add val[i-1] mov [esi+4], eax ; IF i GT 1 ; add ecx,eax ; add val[i-2] ; mov [esi+(i)*4],ecx ; ELSE ; mov [esi+(i)*4],eax mov ecx, eax ; memorize as val[i-2] mov eax, [esi+8] ; ELSE (*) ; [esi+i*4] ; val[i] add edx, eax ; add val[i-1] mov [esi+8], edx ; [esi+(i)*4 mov edx, [esi+12] add eax, edx add ecx, eax mov [esi+12], ecx mov ecx, eax mov eax, [esi+16] add edx, eax mov [esi+16], edx mov edx, [esi+20] add eax, edx add ecx, eax mov [esi+20], ecx mov ecx, eax mov eax, [esi+24] add edx, eax mov [esi+24], edx mov edx, [esi+28] add eax, edx add ecx, eax mov [esi+28], ecx mov ecx, eax mov eax, [esi+32] add edx, eax mov [esi+32], edx mov edx, [esi+36] add eax, edx add ecx, eax mov [esi+36], ecx mov ecx, eax mov eax, [esi+40] add edx, eax mov [esi+40], edx mov edx, [esi+44] add eax, edx add ecx, eax mov [esi+44], ecx mov ecx, eax mov eax, [esi+48] add edx, eax mov [esi+48], edx mov edx, [esi+52] add eax, edx add ecx, eax mov [esi+52], ecx mov ecx, eax mov eax, [esi+56] add edx, eax mov [esi+56], edx mov edx, [esi+60] add eax, edx add ecx, eax mov [esi+60], ecx mov ecx, eax mov eax, [esi+64] add edx, eax mov [esi+64], edx mov edx, [esi+68] add eax, edx add ecx, eax mov [esi+68], ecx mov ecx, eax push ebx push ebp push edi mov ecx, [esi] ; IRP j,0,1 mov ebx, [esi+48] ; t1 = [esi+(0*2+j)*4], t0 = [esi+(6*2+j)*4] mov edi, [esi+32] ; t2 = [esi+(4*2+j)*4] add edi, [esi+64] ; + [esi+(8*2+j)*4] sub edi, [esi+16] ; - [esi+(2*2+j)*4] lea ebp, [ebx+ecx*2] ; t2 = src[4*2+j] + src[8*2+j] - src[2*2+j] ; t3 = [t1*2+t0] sar ebp, 1 ; sar @@t3,1 sub ecx, ebx ; sub @@t1,@@t0 mov eax, ecx ; @@SUM [@@tmp+(16+j)*4],@@t1,add,@@t2 add eax, edi mov [_@@@tmp+40h], eax ; [@@tmp+(16+j)*4] sar edi, 1 ; sar @@t2,1 mov eax, ecx ; @@SUM [@@tmp+(6+j)*4],@@t1,sub,@@t2 sub eax, edi mov [_@@@tmp+18h], eax ; [@@tmp+(6+j)*4] mov eax, [esi+16] ; [esi+(4*2+j)*4] add eax, [esi+32] ; [esi+(2*2+j)*4] shl eax, 1 mov edx, 7847D90Ah ; C2 imul edx mov ebx, edx mov eax, [esi+32] sub eax, [esi+64] mov edx, 0D38BCB04h ; negC8 imul edx mov ecx, edx mov eax, [esi+16] add eax, [esi+64] shl eax, 1 mov edx, 9DF24175h ; negC4 imul edx mov eax, ebp add eax, ebx add eax, ecx mov [_@@@tmp+8], eax mov eax, ebp sub eax, ebx sub eax, edx mov [_@@@tmp+28h], eax mov eax, ebp add eax, edx sub eax, ecx mov [_@@@tmp+38h], eax mov eax, [esi+40] add eax, [esi+56] sub eax, [esi+8] shl eax, 1 mov edx, 9126145Fh ; negC3 imul edx mov [_@@@tmp+10h], edx mov eax, [esi+8] add eax, [esi+40] shl eax, 1 mov edx, 7E0E2E33h ; C1 imul edx mov edi, edx mov eax, [esi+40] sub eax, [esi+56] mov edx, 0A8715E2Eh ; negC7 imul edx mov ebp, edx mov eax, [esi+8] add eax, [esi+56] shl eax, 1 mov edx, 0ADB922B8h ; negC5 imul edx mov ecx, edx mov eax, [esi+24] shl eax, 1 mov edx, 6ED9EBA2h ; C3 imul edx mov eax, ebp add eax, edi add eax, edx mov [_@@@tmp], eax mov eax, ebp sub eax, ecx sub eax, edx mov [_@@@tmp+20h], eax mov eax, edi add eax, ecx sub eax, edx mov [_@@@tmp+30h], eax mov ecx, [esi+4] mov ebx, [esi+52] mov edi, [esi+36] add edi, [esi+68] sub edi, [esi+20] lea ebp, [ebx+ecx*2] sar ebp, 1 sub ecx, ebx mov eax, ecx add eax, edi mov [_@@@tmp+44h], eax sar edi, 1 mov eax, ecx sub eax, edi mov [_@@@tmp+1Ch], eax mov eax, [esi+20] ; t0 = MULH(2*(src[2*2+j]+src[4*2+j]),C2) add eax, [esi+36] shl eax, 1 mov edx, 7847D90Ah ; C2 imul edx mov ebx, edx mov eax, [esi+36] ; t1 = MULH(src[4*2+j]-src[8*2+j],negC8) sub eax, [esi+68] mov edx, 0D38BCB04h ; negC8 imul edx mov ecx, edx mov eax, [esi+20] ; t2 = MULH(2*(src[2*2+j]+src[8*2+j]),negC4) add eax, [esi+68] shl eax, 1 mov edx, 9DF24175h ; negC4 imul edx mov eax, ebp ; tmp[2+j] = t3+t0+t1 add eax, ebx add eax, ecx mov [_@@@tmp+0Ch], eax mov eax, ebp ; tmp[10+j] = t3-t0-t2 sub eax, ebx sub eax, edx mov [_@@@tmp+2Ch], eax mov eax, ebp ; tmp[14+j] = t3+t2-t1 add eax, edx sub eax, ecx mov [_@@@tmp+3Ch], eax mov eax, [esi+44] ; tmp[4+j] = MULH(2*(src[5*2+j]+src[7*2+j]-src[1*2+j]),negC3) add eax, [esi+60] sub eax, [esi+12] shl eax, 1 mov edx, 9126145Fh ; negC3 imul edx mov [_@@@tmp+14h], edx mov eax, [esi+12] ; @@MULH @@t2,[esi+(1*2+j)*4],add,[esi+(5*2+j)*4],-,- ,1,C1,- ; t2 = MULH(2*(src[1*2+j],add,src[5*2+j]),-,-,1,C1) add eax, [esi+44] shl eax, 1 mov edx, 7E0E2E33h ; C1 imul edx mov edi, edx mov eax, [esi+44] ; @@MULH @@t3,[esi+(5*2+j)*4],sub,[esi+(7*2+j)*4],-,-, ; ,0,negC7,- ; ; t3 = MULH( src[5*2+j],sub,src[7*2+j],-,-,0,negC7) sub eax, [esi+60] mov edx, 0A8715E2Eh ; negC7 imul edx mov ebp, edx mov eax, [esi+12] ; t1 = MULH(2*(src[1*2+j],add,src[7*2+j]),-,-,1,negC5) add eax, [esi+60] shl eax, 1 ; shift = 1 mov edx, 0ADB922B8h ; negC5 imul edx mov ecx, edx mov eax, [esi+28] ; t0 = MULH(2*src[3*2+j],-,-,-,-,1,C3) shl eax, 1 mov edx, 6ED9EBA2h ; C3 imul edx mov eax, ebp add eax, edi add eax, edx mov [_@@@tmp+4], eax mov eax, ebp sub eax, ecx sub eax, edx mov [_@@@tmp+24h], eax mov eax, edi ; @@SUM [@@tmp+(12+j)*4],@@t2,add,@@t1,sub,edx add eax, ecx sub eax, edx mov [_@@@tmp+34h], eax pop edi pop ebp pop ebx push esi ; IRP j,0,1,2,3 ; j = 0 mov edx, [_@@@tmp] ; t0 = [@@tmp+(j*4+0)*4] mov esi, [_@@@tmp+4] ; t1 = [@@tmp+(j*4+1)*4] mov eax, [_@@@tmp+8] ; t2 = [@@tmp+(j*4+2)*4] mov ecx, [_@@@tmp+0Ch] ; t2 = [@@tmp+(j*4+3)*4] sub eax, edx ; s2 = t2 - t0 lea edx, [eax+edx*2] ; s0 = t2 + t0 mov [_@@s2], eax ; @@MULH esi,eax ,-,-,-,-,1,icos36h_&j,- ; s2 = MULH(s2*2, icos36h[j]) mov [_@@s0], edx sub ecx, esi lea eax, [ecx+esi*2] shl eax, 1 mov edx, 403E9590h ; icos36h_0 imul edx mov esi, edx mov eax, ecx ; @@MULH @@s3,ecx,-,-,-,-,shift_for_8minus&j,icos36h_8minus&j,- ; s3 = MULL(s3,icos36[8-j]) ; <-- "MULL" with "icos36" shl eax, 4 mov edx, 5BCA2A2Ch ; icos36h_8 (8-0) imul edx mov [_@@s3], edx mov ecx, [_@@s0] sub ecx, esi lea esi, [ecx+esi*2] mov eax, [ebp+36] ; @@MULH [edi+(9+j)*SBLIMIT*4],[ebp+(9+j)*4], ; -,-,-,-,0,ecx,[ebx+(9+j)*4] ; out[(9+j)*SBLIMIT] = MULH(t0, win[9+j])+buf[9+j] imul ecx add edx, [ebx+36] ; [ebx+(9+j)*4] mov [edi+1152], edx ; SBLIMIT=32 ; 9*SBLIMIT*4 = 1152 mov eax, [ebp+32] ; @@MULH [edi+(8-j)*SBLIMIT*4],[ebp+(8-j)*4] ; ,-,-,-,-,0,ecx,[ebx+(8-j)*4] imul ecx add edx, [ebx+32] mov [edi+1024], edx ; SBLIMIT=32 ; 8*SBLIMIT*4 = 1024 mov eax, [ebp+108] imul esi mov [ebx+36], edx mov eax, [ebp+104] ; @@MULH [ebx+(8-j)*4],[ebp+(8-j+18)*4],-,-,-,-,0,esi,- imul esi mov [ebx+32], edx mov ecx, [_@@s2] mov esi, [_@@s3] sub ecx, esi ; t2 = s2 - s3 lea esi, [ecx+esi*2] ; t3 = s2 + s3 mov eax, [ebp+0] ; @@MULH [edi+(0+j)*SBLIMIT*4],[ebp+(0+j)*4], ; -,-,-,-,0,ecx,[ebx+(0+j)*4] imul ecx add edx, [ebx] mov [edi], edx mov eax, [ebp+68] ; @@MULH [edi+(17-j)*SBLIMIT*4],[ebp+(17-j)*4] ; ,-,-,-,-,0,ecx,[ebx+(17-j)*4] imul ecx add edx, [ebx+68] mov [edi+2176], edx ; 17*SBLIMIT*4 = 2176 mov eax, [ebp+72] ; @@MULH [ebx+(0+j)*4],[ebp+(0+j+18)*4],-,-,-,-,0,esi,- imul esi mov [ebx], edx mov eax, [ebp+140] ; @@MULH [ebx+(17-j)*4],[ebp+(17-j+18)*4],-,-,-,-,0,esi,- imul esi mov [ebx+68], edx mov edx, [_@@@tmp+10h] ; IRP j,0,1,2,3 ; j = 1 mov esi, [_@@@tmp+14h] mov eax, [_@@@tmp+18h] mov ecx, [_@@@tmp+1Ch] sub eax, edx lea edx, [eax+edx*2] mov [_@@s2], eax mov [_@@s0], edx sub ecx, esi lea eax, [ecx+esi*2] shl eax, 1 mov edx, 4241F707h ; icos36h_1 imul edx mov esi, edx mov eax, ecx shl eax, 2 mov edx, 7BA3751Eh ; icos36h_7 (8-1) imul edx mov [_@@s3], edx mov ecx, [_@@s0] sub ecx, esi lea esi, [ecx+esi*2] mov eax, [ebp+40] imul ecx add edx, [ebx+40] mov [edi+1280], edx mov eax, [ebp+28] imul ecx add edx, [ebx+28] mov [edi+896], edx mov eax, [ebp+112] imul esi mov [ebx+40], edx mov eax, [ebp+100] imul esi mov [ebx+28], edx mov ecx, [_@@s2] mov esi, [_@@s3] sub ecx, esi lea esi, [ecx+esi*2] mov eax, [ebp+4] imul ecx add edx, [ebx+4] mov [edi+128], edx mov eax, [ebp+64] imul ecx add edx, [ebx+64] mov [edi+2048], edx mov eax, [ebp+76] imul esi mov [ebx+4], edx mov eax, [ebp+136] imul esi mov [ebx+64], edx mov edx, [_@@@tmp+20h] ; IRP j,0,1,2,3 ; j = 2 mov esi, [_@@@tmp+24h] mov eax, [_@@@tmp+28h] mov ecx, [_@@@tmp+2Ch] sub eax, edx lea edx, [eax+edx*2] mov [_@@s2], eax mov [_@@s0], edx sub ecx, esi lea eax, [ecx+esi*2] shl eax, 1 mov edx, 469DBE6Ch ; icos36h_2 imul edx mov esi, edx mov eax, ecx shl eax, 2 mov edx, 4BB7EC62h ; icos36h_6 (8-2) imul edx mov [_@@s3], edx mov ecx, [_@@s0] sub ecx, esi lea esi, [ecx+esi*2] mov eax, [ebp+44] imul ecx add edx, [ebx+44] mov [edi+1408], edx mov eax, [ebp+24] imul ecx add edx, [ebx+24] mov [edi+768], edx mov eax, [ebp+116] imul esi mov [ebx+44], edx mov eax, [ebp+96] imul esi mov [ebx+24], edx mov ecx, [_@@s2] mov esi, [_@@s3] sub ecx, esi lea esi, [ecx+esi*2] mov eax, [ebp+8] imul ecx add edx, [ebx+8] mov [edi+256], edx mov eax, [ebp+60] imul ecx add edx, [ebx+60] mov [edi+1920], edx mov eax, [ebp+80] imul esi mov [ebx+8], edx mov eax, [ebp+132] imul esi mov [ebx+60], edx mov edx, [_@@@tmp+30h] ; IRP j,0,1,2,3 ; j = 3 mov esi, [_@@@tmp+34h] mov eax, [_@@@tmp+38h] mov ecx, [_@@@tmp+3Ch] sub eax, edx lea edx, [eax+edx*2] mov [_@@s2], eax mov [_@@s0], edx sub ecx, esi lea eax, [ecx+esi*2] shl eax, 1 mov edx, 4E212BBEh ; icos36h_3 imul edx mov esi, edx mov eax, ecx shl eax, 1 mov edx, 6F94A1DFh ; icos36h_5 (8-3) imul edx mov [_@@s3], edx mov ecx, [_@@s0] sub ecx, esi lea esi, [ecx+esi*2] mov eax, [ebp+48] imul ecx add edx, [ebx+48] mov [edi+1536], edx mov eax, [ebp+20] imul ecx add edx, [ebx+20] mov [edi+640], edx mov eax, [ebp+120] imul esi mov [ebx+30h], edx mov eax, [ebp+92] imul esi mov [ebx+20], edx mov ecx, [_@@s2] mov esi, [_@@s3] sub ecx, esi lea esi, [ecx+esi*2] mov eax, [ebp+12] imul ecx add edx, [ebx+12] mov [edi+384], edx mov eax, [ebp+56] imul ecx add edx, [ebx+56] mov [edi+1792], edx mov eax, [ebp+84] imul esi mov [ebx+12], edx mov eax, [ebp+128] imul esi mov [ebx+56], edx mov ecx, [_@@@tmp+40h] ; IRP j,4 ; [@@tmp+(j*4+0)*4] mov eax, [_@@@tmp+44h] ; [@@tmp+(j*4+1)*4] shl eax, 1 mov edx, 5A82799Ah ; icos36h_4 (8-4) imul edx sub ecx, edx lea esi, [ecx+edx*2] mov eax, [ebp+52] ; @@MULH [edi+(9+j)*SBLIMIT*4],[ebp+(9+j)*4], ; -,-,-,-,0,ecx,[ebx+(9+j)*4] ; out[(9+4)*SBLIMIT] = MULH(t0,win[9+4])+buf[9+4] imul ecx add edx, [ebx+52] mov [edi+1664], edx ; 13*SBLIMIT*4 = 1664 mov eax, [ebp+16] ; @MULH [edi+(8-j)*SBLIMIT*4],[ebp+(8-j)*4], ; -,-,-,-,0,ecx,[ebx+(8-j)*4] imul ecx add edx, [ebx+16] mov [edi+512], edx mov eax, [ebp+124] ; @@MULH [ebx+(9+j)*4],[ebp+(9+j+18)*4] ,-,-,-,-,0,esi,- imul esi mov [ebx+52], edx mov eax, [ebp+88] ; @@MULH [ebx+(8-j)*4],[ebp+(8-j+18)*4],-,-,-,-,0,esi,- imul esi mov [ebx+16], edx pop esi retn ; =============== S U B R O U T I N E ======================================= mp3_imdct12: mov eax, [esi] ; in: esi=src - out: [out2_...] mov [_@@tmp0], eax ; IRP nn,0,1,2,3,4,5 ; @@tmp&nn rd 1 ; ENDM ; mov eax,[esi+0*3*4] ; = src[0*3] mov edx, [esi+12] ; [esi+1*3*4] ; = src[1*3] add eax, edx ; = src[0*3]+src[1*3] mov [_@@tmp1], eax mov eax, [esi+24] add edx, eax mov [_@@tmp2], edx mov edx, [esi+36] ; [esi+3*3*4] add eax, edx mov [_@@tmp3], eax mov eax, [esi+48] add edx, eax mov [_@@tmp4], edx mov edx, [esi+60] ; [esi+5*3*4] add eax, edx ; = src[4*3]+src[5*3] add eax, [_@@tmp3] mov [_@@tmp5], eax ; tmp5 = src[4*3]+src[5*3]+tmp3 mov edx, [_@@tmp1] add [_@@tmp3], edx mov eax, [_@@tmp2] ; @@MULH @@tmp2,@@tmp2,-,-,-,-,1,C3,- ; tmp2 = MULH(2*tmp2,C3) shl eax, 1 mov edx, 6ED9EBA2h ; C3 imul edx mov [_@@tmp2], edx mov eax, [_@@tmp3] ; @@MULH @@tmp3,@@tmp3,-,-,-,-,2,C3,- ; tmp3 = MULH(4*tmp3,C3) shl eax, 2 mov edx, 6ED9EBA2h ; C3 imul edx mov [_@@tmp3], edx mov eax, [_@@tmp1] ; @@MULH edx,@@tmp1,sub,@@tmp5,-,-,1,icos36h_4,- sub eax, [_@@tmp5] ; t2 = MULH(2*(tmp1-tmp5),icos36h_4) shl eax, 1 mov edx, 5A82799Ah ; icos36h_4 imul edx mov eax, [_@@tmp0] ; @@SUM eax,@@tmp0,sub,@@tmp4,-,- sub eax, [_@@tmp4] ; t1 = tmp0 - tmp4 sub eax, edx ; @@CAST macro t1,t2,dst0,dst1,dst2,dst3 ; sub t1,t2 ;t1-t2 ; lea t2,[t1+t2*2] ;t1+t2 ; mov dword ptr [mp3_out2_a&dst0],t1 ;t1-t2 ; mov dword ptr [mp3_out2_b&dst0],t2 ;t1+t2 ; endm lea edx, [eax+edx*2] ; @@CAST eax,edx,1,4,7,10 ; out2[1,4,7,10]=t1-t2,t1-t2,t1+t2,t1+t2 mov [mp3_out2_a1], eax mov [mp3_out2_b1], edx mov eax, [_@@tmp4] mov edx, [_@@tmp1] sar eax, 1 shl edx, 1 add [_@@tmp0], eax ; tmp0 = tmp0 + tmp4/2 add [_@@tmp5], edx ; tmp5 = tmp5 + tmp1*2 mov eax, [_@@tmp5] ; @@MULH edx,@@tmp5,add,@@tmp3,-,-,0,icos36h_1,- add eax, [_@@tmp3] mov edx, 4241F707h ; icos36h_1 imul edx mov eax, [_@@tmp0] ; @@SUM eax,@@tmp0,add,@@tmp2,-,- add eax, [_@@tmp2] sub eax, edx ; @@CAST eax,edx,2,3,8,9 lea edx, [eax+edx*2] mov [mp3_out2_a2], eax mov [mp3_out2_b2], edx mov eax, [_@@tmp5] ; @@MULH edx,@@tmp5,sub,@@tmp3,-,-,1,icos36h_7,- sub eax, [_@@tmp3] shl eax, 1 mov edx, 7BA3751Eh ; icos36h_7 imul edx mov eax, [_@@tmp0] ; @@SUM eax,@@tmp0,sub,@@tmp2,-,- sub eax, [_@@tmp2] sub eax, edx ; @@CAST eax,edx,0,5,6,11 lea edx, [eax+edx*2] mov [mp3_out2_a0], eax mov [mp3_out2_b0], edx retn ; =============== S U B R O U T I N E ======================================= mp3_compute_imdct: ; 16/02/2025 .no_rdtsc_supported: push ebx mov ecx, [ebx+96] ; [ebx+$mp3gr_num_nonzero_hybrids_div9] imul eax, ecx, 9 lea edi, [ebx+eax*4+160] ; [ebx+$mp3gr_sb_hybrid+eax*4] jecxz .breakout .scan_zero_lop: sub edi, 36 ; index-9 mov eax, [edi] ; [edi+0*4] or eax, [edi+4] or eax, [edi+8] or eax, [edi+12] or eax, [edi+16] or eax, [edi+20] or eax, [edi+24] or eax, [edi+28] or eax, [edi+32] ; [edi+8*4] jnz short .breakout dec ecx jnz short .scan_zero_lop .breakout: inc ecx ; div9+1 shr ecx, 1 ; div18 mov [_@@sblimit], ecx cmp dword [ebx+44], 2 ; [ebx+$mp3gr_block_type] jnz short .this_long_end mov ecx, [ebx+48] ; [ebx+$mp3gr_switch_point] shl ecx, 1 ; 0,1 --> 0,2 .this_long_end: mov [_@@mdct_long_end], ecx mov eax, [ebx+48] ; [ebx+$mp3gr_switch_point] mov [_@@switch_point], eax mov eax, [ebx+44] ; [ebx+$mp3gr_block_type] imul eax, 144 ; 1*36*4 mov [_@@www], eax mov ecx, [mp3_curr_channel] mov eax, [mp3_curr_granule] imul ecx, 4608 ; 36*SBLIMIT*4 ; channel ; sb_samples[ch][gr*18] imul eax, 2304 ; 18*SBLIMIT*4 ; frame=granule*18 lea edi, [mp3_sb_samples+ecx+eax] lea esi, [ebx+160] ; [ebx+$mp3gr_sb_hybrid] mov eax, [mp3_curr_channel] imul eax, 2304 ; SBLIMIT*18*4 lea ebx, [mp3_mdct_buf+eax] ; 16/02/2025 .no_rdtsc_supported@: mov dword [_@@@JJJ], 0 cmp dword [_@@mdct_long_end], 0 jz short .imdct36_done .imdct36_lop: mov ebp, mp3_mdct_win ; for j=0 to mdct_long_end-1 cmp dword [_@@@JJJ], 2 sbb eax, eax and eax, [_@@switch_point] jnz short .this_window ; force window 0 add ebp, [_@@www] ; mdct_win .this_window: mov eax, [_@@@JJJ] shr eax, 1 ; cy=0,1 sbb eax, eax ; eax=0,FFFFFFFFh and eax, 576 ; 4*36*4 add ebp, eax call mp3_imdct36 add edi, 4 ; 1*4 ; dst add esi, 72 ; 18*4 ; sb_hybrid add ebx, 72 ; mdct_buf ; next inc dword [_@@@JJJ] mov eax, [_@@@JJJ] cmp eax, [_@@mdct_long_end] jb short .imdct36_lop .imdct36_done: ; 16/02/2025 .no_rdtsc_supported@@: ; 16/02/2025 .no_rdtsc_supported@@@: mov eax, [_@@@JJJ] cmp eax, [_@@sblimit] jnb .imdct12_done .imdct12_lop: mov ebp, (mp3_mdct_win+120h) ; for j=mdct_long_end to sblimit-1 mov eax, [_@@@JJJ] shr eax, 1 ; cy=0,1 sbb eax, eax ; eax=0,FFFFFFFFh and eax, 576 ; 4*36*4 add ebp, eax ; mdct_win mov eax, [ebx] ; IRP i,0,1,2,3,4,5 mov [edi], eax ; @@SUM [edi+i*SBLIMIT*4],[ebx+(i+0)*4],-,-,-,- mov eax, [ebx+4] mov [edi+128], eax mov eax, [ebx+8] mov [edi+256], eax mov eax, [ebx+12] mov [edi+384], eax mov eax, [ebx+16] mov [edi+512], eax mov eax, [ebx+20] mov [edi+640], eax ; ENDM add edi, 768 ; 6*SBLIMIT*4 call mp3_imdct12 mov eax, [mp3_out2_a0] ; IRP i,0,1,2,3,4,5 mov edx, [ebp+0] ; @@MULH [edi+i*SBLIMIT*4],[mp3_out2_a&i], ; -,-,-,-,0,[ebp+(i+0)*4],[ebx+(1*6+i)*4] imul edx add edx, [ebx+24] mov [edi], edx mov eax, [mp3_out2_b0] ; @@MULH [ebx+(2*6+i)*4],[mp3_out2_b&i], ; -,-,-,-,0,[ebp+(i+6)*4],- mov edx, [ebp+24] imul edx mov [ebx+48], edx mov eax, [mp3_out2_a1] ; i = 1 mov edx, [ebp+4] imul edx add edx, [ebx+28] mov [edi+128], edx mov eax, [mp3_out2_b1] mov edx, [ebp+28] imul edx mov [ebx+52], edx mov eax, [mp3_out2_a2] ; i = 2 mov edx, [ebp+8] imul edx add edx, [ebx+32] mov [edi+256], edx mov eax, [mp3_out2_b2] mov edx, [ebp+32] imul edx mov [ebx+56], edx mov eax, [mp3_out2_a2] ; i = 3 ; mp3_out2_a3 equ mp3_out2_a2 mov edx, [ebp+12] imul edx add edx, [ebx+36] mov [edi+384], edx mov eax, [mp3_out2_b2] ; mp3_out2_b3 equ mp3_out2_b2 mov edx, [ebp+36] imul edx mov [ebx+60], edx mov eax, [mp3_out2_a1] ; i = 4 ; mp3_out2_a4 equ mp3_out2_a1 mov edx, [ebp+16] imul edx add edx, [ebx+40] mov [edi+512], edx mov eax, [mp3_out2_b1] ; mp3_out2_b4 equ mp3_out2_b1 mov edx, [ebp+40] imul edx mov [ebx+64], edx mov eax, [mp3_out2_a0] ; i = 5 ; mp3_out2_a5 equ mp3_out2_a0 mov edx, [ebp+20] imul edx add edx, [ebx+44] mov [edi+640], edx mov eax, [mp3_out2_b0] ; mp3_out2_b5 equ mp3_out2_b0 mov edx, [ebp+44] imul edx mov [ebx+68], edx ; ENDM add edi, 768 ; 6*SBLIMIT*4 add esi, 4 ; sb_hybrid call mp3_imdct12 mov eax, [mp3_out2_a0] ; IRP i,0,1,2,3,4,5 mov edx, [ebp+0] ; @@MULH [edi+i*SBLIMIT*4],[mp3_out2_a&i], ; -,-,-,-,0,[ebp+(i+0)*4],[ebx+(2*6+i)*4] imul edx ; @@MULH [ebx+(0*6+i)*4],[mp3_out2_b&i], ; -,-,-,-,0,[ebp+(i+6)*4],- add edx, [ebx+48] mov [edi], edx mov eax, [mp3_out2_b0] mov edx, [ebp+18h] imul edx mov [ebx], edx mov eax, [mp3_out2_a1] ; i = 1 mov edx, [ebp+4] imul edx add edx, [ebx+52] mov [edi+128], edx mov eax, [mp3_out2_b1] mov edx, [ebp+28] imul edx mov [ebx+4], edx mov eax, [mp3_out2_a2] ; i = 2 mov edx, [ebp+8] imul edx add edx, [ebx+56] mov [edi+256], edx mov eax, [mp3_out2_b2] mov edx, [ebp+32] imul edx mov [ebx+8], edx mov eax, [mp3_out2_a2] ; i = 3 mov edx, [ebp+12] imul edx add edx, [ebx+60] mov [edi+384], edx mov eax, [mp3_out2_b2] mov edx, [ebp+36] imul edx mov [ebx+12], edx mov eax, [mp3_out2_a1] ; i = 4 mov edx, [ebp+16] imul edx add edx, [ebx+64] mov [edi+512], edx mov eax, [mp3_out2_b1] mov edx, [ebp+40] imul edx mov [ebx+16], edx mov eax, [mp3_out2_a0] ; i = 5 mov edx, [ebp+20] imul edx add edx, [ebx+68] mov [edi+640], edx mov eax, [mp3_out2_b0] mov edx, [ebp+44] imul edx mov [ebx+20], edx ; ENDM add esi, 4 call mp3_imdct12 mov eax, [mp3_out2_a0] ; IRP i,0,1,2,3,4,5 mov edx, [ebp+0] ; @@MULH [ebx+(0*6+i)*4],[mp3_out2_a&i], ; -,-,-,-,0,[ebp+(i+0)*4],[ebx+(0*6+i)*4] imul edx add edx, [ebx] mov [ebx], edx mov eax, [mp3_out2_b0] ; @@MULH [ebx+(1*6+i)*4],[mp3_out2_b&i], ; -,-,-,-,0,[ebp+(i+6)*4],- mov edx, [ebp+24] imul edx mov [ebx+24], edx mov dword [ebx+48], 0 ; [ebx+(2*6+i)*4] mov eax, [mp3_out2_a1] ; i = 1 mov edx, [ebp+4] imul edx add edx, [ebx+4] mov [ebx+4], edx mov eax, [mp3_out2_b1] mov edx, [ebp+28] imul edx mov [ebx+28], edx mov dword [ebx+52], 0 ; [ebx+(2*6+i)*4] mov eax, [mp3_out2_a2] ; i = 2 mov edx, [ebp+8] imul edx add edx, [ebx+8] mov [ebx+8], edx mov eax, [mp3_out2_b2] mov edx, [ebp+32] imul edx mov [ebx+32], edx mov dword [ebx+56], 0 mov eax, [mp3_out2_a2] ; i = 3 mov edx, [ebp+12] imul edx add edx, [ebx+0Ch] mov [ebx+12], edx mov eax, [mp3_out2_b2] mov edx, [ebp+36] imul edx mov [ebx+36], edx mov dword [ebx+60], 0 ; [ebx+(2*6+i)*4] mov eax, [mp3_out2_a1] ; i = 4 mov edx, [ebp+16] imul edx add edx, [ebx+16] mov [ebx+16], edx mov eax, [mp3_out2_b1] mov edx, [ebp+40] imul edx mov [ebx+40], edx mov dword [ebx+64], 0 mov eax, [mp3_out2_a0] ; i = 5 mov edx, [ebp+20] imul edx add edx, [ebx+20] mov [ebx+20], edx mov eax, [mp3_out2_b0] mov edx, [ebp+44] imul edx mov [ebx+44], edx mov dword [ebx+68], 0 ; [ebx+(2*6+i)*4] add edi, -1532 ; (1*4) - (2*6*SBLIMIT*4) ; dst add esi, 64 ; 18*4 - (2*4) ; sb_hybrid add ebx, 72 ; 18*4 ; mdct_buf inc dword [_@@@JJJ] ; next mov eax, [_@@@JJJ] cmp eax, [_@@sblimit] jb .imdct12_lop .imdct12_done: ; 16/02/2025 .no_rdtsc_supported@@@@: ; 16/02/2025 .no_rdtsc_supported@@@@@: cmp dword [_@@@JJJ], 32 ; SBLIMIT jnb .zero_outer_done .zero_outer_lop: mov eax, [ebx] ; zero bands ; IRP nn,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17 ; mov eax,dword ptr [ebx+nn*4] ; mov dword ptr [ebx+nn*4],0 ; mov dword ptr [edi+nn*SBLIMIT*4],eax ; [dst] ; ENDM mov dword [ebx], 0 ; nn = 0 mov [edi], eax mov eax, [ebx+4] ; nn = 1 mov dword [ebx+4], 0 mov [edi+128], eax mov eax, [ebx+8] mov dword [ebx+8], 0 mov [edi+256], eax mov eax, [ebx+12] mov dword [ebx+12], 0 mov [edi+384], eax mov eax, [ebx+16] ; nn = 4 mov dword [ebx+16], 0 mov [edi+512], eax mov eax, [ebx+20] mov dword [ebx+20], 0 mov [edi+640], eax ; [edi+5*SBLIMIT*4] mov eax, [ebx+24] mov dword [ebx+24], 0 mov [edi+768], eax mov eax, [ebx+28] ; nn = 7 mov dword [ebx+28], 0 mov [edi+896], eax mov eax, [ebx+32] mov dword [ebx+32], 0 mov [edi+1024], eax ; [edi+8*SBLIMIT*4] mov eax, [ebx+36] mov dword [ebx+36], 0 mov [edi+1152], eax mov eax, [ebx+40] mov dword [ebx+40], 0 mov [edi+1280], eax mov eax, [ebx+44] mov dword [ebx+44], 0 mov [edi+1408], eax mov eax, [ebx+48] mov dword [ebx+48], 0 mov [edi+1536], eax mov eax, [ebx+52] mov dword [ebx+52], 0 mov [edi+1664], eax mov eax, [ebx+56] mov dword [ebx+56], 0 mov [edi+1792], eax mov eax, [ebx+60] mov dword [ebx+60], 0 mov [edi+1920], eax mov eax, [ebx+64] mov dword [ebx+64], 0 ; [edi+16*SBLIMIT*4] mov [edi+2048], eax mov eax, [ebx+68] ; nn = 17 mov dword [ebx+68], 0 mov [edi+2176], eax ; ENDM add ebx, 72 ; 18*4 add edi, 4 inc dword [_@@@JJJ] cmp dword [_@@@JJJ], 32 jb .zero_outer_lop .zero_outer_done: ; 16/02/2025 .no_rdtsc_supported@@@@@@: pop ebx ; 16/02/2025 .no_rdtsc_supported@@@@@@@: retn ; =============== S U B R O U T I N E ======================================= mp3_dct32_shift_0: mov eax, [esi] ; mp3_dct32_macro macro rate_shift ; rate_shift = 0 mov edx, [esi+124] ; @@BF macro a,b,sign,cos,shift ; @@BF 0,31,+,COS0_0,1 ; @@need_a equ (rate_shift EQ 0) or (a LT 16) ; a = 0 ; @@need_b equ (rate_shift EQ 0) or (b LT 16) ; b = 31 ; IF @@need_a AND @@need_b ; rate_shift = 0 ; mov eax,dword ptr [esi+a*4] ; mov edx,dword ptr [esi+b*4] ; add dword ptr [esi+a*4],edx add [esi], edx sub eax, edx shl eax, 1 ; shl eax,shift ; (needed when COS.fraction is less than 32bit) mov edx, 4013C251h ; sign&&cos ; +COS0_0 = 4013C251h imul edx mov [esi+124], edx ; [esi+b*4] ; upper 32bit of multiply result mov eax, [esi+60] ; @@BF 15,16,+,COS0_15,5 ; [esi+a*4] mov edx, [esi+64] ; [esi+b*4] add [esi+60], edx ; [esi+a*4] sub eax, edx shl eax, 5 ; shl eax,shift mov edx, 518522FBh ; sign&&cos ; +COS0_15 = 518522FBh imul edx mov [esi+64], edx ; [esi+b*4] mov eax, [esi] ; @@BF 0,15,+,COS1_0,1 mov edx, [esi+60] add [esi], edx sub eax, edx shl eax, 1 mov edx, 404F4672h ; +COS1_0 imul edx mov [esi+60], edx mov eax, [esi+64] ; @@BF 16,31,-,COS1_0,1 mov edx, [esi+124] add [esi+64], edx sub eax, edx shl eax, 1 mov edx, 0BFB0B98Eh ; -COS1_0 imul edx mov [esi+124], edx mov eax, [esi+28] ; @@BF 7,24,+,COS0_7,1 mov edx, [esi+96] add [esi+28], edx sub eax, edx shl eax, 1 mov edx, 56601EA7h imul edx mov [esi+96], edx mov eax, [esi+32] ; @@BF 8,23,+,COS0_8,1 mov edx, [esi+92] add [esi+32], edx sub eax, edx shl eax, 1 mov edx, 5F4CF6ECh imul edx mov [esi+92], edx mov eax, [esi+28] ; @@BF 7,8,+,COS1_7,4 mov edx, [esi+32] add [esi+28], edx sub eax, edx shl eax, 4 mov edx, 519E4E04h imul edx mov [esi+32], edx mov eax, [esi+92] ; @@BF 23,24,-,COS1_7,4 mov edx, [esi+96] add [esi+92], edx sub eax, edx shl eax, 4 mov edx, 0AE61B1FCh imul edx mov [esi+96], edx mov eax, [esi] ; @@BF 0,7,+,COS2_0,1 mov edx, [esi+28] add [esi], edx sub eax, edx shl eax, 1 mov edx, 4140FB46h imul edx mov [esi+28], edx mov eax, [esi+32] ; @@BF 8,15,-,COS2_0,1 mov edx, [esi+60] add [esi+32], edx sub eax, edx shl eax, 1 mov edx, 0BEBF04BAh imul edx mov [esi+60], edx mov eax, [esi+64] ; @@BF 16,23,+,COS2_0,1 mov edx, [esi+92] add [esi+40h], edx sub eax, edx shl eax, 1 mov edx, 4140FB46h imul edx mov [esi+92], edx mov eax, [esi+96] ; @@BF 24,31,-,COS2_0,1 mov edx, [esi+124] add [esi+96], edx sub eax, edx shl eax, 1 mov edx, 0BEBF04BAh imul edx mov [esi+124], edx mov eax, [esi+12] ; @@BF 3,28,+,COS0_3,1 mov edx, [esi+112] add [esi+12], edx sub eax, edx shl eax, 1 mov edx, 43F93421h imul edx mov [esi+112], edx mov eax, [esi+48] ; @@BF 12,19,+,COS0_12,2 mov edx, [esi+76] add [esi+48], edx sub eax, edx shl eax, 2 mov edx, 5EFC8D97h imul edx mov [esi+76], edx mov eax, [esi+12] ; @@BF 3,12,+,COS1_3,1 mov edx, [esi+48] add [esi+12], edx sub eax, edx shl eax, 1 mov edx, 52CB0E63h imul edx mov [esi+48], edx mov eax, [esi+76] ; @@BF 19,28,-,COS1_3,1 mov edx, [esi+112] add [esi+76], edx sub eax, edx shl eax, 1 mov edx, 0AD34F19Dh imul edx mov [esi+112], edx mov eax, [esi+16] ; @@BF 4,27,+,COS0_4,1 mov edx, [esi+108] add [esi+16], edx sub eax, edx shl eax, 1 mov edx, 46CC1BC5h imul edx mov [esi+108], edx mov eax, [esi+44] ; @@BF 11,20,+,COS0_11,2 mov edx, [esi+80] add [esi+44], edx sub eax, edx shl eax, 2 mov edx, 4AD81A98h imul edx mov [esi+80], edx mov eax, [esi+16] ; @@BF 4,11,+,COS1_4,1 mov edx, [esi+44] add [esi+16], edx sub eax, edx shl eax, 1 mov edx, 64E2402Eh imul edx mov [esi+44], edx mov eax, [esi+80] ; @@BF 20,27,-,COS1_4,1 mov edx, [esi+108] add [esi+80], edx sub eax, edx shl eax, 1 mov edx, 9B1DBFD2h imul edx mov [esi+108], edx mov eax, [esi+12] ; @@BF 3,4,+,COS2_3,3 mov edx, [esi+16] add [esi+12], edx sub eax, edx shl eax, 3 mov edx, 52036742h imul edx mov [esi+16], edx mov eax, [esi+44] ; @@BF 11,12,-,COS2_3,3 mov edx, [esi+48] add [esi+44], edx sub eax, edx shl eax, 3 mov edx, 0ADFC98BEh ; -COS2_3 imul edx mov [esi+48], edx mov eax, [esi+76] ; @@BF 19,20,+,COS2_3,3 mov edx, [esi+80] add [esi+4Ch], edx sub eax, edx shl eax, 3 mov edx, 52036742h ; +COS2_3 imul edx mov [esi+80], edx mov eax, [esi+108] ; @@BF 27,28,-,COS2_3,3 mov edx, [esi+112] add [esi+108], edx sub eax, edx shl eax, 3 mov edx, 0ADFC98BEh imul edx mov [esi+112], edx mov eax, [esi] ; @@BF 0,3,+,COS3_0,1 mov edx, [esi+12] add [esi], edx sub eax, edx shl eax, 1 mov edx, 4545E9F0h imul edx mov [esi+12], edx mov eax, [esi+16] ; @@BF 4,7,-,COS3_0,1 mov edx, [esi+28] add [esi+16], edx sub eax, edx shl eax, 1 mov edx, 0BABA1610h imul edx mov [esi+28], edx mov eax, [esi+32] ; @@BF 8,11,+,COS3_0,1 mov edx, [esi+44] add [esi+32], edx sub eax, edx shl eax, 1 mov edx, 4545E9F0h imul edx mov [esi+44], edx mov eax, [esi+48] ; @@BF 12,15,-,COS3_0,1 mov edx, [esi+60] add [esi+48], edx sub eax, edx shl eax, 1 mov edx, 0BABA1610h imul edx mov [esi+60], edx mov eax, [esi+64] ; @@BF 16,19,+,COS3_0,1 mov edx, [esi+76] add [esi+64], edx sub eax, edx shl eax, 1 mov edx, 4545E9F0h imul edx mov [esi+76], edx mov eax, [esi+80] ; @@BF 20,23,-,COS3_0,1 mov edx, [esi+92] add [esi+80], edx sub eax, edx shl eax, 1 mov edx, 0BABA1610h ; -COS3_0 imul edx mov [esi+92], edx mov eax, [esi+96] ; @@BF 24,27,+,COS3_0,1 mov edx, [esi+108] add [esi+96], edx sub eax, edx shl eax, 1 mov edx, 4545E9F0h ; +COS3_0 imul edx mov [esi+108], edx mov eax, [esi+112] ; @@BF 28,31,-,COS3_0,1 mov edx, [esi+124] add [esi+112], edx sub eax, edx shl eax, 1 mov edx, 0BABA1610h imul edx mov [esi+124], edx mov eax, [esi+4] ; @@BF 1,30,+,COS0_1,1 mov edx, [esi+120] add [esi+4], edx sub eax, edx shl eax, 1 mov edx, 40B345BDh imul edx mov [esi+120], edx mov eax, [esi+56] ; @@BF 14,17,+,COS0_14,3 mov edx, [esi+68] add [esi+56], edx sub eax, edx shl eax, 3 mov edx, 6D0B20D0h imul edx mov [esi+68], edx mov eax, [esi+4] ; @@BF 1,14,+,COS1_1,1 mov edx, [esi+56] add [esi+4], edx sub eax, edx shl eax, 1 mov edx, 42E13C10h imul edx mov [esi+56], edx mov eax, [esi+68] ; @@BF 17,30,-,COS1_1,1 mov edx, [esi+120] add [esi+68], edx sub eax, edx shl eax, 1 mov edx, 0BD1EC3F0h imul edx mov [esi+120], edx mov eax, [esi+24] ; @@BF 6,25,+,COS0_6,1 mov edx, [esi+100] add [esi+24], edx sub eax, edx shl eax, 1 mov edx, 4FAE3712h imul edx mov [esi+100], edx mov eax, [esi+36] ; @@BF 9,22,+,COS0_9,1 mov edx, [esi+88] add [esi+36], edx sub eax, edx shl eax, 1 mov edx, 6B6FCF27h imul edx mov [esi+88], edx mov eax, [esi+24] ; @@BF 6, 9,+,COS1_6,2 mov edx, [esi+36] add [esi+24], edx sub eax, edx shl eax, 2 mov edx, 6E3C92C2h imul edx mov [esi+36], edx mov eax, [esi+88] ; @@BF 22,25,-,COS1_6,2 mov edx, [esi+100] add [esi+88], edx sub eax, edx shl eax, 2 mov edx, 91C36D3Eh imul edx mov [esi+100], edx mov eax, [esi+4] ; @@BF 1, 6,+,COS2_1,1 mov edx, [esi+24] add [esi+4], edx sub eax, edx shl eax, 1 mov edx, 4CF8DE88h imul edx mov [esi+24], edx mov eax, [esi+36] ; @@BF 9,14,-,COS2_1,1 mov edx, [esi+56] add [esi+36], edx sub eax, edx shl eax, 1 mov edx, 0B3072178h imul edx mov [esi+56], edx mov eax, [esi+68] ; @@BF 17,22,+,COS2_1,1 mov edx, [esi+88] add [esi+68], edx sub eax, edx shl eax, 1 mov edx, 4CF8DE88h imul edx mov [esi+88], edx mov eax, [esi+100] ; @@BF 25,30,-,COS2_1,1 mov edx, [esi+120] add [esi+100], edx sub eax, edx shl eax, 1 mov edx, 0B3072178h imul edx mov [esi+120], edx mov eax, [esi+8] ; @@BF 2,29,+,COS0_2,1 mov edx, [esi+116] add [esi+8], edx sub eax, edx shl eax, 1 mov edx, 41FA2D6Eh imul edx mov [esi+116], edx mov eax, [esi+52] ; @@BF 13,18,+,COS0_13,3 mov edx, [esi+72] add [esi+52], edx sub eax, edx shl eax, 3 mov edx, 41D95790h imul edx mov [esi+72], edx mov eax, [esi+8] ; @@BF 2,13,+,COS1_2,1 mov edx, [esi+52] add [esi+8], edx sub eax, edx shl eax, 1 mov edx, 48919F45h imul edx mov [esi+52], edx mov eax, [esi+72] ; @@BF 18,29,-,COS1_2,1 mov edx, [esi+116] add [esi+72], edx sub eax, edx shl eax, 1 mov edx, 0B76E60BBh imul edx mov [esi+116], edx mov eax, [esi+20] ; @@BF 5,26,+,COS0_5,1 mov edx, [esi+104] add [esi+20], edx sub eax, edx shl eax, 1 mov edx, 4A9D9CF1h imul edx mov [esi+104], edx mov eax, [esi+40] ; @@BF 10,21,+,COS0_10,1 mov edx, [esi+84] add [esi+40], edx sub eax, edx shl eax, 1 mov edx, 7C7D1DB4h imul edx mov [esi+84], edx mov eax, [esi+20] ; @@BF 5,10,+,COS1_5,2 mov edx, [esi+40] add [esi+20], edx sub eax, edx shl eax, 2 mov edx, 43E224AAh imul edx mov [esi+40], edx mov eax, [esi+84] ; @@BF 21,26,-,COS1_5,2 mov edx, [esi+104] add [esi+84], edx sub eax, edx shl eax, 2 mov edx, 0BC1DDB56h imul edx mov [esi+104], edx mov eax, [esi+8] ; @@BF 2,5,+,COS2_2,1 mov edx, [esi+20] add [esi+8], edx sub eax, edx shl eax, 1 mov edx, 73326BBFh ; +COS2_2 imul edx mov [esi+20], edx mov eax, [esi+40] ; @@BF 10,13,-,COS2_2,1 mov edx, [esi+52] add [esi+40], edx sub eax, edx shl eax, 1 mov edx, 8CCD9441h ; -COS2_2 imul edx mov [esi+52], edx mov eax, [esi+72] ; @@BF 18,21,+,COS2_2,1 mov edx, [esi+84] add [esi+72], edx sub eax, edx shl eax, 1 mov edx, 73326BBFh imul edx mov [esi+84], edx mov eax, [esi+104] ; @@BF 26,29,-,COS2_2,1 mov edx, [esi+116] add [esi+104], edx sub eax, edx shl eax, 1 mov edx, 8CCD9441h imul edx mov [esi+116], edx mov eax, [esi+4] ; @@BF 1,2,+,COS3_1,2 mov edx, [esi+8] add [esi+4], edx sub eax, edx shl eax, 2 mov edx, 539EBA46h imul edx mov [esi+8], edx mov eax, [esi+20] ; @@BF 5,6,-,COS3_1,2 mov edx, [esi+24] add [esi+20], edx sub eax, edx shl eax, 2 mov edx, 0AC6145BAh imul edx mov [esi+24], edx mov eax, [esi+36] ; IF rate_shift LT 2 ; @@BF 9,10,+,COS3_1,2 mov edx, [esi+40] add [esi+36], edx sub eax, edx shl eax, 2 mov edx, 539EBA46h imul edx mov [esi+40], edx mov eax, [esi+52] ; @@BF 13,14,-,COS3_1,2 mov edx, [esi+56] add [esi+52], edx sub eax, edx shl eax, 2 mov edx, 0AC6145BAh imul edx mov [esi+56], edx ; ENDIF mov eax, [esi+68] ; @@BF 17,18,+,COS3_1,2 mov edx, [esi+72] add [esi+68], edx sub eax, edx shl eax, 2 mov edx, 539EBA46h imul edx mov [esi+72], edx mov eax, [esi+84] ; @@BF 21,22,-,COS3_1,2 mov edx, [esi+88] add [esi+84], edx sub eax, edx shl eax, 2 mov edx, 0AC6145BAh imul edx mov [esi+88], edx mov eax, [esi+100] ; @@BF 25,26,+,COS3_1,2 mov edx, [esi+104] add [esi+100], edx sub eax, edx shl eax, 2 mov edx, 539EBA46h imul edx mov [esi+104], edx mov eax, [esi+116] ; @@BF 29,30,-,COS3_1,2 mov edx, [esi+120] add [esi+116], edx sub eax, edx shl eax, 2 mov edx, 0AC6145BAh imul edx mov [esi+120], edx mov eax, [esi] ; @@BF1 macro a, b, c, d ; @@BF a, b,+,COS4_0, 1 ; @@BF c, d,-,COS4_0, 1 ; @@ADD c, d ; endm ; @@BF1 0,1,2,3 mov edx, [esi+4] ; @@BF 0,1,+,COS4_0,1 add [esi], edx sub eax, edx shl eax, 1 mov edx, 5A82799Ah ; +COS4_0 imul edx mov [esi+4], edx mov eax, [esi+8] ; @@BF 2,3,-,COS4_0,1 mov edx, [esi+12] add [esi+8], edx sub eax, edx shl eax, 1 mov edx, 0A57D8666h ; -COS4_0 imul edx mov [esi+12], edx mov eax, [esi+12] ; @@ADD 2,3 add [esi+8], eax mov eax, [esi+16] ; @@BF2 macro a, b, c, d ; @@BF a, b,+,COS4_0, 1 ; @@BF c, d,-,COS4_0, 1 ; @@ADD c, d ; @@ADD a, c ; @@ADD c, b ; @@ADD b, d ; endm ; @@BF2 4,5,6,7 mov edx, [esi+20] ; @@BF 4,5,+,COS4_0,1 add [esi+16], edx sub eax, edx shl eax, 1 mov edx, 5A82799Ah imul edx mov [esi+20], edx mov eax, [esi+24] ; @@BF 6,7,-,COS4_0,1 mov edx, [esi+28] add [esi+24], edx sub eax, edx shl eax, 1 mov edx, 0A57D8666h imul edx mov [esi+28], edx mov eax, [esi+28] ; @@ADD macro dst,src ; IF (rate_shift EQ 0) or (dst LT 16) ; ;tab[a] += tab[b] ; mov eax,dword ptr [esi+src*4] ; add dword ptr [esi+dst*4],eax ; ENDIF ; endm ; @@ADD 6,7 add [esi+24], eax mov eax, [esi+24] ; @@ADD 4,6 add [esi+16], eax mov eax, [esi+20] ; @@ADD 6,5 add [esi+24], eax mov eax, [esi+28] ; @@ADD 5,7 add [esi+20], eax mov eax, [esi+32] ; IF rate_shift LT 2 ; @@BF1 8,9,10,11 mov edx, [esi+36] ; @@BF 8,9,+,COS4_0,1 add [esi+32], edx sub eax, edx shl eax, 1 mov edx, 5A82799Ah imul edx mov [esi+36], edx mov eax, [esi+40] ; @@BF 10,11,-,COS4_0,1 mov edx, [esi+44] add [esi+40], edx sub eax, edx shl eax, 1 mov edx, 0A57D8666h imul edx mov [esi+44], edx mov eax, [esi+44] ; @@ADD 10,11 add [esi+40], eax mov eax, [esi+48] ; @@BF2 12,13,14,15 mov edx, [esi+52] ; @@BF 12,13,+,COS4_0,1 add [esi+48], edx sub eax, edx shl eax, 1 mov edx, 5A82799Ah imul edx mov [esi+52], edx mov eax, [esi+56] ; @@BF 14,15,-,COS4_0,1 mov edx, [esi+60] add [esi+56], edx sub eax, edx shl eax, 1 mov edx, 0A57D8666h imul edx mov [esi+60], edx mov eax, [esi+60] ; @@ADD 14,15 add [esi+56], eax mov eax, [esi+56] ; @@ADD 12,14 add [esi+48], eax mov eax, [esi+52] ; @@ADD 14,13 add [esi+56], eax mov eax, [esi+60] ; @@ADD 13,15 add [esi+52], eax ; ENDIF mov eax, [esi+64] ; @@BF1 16,17,18,19 mov edx, [esi+68] add [esi+64], edx sub eax, edx shl eax, 1 mov edx, 5A82799Ah ; +COS4_0 imul edx mov [esi+68], edx mov eax, [esi+72] mov edx, [esi+76] add [esi+72], edx sub eax, edx shl eax, 1 mov edx, 0A57D8666h ; -COS4_0 imul edx mov [esi+76], edx mov eax, [esi+76] ; @@ADD 18,19 add [esi+72], eax mov eax, [esi+80] ; @@BF2 20,21,22,23 mov edx, [esi+84] add [esi+80], edx sub eax, edx shl eax, 1 mov edx, 5A82799Ah imul edx mov [esi+84], edx mov eax, [esi+88] mov edx, [esi+92] add [esi+88], edx sub eax, edx shl eax, 1 mov edx, 0A57D8666h imul edx mov [esi+92], edx mov eax, [esi+92] ; @@ADD 22,23 add [esi+88], eax mov eax, [esi+88] ; @@ADD 20,22 add [esi+80], eax mov eax, [esi+84] add [esi+88], eax mov eax, [esi+92] add [esi+84], eax mov eax, [esi+96] ; @@BF1 24,25,26,27 mov edx, [esi+100] add [esi+96], edx sub eax, edx shl eax, 1 mov edx, 5A82799Ah imul edx mov [esi+100], edx mov eax, [esi+104] mov edx, [esi+108] add [esi+104], edx sub eax, edx shl eax, 1 mov edx, 0A57D8666h imul edx mov [esi+108], edx mov eax, [esi+108] add [esi+104], eax mov eax, [esi+112] ; @@BF2 28,29,30,31 mov edx, [esi+116] add [esi+112], edx sub eax, edx shl eax, 1 mov edx, 5A82799Ah imul edx mov [esi+116], edx mov eax, [esi+120] mov edx, [esi+124] add [esi+120], edx sub eax, edx shl eax, 1 mov edx, 0A57D8666h imul edx mov [esi+124], edx mov eax, [esi+124] add [esi+120], eax mov eax, [esi+120] add [esi+112], eax mov eax, [esi+116] add [esi+120], eax mov eax, [esi+124] add [esi+116], eax mov eax, [esi] ; @@OUT macro dst,src1,src2 ; IF ((dst AND ((1 SHL rate_shift)-1)) EQ 0) ; mov eax,dword ptr [esi+src1*4] ; IFDIFI ,<-> ; add eax,dword ptr [esi+src2*4] ; ENDIF ; IF SYNTH32 ; mov dword ptr [edi+dst*4],eax ; IF (LONG_WINDOW EQ 0) ; mov dword ptr [edi+dst*4+512*4],eax ; ENDIF ; ELSE ; ...... ; ENDIF ; @@OUT 0,0,- mov [edi], eax ; mov dword ptr [edi+dst*4],eax mov eax, [esi+4] ; @@OUT 16,1, - ; mov eax,dword ptr [esi+src1*4] mov [edi+64], eax ; mov dword ptr [edi+dst*4],eax mov eax, [esi+8] ; @@OUT 8,2,- mov [edi+32], eax mov eax, [esi+12] ; @@OUT 24,3,- mov [edi+96], eax mov eax, [esi+16] ; @@OUT 4,4,- mov [edi+16], eax mov eax, [esi+20] ; @@OUT 20,5,- mov [edi+80], eax mov eax, [esi+24] ; @@OUT 12,6,- mov [edi+48], eax mov eax, [esi+28] ; @@OUT 28,7,- mov [edi+112], eax mov eax, [esi+32] ; @@OUT 2,8,12 add eax, [esi+48] ; add eax,dword ptr [esi+src2*4] mov [edi+8], eax mov eax, [esi+36] ; @@OUT 18,9,13 add eax, [esi+52] ; add eax,dword ptr [esi+src2*4] mov [edi+72], eax mov eax, [esi+40] ; @@OUT 10,10,14 add eax, [esi+56] mov [edi+40], eax mov eax, [esi+44] ; @@OUT 26,11,15 add eax, [esi+60] mov [edi+104], eax mov eax, [esi+48] ; @@OUT 6,12,10 add eax, [esi+40] mov [edi+24], eax mov eax, [esi+52] ; @@OUT 22,13,11 add eax, [esi+44] mov [edi+88], eax mov eax, [esi+56] ; @@OUT 14,14,9 add eax, [esi+36] mov [edi+56], eax mov eax, [esi+60] ; @@OUT 30,15,- mov [edi+120], eax mov eax, [esi+112] ; @@ADD 24,28 add [esi+96], eax mov eax, [esi+104] ; @@ADD 28,26 add [esi+112], eax mov eax, [esi+120] ; @@ADD 26,30 add [esi+104], eax mov eax, [esi+100] ; @@ADD 30,25 add [esi+120], eax mov eax, [esi+116] ; @@ADD 25,29 add [esi+100], eax mov eax, [esi+108] ; @@ADD 29,27 add [esi+116], eax mov eax, [esi+124] ; @@ADD 27,31 add [esi+108], eax mov eax, [esi+64] ; @@OUT 1,16,24 add eax, [esi+96] mov [edi+4], eax mov eax, [esi+68] ; @@OUT 17,17,25 add eax, [esi+100] mov [edi+68], eax mov eax, [esi+72] ; @@OUT 9,18,26 add eax, [esi+104] mov [edi+36], eax mov eax, [esi+76] ; @@OUT 25,19,27 add eax, [esi+108] mov [edi+100], eax mov eax, [esi+80] ; @@OUT 5,20,28 add eax, [esi+112] mov [edi+20], eax mov eax, [esi+84] ; @@OUT 21,21,29 add eax, [esi+116] mov [edi+84], eax mov eax, [esi+88] ; @@OUT 13,22,30 add eax, [esi+120] mov [edi+52], eax mov eax, [esi+92] ; @@OUT 29,23,31 add eax, [esi+124] mov [edi+116], eax mov eax, [esi+96] ; @@OUT 3,24,20 add eax, [esi+80] mov [edi+12], eax mov eax, [esi+100] ; @@OUT 19,25,21 add eax, [esi+84] mov [edi+76], eax mov eax, [esi+104] ; @@OUT 11,26,22 add eax, [esi+88] mov [edi+44], eax mov eax, [esi+108] ; @@OUT 27,27,23 add eax, [esi+92] mov [edi+108], eax mov eax, [esi+112] ; @@OUT 7,28,18 add eax, [esi+72] mov [edi+28], eax mov eax, [esi+116] ; @@OUT 23,29,19 add eax, [esi+76] mov [edi+92], eax mov eax, [esi+120] ; @@OUT 15,30,17 add eax, [esi+68] mov [edi+60], eax mov eax, [esi+124] ; @@OUT 31,31,- mov [edi+124], eax retn ; =============== S U B R O U T I N E ======================================= ; 20/02/2025 (mp3play7.s) ; 15/02/2025 (tmp3play.s) mp3_synth_filter_proc: ;;;; synth_16bit_shift_0_slow: ; 16/02/2025 .no_rdtsc_supported: mov esi, mp3_sb_samples mov edi, [mp3_samples_dst] mov dword [mp3_curr_channel], 0 .synth_channel_lop: push esi push edi mov [mp3_curr_syn_dst], edi mov dword [mp3_curr_frame], 0 .synth_frame_lop: push esi ; 16/02/2025 .no_rdtsc_supported@: mov edx, [mp3_curr_channel] mov eax, [mp3_synth_index+edx*4] sub dword [mp3_synth_index+edx*4], 32 shl edx, 10 ; channel*1024 and eax, 1E0h ; 1FFh-1Fh or eax, edx mov [mp3_curr_syn_index], eax mov edi, [mp3_curr_syn_index] lea edi, [mp3_synth_buf+edi*4] call mp3_dct32_shift_0 ; mp3_dct32_shift_&rate_shift ; 16/02/2025 .no_rdtsc_supported@@: ; 16/02/2025 .no_rdtsc_supported@@@: call mp3_synth_filter_this_16bit_shift_0_slow ; 16/02/2025 .no_rdtsc_supported@@@@: pop esi mov eax, [mp3_samples_dst_step] shl eax, 5 ; 15/02/2025 add [mp3_curr_syn_dst], eax add esi, 128 ; SBLIMIT*4 inc dword [mp3_curr_frame] mov eax, [mp3_curr_frame] cmp eax, [mp3_nb_frames] jb .synth_frame_lop pop edi pop esi ;add edi, [mp3_bytes_per_sample] ; 17/02/2025 ;add edi, 2 ; [mp3_bytes_per_sample] = 2 inc edi inc edi add esi, 4608 ; 36*SBLIMIT*4 inc dword [mp3_curr_channel] mov eax, [mp3_curr_channel] ; 16/02/2025 cmp eax, [mp3_num_channels] jb .synth_channel_lop ; 16/02/2025 .no_rdtsc_supported@@@@@: retn ; =============== S U B R O U T I N E ======================================= mp3_synth_filter_this_16bit_shift_0_slow: mov eax, [mp3_curr_syn_index] test eax, 1E0h ; 1FFh-1Fh jz .append_copy_to_window nop .append_copy_to_window_back: mov ebp, eax ; mov @@win1,eax and ebp, 1C0h ; and @@win1,1FFh-1Fh-20h and eax, 420h ; and eax,20h+(1 shl 10) ; bit5, and channel lea esi, [eax+10h] ; lea @@syn1,[eax+10h] lea edi, [eax+30h] ; lea @@syn2,[eax+30h] neg ebp and ebp, 1C0h ; and @@win1,1FFh-1Fh-20h mov ecx, [mp3_curr_syn_dst] .samples_lop: mov ebx, 100010h ; mov @@sum,(8000h SHL (@@out_shift))+(1 SHL (@@out_shift-1)) ; @@out_shift = 5 .SUM8_@: ; @@SUM8 macro sum,win,ww,syn mov edx, [mp3_synth_buf+esi*4] ; IRP nn,0,1,2,3,4,5,6,7 ; @@SUM8 @@sum,@@win1,0, @@syn1 mov eax, [mp3_synth_win+ebp*4] ; [mp3_synth_buf+syn*4+(nn*64*4)] imul edx ; [mp3_synth_win+win*4+(nn*64*4)+ww*4] add ebx, edx mov edx, [(mp3_synth_buf+100h)+esi*4] mov eax, [(mp3_synth_win+100h)+ebp*4] imul edx add ebx, edx ; add sum,edx mov edx, [(mp3_synth_buf+200h)+esi*4] mov eax, [(mp3_synth_win+200h)+ebp*4] ; [mp3_synth_win+win*4+(nn*64*4)+ww*4] imul edx ; 64bit = 32bit * 32bit add ebx, edx mov edx, [(mp3_synth_buf+300h)+esi*4] mov eax, [(mp3_synth_win+300h)+ebp*4] imul edx add ebx, edx mov edx, [(mp3_synth_buf+400h)+esi*4] mov eax, [(mp3_synth_win+400h)+ebp*4] imul edx add ebx, edx mov edx, [(mp3_synth_buf+500h)+esi*4] mov eax, [(mp3_synth_win+500h)+ebp*4] imul edx add ebx, edx mov edx, [(mp3_synth_buf+600h)+esi*4] mov eax, [(mp3_synth_win+600h)+ebp*4] imul edx add ebx, edx mov edx, [(mp3_synth_buf+700h)+esi*4] mov eax, [(mp3_synth_win+700h)+ebp*4] imul edx add ebx, edx .skippp: ; @@SUM8 macro sum,win,ww,syn mov edx, [mp3_synth_buf+edi*4] ; @@SUM8 @@sum,@@win1,32,@@syn2 ; [mp3_synth_buf+syn*4+(nn*64*4)] mov eax, [(mp3_synth_win+80h)+ebp*4] ; [mp3_synth_win+win*4+(nn*64*4)+ww*4] imul edx add ebx, edx mov edx, [(mp3_synth_buf+100h)+edi*4] mov eax, [(mp3_synth_win+180h)+ebp*4] imul edx add ebx, edx mov edx, [(mp3_synth_buf+200h)+edi*4] mov eax, [(mp3_synth_win+280h)+ebp*4] imul edx add ebx, edx mov edx, [(mp3_synth_buf+300h)+edi*4] mov eax, [(mp3_synth_win+380h)+ebp*4] imul edx add ebx, edx mov edx, [(mp3_synth_buf+400h)+edi*4] mov eax, [(mp3_synth_win+480h)+ebp*4] imul edx add ebx, edx mov edx, [(mp3_synth_buf+500h)+edi*4] mov eax, [(mp3_synth_win+580h)+ebp*4] imul edx add ebx, edx mov edx, [(mp3_synth_buf+600h)+edi*4] mov eax, [(mp3_synth_win+680h)+ebp*4] imul edx add ebx, edx mov edx, [(mp3_synth_buf+700h)+edi*4] mov eax, [(mp3_synth_win+780h)+ebp*4] imul edx add ebx, edx cmp ebx, 200000h ; cmp @@sum,10000h SHL (@@out_shift) jnb short .sat sar ebx, 5 ; sar @@sum,(@@out_shift) sub ebx, 8000h ; make 16bit signed .sat_back: mov [ecx], bx add ecx, [mp3_samples_dst_step] inc esi ; inc @@syn1 dec edi ; dec @@syn2 inc ebp ; inc @@win1 test ebp, 1Fh ; test @@win1,1Fh jnz .samples_lop retn .sat: sar ebx, 31 ; FFFFFFFFh,00000000h xor ebx, 7FFFh ; FFFF8000h,00007FFFh (signed 16bit) jmp short .sat_back .append_copy_to_window: lea esi, [mp3_synth_buf+eax*4] lea edi, [esi+2048] ; [esi+512*4] mov ecx, 18 ; (12h*4)/4 rep movsd jmp .append_copy_to_window_back ; =============== S U B R O U T I N E ======================================= mp3_any_init_synth_window: xor edx, edx ; index (0..100h) xor ecx, ecx ; delta.val mov [mp3_synth_win+edx*2], ecx .synth_lop: movsx ebx, word [mp3_synth_win_src+edx*2] add ecx, ebx mov eax, ecx ; 15/02/2025 shl eax, 14 ; (WFRAC_BITS_slow-WFRAC_BITS_default) inc edx ; index (1..100h) mov ebx, 200h sub ebx, edx ; 1FFh..100h mov [mp3_synth_win+ebx*4], eax test edx, 3Fh jz short .synth_keep_sign neg eax .synth_keep_sign: mov [mp3_synth_win+edx*4], eax cmp edx, 100h jb short .synth_lop xor edx, edx .synth_neg_lop: test edx, 30h ; skip 0..0Fh (only negate 10h..3Fh) jz short .synth_neg_next neg dword [mp3_synth_win+edx*4] .synth_neg_next: inc edx cmp edx, 200h jb short .synth_neg_lop xor edx, edx .synth_swap_lop: mov eax, edx and eax, 3Fh sub eax, 17 ; swap win [(17..31)] with win[(17..31)+32) cmp eax, 14 ; 31-17 ja short .synth_swap_next mov eax, [mp3_synth_win+edx*4] xchg eax, [(mp3_synth_win+80h)+edx*4] mov [mp3_synth_win+edx*4], eax .synth_swap_next: inc edx cmp edx, 200h jb short .synth_swap_lop xor edx, edx .synth_zero_lop: mov dword [(mp3_synth_win+40h)+edx*4], 0 add edx, 40h cmp edx, 200h jb short .synth_zero_lop mov esi, mp3_synth_win lea edi, [esi+2048] ; [esi+512*4] mov ecx, 512 ; append another copy rep movsd retn ; =============== S U B R O U T I N E ======================================= mp3_any_init_band_indices: mov esi, mp3_band_size_long mov edi, mp3_band_index_long mov ebx, 9 .band_index_lop_i: xor eax, eax mov ecx, 22 .band_index_lop_j: stosw movzx edx, byte [esi] add eax, edx inc esi loop .band_index_lop_j add ecx, 10 rep stosw dec ebx jnz short .band_index_lop_i retn ; =============== S U B R O U T I N E ======================================= mp3_any_init_lsf_sf_expand: mov esi, mp3_lsf_sf_expand_init_table mov edi, mp3_lsf_sf_expand_exploded_table xor edx, edx ; curr.index xor ebx, ebx ; curr.base .lop: cmp dx, [esi+6] ; nextbase jb short .inrange mov bx, [esi+6] add esi, 8 ; next entry .inrange: mov eax, edx sub eax, ebx mov cl, [esi] shr eax, cl ; div2 div byte [esi+3] ; mod3 ; [2]=slen[3] mov [edi+3], ah mov ah, 0 ; eax=div.result div byte [esi+2] ; mod2 ; [2]=slen[2] mov [edi+2], ah ; remainder mov ah, 0 div byte [esi+1] ; mod1 ; [1]=slen[1] mov [edi], ax ; [0]=slen[0] mov ax, [esi+4] ; [4]=tindex2 mov [edi+4], ax ; [5]=force_preflag add edi, 8 inc edx ; curr.index ; next cmp edx, 1024 ; 512+512 jb short .lop retn ; =============== S U B R O U T I N E ======================================= mp3_any_init_huff_tables: mov ebp, huff_tree_list_data mov esi, huff_tree_list_numbits mov edx, 1 ; idx (table 01h..11h) .huffman_table_lop: xor eax, eax mov edi, mp3_huff_tmp_bits mov ecx, 40h ; 100h/4 ; 100h x 8bit rep stosd mov edi, mp3_huff_tmp_codes mov ecx, 80h ; 100h/2 ; 100h x 16bit rep stosd xor ebx, ebx .huff_entry_lop: movzx edi, byte [ebp+0] inc ebp ; dst=data lodsb ; numbits mov [mp3_huff_tmp_bits+edi], al mov cl, 32 sub cl, al ; 32-numbits shr ebx, cl mov word [mp3_huff_tmp_codes+edi*2], bx inc ebx ; next.code shl ebx, cl ; shift back to MSBs jnz short .huff_entry_lop pusha mov eax, 100h ; nb_codes mov ebx, mp3_huff_tmp_bits ; bits mov esi, mp3_huff_tmp_codes ; codes call mp3_build_huff_table_root ; make table popa inc edx ; idx cmp edx, 12h jnz short .huffman_table_lop ; next table retn ; =============== S U B R O U T I N E ======================================= mp3_integer_init_is_stereo_lsf: xor edi, edi .lsf_lop: mov esi, edi and esi, 3Fh inc esi shr esi, 1 test edi, 40h jz short .lsf_no_shift shl esi, 1 .lsf_no_shift: mov edx, 40000000h ; aka mul 1.000 add esi, 4 test edi, 80h ; 2*40h jz short .no_ms_stereo mov edx, 5A82799Ah ; 2D413CCDh*2 ; aka mul 1.414 sub esi, 2 .no_ms_stereo: mov ecx, esi shr ecx, 2 ; msbs and esi, 3 ; lsbs mov eax, [mp3_is_table_lsf_src+esi*4] shr eax, cl test edi, 1 jnz short .lsf_no_swap xchg eax, edx .lsf_no_swap: mov [mp3_is_table_lsf+edi*8], eax mov [(mp3_is_table_lsf+4)+edi*8], edx inc edi cmp edi, 100h jb short .lsf_lop retn ; =============== S U B R O U T I N E ======================================= mp3_integer_init_mdct_windows: mov edi, mp3_mdct_win mov esi, mp3_mdct_win_src mov ecx, 144 ; 36*4 rep movsd mov esi, mp3_mdct_win mov edi, (mp3_mdct_win+240h) mov ecx, 72 ; 4*36/2 ; that is, 4*36 entry pairs .mdct_lop_dupe: movsd ; copy normal, [4..7][even] = +[0..3][even lodsd neg eax ; copy negated, [4..7][odd] = -[0..3][odd] stosd loop .mdct_lop_dupe retn ; =============== S U B R O U T I N E ======================================= mp3_integer_init_table_4_3: ; 15/02/2025 mov al, 72 ; 100-6-VFRAC_BITS_slow .this_vfrac: mov [mp3_curr_vfrac_bits], al xor edi, edi .table_4_3_lop: push edi ; for i=1 to TABLE_4_3_SIZE-1 mov eax, edi shr eax, 2 mul eax mul eax xor ebx, ebx call cbrt96 add cl, [mp3_curr_vfrac_bits] pop edi .inner_lop: mov eax, edi and eax, 3 mov eax, [mp3_pow2_quarters+eax*4] mul ebx mov ch, cl or edx, edx jns short .this shr edx, 1 dec ch .this: mov [mp3_table_4_3_value+edi*4], edx mov [mp3_table_4_3_exp+edi], ch inc edi test edi, 3 jnz short .inner_lop cmp edi, 803Ch jb short .table_4_3_lop retn ; =============== S U B R O U T I N E ======================================= mp3_integer_init_exponent: mov edi, mp3_expval_table xor edx, edx .exponent_lop: mov eax, edx ; val=i mov ebx, edx mov ecx, edx shr ebx, 4 shr ecx, 6 ; 4+2 and eax, 0Fh ; val=i AND 0Fh and ebx, 3 lea ebx, [ebx+eax*4] ; (0..0Fh)*4+(0..3) mov eax, [mp3_table_4_3_value+ebx*4] or eax, eax jz short .this sub cl, [mp3_table_4_3_exp+ebx] ja short .left_shift neg cl shr eax, cl cmp cl, 1Fh jbe short .this xor eax, eax jmp short .this .left_shift: mov eax, 7FFFFFFFh .this: stosd inc edx cmp edx, 2000h jb short .exponent_lop mov esi, mp3_expval_table mov edi, mp3_exp_table mov ecx, 200h .exponent_dupe_lop: mov eax, [esi+4] stosd add esi, 40h loop .exponent_dupe_lop retn ; =============== S U B R O U T I N E ======================================= cbrt96: sub esp, 18h ; cube root, val^(1/3), from https://gist.github.com/anonymous/729557 ; in: ebx:edx:eax = unsigned 96bit input (integer) ; out: ebx = unsigned 32bit result (with fractional bits) ; out: cl = number of fractional bits mov [esp], eax mov [esp+4], edx mov [esp+8], ebx mov dword [esp+0Ch], 0 mov dword [esp+10h], 0 mov dword [esp+14h], 0 xor ebx, ebx ; result.value mov cl, 0 ; result.fraction or eax, edx ; skip if zero jz short .pre_shift_done .pre_shift_lop: test dword [esp+8], 0E0000000h jnz short .pre_shift_done shl dword [esp], 1 rcl dword [esp+4], 1 rcl dword [esp+8], 1 shl dword [esp], 1 rcl dword [esp+4], 1 rcl dword [esp+8], 1 shl dword [esp], 1 rcl dword [esp+4], 1 rcl dword [esp+8], 1 inc cl jmp short .pre_shift_lop .pre_shift_done: mov ch, 20h ; loopcount .lop: add ebx, ebx ; result*2 mov eax, ebx ; y inc ebx ; result+1 mul ebx ; y*(y+1) mov esi, eax mov edi, edx xor ebp, ebp stc adc esi, esi ; y*(y+1)*2+1 adc edi, edi adc ebp, ebp add esi, eax adc edi, edx ; y*(y+1)*3+1 adc ebp, 0 shl dword [esp], 1 rcl dword [esp+4], 1 rcl dword [esp+8], 1 ; shl 3 rcl dword [esp+0Ch], 1 rcl dword [esp+10h], 1 rcl dword [esp+14h], 1 shl dword [esp], 1 rcl dword [esp+4], 1 rcl dword [esp+8], 1 rcl dword [esp+0Ch], 1 rcl dword [esp+10h], 1 rcl dword [esp+14h], 1 shl dword [esp], 1 rcl dword [esp+4], 1 rcl dword [esp+8], 1 rcl dword [esp+0Ch], 1 rcl dword [esp+10h], 1 rcl dword [esp+14h], 1 sub [esp+0Ch], esi sbb [esp+10h], edi ; sub/compare sbb [esp+14h], ebp jnb short .next dec ebx add [esp+0Ch], esi adc [esp+10h], edi ; undo adc [esp+14h], ebp .next: dec ch jnz short .lop add esp, 18h mp3_init_log_constants: retn ;mp3_init_log_constants: ; retn ; =============== S U B R O U T I N E ======================================= mp3_build_huff_table_root: mov [_@@nb_codes], eax ; "init_vlc" mov dword [_@@prefix_numbits], 0 mov dword [_@@prefix_pattern], 0 pusha mov ecx, eax xor eax, eax .prescan_lop: cmp al, [ebx] ja short .prescan_next mov al, [ebx] .prescan_next: inc ebx loop .prescan_lop cmp al, 9 ; CHILD_BITS jb short .prescan_this_limit mov al, 9 .prescan_this_limit: mov [_@@table_nb_bits], eax popa mp3_build_huff_table_recursive_child: mov ecx, [_@@table_nb_bits] mov eax, 1 shl eax, cl mov [_@@curr_table_size], eax dec eax mov [_@@curr_table_mask], eax pusha mov ebx, [mp3_huff_num_entries] mov [_@@curr_table_index], ebx add ebx, [_@@curr_table_size] mov [mp3_huff_num_entries], ebx cmp dword [mp3_huff_num_entries], 11776 ; HUFF_TREE_SIZE/4 ja fatalunexpected popa mov edi, huff_tree_buf mov eax, [_@@curr_table_index] mov [edi+edx*4], ax mov eax, [_@@table_nb_bits] neg eax mov [edi+edx*4+2], ax mov edi, huff_tree_buf mov edx, [_@@curr_table_index] mov ecx, [_@@curr_table_size] .clear_table_lop: mov word [edi+edx*4], 0FFFFh mov word [edi+edx*4+2], 0 inc edx loop .clear_table_lop push ebx push esi xor edx, edx .make_table_lop: movzx ecx, byte [ebx] movzx eax, word [esi] sub ecx, [_@@prefix_numbits] jle short .make_table_lop_next shr eax, cl cmp eax, [_@@prefix_pattern] jnz short .make_table_lop_next mov edi, huff_tree_buf movzx eax, word [esi] sub ecx, [_@@table_nb_bits] ja short .create_child_table neg ecx shl eax, cl and eax, [_@@curr_table_mask] add eax, [_@@curr_table_index] lea edi, [edi+eax*4] mov eax, 1 shl eax, cl mov ecx, eax movzx eax, byte [ebx] sub eax, [_@@prefix_numbits] .make_rept_lop: cmp word [edi+2], 0 jnz fatalunexpected mov [edi], dx mov [edi+2], ax add edi, 4 loop .make_rept_lop jmp short .make_table_lop_next .create_child_table: shr eax, cl and eax, [_@@curr_table_mask] add eax, [_@@curr_table_index] neg ecx cmp [edi+eax*4+2], cx jl short .make_table_lop_next mov [edi+eax*4+2], cx .make_table_lop_next: add esi, 2 inc ebx inc edx cmp edx, [_@@nb_codes] jb .make_table_lop pop esi pop ebx mov ecx, [_@@curr_table_size] mov edx, [_@@curr_table_index] .make_child_tables_lop: mov edi, huff_tree_buf movsx eax, word [edi+edx*4+2] cmp eax, 0 jns short .make_child_tables_lop_next neg eax cmp eax, [_@@table_nb_bits] jbe short .make_child_tables_this mov eax, [_@@table_nb_bits] .make_child_tables_this: push ecx push edx push dword [_@@curr_table_index] push dword [_@@table_nb_bits] push dword [_@@prefix_numbits] push dword [_@@prefix_pattern] mov ecx, [_@@table_nb_bits] mov [_@@table_nb_bits], eax add [_@@prefix_numbits], ecx shl dword [_@@prefix_pattern], cl mov eax, edx sub eax, [_@@curr_table_index] or [_@@prefix_pattern], eax call mp3_build_huff_table_recursive_child pop dword [_@@prefix_pattern] pop dword [_@@prefix_numbits] pop dword [_@@table_nb_bits] pop dword [_@@curr_table_index] pop edx pop ecx .make_child_tables_lop_next: inc edx loop .make_child_tables_lop retn ; =============== S U B R O U T I N E ======================================= mp3_exclude_id3_and_tag: mov esi, [stream_pos] mov ecx, [bytes_left] cmp ecx, 10 jb short .no_id3 mov eax, [esi] and eax, 0FFFFFFh ;cmp eax, '3DI' ; "ID3" ; 20/10/2024 cmp eax, 'ID3' ; FASM & NASM syntax jnz short .no_id3 mov eax, [esi+6] test eax, 80808080h jnz short .no_id3 .xlat_4x7bit_to_28bit: xchg al, ah shl al, 1 shl ax, 1 shr ax, 2 ror eax, 16 xchg al, ah shl al, 1 shl ax, 1 shr eax, 2 add eax, 10 cmp ecx, eax jb short .no_id3 add esi, eax sub ecx, eax mov [mp3_id3_size], eax .no_id3: mov edx, 80h cmp ecx, edx jb short .no_tag_or_ext mov eax, [esi+ecx-80h] and eax, 0FFFFFFh ;cmp eax, 'GAT' ; "TAG" ; 20/10/2024 cmp eax, 'TAG' ; FASM & NASM syntax jz .got_tag_size_edx ;cmp eax, 'TXE' cmp eax, 'EXT' jz .got_tag_size_edx .no_tag_or_ext: mov edx, 0E3h cmp ecx, edx jb short .no_tagplus ;cmp dword [esi+ecx-0E3h], '+GAT' ; "TAG+" ; 20/10/2024 cmp dword [esi+ecx-0E3h], 'TAG+' jz .got_tag_size_edx .no_tagplus: mov edx, 20 ; 10+10 cmp ecx, edx jb short .no_3di ; "3DI",04h cmp dword [esi+ecx-10], 4494433h ; 'ID3'+04000000h jnz short .no_3di test byte [esi+ecx-5], 10h ; bit 4 jz short .no_3di mov eax, [esi+ecx-4] test eax, 80808080h jnz short .no_3di .@xlat_4x7bit_to_28bit: xchg al, ah shl al, 1 shl ax, 1 shr ax, 2 ror eax, 10h xchg al, ah shl al, 1 shl ax, 1 shr eax, 2 lea edx, [eax+20] ; [eax+10+10] ; hdr+footer siz jmp .got_tag_size_edx .no_3di: ;cmp dword [esi+ecx-32], 'TEPA' ; [esi+ecx-32+0] ; 20/10/2024 cmp dword [esi+ecx-32], 'APET' ; check "APETAGEX" jnz short .no_ape ;cmp dword [esi+ecx-28], 'XEGA' ; [esi+ecx-32+4] cmp dword [esi+ecx-28], 'AGEX' jnz short .no_ape mov edx, [esi+ecx-20] ; [esi+ecx-32+12] ; get size test dword [esi+ecx-12], 80000000h ; [esi+ecx-32+20],1 shl 31 jz short .no_ape_header add edx, 32 ; hdr.size .no_ape_header: jmp .got_tag_size_edx .no_ape: mov edx, 20 ; 11+9 cmp ecx, edx ; "LYRICSEND" or "LYRICS200" ; (11+N+9 bytes each) jb short .no_lyrics ;cmp dword [esi+ecx-9], 'IRYL' ; 20/10/2024 cmp dword [esi+ecx-9], 'LYRI' ; FASM & NASM syntax jnz short .no_lyrics cmp byte [esi+ecx-5], 'C' jnz short .no_lyrics ;cmp dword [esi+ecx-4], 'DNES' cmp dword [esi+ecx-4], 'SEND' jz short .lyrics3_v1 ;cmp dword [esi+ecx-4], '002S' cmp dword [esi+ecx-4], 'S200' jz short .lyrics3_v2 jnz short .no_lyrics .lyrics3_v1: mov edx, 20 ; 11+9 .lyrics3_v1_size_lop: lea eax, [esi+ecx] sub eax, edx ;cmp dword [eax], 'IRYL' ; "LYRICSBEGIN" ; 20/10/2024 cmp dword [eax], 'LYRI' jnz short .lyrics3_v1_size_next ;cmp dword [eax+4], 'EBSC' cmp dword [eax+4], 'CSBE' jnz short .lyrics3_v1_size_next ;cmp dword [eax+7], 'NIGE' cmp dword [eax+7], 'EGIN' jz short .got_tag_size_edx .lyrics3_v1_size_next: inc edx cmp edx, 5120 ja short .no_lyrics cmp edx, ecx jbe short .lyrics3_v1_size_lop ;jmp short .no_lyrics .no_lyrics: ;jmp short .footer_tag_all_done ; 22/10/2024 .footer_tag_all_done: mov [stream_pos], esi mov [bytes_left], ecx retn .lyrics3_v2: push ecx push esi lea esi, [esi+ecx-15] ; [esi+ecx-6-9] mov ecx, 6 xor edx, edx .lyrics3_v2_size_lop: imul edx, 10 movzx eax, byte [esi] inc esi sub al, 30h add edx, eax loop .lyrics3_v2_size_lop pop esi pop ecx add edx, 0Fh ; 6+9 ;jmp short .got_tag_size_edx .got_tag_size_edx: ;;; ; 22/10/2024 sub ecx, edx jnb short .cont ;;; ; 16/02/2025 sys _msg, tag_size_err, 255, 0Ch ;;; ;sub ecx, edx ;jb fatalunexpected jmp fatalunexpected .cont: ;;; add [mp3_tag_size], edx jmp .no_id3 ; --------------------------------------------------------------------------- ; 16/02/2025 tag_size_err: db 0Dh, 0Ah db "Tag Size Error!?" db 0Dh, 0Ah, 0 ; =============== S U B R O U T I N E ======================================= mp3_detect_free_format_block_size: cmp dword [mp3_free_format_frame_size], 0 jnz .already_detected xor edx, edx .find_distance_lop: cmp edx, [mp3_src_remain] jz short .match_eof lea eax, [edx+4] cmp eax, [mp3_src_remain] ja short .find_distance_failed mov eax, [esi+edx] call bswap_eax xor eax, [mp3_hdr_32bit_header] and eax, 0FFFE0C00h jz short .match_eof .find_distance_next: inc edx cmp edx, 1000h jbe short .find_distance_lop .find_distance_failed: stc retn .match_eof: mov eax, edx sub eax, [mp3_hdr_flag_padding] cmp eax, 4 jb short .find_distance_next mov [mp3_free_format_frame_size], eax xor ebx, ebx .confirm_distance_lop: mov eax, [esi+ebx] call bswap_eax shr eax, 10 ; 9+1 adc ebx, [mp3_free_format_frame_size] cmp ebx, [mp3_src_remain] jz short .confirm_distance_match_eof lea eax, [ebx+4] cmp eax, [mp3_src_remain] ja short .find_distance_next mov eax, [esi+ebx] call bswap_eax xor eax, [mp3_hdr_32bit_header] and eax, 0FFFE0C00h jnz short .find_distance_next jmp short .confirm_distance_lop .confirm_distance_match_eof: mov eax, [mp3_free_format_frame_size] shl eax, 3 mul dword [mp3_sample_rate] mov ecx, [mp3_nb_granules] imul ecx, 240h div ecx mov [mp3_bit_rate], eax .already_detected: clc retn ; =============== S U B R O U T I N E ======================================= mp3_check_xing_info: mov dword [mp3_xing_id], 0 mov dword [mp3_xing_frames], 0 mov dword [mp3_xing_filesize], 0 mov esi, [mp3_src_data_location] lodsd ;cmp eax, 'gniX' ; 20/10/2024 cmp eax, 'Xing' ; FASM & NASM syntax jz short .xing retn .xing: mov [mp3_xing_id], eax lodsd call bswap_eax mov [mp3_xing_flags], eax mov edx, eax test edx, 1 jz short .no_xing_frames lodsd call bswap_eax mov [mp3_xing_frames], eax .no_xing_frames: test edx, 2 ; 1 shl 1 jz short .no_xing_filesize lodsd call bswap_eax mov [mp3_xing_filesize], eax .no_xing_filesize: test edx, 4 ; 1 shl 2 jz short .no_xing_toc mov ecx, 100 mov edi, mp3_xing_toc rep movsb .no_xing_toc: test edx, 8 ; 1 shl 3 jz short .no_xing_vbr_scale lodsd call bswap_eax mov [mp3_xing_vbr_scale], eax .no_xing_vbr_scale: mov dword [mp3_bit_rate], 0 mov eax, [mp3_sample_rate] shl eax, 3 mul dword [mp3_xing_filesize] mov ecx, [mp3_xing_frames] imul ecx, [mp3_nb_granules] imul ecx, 576 ; 18*32 cmp edx, ecx jnb short .overflow div ecx mov [mp3_bit_rate], eax .overflow: retn ; =============== S U B R O U T I N E ======================================= ; 16/02/2025 ; 20/10/2024 mp3_decode_frame: mov [mp3_src_remain], ecx mov [mp3_samples_dst], edi ; 16/02/2025 .no_rdtsc_supported@@@@: call mp3_search_get_header jc .error mov eax, [mp3_src_frame_size] cmp eax, 0 jle .error cmp eax, [mp3_src_remain] ja .error mov [mp3_bitstream_start], esi ; 11/01/2025 ;mov eax, 32 .mp3mac_bitstream_set_position: ; 22/10/2024 ;mov esi, [mp3_bitstream_start] ;mov cl, al ;shr eax, 3 ;and cl, 7 ;mov eax, 4 ;add esi, eax add esi, 4 call mp3_recollect_bits .mp3mac_get_n_bits: ;mov eax, ebp ; mp3_col32 ;shl ebp, cl ;rol eax, cl ;xor eax, ebp ; mp3_col32 ;sub ch, cl ; sub mp3_colNN,num ;jns short .cont ;mov cl, ch ; mov cl,mp3_colNN ;add ch, 16 ;rol ebp, cl ; rol mp3_col32,cl ;mov bp, [esi] ; mov mp3_col16,word ptr [esi] ;add esi, 2 ;ror bp, 8 ; endianess ;ror ebp, cl ; ror mp3_col32,cl .cont: call mp3_bitstream_read_header_extra call mp3_bitstream_read_granules jc .error call mp3_uncollect_bits mov [mp3_src_data_location], esi cmp dword [mp3_samples_dst], 0 jz .skip_decoding call mp3_bitstream_append_to_main_data_pool cmp dword [mp3_samples_output_size], 0 jz .skip_decoding mov dword [mp3_curr_granule], 0 mov ebx, mp3_granules .body_granule_lop: mov [_@@granule_addr], ebx mov dword [mp3_curr_channel], 0 .body_channel_lop: mov eax, [ebx+4] ; [ebx+$mp3gr_part2_3_start] mov esi, [mp3_bitstream_start] mov cl, al ; mp3mac_bitstream_set_position shr eax, 3 and cl, 7 add esi, eax call mp3_recollect_bits mov eax, ebp ; mp3mac_get_n_bits cl shl ebp, cl rol eax, cl xor eax, ebp sub ch, cl jns short .cont@ mov cl, ch ; mp3mac_collect_more add ch, 16 rol ebp, cl mov bp, [esi] add esi, 2 ror bp, 8 ror ebp, cl .cont@: call mp3_bitstream_read_scalefacs call mp3_get_exponents_from_scale_factors call mp3_huffman_decode ; reads up to $mp3gr_part2_3_end jc .error .body_channel_next: add ebx, 4928 ; $mp3gr_entrysiz*2 inc dword [mp3_curr_channel] mov eax, [mp3_curr_channel] ; 16/02/2025 cmp eax, [mp3_num_channels] jb short .body_channel_lop mov ebx, [_@@granule_addr] .mp3mac_push_bitstream: push ecx push ebp push esi call mp3_compute_stereo mov dword [mp3_curr_channel], 0 .cast_channel_lop: call mp3_reorder_block call mp3_compute_antialias call mp3_compute_imdct add ebx, 4928 ; $mp3gr_entrysiz*2 inc dword [mp3_curr_channel] mov eax, [mp3_curr_channel] ; 06/02/2025 cmp eax, [mp3_num_channels] jc short .cast_channel_lop .mp3mac_pop_bitstream: pop esi pop ebp pop ecx mov ebx, [_@@granule_addr] add ebx, 2464 ; $mp3gr_entrysiz inc dword [mp3_curr_granule] mov eax, [mp3_curr_granule] cmp eax, [mp3_nb_granules] jc .body_granule_lop call mp3_uncollect_bits cmp esi, [main_data_pool_wr_ptr] ja short .error ;call dword [mp3_synth_filter_proc] ; synth maths ; 16/02/2025 call mp3_synth_filter_proc .skip_decoding: mov eax, [mp3_extra_bytes] add [mp3_src_frame_size], eax mov eax, [mp3_samples_output_size] ; 15/02/2025 inc dword [mp3_num_frames_decoded] .timelog_end: ; 16/02/2025 .no_rdtsc_supported: ;clc retn .error: ; 16/02/2025 ; 20/10/2024 .no_rdtsc_supported@: mov eax, [mp3_extra_bytes] add [mp3_src_frame_size], eax stc retn ; =============== S U B R O U T I N E ======================================= ; 24/02/2025 ; 23/02/2025 ; 16/02/2025 ; 15/02/2025 mp3_init: mov edi, main_data_pool_start ; = mp3_context_start ;mov ecx, 74916 ; (mp3_context_end-mp3_context_start)/4 mov ecx, (mp3_context_end-mp3_context_start)/4 xor eax, eax ; ERRIF @@len AND 03h rep stosd ; clear context mov dword [main_data_pool_wr_ptr], main_data_pool_start ; 24/02/2025 ; (reset to the initial value is needed) mov dword [mp3_huff_num_entries], 12h ; 18 ; 23/02/2025 ;cmp dword [mp3_initialized], 0 ;jnz short .already_initialized call mp3_integer_init_is_stereo_lsf call mp3_integer_init_mdct_windows call mp3_integer_init_table_4_3 call mp3_integer_init_exponent call mp3_any_init_synth_window call mp3_any_init_band_indices call mp3_any_init_lsf_sf_expand call mp3_any_init_huff_tables call mp3_init_log_constants ; 23/02/2025 ; 15/02/2025 ;mov dword [mp3_initialized], 1 ;.already_initialized: ; 17/02/2025 ; 16/02/2025 ;mov dword [mp3_bytes_per_sample], 2 ; 15/02/2025 retn ; =============== S U B R O U T I N E ======================================= ; 16/02/2025 mp3_check_1st_frame: call mp3_exclude_id3_and_tag mov esi, [stream_pos] mov ecx, [bytes_left] xor edi, edi xor ebp, ebp call mp3_decode_frame jc short .error call mp3_check_xing_info ; 16/02/2025 clc .error: retn ;.error: ;stc ;retn ; =============== S U B R O U T I N E ======================================= mp3_plain_test_without_output: pusha mov esi, [stream_pos] mov ecx, [bytes_left] mov edi, sample_buffer xor ebp, ebp call mp3_decode_frame popa jc short .exit mov eax, [mp3_src_frame_size] cmp eax, 0 jz short .exit add [stream_pos], eax sub [bytes_left], eax jmp short mp3_plain_test_without_output .exit: retn ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 ; 21/10/2024 set_break: ; set [u.break] -end of bss- address to ; end_of_bss at first (mp3 file will be loaded ; at the end of bss) ; ([u.break] initially points to the end of PRG file ; -code and data- except BSS section) ; ; TRDOS 386 system call ; Set break address ; ebx = new [u.break] ; 26/01/2025 sys _break, end_of_bss ; eax = new break address (dword aligned) ; 10/01/2025 ;sys _break, 100000h ; end of 1st 1MB mov [stream_start], eax mov [stream_pos], eax retn ; =============== S U B R O U T I N E ======================================= ; 22/02/2025 ; 20/10/2024 open_and_mmap_the_file: ; 21/10/2024 ; TRDOS 386 system call ; Open File ; ebx = pointer to filename ; ecx = open mode, 0 = read ;sys _open, [mp3_src_fname], 0 ; 22/02/2025 sys _open, mp3_file_name, 0 jc short .not_found mov [hFile], eax ; get file size by using systell system call ; (not applicable for TRDOS 386 Kernel v2.0.9 and earlier) ; TRDOS 386 system call ; Get current file (offset) pointer ; ebx = file handle (file descriptor) ; ecx = 0, offset ; edx = 2, from the end of file ;sys _tell, eax, 0, 2 ;mov [mp3_file_size], eax ; *** get file size *** ; TRDOS 386 system call ; Set file (offset) pointer to file size ; (needed for TRDOS kernel v2.0.9 and earlier) ; ebx = file handle (file descriptor) ; ecx = 0, offset ; edx = 2, from the end of file sys _seek, eax, 0, 2 ; TRDOS 386 system call ; Get current file (offset) pointer ; (needed for TRDOS 386 kernel version 2.0.9 and earlier) xor edx, edx ; 0 ; ecx = 0 ; ebx = file handle sys _tell mov [mp3_file_size], eax ; *** set file offset pointer to 0 again *** ; TRDOS 386 system call ; Set file (offset) pointer ; ebx = file handle (file descriptor) ; ecx = 0, offset ; edx = 0, from the beginning/start of file push eax sys _seek pop eax ; now, set [u.break] address to the end of mp3 file ; at memory -in BSS section- ; (not necessary for TRDOS 386 PRG files) ; (this system call will allocate user memory pages ; before sysread system call.. early) ;add eax, end_of_bss ; 13/01/2025 add eax, 100000h ; + end of 1st 1MB ; TRDOS 386 system call ; Set break address ; ebx = new [u.break] sys _break, eax ; TRDOS 386 system call ; Read file ; ebx = file handle (file descriptor) ; ecx = buffer address ; edx = byte count sys _read, [hFile], [stream_start], [mp3_file_size] jc short .read_error cmp eax, edx jnb short .ok ;or eax, eax ;jnz short .ok .read_error: ; TRDOS 386 system call ; Close file ; ebx = file handle (file descriptor) ;sys _close, [hFile] sys _close ; 22/02/2025 stc retn .ok: mov [bytes_left], eax ; read count ; 22/02/2025 sys _close inc byte [file_count] retn .not_found: ; 23/02/2025 mov dword [hFile], -1 ;stc retn ; =============== E X I T =================================================== ; 25/01/2025 ; 20/10/2024 ExitProcess: call set_text_mode ExitP@: xor ebx, ebx ; mov ebx, 0 ; exit code ExitProcess@: ; 13/01/2025 sys _exit ;hang: ;jmp short hang ; --------------------------------------------------------------------------- ; TRDOS 386 Audio System Functions ; --------------------------------------------------------------------------- ; =============== S U B R O U T I N E ======================================= ; 22/02/2025 ; 10/01/2025 ; 20/10/2024 detect_enable_audio_device: ; 24/01/2025 ;mov word [max_frequency], 48000 ; 10/01/2025 ;mov byte [blocks], 8 ; check AC'97 hardware at first ; (48kHz support) ; TRDOS 386 system call ; sysaudio ; Detect (BH=1) AC'97 (BL=2) Audio Device .ac97: sys _audio, 0102h jc short .sb16 mov byte [audio_hardware], 2 ; AC97 ;;;; ; 12/01/2025 (ref: playwav9.s, 18/12/2024) sys _audio, 0E00h ; get audio controller info ; EAX = IRQ Number in AL ; Audio Device Number in AH ; EBX = DEV/VENDOR ID ; (DDDDDDDDDDDDDDDDVVVVVVVVVVVVVVVV) ; ECX = BUS/DEV/FN ; (00000000BBBBBBBBDDDDDFFF00000000) ; EDX = NABMBAR/NAMBAR (for AC97) ; (Low word, DX = NAMBAR address) ; EDX = Base IO Addr (DX) for SB16 & VT8233 mov [dev_vendor], ebx mov [bus_dev_fn], ecx mov [NAMBAR], dx ; save audio mixer base addr ;shr edx, 16 ;mov [NABMBAR], dx ; save bus master base addr mov dword [NAMBAR], edx mov [ac97_int_ln_reg], al ;;;; ; TRDOS 386 system call ; sysaudio ; Get AC'97 Codec info ; (Function 14, sub function 1) sys _audio, 0E01h ; Save Variable Rate Audio support bit and al, 1 mov [vra], al retn .sb16: ; check Sound Blaster 16 card at second ; (44100Hz support, but 24kHz will be used) ; TRDOS 386 system call ; sysaudio ; Detect (BH=1) SB16 (BL=1) Audio Card sys _audio, 0101h jc short .vt8233 mov byte [audio_hardware], 1 ; SB16 ; 24/01/2025 ;mov word [max_frequency], 44100 ; 10/01/2025 ;;mov byte [blocks], 7 ;dec byte [blocks] ;;;; ; 12/01/2025 (ref: sb16play.s, 20/12/2024) sys _audio, 0E00h ; get audio controller info mov [audio_io_base], edx mov [audio_intr], al ;;;; retn .vt8233: ; check VIA VT3237R (VT8233) hardware at third ; (48kHz support) ; TRDOS 386 system call ; sysaudio ; Detect (BH=1) VT8237R (BL=3) Audio Device sys _audio, 0103h jc short .hda mov byte [audio_hardware], 3 ; VT8237R retn .hda: ; check Intel HDA hardware at last ; (48kHz support) ; TRDOS 386 system call ; sysaudio ; Detect (BH=1) Intel HDA (BL=4) Audio Device sys _audio, 0104h jc short .err mov byte [audio_hardware], 4 ; HDA retn .err: ;mov edx, txt_audio_nf_err ;call wrstr_edx ; 22/02/2025 sys _msg, txt_audio_nf_err, 255, 0Ch stc retn ; --------------------------------------------------------------------------- txt_audio_nf_err: db 'Proper audio hardware not found!',0Dh,0Ah,0 ; =============== S U B R O U T I N E ======================================= ; 23/02/2025 ; 22/02/2025 ; 29/01/2025 (mp3play5.s) ; 28/01/2025 ; 27/01/2025 ; 13/01/2025 (mp3play4.s) ; 12/01/2025 audio_system_init: ; 28/01/2025 mov eax, [mp3_samples_output_size] ; 29/01/2025 if 1 ; 29/01/2025 mov byte [blocks], 1 ; cmp byte [audio_hardware], 1 jne short .bufaloc ;mov eax, sample_buffer_size ; 10/01/2025 ;mov byte [blocks], 16 ; 12/01/2025 ;mov byte [blocks], 8 ;;mov eax, [mp3_samples_output_size] ;shl eax, 3 ; * 8 ;;shl eax, 4 ; * 16 ; 29/01/2025 shl byte [blocks], 2 ; 4 shl eax, 2 ; * 4 .asi@: ; 12/01/2025 ;cmp eax, 65536 ;jna short .asi@@ ;sub eax, [mp3_samples_output_size] ;dec byte [blocks] ;;; ; 11/01/2025 ;test byte [blocks], 1 ;jz short .asi@ ;dec byte [blocks] ; even number ;sub eax, [mp3_samples_output_size] ;;; ;jmp short .asi@ .asi@@: ; 29/01/2025 ;cmp byte [audio_hardware], 1 ; SB16 ;jne short .bufaloc .asi@@@: ; 29/01/2025 ;if 0 ; ; 10/01/2025 ; cmp eax, 32768 ; jna short .bufaloc ; ; sample_buffer_size = 36864 bytes ; 8 blocks ; ;sub eax, MP3_MAX_OUTPUT_SIZE ; ; eax = 32256 ; 7 blocks ; ; 10/01/2025 ; sub eax, [mp3_samples_output_size] ; dec byte [blocks] ; ;;; ; ; 11/01/2025 ; ;test byte [blocks], 1 ; ;jz short .asi@@@ ; ;dec byte [blocks] ; even number ; ;sub eax, [mp3_samples_output_size] ; ;;; ; jmp short .asi@@@ ;end if end if .bufaloc: ; TRDOS 386 system call ; sysaudio ; Allocate audio buffer (for user) ; ebx = 0200h (BH=2) ; ecx = buffer size (in bytes) ; edx = buffer address (virtual) mov [buffer_size], eax sys _audio, 0200h, eax, sample_buffer jc short .init_err ; 12/01/2025 ; clear audio buffer (before playback) mov edi, sample_buffer ; ecx = buffer size in bytes shr ecx, 2 ; double word xor eax, eax rep stosd ; 23/02/2025 inc byte [init_level] ; 1 ; TRDOS 386 system call ; sysaudio ; Initialize audio device (bh = 3) ; bl = 01h -> CallBack method ; edx = Callback service address (virtual) ; ecx = 0 ; CL = srb value ; not used sys _audio, 0301h, 0, audio_callback ; 12/01/2025 ; SRB method (faster than callback method) ; bl = 0 -> Signal Response Byte method ; cl = 1 -> SRB set value ; (will be set by audio IRQ service of the kernel) ; edx = SRB address -one byte data- ;sys _audio, 0300h, 1, srb jc short .init_err ; 23/02/2025 inc byte [init_level] ; 2 ; 24/01/2025 ;retn ; 27/01/2025 ; ;;;; 26/01/2025 ; cmp byte [audio_hardware], 1 ; SB16 ? ; jne short .smvol ; no ; ; ; 26/01/2025 ; ; Map system DMA buffer to user's memory space ; ; (for -fast- sound data graphics display) ; mov eax, [buffer_size] ; shl eax, 1 ; dma buff size is 2 * user's buff size ; sys _audio, 0D00h, eax, dmabuffer ;.smvol: ; ;;;; mov al, [volume_level] ;call SetMasterVolume@ ;retn jmp SetMasterVolume@ .init_err: ; 22/02/2025 init_error: call set_text_mode sys _msg, txt_audio_init_err, 255, 0Ch ; red stc retn ; --------------------------------------------------------------------------- txt_audio_init_err: db 'Audio hardware initialization error!',0Dh,0Ah,0 ; =============== S U B R O U T I N E ======================================= ; 12/01/2025 ; 21/10/2024 audio_callback: ; Operating system has directed CPU here because of ; user (2nd) stage of the audio hardware interrupt service. ; This procedure must be short and return to operating ; system again via sysrelease system call ; (or any system call here will be handled as sysrelease). mov byte [srb], 1 ; 12/01/2025 call try_enqueue_all_blocks .skip: sys _rele ; return from callback service ; we must not come here ! mov ebx, -1 sys _exit ;jmp short audio_callback ; =============== S U B R O U T I N E ======================================= ; 22/01/2025 audio_f_stop: mov byte [stopped], 2 ; Stop playing sys _audio, 0700h ; Cancel callback service (for user) sys _audio, 0900h ; Deallocate audio buffer (for user) sys _audio, 0A00h retn ; 22/01/2025 audio_f_pause: mov byte [stopped], 1 ; paused sys _audio, 0500h retn ; 22/01/2025 audio_f_play: ; continue to play (after pause) mov byte [stopped], 0 sys _audio, 0600h retn ; =============== S U B R O U T I N E ======================================= ; 22/01/2025 SetMasterVolume: ;cmp al, 31 ;ja short setvolume_ok mov [volume_level], al ; max = 0, min = 31 ; 24/01/2025 SetMasterVolume@: mov ah, 31 sub ah, al mov al, ah ; Set Master Volume Level (BL=0 or 80h) ; for next playing (BL>=80h) ;sys _audio, 0B80h, eax sys _audio, 0B00h, eax setvolume_ok: retn ; =============== S U B R O U T I N E ======================================= ; 25/02/2025 ; 26/01/2025 ; 23/01/2025 ; 22/01/2025 ; 13/01/2025 ; 12/01/2025 ; 10/01/2025 ; 21/10/2024 mp3_cast_to_speaker: ; 13/01/2025 if 1 ; Start to play ;mov eax, [mp3_bytes_per_sample] ;;shr al, 1 ; 8 -> 0, 16 -> 1 ;;shl al, 1 ; 16 -> 2, 8 -> 0 ;and al, 2 ; 22/10/2024 ; 25/02/2025 mov ebx, [mp3_num_channels] dec ebx ;or bl, al or bl, 2 ; 16bit ;mov ecx, [mp3_output_sample_rate] mov ecx, [mp3_sample_rate] mov bh, 4 ; start to play ; 13/01/2025 mp3_cast_to_speaker_@: push ebx ; 25/02/2025 ;push ecx end if ; 12/01/2025 ;call try_enqueue_all_blocks ; 12/01/2025 ;cmp dword [bytes_left],0 ;jz short .playback ; 12/01/2025 ; (here audio buffer -sample_buffer- is empty) ; (clear dma half buffer 1) sys _audio, 1001h ; (clear dma half buffer 2) ;sys _audio, 1002h ; TRDOS 386 system call ; sysaudio ; bh = 16 : update (current, first) dma half buffer ; bl = 0 : then switch to the next (second) half buffer sys _audio, 1000h ; 12/01/2025 ; 22/10/2024 ;call try_enqueue_all_blocks .playback: ; 21/01/2025 if 0 ; TRDOS 386 system call ; sysaudio ; Set Master Volume Level (BL=0 or 80h) ; for next playing (BL>=80h) ;sys _audio, 0B80h, 1D1Dh sys _audio, 0B00h, 1D1Dh ;mov byte [volume_level], 1Dh mov [volume_level], cl end if ; 13/01/2025 if 0 ; Start to play mov eax, [mp3_bytes_per_sample] ;shr al, 1 ; 8 -> 0, 16 -> 1 ;shl al, 1 ; 16 -> 2, 8 -> 0 and al, 2 ; 22/10/2024 mov ebx, [mp3_output_num_channels] dec ebx or bl, al mov ecx, [mp3_output_sample_rate] mov bh, 4 ; start to play else ; 25/02/2025 ;pop ecx ; sample rate (frequency) pop ebx ; play mode (bl end if ; TRDOS 386 system call ; sysaudio ; bh = 4 -> start to play ; bl = mode -> bit 0, 1 = stereo, 0 = mono ; bit 1, 1 = 16 bit, 0 = 8 bit ; cx = sample rate (hertz) sys _audio ; 12/01/2025 mov byte [srb], 0 ;;; .playback_lop: ; 21/01/2025 ;;;; --------------------- cmp byte [stopped], 0 jna short .pb_l_@ call checkUpdateEvents jc .playback_end ; 25/02/2025 cmp byte [command], 'N' je short .playback_end cmp byte [command], 'P' je short .playback_end ; 26/01/2025 mov bx, 0C30h call display_indicator jmp short .playback_lop .pb_l_@: ;;;; --------------------- xor eax, eax cmp [bytes_left], eax ; 0 jnz short .playback_next ; 22/10/2024 cmp byte [num_enqueued_frames], al ; 0 jz short .playback_end .playback_next: mov [num_enqueued_frames], al ; 0 cmp byte [srb], 1 ; audio interrupt status ;jb short .getchar ; 21/01/2025 jb short .pb_l_@@ ;mov byte [srb], 0 ; reset mov [srb], al ; 0 ; 12/01/2025 ;call try_enqueue_all_blocks ; 28/01/2025 mov bl, [counter] inc byte [counter] and bl, 7 jnz short .playback_lop ; 15/01/2025 ;cmp byte [blocks], 0 ; interpolation ? ;jna short .interpolated ; yes ; 27/01/2025 cmp byte [interpolation], 0 ja short .interpolated ; 15/01/2025 ;mov ah, 4Eh ; red background, yellow font ; 26/01/2025 mov bh, 0Ch ; red background .indicator: ; 26/01/2025 mov bl, [half_buffer] xor byte [half_buffer], 1 add bl, '1' ; bh = color, bl = character (1,2) call display_indicator ;;; jmp .playback_lop .interpolated: ; 15/01/2025 ; (a solution for very fast indicator digit change) ; (8 to 1) ; 28/01/2025 ; 26/01/2025 ;mov bl, [counter] ;inc byte [counter] ;and bl, 7 ;jnz short .playback_lop ;mov ah, 1Eh ; blue background, yellow font ; 27/01/2025 ;mov bh, 09h ; blue background mov bh, 01h ; dark blue background jmp short .indicator ; 21/01/2025 ;;;; --------------------- .pb_l_@@: call checkUpdateEvents jc short .playback_end jmp .playback_lop ;;;; --------------------- .playback_end: ; 26/01/2025 mov bx, 0C30h call display_indicator ;;; ; 23/01/2025 if 0 ; 22/01/2025 ; reset timer event ; bh = 0 -> reset ; bl = timer event number (0 to 255) mov bh, 0 mov bl, [tnumber] sys _timer end if ; TRDOS 386 system call ; sysaudio ; Stop playing sys _audio, 0700h ; 25/02/2025 ; Cancel callback service (for user) ;sys _audio, 0900h ;; Deallocate audio buffer (for user) ;sys _audio, 0A00h ;; Disable audio device ;sys _audio, 0C00h retn ; 21/01/2025 if 0 .getchar: ; TRDOS 386 system call ; sysstdio ; BL = 1 -> read a character on stdin (no wait) sys _stdio, 1 and eax, eax jz .playback_next ; 15/01/2024 cmp al, '+' ; increase sound volume je short .inc_volume cmp al, '-' je short .dec_volume ;;; ; 10/01/2025 ;cmp ah, 01h cmp al, 1Bh ; ESC je short .playback_end cmp ax, 2E03h ;cmp al, 03h ; CTRL+C je short .playback_end ;;; ; 12/01/2025 and al, 0DFh cmp al, 'H' je short .hw_info cmp al, 'B' je short .b_info jmp .playback_next .inc_volume: mov cl, [volume_level] cmp cl, 1Fh ; 31 jnb .playback_next inc cl .chg_volume: mov [volume_level], cl mov ch, cl ; TRDOS 386 system call ; sysstdio ; Set master volume level ; bh = 11 ; cl = left channel volume (0 to 31 max) ; ch = right channel volume (0 to 31 max) sys _audio, 0B00h jmp .playback_next .dec_volume: mov cl, [volume_level] cmp cl, 1 ; 1 jna .playback_next dec cl jmp short .chg_volume ; 12/01/2025 .hw_info: call write_audio_dev_info jmp .playback_next ; 12/01/2025 .b_info: call write_buffer_size jmp .playback_next end if ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 (mp3play5.s) ; Display buffer swap/switch (interrupt) indicator ; on top left of the screen/window display_indicator: ; 26/01/2025 ; bl = buffer indicator ('1', '2' or '0' -stop- ) ; bh = color ; ; (640*480, 256 colors) ;tl0: ; ; 22/12/2024 (vgaplay.s) ;;; ;mov ebp, 16 mov ebp, 14 mov edi, [LFB_ADDR] ;movzx esi, al ; 26/01/2025 movzx esi, bl ; character shl esi, 4 ; * 16 add esi, fontbuff2 .tL0_1: mov edx, 8 ; 8 pixels (8*16 pixel font) mov ah, [esi] .tL0_2: ;mov al, 0Ch ; red ; 26/01/2025 mov al, bh ; background color shl ah, 1 jnc short .tL0_3 mov al, 0Eh ; yellow .tL0_3: stosb dec edx jnz short .tL0_2 dec ebp jz short .tL0_4 add edi, 640-8 ; next line inc esi jmp short .tL0_1 .tL0_4: ;;; retn ; =============== S U B R O U T I N E ======================================= ; 29/01/2025 ; 23/01/2025 ; 13/01/2025 ; 12/01/2025 ; 09/01/2025 ; 21/10/2024 try_enqueue_all_blocks: ; 12/01/2025 pusha mov edi, sample_buffer ; 10/01/2025 ;jmp short .first_block ; 13/01/2025 jmp short try_enqueue_all_blocks_@ ;.next_block: teab_next_block: cmp dword [bytes_left], 0 ;jle short .enqueue_done ; 13/01/2025 jle short teab_enqueue_done ; mov edi, [mp3_samples_dst] add edi, [mp3_samples_output_size] try_enqueue_all_blocks_@: ;.first_block: ;pusha mov esi, [stream_pos] mov ecx, [bytes_left] xor ebp, ebp call mp3_decode_frame ;popa ;;jc short .enqueue_done ; 23/01/2025 (ignore error) -forward/backward- ; 13/01/2025 ;jc short teab_enqueue_done mov eax, [mp3_src_frame_size] cmp eax, 0 ;jz short .enqueue_done ; 13/01/2025 jz short teab_enqueue_done add [stream_pos], eax sub [bytes_left], eax mov eax, [mp3_samples_output_size] cmp eax, 0 ;jz short .next_block ; 13/01/2025 jz short teab_next_block ;.no_error: inc byte [num_enqueued_frames] ; mov al, [num_enqueued_frames] cmp al, [blocks] ;jb short .next_block ; 13/01/2025 jb short teab_next_block teab_rtn: ;.rtn: ; 12/01/2025 popa retn ;.enqueue_done: teab_enqueue_done: mov dword [bytes_left], 0 ; 12/01/2025 ;jmp short .rtn ; 13/01/2025 jmp short teab_rtn ; --------------------------------------------------------------------------- ; 13/01/2025 - Interpolation procedures for non-VRA AC97 codecs ; --------------------------------------------------------------------------- ; =============== S U B R O U T I N E ======================================= ; 25/02/2025 (mp3play8.s) ; 22/02/2025 (mp3play7.s) ; 30/01/2025 ; 15/01/2025 ; 14/01/2025 ; 13/01/2025 audio_system_init_x: mov ecx, [mp3_samples_output_size] ;;; ; 15/01/2025 mov eax, ecx ;mov [loadsize], ecx ;;; ; 15/01/2025 ;shl ecx, 3 ; * 8 ; 8 blocks ; 14/01/2025 ;mov byte [blocks], 8 cmp byte [interpolation], 2 jnb short .chk_sample_rate ; interpolation needed ; 48 kHZ with 16 bit stereo conversion ; ; selected output is ; 8bit stereo or 16bit mono or 8bit mono ; (but AC97 hardware needs 16bit stereo samples) ; 15/01/2025 ;mov eax, ecx shl eax, 1 ; * 2 (mono to stereo) mov ebx, convert_to_stereo ; 22/02/2025 (mp3play7.s) ; 17/02/2025 (tmp3play.s) ; [mp3_bytes_per_sample] = 2 ; 16bit mono or 16bit stereo ; (but 16bit stereo does not need conversion here) ;cmp byte [mp3_bytes_per_sample], 2 ;je short .set_sizes ; 16bit mono ; ;; 8bit output (16bit conversion is neeed) ;mov ebx, convert_to_16bit ;cmp byte [mp3_num_channels], 2 ;je short .set_sizes ; 8bit stereo ;; 8bit mono output ;;shr ecx, 1 ; / 2 ; 4 blocks ;; 14/01/2025 ;shl eax, 1 ;; 14/01/2025 ;;shr byte [blocks], 1 ;mov ebx, convert_to_stereo_16bit .set_sizes: .set_sizes_@: ; 22/02/2025 (mp3play7.s) ; 18/02/2025 (tmp3play.s) mov [conversion], ebx mov [loadsize], ecx ;;; ; 14/01/2025 ; align to 16bit stereo (if there is a defect) ; 15/01/2025 ;and al, ~3 mov [buffer_size], eax jmp .asix_@ ; 13/01/2025 ; ---------------------------- ; ref: playwav9.s - 18/12/2024 .chk_sample_rate: ; set interpolation parameters ; (for 8, 11.025, 16, 22.050, 24, 32, 44.1 kHZ) ; 16/02/2025 mov eax, [mp3_sample_rate] ; ecx = 8 * [mp3_samples_output_size] ; 8 blocks .chk_44khz: cmp eax, 44100 jne short .chk_32khz ; 30/01/2025 mov eax, 25 ; * ; 17/02/2025 ;cmp byte [mp3_bytes_per_sample], 1 ;jna short .chk_44khz_1 mov ebx, load_44khz_stereo_16_bit ; 16/02/2025 cmp byte [mp3_num_channels], 1 jne short .chk_44khz_2 mov ebx, load_44khz_mono_16_bit ;jmp short .chk_44khz_2 ; 30/01/2025 jmp short .chk_44khz_3 .chk_44khz_1: ; 17/02/2025 ; [mp3_bytes_per_sample] = 2 ;; 30/01/2025 ;shl eax, 1 ;mov ebx, load_44khz_stereo_8_bit ;; 16/02/2025 ;cmp byte [mp3_num_channels], 1 ;jne short .chk_44khz_2 ;mov ebx, load_44khz_mono_8_bit .chk_44khz_3: ; 30/01/2025 shl eax, 1 .chk_44khz_2: ; 48000/44100 == 25/23 mov ebp, 23 ;mov eax, 25 ; * mul ecx ; load (decoding buffer) size div ebp ;; eax = wav output buffer size ; 15/01/2025 ; eax = 1 block output (converted) size jmp short .set_sizes ; 15/01/2025 ; ;;; ; ; 14/01/2025 ;.set_sizes_@: ; cmp ecx, 4608 ; ;ja short .set_sizes ; ; 15/01/2025 ; jnb short .set_sizes ; ;shl ecx, 1 ; ; ecx = [mp3_samples_output_size] ; shl byte [blocks], 1 ; ; 15/01/2025 ; ;shl eax, 1 ; ;jmp short .set_sizes_@ ; jmp .set_sizes ;;; .chk_32khz: cmp eax, 32000 jne short .chk_24khz ; 30/01/2025 mov eax, 3 ; * ; 17/02/2025 ;cmp byte [mp3_bytes_per_sample], 1 ;jna short .chk_32khz_1 mov ebx, load_32khz_stereo_16_bit ; 16/02/2025 cmp byte [mp3_num_channels], 1 jne short .chk_32khz_2 mov ebx, load_32khz_mono_16_bit ;jmp short .chk_32khz_2 ; 30/01/2025 jmp short .chk_32khz_3 .chk_32khz_1: ; 17/02/2025 ; [mp3_bytes_per_sample] = 2 ;; 30/01/2025 ;shl eax, 1 ;mov ebx, load_32khz_stereo_8_bit ;; 16/02/2025 ;cmp byte [mp3_num_channels], 1 ;jne short .chk_32khz_2 ;mov ebx, load_32khz_mono_8_bit .chk_32khz_3: ; 30/01/2025 shl eax, 1 .chk_32khz_2: ; 48000/32000 = 3/2 ;mov eax, 3 ; * mul ecx ; *3 ;mov eax, ecx ;add eax, eax ;add eax, ecx shr eax, 1 ; /2 jmp .set_sizes .chk_24khz: cmp eax, 24000 jne short .chk_22khz ; 30/01/2025 mov eax, ecx ; * ; 17/02/2025 ;cmp byte [mp3_bytes_per_sample], 1 ;jna short .chk_24khz_1 ; 14/01/2025 ; bx -> ebx ; (BugFix, 'playwav9.s' has a bug here) mov ebx, load_24khz_stereo_16_bit ; 16/02/2025 cmp byte [mp3_num_channels], 1 jne short .chk_24khz_2 mov ebx, load_24khz_mono_16_bit ;jmp short .chk_24khz_2 ; 30/01/2025 jmp short .chk_24khz_3 .chk_24khz_1: ; 17/02/2025 ; [mp3_bytes_per_sample] = 2 ;; 30/01/2025 ;shl eax, 1 ;mov ebx, load_24khz_stereo_8_bit ;; 16/02/2025 ;cmp byte [mp3_num_channels], 1 ;jne short .chk_24khz_2 ;mov ebx, load_24khz_mono_8_bit .chk_24khz_3: ; 30/01/2025 shl eax, 1 .chk_24khz_2: ; 48000/24000 = 2/1 ;mov eax, ecx ; * shl eax, 1 jmp .set_sizes_@ .chk_22khz: cmp eax, 22050 jne short .chk_16khz ; 30/01/2025 mov eax, 37 ; * ; 17/02/2025 ;cmp byte [mp3_bytes_per_sample], 1 ;jna short .chk_22khz_1 mov ebx, load_22khz_stereo_16_bit ; 16/02/2025 cmp byte [mp3_num_channels], 1 jne short .chk_22khz_2 mov ebx, load_22khz_mono_16_bit ;jmp short .chk_22khz_2 ; 30/01/2025 jmp short .chk_22khz_3 .chk_22khz_1: ; 17/02/2025 ; [mp3_bytes_per_sample] = 2 ;; 30/01/2025 ;shl eax, 1 ;mov ebx, load_22khz_stereo_8_bit ;; 16/02/2025 ;cmp byte [mp3_num_channels], 1 ;jne short .chk_22khz_2 ;mov ebx, load_22khz_mono_8_bit .chk_22khz_3: ; 30/01/2025 shl eax, 1 .chk_22khz_2: ; 48000/22050 == 37/17 mov ebp, 17 ;mov eax, 37 ; * mul ecx ; load (decoding buffer) size div ebp ;; eax = wav output buffer size ; 15/01/2025 ; eax = 1 block output (converted) size jmp .set_sizes_@ .chk_16khz: cmp eax, 16000 jne short .chk_11khz ; 30/01/2025 mov eax, ecx ; * shl eax, 1 add eax, ecx ; 17/02/2025 ;cmp byte [mp3_bytes_per_sample], 1 ;jna short .chk_16khz_1 mov ebx, load_16khz_stereo_16_bit ; 16/02/2025 cmp byte [mp3_num_channels], 1 jne short .chk_16khz_2 mov ebx, load_16khz_mono_16_bit ;jmp short .chk_16khz_2 ; 30/01/2025 jmp short .chk_16khz_3 .chk_16khz_1: ; 17/02/2025 ; [mp3_bytes_per_sample] = 2 ;; 30/01/2025 ;shl eax, 1 ;mov ebx, load_16khz_stereo_8_bit ;; 16/02/2025 ;cmp byte [mp3_num_channels], 1 ;jne short .chk_16khz_2 ;mov ebx, load_16khz_mono_8_bit .chk_16khz_3: ; 30/01/2025 shl eax, 1 .chk_16khz_2: ; 48000/16000 = 3/1 ;mov eax, ecx ; * ;shl eax, 1 ;;add eax, eax ;add eax, ecx jmp .set_sizes_@ .chk_11khz: cmp eax, 11025 jne short .chk_8khz ; 30/01/2025 mov eax, 74 ; 17/02/2025 ;cmp byte [mp3_bytes_per_sample], 1 ;jna short .chk_11khz_1 mov ebx, load_11khz_stereo_16_bit ; 16/02/2025 cmp byte [mp3_num_channels], 1 jne short .chk_11khz_2 mov ebx, load_11khz_mono_16_bit ;jmp short .chk_11khz_2 ; 30/01/2025 jmp short .chk_11khz_3 .chk_11khz_1: ; 17/02/2025 ; [mp3_bytes_per_sample] = 2 ;; 30/01/2025 ;shl eax, 1 ;mov ebx, load_11khz_stereo_8_bit ;; 16/02/2025 ;cmp byte [mp3_num_channels], 1 ;jne short .chk_11khz_2 ;mov ebx, load_11khz_mono_8_bit .chk_11khz_3: ; 30/01/2025 shl eax, 1 .chk_11khz_2: ; 48000/11025 == 74/17 ; 14/01/2025 ;shr ecx, 1 ; 4 blocks ;shr byte [blocks], 1 mov ebp, 17 ;mov eax, 74 ; * mul ecx ; load (decoding buffer) size div ebp ;; eax = wav output buffer size ; 15/01/2025 ; eax = 1 block output (converted) size jmp .set_sizes_@ .chk_8khz: cmp eax, 8000 ;jne short .vra_needed ; 01/02/2025 jne short .chk_12khz ; 30/01/2025 mov eax, 6 ; * ; 17/02/2025 ;cmp byte [mp3_bytes_per_sample], 1 ;jna short .chk_8khz_1 mov ebx, load_8khz_stereo_16_bit ; 16/02/2025 cmp byte [mp3_num_channels], 1 jne short .chk_8khz_2 mov ebx, load_8khz_mono_16_bit ;jmp short .chk_8khz_2 ; 30/01/2025 jmp short .chk_8khz_3 .chk_8khz_1: ; 17/02/2025 ; [mp3_bytes_per_sample] = 2 ;; 30/01/2025 ;shl eax, 1 ;mov ebx, load_8khz_stereo_8_bit ;; 16/02/2025 ;cmp byte [mp3_num_channels], 1 ;jne short .chk_8khz_2 ;mov ebx, load_8khz_mono_8_bit .chk_8khz_3: ; 30/01/2025 shl eax, 1 .chk_8khz_2: ;mov eax, 6 ; * mul ecx jmp .set_sizes_@ ;;;; ; 01/02/2025 .chk_12khz: cmp eax, 12000 jne short .vra_needed mov eax, ecx ; * ; 17/02/2025 ;cmp byte [mp3_bytes_per_sample], 1 ;jna short .chk_12khz_1 mov ebx, load_12khz_stereo_16_bit ; 16/02/2025 cmp byte [mp3_num_channels], 1 jne short .chk_12khz_2 mov ebx, load_12khz_mono_16_bit jmp short .chk_12khz_3 .chk_12khz_1: ; 17/02/2025 ; [mp3_bytes_per_sample] = 2 ;; 01/02/2025 ;shl eax, 1 ;mov ebx, load_12khz_stereo_8_bit ;; 16/02/2025 ;cmp byte [mp3_num_channels], 1 ;jne short .chk_12khz_2 ;mov ebx, load_12khz_mono_8_bit .chk_12khz_3: shl eax, 1 .chk_12khz_2: ; 48000/12000 = 4/1 ;mov eax, ecx ; * shl eax, 2 jmp .set_sizes_@ ;;;; .vra_needed: pop eax ; discard return address to the caller .vra_err: sys _msg, msg_no_vra, 255, 0Fh jmp ExitProcess .asix_@: ; TRDOS 386 system call ; sysaudio ; Allocate audio buffer (for user) ; ebx = 0200h (BH=2) ; ecx = buffer size (in bytes) ; edx = buffer address (virtual) sys _audio, 0200h, [buffer_size], sample_buffer jc short .init_err ; 12/01/2025 ; clear audio buffer (before playback) mov edi, sample_buffer ; ecx = buffer size in bytes add ecx, 3 ; 13/01/2025 shr ecx, 2 xor eax, eax rep stosd ; 22/02/2025 inc byte [init_level] ; 1 ; TRDOS 386 system call ; sysaudio ; Initialize audio device (bh = 3) ; bl = 01h -> CallBack method ; edx = Callback service address (virtual) ; ecx = 0 ; CL = srb value ; not used sys _audio, 0301h, 0, audio_callback_x ; 13/01/2025 ; 12/01/2025 ; SRB method (faster than callback method) ; bl = 0 -> Signal Response Byte method ; cl = 1 -> SRB set value ; (will be set by audio IRQ service of the kernel) ; edx = SRB address -one byte data- ;sys _audio, 0300h, 1, srb jc short .init_err ; 22/02/2025 inc byte [init_level] ; 2 ; 24/01/2025 ;retn mov al, [volume_level] ;call SetMasterVolume@ ;retn jmp SetMasterVolume@ .init_err: jmp init_error ; =============== S U B R O U T I N E ======================================= ; 25/02/2025 ; 20/02/2025 ; 14/01/2025 ; 13/01/2025 mp3_cast_to_speaker_x: ; 13/01/2025 if 0 ; Start to play mov eax, [mp3_bytes_per_sample] ;shr al, 1 ; 8 -> 0, 16 -> 1 ;shl al, 1 ; 16 -> 2, 8 -> 0 and al, 2 mov ebx, [mp3_num_channels] dec ebx or bl, al mov ecx, [mp3_output_sample_rate] mov bh, 4 ; start to play else ; 48 kHZ, 16bit, stereo mov ebx, 0403h mov ecx, 48000 ; 14/01/2025 cmp byte [vra], 1 jb short .jmpto@ ; 25/02/2025 mov ecx, [mp3_sample_rate] .jmpto@: end if jmp mp3_cast_to_speaker_@ ; =============== S U B R O U T I N E ======================================= ; 23/01/2025 ; 15/01/2025 ; 13/01/2025 try_enqueue_all_blocks_x: ; 12/01/2025 pusha mov edi, decoding_buffer ; 15/01/2025 ;jmp try_enqueue_all_blocks_@ jmp short .first_block ; 15/01/2025 .next_block: cmp dword [bytes_left], 0 jle short .enqueue_done ; mov edi, [mp3_samples_dst] add edi, [mp3_samples_output_size] ;try_enqueue_all_blocks_@: .first_block: ;;pusha mov esi, [stream_pos] mov ecx, [bytes_left] xor ebp, ebp call mp3_decode_frame ;;popa ; 23/01/2025 (ignore error) -forward/backward- ;jc short .enqueue_done mov eax, [mp3_src_frame_size] cmp eax, 0 jz short .enqueue_done add [stream_pos], eax sub [bytes_left], eax mov eax, [mp3_samples_output_size] cmp eax, 0 jz short .next_block ; 15/01/2025 call dword [conversion] .no_error: ; 15/01/2025 inc byte [num_enqueued_frames] .rtn: ; 12/01/2025 popa retn .enqueue_done: mov dword [bytes_left], 0 ; 12/01/2025 jmp short .rtn ; =============== S U B R O U T I N E ======================================= ; 13/01/2025 audio_callback_x: ; Operating system has directed CPU here because of ; user (2nd) stage of the audio hardware interrupt service. ; This procedure must be short and return to operating ; system again via sysrelease system call ; (or any system call here will be handled as sysrelease). mov byte [srb], 1 call try_enqueue_all_blocks_x ; 15/01/2025 ;call dword [conversion] sys _rele ; return from callback service ; we must not come here ! mov ebx, -1 sys _exit ;jmp short audio_callback ; --------------------------------------------------------------------------- ; 13/01/2025 - Interpolation procedures for non-VRA AC97 codecs ; --------------------------------------------------------------------------- ; ref: playwav9.s - 18/12/2025 ; =============== S U B R O U T I N E ======================================= ; 13/01/2025 ; -------------------------------------------------------- ; 48 kHZ conversion procedures ; -------------------------------------------------------- ; convert_to_stereo: convert 16bit mono samples to 16bit stereo ; convert_to_16bit: convert 8bit stereo samples to 16bit stereo ; convert_to_stereo_16bit: convert 8bit mono samples to 16bit & stereo ; [loadsize] = decoding buffer size ; [buffer_size] = wav output buffer size (<= 64KB) ; ///// ; 13/01/2025 convert_to_stereo: mov esi, decoding_buffer ; (contains 16bit mono samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] shr ecx, 1 ; word count cts_1: lodsw stosw ; left channel stosw ; right channel loop cts_1 cts_2: ; padfill mov ecx, [buffer_size] add ecx, sample_buffer sub ecx, edi jna short cts_3 xor eax, eax rep stosb cts_3: retn ; ///// ; 25/02/2025 if 0 ; 13/01/2025 convert_to_16bit: mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] ct16b_1: ; stereo & 8 bit lodsb sub al, 80h ; 08/11/2023 shl eax, 8 ; convert 8 bit sample to 16 bit sample stosw loop ct16b_1 jmp short cts_2 ; ///// ; 13/01/2025 convert_to_stereo_16bit: mov esi, decoding_buffer ; (contains 8bit mono samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] cts16b_1: ; mono & 8 bit lodsb sub al, 80h ; 08/11/2023 shl eax, 8 ; convert 8 bit sample to 16 bit sample stosw ; left channel stosw ; right channel loop cts16b_1 jmp short cts_2 ; ///// end if ; =============== S U B R O U T I N E ======================================= ; -------------------------------------------------------- ; 13/01/2025 ; -------------------------------------------------------- ; 25/02/2025 - mp3play8.s ; 20/02/2025 - mp3play7.s ; 17/02/2025 - tmp3play.s ; 16bit stereo or 16bit mono playback ; 13/01/2025 - mp3player modifications (mp3play3.s) ; 07/12/2024 - playwav9.s ; 01/12/2024 - ac97play.s ; 29/05/2024 ; 26/11/2023 ; 25/11/2023 - playwav6.s (32 bit registers, TRDOS 386 adaption) ; 15/11/2023 - PLAYWAV5.COM, ich_wav5.asm ; 14/11/2023 ; 13/11/2023 - Erdogan Tan - (VRA, sample rate conversion) ; -------------------------------------------------------- ;;Note: At the end of every buffer load, ;; during buffer switch/swap, there will be discontinuity ;; between the last converted sample and the 1st sample ;; of the next buffer. ;; (like as a dot noises vaguely between normal sound samples) ;; -To avoid this defect, the 1st sample of ;; the next buffer may be read from the wav file but ;; the file pointer would need to be set to 1 sample back ;; again via seek system call. Time comsumption problem! - ;; ;; Erdogan Tan - 15/11/2023 ;; ;; ((If entire wav data would be loaded at once.. conversion ;; defect/noise would disappear.. but for DOS, to keep ;; 64KB buffer limit is important also it is important ;; for running under 1MB barrier without HIMEM.SYS or DPMI. ;; I have tested this program by using 2-30MB wav files.)) ;; ;; Test Computer: ASUS desktop/mainboard, M2N4-SLI, 2010. ;; AMD Athlon 64 X2 2200 MHZ CPU. ;; NFORCE4 (CK804) AC97 audio hardware. ;; Realtek ALC850 codec. ;; Retro DOS v4.2 (MSDOS 6.22) operating system. ; =============== S U B R O U T I N E ======================================= load_8khz_mono_16_bit: ; 13/01/2025 (mp3play3.s) mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] ; 13/01/2025 shr ecx, 1 ; word count lff8m2_1: lodsw stosw ; original sample (left channel) stosw ; original sample (right channel) add ah, 80h ; convert sound level to 0-65535 format mov [previous_val], ax xor eax, eax dec ecx jz short lff8m2_2 mov ax, [esi] lff8m2_2: add ah, 80h ; convert sound level to 0-65535 format mov ebp, eax ; [next_val] add ax, [previous_val] rcr ax, 1 mov edx, eax ; this is interpolated middle (3th) sample add ax, [previous_val] rcr ax, 1 ; this is temporary interpolation value mov ebx, eax add ax, [previous_val] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is 1st interpolated sample (L) stosw ; this is 1st interpolated sample (R) mov eax, ebx add ax, dx rcr ax, 1 sub ah, 80h stosw ; this is 2nd interpolated sample (L) stosw ; this is 2nd interpolated sample (R) mov eax, edx sub ah, 80h ; -32768 to +32767 format again stosw ; this is middle (3th) interpolated sample (L) stosw ; this is middle (3th) interpolated sample (R) mov eax, ebp add ax, dx rcr ax, 1 mov ebx, eax ; this is temporary interpolation value add ax, dx rcr ax, 1 sub ah, 80h stosw ; this is 4th interpolated sample (L) stosw ; this is 4th interpolated sample (R) mov eax, ebp add ax, bx rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is 5th interpolated sample (L) stosw ; this is 5th interpolated sample (R) ; 8 kHZ mono to 48 kHZ stereo conversion of the sample is OK or ecx, ecx jnz lff8m2_1 ;jmp lff8m2_3 ; 17/02/2025 jmp lff8_3 ; =============== S U B R O U T I N E ======================================= load_8khz_stereo_16_bit: ; 13/01/2025 (mp3play3.s) mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] ; 13/01/2025 shr ecx, 2 ; dword count lff8s2_1: lodsw stosw ; original sample (L) ; 15/11/2023 add ah, 80h ; convert sound level to 0-65535 format mov [previous_val_l], ax lodsw stosw ; original sample (R) add ah, 80h ; convert sound level to 0-65535 format mov [previous_val_r], ax xor edx, edx xor eax, eax ; 16/11/2023 dec ecx jz short lff8s2_2 mov ax, [esi] mov dx, [esi+2] lff8s2_2: add ah, 80h ; convert sound level to 0-65535 format mov [next_val_l], ax add dh, 80h ; convert sound level to 0-65535 format mov [next_val_r], dx add ax, [previous_val_l] rcr ax, 1 mov edx, eax ; this is interpolated middle (3th) sample (L) add ax, [previous_val_l] rcr ax, 1 mov ebx, eax ; this is temporary interpolation value (L) add ax, [previous_val_l] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is 1st interpolated sample (L) mov ax, [next_val_r] add ax, [previous_val_r] rcr ax, 1 mov ebp, eax ; this is interpolated middle (3th) sample (R) add ax, [previous_val_r] rcr ax, 1 push eax ; * ; this is temporary interpolation value (R) add ax, [previous_val_r] rcr ax, 1 sub ah, 80h stosw ; this is 1st interpolated sample (R) mov eax, ebx add ax, dx rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is 2nd interpolated sample (L) pop eax ; * add ax, bp rcr ax, 1 sub ah, 80h stosw ; this is 2nd interpolated sample (R) mov eax, edx sub ah, 80h stosw ; this is middle (3th) interpolated sample (L) mov eax, ebp sub ah, 80h ; -32768 to +32767 format again stosw ; this is middle (3th) interpolated sample (R) mov ax, [next_val_l] add ax, dx rcr ax, 1 mov ebx, eax ; this is temporary interpolation value (L) add ax, dx rcr ax, 1 sub ah, 80h stosw ; this is 4th interpolated sample (L) mov ax, [next_val_r] add ax, bp rcr ax, 1 push eax ; ** ; this is temporary interpolation value (R) add ax, bp rcr ax, 1 sub ah, 80h stosw ; this is 4th interpolated sample (R) mov ax, [next_val_l] add ax, bx rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is 5th interpolated sample (L) pop eax ; ** add ax, [next_val_r] rcr ax, 1 sub ah, 80h stosw ; this is 5th interpolated sample (R) ; 8 kHZ stereo to 48 kHZ stereo conversion of the sample is OK jecxz lff8_s2_9 jmp lff8s2_1 lff8_s2_9: ;jmp lff8s2_3 ; 17/02/2025 jmp lff8_3 ; =============== S U B R O U T I N E ======================================= load_16khz_mono_16_bit: ; 13/01/2025 (mp3play3.s) mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] ; 13/01/2025 shr ecx, 1 ; word count lff16m2_1: lodsw stosw ; original sample (left channel) stosw ; original sample (right channel) add ah, 80h ; convert sound level 0 to 65535 format ;mov [previous_val], ax mov ebx, eax xor eax, eax dec ecx jz short lff16m2_2 mov ax, [esi] lff16m2_2: add ah, 80h ; convert sound level 0 to 65535 format mov ebp, eax ; [next_val] ;add ax, [previous_val] add ax, bx rcr ax, 1 mov edx, eax ; this is temporary interpolation value ;add ax, [previous_val] add ax, bx rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is 1st interpolated sample (L) stosw ; this is 1st interpolated sample (R) mov eax, ebp add ax, dx rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is 2nd interpolated sample (L) stosw ; this is 2nd interpolated sample (R) ; 16 kHZ mono to 48 kHZ stereo conversion of the sample is OK or ecx, ecx jnz short lff16m2_1 ;jmp lff16m2_3 ; 17/02/2025 jmp lff16_3 ; =============== S U B R O U T I N E ======================================= load_16khz_stereo_16_bit: ; 13/01/2025 (mp3play3.s) mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] ; 13/01/2025 shr ecx, 2 ; dword count lff16s2_1: lodsw stosw ; original sample (L) add ah, 80h ; convert sound level 0 to 65535 format mov [previous_val_l], ax lodsw stosw ; original sample (R) add ah, 80h ; convert sound level 0 to 65535 format mov [previous_val_r], ax xor edx, edx xor eax, eax ; 16/11/2023 dec ecx jz short lff16s2_2 mov ax, [esi] mov dx, [esi+2] lff16s2_2: add ah, 80h ; convert sound level 0 to 65535 format ;mov [next_val_l], ax mov ebp, eax add dh, 80h ; convert sound level 0 to 65535 format mov [next_val_r], dx add ax, [previous_val_l] rcr ax, 1 mov edx, eax ; this is temporary interpolation value (L) add ax, [previous_val_l] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is 1st interpolated sample (L) mov ax, [next_val_r] add ax, [previous_val_r] rcr ax, 1 mov ebx, eax ; this is temporary interpolation value (R) add ax, [previous_val_r] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is 1st interpolated sample (R) ;mov ax, [next_val_l] mov eax, ebp add ax, dx rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is 2nd interpolated sample (L) mov ax, [next_val_r] add ax, bx rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is 2nd interpolated sample (R) ; 16 kHZ stereo to 48 kHZ stereo conversion of the sample is OK or ecx, ecx jnz lff16s2_1 ;jmp lff16s2_3 ; 17/02/2025 jmp lff16_3 ; =============== S U B R O U T I N E ======================================= load_24khz_mono_16_bit: ; 30/01/2025 ; 13/01/2025 (mp3play3.s) mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] ; 13/01/2025 shr ecx, 1 ; word count lff24m2_1: lodsw stosw ; original sample (left channel) stosw ; original sample (right channel) add ah, 80h ; convert sound level 0 to 65535 format ;mov [previous_val], ax ;mov ebx, eax ;xor eax, eax xor ebx, ebx dec ecx jz short lff24m2_2 ;mov ax, [esi] mov bx, [esi] lff24m2_2: ; 30/01/2025 add bh, 80h ; convert sound level 0 to 65535 format ;add ah, 80h ;mov ebp, eax ; [next_val] ;add ax, [previous_val] ; ax = [previous_val] ; bx = [next_val] add ax, bx rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is interpolated sample (L) stosw ; this is interpolated sample (R) ; 24 kHZ mono to 48 kHZ stereo conversion of the sample is OK or ecx, ecx jnz short lff24m2_1 jmp lff24_3 ; =============== S U B R O U T I N E ======================================= load_24khz_stereo_16_bit: ; 13/01/2025 (mp3play3.s) mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] ; 13/01/2025 shr ecx, 2 ; dword count lff24s2_1: lodsw stosw ; original sample (L) add ah, 80h ; convert sound level 0 to 65535 format mov [previous_val_l], ax lodsw stosw ; original sample (R) add ah, 80h ; convert sound level 0 to 65535 format ;mov [previous_val_r], ax mov ebx, eax xor edx, edx xor eax, eax ; 16/11/2023 dec ecx jz short lff24s2_2 mov ax, [esi] mov dx, [esi+2] lff24s2_2: add ah, 80h ; convert sound level 0 to 65535 format ;;mov [next_val_l], ax ;mov ebp, eax add dh, 80h ; convert sound level 0 to 65535 format ;mov [next_val_r], dx add ax, [previous_val_l] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is interpolated sample (L) ;mov ax, [next_val_r] mov eax, edx ;add ax, [previous_val_r] add ax, bx rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is interpolated sample (R) ; 24 kHZ stereo to 48 kHZ stereo conversion of the sample is OK or ecx, ecx jnz short lff24s2_1 jmp lff24_3 ; =============== S U B R O U T I N E ======================================= load_32khz_mono_16_bit: ; 13/01/2025 (mp3play3.s) mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] ; 13/01/2025 shr ecx, 1 ; word count lff32m2_1: lodsw stosw ; original sample (left channel) stosw ; original sample (right channel) add ah, 80h ; convert sound level 0 to 65535 format ;mov [previous_val], ax ;mov ebx, eax ;xor eax, eax xor ebx, ebx dec ecx jz short lff32m2_2 ;mov ax, [esi] mov bx, [esi] lff32m2_2: ;add ah, 80h ; convert sound level 0 to 65535 format ;mov ebp, eax ; [next_val] ;add ax, [previous_val] ; ax = [previous_val] ; bx = [next_val] add ax, bx rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is interpolated sample (L) stosw ; this is interpolated sample (R) ; different than 8-16-24 kHZ ! ; 'original-interpolated-original' trio samples jecxz lff32m2_3 lodsw stosw ; original sample (left channel) stosw ; original sample (right channel) ; 32 kHZ mono to 48 kHZ stereo conversion of the sample is OK dec ecx jnz short lff32m2_1 lff32m2_3: jmp lff32_3 ; =============== S U B R O U T I N E ======================================= load_32khz_stereo_16_bit: ; 13/01/2025 (mp3play3.s) mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] ; 13/01/2025 shr ecx, 2 ; dword count lff32s2_1: lodsw stosw ; original sample (L) add ah, 80h ; convert sound level 0 to 65535 format mov [previous_val_l], ax lodsw stosw ; original sample (R) add ah, 80h ; convert sound level 0 to 65535 format ;mov [previous_val_r], ax mov ebx, eax xor edx, edx xor eax, eax ; 16/11/2023 dec ecx jz short lff32s2_2 mov ax, [esi] mov dx, [esi+2] lff32s2_2: add ah, 80h ; convert sound level 0 to 65535 format ;;mov [next_val_l], ax ;mov ebp, eax add dh, 80h ; convert sound level 0 to 65535 format ;mov [next_val_r], dx add ax, [previous_val_l] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is interpolated sample (L) ;mov ax, [next_val_r] mov eax, edx ;add ax, [previous_val_r] add ax, bx rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; this is interpolated sample (R) ; different than 8-16-24 kHZ ! ; 'original-interpolated-original' trio samples jecxz lff32s2_3 lodsw stosw ; original sample (L) lodsw stosw ; original sample (R) ; 32 kHZ stereo to 48 kHZ stereo conversion of the sample is OK dec ecx jnz short lff32s2_1 lff32s2_3: jmp lff32_3 ; =============== S U B R O U T I N E ======================================= load_22khz_mono_16_bit: ; 13/01/2025 (mp3play3.s) mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] ; 13/01/2025 shr ecx, 1 ; word count lff22m2_9: mov ebp, 5 ; interpolation (one step) loop count mov byte [faz], 3 ; 3 steps/phases lff22m2_1: ; 3:2:2:2:2:2::3:2:2:2:2::3:2:2:2:2:2 ; 37/17 lodsw xor edx, edx dec ecx jz short lff22m2_2_1 mov dx, [esi] lff22m2_2_1: ; ax = [previous_val] ; dx = [next_val] call interpolating_3_16bit_mono ; 1 of 17 jecxz lff22m2_3 lff22m2_2_2: lodsw xor edx, edx dec ecx jz short lff22m2_2_3 mov dx, [esi] lff22m2_2_3: call interpolating_2_16bit_mono ; 2 of 17 .. 6 of 17 jecxz lff22m2_3 dec ebp jnz short lff22m2_2_2 mov al, [faz] dec al jz short lff22m2_9 dec byte [faz] mov ebp, 4 dec al jnz short lff22m2_1 ; 3:2:2:2:2 ; 7-11 of 17 inc ebp ; 5 jmp short lff22m2_1 ; 3:2:2:2:2:2 ; 12-17 of 17 lff22m2_3: lff22s2_3: jmp lff22_3 ; padfill ; (put zeros in the remain words of the buffer) ; =============== S U B R O U T I N E ======================================= load_22khz_stereo_16_bit: ; 13/01/2025 (mp3play3.s) mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] ; 13/01/2025 shr ecx, 2 ; dword count lff22s2_9: mov ebp, 5 ; interpolation (one step) loop count mov byte [faz], 3 ; 3 steps/phase lff22s2_1: ; 3:2:2:2:2:2::3:2:2:2:2::3:2:2:2:2:2 ; 37/17 lodsw mov ebx, eax lodsw mov edx, [esi] mov [next_val_l], dx ; 26/11/2023 shr edx, 16 dec ecx jnz short lff22s2_2_1 xor edx, edx ; 0 mov [next_val_l], dx lff22s2_2_1: ; bx = [previous_val_l] ; ax = [previous_val_r] ; [next_val_l] ; dx = [next_val_r] call interpolating_3_16bit_stereo ; 1 of 17 jecxz lff22s2_3 lff22s2_2_2: lodsw mov ebx, eax lodsw mov edx, [esi] mov [next_val_l], dx ; 26/11/2023 shr edx, 16 dec ecx jnz short lff22s2_2_3 xor edx, edx ; 0 mov [next_val_l], dx lff22s2_2_3: call interpolating_2_16bit_stereo ; 2 of 17 .. 6 of 17 jecxz lff22s2_2_4 dec ebp jnz short lff22s2_2_2 mov al, [faz] dec al jz short lff22s2_9 dec byte [faz] mov ebp, 4 dec al jnz short lff22s2_1 ; 3:2:2:2:2 ; 7-11 of 17 inc ebp ; 5 jmp short lff22s2_1 ; 3:2:2:2:2:2 ; 12-17 of 17 lff22s2_2_4: ; 26/11/2023 jmp lff22_3 ; padfill ; =============== S U B R O U T I N E ======================================= load_11khz_mono_16_bit: ; 13/01/2025 (mp3play3.s) mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] ; 13/01/2025 shr ecx, 1 ; word count lff11m2_9: mov ebp, 6 ; interpolation (one step) loop count lff11m2_1: ; 5:4:4::5:4:4::5:4:4::5:4:4::5:4:4::5:4 ; 74/17 lodsw xor edx, edx dec ecx jz short lff11m2_2_1 mov dx, [esi] lff11m2_2_1: ; ax = [previous_val] ; dx = [next_val] call interpolating_5_16bit_mono jecxz lff11m2_3 lff11m2_2_2: lodsw xor edx, edx dec ecx jz short lff11m2_2_3 mov dx, [esi] lff11m2_2_3: call interpolating_4_16bit_mono jecxz lff11m2_3 dec ebp jz short lff11m2_9 lodsw xor edx, edx dec ecx jz short lff11m2_2_4 mov dx, [esi] lff11m2_2_4: call interpolating_4_16bit_mono jecxz lff11m2_3 jmp short lff11m2_1 lff11m2_3: jmp lff11_3 ; padfill ; (put zeros in the remain words of the buffer) ; =============== S U B R O U T I N E ======================================= load_11khz_stereo_16_bit: ; 13/01/2025 (mp3play3.s) mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] ; 13/01/2025 shr ecx, 2 ; dword count lff11s2_9: mov ebp, 6 ; interpolation (one step) loop count lff11s2_1: ; 5:4:4::5:4:4::5:4:4::5:4:4::5:4:4::5:4 ; 74/17 lodsw mov ebx, eax lodsw mov edx, [esi] ; 15/01/2025 ;mov [next_val_l], edx ; 26/11/2023 ;shr edx, 16 ;mov [next_val_r], dx dec ecx jnz short lff11s2_2_1 xor edx, edx ; 0 ;mov [next_val_l], dx ;mov [next_val_r], dx lff11s2_2_1: ; bx = [previous_val_l] ; ax = [previous_val_r] ; [next_val_l] ; dx = [next_val_r] ;;; ; 15/01/2025 (BugFix) mov [next_val_l], edx ;;; call interpolating_5_16bit_stereo jecxz lff11s2_3 lff11s2_2_2: lodsw mov ebx, eax lodsw mov edx, [esi] ; 15/01/2025 ;mov [next_val_l], dx ; 26/11/2023 ;shr edx, 16 ;mov [next_val_r], dx dec ecx jnz short lff11s2_2_3 xor edx, edx ; 0 ;mov [next_val_l], dx ;mov [next_val_r], dx lff11s2_2_3: ;;; ; 15/01/2025 (BugFix) mov [next_val_l], edx ;;; call interpolating_4_16bit_stereo jecxz lff11s2_3 dec ebp jz short lff11s2_9 lodsw mov ebx, eax lodsw mov edx, [esi] ; 15/01/2025 ;mov [next_val_l], dx ; 26/11/2023 ;shr edx, 16 ;mov [next_val_r], dx dec ecx jnz short lff11s2_2_4 xor edx, edx ; 0 ;mov [next_val_l], dx ;mov [next_val_r], dx lff11s2_2_4: ;;; ; 15/01/2025 (BugFix) mov [next_val_l], edx ;;; call interpolating_4_16bit_stereo jecxz lff11s2_3 jmp short lff11s2_1 lff11s2_3: jmp lff11_3 ; padfill ; (put zeros in the remain words of the buffer) ; =============== S U B R O U T I N E ======================================= load_44khz_mono_16_bit: ; 13/01/2025 (mp3play3.s) mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] ; 13/01/2025 shr ecx, 1 ; word count lff44m2_9: mov ebp, 10 ; interpolation (one step) loop count mov byte [faz], 2 ; 2 steps/phases lff44m2_1: ; 2:1:1:1:1:1:1:1:1:1:1:: ; 25/23 ; 2:1:1:1:1:1:1:1:1:1:1:1 lodsw xor edx, edx dec ecx jz short lff44m2_2_1 mov dx, [esi] lff44m2_2_1: ; ax = [previous_val] ; dx = [next_val] call interpolating_2_16bit_mono jecxz lff44m2_3 lff44m2_2_2: lodsw stosw ; (L)eft Channel stosw ; (R)ight Channel dec ecx jz short lff44m2_3 dec ebp jnz short lff44m2_2_2 dec byte [faz] jz short lff44m2_9 mov ebp, 11 jmp short lff44m2_1 lff44m2_3: lff44s2_3: jmp short lff44_3 ; padfill ; (put zeros in the remain words of the buffer) ; =============== S U B R O U T I N E ======================================= load_44khz_stereo_16_bit: ; 13/01/2025 (mp3play3.s) mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] ; 13/01/2025 shr ecx, 2 ; dword count lff44s2_9: mov ebp, 10 ; interpolation (one step) loop count mov byte [faz], 2 ; 2 steps/phase lff44s2_1: ; 2:1:1:1:1:1:1:1:1:1:1:: ; 25/23 ; 2:1:1:1:1:1:1:1:1:1:1:1 lodsw mov ebx, eax lodsw ;mov dx, [esi] ;mov [next_val_l], dx ;mov dx, [esi+2] ; 26/11/2023 mov edx, [esi] mov [next_val_l], dx shr edx, 16 dec ecx jnz short lff44s2_2_1 xor edx, edx ; 0 mov [next_val_l], dx lff44s2_2_1: ; bx = [previous_val_l] ; ax = [previous_val_r] ; [next_val_l] ; dx = [next_val_r] call interpolating_2_16bit_stereo jecxz lff44s2_3 lff44s2_2_2: ;movsw ; (L)eft Channel ;movsw ; (R)ight Channel movsd dec ecx ;jz short lff44s2_3 ; 17/02/2025 jz short lff44_3 dec ebp jnz short lff44s2_2_2 dec byte [faz] jz short lff44s2_9 mov ebp, 11 jmp short lff44s2_1 ; --------------------------------------------------------------------------- ; 17/02/2025 ; padfill ; (put zeros in the remain words of the buffer) lff44_3: lff32_3: lff24_3: lff22_3: lff16_3: lff12_3: lff11_3: lff8_3: ; 17/02/2025 mov ecx, [buffer_size] ; 16 bit (48 kHZ, stereo) samples add ecx, sample_buffer sub ecx, edi jna short lff44_4 ; jbe sub ecx, edi ;inc ecx shr ecx, 2 xor eax, eax ; fill (remain part of) buffer with zeros rep stosd lff44_4: retn ; =============== S U B R O U T I N E ======================================= ; 01/02/2025 load_12khz_mono_16_bit: mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] shr ecx, 1 ; word count lff12m2_9: mov ebp, 6 ; interpolation (one step) loop count lff12m2_1: ; original-interpolated-interpolated-interpolated lodsw xor edx, edx dec ecx jz short lff12m2_2 mov dx, [esi] lff12m2_2: ; ax = [previous_val] ; dx = [next_val] call interpolating_4_16bit_mono jecxz lff12_3 ; 17/02/2025 jmp short lff12m2_1 ; =============== S U B R O U T I N E ======================================= ; 01/02/2025 load_12khz_stereo_16_bit: mov esi, decoding_buffer ; (contains 8bit stereo samples) mov edi, sample_buffer ; wav output buffer mov ecx, [loadsize] shr ecx, 2 ; dword count lff12s2_1: ; original-interpolated-interpolated-interpolated lodsw mov ebx, eax lodsw mov edx, [esi] dec ecx jnz short lff12s2_2 xor edx, edx ; 0 lff12s2_2: mov [next_val_l], dx shr edx, 16 mov [next_val_r], dx ; bx = [previous_val_l] ; ax = [previous_val_r] ; [next_val_l] ; [next_val_r] call interpolating_4_16bit_stereo jecxz lff12_3 ; 17/02/2025 jmp short lff12s2_1 ; =============== S U B R O U T I N E ======================================= interpolating_3_16bit_mono: ; 16/11/2023 ; ax = [previous_val] ; dx = [next_val] ; original-interpolated-interpolated stosw ; original sample (L) stosw ; original sample (R) add ah, 80h ; convert sound level 0 to 65535 format push eax ; * ; [previous_val] add dh, 80h add ax, dx rcr ax, 1 pop ebx ; * xchg ebx, eax ; bx = interpolated middle (temporary) add ax, bx ; [previous_val] + interpolated middle rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 1 (L) stosw ; interpolated sample 1 (R) mov eax, ebx add ax, dx ; interpolated middle + [next_val] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 2 (L) stosw ; interpolated sample 2 (R) retn ; =============== S U B R O U T I N E ======================================= interpolating_3_16bit_stereo: ; 16/11/2023 ; bx = [previous_val_l] ; ax = [previous_val_r] ; [next_val_l] ; dx = [next_val_r] ; original-interpolated-interpolated xchg eax, ebx stosw ; original sample (L) xchg eax, ebx stosw ; original sample (R) add ah, 80h ; convert sound level 0 to 65535 format push eax ; * ; [previous_val_r] add bh, 80h add byte [next_val_l+1], 80h mov ax, [next_val_l] add ax, bx ; [previous_val_l] rcr ax, 1 xchg eax, ebx ; ax = [previous_val_l] add ax, bx ; bx = interpolated middle (L) rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 1 (L) pop eax ; * add dh, 80h ; convert sound level 0 to 65535 format push edx ; * ; [next_val_r] xchg eax, edx add ax, dx ; [next_val_r] + [previous_val_r] rcr ax, 1 ; / 2 push eax ; ** ; interpolated middle (R) add ax, dx ; + [previous_val_r] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 1 (R) mov ax, [next_val_l] add ax, bx ; + interpolated middle (L) rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 2 (L) pop eax ; ** pop edx ; * add ax, dx ; interpolated middle + [next_val_r] rcr ax, 1 ; / 2 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 2 (L) retn ; =============== S U B R O U T I N E ======================================= interpolating_2_16bit_mono: ; 16/11/2023 ; ax = [previous_val] ; dx = [next_val] ; original-interpolated stosw ; original sample (L) stosw ; original sample (R) add ah, 80h ; convert sound level 0 to 65535 format add dh, 80h add ax, dx rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample (L) stosw ; interpolated sample (R) retn ; =============== S U B R O U T I N E ======================================= interpolating_2_16bit_stereo: ; 16/11/2023 ; bx = [previous_val_l] ; ax = [previous_val_r] ; [next_val_l] ; dx = [next_val_r] ; original-interpolated xchg eax, ebx stosw ; original sample (L) xchg eax, ebx stosw ; original sample (R) add ah, 80h ; convert sound level 0 to 65535 format add dh, 80h add ax, dx ; [previous_val_r] + [next_val_r] rcr ax, 1 ; / 2 ; 14/01/2025 sub ah, 80h ; -32768 to +32767 format again ;push eax ; * ; interpolated sample (R) ; 14/01/2025 shl eax, 16 mov ax, [next_val_l] add ah, 80h add bh, 80h add ax, bx ; [next_val_l] + [previous_val_l] rcr ax, 1 ; / 2 sub ah, 80h ; -32768 to +32767 format again ; 14/01/2025 ;stosw ; interpolated sample (L) ;pop eax ; * ;sub ah, 80h ; -32768 to +32767 format again ;stosw ; interpolated sample (R) ; 14/01/2025 stosd retn ; =============== S U B R O U T I N E ======================================= interpolating_5_16bit_mono: ; 18/11/2023 ; ax = [previous_val] ; dx = [next_val] ; original-interpltd-interpltd-interpltd-interpltd stosw ; original sample (L) stosw ; original sample (R) add ah, 80h ; convert sound level 0 to 65535 format mov ebx, eax ; [previous_val] add dh, 80h add ax, dx rcr ax, 1 push eax ; * ; interpolated middle (temporary) add ax, bx ; interpolated middle + [previous_val] rcr ax, 1 push eax ; ** ; interpolated 1st quarter (temporary) add ax, bx ; 1st quarter + [previous_val] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 1 (L) stosw ; interpolated sample 1 (R) pop eax ; ** pop ebx ; * add ax, bx ; 1st quarter + middle rcr ax, 1 ; / 2 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 2 (L) stosw ; interpolated sample 2 (R) mov eax, ebx add ax, dx ; interpolated middle + [next_val] rcr ax, 1 push eax ; * ; interpolated 3rd quarter (temporary) add ax, bx ; + interpolated middle rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 3 (L) stosw ; interpolated sample 3 (R) pop eax ; * add ax, dx ; 3rd quarter + [next_val] rcr ax, 1 ; / 2 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 4 (L) stosw ; interpolated sample 4 (R) retn ; =============== S U B R O U T I N E ======================================= interpolating_5_16bit_stereo: ; 18/11/2023 ; bx = [previous_val_l] ; ax = [previous_val_r] ; [next_val_l] ; [next_val_r] ; original-interpltd-interpltd-interpltd-interpltd push ecx ; ! xchg eax, ebx stosw ; original sample (L) xchg eax, ebx stosw ; original sample (R) add ah, 80h ; convert sound level 0 to 65535 format push eax ; * ; [previous_val_r] add bh, 80h add byte [next_val_l+1], 80h mov ax, [next_val_l] add ax, bx ; [previous_val_l] rcr ax, 1 mov ecx, eax ; interpolated middle (L) add ax, bx rcr ax, 1 mov edx, eax ; interpolated 1st quarter (L) add ax, bx ; [previous_val_l] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 1 (L) mov eax, ecx add ax, dx ; middle (L) + 1st quarter (L) rcr ax, 1 ; / 2 mov ebx, eax ; interpolated sample 2 (L) pop edx ; * ; [previous_val_r] mov eax, edx add byte [next_val_r+1], 80h add ax, [next_val_r] rcr ax, 1 push eax ; * ; interpolated middle (R) add ax, dx rcr ax, 1 push eax ; ** ; interpolated 1st quarter (R) add ax, dx ; [previous_val_r] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 1 (R) mov eax, ebx sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 2 (L) pop eax ; ** pop edx ; * add ax, dx ; 1st quarter (R) + middle (R) rcr ax, 1 ; / 2 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 2 (R) mov eax, ecx add ax, [next_val_l] rcr ax, 1 push eax ; * ; interpolated 3rd quarter (L) add ax, cx ; interpolated middle (L) rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 3 (L) mov eax, edx add ax, [next_val_r] rcr ax, 1 push eax ; ** ; interpolated 3rd quarter (R) add ax, dx ; interpolated middle (R) rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 3 (R) pop ebx ; ** pop eax ; * add ax, [next_val_l] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 4 (L) mov eax, ebx add ax, [next_val_r] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 4 (R) pop ecx ; ! retn ; =============== S U B R O U T I N E ======================================= interpolating_4_16bit_mono: ; 18/11/2023 ; ax = [previous_val] ; dx = [next_val] ; 01/02/2025 ; original-interpolated-interpolated-interpolated stosw ; original sample (L) stosw ; original sample (R) add ah, 80h ; convert sound level 0 to 65535 format mov ebx, eax ; [previous_val] add dh, 80h add ax, dx ; [previous_val] + [next_val] rcr ax, 1 xchg eax, ebx add ax, bx ; [previous_val] + interpolated middle rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 1 (L) stosw ; interpolated sample 1 (R) mov eax, ebx ; interpolated middle sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 2 (L) stosw ; interpolated sample 2 (R) mov eax, ebx add ax, dx ; interpolated middle + [next_val] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 3 (L) stosw ; interpolated sample 3 (R) retn ; =============== S U B R O U T I N E ======================================= interpolating_4_16bit_stereo: ; 18/11/2023 ; bx = [previous_val_l] ; ax = [previous_val_r] ; [next_val_l] ; [next_val_r] ; original-interpolated-interpolated-interpolated xchg eax, ebx stosw ; original sample (L) xchg eax, ebx stosw ; original sample (R) add ah, 80h ; convert sound level 0 to 65535 format mov edx, eax ; [previous_val_r] add bh, 80h add byte [next_val_l+1], 80h mov ax, [next_val_l] add ax, bx ; [previous_val_l] rcr ax, 1 xchg eax, ebx add ax, bx ; bx = interpolated middle (L) rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 1 (L) add byte [next_val_r+1], 80h mov eax, edx ; [previous_val_r] add ax, [next_val_r] rcr ax, 1 xchg eax, edx add ax, dx ; dx = interpolated middle (R) rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 1 (R) mov eax, ebx sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 2 (L) mov eax, edx sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 2 (R) mov eax, ebx add ax, [next_val_l] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 3 (L) mov eax, edx add ax, [next_val_r] rcr ax, 1 sub ah, 80h ; -32768 to +32767 format again stosw ; interpolated sample 3 (R) retn ; --------------------------------------------------------------------------- ; 13/11/2023 previous_val: previous_val_l: dw 0 previous_val_r: dw 0 next_val: next_val_l: dw 0 next_val_r: dw 0 ; 16/11/2023 faz: db 0 ; --------------------------------------------------------------------------- ; 12/01/2025 - Hardware Info display/write procedures. ; --------------------------------------------------------------------------- ; ref: playwav9.s (18/12/2024) - sb16play.s (20/12/2024) ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 (mp3play5.s) - 640*480, 256 colors - ; 12/01/2025 write_audio_dev_info: cmp byte [audio_hardware], 2 jb short write_sb16_dev_info ; SB16 je short write_ac97_pci_dev_info ; AC97 retn ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 (mp3play5.s) - 640*480, 256 colors - ; 20/12/2024 (playwavx.s, sb16play.s) write_sb16_dev_info: ; 27/11/2024 ; 24/11/2024 (sb16play.asm) mov eax, [audio_io_base] xor ebx, ebx mov bl, al mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgBasePort+2], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgBasePort+1], al mov bl, ah ;and bl, 0Fh mov al, [ebx+hex_chars] mov [msgBasePort], al ;xor eax, eax ; 27/11/2024 mov al, [audio_intr] ;mov cl, 10 ;div cl ;add ah, 30h ;mov [msgIRQnum], ah ; 25/11/2024 add al, 30h mov [msgIRQnum], al ; 12/01/2025 ; 22/01/2025 ;;;; call clear_window ;mov dh, 12 ; 26/01/2025 mov dh, 15 mov dl, 0 call setCursorPosition ;;;; ; 12/01/2025 ; 20/12/2024 ;sys _msg, msgSB16Info, 255, 07h ; 26/01/2025 mov ebp, msgSB16Info call sys_gmsg ; 22/01/2025 ;retn jmp write_buffer_size ; =============== S U B R O U T I N E ======================================= ; 25/02/2025 (mp3play8.s) ; 26/01/2025 (mp3play5.s) - 640*480, 256 colors - write_ac97_pci_dev_info: ; 19/11/2024 ; 30/05/2024 ; 06/06/2017 ; 03/06/2017 ; BUS/DEV/FN ; 00000000BBBBBBBBDDDDDFFF00000000 ; DEV/VENDOR ; DDDDDDDDDDDDDDDDVVVVVVVVVVVVVVVV mov eax, [dev_vendor] xor ebx, ebx mov bl, al mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgVendorId+3], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgVendorId+2], al mov bl, ah mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgVendorId+1], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgVendorId], al shr eax, 16 mov bl, al mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgDevId+3], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgDevId+2], al mov bl, ah mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgDevId+1], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgDevId], al mov eax, [bus_dev_fn] shr eax, 8 mov bl, al mov dl, bl and bl, 7 ; bit 0,1,2 mov al, [ebx+hex_chars] mov [msgFncNo+1], al mov bl, dl shr bl, 3 mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgDevNo+1], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgDevNo], al mov bl, ah mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgBusNo+1], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgBusNo], al ;mov ax, [ac97_NamBar] mov ax, [NAMBAR] mov bl, al mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgNamBar+3], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgNamBar+2], al mov bl, ah mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgNamBar+1], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgNamBar], al ;mov ax, [ac97_NabmBar] mov ax, [NABMBAR] mov bl, al mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgNabmBar+3], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgNabmBar+2], al mov bl, ah mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgNabmBar+1], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgNabmBar], al xor eax, eax mov al, [ac97_int_ln_reg] mov cl, 10 div cl ; 23/11/2024 ;add [msgIRQ], ax add ax, 3030h mov [msgIRQ], ax ;and al, al cmp al, 30h jnz short _w_ac97imsg_ mov al, byte [msgIRQ+1] mov ah, ' ' mov [msgIRQ], ax _w_ac97imsg_: ; 22/01/2025 ;;;; call clear_window ;mov dh, 12 ; 26/01/2025 mov dh, 14 ; 26/01/2025 ; ; 23/01/2025 ; ;;; ; cmp byte [blocks], 0 ; ja short _w_ac97imsg_@ ; dec dh ;_w_ac97imsg_@: ; ;;; mov dl, 0 call setCursorPosition ;;;; ; 12/01/2025 ; 01/12/2024 ;sys _msg, msgAC97Info, 255, 07h ; 26/01/2025 mov ebp, msgAC97Info call sys_gmsg ; 19/11/2024 ;retn ; --------------------------------------------------------------------------- ; 26/01/2025 ; 30/05/2024 write_VRA_info: ; 12/01/2025 ; 01/12/2024 ;sys _msg, msgVRAheader, 255, 07h ; 26/01/2025 mov ebp, msgVRAheader call sys_gmsg cmp byte [vra], 0 jna short _w_VRAi_no _w_VRAi_yes: ;sys _msg, msgVRAyes, 255, 07h ; 26/01/2025 mov ebp, msgVRAyes call sys_gmsg ; 22/01/2025 ;retn jmp short write_buffer_size _w_VRAi_no: ;sys _msg, msgVRAno, 255, 07h ; 26/01/2025 mov ebp, msgVRAno call sys_gmsg ; 13/01/2025 cmp byte [interpolation], 0 ja short _w_VRAi_no_yes ;sys _msg, crlf, 2, 07h ; 26/01/2025 mov ebp, crlf call sys_gmsg ; 22/01/2025 ;retn jmp short write_buffer_size _w_VRAi_no_yes: ;sys _msg, msgInterp, 255, 07h ; 22/01/2025 ;retn ; 27/01/2025 mov ebp, msgInterp call sys_gmsg ; =============== S U B R O U T I N E ======================================= ; 25/02/2025 (mp3play8.s) ; 29/01/2025 ; 26/01/2025 (mp3play5.s) - graphics mode - ; 22/01/2025 ; 13/01/2025 (mp3play4.s) - text mode - ; 12/01/2025 write_buffer_size: ; 29/01/2025 ;;; ;mov al, [blocks] ; (must be less than 10) ;add al, '0' ;mov byte [blocks_txt], al ;;; cmp byte [interpolation], 1 jnb short write_buffer_size_x ;;; ;mov edx, buffersize_txt ;call wrstr_edx ; 26/01/2025 mov ebp, buffersize_txt call sys_gmsg mov eax, [buffer_size] ;call wr_decimal_eax_with_thousands_seperator ; 26/01/2025 call convert_to_string mov ebp, txtfilesize ; temporary string address call sys_gmsg ;mov edx, bytes_txt ;call wrstr_edx ;retn ; 26/01/2025 mov ebp, bytes_txt jmp short sys_gmsg ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 ; 13/01/2025 (Indirect interpolation info) write_buffer_size_x: ;mov edx, buffers1_txt ;call wrstr_edx ; 26/01/2025 mov ebp, buffers1_txt call sys_gmsg mov eax, [loadsize] ; decoding buffer size ; 15/01/2025 ;call wr_decimal_eax_with_thousands_seperator ; 26/01/2025 call convert_to_string mov ebp, txtfilesize ; temporary string address call sys_gmsg call w_dbuff_bytes ;mov edx, buffers2_txt ;call wrstr_edx ; 26/01/2025 mov ebp, buffers2_txt call sys_gmsg mov eax, [buffer_size] ; wav buffer size ;call wr_decimal_eax_with_thousands_seperator ; 26/01/2025 call convert_to_string mov ebp, txtfilesize ; temporary string address call sys_gmsg w_dbuff_bytes: ;mov edx, bytes2_txt ;call wrstr_edx ;retn ; 26/01/2025 mov ebp, bytes2_txt ;jmp short sys_gmsg ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 (mp3play5.s) ; 22/12/2024 (vgaplay.s) ;;; ; 21/12/2024 ; (write message in VGA/VESA-VBE mode) sys_gmsg: mov al, [ebp] and al, al jz short sys_gmsg_ok cmp al, 20h jnb short sys_gmsg_3 cmp al, 13 ; CR jne short sys_gmsg_2 ; carriege return, move cursor to column 0 mov word [screenpos], 0 sys_gmsg_1: inc ebp jmp short sys_gmsg sys_gmsg_2: cmp al, 10 ; LF jne short sys_gmsg_ok ; 22/12/2024 ; line feed, move cursor to next row add word [screenpos+2], 16 jmp short sys_gmsg_1 sys_gmsg_3: mov esi, [screenpos] ; hw = (cursor) row ; si = (cursor) column mov ecx, 07h ; gray (light) call write_character add esi, 8 ;;; cmp si, 640 jb short sys_gmsg_5 shr esi, 16 add si, 16 cmp si, 480 jb short sys_gmsg_4 xor esi, esi sys_gmsg_4: shl esi, 16 ;;; sys_gmsg_5: mov [screenpos], esi inc ebp jmp short sys_gmsg sys_gmsg_ok: retn ;;; ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 ; convert number to string with thousand separator convert_to_string: cfs: mov ebx, 10 mov ebp, esp xor ecx, ecx mov edi, txtfilesize mov esi, edi .cfs_lop: xor edx, edx div ebx add dl, '0' push edx inc ecx cmp cl, 3 jb short .cfs_1 or eax, eax jz short .cfs_2 sub ecx, ecx mov dl, ',' push edx .cfs_1: and eax, eax jnz short .cfs_lop .cfs_2: pop eax stosb cmp esp, ebp jb short .cfs_2 xor eax, eax ; 0 stosb ; asciiz string retn ; --------------------------------------------------------------------------- ; 25/02/2025 ; 22/01/2025 ; 11/01/2025 buffersize_txt db 0Dh, 0Ah db ' Buffer Size: ', 0 ; 22/01/2025 ; 13/01/2025 buffers1_txt db 0Dh, 0Ah db ' Buffer size for', 0Dh, 0Ah db ' decoding is ', 0 buffers2_txt db ' pcm output is ', 0 ; 29/01/2025 bytes_txt: bytes2_txt: db ' bytes ', 0Dh, 0Ah, 0 ; --------------------------------------------------------------------------- ; 19/11/2024 ; 03/06/2017 hex_chars db "0123456789ABCDEF", 0 msgAC97Info db 0Dh, 0Ah db " AC97 Audio Controller & Codec Info", 0Dh, 0Ah db " Vendor ID: " msgVendorId db "0000h Device ID: " msgDevId db "0000h", 0Dh, 0Ah db " Bus: " msgBusNo db "00h Device: " msgDevNo db "00h Function: " msgFncNo db "00h" db 0Dh, 0Ah db " NAMBAR: " msgNamBar db "0000h " db "NABMBAR: " msgNabmBar db "0000h IRQ: " msgIRQ dw 3030h db 0Dh, 0Ah, 0 ; 25/11/2023 msgVRAheader db " VRA support: " db 0 msgVRAyes db "YES", 0Dh, 0Ah, 0 msgVRAno db "NO " ; 13/01/2025 ;db "NO ", 0Dh, 0Ah ; 12/01/2025 ;db " (Interpolated sample rate playing method)" db 0 ;db 0Dh, 0Ah, 0 ; 13/01/2025 msgInterp db "(INTERPOLATION: YES)" db 0Dh, 0Ah, 0 ; --------------------------------------------------------------------------- ; 24/11/2024 msgSB16Info db 0Dh, 0Ah db " Audio Hardware: Sound Blaster 16", 0Dh, 0Ah db " Base Port: " msgBasePort db "000h", 0Dh, 0Ah db " IRQ: " msgIRQnum db 30h ; 12/01/2025 crlf: ; 13/01/2025 db 0Dh, 0Ah, 0 ; 13/01/2025 ; --------------------------------------------------------------------------- ; 25/11/2023 msg_no_vra: db 10, 13 db "No VRA support ! Only 48 kHZ sample rate supported !" db 10, 13, 0 ; --------------------------------------------------------------------------- ; 22/01/2025 - Check Update Events ; --------------------------------------------------------------------------- ; ref: playwav9.s (17/01/2025) ; =============== S U B R O U T I N E ======================================= ; 25/02/2025 (mp3play8.s) ; 22/02/2025 (mp3play7.s) ; 26/01/2025 (mp3play5.s) ; 24/12/2024 (vgaplay.s) ; 23/01/2025 (mp3play4.s) ; 07/12/2024 (playwav9.s) checkUpdateEvents: call check4keyboardstop jc short .c4ue_ok push eax ; * or eax, eax jz .c4ue_cpt cmp al, 20h ; SPACE (spacebar) ; pause/play jne short .c4ue_chk_s cmp byte [stopped], 0 ja short .c4ue_chk_ps ; pause call audio_f_pause .c4ue_0_ind: ; stopped/paused indicator ;mov ax, 4E30h ;mov [0B8000h], ax ; 26/01/2025 mov bx, 0C30h call display_indicator jmp .c4ue_cpt .c4ue_chk_ps: cmp byte [stopped], 1 ja short .c4ue_replay ; continue to play (after a pause) call audio_f_play jmp .c4ue_cpt .c4ue_replay: pop eax ; * pop eax ; return address mov byte [stopped], 0 ; move to beginning ;mov eax, [stream_start] mov eax, [stream_begin] ; 1st [stream_pos] value mov [stream_pos], eax mov eax, [stream_size] mov [bytes_left], eax cmp byte [interpolation], 0 ja short .c4ue_rp_indr ; 22/02/2025 jmp replay.direct .c4ue_rp_indr: jmp replay.indirect .c4ue_ok: retn .c4ue_chk_s: cmp al, 'S' ; stop jne short .c4ue_chk_fb cmp byte [stopped], 0 ja short .c4ue_cpt ; Already stopped/paused .c4ue_stop: call audio_f_stop jmp short .c4ue_0_ind .c4ue_chk_fb: cmp al, 'F' jne short .c4ue_chk_b call move_forward jmp short .c4ue_cpt .c4ue_chk_b: cmp al, 'B' ;jne short .c4ue_chk_h ; 22/02/2025 jne short .c4ue_chk_n call move_backward jmp short .c4ue_cpt ; 25/02/2025 (mp3play8.s) ; 22/02/2025 (mp3play7.s) ; 05/02/2025 (ac97play.s) ;;; ; 25/12/2024 ; 29/11/2024 .c4ue_chk_n: cmp al, 'N' je short .c4ue_nps .c4ue_chk_p: cmp al, 'P' jne short .c4ue_chk_h .c4ue_nps: mov byte [stopped], 3 jmp short .c4ue_cpt ;;; .c4ue_chk_h: cmp al, 'H' ;jne short .c4ue_chk_cr ; 26/01/2025 jne short .c4ue_chk_g mov byte [wleds], 0 call write_audio_dev_info ; 26/01/2025 ;mov dh, 24 ;mov dl, 79 ;call setCursorPosition jmp short .c4ue_cpt ; 26/01/2025 ; 24/12/2024 .c4ue_chk_g: cmp al, 'G' je short .c4ue_g .c4ue_chk_cr: cmp al, 0Dh ; ENTER/CR key jne short .c4ue_cpt xor ebx, ebx ; 26/01/2025 ; 24/12/2024 (wave lighting points option) mov [p_mode], bl ; 0 mov bl, [wleds] inc bl and bl, 0Fh jnz short .c4ue_sc inc ebx .c4ue_sc: mov [wleds], bl shr bl, 1 mov al, [ebx+colors] ; 24/12/2024 mov [ccolor], al jc short .c4ue_g_@ ; 26/01/2025 ; 24/12/2024 call reset_wave_leds ; prepare all leds as turned off ;;; .c4ue_cpt: sys _time, 4 ; get timer ticks (18.2 ticks/second) pop ecx ; * cmp eax, [timerticks] je short .c4ue_skip_utt .c4ue_utt: mov [timerticks], eax jmp short .c4ue_cpt_@ ; 27/01/2025 ; 24/12/2024 .c4ue_g: cmp byte [wleds], 0 ja short .c4ue_g_@ ; inc byte [wleds] ; force wave lighting ('G' key) .c4ue_g_@: ; 26/01/2025 ;mov byte [wleds], 1 mov byte [p_mode], 1 ; points option enabled call clear_window jmp short .c4ue_cpt .c4ue_skip_utt: and ecx, ecx jz short .c4ue_uvb_ok .c4ue_cpt_@: cmp byte [stopped], 0 ja short .c4ue_uvb_ok call CalcProgressTime cmp eax, [ProgressTime] je short .c4ue_uvb ; same second, no need to update call UpdateProgressBar .c4ue_uvb: cmp byte [wleds], 0 jna short .c4ue_uvb_ok ; 26/01/2025 ; 24/12/2024 (wave points mode) cmp byte [p_mode], 0 ja short .c4ue_uwp call UpdateWaveLeds .c4ue_uvb_ok: ;clc retn ; 26/01/2025 .c4ue_uwp: ;call UpdateWavePoints ;retn jmp UpdateWavePoints ; =============== S U B R O U T I N E ======================================= ; -------------------------------------------------------- ; 22/01/2025 - Check for Keyboard Stop (Request) ; -------------------------------------------------------- ; 25/02/2025 ; 23/01/2025 ; 22/01/2025 check4keyboardstop: mov ah, 11h ; (TRDOS 386 keyboard interrupt) int 32h ;clc jz short .cksr mov ah, 10h int 32h ; 23/01/2025 ;;;; .clear_keyb_buf: push eax ; * ; clear keyboard buffer ;mov ah, 1 mov ah, 11h ; 25/02/2025 int 32h jz short .c4ks ;mov ah, 0 mov ah, 10h ; 25/02/2025 int 32h pop edx ; * jmp short .clear_keyb_buf ; TRDOS 386 system call ; sysstdio ; BL = 1 -> read a character on stdin (no wait) ;sys _stdio, 1 ;and eax, eax ;jz short .cksr ; 23/01/2025 .c4ks: pop eax ; * ;;;; ;;; ; (change PCM out volume) cmp al, '+' jne short .p_1 mov al, [volume_level] cmp al, 0 jna short .p_3 dec al jmp short .p_2 .p_1: cmp al, '-' jne short .p_4 mov al, [volume_level] cmp al, 31 jnb short .p_3 inc al .p_2: call SetMasterVolume jmp UpdateVolume .cksr: xor eax, eax .p_3: retn .p_4: ;cmp ah, 01 ; ESC cmp ax, 011Bh ; ESC je short .p_q ;cmp al, 03h ; CTRL+C cmp ax, 2E03h ; CTRL+C je short .p_q cmp al, 20h je short .p_r cmp al, 0Dh ; CR/ENTER je short .p_r and al, 0DFh ; 25/02/2025 mov [command], al ;cmp al, 'B' ;je short .p_r ;cmp al, 'F' ;je short .p_r cmp al, 'Q' ;je short .p_q ; 25/02/2025 je short .p_quit clc retn .p_q: ; 22/02/2025 mov byte [command], 'Q' .p_quit: stc .p_r: retn ; -------------------------------------------------------- ; 22/01/2025 - Goto Forward approx. 5 seconds ; -------------------------------------------------------- ; 25/02/2025 ; 23/01/2025 ; 22/01/2025 move_forward: ;; 5 seconds forward ;;;; ;xor ebp, ebp ; 0 ;;;; mov al, [srb] push eax ; * mov eax, [fb_count] mov ecx, [stream_size] mov edx, ecx sub edx, [bytes_left] add eax, edx jc short move_f@ ; 23/01/2025 mov edx, ecx sub edx, [fb_count] cmp eax, edx jna short move_bw_or_fw move_f@: mov eax, edx ; offset jmp short move_bw_or_fw ; -------------------------------------------------------- ; 22/01/2025 - Goto Backward approx. 5 seconds ; -------------------------------------------------------- ; 25/02/2025 ; 22/01/2025 move_backward: ;; 5 seconds backward ; 23/01/2025 ;;;; ;xor ebp, 1 ;;;; mov al, [srb] push eax ; * mov edx, [fb_count] mov ecx, [stream_size] ; the 1st/init value of [bytes_left] mov eax, ecx sub eax, [bytes_left] jna short move_bw@ sub eax, edx jnc short move_bw_or_fw move_bw@: xor eax, eax ; offset ; -------------------------------------------------------- ; 25/02/2025 ; 23/01/2025 ; 22/01/2025 move_bw_or_fw: pop ebx ; * ; skip position change if audio interrupt occurs ; during this f/b procedure ; (because [bytes_left] would be changed) cmp byte [srb], 0 jna short mfb_sp@ ; proper to change cmp bl, 0 jna short mfb_sp@@@ ; [srb] was 1 when starting this f/b procedure ; (so, there is not a conflict) mfb_sp@: ; pause playback, pause/start audio interrupt push ecx push eax call audio_f_pause pop eax pop ecx mov ebx, [stream_begin] ; the 1st/init value of [stream_pos] add ebx, eax mov [stream_pos], ebx ; ecx = [stream_size] ; eax = offset sub ecx, eax jnc short mfb_sp@@ xor ecx, ecx mfb_sp@@: ; 23/01/2025 mov [bytes_left], ecx ;;;; ; continue to playback call audio_f_play mfb_sp@@@: ; 23/01/2025 clear_keyb_buf: ; clear keyboard buffer ;mov ah, 1 mov ah, 11h ; 25/02/2025 int 32h jz short mfb_sp_ok ;mov ah, 0 mov ah, 10h ; 25/02/2025 int 32h jmp short clear_keyb_buf mfb_sp_ok: retn ; --------------------------------------------------------------------------- ; 25/01/2025 - Player Window Display Functions ; --------------------------------------------------------------------------- ; ref: vgaplay2.s (18/01/2025) ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 ; 25/01/2025 (mp3play5.s) ; 26/12/2024 (vgaplay.s) ; 21/12/2024 (dplayvga.s) ;;drawsplashscreen: ;; mov ebp, SplashScreen ;; ;;mov dword [nextrow], 00100000h ; 8*16 ;; ;mov dword [nextrow], 000E0000h ; 8*14 ;; ;mov esi, 0 ; row 0, column 0 ;; mov esi, 00020000h ; row 2, column 0 ; top margin = 2 ;; jmp short p_d_x drawplayingscreen: mov ebp, PlayingScreen ;mov dword [nextrow], 000E0000h ; 8*14 ; 26/01/2025 mov esi, 0 ; row 0, column 0 ;mov esi, 00070000h ; row 7, column 0 ; top margin = 7 p_d_x: mov byte [columns], 80 p_d_x_n: xor edx, edx mov dl, [ebp] and dl, dl jz short p_d_x_ok ; 28/02/2025 ;;;; cmp dl, 20h jne short p_d_x_@ ; 28/02/2025 ; !!!! ; clear previous character pixels ; (TRDOS 386 Kernel v2.0.9 has a bug: space character ; does not clear previous character pixels at same ; position) mov edi, fillblock sys _video, 020Fh, 0, 8001h jmp short p_d_x_@@ p_d_x_@: ;;;; shl edx, 4 ; * 16 (for 8x16 font) mov edi, fontbuff2 ; start of user font data add edi, edx ;; NOTE: Following system call writes fonts at ;; Std VGA video memory 0A0000h, BL bit 7 selects ;; screen width as 640 pixels (instead of 320 pixels) ;; so 8Fh is sub function 0Fh (write char) ;; with 640 pixels screen witdh. ;; (Even if VESA VBE mode -LFB- is in use, QEMU and ;; a real computer with NVIDIA GEFORCE FX 550 uses ;; A0000h, so.. even if fonts are written at A0000h-B0000h ;; region, the text is appeared on screen ;; while LFB is at C0000000h or E0000000h.) ;sys _video, 018Fh, [tcolor], 8001h ;; use STD VGA video memory ;; (0A0000h) ;sys _video, 020Fh, [tcolor], 8001h ; 8x16 user font ; use LFB for current VBE mode ; for writing fonts on screen ; 26/12/2024 sys _video, 020Fh, 0Fh, 8001h ; 8x16 user font p_d_x_@@: inc ebp add si, 8 ; next char pos dec byte [columns] jnz short p_d_x_n ; next column xor si, si ;;add esi, 00100000h ; next row ; 8*16 ;add esi, [nextrow] add esi, 000E0000h ; next row ; 8*14 jmp short p_d_x p_d_x_ok: retn ; =============== S U B R O U T I N E ======================================= ; 25/01/2025 if 0 ; 21/12/2024 clearscreen: ; fast clear ; 640*480, 256 colors mov edi, [LFB_ADDR] mov ecx, (640*480*1)/4 ; 22/12/2024 xor eax, eax rep stosd retn end if ; =============== S U B R O U T I N E ======================================= ; 25/01/2025 ; 21/12/2024 set_text_mode: xor ah, ah mov al, 3 ;int 10h ; al = 03h text mode, int 10 video int 31h ; TRDOS 386 - Video interrupt retn ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 ; 25/01/2025 (mp3play5.s) -graphics/VGA mode- ; 21/12/2024 (vgaplay.s) ; 22/01/2025 (mp3play4.s) -text mode- ; 21/01/2025 SetTotalTime: ;;;; 22/01/2025 mov ebx, [mp3_bit_rate] ; bit/s mov eax, ebx shr eax, 3 ; byte/s mov edx, 5 mul edx div dword [mp3_src_frame_size] ; eax = count of frames per 5 seconds and edx, edx jz short .skip@ inc eax .skip@: mul dword [mp3_src_frame_size] mov [fb_count], eax ; forward/backward count ;;;; mov eax, [stream_size] ; bytes mov edx, 8 ; 1 byte = 8 bits mul edx ;div dword [mp3_bit_rate] ; num of bits per sec div ebx ; 22/01/2025 ; eax = total seconds mov [TotalTime], eax mov bl, 60 div bl ;; al = minutes, ah = seconds push eax ; ** push eax ; * ; 25/01/2025 ;mov dh, 24 ; 21/12/2024 (640*480) ;mov dh, 32 ; 26/01/2025 mov dh, 33 mov dl, 42 call setCursorPosition pop eax ; * xor ah, ah mov ebp, 2 call PrintNumber ;mov dh, 24 ; 21/12/2024 (640*480) ;mov dh, 32 ; 26/01/2025 mov dh, 33 mov dl, 45 call setCursorPosition pop eax ; ** mov al, ah xor ah, ah ; 21/12/2024 mov bp, 2 ;jmp short PrintNumber ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 ; 25/01/2025 (mp3play5.s) ; 22/12/2024 (vgaplay.s) ; 21/12/2024 (write numbers in VESA VBE graphics mode) PrintNumber: ; eax = binary number ; ebp = digits mov esi, [screenpos] ; hw = row, si = column mov ebx, 10 xor ecx, ecx printNumber_CutNumber: inc ecx xor edx, edx div ebx push edx cmp ecx, ebp je short printNumber_printloop jmp printNumber_CutNumber printNumber_printloop: pop eax ; 21/12/2024 ; ebp = count of digits ; eax <= 9 add al, '0' ; esi = pixel position (hw = row, si = column) ; eax = al = character ;call write_character ; 22/12/2024 call write_character_white ; 26/01/2025 add esi, 8 ; next column dec ebp jz short printNumber_ok jmp short printNumber_printloop printNumber_ok: ; 26/01/2025 mov [screenpos], esi retn ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 ; 25/01/2025 (mp3play5.s) ; 21/12/2024 (vgaplay.s) ; 21/01/2025 (mp3play4.s) SetProgressTime: ;; Calculate playing/progress seconds in file call CalcProgressTime UpdateProgressTime: ; eax = (new) progress time mov [ProgressTime], eax mov bl, 60 div bl ;; al = minutes, ah = seconds push eax ; ** push eax ; * ; 25/01/2025 ;mov dh, 24 ; 21/12/2024 (640*480) ;mov dh, 32 ; 26/01/2025 mov dh, 33 mov dl, 33 call setCursorPosition pop eax ; * xor ah, ah mov ebp, 2 call PrintNumber ;mov dh, 24 ; 21/12/2024 (640*480) ;mov dh, 32 ; 26/01/2025 mov dh, 33 mov dl, 36 call setCursorPosition pop eax ; ** mov al, ah xor ah, ah ; ; 21/12/2024 mov bp, 2 jmp short PrintNumber ; =============== S U B R O U T I N E ======================================= ; 21/01/2025 CalcProgressTime: mov eax, [stream_size] ; bytes sub eax, [bytes_left] or eax, eax jz short cpt_ok mov edx, 8 ; 1 byte = 8 bits mul edx div dword [mp3_bit_rate] ; num of bits per sec ; eax = seconds cpt_ok: ; eax = (new) progress time retn ; =============== S U B R O U T I N E ======================================= ; 26/02/2025 (mp3play8.s) ; 22/02/2025 (mp3play7.s) ; 26/01/2025 ; 25/01/2025 (mp3play5.s) ; 26/12/2024 (vgaplay2.s) ; 24/01/2025 (mp3play4.s) ; 21/01/2025 UpdateFileInfo: ;; Print File Name ;mov dh, 7 mov dh, 8 ; 26/01/2025 mov dl, 22 call setCursorPosition ;mov esi, [mp3_src_fname] ; 22/02/2025 mov esi, mp3_file_name ;;; ; skip directory separators ; (note: asciiz string, max. 79 bytes except zero tail) mov ebx, esi chk4_nxt_sep: lodsb cmp al, '/' je short chg_fpos and al, al jz short chg_fpos_ok jmp short chk4_nxt_sep chg_fpos: mov ebx, esi jmp short chk4_nxt_sep chg_fpos_ok: mov esi, ebx ; file name (without its path/directory) ;;; _fnl_chk: ; 26/12/2024 (file name length limit -display-) ;mov ebx, 12 ; 25/01/2025 mov ebx, 17 ; ????????.mp3????? push esi _fnl_chk_loop: lodsb and al, al jz short _fnl_ok dec ebx jnz short _fnl_chk_loop mov byte [esi], 0 _fnl_ok: pop esi ;;; call PrintString ; 24/01/2025 ;; Print File Size ;mov dh, 7 mov dh, 8 ; 26/01/2025 mov dl, 56 call setCursorPosition ;;;; 24/01/2025 - Erdogan Tan mov eax, [mp3_file_size] ; 26/01/2025 if 0 mov ebx, 10 mov ebp, esp xor ecx, ecx mov edi, txtfilesize mov esi, edi .cfs_lop: xor edx, edx div ebx add dl, '0' push edx inc ecx cmp cl, 3 jb short .cfs_1 or eax, eax jz short .cfs_2 sub ecx, ecx mov dl, ',' push edx .cfs_1: and eax, eax jnz short .cfs_lop .cfs_2: pop eax stosb cmp esp, ebp jb short .cfs_2 else ; 26/01/2025 ;call cfs call convert_to_string end if ;;; 28/01/2025 dec edi ;;; mov eax, ' byt' stosd mov ax, 'es' stosw xor eax, eax stosb ;mov esi, txtfilesize call PrintString ;;;; ; 24/01/2025 ;; Print Input Frequency ;mov dh, 8 mov dh, 9 ; 26/01/2025 mov dl, 22 call setCursorPosition mov eax, [mp3_sample_rate] mov ebp, 5 call PrintNumber ; 23/01/2025 ;; Print Output Frequency ;mov dh, 8 mov dh, 9 ; 26/01/2025 mov dl, 56 call setCursorPosition ;mov eax, [mp3_output_sample_rate] ; 22/02/2025 mov eax, [playback_f] mov bp, 5 call PrintNumber ; 24/01/2025 ;; Print Input Channels Number ;mov dh, 9 mov dh, 10 ; 26/01/2025 mov dl, 22 call setCursorPosition ;mov eax, [mp3_src_num_channels] ; 22/02/2025 mov eax, [mp3_num_channels] mov bp, 1 call PrintNumber ; 23/01/2025 ;; Print Output Channels Number ;mov dh, 9 mov dh, 10 ; 26/01/2025 mov dl, 56 call setCursorPosition ;mov eax, [mp3_output_num_channels] ; 22/02/2025 mov eax, [playback_c] mov bp, 1 call PrintNumber ; 24/01/2025 ;; Print Input BitRate ;mov dh, 10 mov dh, 11 ; 26/01/2025 mov dl, 22 call setCursorPosition mov eax, [mp3_bit_rate] xor edx, edx mov ecx, 1000 div ecx mov bp, 3 call PrintNumber mov esi, txt_kbit_s ; " kbit/s" call PrintString ; 23/01/2025 ;; Print Output BitRate ;mov dh, 10 mov dh, 11 ; 26/01/2025 mov dl, 56 call setCursorPosition ;mov eax, [mp3_bytes_per_sample] ;shl eax, 3 ; * 8 ; 22/02/2025 mov eax, 16 ; 16 bit playback mov bp, 2 call PrintNumber ;call UpdateVolume ;retn ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 ; 21/01/2025 UpdateVolume: ;; Print Volume ;mov dh, 24 ; 26/01/2025 (640*480) ;mov dh, 32 mov dh, 33 mov dl, 75 call setCursorPosition mov al, [volume_level] mov bl, 100 mul bl mov bl, 31 div bl mov ah, 100 sub ah, al movzx eax, ah mov ebp, 3 ;call PrintNumber ;retn jmp PrintNumber ; --------------------------------------------------------------------------- ; 22/02/2025 txt_kbit_s db ' kbit/s',0 ; =============== S U B R O U T I N E ======================================= ; 25/01/2025 (mp3play5.s) ; 21/12/2024 (vgaplay.s) ; write text in VESA VBE graphics mode PrintString: ; esi = string address printstr_loop: xor eax, eax lodsb or al, al jz short printstr_ok push esi mov esi, [screenpos] ; esi = pixel position (hw = row, si = column) ; eax = al = character ;call write_character ; 22/12/2024 call write_character_white add word [screenpos], 8 ; update column (only, not row) pop esi jmp short printstr_loop printstr_ok: retn ; =============== S U B R O U T I N E ======================================= ; 25/01/2025 (mp3play5.s) ; 26/12/2024 (vgaplay2.s) ; 21/12/2024 ; write character (at cursor position) ; in graphics mode (640*480, 256 colors) ; 22/12/2024 write_character_white: mov ecx, 0Fh ; 26/12/2024 ;movzx ecx, byte [tcolor] write_character: ; esi = pixel position (hw = row, si = column) ; eax = al = character ; cl = color mov [wcolor], ecx ; 22/12/2024 ; 22/12/2024 push eax ; clear previous character pixels mov edi, fillblock sys _video, 020Fh, 0, 8001h pop eax shl eax, 4 ; 8*16 pixel user font mov edi, fontbuff2 ; start of user font data add edi, eax ; 21/12/2024 ; NOTE: ; TRDOS 386 does not use 8*14 pixel fonts in sysvideo ; system calls -in graphics mode- ; because 8*16 pixel operations are faster ; than 8*14 pixel operations. ; ((so, 8*14 fonts can be converted to 8*16 fonts by ; adding 2 empty lines)) ; (8*14 characters can be written via pixel operations) ; 21/12/2024 (TRDOS 386 v2.0.9, trdosk6.s, 27/09/2024) ;;;;;;;;;;;;;;;;; ; sysvideo system call ;sysvideo: ; function in BH ; 02h: Super VGA, LINEAR FRAME BUFFER data transfers ; sub function in BL ; 0Fh: WRITE CHARACTER (FONT) ; CL = char's color (8 bit, 256 colors) ; If DH bit 7 = 1 ; USER FONT (from user buffer) ; DL = 1 -> 8x16 pixel font ; EDI = user's font buffer address ; (NOTE: byte order is as row0,row1,row2..) ; ESI = start position (row, column) ; (HW = row, SI = column) ;;;;;;;;;;;;;;;;; sys _video, 020Fh, [wcolor], 8001h retn ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 ; 25/01/2025 (mp3play5.s) ; 22/12/2024 (vgaplay.s) ; 22/01/2025 ; 21/01/2025 (mp3play4.s) ;PROGRESSBAR_ROW equ 23 ; 21/12/2024 (640*480) ;PROGRESSBAR_ROW equ 31 ; 26/01/2025 PROGRESSBAR_ROW equ 32 UpdateProgressBar: call SetProgressTime mov eax, [ProgressTime] UpdateProgressBar@: mov edx, 80 mul edx ;mov ebx, [TotalTime] ;div ebx ; 22/01/2025 div dword [TotalTime] ; 25/01/2025 ; 22/12/2024 ; check progress bar indicator position if it is same cmp al, [pbprev] je short UpdateProgressBar_ok mov [pbprev], al UpdateProgressBar@@: ;; Push for the 'Clean' part push eax ; ** push eax ; * ;; Set cursor position mov dh, PROGRESSBAR_ROW mov dl, 0 call setCursorPosition pop eax ; * or eax, eax jz short UpdateProgressBar_Clean UpdateProgressBar_DrawProgress: ; 22/12/2024 ; 21/12/2024 ; (write progress bar chars in graphics mode) ;;;; mov ebp, eax push eax ; *** mov esi, [screenpos] UpdateProgressBar_DrawProgress_@: mov eax, 223 ; esi = pixel position (hw = row, si = column) ; eax = al = character ;call write_character ; 22/12/2024 call write_character_white dec ebp jz short UpdateProgressBar_DrawCursor add esi, 8 ; next column jmp short UpdateProgressBar_DrawProgress_@ ;;; ; 25/01/2025 ; 22/12/2024 UpdateProgressBar_ok: retn ; 25/01/2025 UpdateProgressBar_DrawCursor: ; 22/12/2024 pop edx ; *** mov dh, PROGRESSBAR_ROW call setCursorPosition ; 21/12/2024 ; (write progress bar character in graphics mode) ;;;; ;;;mov eax, 223 ;;;shl eax, 4 ; 8*16 pixel user font ;;mov eax, 223*16 ;;mov edi, fontbuff2 ; start of user font data ;;add edi, eax ;mov edi, fontbuff2+(223*16) ; ;sys _video, 020Fh, 0Ch, 8001h ; 22/12/2024 ;mov eax, 223 ; eax = 0 mov al, 223 mov cl, 0Ch ; red call write_character ;;;; UpdateProgressBar_Clean: ;pop eax ; ** ; 22/12/2024 pop edx ; ** ; 21/12/2024 mov ebp, 80 ;sub bp, ax sub bp, dx ; 22/12/2024 jz short UpdateProgressBar_ok mov dh, PROGRESSBAR_ROW ;mov dl, al ; 22/12/2024 call setCursorPosition ; 21/12/2024 ; (write progress bar chars in graphics mode) ;;;; mov esi, [screenpos] UpdateProgressBar_Clean_@: ;;;mov eax, 223 ;;;shl eax, 4 ; 8*16 pixel user font ;;mov eax, 223*16 ;mov edi, fontbuff2 ; start of user font data ;add edi, eax ;mov edi, fontbuff2+(223*16) ; ;sys _video, 020Fh, 08h, 8001h ; 22/12/2024 ;mov eax, 223 ; eax = 0 mov al, 223 mov cl, 08h ; gray (dark) call write_character ;;;; dec ebp jz short UpdateProgressBar_ok add esi, 8 ; next column jmp short UpdateProgressBar_Clean_@ ;;;; ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 ; 25/01/2025 (mp3play5.s) ; 22/12/2024 (vgaplay.s) ; 21/12/2024 ; simulate cursor position in VGA (VESA VBE) mode ; ! for 640*480, 256 colors (1 byte/pixel) ! setCursorPosition: ; dh = Row ; dl = Column xor eax, eax mov al, 14 ; row height is 14 pixels (8*14) mul dh ; 26/01/2025 ;add ax, 7 ; top margin shl eax, 16 mov al, dl ; * 8 ; character width = 8 pixels shl ax, 3 ; hw = row, ax = column mov [screenpos], eax ; 22/12/2024 xor eax, eax retn ; =============== S U B R O U T I N E ======================================= ; 25/01/2025 (mp3play5.s) ; 22/01/2025 (mp3play4.s) UpdateWaveLeds: call get_current_sounddata ;call reset_wave_leds ; (vgaplay.s) ; -------------------------------------------- ; 22/12/2024 (faster method, 80 against 80*16) ; turn off previously lighting wave leds at first ;;; mov esi, prev_leds cmp dword [esi], 0 jz short UpdateWaveLeds_ok mov ecx, 80 turn_off_led: lodsd mov edi, eax ; edi = wave led address mov ebp, 14 mov ebx, fontbuff2+(254*16) ; char = 254 xor edx, edx mov al, 8 ; gray (dark) toffl_next_line: ;;mov edx, 8 ; 8 pixels (8*14 pixel font) ;mov dl, 8 mov dl, al ; 8 mov ah, [ebx] toffl_next_pixel: shl ah, 1 jnc short toffl_skip_this stosb toffl_next_pixel_@: dec edx jnz short toffl_next_pixel dec ebp jz short toffl_next_led add edi, 640-8 ; next line inc ebx jmp short toffl_next_line toffl_skip_this: inc edi jmp short toffl_next_pixel_@ toffl_next_led: loop turn_off_led UpdateWaveLeds_ok: ; -------------------------------------------- jmp dword [turn_on_leds] ; =============== S U B R O U T I N E ======================================= ; 25/01/2025 (mp3play5.s) ; 22/12/2024 (vgaplay.s) ; 21/12/2024 ; (simulate wave leds in graphics mode) ; (640*480, 256 colors) reset_wave_leds: ; 22/12/2024 mov dword [prev_leds], 0 ; mov ebp, 16*80 ; 80 columns with 16 levels mov esi, wleds_addr next_led: lodsd mov edi, eax mov edx, 14 ; 14 lines (8*14 pixel font) mov ebx, fontbuff2+(254*16) ; char = 254 led_line: mov ah, [ebx] mov ecx, 8 ; 8 pixels (8*16 pixel font) next_pixel: shl ah, 1 jnc short skip_this mov al, 8 ; gray stosb dec ecx jnz short next_pixel jmp short next_line skip_this: mov al, 0 ; black stosb dec ecx jnz short next_pixel next_line: dec edx jnz short next_line_@ dec ebp jnz short next_led ;clc ; 25/12/2024 retn next_line_@: ; 22/12/2024 add edi, 640-8 ; next line inc ebx jmp short led_line ; =============== S U B R O U T I N E ======================================= ; 27/01/2025 ; 26/01/2025 ; 25/01/2025 (mp3play5.s) ; 21/12/2025 (vgaplay.s) ; 23/01/2025 (mp3play4.s) ; 22/01/2025 turn_on_leds_stereo_16bit: ;mov esi, sample_buffer mov esi, sounddata mov ecx, 80 xor eax, eax ; 0 mov ebx, wleds_addr ; 25/01/2025 mov edi, prev_leds .fill_c: lodsw ; left ; 23/01/2025 add ah, 80h mov edx, eax lodsw ; right ;add ax, dx add ah, 80h ; 23/01/2025 add eax, edx ; 25/01/2025 shr eax, 13 ; (L+R/2) & 16 volume levels ; 26/01/2025 ;add esi, 7*4 ; skip next 7 (L+R) samples ; 27/01/2025 add esi, 3*4 ; skip next 3 (L+R) samples ; 25/01/2025 call turn_on_leds_@ loop .fill_c retn ; --------------------------------------------------------------------------- ; 26/01/2025 ; 25/01/2025 (mp3play5.s) ; 21/12/2025 (vgaplay.s) turn_on_leds_@: push ebx ; * shl eax, 2 add ebx, eax ; 25/01/2025 ; 22/12/2024 ;mov edi, [ebx] mov eax, [ebx] stosd push edi ; ** mov edi, eax ;;; ; 21/12/2024 ; (simulate wave leds in graphics mode) ; (640*480, 256 colors) .tol: ; edi = wave led address mov ebp, 14 mov ebx, fontbuff2+(254*16) ; char = 254 mov al, [ccolor] .tol_nln: mov edx, 8 ; 8 pixels (8*14 pixel font) mov ah, [ebx] .tol_np: shl ah, 1 jnc short .skip stosb .tol_np@: dec edx jnz short .tol_np dec ebp jz short .tol_nld ; 22/12/2024 add edi, 640-8 ; next line inc ebx jmp short .tol_nln .skip: inc edi jmp short .tol_np@ .tol_nld: ; 22/12/2024 pop edi ; ** ;;; pop ebx ; * add ebx, 16*4 ; 26/01/2025 xor eax, eax ; 0 retn ; =============== S U B R O U T I N E ======================================= ; 27/01/2025 ; 26/01/2025 ; 25/01/2025 ; 25/01/2025 (mp3play5.s) ; 23/01/2025 (mp3play4.s) ; 22/01/2025 turn_on_leds_mono_16bit: ;mov esi, sample_buffer mov esi, sounddata mov ecx, 80 xor eax, eax ; 0 mov ebx, wleds_addr .fill_c: lodsw add ah, 80h ; 25/01/2025 shr eax, 12 ; 16 volume levels ; 26/01/2025 ;add esi, 7*2 ; skip next 7 samples ; 27/01/2025 add esi, 3*2 ; skip next 3 samples ; 25/01/2025 call turn_on_leds_@ loop .fill_c retn ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 ; 25/01/2025 (mp3play5.s) ; 25/12/2024 (vgaplay.s) ; 22/12/2024 (VESA VBE mode graphics) ; (640*480, 256 colors) clear_window: mov edi, [LFB_ADDR] ;add edi, (13*80*8*14) ; 25/12/2024 ;add edi, 164*640 ; 26/01/2025 add edi, 178*640 sub eax, eax ;mov ecx, (16*640*14)/4 ; 16 rows mov ecx, 64*640 ; 256 volume level points rep stosd ; 24/12/2024 mov [prev_points], eax ; 0 ; retn ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 (mp3play5.s) ; 26/12/2024 (vgaplay2.s) ; 24/12/2024 UpdateWavePoints: call get_current_sounddata mov esi, prev_points mov ebp, 640 cmp dword [esi], 0 jz short .lights_off_ok mov ecx, ebp ; 640 .light_off: lodsd ; eax = wave point (lighting point) address mov byte [eax], 0 ; black point (light off) loop .light_off .lights_off_ok: ; 26/01/2025 mov esi, sounddata mov edi, prev_points mov ecx, ebp ; 640 mov ebx, [graphstart] ; start (top) line jmp dword [draw_wave_points] ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 (mp3play5.s) ; 26/12/2024 (vgaplay2.s) ; 24/12/2024 UpdateWavePoints_16s: ; 26/01/2025 ;mov esi, sounddata ;mov edi, prev_points ;mov ecx, 640 ;mov ebp, ecx ;mov ebx, [graphstart] ; start (top) line .lights_on: xor eax, eax ; 0 lodsw ; left add ah, 80h mov edx, eax lodsw ; right add ah, 80h add eax, edx shr eax, 9 ; (L+R/2) & 256 volume levels ; 26/01/2025 sub al, 255 ; max. value will be shown on top mul ebp ; * 640 (row) add eax, ebx ; + column mov dl, [ccolor] mov [eax], dl ; pixel (light on) color stosd ; save light on addr in prev_points inc ebx loop .lights_on retn ; =============== S U B R O U T I N E ======================================= ; 26/01/2025 (mp3play5.s) UpdateWavePoints_16m: ; 26/01/2025 ;mov esi, sounddata ;mov edi, prev_points ;mov ecx, 640 ;mov ebp, ecx ;mov ebx, [graphstart] ; start (top) line .lights_on: lodsw add ah, 80h shr eax, 8 ; 256 volume levels sub al, 255 ; max. value will be shown on top mul ebp ; * 640 (row) add eax, ebx ; + column mov dl, [ccolor] mov [eax], dl ; pixel (light on) color stosd ; save light on addr in prev_points inc ebx loop .lights_on retn ; =============== S U B R O U T I N E ======================================= ; -------------------------------------------------------- ; 22/01/2025 - Get Current Sound Data For Graphics ; -------------------------------------------------------- ; ref: cgaplay2.s (08/01/2025) ; 26/02/2025 (mp3play8.s) ; 27/01/2025 ; 26/01/2025 (mp3play5.s) ; 22/01/2025 (mp3play4.s) get_current_sounddata: ; 26/01/2025 ;;;; cmp byte [p_mode], 0 jna short gcsd_80 sys _audio, 0F00h, [sd_count], sounddata retn ; 27/01/2025 gcsd_80: mov eax, [sd_count] shr eax, 1 ; 320 points ; 80*4 sys _audio, 0F00h, eax, sounddata retn ; =========================================================================== ; end of TRDOS 386 specific procedures. ; --------------------------------------------------------------------------- ; =========================================================================== ; Initialized DATA ; =========================================================================== ; 26/02/2025 ; 25/02/2025 align 4 mp3_bitrate_tab dw 0,32,40,48,56,64,80,96,112,128,160,192,224,256,320, 0 dw 0, 8,16,24,32,40,48,56,64,80,96,112,128,144,160, 0 mp3_freq_tab dw 44100,48000,32000 mp3_lsf_sf_expand_init_table db 0, 5, 4, 4, 0, 0 dw 400 ; 0..399 ; normal case db 0, 5, 4, 1, 0Ch, 0 dw 500 ; 400..499 db 0, 3, 1, 1, 18h, 1 dw 512 ; 500..511 db 1, 6, 6, 1, 24h, 0 dw 872 ; 512+360 ; 0..359 for 2nd channel of intensity stereo db 1, 4, 4, 1, 30h, 0 dw 1000 ; 512+488 ; 360..487 db 1, 3, 1, 1, 3Ch, 0 dw 1024 ; 512+512 ; 488..511 mp3_synth_win_src dw 1, 0, 0, 0, 0, 0, 1, 0 dw 0, 0, 1, 0, 1, 0, 1, 0 dw 1, 1, 0, 1, 1, 1, 1, 2 dw 1, 2, 1, 2, 2, 3, 2, 3 dw 2, 4, 3, 3, 4, 4, 4, 5 dw 5, 5, 5, 6, 6, 6, 6, 7 dw 7, 6, 8, 7, 7, 8, 7, 7 dw 8, 7, 7, 7, 6, 6, 6, 5 dw 0FE51h,0FFFCh,0FFFDh,0FFFEh,0FFFFh, 0, 1, 3 dw 3, 6, 7, 8, 0Bh, 0Ch, 0Eh, 11h dw 13h, 15h, 17h, 1Ah, 1Ch, 1Fh, 22h, 24h dw 27h, 2Ah, 2Ch, 2Fh, 32h, 35h, 36h, 3Ah dw 3Ch, 3Eh, 40h, 42h, 44h, 45h, 47h, 48h dw 49h, 49h, 49h, 49h, 49h, 48h, 46h, 45h dw 43h, 40h, 3Dh, 3Ah, 35h, 31h, 2Bh, 27h dw 1Fh, 19h, 12h, 0Ah, 2,0FFF9h,0FFEFh,0FFE6h dw 0F03Bh, 30h, 3Bh, 47h, 53h, 5Fh, 6Dh, 79h dw 86h, 95h, 0A1h, 0B0h, 0BDh, 0CBh, 0D9h, 0E6h dw 0F3h, 101h, 10Dh, 119h, 125h, 130h, 13Ah, 144h dw 14Dh, 155h, 15Bh, 162h, 166h, 16Ah, 16Bh, 16Dh dw 16Ch, 16Ah, 166h, 160h, 15Ah, 150h, 146h, 139h dw 12Bh, 11Ah, 108h, 0F3h, 0DDh, 0C5h, 0A9h, 8Eh dw 6Fh, 4Eh, 2Bh, 7,0FFE1h,0FFB8h,0FF8Fh,0FF62h dw 0FF35h,0FF06h,0FED5h,0FEA4h,0FE70h,0FE3Ch,0FE06h,0FDD0h dw 0CF0Bh, 29Fh, 2D7h, 311h, 349h, 382h, 3BBh, 3F4h dw 42Ch, 464h, 49Ah, 4D1h, 505h, 538h, 56Ah, 59Bh dw 5C8h, 5F5h, 620h, 647h, 66Ch, 68Fh, 6AFh, 6CCh dw 6E5h, 6FCh, 70Fh, 71Fh, 72Bh, 734h, 739h, 739h dw 737h, 730h, 726h, 717h, 704h, 6EDh, 6D3h, 6B4h dw 691h, 66Ch, 640h, 613h, 5E1h, 5ABh, 573h, 537h dw 4F7h, 4B4h, 46Fh, 427h, 3DBh, 38Fh, 33Eh, 2EDh dw 29Ah, 244h, 1EDh, 195h, 13Dh, 0E2h, 88h, 2Eh db 0 db 0 mp3_slen_table dw 0000h, 0100h, 0200h, 0300h, 0003h, 0101h, 0201h, 0301h dw 0102h, 0202h, 0302h, 0103h, 0203h, 0303h, 0204h, 0304h mp3_lsf_nsf_table dd 05050506h, 09090909h, 09090906h dd 03070506h, 060C0909h, 060C0906h dd 00000A0Bh, 00001212h, 0000120Fh dd 00070707h, 000C0C0Ch, 000C0F06h dd 03060606h, 0609090Ch, 06090C06h dd 00050808h, 00090C0Fh, 00091206h huff_tree_list_data db 11h, 1, 10h, 0, 22h, 2, 12h, 21h db 20h, 11h, 1, 10h, 0, 22h, 2, 12h db 21h, 20h, 10h, 11h, 1, 0, 33h, 23h db 32h, 31h, 13h, 3, 30h, 22h, 12h, 21h db 2, 20h, 11h, 1, 10h, 0, 33h, 3 db 23h, 32h, 30h, 13h, 31h, 22h, 2, 12h db 21h, 20h, 1, 11h, 10h, 0, 55h, 45h db 54h, 53h, 35h, 44h, 25h, 52h, 15h, 51h db 5, 34h, 50h, 43h, 33h, 24h, 42h, 14h db 41h, 40h, 4, 23h, 32h, 3, 13h, 31h db 30h, 22h, 12h, 21h, 2, 20h, 11h, 1 db 10h, 0, 55h, 54h, 45h, 53h, 35h, 44h db 25h, 52h, 5, 15h, 51h, 34h, 43h, 50h db 33h, 24h, 42h, 14h, 41h, 4, 40h, 23h db 32h, 13h, 31h, 3, 30h, 22h, 2, 20h db 12h, 21h, 11h, 1, 10h, 0, 55h, 45h db 35h, 53h, 54h, 5, 44h, 25h, 52h, 15h db 51h, 34h, 43h, 50h, 4, 24h, 42h, 33h db 40h, 14h, 41h, 23h, 32h, 13h, 31h, 3 db 30h, 22h, 2, 12h, 21h, 20h, 11h, 1 db 10h, 0, 77h, 67h, 76h, 57h, 75h, 66h db 47h, 74h, 56h, 65h, 37h, 73h, 46h, 55h db 54h, 63h, 27h, 72h, 64h, 7, 70h, 62h db 45h, 35h, 6, 53h, 44h, 17h, 71h, 36h db 26h, 25h, 52h, 15h, 51h, 34h, 43h, 16h db 61h, 60h, 5, 50h, 24h, 42h, 33h, 4 db 14h, 41h, 40h, 23h, 32h, 3, 13h, 31h db 30h, 22h, 12h, 21h, 2, 20h, 11h, 1 db 10h, 0, 77h, 67h, 76h, 75h, 66h, 47h db 74h, 57h, 55h, 56h, 65h, 37h, 73h, 46h db 45h, 54h, 35h, 53h, 27h, 72h, 64h, 7 db 71h, 17h, 70h, 36h, 63h, 60h, 44h, 25h db 52h, 5, 15h, 62h, 26h, 6, 16h, 61h db 51h, 34h, 50h, 43h, 33h, 24h, 42h, 14h db 41h, 4, 40h, 23h, 32h, 13h, 31h, 3 db 30h, 22h, 21h, 12h, 2, 20h, 11h, 1 db 10h, 0, 77h, 67h, 76h, 57h, 75h, 66h db 47h, 74h, 65h, 56h, 37h, 73h, 55h, 27h db 72h, 46h, 64h, 17h, 71h, 7, 70h, 36h db 63h, 45h, 54h, 44h, 6, 5, 26h, 62h db 61h, 16h, 60h, 35h, 53h, 25h, 52h, 15h db 51h, 34h, 43h, 50h, 4, 24h, 42h, 14h db 33h, 41h, 23h, 32h, 40h, 3, 30h, 13h db 31h, 22h, 12h, 21h, 2, 20h, 0, 11h db 1, 10h,0FEh,0FCh,0FDh,0EDh,0FFh,0EFh db 0DFh,0EEh,0CFh,0DEh,0BFh,0FBh,0CEh,0DCh db 0AFh,0E9h,0ECh,0DDh,0FAh,0CDh,0BEh,0EBh db 9Fh,0F9h,0EAh,0BDh,0DBh, 8Fh,0F8h,0CCh db 0AEh, 9Eh, 8Eh, 7Fh, 7Eh,0F7h,0DAh,0ADh db 0BCh,0CBh,0F6h, 6Fh,0E8h, 5Fh, 9Dh,0D9h db 0F5h,0E7h,0ACh,0BBh, 4Fh,0F4h,0CAh,0E6h db 0F3h, 3Fh, 8Dh,0D8h, 2Fh,0F2h, 6Eh, 9Ch db 0Fh,0C9h, 5Eh,0ABh, 7Dh,0D7h, 4Eh,0C8h db 0D6h, 3Eh,0B9h, 9Bh,0AAh, 1Fh,0F1h,0F0h db 0BAh,0E5h,0E4h, 8Ch, 6Dh,0E3h,0E2h, 2Eh db 0Eh, 1Eh,0E1h,0E0h, 5Dh,0D5h, 7Ch,0C7h db 4Dh, 8Bh,0B8h,0D4h, 9Ah,0A9h, 6Ch,0C6h db 3Dh,0D3h, 7Bh, 2Dh,0D2h, 1Dh,0B7h, 5Ch db 0C5h, 99h, 7Ah,0C3h,0A7h, 97h, 4Bh,0D1h db 0Dh,0D0h, 8Ah,0A8h, 4Ch,0C4h, 6Bh,0B6h db 3Ch, 2Ch,0C2h, 5Bh,0B5h, 89h, 1Ch,0C1h db 98h, 0Ch,0C0h,0B4h, 6Ah,0A6h, 79h, 3Bh db 0B3h, 88h, 5Ah, 2Bh,0A5h, 69h,0A4h, 78h db 87h, 94h, 77h, 76h,0B2h, 1Bh,0B1h, 0Bh db 0B0h, 96h, 4Ah, 3Ah,0A3h, 59h, 95h, 2Ah db 0A2h, 1Ah,0A1h, 0Ah, 68h,0A0h, 86h, 49h db 93h, 39h, 58h, 85h, 67h, 29h, 92h, 57h db 75h, 38h, 83h, 66h, 47h, 74h, 56h, 65h db 73h, 19h, 91h, 9, 90h, 48h, 84h, 72h db 46h, 64h, 28h, 82h, 18h, 37h, 27h, 17h db 71h, 55h, 7, 70h, 36h, 63h, 45h, 54h db 26h, 62h, 35h, 81h, 8, 80h, 16h, 61h db 6, 60h, 53h, 44h, 25h, 52h, 5, 15h db 51h, 34h, 43h, 50h, 24h, 42h, 33h, 14h db 41h, 4, 40h, 23h, 32h, 13h, 31h, 3 db 30h, 22h, 12h, 21h, 2, 20h, 11h, 1 db 10h, 0,0FFh,0EFh,0FEh,0DFh,0EEh,0FDh db 0CFh,0FCh,0DEh,0EDh,0BFh,0FBh,0CEh,0ECh db 0DDh,0AFh,0FAh,0BEh,0EBh,0CDh,0DCh, 9Fh db 0F9h,0EAh,0BDh,0DBh, 8Fh,0F8h,0CCh, 9Eh db 0E9h, 7Fh,0F7h,0ADh,0DAh,0BCh, 6Fh,0AEh db 0Fh,0CBh,0F6h, 8Eh,0E8h, 5Fh, 9Dh,0F5h db 7Eh,0E7h,0ACh,0CAh,0BBh,0D9h, 8Dh, 4Fh db 0F4h, 3Fh,0F3h,0D8h,0E6h, 2Fh,0F2h, 6Eh db 0F0h, 1Fh,0F1h, 9Ch,0C9h, 5Eh,0ABh,0BAh db 0E5h, 7Dh,0D7h, 4Eh,0E4h, 8Ch,0C8h, 3Eh db 6Dh,0D6h,0E3h, 9Bh,0B9h, 2Eh,0AAh,0E2h db 1Eh,0E1h, 0Eh,0E0h, 5Dh,0D5h, 7Ch,0C7h db 4Dh, 8Bh,0D4h,0B8h, 9Ah,0A9h, 6Ch,0C6h db 3Dh,0D3h,0D2h, 2Dh, 0Dh, 1Dh, 7Bh,0B7h db 0D1h, 5Ch,0D0h,0C5h, 8Ah,0A8h, 4Ch,0C4h db 6Bh,0B6h, 99h, 0Ch, 3Ch,0C3h, 7Ah,0A7h db 0A6h,0C0h, 0Bh,0C2h, 2Ch, 5Bh,0B5h, 1Ch db 89h, 98h,0C1h, 4Bh,0B4h, 6Ah, 3Bh, 79h db 0B3h, 97h, 88h, 2Bh, 5Ah,0B2h,0A5h, 1Bh db 0B1h,0B0h, 69h, 96h, 4Ah,0A4h, 78h, 87h db 3Ah,0A3h, 59h, 95h, 2Ah,0A2h, 1Ah,0A1h db 0Ah,0A0h, 68h, 86h, 49h, 94h, 39h, 93h db 77h, 9, 58h, 85h, 29h, 67h, 76h, 92h db 91h, 19h, 90h, 48h, 84h, 57h, 75h, 38h db 83h, 66h, 47h, 28h, 82h, 18h, 81h, 74h db 8, 80h, 56h, 65h, 37h, 73h, 46h, 27h db 72h, 64h, 17h, 55h, 71h, 7, 70h, 36h db 63h, 45h, 54h, 26h, 62h, 16h, 6, 60h db 35h, 61h, 53h, 44h, 25h, 52h, 15h, 51h db 5, 50h, 34h, 43h, 24h, 42h, 33h, 41h db 14h, 4, 23h, 32h, 40h, 3, 13h, 31h db 30h, 22h, 12h, 21h, 2, 20h, 11h, 1 db 10h, 0,0EFh,0FEh,0DFh,0FDh,0CFh,0FCh db 0BFh,0FBh,0AFh,0FAh, 9Fh,0F9h,0F8h, 8Fh db 7Fh,0F7h, 6Fh,0F6h,0FFh, 5Fh,0F5h, 4Fh db 0F4h,0F3h,0F0h, 3Fh,0CEh,0ECh,0DDh,0DEh db 0E9h,0EAh,0D9h,0EEh,0EDh,0EBh,0BEh,0CDh db 0DCh,0DBh,0AEh,0CCh,0ADh,0DAh, 7Eh,0ACh db 0CAh,0C9h, 7Dh, 5Eh,0BDh,0F2h, 2Fh, 0Fh db 1Fh,0F1h, 9Eh,0BCh,0CBh, 8Eh,0E8h, 9Dh db 0E7h,0BBh, 8Dh,0D8h, 6Eh,0E6h, 9Ch,0ABh db 0BAh,0E5h,0D7h, 4Eh,0E4h, 8Ch,0C8h, 3Eh db 6Dh,0D6h, 9Bh,0B9h,0AAh,0E1h,0D4h,0B8h db 0A9h, 7Bh,0B7h,0D0h,0E3h, 0Eh,0E0h, 5Dh db 0D5h, 7Ch,0C7h, 4Dh, 8Bh, 9Ah, 6Ch,0C6h db 3Dh, 5Ch,0C5h, 0Dh, 8Ah,0A8h, 99h, 4Ch db 0B6h, 7Ah, 3Ch, 5Bh, 89h, 1Ch,0C0h, 98h db 79h,0E2h, 2Eh, 1Eh,0D3h, 2Dh,0D2h,0D1h db 3Bh, 97h, 88h, 1Dh,0C4h, 6Bh,0C3h,0A7h db 2Ch,0C2h,0B5h,0C1h, 0Ch, 4Bh,0B4h, 6Ah db 0A6h,0B3h, 5Ah,0A5h, 2Bh,0B2h, 1Bh,0B1h db 0Bh,0B0h, 69h, 96h, 4Ah,0A4h, 78h, 87h db 0A3h, 3Ah, 59h, 2Ah, 95h, 68h,0A1h, 86h db 77h, 94h, 49h, 57h, 67h,0A2h, 1Ah, 0Ah db 0A0h, 39h, 93h, 58h, 85h, 29h, 92h, 76h db 9, 19h, 91h, 90h, 48h, 84h, 75h, 38h db 83h, 66h, 28h, 82h, 47h, 74h, 18h, 81h db 80h, 8, 56h, 37h, 73h, 65h, 46h, 27h db 72h, 64h, 55h, 7, 17h, 71h, 70h, 36h db 63h, 45h, 54h, 26h, 62h, 16h, 61h, 6 db 60h, 53h, 35h, 44h, 25h, 52h, 51h, 15h db 5, 34h, 43h, 50h, 24h, 42h, 33h, 14h db 41h, 4, 40h, 23h, 32h, 13h, 31h, 3 db 30h, 22h, 12h, 21h, 2, 20h, 11h, 1 db 10h, 0,0EFh,0FEh,0DFh,0FDh,0CFh,0FCh db 0BFh,0FBh,0FAh,0AFh, 9Fh,0F9h,0F8h, 8Fh db 7Fh,0F7h, 6Fh,0F6h, 5Fh,0F5h, 4Fh,0F4h db 3Fh,0F3h, 2Fh,0F2h,0F1h, 1Fh,0F0h, 0Fh db 0EEh,0DEh,0EDh,0CEh,0ECh,0DDh,0BEh,0EBh db 0CDh,0DCh,0AEh,0EAh,0BDh,0DBh,0CCh, 9Eh db 0E9h,0ADh,0DAh,0BCh,0CBh, 8Eh,0E8h, 9Dh db 0D9h, 7Eh,0E7h,0ACh,0FFh,0CAh,0BBh, 8Dh db 0D8h, 0Eh,0E0h, 0Dh,0E6h, 6Eh, 9Ch,0C9h db 5Eh,0BAh,0E5h,0ABh, 7Dh,0D7h,0E4h, 8Ch db 0C8h, 4Eh, 2Eh, 3Eh, 6Dh,0D6h,0E3h, 9Bh db 0B9h,0AAh,0E2h, 1Eh,0E1h, 5Dh,0D5h, 7Ch db 0C7h, 4Dh, 8Bh,0B8h,0D4h, 9Ah,0A9h, 6Ch db 0C6h, 3Dh,0D3h, 2Dh,0D2h, 1Dh, 7Bh,0B7h db 0D1h, 5Ch,0C5h, 8Ah,0A8h, 99h, 4Ch,0C4h db 6Bh,0B6h,0D0h, 0Ch, 3Ch,0C3h, 7Ah,0A7h db 2Ch,0C2h, 5Bh,0B5h, 1Ch, 89h, 98h,0C1h db 4Bh,0C0h, 0Bh, 3Bh,0B0h, 0Ah, 1Ah,0B4h db 6Ah,0A6h, 79h, 97h,0A0h, 9, 90h,0B3h db 88h, 2Bh, 5Ah,0B2h,0A5h, 1Bh,0B1h, 69h db 96h,0A4h, 4Ah, 78h, 87h, 3Ah,0A3h, 59h db 95h, 2Ah,0A2h,0A1h, 68h, 86h, 77h, 49h db 94h, 39h, 93h, 58h, 85h, 29h, 67h, 76h db 92h, 19h, 91h, 48h, 84h, 57h, 75h, 38h db 83h, 66h, 28h, 82h, 18h, 47h, 74h, 81h db 8, 80h, 56h, 65h, 17h, 7, 70h, 73h db 37h, 27h, 72h, 46h, 64h, 55h, 71h, 36h db 63h, 45h, 54h, 26h, 62h, 16h, 61h, 6 db 60h, 35h, 53h, 44h, 25h, 52h, 15h, 5 db 50h, 51h, 34h, 43h, 24h, 42h, 33h, 14h db 41h, 4, 40h, 23h, 32h, 13h, 31h, 3 db 30h, 22h, 12h, 21h, 2, 20h, 11h, 1 db 10h, 0, 0Bh, 0Fh, 0Dh, 0Eh, 7, 5 db 9, 6, 3, 0Ah, 0Ch, 2, 1, 4 db 8, 0, 0Fh, 0Eh, 0Dh, 0Ch, 0Bh, 0Ah db 9, 8, 7, 6, 5, 4, 3, 2 db 1, 0 db 6 dup(0) mp3_huff_data db 0, 0 db 1, 0 ; byte[32][2] ; table,linbits db 2, 0 db 3, 0 db 0, 0 db 4, 0 db 5, 0 db 6, 0 db 7, 0 db 8, 0 db 9, 0 db 10, 0 db 11, 0 db 12, 0 db 0, 0 db 13, 0 db 14, 1 db 14, 2 db 14, 3 db 14, 4 db 14, 6 db 14, 8 db 14, 10 db 14, 13 db 15, 4 db 15, 5 db 15, 6 db 15, 7 db 15, 8 db 15, 9 db 15, 11 db 15, 13 mp3_band_size_long db 4, 4, 4, 4, 4, 4, 6, 6, 8, 8, 0Ah db 0Ch, 10h, 14h, 18h, 1Ch, 22h, 2Ah, 32h, 36h, 4Ch, 9Eh ; byte[9][22] db 4, 4, 4, 4, 4, 4, 6, 6, 6, 8, 0Ah db 0Ch, 10h, 12h, 16h, 1Ch, 22h, 28h, 2Eh, 36h, 36h,0C0h db 4, 4, 4, 4, 4, 4, 6, 6, 8, 0Ah, 0Ch db 10h, 14h, 18h, 1Eh, 26h, 2Eh, 38h, 44h, 54h, 66h, 1Ah db 6, 6, 6, 6, 6, 6, 8, 0Ah, 0Ch, 0Eh, 10h db 14h, 18h, 1Ch, 20h, 26h, 2Eh, 34h, 3Ch, 44h, 3Ah, 36h db 6, 6, 6, 6, 6, 6, 8, 0Ah, 0Ch, 0Eh, 10h db 12h, 16h, 1Ah, 20h, 26h, 2Eh, 34h, 40h, 46h, 4Ch, 24h db 6, 6, 6, 6, 6, 6, 8, 0Ah, 0Ch, 0Eh, 10h db 14h, 18h, 1Ch, 20h, 26h, 2Eh, 34h, 3Ch, 44h, 3Ah, 36h db 6, 6, 6, 6, 6, 6, 8, 0Ah, 0Ch, 0Eh, 10h db 14h, 18h, 1Ch, 20h, 26h, 2Eh, 34h, 3Ch, 44h, 3Ah, 36h db 6, 6, 6, 6, 6, 6, 8, 0Ah, 0Ch, 0Eh, 10h db 14h, 18h, 1Ch, 20h, 26h, 2Eh, 34h, 3Ch, 44h, 3Ah, 36h db 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 10h, 14h, 18h, 1Ch, 20h db 28h, 30h, 38h, 40h, 4Ch, 5Ah, 2, 2, 2, 2, 2 db 10 dup(0) ; data align mp3_band_size_short db 4, 4, 4, 4, 6, 8, 0Ah, 0Ch, 0Eh, 12h, 16h, 1Eh, 38h db 4, 4, 4, 4, 6, 6, 0Ah, 0Ch, 0Eh, 10h, 14h, 1Ah, 42h ; byte[9][16] ? ; byte [9][13] db 4, 4, 4, 4, 6, 8, 0Ch, 10h, 14h, 1Ah, 22h, 2Ah, 0Ch db 4, 4, 4, 6, 6, 8, 0Ah, 0Eh, 12h, 1Ah, 20h, 2Ah, 12h db 4, 4, 4, 6, 8, 0Ah, 0Ch, 0Eh, 12h, 18h, 20h, 2Ch, 0Ch db 4, 4, 4, 6, 8, 0Ah, 0Ch, 0Eh, 12h, 18h, 1Eh, 28h, 12h db 4, 4, 4, 6, 8, 0Ah, 0Ch, 0Eh, 12h, 18h, 1Eh, 28h, 12h db 4, 4, 4, 6, 8, 0Ah, 0Ch, 0Eh, 12h, 18h, 1Eh, 28h, 12h db 8, 8, 8, 0Ch, 10h, 14h, 18h, 1Ch, 24h, 2, 2, 2, 1Ah db 11 dup(0) ; data align mp3_pretab db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 db 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 db 1, 1, 1, 1, 2, 2, 3, 3, 3, 2, 0 db 4 dup(0) ; data align mp3_mdct_win_src dd 00421D4Bh, 00DB8F02h, 019C7F16h, 029ADCC0h, 04000001h, 06246711h dd 09EE0645h, 12A7D60Ch, 3DF40538h,0BC63D32Fh,0E7B0025Bh,0F069D222h ; these are sine values divided by cosine values... dd 0F4337156h,0F657D867h,0F7BCFBA8h,0F8BB5952h,0F97C4965h,0FA15BB1Ch dd 0FA946D93h,0FB00518Eh,0FB5EA270h,0FBB2FDEAh,0FC000000h,0FC479F38h dd 0FC8B6609h,0FCCC9898h,0FD0C4F0Bh,0FD4B895Ch,0FD8B3FCFh,0FDCC725Eh dd 0FE10392Fh,0FE57D867h,0FEA4DA7Dh,0FEF935F7h,0FF5786D9h,0FFC36AD5h dd 00421D4Bh, 00DB8F02h, 019C7F16h, 029ADCC0h, 04000001h, 06246711h dd 09EE0645h, 12A7D60Ch, 3DF40538h,0BC63D32Fh,0E7B0025Bh,0F069D222h dd 0F4337156h,0F657D867h,0F7BCFBA8h,0F8BB5952h,0F97C4965h,0FA15BB1Ch dd 0FA931B29h,0FAF546B9h,0FB41DABBh,0FB7D8F97h,0FBABA162h,0FBCE4E62h dd 0FBF01C67h,0FC45C8AFh,0FCD2D50Dh,0FD9008D0h,0FE74C032h,0FF771894h dd 00000000h, 00000000h, 00000000h, 00000000h, 00000000h, 00000000h dd 00DB8F02h, 04000001h, 12A7D60Ch,0E7B0025Bh,0F657D867h,0F97C4965h dd 0FB00518Eh,0FC000000h,0FCCC9898h,0FD8B3FCFh,0FE57D867h,0FF5786D9h dd 00000000h, 00000000h, 00000000h, 00000000h, 00000000h, 00000000h dd 00000000h, 00000000h, 00000000h, 00000000h, 00000000h, 00000000h dd 00000000h, 00000000h, 00000000h, 00000000h, 00000000h, 00000000h dd 00000000h, 00000000h, 00000000h, 00000000h, 00000000h, 00000000h dd 00000000h, 00000000h, 00000000h, 00000000h, 00000000h, 00000000h dd 026988B5h, 0BBA3752h, 37D3294Fh,0B73F655Bh,0E3B0025Bh,0EDAD5D13h dd 0F2B2ADA2h,0F58C28B8h,0F75657D6h,0F88E2C57h,0F96DE565h,0FA1449CDh dd 0FA946D93h,0FB00518Eh,0FB5EA270h,0FBB2FDEAh,0FC000000h,0FC479F38h dd 0FC8B6609h,0FCCC9898h,0FD0C4F0Bh,0FD4B895Ch,0FD8B3FCFh,0FDCC725Eh dd 0FE10392Fh,0FE57D867h,0FEA4DA7Dh,0FEF935F7h,0FF5786D9h,0FFC36AD5h mp3_is_table_normal dd 00000000h, 40000000h dd 0D8658BBh, 3279A746h dd 176CF5D1h, 28930A30h dd 20000000h, 20000000h dd 28930A30h, 176CF5D1h dd 3279A746h, 0D8658BBh dd 40000000h, 00000000h mp3_is_table_lsf_src dd 80000000h ; sqrt based constants... ; 40000000h*2 ; 2.0 (2^1.00) aka 2 dd 6BA27E66h ; 35D13F33h*2 ; 1.681 (2^0.75) dd 5A82799Ah ; 2D413CCDh*2 ; 1.414 (2^0.50) aka sqrt(2) dd 4C1BF82Ah ; 260DFC15h*2 ; 1.189 (2^0.25) aka sqrt(sqrt(2)) mp3_pow2_quarters dd 80000000h ; 40000000h*2 ; 2^(0/4) dd 9837F052h ; 4C1BF829h*2 ; 2^(1/4) dd 0B504F334h ; 5A82799Ah*2 ; 2^(2/4) dd 0D744FCCCh ; 6BA27E66h*2 ; 2^(3/4) ;mp3_initialized dd 0 ;mp3_huff_num_entries dd 12h ; 24/02/2025 mp3_huff_num_entries dd 0 ;wrchr_buf db 0 ; 20/02/2025 num_enqueued_frames db 0 align 4 zero dd 0 huff_tree_list_numbits db 3, 3, 2, 1, 6, 6, 5, 5 db 5, 3, 3, 3, 1, 6, 6, 5 db 5, 5, 3, 2, 2, 2, 8, 8 db 7, 6, 7, 7, 7, 7, 6, 6 db 6, 6, 3, 3, 3, 1, 7, 7 db 6, 6, 6, 5, 5, 5, 5, 4 db 4, 4, 3, 2, 3, 3, 0Ah, 0Ah db 0Ah, 0Ah, 9, 9, 9, 9, 8, 8 db 9, 9, 8, 9, 9, 8, 8, 7 db 7, 7, 8, 8, 8, 8, 7, 7 db 7, 7, 6, 5, 6, 6, 4, 3 db 3, 1, 0Bh, 0Bh, 0Ah, 9, 0Ah, 0Ah db 9, 9, 9, 8, 8, 9, 9, 9 db 9, 8, 8, 8, 7, 8, 8, 8 db 8, 8, 8, 8, 8, 6, 6, 6 db 4, 4, 2, 3, 3, 2, 9, 9 db 8, 8, 9, 9, 8, 8, 8, 8 db 7, 7, 7, 8, 8, 7, 7, 7 db 7, 6, 6, 6, 6, 5, 5, 6 db 6, 5, 5, 4, 4, 4, 3, 3 db 3, 3, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh db 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Bh db 0Bh, 0Ah, 9, 9, 0Ah, 0Ah, 9, 9 db 0Ah, 0Ah, 9, 0Ah, 0Ah, 8, 8, 9 db 9, 0Ah, 0Ah, 9, 9, 0Ah, 0Ah, 8 db 8, 8, 9, 9, 9, 9, 9, 9 db 8, 8, 8, 8, 8, 8, 7, 7 db 7, 7, 6, 6, 6, 6, 4, 3 db 3, 1, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah db 0Ah, 0Bh, 0Bh, 0Ah, 0Ah, 9, 9, 9 db 0Ah, 0Ah, 0Ah, 0Ah, 8, 8, 9, 9 db 7, 8, 8, 8, 8, 8, 9, 9 db 9, 9, 8, 7, 8, 8, 7, 7 db 8, 8, 8, 9, 9, 8, 8, 8 db 8, 8, 8, 7, 7, 6, 6, 7 db 7, 6, 5, 4, 5, 5, 3, 3 db 3, 2, 0Ah, 0Ah, 9, 9, 9, 9 db 9, 9, 9, 8, 8, 9, 9, 8 db 8, 8, 8, 8, 8, 9, 9, 8 db 8, 8, 8, 8, 9, 9, 7, 7 db 7, 8, 8, 8, 8, 8, 8, 7 db 7, 7, 7, 8, 8, 7, 7, 7 db 6, 6, 6, 6, 7, 7, 6, 5 db 5, 5, 4, 4, 5, 5, 4, 3 db 3, 3, 13h, 13h, 12h, 11h, 10h, 10h db 10h, 10h, 10h, 10h, 10h, 10h, 10h, 10h db 11h, 11h, 0Fh, 0Fh, 10h, 10h, 0Fh, 0Fh db 0Fh, 0Fh, 0Fh, 0Fh, 0Fh, 0Fh, 0Fh, 0Fh db 10h, 10h, 0Fh, 10h, 10h, 0Eh, 0Eh, 0Fh db 0Fh, 0Fh, 0Fh, 0Eh, 0Eh, 0Eh, 0Eh, 0Eh db 0Eh, 0Eh, 0Eh, 0Eh, 0Eh, 0Eh, 0Fh, 0Fh db 0Eh, 0Dh, 0Eh, 0Eh, 0Dh, 0Dh, 0Eh, 0Eh db 0Dh, 0Eh, 0Eh, 0Dh, 0Eh, 0Eh, 0Dh, 0Eh db 0Eh, 0Dh, 0Dh, 0Eh, 0Eh, 0Ch, 0Ch, 0Ch db 0Dh, 0Dh, 0Dh, 0Dh, 0Dh, 0Dh, 0Ch, 0Dh db 0Dh, 0Ch, 0Ch, 0Dh, 0Dh, 0Dh, 0Dh, 0Dh db 0Dh, 0Dh, 0Dh, 0Dh, 0Dh, 0Dh, 0Dh, 0Ch db 0Ch, 0Dh, 0Dh, 0Ch, 0Ch, 0Ch, 0Ch, 0Dh db 0Dh, 0Dh, 0Dh, 0Ch, 0Dh, 0Dh, 0Ch, 0Bh db 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch db 0Bh, 0Bh, 0Bh, 0Bh, 0Ch, 0Ch, 0Bh, 0Bh db 0Ch, 0Ch, 0Bh, 0Ch, 0Ch, 0Ch, 0Ch, 0Bh db 0Bh, 0Ch, 0Ch, 0Bh, 0Ch, 0Ch, 0Bh, 0Ch db 0Ch, 0Bh, 0Ch, 0Ch, 0Ah, 0Ah, 0Ah, 0Bh db 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Ah db 0Ah, 0Ah, 0Ah, 0Bh, 0Bh, 0Ah, 0Bh, 0Bh db 0Ah, 0Bh, 0Bh, 0Bh, 0Bh, 0Ah, 0Ah, 0Bh db 0Bh, 0Ah, 0Ah, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh db 0Bh, 9, 9, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah db 0Bh, 0Bh, 9, 9, 9, 0Ah, 0Ah, 9 db 9, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah db 0Ah, 0Ah, 0Ah, 8, 9, 9, 9, 9 db 9, 9, 0Ah, 0Ah, 9, 9, 9, 8 db 8, 9, 9, 9, 9, 9, 9, 8 db 7, 8, 8, 8, 8, 7, 7, 7 db 7, 7, 6, 6, 6, 6, 4, 4 db 3, 1, 0Dh, 0Dh, 0Dh, 0Dh, 0Ch, 0Dh db 0Dh, 0Dh, 0Dh, 0Dh, 0Dh, 0Ch, 0Dh, 0Dh db 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch db 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch db 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Dh db 0Dh, 0Bh, 0Bh, 0Ch, 0Ch, 0Ch, 0Ch, 0Bh db 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Ch, 0Ch, 0Bh db 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Ch db 0Ch, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh db 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh db 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh db 0Bh, 0Bh, 0Ch, 0Ch, 0Bh, 0Bh, 0Bh, 0Bh db 0Bh, 0Bh, 0Ah, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh db 0Bh, 0Ah, 0Ah, 0Bh, 0Bh, 0Ah, 0Ah, 0Ah db 0Ah, 0Bh, 0Bh, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah db 0Ah, 0Ah, 0Bh, 0Bh, 0Ah, 0Ah, 0Ah, 0Ah db 0Ah, 0Bh, 0Bh, 9, 0Ah, 0Ah, 0Ah, 0Ah db 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah db 9, 0Ah, 0Ah, 0Ah, 0Ah, 9, 0Ah, 0Ah db 9, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah db 0Ah, 9, 9, 9, 9, 9, 9, 9 db 0Ah, 0Ah, 9, 9, 9, 9, 9, 9 db 0Ah, 0Ah, 9, 9, 9, 9, 9, 9 db 8, 9, 9, 9, 9, 9, 9, 9 db 9, 9, 9, 8, 8, 8, 8, 9 db 9, 9, 9, 9, 9, 9, 9, 8 db 8, 8, 8, 8, 8, 9, 9, 8 db 8, 8, 8, 8, 8, 8, 9, 9 db 8, 7, 8, 8, 7, 7, 7, 7 db 8, 8, 7, 7, 7, 7, 7, 6 db 7, 7, 6, 6, 7, 7, 6, 6 db 6, 5, 5, 5, 5, 5, 3, 4 db 4, 3, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh db 0Bh, 0Bh, 0Ah, 0Bh, 0Bh, 0Bh, 0Bh, 0Ah db 0Ah, 0Ah, 0Ah, 0Ah, 8, 0Ah, 0Ah, 9 db 9, 9, 9, 0Ah, 10h, 11h, 11h, 0Fh db 0Fh, 10h, 10h, 0Eh, 0Fh, 0Fh, 0Eh, 0Eh db 0Fh, 0Fh, 0Eh, 0Eh, 0Fh, 0Fh, 0Fh, 0Fh db 0Eh, 0Fh, 0Fh, 0Eh, 0Dh, 8, 9, 9 db 8, 8, 0Dh, 0Eh, 0Eh, 0Eh, 0Eh, 0Eh db 0Eh, 0Eh, 0Eh, 0Eh, 0Eh, 0Dh, 0Dh, 0Eh db 0Eh, 0Eh, 0Eh, 0Dh, 0Eh, 0Eh, 0Dh, 0Dh db 0Dh, 0Eh, 0Eh, 0Eh, 0Eh, 0Dh, 0Dh, 0Eh db 0Eh, 0Dh, 0Eh, 0Eh, 0Ch, 0Dh, 0Dh, 0Dh db 0Dh, 0Dh, 0Dh, 0Dh, 0Dh, 0Dh, 0Dh, 0Dh db 0Dh, 0Dh, 0Dh, 0Ch, 0Dh, 0Dh, 0Dh, 0Dh db 0Dh, 0Dh, 0Ch, 0Dh, 0Dh, 0Ch, 0Ch, 0Dh db 0Dh, 0Bh, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch db 0Ch, 0Dh, 0Dh, 0Bh, 0Ch, 0Ch, 0Ch, 0Ch db 0Bh, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch db 0Ch, 0Bh, 0Ch, 0Ch, 0Bh, 0Bh, 0Bh, 0Bh db 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch, 0Ch db 0Bh, 0Ch, 0Ch, 0Bh, 0Ch, 0Ch, 0Bh, 0Ch db 0Ch, 0Bh, 0Ch, 0Ch, 0Bh, 0Ah, 0Ah, 0Bh db 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Ah, 0Ah, 0Bh db 0Bh, 0Ah, 0Ah, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh db 0Bh, 0Bh, 0Bh, 0Ah, 0Bh, 0Bh, 0Ah, 0Ah db 0Ah, 0Bh, 0Bh, 0Ah, 0Ah, 0Bh, 0Bh, 0Ah db 0Ah, 0Bh, 0Bh, 0Ah, 9, 9, 0Ah, 0Ah db 0Ah, 0Ah, 0Ah, 0Ah, 9, 9, 9, 0Ah db 0Ah, 9, 0Ah, 0Ah, 9, 9, 8, 9 db 9, 9, 9, 9, 9, 9, 9, 8 db 8, 9, 9, 8, 8, 7, 7, 8 db 8, 7, 6, 6, 6, 6, 4, 4 db 3, 1, 8, 8, 8, 8, 8, 8 db 8, 8, 7, 8, 8, 7, 7, 8 db 8, 7, 7, 7, 7, 7, 7, 7 db 7, 7, 7, 7, 7, 8, 8, 9 db 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh db 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh db 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh, 0Bh db 0Bh, 0Bh, 0Bh, 0Bh, 4, 0Bh, 0Bh, 0Bh db 0Bh, 0Ch, 0Ch, 0Bh, 0Ah, 0Bh, 0Bh, 0Ah db 0Ah, 0Ah, 0Ah, 0Bh, 0Bh, 0Ah, 0Ah, 0Ah db 0Ah, 0Bh, 0Bh, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah db 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah db 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah db 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah db 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah db 0Ah, 0Ah, 0Bh, 0Bh, 0Ah, 0Ah, 0Ah, 0Ah db 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah db 0Ah, 0Bh, 0Bh, 0Ah, 0Bh, 0Bh, 0Ah, 9 db 0Ah, 0Ah, 0Ah, 0Ah, 0Bh, 0Bh, 0Ah, 9 db 9, 0Ah, 0Ah, 9, 0Ah, 0Ah, 0Ah, 0Ah db 9, 9, 0Ah, 0Ah, 9, 9, 9, 9 db 9, 9, 9, 9, 9, 9, 9, 9 db 9, 9, 9, 9, 9, 9, 9, 9 db 9, 9, 9, 9, 9, 9, 9, 9 db 9, 9, 9, 9, 9, 9, 9, 9 db 0Ah, 0Ah, 9, 9, 9, 0Ah, 0Ah, 8 db 9, 9, 8, 8, 8, 8, 8, 8 db 8, 8, 8, 8, 8, 8, 8, 9 db 9, 8, 8, 8, 8, 8, 8, 9 db 9, 7, 8, 8, 7, 7, 7, 7 db 7, 8, 8, 7, 7, 6, 6, 7 db 7, 6, 5, 5, 6, 6, 4, 4 db 4, 4, 6, 6, 6, 6, 6, 6 db 5, 5, 5, 5, 5, 4, 4, 4 db 4, 1, 4, 4, 4, 4, 4, 4 db 4, 4, 4, 4, 4, 4, 4, 4 db 4, 4 _@@const_3 db 3 db 3 dup(0) ; 26/02/2025 (mp3play8.s) ; 22/02/2025 (mp3play7.s) ;mp3_synth_filter_procs dd synth_16bit_shift_0_slow ; SYNTH_MACRO 0,0,0 ;dd synth_16bit_shift_1_slow ; SYNTH_MACRO 0,1,0 ;dd synth_16bit_shift_2_slow ; SYNTH_MACRO 0,2,0 ;dd synth_8bit_shift_0_slow ; SYNTH_MACRO 1,0,0 ;dd synth_8bit_shift_1_slow ; SYNTH_MACRO 1,1,0 ;dd synth_8bit_shift_2_slow ; SYNTH_MACRO 1,2,0 ;dd synth_16bit_shift_0_fast ; SYNTH_MACRO 0,0,1 ;dd synth_16bit_shift_1_fast ; SYNTH_MACRO 0,1,1 ;dd synth_16bit_shift_2_fast ; SYNTH_MACRO 0,2,1 ;dd synth_8bit_shift_0_fast ; SYNTH_MACRO 1,0,1 ;dd synth_8bit_shift_1_fast ; SYNTH_MACRO 1,1,1 ;dd synth_8bit_shift_2_fast ; SYNTH_MACRO 1,2,1 ;txt_hello db 'nocash mp3 decoder v1.4, 2024 martin korth, press ctrl+c to quit,' ; db ' BDS now',0Dh,0Ah,0 ; Erdogan Tan - 17/10/2024 txt_hello db 13,10 ;db 'NOCASH MP3 PLAYER v1.4 for Windows ',0 ; 09/01/2025 ;db 'NOCASH MP3 PLAYER v1.0 for TRDOS386 ',0 ; 26/02/2025 db 'NOCASH MP3 PLAYER v1.0v+ for TRDOS386 ',0D,0Ah,0 txt_bdate db 'February 2025.',13,10,0 ; 26/02/2025 txt_help db 0Dh, 0Ah db 'usage: MP3PLAY <...> ',0Dh,0Ah,0 ; 26/01/2025 ;db 'usage: mp3play5 input.mp3 [output.wav] [verify.pcm] [/test]', 0Dh,0Ah ;db ' [/mono] [/8bit] [/fast] [/half|/quarter]',0Dh,0Ah,0 ;_@@txt_verify1 db 'verify max difference = ',0 ;_@@txt_verify1_at_mp3 db ' at mp3:',0 ;_@@txt_verify2 db ', average difference = ',0 ; Erdogan Tan - 17/10/2024 ;db 'NOCASH MP3 PLAYER v1.4 for Windows ',0 ;txt_ctrlc db '(press CTRL+C to quit)', 13,10,0 ;txt_ctrlc_size = $ - txt_ctrlc ;txt_about db 13,10 ;;db '----------------------------------',13,10 ;db '------------------------------------',13,10 ; 26/02/2025 txt_original db 13, 10 db 'Erdogan Tan - 28/02/2025 (Assembler: FASM)', 13,10 db 'Original code: MP3PLAYER.EXE v1.4 (20/09/2024)', 13,10 db ' by Martin Korth (TASM source code)' db 13,10,0 db 'v1.4.0' ; 10/01/2025 half_buffer db 0 ; --------------------------------------------------------------------------- ; 21/01/2025 - Player Window ; --------------------------------------------------------------------------- ; 25/02/2025 (mp3play8.s) ; 26/01/2025 ; 25/01/2025 (mp3play5.s) PlayingScreen: ; 24/01/2025 (mp3play4.s) ;Template: ; 26/01/2025 db 201, 78 dup(205), 187 ; 23/01/2025 db 186, 20 dup(219), " NOCASH MP3 PLAYER v1.0 for TRDOS386 ", 21 dup(219), 186 db 204, 78 dup(205), 185 ;db 186, 33 dup(32), " User Guide ", 33 dup(32), 186 db 186, 6 dup(32), " Play/Pause ", 4 dup(32), "/

Next/Previous ", 9 dup(32), 186 db 186, 6 dup(32), " Stop ", 4 dup(32), "/ Wave Lighting ", 9 dup(32), 186 db 186, 6 dup(32), " Forwards ", 4 dup(32), "<+>/<-> Inc/Dec Volume ", 8 dup(32), 186 db 186, 6 dup(32), " Backwards ", 4 dup(32), " Quit Program ", 9 dup(32), 186 db 204, 78 dup(205), 185 ;db 186, 6 dup(32), "File Name : ", 4 dup(32), "Bit-Rate : 0 Bits ", 9 dup(32), 186 ;db 186, 6 dup(32), "Frequency : 0 Hz ", 4 dup(32), "#-Channels: 0 ", 9 dup(32), 186 ; 23/01/2025 db 186, 6 dup(32), "File Name : ", 4 dup(32), "File Size : 0 ", 9 dup(32), 186 db 186, 6 dup(32), "Frequency : 0 Hz ", 4 dup(32), " Playback : 0 Hz ", 9 dup(32), 186 db 186, 6 dup(32), " Channels : 0 ", 4 dup(32), " : 0 ", 9 dup(32), 186 db 186, 6 dup(32), " Bit Rate : 0 ", 4 dup(32), " : 0 bits ", 9 dup(32), 186 db 200, 78 dup(205), 188 db 80 dup(32) improper_samplerate_txt: read_error_txt: ; 26/01/2025 db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(205) db 80 dup(32) db 33 dup(32), "00:00 ", 174, 175, " 00:00", 24 dup(32), "VOL 000%" db 0 ; --------------------------------------------------------------------------- ; 25/01/2025 (mp3play5.s) ; 22/12/2024 (vgaplay.s) fillblock: times 14 db 0FFh ; 28/02/2025 dw 0FFFFh ;dw 0 ; --------------------------------------------------------------------------- ; 23/11/2024 colors: db 0Fh, 0Bh, 0Ah, 0Ch, 0Eh, 09h, 0Dh, 0Fh ; white, cyan, green, red, yellow, blue, magenta ccolor: db 0Bh ; cyan ; --------------------------------------------------------------------------- ; 25/02/2025 volume_level db -1 ; --------------------------------------------------------------------------- ; 25/02/2025 hFile dd -1 ; --------------------------------------------------------------------------- EOF: ; =========================================================================== ; Uninitialized DATA (BSS) ; =========================================================================== align 4 ; 25/01/2025 (mp3play5.s) ; 26/12/2024 (vgaplay.s) LFB_ADDR: rd 1 graphstart: rd 1 ; start (top) line/row for wave lighting points fontbuff1: rb 256*14 ; 8x14 font data (from system) fontbuff2: rb 256*16 ; 8x16 font data (modif. from 8x14) wleds_addr: rd 80*16 ; 32 bit addresses, 80 leds, 16 volume levels prev_leds: rd 80 ; previous lighting leds screenpos: rd 1 ; hw = (cursor) row, lw = (cursor) column wcolor: rd 1 columns: rb 1 pbprev: rb 1 ; previous progress bar indicator position align 4 ; 25/01/2025 ; 21/01/2025 ;wleds_addr rd 80*8 stream_size rd 1 turn_on_leds rd 1 ; 22/01/2025 sd_count rd 1 stream_begin rd 1 fb_count rd 1 ; 26/01/2025 draw_wave_points rd 1 bss_start: ; 10/01/2025 ;ABSOLUTE bss_start ; 12/01/2025 ;;;; ; AC97 specific bus_dev_fn rd 1 dev_vendor rd 1 NAMBAR rw 1 NABMBAR rw 1 ; SB16 specific audio_io_base rd 1 ac97_int_ln_reg: audio_intr rb 1 ;;;; ; 25/02/2025 (mp3play8.s) ; 22/02/2025 (mp3play7.s) ;argc rb 1 ; argument count argv rd 1 ; current argument (mp3 file) ptr argvf rd 1 ; 1st argument (mp3 file) ptr argvl rd 1 ; last argument (mp3 file) ptr ; playback_f rd 1 ; playback frequency playback_c rd 1 ; playback num of channels (byte) ; 21/01/2025 wleds rb 1 stopped rb 1 ; 26/01/2025 p_mode rb 1 ; 25/02/2025 (mp3play8.s) ; 22/02/2025 (mp3play7.s) file_count rb 1 init_level rb 1 command rb 1 align 4 ;;; ; 24/01/2025 ; 20/10/2024 (TRDOS 386 specific parameters) audio_hardware rb 1 vra rb 1 srb rb 1 blocks rb 1 buffer_size rd 1 ;;; ; 22/01/2025 TotalTime rd 1 ProgressTime rd 1 ; 23/05/2025 timerticks rd 1 ; 15/01/2025 (FASM) ;;;; ; 13/01/2025 (Interpolation parameters) conversion rd 1 ; pointer to convers(t)ion ; or interpolation proc address loadsize rd 1 ; decoding buffer size interpolation rb 1 ; interpolation status counter rb 1 ; 15/01/2025 ; 25/01/2025 ;cursortype rw 1 ; 22/01/2025 ;;;; ; 25/01/2025 align 4 ; 25/02/2025 (mp3play8.s) ; 19/02/2025 (mp3play7.s) ; 15/02/2025 (tmp3play.s) mp3_context_start: main_data_pool_start rb 4096 main_data_pool_wr_ptr rd 1 mp3_src_data_location rd 1 mp3_src_frame_size rd 1 mp3_src_frame_end rd 1 mp3_hdr_32bit_header rd 1 mp3_hdr_flag_crc rd 1 mp3_hdr_flag_mpeg25 rd 1 mp3_hdr_flag_padding rd 1 mp3_sample_rate rd 1 mp3_hdr_sample_rate_index rd 1 mp3_bit_rate rd 1 mp3_num_channels rd 1 ; 17/02/2025 ;mp3_bytes_per_sample rd 1 mp3_curr_syn_index rd 1 mp3_curr_syn_dst rd 1 mp3_nb_frames rd 1 mp3_hdr_mode_val rd 1 mp3_hdr_mode_ext rd 1 mp3_hdr_flag_lsf rd 1 mp3_synth_buf rd 2048 mp3_synth_index rd 2 mp3_sb_samples rd 2304 ; MP3_MAX_CHANNELS*36*SBLIMIT mp3_mdct_buf rd 1152 ; MP3_MAX_CHANNELS*SBLIMIT*18 mp3_free_format_frame_size rd 1 mp3_curr_vfrac_bits rb 1 ; 25/02/2025 (mp3play8.s) ; 19/02/2025 (mp3play7.s) ; 17/02/2025 (tmp3play.s) align 4 mp3_xing_id rd 1 mp3_xing_flags rd 1 mp3_xing_frames rd 1 mp3_xing_filesize rd 1 mp3_xing_toc rb 100 mp3_xing_vbr_scale rd 1 mp3_file_size rd 1 mp3_id3_size rd 1 mp3_tag_size rd 1 mp3_num_frames_decoded rd 1 mp3_samples_dst rd 1 ; DWORD mp3_samples_output_size mp3_samples_output_size rd 1 mp3_samples_dst_step rd 1 mp3_curr_channel rd 1 mp3_curr_granule rd 1 mp3_curr_frame rd 1 mp3_bitstream_start rd 1 mp3_src_remain rd 1 mp3_extra_bytes rd 1 mp3_main_data_begin rd 1 mp3_num_compress_bits rd 1 mp3_nb_granules rd 1 mp3_granules rb 9856 mp3_exponents rw 576 huff_tree_buf rb 0B800h mp3_band_index_long rw 288 mp3_table_4_3_exp rb 32828 mp3_table_4_3_value rd 32828 mp3_exp_table rd 512 mp3_expval_table rd 8192 mp3_mdct_win rd 288 mp3_is_table_lsf rd 512 mp3_synth_win rd 1024 mp3_lsf_sf_expand_exploded_table rb 8192 mp3_context_end: _@@region_address0 rd 1 _@@region_address1 rd 1 _@@saved_sp rd 1 mp3_main_data_siz rd 1 _@@scfsi rd 1 _@@gains rd 3 _@@rle_point rd 1 _@@III rd 1 _@@JJJ rd 1 _@@linbits rd 1 _@@vlc_table rd 1 _@@coarse_end rd 1 _@rle_point rd 1 _@@rle_ptr rd 1 _@@rle_val rd 1 _@@rle_val_x_40h rd 1 _@@max_bands rb 4 _@@max_blocks rd 1 _@@max_pos rd 1 _@@sfb_array rb 40 _@@is_tab rd 1 _@@n_long_sfb rd 1 _@@n_short_sfb rd 1 _@@n_sfb rd 1 _@@tmp rb 2304 _@@s0 rd 1 _@@s2 rd 1 _@@s3 rd 1 _@@@tmp rd 18 ; rb 72 _@@tmp0 rd 1 _@@tmp1 rd 1 _@@tmp2 rd 1 _@@tmp3 rd 1 _@@tmp4 rd 1 _@@tmp5 rd 1 mp3_out2_a0 rd 1 mp3_out2_a1 rd 1 mp3_out2_a2 rd 1 mp3_out2_b0 rd 1 mp3_out2_b1 rd 1 mp3_out2_b2 rd 1 rd 1 rd 1 _@@@JJJ rd 1 _@@www rd 1 _@@mdct_long_end rd 1 _@@sblimit rd 1 _@@switch_point rd 1 mp3_huff_tmp_bits rb 256 mp3_huff_tmp_codes rb 512 _@@table_nb_bits rd 1 _@@nb_codes rd 1 _@@prefix_numbits rd 1 _@@prefix_pattern rd 1 _@@curr_table_size rd 1 _@@curr_table_mask rd 1 _@@curr_table_index rd 1 _@@granule_addr rd 1 ; HANDLE hFile ;hFile rd 1 ; HANDLE hMap ;hMap rd 1 stream_start rd 1 stream_pos rd 1 bytes_left rd 1 ; 25/02/2025 align 4096 ; 25/01/2025 sounddata rb 640*4 ; For Graphics mode (640 wave points) ; 25/01/2025 (mp3play5.s) ; 24/12/2024 (vgaplay.s) prev_points rd 640 ; previous wave points (which are lighting) ; 25/02/2025 (mp3play8.s) ; 22/02/2025 (mp3play7.s) mp3_file_name rb 80 ; wave file, path name (<= 80 bytes) rd 1 ; 24/01/2025 txtfilesize rb 20 ; 10/01/2025 align 4096 ; 09/01/2025 ;sample_buffer rb 36864 ;sample_buffer rb 8*MP3_MAX_OUTPUT_SIZE ;sample_buffer_size equ $-sample_buffer ; 27/01/2025 ; 15/01/2025 decoding_buffer rb 8192 ; 2*4096 (max. 4608) sample_buffer rb 36864 ; 8*4608 ; 26/01/2025 ;align 4096 end_of_bss: ; =========================================================================== ; end