; **************************************************************************** ; TMP3PLAY.PRG - Tiny MP3 PLAYER v1.0 for TRDOS 386 Operating System ; ---------------------------------------------------------------------------- ; Based on ; NOCASH MP3PLAY.EXE 1.4 (Windows) ASM source code (Martin Korth, 20/09/2024) ; ; 15/02/2025 ; ; [ Last Modification: 24/02/2025 ] ; ; Modified from 'mp3play6.s' (14/02/2025) and 'twavply3.s' (10/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: NASM (v2.15) ; ------------------------------------------------ ; nasm tmp3play.s -l tmp3play.txt -o TMP3PLAY.PRG ; 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 ; --------------------------------------------------------------------------- ; 09/01/2025 %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 ; =========================================================================== ; CODE ; =========================================================================== [BITS 32] ; 32-bit intructions [ORG 0] ; =========================================================================== ; 15/02/2025 start: ; 15/02/2025 sys _msg, txt_hello, 255, 0Bh ; 21/10/2024 call set_break ; set and clear bss section ; also set stream_start position ; 15/02/2025 sys _msg, txt_bdate, 255, 0Fh sys _msg, txt_original,255,07h ;;; ; 11/01/2025 call detect_enable_audio_device ; 15/02/2025 jnc short GetFileName _dev_not_ready: ; couldn't find the audio device! sys _msg, noDevMsg, 255, 0Fh jmp ExitP@ ; --------------------------------------------------- ; 20/02/2025 ; 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[] ---- mov esi, esp lodsd cmp eax, 2 ; two arguments jnb short _x jmp pmsg_usage _x: lodsd ; skip program (PRG) file name mov esi, [esi] ; MP3 file name ;mov edi, wav_file_name ; 15/02/2025 mov edi, mp3_file_name xor ecx, ecx ; 0 ScanName: lodsb cmp al, 0Dh ; CR jna short a_4 _y: 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 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 pmsg_usage: sys _msg, txt_help, 255, 0Fh 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 ;jc .exit ; 26/01/2025 jc ExitP@ ; 13/02/2025 call write_audio_dev_info ; 15/02/2025 call mp3_check_1st_frame jnc short mp3_file_ready not_valid_mp3: ; not a proper/valid mp3 file ! sys _msg, not_valid_mp3f, 255, 0Ch jmp ExitP@ ; --------------------------------------------------- mp3_file_ready: ; 13/02/2025 ; 22/01/2025 ; Forward/Backward position change parameters (*) mov eax, [stream_pos] mov [stream_begin], eax ; * mov eax, [bytes_left] mov [stream_size], eax ; * ; 15/02/2025 call SetTotalTime ; 15/02/2025 call write_mp3_file_info sys _msg, msgPressAKey, 255, 07h xor ah, ah int 32h ; TRDOS 386 keyboard interrupt ; getchar (wait for keystroke) ;cmp al, 1Bh ; ESC ;je ExitP@ ; 13/02/2025 call check4keyboardstop.p_4 jc ExitP@ ; --------------------------------------------------- ; 17/02/2025 ; [mp3_bytes_per_sample] = 2 ; 15/02/2025 (tmp3play.s) ; 10/02/2025 (twavply3.s) ; 13/02/2025 (mp3play6.s) ; 26/01/2025 (mp3play5.s) ;;;; mov eax, 256 mov dl, 1 cmp byte [audio_hardware], dl ; 1 ja short .stolp_s16 ; AC97 mov edx, get_sb16_sound_data ; SB16 cmp byte [mp3_num_channels], dl ; 1 ja short .stolp_s ; stereo .stolp_m: ;mov ebx, sdc_8bit_mono ;cmp byte [mp3_bytes_per_sample], dl ; 1 ;jna short .stolp_ok ; 8bit, mono mov ebx, sdc_16bit_mono jmp short .stolp_m16 ; 16bit, mono .stolp_s: ;mov ebx, sdc_8bit_stereo ;cmp byte [mp3_bytes_per_sample], dl ; 1 ;jna short .stolp_s8 ; 8bit, stereo ; 16bit, stereo ;mov ebx, sdc_16bit_stereo .stolp_s16: xor ebx, ebx ; (not necessary) mov edx, get_ac97_sound_data ; (**) ; also for sb16, 16bit, stereo shl eax, 1 .stolp_s8: .stolp_m16: shl eax, 1 .stolp_ok: mov [sd_count], eax mov [sounddata_copy], ebx mov [get_sound_data], edx ;;;; ; 15/02/2025 ; --------------------------------------------------- ; 13/02/2025 ; 30/12/2024 (cgaplay.s) ;;; ; DIRECT VGA MEMORY ACCESS ; bl = 0, bh = 5 ; Direct access/map to VGA memory (0A0000h) sys _video, 0500h cmp eax, 0A0000h je short .vimem_map_ok ; 30/12/2024 jmp trdos386_error .vimem_map_ok: ;;;; ; --------------------------------------------------- setgraphmode: ; set VGA 640x480x16 graphics mode mov ax, 12h int 31h ; TRDOS 386 Video Interrupt ; Set video mode mov dx, 3C0h xor al, al setgraphmodel0: ;out dx, al mov ah, 1 ; outb int 34h ; TRDOS 386 IOCTL Interrupt ;out dx, al ;mov ah, 1 ; outb int 34h inc al cmp al, 10h jb short setgraphmodel0 mov al, 20h ;out dx, al ;mov ah, 1 ; outb int 34h ;;;; ; --------------------------------------------------- ; 17/02/2025 mov ecx, 256 xor ebx, ebx mov edi, RowOfs MakeOfs: mov eax, ebx shl eax, 7 ; * 128 mov al, 80 mul ah stosw inc ebx loop MakeOfs ; --------------------------------------------------- ; 25/01/2025 ; 21/12/2024 ;;; --------------------------- call drawplayingscreen ;;; --------------------------- ; 15/02/2025 mov al, 3 ; 0 = max, 31 = min call SetMasterVolume ;;; --------------------------- ; 16/02/2025 replay: ; 17/02/2025 ; 15/02/2025 ; 13/01/2025 (interpolation procs for non-VRA AC97 codecs) ;;;; -------------------------- ;mov byte [interpolation], 0 mov al, 2 cmp [audio_hardware], al ; 2 jb short .direct ; SB16 ; 17/02/2025 ; AC97 ;mov dword [get_sound_data], get_ac97_sound_data ; (**) .chk_frq: 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 .convert: ; 8bit m/s or 16bit mono mov byte [interpolation], 1 ; convert (to 16 bit stereo) jmp short .indirect ; 21/01/2025 .chk_vra: mov [interpolation], al ; 2 = interpolation cmp byte [vra], 1 jb short .indirect ; 21/01/2025 dec byte [interpolation] ; 1 = convert (to 16 bit stereo) cmp byte [mp3_num_channels], 2 jb short .indirect ; 8 bit ; 21/01/2025 ; 17/02/2025 ;cmp byte [mp3_bytes_per_sample], al ; 2 ;jb short .indirect ; mono ; 21/01/2025 ; 14/01/2025 dec byte [interpolation] ; 0 .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 ; 15/02/2025 ; 13/01/2025 jmp short .decode_done ; 15/01/2025 .exit@: ; Disable audio device sys _audio, 0C00h ;jmp ExitProcess ; 27/01/2025 jmp ExitProcess@ .indirect: call audio_system_init_x jc short .exit@ ; 15/01/2025 call mp3_cast_to_speaker_x ;;;; -------------------------- ; 15/02/2025 ; 22/01/2025 .decode_done: ; set video mode to 03h again (clear screen) ;mov ax, 03h ;int 31h ; TRDOS 386 - Video interrupt ; 25/01/2025 call set_text_mode .exit: ;push 0 ; uExitCode ;call ExitProcess ;jmp ExitProcess ; 27/01/2025 jmp ExitProcess@ ; 13/02/2025 ; 25/01/2025 trdos386_error: sys _msg, trdos386_err_msg, 255, 0Eh mov ebx, -1 ; (not necessary) -error exit example- 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 ======================================= ; 15/02/2025 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 ======================================= ; 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 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 ; 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 ======================================= ; 20/10/2024 wrchr: ; TRDOS 386 System Call ; ebx = 2 -> write character onto STDOUT ;push ebx ;push ecx ;push eax pusha ;;mov dword [diskresult], 0 sys _stdio, 2, eax ;jnc short .ok ; if EOF, eax = 0 ;xor eax, eax ; 0 ;.ok: ;mov [diskresult], eax ; written byte count popa ;pop eax ;pop ecx ;pop ebx retn ; =============== S U B R O U T I N E ======================================= ; 14/02/2025 (mp3play6.s) ; 01/02/2025 (mp3play4.s) ; 21/10/2024 (mp3play1.s) 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] ;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 ======================================= ; 16/02/2025 ; 15/02/2025 (tmp3play.s) ; 14/02/2025 (mp3play6.s) ; 01/02/2025 (mp3play4.s) ; 20/10/2024 (mp3play1.s) open_and_mmap_the_file: ; 21/10/2024 ; TRDOS 386 system call ; Open File ; ebx = pointer to filename ; ecx = open mode, 0 = read ; 15/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 ; 16/02/2025 mov esi, txt_read_err jmp short .r_err_msg .ok: mov [bytes_left], eax ; read count ; 16/02/2025 sys _close retn .not_found: ; 16/02/2025 mov esi, txt_not_found ; ("Error: File not found !") .r_err_msg: ;call print_err_msg ;;stc ;retn ; 16/02/2025 jmp print_err_msg ; --------------------------------------------------------------------------- ; 16/02/2025 txt_read_err: db 'File read error !', 0Dh, 0Ah, 0 ; =============== 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 ======================================= ; 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: ; 16/02/2025 mov esi, txt_audio_nf_err ;call print_err_msg ;;stc ;retn jmp print_err_msg ; --------------------------------------------------------------------------- txt_audio_nf_err: db 'Proper audio hardware not found!',0Dh,0Ah,0 ; =============== CONSTANT ================================================== ; 21/10/2024 ;MP3_MAX_OUTPUT_SIZE equ 2*2*18*32*2 ; = 1200h = 4608 decimal = 2 channels, 2 granules, 18*32, 2 byte (16bit) ; =============== S U B R O U T I N E ======================================= ; 29/01/2025 ; 28/01/2025 ; 27/01/2025 ; 12/01/2025 audio_system_init: ; 28/01/2025 mov eax, [mp3_samples_output_size] ; 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 .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 ; 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 ; 24/01/2025 ;retn mov al, [volume_level] ;call SetMasterVolume@ ;retn jmp SetMasterVolume@ .init_err: init_error: ; 27/01/2025 call set_text_mode ; 16/02/2025 mov esi, txt_audio_init_err ;call print_err_msg ;;stc ;retn jmp print_err_msg ; --------------------------------------------------------------------------- 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 ======================================= ; 17/02/2025 ; 16/02/2025 (tmp3play.s) ; 13/02/2025 (mp3play6.s) ; 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: ; Start to play ; 17/02/2025 ;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 ; 16/02/2025 mov ebx, [mp3_num_channels] dec ebx ;or bl, al ; 17/02/2025 ([mp3_bytes_per_sample] = 2) or bl, 2 ; 16bit mov ecx, [mp3_sample_rate] mov bh, 4 ; start to play ; 13/01/2025 mp3_cast_to_speaker_@: push ebx push ecx ; 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: pop ecx ; sample rate (frequency) pop ebx ; play mode (bl) ; 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 short .playback_end ; 16/02/2025 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 ; 16/02/2025 jmp short .playback_lop ; 21/01/2025 ;;;; --------------------- .pb_l_@@: call checkUpdateEvents ;jc short .playback_end ;jmp short .playback_lop ; 16/02/2025 jnc short .playback_lop ;;;; --------------------- .playback_end: ; 16/02/2025 ; TRDOS 386 system call ; sysaudio ; Stop playing sys _audio, 0700h ; Cancel callback service (for user) sys _audio, 0900h ; Deallocate audio buffer (for user) sys _audio, 0A00h ; Disable audio device sys _audio, 0C00h 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 ======================================= ; 18/02/2025 ; 17/02/2025 ; 16/02/2025 ; 30/01/2025 ; 27/01/2025 ; 26/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) ; 18/02/2025 ; 17/02/2025 mov ebx, convert_to_stereo ; 17/02/2025 ;cmp byte [mp3_bytes_per_sample], 2 ;je short .set_sizes ; 16bit mono jmp .set_sizes ; 17/02/2025 ; [mp3_bytes_per_sample] = 2 ; 16bit mono or 16bit stereo ; (but 16bit stereo does not need conversion here) ;; 8bit output (16bit conversion is neeed) ;mov ebx, convert_to_16bit ;; 16/02/2025 ;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_@: ; 18/02/2025 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: ; 27/01/2025 call set_text_mode ; sys _msg, msg_no_vra, 255, 0Fh ;jmp ExitProcess ; 27/01/2025 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 ; 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 ; 27/01/2025 ; ; 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 ; 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 ======================================= ; 15/02/2025 ; 14/01/2025 ; 13/01/2025 mp3_cast_to_speaker_x: ; 48 kHZ, 16bit, stereo mov ebx, 0403h mov ecx, 48000 ; 14/01/2025 cmp byte [vra], 1 jb short .jmpto@ ; 15/02/2025 mov ecx, [mp3_sample_rate] .jmpto@: jmp mp3_cast_to_speaker_@ ; =============== S U B R O U T I N E ======================================= ; 18/02/2025 ; 17/02/2025 ; 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 ; 18/02/2025 ; 15/01/2025 call dword [conversion] ; 17/02/2025 (only one option = 16bit mono) ;call convert_to_stereo .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 ; ///// ; 17/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 ; ///// %endif ; =============== S U B R O U T I N E ======================================= ; -------------------------------------------------------- ; 13/01/2025 ; -------------------------------------------------------- ; 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 ; --------------------------------------------------------------------------- ; 15/02/2025 - Hardware Info display/write procedures. ; --------------------------------------------------------------------------- ; ref: twavply3.s (10/02/2025 ;============================================================================= ; Write AC'97 Hardware Information ;============================================================================= ; 09/02/2025 write_audio_dev_info: xor ebx, ebx cmp byte [audio_hardware], 1 jne short write_ac97_pci_dev_info ;----------------------------------------------------------------------------- ; 09/02/2025 ; 05/02/2025 - sb16play.s write_sb16_dev_info: 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 mov al, [audio_intr] add al, 30h mov [msgSB16IRQ], al sys _msg, msgSB16Info, 255, 07h retn ;----------------------------------------------------------------------------- ; 09/02/2025 ; 05/02/2025 - ac97play.s write_ac97_pci_dev_info: ; BUS/DEV/FN ; 00000000BBBBBBBBDDDDDFFF00000000 ; DEV/VENDOR ; DDDDDDDDDDDDDDDDVVVVVVVVVVVVVVVV mov eax, [dev_vendor] ; 07/12/2024 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 ;add [msgIRQ], ax add ax, 3030h mov [msgIRQ], ax ;and al, al cmp al, 30h jne short _w_ac97imsg_ mov al, [msgIRQ+1] mov ah, ' ' mov [msgIRQ], ax _w_ac97imsg_: sys _msg, msgAC97Info, 255, 07h ;retn ;----------------------------------------------------------------------------- write_VRA_info: sys _msg, msgVRAheader, 255, 07h cmp byte [vra], 0 jna short _w_VRAi_no _w_VRAi_yes: sys _msg, msgVRAyes, 255, 07h retn _w_VRAi_no: sys _msg, msgVRAno, 255, 07h retn ; 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 ======================================= ; 16/02/2025 (tmp3play.s) ; 10/02/2025 (twavply3.s) ; 13/02/2025 (mp3play6.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 short .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 jmp short .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 ;jmp start.direct ; 16/02/2025 jmp replay.direct .c4ue_rp_indr: ;jmp start.indirect ; 16/02/2025 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_cpt .c4ue_chk_fb: cmp al, 'F' jne short .c4ue_chk_b ;call Player_ProcessKey_Forwards ; 16/02/2025 call move_forward jmp short .c4ue_cpt .c4ue_chk_b: cmp al, 'B' ; 16/02/2025 jne short .c4ue_cpt ;call Player_ProcessKey_Backwards ; 16/02/2025 call move_backward jmp short .c4ue_cpt ; 16/02/2025 .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_@ .c4ue_skip_utt: and ecx, ecx jz short .c4ue_ok .c4ue_cpt_@: cmp byte [stopped], 0 ja short .c4ue_ok ; 16/02/2025 jmp drawscopes ; =============== S U B R O U T I N E ======================================= ; -------------------------------------------------------- ; 22/01/2025 - Check for Keyboard Stop (Request) ; -------------------------------------------------------- ; 16/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 ; 13/02/2025 ; 23/01/2025 ;;;; .clear_keyb_buf: push eax ; * ; clear keyboard buffer mov ah, 11h int 32h jz short .c4ks mov ah, 10h 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: ; 16/02/2025 call SetMasterVolume .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 ;cmp al, 'B' ;je short .p_r ;cmp al, 'F' ;je short .p_r cmp al, 'Q' je short .p_q clc retn .p_q: stc .p_r: retn ; -------------------------------------------------------- ; 22/01/2025 - Goto Forward approx. 5 seconds ; -------------------------------------------------------- ; 16/02/2025 move_forward: ; 23/01/2025 ; 22/01/2025 ;Player_ProcessKey_Forwards: ;; 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 .ppk_f@ ; 23/01/2025 mov edx, ecx sub edx, [fb_count] cmp eax, edx ;jna short Player_ProcessKey_set_pos ; 16/02/2025 jna short move_fwbw_set_pos .ppk_f@: mov eax, edx ; offset ;jmp short Player_ProcessKey_set_pos ; 16/02/2025 jmp short move_fwbw_set_pos ; -------------------------------------------------------- ; 22/01/2025 - Goto Backward approx. 5 seconds ; -------------------------------------------------------- ; 16/02/2025 move_backward: ; 22/01/2025 ;Player_ProcessKey_Backwards: ;; 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 .ppk_bw@ sub eax, edx ;jnc short Player_ProcessKey_set_pos ; 16/02/2025 jnc short move_fwbw_set_pos .ppk_bw@: xor eax, eax ; offset ; -------------------------------------------------------- ; 16/02/2025 move_fwbw_set_pos: ; 23/01/2025 ; 22/01/2025 ;Player_ProcessKey_set_pos: 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 .ppk_sp@ ; proper to change cmp bl, 0 jna short .ppk_sp@@@ ; [srb] was 1 when starting this f/b procedure ; (so, there is not a conflict) .ppk_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 .ppk_sp@@ xor ecx, ecx .ppk_sp@@: ; 23/01/2025 mov [bytes_left], ecx ;;;; ; continue to playback call audio_f_play .ppk_sp@@@: ; clear keyboard buffer ;call clear_keyb_buf ; 23/01/2025 .clear_keyb_buf: ; clear keyboard buffer mov ah, 1 int 32h jz short .ppk_sp_ok mov ah, 0 int 32h jmp short .clear_keyb_buf .ppk_sp_ok: retn ; =============== 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 ======================================= ; 16/02/2025 (tmp3play.s) ; 13/02/2025 (mp3play6.s) ; 30/12/2024 (cgaplay.s) ; 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 bl, 60 div bl ; al = minutes, ah = seconds ; 15/02/2025 push eax mov bl, 10 xor ah, ah div bl add ah, '0' mov [msgMinSec+1], ah and al, al jz short .skip@@ sub ah, ah div bl add ah, '0' mov [msgMinSec], ah .skip@@: pop eax mov al, ah xor ah, ah div bl add ah, '0' mov [msgMinSec+4], ah or al, al jz short .return sub ah, ah div bl add ah, '0' mov [msgMinSec+3], ah .return: retn ; =============== S U B R O U T I N E ======================================= ; 15/02/2025 write_mp3_file_info: sys _msg, msgFileName, 255, 0Fh sys _msg, mp3_file_name, 255, 0Fh write_sample_rate: mov eax, [mp3_sample_rate] ; ax = sample rate (hertz) xor edx, edx mov cx, 10 div cx add [msgHertz+4], dl sub edx, edx div cx add [msgHertz+3], dl sub edx, edx div cx add [msgHertz+2], dl sub edx, edx div cx add [msgHertz+1], dl add [msgHertz], al sys _msg, msgSampleRate, 255, 0Fh mov eax, [mp3_bit_rate] xor edx, edx mov ecx, 1000 div ecx mov edi, txtSize mov ebp, esp mov ecx, 10 kbits_1: xor edx, edx div ecx add dl, 30h ; '0' push edx or eax, eax jnz short kbits_1 kbits_2: pop edx mov al, dl stosb cmp esp, ebp jne short kbits_2 mov al, 0 stosb sys _msg, msgKBitRate, 255, 0Fh sys _msg, txtSize, 255, 0Fh sys _msg, msgKBits, 255, 0Fh sys _msg, msgPlayback, 255, 0Fh mov esi, msg16Bits ; 17/02/2025 ; [mp3_bytes_per_sample] = 2 ; ;cmp byte [mp3_bytes_per_sample], 2 ;je short wsr_1 ;mov esi, msg8Bits wsr_1: sys _msg, esi, 255, 0Fh mov esi, msgMono cmp byte [mp3_num_channels], 1 je short wsr_2 mov esi, msgStereo wsr_2: sys _msg, esi, 255, 0Fh sys _msg, msgDuration, 255, 0Fh retn ;============================================================================= ; drawscopes - draw wave/voice sample scopes ;============================================================================= ; 15/02/2025 ; 10/02/2025 - twavply3.s (32 bit) ; 09/02/2025 - twavplay.asm (16bit) ; 05/02/2025 - twavplay2.s drawscopes: ;call get_current_sound_data ; 15/02/2025 call dword [get_sound_data] mov esi, sounddata xor ecx, ecx xor edx, edx xor edi, edi drawscope0: lodsw xor ah, 80h movzx ebx, ah ; Left Channel shl ebx, 1 mov ax, [RowOfs+ebx] mov [NewScope_L+edi], ax xor bh, bh lodsw xor ah, 80h mov bl, ah ; Right Channel shl ebx, 1 mov ax, [RowOfs+ebx] mov [NewScope_R+edi], ax add di, 2 inc cl jnz short drawscope0 mov dx, 3C4h ;mov ax, 0802h ;out dx, ax mov bx, 0802h mov ah, 3 ; outw int 34h ;mov dx, 3CEh mov dl, 0CEh mov al, 08h ;out dx, al mov ah, 1 ; outb int 34h inc edx xor esi, esi mov ebx, 0A0645h drawscopel4: mov al, 80h drawscopel2: push eax ; ** push edx ; * ;out dx, al mov ah, 1 ; outb int 34h ;mov ecx, 32 mov cl, 32 mov ax, 0FF00h drawscopel3: mov di, [OldScope_L+esi] mov dx, [NewScope_L+esi] cmp edi, edx je short drawscopef3 mov [ebx+edi], al ; L mov [ebx+edx], ah ; L mov [OldScope_L+esi], dx drawscopef3: mov di, [OldScope_R+esi] mov dx, [NewScope_R+esi] cmp edi, edx je short drawscopef4 mov [ebx+edi+38], al ; R mov [ebx+edx+38], ah ; R mov [OldScope_R+esi], dx drawscopef4: add esi, 2*8 inc ebx loop drawscopel3 pop edx ; * pop eax ; ** sub esi, 2*256-2 sub ebx, 32 shr al, 1 jnz short drawscopel2 clc retn ; =============== S U B R O U T I N E ======================================= ; -------------------------------------------------------- ; 15/02/2025 - Get Current Sound Data For Graphics ; -------------------------------------------------------- ; 15/02/2025 (tmp3play.s) get_ac97_sound_data: ; [sd_count] = 1024 sys _audio, 0F00h, [sd_count], sounddata retn ; -------------------------------------------------------- ; 15/02/2025 (tmp3play.s) get_sb16_sound_data: mov esi, sounddata2 sys _audio, 0F00h, [sd_count], esi mov edi, sounddata jmp dword [sounddata_copy] ; -------------------------------------------------------- ; ; 15/02/2025 ; ; 10/02/2025 - twavply3.s (32bit) ; ; 09/02/2025 - twavplay.asm (16bit) ;sdc_16bit_stereo: ; ; esi = source/dma sound data buffer address ; ; ecx = load (source) count = 1024 ; ; edi = target sound data buffer ; ;shr ecx, 1 ; ;rep movsw ; shr ecx, 2 ; rep movsd ; retn ; -------------------------------------------------------- ; 15/02/2025 ; 10/02/2025 - twavply3.s (32bit) ; 09/02/2025 - twavplay.asm (16bit) sdc_16bit_mono: ; esi = source/dma sound data buffer address ; ecx = load (source) count = 512 ; edi = target sound data buffer shr ecx, 1 sdc_16bm_loop: lodsw stosw stosw loop sdc_16bm_loop retn ; -------------------------------------------------------- ; 15/02/2025 ; 10/02/2025 - twavply3.s (32bit) ; 09/02/2025 - twavplay.asm (16bit) sdc_8bit_stereo: ; esi = source/dma sound data buffer address ; ecx = load (source) count = 512 ; edi = target sound data buffer ; convert to 16 bit sample sdc_8bs_loop: lodsb sub al, 80h ; middle = 0, min = -128, max = 127 shl ax, 8 stosw loop sdc_8bs_loop retn ; -------------------------------------------------------- ; 15/02/2025 ; 10/02/2025 - twavply3.s (32bit) ; 09/02/2025 - twavplay.asm (16bit) sdc_8bit_mono: ; esi = source/dma sound data buffer ; ecx = load (source) count = 256 ; edi = target sound data buffer ; convert to 16 bit sample sdc_8bm_loop: lodsb sub al, 80h ; middle = 0, min = -128, max = 127 shl ax, 8 stosw ; L ; convert to stereo stosw ; R loop sdc_8bm_loop retn ; =============== S U B R O U T I N E ======================================= ; 16/02/2025 print_err_msg: sys _msg, esi, 255, 0Ch stc ; (needed) retn ;----------------------------------------------------------------------------- ; 16/02/2025 ; 10/02/2025 (twavply3.s) ;============================================================================= ; Load IFF/ILBM files for VGA 640x480x16 graphics mode ;============================================================================= ; EX1B.ASM (21/6/1994, Carlos Hasan; MSDOS, 'RUNME.EXE', 'TNYPL211') ; 21/10/2017 (TRDOS 386, 'tmodplay.s', Erdogan Tan, NASM syntax) ;----------------------------------------------------------------------------- ; EQUATES AND STRUCTURES ;----------------------------------------------------------------------------- ID_FORM equ 4D524F46h ; IFF/ILBM chunk IDs ID_ILBM equ 4D424C49h ID_BMHD equ 44484D42h ID_CMAP equ 50414D43h ID_BODY equ 59444F42h struc Form ; IFF/ILBM header file format .ID: resd 1 .Length: resd 1 .Type: resd 1 .size: endstruc struc Chunk ; IFF/ILBM header chunk format .ID: resd 1 .Length: resd 1 .size: endstruc struc BMHD ; IFF/ILBM BMHD chunk format .Width: resw 1 .Height: resw 1 .PosX: resw 1 .PosY: resw 1 .Planes: resb 1 .Masking: resb 1 .Compression: resb 1 .Pad: resb 1 .Transparent: resw 1 .AspectX resb 1 .AspectY: resb 1 .PageWidth: resw 1 .PageHeight: resw 1 .size: endstruc struc CMAP ; IFF/ILBM CMAP chunk format .Colors: resb 768 .size: endstruc ;------------------------------------------------------------------------------ ; bswap - macro to reverse the byte order of a 32-bit register, converting ; a value in little/big endian form to big/little endian form. ;------------------------------------------------------------------------------ %macro bswap 1 xchg al, ah rol eax, 16 xchg al, ah %endmacro ; --------------------------------------------------------------------------- ; 25/01/2025 - Player Window Display Functions ; --------------------------------------------------------------------------- ; ref: vgaplay2.s (18/01/2025) ; =============== S U B R O U T I N E ======================================= ; 15/02/2025 drawplayingscreen: ; 10/02/2025 - twavply3.s ; 05/02/2025 - twavply2.s putlbm: mov esi, LOGO_ADDRESS ;pushad ; check if this is a valid IFF/ILBM Deluxe Paint file ;cmp dword [esi+Form.ID], ID_FORM ;jne short putlbmd0 ;cmp dword [esi+Form.Type], ID_ILBM ;jne short putlbmd0 ; get the IFF/ILBM file length in bytes mov eax, [esi+Form.Length] bswap eax mov ecx, eax ; decrease the file length and updates the file pointer sub ecx, 4 add esi, Form.size ; IFF/ILBM main parser body loop putlbml0: test ecx, ecx jle short putlbmd1 ; get the next chunk ID and length in bytes mov ebx, [esi+Chunk.ID] mov eax, [esi+Chunk.Length] bswap eax xchg ebx, eax add esi, Chunk.size ; word align the chunk length and decrease the file length counter inc ebx and bl, 0FEh ; ~1 sub ecx, Chunk.size sub ecx, ebx ; check for the BMHD/CMAP/BODY chunk headers cmp eax, ID_BMHD je short putlbmf0 cmp eax, ID_CMAP je short putlbmf1 cmp eax, ID_BODY je short putlbmf2 ; advance to the next IFF/ILBM chunk structure putlbmc0: add esi, ebx jmp short putlbml0 putlbmd0: stc ;popad retn ; process the BMHD bitmap header chunk putlbmf0: cmp byte [esi+BMHD.Planes], 4 jne short putlbmd0 cmp byte [esi+BMHD.Compression], 1 jne short putlbmd0 cmp byte [esi+BMHD.Pad], 0 jne short putlbmd0 movzx eax, word [esi+BMHD.Width] xchg al, ah add eax, 7 shr eax, 3 mov [picture.width], eax movzx eax, word [esi+BMHD.Height] xchg al, ah mov [picture.height], eax jmp short putlbmc0 putlbmd1: clc ;popad retn ; process the CMAP colormap chunk putlbmf1: mov dx, 3C8h xor al, al ;out dx, al mov ah, 1 ; outb int 34h ;inc dx inc edx putlbml1: mov al, [esi] shr al, 2 ;out dx, al ;mov ah, 1 ; outb int 34h ; IOCTL interrupt (IN/OUT) inc esi dec ebx jg short putlbml1 jmp putlbml0 ; process the BODY bitmap body chunk putlbmf2: pushad mov edi, 0A0000h ;cld mov dx, 3CEh ;mov ax, 0FF08h ;out dx, ax mov bx, 0FF08h mov ah, 3 ; outw int 34h ; IOCTL interrupt (IN/OUT) ;mov dx, 3C4h mov dl, 0C4h mov al, 02h ;out dx, al mov ah, 1 ; outb int 34h ; IOCTL interrupt (IN/OUT) ;inc dx inc edx mov ecx, [picture.height] putlbml2: push ecx mov al, 11h putlbml3: push eax push edi ;out dx, al mov ah, 1 ; outb int 34h ; IOCTL interrupt (IN/OUT) mov ebx, [picture.width] putlbml4: lodsb xor ecx, ecx test al, al jl short putlbmf3 ;movzx ecx, al mov cl, al inc ecx sub ebx, ecx rep movsb jmp short putlbmc4 putlbmf3: neg al ;movzx ecx, al mov cl, al inc ecx sub ebx, ecx lodsb rep stosb putlbmc4: test ebx, ebx jg short putlbml4 pop edi pop eax add al, al jnc short putlbml3 add edi, 80 pop ecx loop putlbml2 popad jmp putlbmc0 ; --------------------------------------------------------------------------- ; 16/02/2025 - Tiny Player Logo (Screen Image) ; --------------------------------------------------------------------------- align 4 db 0 db 'TINYPLAY.LBM Start', 0 LOGO_ADDRESS: incbin "TINYPLAY.LBM" db 0 db 'TINYPLAY.LBM End', 0 ; =========================================================================== ; end of TRDOS 386 specific procedures. ; --------------------------------------------------------------------------- ; =========================================================================== ; Initialized DATA ; =========================================================================== ; 15/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: ; sqrt based constants... dd 80000000h ; 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 wrchr_buf: db 0 num_enqueued_frames: db 0 ; align 4 ; 21/10/2024 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) ; 16/02/2025 ;mp3_synth_filter_procs: ; 15/02/2025 ;dd synth_16bit_shift_0_slow ; SYNTH_MACRO 0,0,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 ; 15/02/2025 db 'Tiny MP3 PLAYER v1.0 for TRDOS386 by Erdogan Tan.',0 txt_bdate: db 13,10 db 'February 2025.',13,10,0 db "24/02/2025", 0 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 msgFileName: db 0Dh, 0Ah, "File Name: ",0 msgSampleRate: db 0Dh, 0Ah, "Sample Rate: " msgHertz: db "00000 Hz", 0 msgKBitRate: db 0Dh, 0Ah, "Bit Rate: ", 0 msgKBits: db " kbit/s", 0 msgPlayback: db 0Dh, 0Ah, "Playback: ", 0 ; 17/02/2025 ;msg8Bits: db "8 bits, ", 0 msgMono: db "Mono", 0Dh, 0Ah, 0 msg16Bits: db "16 bits, ", 0 msgStereo: db "Stereo" nextline: db 0Dh, 0Ah, 0 ; 15/02/2025 msgDuration: db 0Dh, 0Ah db "Duration: " msgMinSec: db "00:00 (minute:second)" db 0Dh, 0Ah, 0 msgVRAheader: db "VRA support: " db 0 msgVRAyes: db "YES", 0Dh, 0Ah, 0 msgVRAno: db "NO ", 0Dh, 0Ah db "(Interpolated sample rate playing method)" db 0Dh, 0Ah, 0 msgSB16Info: db 0Dh, 0Ah db " Audio Hardware: Sound Blaster 16", 0Dh, 0Ah db " Base Port: " msgBasePort: db "000h", 0Dh, 0Ah db " IRQ: " msgSB16IRQ: db 30h db 0Dh, 0Ah, 0 ; 15/02/2025 txt_help: db 'usage: tmp3play filename.mp3',0Dh,0Ah,0 txt_original: db 13,10 db 'Original code: ', 13,10 db ' Nocash MP3 Decoder/Player', 13,10 db ' 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 ; 13/02/2025 msgPressAKey: db 0Dh, 0Ah db ' ... press a key to continue ... ' db 0Dh, 0Ah, 0Dh, 0Ah, 0 ; --------------------------------------------------------------------------- ; 13/02/2025 (mp3play6.s) ; 30/12/2024 (cgaplay.s) fillblock: times 8 db 0FFh dw 0 ; --------------------------------------------------------------------------- ; 13/02/2025 ; 23/11/2024 colors: db 0Bh, 0Ah, 0Ch, 0Eh, 09h, 0Dh, 0Fh ; cyan, green, red, yellow, blue, magenta, white ccolor: db 0Bh ; cyan ; --------------------------------------------------------------------------- ; 24/01/2025 volume_level db 3 ; --------------------------------------------------------------------------- ; 26/01/2025 ; 07/12/2024 trdos386_err_msg: db 'TRDOS 386 System call error !',10,13,0 ; --------------------------------------------------------------------------- ; 15/02/2025 noDevMsg: db 10,13 db 'Error: Unable to find a proper audio device !' db 10,13,0 ; --------------------------------------------------------------------------- ; 15/02/2025 txt_not_found: noFileErrMsg: db 10,13 db 'Error: File not found !',10,13,0 ; --------------------------------------------------------------------------- ; 15/02/2025 not_valid_mp3f: db 10,13 db 'Not a proper/valid MP3 file !',10,13,0 ; --------------------------------------------------------------------------- EOF: ; =========================================================================== ; Uninitialized DATA (BSS) ; =========================================================================== align 4 ; 15/02/2025 bss_start: ABSOLUTE bss_start ;------------------------------------------------------------------------------ ; IFF/ILBM DATA ;------------------------------------------------------------------------------ picture.width: resd 1 ; current picture width and height picture.height: resd 1 ;------------------------------------------------------------------------------ ; 16/02/2025 (tmp3play.s) ; 13/02/2025 ; 12/02/2025 (mp3play6.s) ; 05/02/2025 (cgaplay.s) alignb 4 ; 25/01/2025 stream_size resd 1 ; 13/02/2025 ;turn_on_leds resd 1 ; 22/01/2025 stream_begin resd 1 fb_count resd 1 ; 26/01/2025 sd_count resd 1 ; 12/01/2025 ;;;; ; AC97 specific bus_dev_fn resd 1 dev_vendor resd 1 NAMBAR resw 1 NABMBAR resw 1 ; SB16 specific audio_io_base resd 1 ac97_int_ln_reg: audio_intr resb 1 ;;;; ; 13/02/2025 stopped resb 1 alignb 4 ;;; ; 24/01/2025 ; 20/10/2024 (TRDOS 386 specific parameters) audio_hardware resb 1 vra resb 1 srb resb 1 blocks resb 1 buffer_size resd 1 ;;; ; 23/05/2025 timerticks resd 1 ; 15/01/2025 (FASM) ;;;; ; 13/01/2025 (Interpolation parameters) conversion resd 1 ; pointer to convers(t)ion ; ; or interpolation proc address loadsize resd 1 ; decoding buffer size interpolation resb 1 ; interpolation status ;------------------------------------------------------------------------------ ; 25/01/2025 alignb 4 ; 15/02/2025 mp3_context_start: main_data_pool_start resb 4096 main_data_pool_wr_ptr resd 1 mp3_src_data_location resd 1 mp3_src_frame_size resd 1 mp3_src_frame_end resd 1 mp3_hdr_32bit_header resd 1 mp3_hdr_flag_crc resd 1 mp3_hdr_flag_mpeg25 resd 1 mp3_hdr_flag_padding resd 1 mp3_sample_rate resd 1 mp3_hdr_sample_rate_index resd 1 mp3_bit_rate resd 1 mp3_num_channels resd 1 ; 17/02/2025 ;mp3_bytes_per_sample resd 1 mp3_curr_syn_index resd 1 mp3_curr_syn_dst resd 1 mp3_nb_frames resd 1 mp3_hdr_mode_val resd 1 mp3_hdr_mode_ext resd 1 mp3_hdr_flag_lsf resd 1 mp3_synth_buf resd 2048 mp3_synth_index resd 2 mp3_sb_samples resd 2304 ; MP3_MAX_CHANNELS*36*SBLIMIT mp3_mdct_buf resd 1152 ; MP3_MAX_CHANNELS*SBLIMIT*18 mp3_free_format_frame_size resd 1 mp3_curr_vfrac_bits resb 1 alignb 4 mp3_xing_id resd 1 mp3_xing_flags resd 1 mp3_xing_frames resd 1 mp3_xing_filesize resd 1 mp3_xing_toc resb 100 mp3_xing_vbr_scale resd 1 mp3_file_size resd 1 mp3_id3_size resd 1 mp3_tag_size resd 1 mp3_num_frames_decoded resd 1 mp3_samples_dst resd 1 ; DWORD mp3_samples_output_size mp3_samples_output_size resd 1 mp3_samples_dst_step resd 1 mp3_curr_channel resd 1 mp3_curr_granule resd 1 mp3_curr_frame resd 1 mp3_bitstream_start resd 1 mp3_src_remain resd 1 mp3_extra_bytes resd 1 mp3_main_data_begin resd 1 mp3_num_compress_bits resd 1 mp3_nb_granules resd 1 mp3_granules resb 9856 mp3_exponents resw 576 huff_tree_buf resb 0B800h mp3_band_index_long resw 288 mp3_table_4_3_exp resb 32828 mp3_table_4_3_value resd 32828 mp3_exp_table resd 512 mp3_expval_table resd 8192 mp3_mdct_win resd 288 mp3_is_table_lsf resd 512 mp3_synth_win resd 1024 mp3_lsf_sf_expand_exploded_table resb 8192 mp3_context_end: _@@region_address0 resd 1 _@@region_address1 resd 1 _@@saved_sp resd 1 mp3_main_data_siz resd 1 _@@scfsi resd 1 _@@gains resd 3 _@@rle_point resd 1 _@@III resd 1 _@@JJJ resd 1 _@@linbits resd 1 _@@vlc_table resd 1 _@@coarse_end resd 1 _@rle_point resd 1 _@@rle_ptr resd 1 _@@rle_val resd 1 _@@rle_val_x_40h resd 1 _@@max_bands resb 4 _@@max_blocks resd 1 _@@max_pos resd 1 _@@sfb_array resb 40 _@@is_tab resd 1 _@@n_long_sfb resd 1 _@@n_short_sfb resd 1 _@@n_sfb resd 1 _@@tmp resb 2304 _@@s0 resd 1 _@@s2 resd 1 _@@s3 resd 1 _@@@tmp resd 18 ; resb 72 _@@tmp0 resd 1 _@@tmp1 resd 1 _@@tmp2 resd 1 _@@tmp3 resd 1 _@@tmp4 resd 1 _@@tmp5 resd 1 mp3_out2_a0 resd 1 mp3_out2_a1 resd 1 mp3_out2_a2 resd 1 mp3_out2_b0 resd 1 mp3_out2_b1 resd 1 mp3_out2_b2 resd 1 resd 1 resd 1 _@@@JJJ resd 1 _@@www resd 1 _@@mdct_long_end resd 1 _@@sblimit resd 1 _@@switch_point resd 1 mp3_huff_tmp_bits resb 256 mp3_huff_tmp_codes resb 512 _@@table_nb_bits resd 1 _@@nb_codes resd 1 _@@prefix_numbits resd 1 _@@prefix_pattern resd 1 _@@curr_table_size resd 1 _@@curr_table_mask resd 1 _@@curr_table_index resd 1 _@@granule_addr resd 1 ; HANDLE hFile hFile resd 1 ; HANDLE hMap ;hMap resd 1 stream_start resd 1 stream_pos resd 1 bytes_left resd 1 ; 17/02/2025 ;; 20/10/2024 ;; DWORD diskresult ;;diskresult resd 1 ;; HANDLE std_out ;;std_out resd 1 ;;cmdline_buf resb 1024 ;cmdline_buf resb 128 ;; HANDLE mp3_wav_handle ;mp3_wav_handle resd 1 ;; HANDLE mp3_pcm_handle ;mp3_pcm_handle resd 1 ;_@@max_diff resd 1 ;_@@avg_diff resd 2 ;pcm_filepos resd 1 ;_@@mono_convert resd 1 ;_@@pcm_steps resw 2 ;_@@worst_pcm_filepos resd 1 ;_@@worst_mp3_filepos resd 1 ; resd 1 ;------------------------------------------------------------------------------ ; 15/02/2025 alignb 16 RowOfs resw 256 NewScope_L resw 256 NewScope_R resw 256 OldScope_L resw 256 OldScope_R resw 256 ;------------------------------------------------------------------------------ mp3_file_name resb 80 ; wave file, path name (<= 80 bytes) resd 1 txtSize resd 1 ;------------------------------------------------------------------------------ ; 10/01/2025 alignb 4096 ; 27/01/2025 ; 15/01/2025 decoding_buffer resb 8192 ; 2*4096 (max. 4608) sample_buffer resb 36864 ; 8*4608 ;------------------------------------------------------------------------------ ; 26/01/2025 ;alignb 4096 ; 15/02/2025 sounddata_copy resd 1 ; address pointer for fast (conversion) copy get_sound_data resd 1 ; procedure pointer ; 16/02/2025 alignb 4096 sounddata resb 1024 ; 16 bit stereo samples for wave scope display sounddata2 resb 512 ; temporary buffer ; 26/01/2025 alignb 4096 end_of_bss: ; =========================================================================== ; end