; **************************************************************************** ; playwav9.s (for TRDOS 386) ; ---------------------------------------------------------------------------- ; PLAYWAV9.PRG ! AC'97 (ICH) .WAV PLAYER program by Erdogan TAN ; ; 07/12/2024 ; ; [ Last Modification: 05/02/2025 ] ; ; Modified from PLAYWAV9.COM .wav player program by Erdogan Tan, 27/11/2024 ; AC97PLAY.COM (ac97play.asm) - 29/11/2024 ; AC97PLAY.PRG (ac97play.s) - 07/12/2024 ; ; Assembler: FASM 1.73 ; fasm playwav9.s PLAYWAV9.PRG ; ---------------------------------------------------------------------------- ; In the visualization part of the code, the source code of Matan Alfasi's ; (Ami-Asaf) player.exe program was partially used. ; ---------------------------------------------------------------------------- ; Previous versions of this Wav Player were based in part on .wav file player ; (for DOS) source code written by Jeff Leyla in 2002. ; ac97play.s (TRDOS 386) - tuneloop version (07/12/2024) -AC97- ; ------------------------------------------------------------------ ; playwav9.asm (DOS, 27/11/2024) -Sound Blaster 16- ; ------------------------------------------------------------------ ; playwav8.s (TRDOS 386) - interrupt version (04/06/2024) -AC97- ; ------------------------------------------------------------------ ; 07/12/2024 - playwav9.s - interrupt (srb) + tuneloop version ; ------------------------------------------------------------ ; INTERRUPT (SRB) + TUNELOOP version ; 24/11/2024 (PLAYWAV9.ASM) ; (running in DOSBOX, VIRTUALBOX, QEMU is ok) ; Signal Response Byte = message/signal to user about an event/interrupt ; as requested (TuneLoop procedure continuously checks this SRB) ; (TRDOS 386 v2 feature is used here as very simple interrupt handler output) ; CODE ; 30/11/2024 ; 20/08/2024 ; TRDOS 386 v2.0.9 ; 29/04/2016 _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 _link equ 9 _unlink equ 10 _exec equ 11 _chdir equ 12 _time equ 13 _mkdir equ 14 _chmod equ 15 _chown equ 16 _break equ 17 _stat equ 18 _seek equ 19 _tell equ 20 _mount equ 21 _umount equ 22 _setuid equ 23 _getuid equ 24 _stime equ 25 _quit equ 26 _intr equ 27 _fstat equ 28 _emt equ 29 _mdate 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 ; 30/11/2024 ; 12/09/2024 ('sys' macro in FASM format) macro sys op1,op2,op3,op4 { if op4 eq else mov edx, op4 end if if op3 eq else mov ecx, op3 end if if op2 eq else mov ebx, op2 end if mov eax, op1 int 40h } ; player internal variables and other equates. ; 17/11/2024 (16bit DOS, segment-offset 64KB-16bit limit) ;BUFFERSIZE equ 65520 ; 30/11/2024 (TRDOS 386, 32bit DOS, there is not a 64KB limit) BUFFERSIZE equ 65536 ENDOFFILE equ 1 ; flag for knowing end of file ; 30/11/2024 use32 org 0 include 'ac97.inc' ; 17/02/2017 _STARTUP: ; 30/11/2024 ; 30/05/2024 ; Prints the Credits Text. sys _msg, Credits, 255, 0Bh ; 30/11/2024 ; clear bss mov ecx, bss_end mov edi, bss_start sub ecx, edi shr ecx, 1 xor eax, eax rep stosw ; Detect (& Enable) AC'97 Audio Device call DetectAC97 jnc short GetFileName_@ ; 07/12/2024 ; 30/11/2024 ; 30/05/2024 _dev_not_ready: ; couldn't find the audio device! sys _msg, noDevMsg, 255, 0Fh jmp Exit ; 07/12/2024 GetFileName_@: ; 30/11/2024 ; (TRDOS 386 -Retro UNIX 386- argument transfer method) ; (stack: argc,argv0addr,argv1addr,argv2addr .. ; .. argv0text, argv1text ..) ; ---- argc, argv[] ---- mov esi, esp lodsd cmp eax, 2 ; two arguments ; (program file name & mod file name) jb pmsg_usage ; nothing to do ; 07/12/2024 lodsd ; skip program (PRG) file name ; 30/11/2024 (32bit) ; 29/11/2024 ; 30/05/2024 GetFileName: mov edi, wav_file_name ; 07/12/2024 mov esi, [esi] xor ecx, ecx ; 0 ScanName: lodsb ;test al, al ;jz short a_4 ; 29/11/2024 cmp al, 0Dh jna short a_4 cmp al, 20h je short ScanName ; scan start of name. stosb mov ah, 0FFh ;;; ; 14/11/2024 ; (max. path length = 64 bytes for MSDOS ?) (*) ;xor ecx, ecx ; 0 ;;; a_0: inc ah a_1: ;;; ; 14/11/2024 inc ecx ;;; lodsb stosb cmp al, '.' je short a_0 ; 29/11/2024 cmp al, 20h ;and al, al ;jnz short a_1 ;;; ; 14/11/2024 jna short a_3 and ah, ah jz short a_2 cmp al, '/' ; 14/12/2024 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 ; 29/11/2024 sub ecx, ecx jmp short a_4 a_3: ; 29/11/2024 dec edi ;;; or ah, ah ; if period NOT found, jnz short a_4 ; then add a .WAV extension. SetExt: ; 29/11/2024 ;dec edi mov dword [edi], '.WAV' ; ! 64+12 is DOS limit ; but writing +4 must not ; destroy the following data ;mov byte [edi+4], 0 ; so, 80 bytes path + 0 is possible here ; 29/11/2024 add ecx, 4 add edi, 4 a_4: mov byte [edi], 0 ; 07/12/2024 _1: call write_audio_dev_info ; open existing file ; 28/11/2024 ;mov edx, wav_file_name call openFile ; no error? ok. jnc short getwavparms ; file not found! ; 30/11/2024 sys _msg, noFileErrMsg, 255, 0Ch _exit_: jmp Exit getwavparms: ; 14/11/2024 call getWAVParameters jc short _exit_ ; nothing to do ; 17/11/2024 mov bl, 4 sub bl, byte [WAVE_BlockAlign] ; = 0 for 16 bit stereo ; = 2 for 8 bit stereo or 16 bit mono ; = 3 for 8 bit mono shr bl, 1 ; 0 --> 0, 2 --> 1, 3 --> 1 ; 15/11/2024 adc bl, 0 ; 3 --> 1 --> 2 mov byte [fbs_shift], bl ; = 2 mono and 8 bit ; = 0 stereo and 16 bit ; = 1 mono or 8 bit, ; 07/12/2024 ; 30/11/2024 (TRDOS 386 version, Int 31h) ; 28/11/2024 Player_SplashScreen: ; 15/11/2024 ;; Set video mode to 03h (not necessary) mov eax, 03h ;int 10h int 31h ; 15/11/2024 ;; Get the cursor type mov ah, 03h ;int 10h int 31h mov [cursortype], cx ; save ; 15/11/2024 ;; Set the cursor to invisible mov ah, 01h mov ecx, 2607h ;int 10h int 31h ; 15/11/2024 ;xor edx, edx ;call setCursorPosition ;; Print the splash screen in white mov eax, 1300h mov ebx, 000Fh mov ecx, 1999 mov edx, 0 mov ebp, SplashScreen ;int 10h int 31h ;;; ; 01/12/2024 ; 30/11/2024 (32bit) ;;; ; 22/11/2024 ; set wave volume led addresses ;mov ebx, 13*80*2 ; 01/12/2024 mov ebx, 0B8000h + 13*80*2 mov ebp, 80 mov edi, wleds_addr wleds_sa_1: mov ecx, 7 wleds_sa_2: mov eax, 80*2 mul ecx add eax, ebx ;stosw stosd ; 01/12/2024 loop wleds_sa_2 mov eax, ebx ;stosw stosd ; 01/12/2024 inc ebx inc ebx dec ebp jnz short wleds_sa_1 ;;; ; 30/11/2024 ;;; wait for 3 seconds ; 07/12/2024 ;;; wait for 2 seconds sys _time, 0 ; get time in unix epoch format mov ecx, eax add ecx, 2 _wait_2s: nop sys _time, 0 cmp eax, ecx jb short _wait_2s ;;; ; 07/12/2024 (playwav9.s) ; 18/11/2023 (ich_wav4.asm) ; 13/11/2023 (ich_wav3.asm) cmp byte [VRA], 1 jb short chk_sample_rate playwav_48_khz: mov dword [loadfromwavfile], loadFromFile ;mov dword [loadsize], 0 ; 65536 ;;; ; 17/11/2024 ;mov word [buffersize], 32768 ;mov ax, BUFFERSIZE/2 ; 32760 ; 30/11/2024 ;mov eax, BUFFERSIZE/2 ; 32768 ; 07/12/2024 mov eax, BUFFERSIZE ; 65536 mov [buffersize], eax ; 16 bit samples ; 07/12/2024 ;shl eax, 1 ; bytes mov cl, [fbs_shift] shr eax, cl ;mov [loadsize], ax ; 16380 or 32760 or 65520 mov [loadsize], eax ; 16384 or 32768 or 65536 ;;; ;jmp PlayNow ; 30/05/2024 ; 07/12/2024 jmp Player_Template ; 02/02/2025 chk_sample_rate: ; set conversion parameters ; (for 8, 11.025, 16, 22.050, 24, 32 kHZ) mov ax, [WAVE_SampleRate] cmp ax, 48000 je short playwav_48_khz chk_22khz: cmp ax, 22050 jne short chk_11khz cmp byte [WAVE_BitsPerSample], 8 jna short chk_22khz_1 mov ebx, load_22khz_stereo_16_bit cmp byte [WAVE_NumChannels], 1 jne short chk_22khz_2 mov ebx, load_22khz_mono_16_bit jmp short chk_22khz_2 chk_22khz_1: mov ebx, load_22khz_stereo_8_bit cmp byte [WAVE_NumChannels], 1 jne short chk_22khz_2 mov ebx, load_22khz_mono_8_bit chk_22khz_2: mov eax, 7514 ; (442*17) mov edx, 37 mov ecx, 17 jmp set_sizes chk_11khz: cmp ax, 11025 jne short chk_44khz cmp byte [WAVE_BitsPerSample], 8 jna short chk_11khz_1 mov ebx, load_11khz_stereo_16_bit cmp byte [WAVE_NumChannels], 1 jne short chk_11khz_2 mov ebx, load_11khz_mono_16_bit jmp short chk_11khz_2 chk_11khz_1: mov ebx, load_11khz_stereo_8_bit cmp byte [WAVE_NumChannels], 1 jne short chk_11khz_2 mov ebx, load_11khz_mono_8_bit chk_11khz_2: mov eax, 3757 ; (221*17) mov edx, 74 mov ecx, 17 jmp set_sizes chk_44khz: cmp ax, 44100 jne short chk_16khz cmp byte [WAVE_BitsPerSample], 8 jna short chk_44khz_1 mov ebx, load_44khz_stereo_16_bit cmp byte [WAVE_NumChannels], 1 jne short chk_44khz_2 mov ebx, load_44khz_mono_16_bit jmp short chk_44khz_2 chk_44khz_1: mov ebx, load_44khz_stereo_8_bit cmp byte [WAVE_NumChannels], 1 jne short chk_44khz_2 mov ebx, load_44khz_mono_8_bit chk_44khz_2: ; 30/11/2024 (TRDOS 386, 32bit DOS) mov eax, 15065 ; (655*23) ; 18/11/2023 ((file size + bss + stack) <= 64KB) ;mov ax, 14076 ; (612*23) ; 17/11/2024 ;mov ax, 12650 ; (550*23) mov edx, 25 mov ecx, 23 jmp set_sizes chk_16khz: cmp ax, 16000 jne short chk_8khz cmp byte [WAVE_BitsPerSample], 8 jna short chk_16khz_1 mov ebx, load_16khz_stereo_16_bit cmp byte [WAVE_NumChannels], 1 jne short chk_16khz_2 mov ebx, load_16khz_mono_16_bit jmp short chk_16khz_2 chk_16khz_1: mov ebx, load_16khz_stereo_8_bit cmp byte [WAVE_NumChannels], 1 jne short chk_16khz_2 mov ebx, load_16khz_mono_8_bit chk_16khz_2: ; 30/11/2024 (TRDOS 386, 32bit DOS) mov eax, 5461 ; 17/11/2024 ;mov ax, 5460 mov edx, 3 mov ecx, 1 jmp set_sizes chk_8khz: cmp ax, 8000 jne short chk_24khz cmp byte [WAVE_BitsPerSample], 8 jna short chk_8khz_1 mov ebx, load_8khz_stereo_16_bit cmp byte [WAVE_NumChannels], 1 jne short chk_8khz_2 mov ebx, load_8khz_mono_16_bit jmp short chk_8khz_2 chk_8khz_1: mov ebx, load_8khz_stereo_8_bit cmp byte [WAVE_NumChannels], 1 jne short chk_8khz_2 mov ebx, load_8khz_mono_8_bit chk_8khz_2: mov eax, 2730 mov edx, 6 mov ecx, 1 jmp set_sizes chk_24khz: cmp ax, 24000 jne short chk_32khz cmp byte [WAVE_BitsPerSample], 8 jna short chk_24khz_1 ; 17/01/2025 (BugFix) ; bx -> ebx mov ebx, load_24khz_stereo_16_bit cmp byte [WAVE_NumChannels], 1 jne short chk_24khz_2 mov ebx, load_24khz_mono_16_bit jmp short chk_24khz_2 chk_24khz_1: mov ebx, load_24khz_stereo_8_bit cmp byte [WAVE_NumChannels], 1 jne short chk_24khz_2 mov ebx, load_24khz_mono_8_bit chk_24khz_2: ; 30/11/2024 (TRDOS 386, 32bit DOS) mov eax, 8192 ; 17/11/2024 ;mov ax, 8190 mov edx, 2 mov ecx, 1 jmp set_sizes ; 02/02/2025 chk_32khz: cmp ax, 32000 ;jne short vra_needed ; 02/02/2025 jne short chk_12khz cmp byte [WAVE_BitsPerSample], 8 jna short chk_32khz_1 mov ebx, load_32khz_stereo_16_bit cmp byte [WAVE_NumChannels], 1 jne short chk_32khz_2 mov ebx, load_32khz_mono_16_bit jmp short chk_32khz_2 chk_32khz_1: mov ebx, load_32khz_stereo_8_bit cmp byte [WAVE_NumChannels], 1 jne short chk_32khz_2 mov ebx, load_32khz_mono_8_bit chk_32khz_2: mov eax, 10922 mov edx, 3 mov ecx, 2 ; 02/02/2025 jmp short set_sizes ; 07/12/2024 vra_needed: ; 30/11/2024 (TRDOS 386, ax -> eax) ; 13/11/2023 pop eax ; discard return address to the caller ; 30/05/2024 vra_err: ; 30/11/2024 sys _msg, msg_no_vra, 255, 0Fh jmp Exit ;;;; ; 02/02/2025 chk_12khz: cmp ax, 12000 jne short vra_needed cmp byte [WAVE_BitsPerSample], 8 jna short chk_12khz_1 mov ebx, load_12khz_stereo_16_bit cmp byte [WAVE_NumChannels], 1 jne short chk_12khz_2 mov ebx, load_12khz_mono_16_bit jmp short chk_12khz_2 chk_12khz_1: mov ebx, load_12khz_stereo_8_bit cmp byte [WAVE_NumChannels], 1 jne short chk_12khz_2 mov ebx, load_12khz_mono_8_bit chk_12khz_2: mov eax, 4096 mov edx, 4 mov ecx, 1 ; 02/02/2025 ;jmp short set_sizes ;;;; set_sizes: ; 30/11/2024 (TRDOS 386, 32bit DOS) ;;; ; 17/11/2024 push ecx mov cl, 2 sub cl, [fbs_shift] ; = 2 for 16 bit stereo ; = 1 for 16 bit mono or 8 bit stereo ; = 0 for 8 bit mono shl eax, cl pop ecx mov [loadsize], eax ; (one) read count in bytes ;;; mul edx cmp ecx, 1 je short s_2 s_1: div ecx s_2: ;;; ; eax = byte count of (to be) converted samples ; 17/11/2024 ;;; mov cl, [fbs_shift] shl eax, cl ; *1 for 16 bit stereo ; *2 for 16 bit mono or 8 bit stereo ; *4 for for 8 bit mono ;;; ; eax = 16 bit stereo byte count (target buffer size) ; 07/12/2024 ;shr eax, 1 ; buffer size is 16 bit sample count mov [buffersize], eax ; buffer size in bytes mov [loadfromwavfile], ebx ; 07/12/2024 ; -------------------------------------- ; 07/12/2024 ; 30/11/2024 (32bit) ; 28/11/2024 Player_Template: ; 09/12/2024 xor edx, edx call setCursorPosition ;; Print the splash screen in white mov eax, 1300h mov ebx, 000Fh mov ecx, 1999 ; 09/12/2024 ; edx = 0 ;mov edx, 0 mov ebp, Template ;int 10h ; 30/11/2024 int 31h ;;; ; 14/11/2024 call SetTotalTime call UpdateFileInfo ; 30/11/2024 ; 28/11/2024 StartPlay: ; 25/11/2023 ; ------------------------------------------ ; 07/12/2024 ;jmp short PlayNow PlayNow: ; 07/12/2024 ; Allocate Audio Buffer (for user) ;sys _audio, 0200h, BUFFERSIZE, audio_buffer ; 26/11/2023 sys _audio, 0200h, [buffersize], audio_buffer jc error_exit ; 07/12/2024 ; DIRECT CGA (TEXT MODE) MEMORY ACCESS ; bl = 0, bh = 4 ; Direct access/map to CGA (Text) memory (0B8000h) sys _video, 0400h cmp eax, 0B8000h jne error_exit ; 01/06/2024 ; Initialize Audio Device (bh = 3) sys _audio, 0301h, 0, audio_int_handler ;jc short error_exit jc init_err ;;; ; 14/11/2024 mov al, 3 ; 0 = max, 31 = min ; 15/11/2024 call SetMasterVolume ; 07/12/2024 ;call SetPCMOutVolume call UpdateVolume ;;; ; ; 14/11/2024 call UpdateProgressBar ;;; ; 30/05/2024 ; playwav4.asm _2: call check4keyboardstop ; flush keyboard buffer jc short _2 ; 07/11/2023 ; play the .wav file. Most of the good stuff is in here. ; 05/12/2024 call PlayWav ; close the .wav file and exit. ; 07/12/2024 ;;; ; 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 ;;; Exit: ; 15/11/2024 ;; Restore Cursor Type mov cx, [cursortype] cmp cx, 0 jz short Exit@ mov ah, 01h ;int 10h ; 01/12/2024 int 31h Exit@: ; 29/11/2024 ;call closeFile Exit@@: ;mov ax, 4C00h ; bye ! ;int 21h ; 01/12/2024 sys _exit, 0 here: jmp short here ; do not come here ! ; 30/05/2024 pmsg_usage: ;sys_msg msg_usage, 0Fh ; 14/11/2024 ; 01/12/2024 sys _msg, msg_usage, 255, 0Fh jmp short Exit ; 30/05/2024 init_err: ;sys_msg msg_init_err, 0Fh ; 01/12/2024 sys _msg, msg_init_err, 255, 0Fh jmp short Exit ; 02/12/2024 Player_Quit@: pop eax ; return addr (call PlayWav@) ; 29/11/2024 Player_Quit: call ClearScreen jmp short Exit@@ ClearScreen: mov ax, 03h ;int 10h ; 01/12/2024 int 31h retn ; 07/12/2024 error_exit: sys _msg, trdos386_err_msg, 255, 0Eh jmp Exit ; -------------------------------------------- ; 07/12/2024 (playwav9.s) ; 26/11/2023 (playwav8.s) PlayWav: ; 19/11/2024 mov byte [wleds], 1 ;;; ; 09/12/2024 mov eax, 10548 ; (48000*10/182)*4 cmp byte [VRA], 0 jna short _3 ; 48kHZ (interpolation) ;;; ; 01/12/2024 (32bit) ;movzx eax, word [WAVE_SampleRate] ; 09/12/2024 mov ax, [WAVE_SampleRate] mov ecx, 10 mul ecx mov cl, 182 div ecx ; ax = samples per 1/18.2 second ;mov cl, byte [WAVE_BlockAlign] ; 09/12/2024 ;mov cl, 4 ; 16 bit, stereo ;mul ecx shl eax, 2 ; * 4 _3: mov [wleds_dif], eax ; buffer read differential (distance) ; for wave volume leds update ; (byte stream per 1/18.2 second) RePlayWav: ; 07/12/2024 mov edi, audio_buffer call dword [loadfromwavfile] jc error_exit mov byte [half_buffer], 1 ; (DMA) Buffer 1 mov eax, [count] add [LoadedDataBytes], eax test byte [flags], ENDOFFILE ; end of file jnz short _4 ; yes ; bypass filling dma half buffer 2 ; bh = 16 : update (current, first) dma half buffer ; bl = 0 : then switch to the next (second) half buffer sys _audio, 1000h ; 18/12/2024 mov dword [count], 0 ; 07/12/2024 mov edi, audio_buffer call dword [loadfromwavfile] ;jc error_exit mov eax, [count] add [LoadedDataBytes], eax _4: ; 07/12/2024 mov cx, [WAVE_SampleRate] mov bl, 3 ; 16 bit, stereo mov bh, 4 ; start to play sys _audio ; ------------------------------------------- ; 07/12/2024 (playwav9.s) ; 01/12/2024 (32bit) ; 29/11/2024 tuneLoop: ; 30/05/2024 ; 18/11/2023 (ich_wav4.asm) ; 08/11/2023 ; 06/11/2023 tLWait: ; 18/11/2024 cmp byte [stopped], 0 ; 24/11/2024 jna short tL1 tLWait@: ; 21/11/2024 call checkUpdateEvents jc _exitt_ cmp byte [tLO], '0' je short tLWait call tLZ mov byte [tLO], '0' jmp short tLWait tL1: ; 27/11/2024 ; Check AC'97 interrupt status cmp byte [SRB], 0 ja short tL3 tL2: call checkUpdateEvents jc _exitt_ jmp short tLWait tL3: xor byte [half_buffer], 1 ; 07/12/2024 mov byte [SRB], 0 ; 07/12/2024 mov edi, audio_buffer ;call loadFromFile ; 18/11/2023 ;call word [loadfromwavfile] ; 01/12/2024 call dword [loadfromwavfile] jc short _exitt_ ; end of file ; 07/12/2024 ;;;; ; bh = 16 : update (current, first) dma half buffer ; bl = 0 : then switch to the other half buffer sys _audio, 1000h ;;;; ; 26/11/2024 mov al, [half_buffer] add al, '1' ; 19/11/2024 mov [tLO], al call tL0 ; 24/11/2024 ; 14/11/2024 ;mov ax, [count] ;add [LoadedDataBytes], ax ;adc word [LoadedDataBytes+2], 0 ; 01/12/2024 mov eax, [count] add [LoadedDataBytes], eax ; 07/12/2024 (playwav9.s) ; 27/11/2024 (playwav9.asm) jmp short tL2 _exitt_: ; 07/12/2024 ; Stop Playing ;mov byte [stopped], 2 ;sys _audio, 0700h call ac97_stop ;;; ; 14/11/2024 call UpdateProgressBar ;;; ; 18/11/2024 tLZ: ; 30/05/2024 mov al, '0' ;add al, '0' ;call tL0 ; ;retn ; 06/11/2023 ;jmp short tL0 ;retn ; 06/11/2023 tL0: ; 29/05/2024 (TRDOS 386) ; 08/11/2023 ; 05/11/2023 ; 17/02/2017 - Buffer switch test (temporary) ; 06/11/2023 ; al = buffer indicator ('1', '2' or '0' -stop- ) ; 01/12/2024 mov ebx, 0B8000h ; video display page address mov ah, 4Eh mov [ebx], ax ; show current play buffer (1, 2) retn ; ------------------------------------------- ; 07/12/2024 SetMasterVolume: ;cmp al, 31 ;ja short setvolume_ok mov [volume], al ; max = 0, min = 31 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: ac97_not_detected: retn ; ------------------------------------------- ; 07/12/2024 (playwav9.s) DetectAC97: DetectICH: ; 25/11/2023 (playwav8.s) ; Detect (BH=1) AC'97 (BL=2) Audio Device sys _audio, 0102h ;jnc short d_ac97_@ ;retn jc short ac97_not_detected d_ac97_@: ; 07/12/2024 (playwav9.s) ; 06/06/2017 sys _audio, 0E00h ; get audio controller info jc error_exit ; 25/11/2023 ;cmp ah, 2 ; ICH ? (Intel AC'97 Audio Controller) ;jne _dev_not_ready ; 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 [NAMBAR], edx mov [ac97_int_ln_reg], al ; 07/12/2024 ; 01/06/2024 ; 25/11/2023 ; 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 ;clc retn ; ---------------------------------- ; 01/12/2024 ; 14/11/2024 ; INPUT: ds:dx = file name address ; OUTPUT: [filehandle] = ; -1 = not open openFile: ;mov ax, 3D00h ; open File for read ;int 21h ;jnc short _of1 ; 01/12/2024 (TRDOS 386) ;sys _open, edx, 0 ; 07/12/2024 sys _open, wav_file_name, 0 jnc short _of1 mov eax, -1 ; cf = 1 -> not found or access error _of1: mov [filehandle], eax retn ; ---------------------------------- ; close the currently open file ; 01/12/2024 ; 14/11/2024 ; INPUT: [filehandle] ; -1 = not open ; OUTPUT: none closeFile: cmp dword [filehandle], -1 jz short _cf1 ;mov bx, [filehandle] ;mov ax, 3E00h ;int 21h ; close file ; 01/12/2024 sys _close, [filehandle] ;mov dword [filehandle], -1 _cf1: retn ; ---------------------------------- ; 05/02/2025 ; 01/12/2024 ; 14/11/2024 - Erdogan Tan getWAVParameters: ; reads WAV file header(s) (44 bytes) from the .wav file. ; entry: none - assumes file is already open ; exit: ax = sample rate (11025, 22050, 44100, 48000) ; cx = number of channels (mono=1, stereo=2) ; dx = bits per sample (8, 16) ; bx = number of bytes per sample (1 to 4) ;mov dx, WAVFILEHEADERbuff ;mov bx, [filehandle] ;mov cx, 44 ; 44 bytes ;mov ah, 3Fh ;int 21h ;jc short gwavp_retn ; 01/12/2024 (TRDOS 386) sys _read, [filehandle], WAVFILEHEADERbuff, 44 jc short gwavp_retn cmp eax, 44 jb short gwavp_retn cmp dword [RIFF_Format], 'WAVE' jne short gwavp_stc_retn cmp word [WAVE_AudioFormat], 1 ; Offset 20, must be 1 (= PCM) ; 05/02/2025 jne short gwavp_stc_retn ;je short gwavp_retn ; 15/11/2024 ; 05/02/2025 ; (Open MPT creates wav files with a new type header, ; this program can not use the new type ; because of 'data' offset is not at DATA_SubchunkID.) ; ((GoldWave creates common type wav file.)) cmp dword [DATA_SubchunkID], 'data' je short gwavp_retn ; 15/11/2024 ;mov cx, [WAVE_NumChannels] ; return num of channels in CX ;mov ax, [WAVE_SampleRate] ; return sample rate in AX ;mov dx, [WAVE_BitsPerSample] ; return bits per sample value in DX ;mov bx, [WAVE_BlockAlign] ; return bytes per sample in BX ;gwavp_retn: ;retn gwavp_stc_retn: stc gwavp_retn: retn ; -------------------------------------------------------- ; 07/12/2024 ; -------------------------------------------------------- ; ref: playwav8.s (04/06/2024) audio_int_handler: ; 18/08/2020 (14/10/2020, 'wavplay2.s') ; 07/12/2024 ;mov al, [stopped] ;cmp al, 2 ;je short _callback_retn ; 18/08/2020 ;mov byte [SRB], 1 ; 07/12/2024 inc byte [SRB] ;_callback_retn: sys _rele ; return from callback service ; we must not come here ! sys _exit ; -------------------------------------------------------- ; 07/12/2024 ; -------------------------------------------------------- ; ///// ; 14/12/2024 ; 07/12/2024 ; 01/12/2024 ; 30/05/2024 (ich_wav4.asm, 19/05/2024) loadFromFile: ; 07/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff_0 ; no stc retn lff_0: ; 07/12/2024 ; 26/11/2023 (playwav8.s) ;mov edi, audio_buffer ; 01/12/2024 (TRDOS 386) ; edi = audio buffer address ; 14/12/2024 ; 01/12/2024 ; 17/11/2024 ;mov ebx, [filehandle] ; 02/12/2024 ;mov edx, [loadsize] ; 17/11/2024 cmp byte [fbs_shift], 0 jna short lff_1 ; stereo, 16 bit lff_2: ; 01/12/2024 mov esi, temp_buffer ; 14/12/2024 sys _read, [filehandle], esi, [loadsize] jc lff_4 ; error ! ; 01/12/2024 ; 14/11/2024 mov [count], eax ; 01/12/2024 and eax, eax ;jz short lff_3 ; 14/12/2024 jz lff_10 mov bl, [fbs_shift] ; 14/12/2024 mov edx, edi ; audio buffer start address ; 01/12/2024 mov ecx, eax cmp byte [WAVE_BitsPerSample], 8 ; bits per sample (8 or 16) jne short lff_7 ; 16 bit samples ; 8 bit samples dec bl ; shift count, 1 = stereo, 2 = mono jz short lff_6 ; 8 bit, stereo ; 01/12/2024 (32bit registers) lff_5: ; 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 lff_5 jmp short lff_9 lff_6: ; stereo & 8 bit lodsb sub al, 80h ; 08/11/2023 shl eax, 8 ; convert 8 bit sample to 16 bit sample stosw loop lff_6 jmp short lff_9 lff_7: shr ecx, 1 ; word count lff_8: lodsw stosw ; left channel stosw ; right channel loop lff_8 lff_9: ; 14/12/2024 mov eax, edi mov ecx, [buffersize] add ecx, edx ; + buffer start address cmp eax, ecx jb short lff_3 retn lff_1: ; 07/12/2024 ; 01/12/2024 ;sys _read, [filehandle], esi, [loadsize] ; edx ; 14/12/2024 sys _read, [filehandle], edi, [loadsize] ; 07/11/2023 jc short lff_4 ; error ! ; 01/12/2024 ; 14/11/2024 mov [count], eax ; 02/12/2024 cmp eax, edx ; cmp eax, [loadsize] je short endLFF ; edi = buffer (start) address add edi, eax mov ecx, edx lff_3: call padfill ; blank pad the remainder ;clc ; don't exit with CY yet. or byte [flags], ENDOFFILE ; end of file flag endLFF: retn lff_4: ; 08/11/2023 mov al, '!' ; error call tL0 ; 01/12/2024 xor eax, eax lff_10: ; 14/12/2024 mov ecx, [buffersize] jmp short lff_3 ; entry ds:ax points to last byte in file ; cx = target size ; note: must do byte size fill ; destroys bx, cx ; padfill: ; 14/12/2024 ; 01/12/2024 (TRDOS 386, 32bit registers) ; 17/11/2024 ; di = offset (to be filled with ZEROs) ; bp = buffer segment ; ax = di = number of bytes loaded ; cx = buffer size (> loaded bytes) ; 07/11/2023 ; 06/11/2023 ; 17/02/2017 ; 01/12/2024 sub ecx, eax ; 01/12/2024 ; 25/11/2024 xor eax, eax ; 14/12/2024 rep stosb retn ; ///// ; -------------------------------------------------------- ; -------------------------------------------------------- write_audio_dev_info: ; 30/05/2024 ;sys_msg msgAudioCardInfo, 0Fh ; 01/12/2024 sys _msg, msgAudioCardInfo, 255, 0Fh retn write_ac97_pci_dev_info: ; 19/11/2024 ; 30/05/2024 ; 06/06/2017 ; 03/06/2017 ; BUS/DEV/FN ; 00000000BBBBBBBBDDDDDFFF00000000 ; DEV/VENDOR ; DDDDDDDDDDDDDDDDVVVVVVVVVVVVVVVV mov eax, [dev_vendor] xor ebx, ebx mov bl, al mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgVendorId+3], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgVendorId+2], al mov bl, ah mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgVendorId+1], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgVendorId], al shr eax, 16 mov bl, al mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgDevId+3], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgDevId+2], al mov bl, ah mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgDevId+1], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgDevId], al mov eax, [bus_dev_fn] shr eax, 8 mov bl, al mov dl, bl and bl, 7 ; bit 0,1,2 mov al, [ebx+hex_chars] mov [msgFncNo+1], al mov bl, dl shr bl, 3 mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgDevNo+1], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgDevNo], al mov bl, ah mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgBusNo+1], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgBusNo], al ;mov ax, [ac97_NamBar] mov ax, [NAMBAR] mov bl, al mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgNamBar+3], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgNamBar+2], al mov bl, ah mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgNamBar+1], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgNamBar], al ;mov ax, [ac97_NabmBar] mov ax, [NABMBAR] mov bl, al mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgNabmBar+3], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgNabmBar+2], al mov bl, ah mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgNabmBar+1], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgNabmBar], al xor eax, eax mov al, [ac97_int_ln_reg] mov cl, 10 div cl ; 23/11/2024 ;add [msgIRQ], ax add ax, 3030h mov [msgIRQ], ax ;and al, al cmp al, 30h jnz short _w_ac97imsg_ mov al, byte [msgIRQ+1] mov ah, ' ' mov [msgIRQ], ax _w_ac97imsg_: ; 19/11/2024 call clear_window mov dh, 13 mov dl, 0 call setCursorPosition ;;; ; 30/05/2024 ;sys_msg msgAC97Info, 07h ; 01/12/2024 sys _msg, msgAC97Info, 255, 07h ; 19/11/2024 ;retn ; 30/05/2024 write_VRA_info: ;sys_msg msgVRAheader, 07h ; 01/12/2024 sys _msg, msgVRAheader, 255, 07h cmp byte [VRA], 0 jna short _w_VRAi_no _w_VRAi_yes: ;sys_msg msgVRAyes, 07h sys _msg, msgVRAyes, 255, 07h retn _w_VRAi_no: ;sys_msg msgVRAno, 07h sys _msg, msgVRAno, 255, 07h retn ; 02/02/2025 ; 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. load_8khz_mono_8_bit: ; 02/02/2025 ; 15/11/2023 ; 14/11/2023 ; 13/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff8m_0 ; no stc retn lff8m_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jnc short lff8m_6 jmp lff8m_5 ; error ! lff8m_6: ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; and eax, eax jz lff8_eof mov ecx, eax ; byte count lff8m_1: lodsb mov [previous_val], al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (left channel) stosw ; original sample (right channel) ; 02/02/2025 ;xor eax, eax mov al, [esi] dec ecx jnz short lff8m_2 mov al, 80h lff8m_2: ;mov [next_val], ax mov bh, al ; [next_val] mov ah, [previous_val] add al, ah ; [previous_val] rcr al, 1 mov dl, al ; this is interpolated middle (3th) sample add al, ah ; [previous_val] rcr al, 1 mov bl, al ; this is temporary interpolation value add al, ah ; [previous_val] rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 1st interpolated sample (L) stosw ; this is 1st interpolated sample (R) mov al, bl add al, dl rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 2nd interpolated sample (L) stosw ; this is 2nd interpolated sample (R) mov al, dl sub al, 80h shl ax, 8 stosw ; this is middle (3th) interpolated sample (L) stosw ; this is middle (3th) interpolated sample (R) ;mov al, [next_val] mov al, bh add al, dl rcr al, 1 mov bl, al ; this is temporary interpolation value add al, dl rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 4th interpolated sample (L) stosw ; this is 4th interpolated sample (R) ;mov al, [next_val] mov al, bh add al, bl rcr al, 1 sub al, 80h shl ax, 8 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 short lff8m_1 ; -------------- lff8s_3: lff8m_3: lff8s2_3: lff8m2_3: lff16s_3: lff16m_3: lff16s2_3: lff16m2_3: lff24_3: lff32_3: lff44_3: lff22_3: lff11_3: lff12_3: ; 02/02/2025 ; 08/12/2024 (BugFix) ; 31/05/2024 (BugFix) mov ecx, [buffersize] ; 16 bit (48 kHZ, stereo) sample size ;shl ecx, 1 ; byte count ; Bug ! ; 08/12/2024 add ecx, audio_buffer sub ecx, edi jna short lff8m_4 ;inc ecx shr ecx, 2 xor eax, eax ; fill (remain part of) buffer with zeros rep stosd lff8m_4: ; 31/05/2024 (BugFix) ; cf=1 ; Bug ! ; 08/12/2024 ;clc retn lff8_eof: lff16_eof: lff24_eof: lff32_eof: lff44_eof: lff22_eof: lff11_eof: lff12_eof: ; 02/02/2025 ; 15/11/2023 mov byte [flags], ENDOFFILE jmp short lff8m_3 lff8s_5: lff8m_5: lff8s2_5: lff8m2_5: lff16s_5: lff16m_5: lff16s2_5: lff16m2_5: lff24_5: lff32_5: lff44_5: lff22_5: lff11_5: lff12_5: ; 02/02/2025 mov al, '!' ; error call tL0 ;jmp short lff8m_3 ; 15/11/2023 jmp lff8_eof ; -------------- load_8khz_stereo_8_bit: ; 02/02/2025 ; 15/11/2023 ; 14/11/2023 ; 13/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff8s_0 ; no stc retn lff8s_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff8s_5 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 1 jz short lff8_eof mov ecx, eax ; word count lff8s_1: lodsb mov [previous_val_l], al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (L) lodsb mov [previous_val_r], al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (R) ;xor eax, eax ; 02/02/2025 mov ax, [esi] dec ecx jnz short lff8s_2 ; convert 8 bit sample to 16 bit sample mov ax, 8080h lff8s_2: mov [next_val_l], al mov [next_val_r], ah mov ah, [previous_val_l] add al, ah rcr al, 1 mov dl, al ; this is interpolated middle (3th) sample (L) add al, ah rcr al, 1 mov bl, al ; this is temporary interpolation value (L) add al, ah rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 1st interpolated sample (L) mov al, [next_val_r] mov ah, [previous_val_r] add al, ah rcr al, 1 mov dh, al ; this is interpolated middle (3th) sample (R) add al, ah rcr al, 1 mov bh, al ; this is temporary interpolation value (R) add al, ah rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 1st interpolated sample (R) mov al, bl add al, dl rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 2nd interpolated sample (L) mov al, bh add al, dh rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 2nd interpolated sample (R) mov al, dl sub al, 80h shl ax, 8 stosw ; this is middle (3th) interpolated sample (L) mov al, dh sub al, 80h shl ax, 8 stosw ; this is middle (3th) interpolated sample (R) mov al, [next_val_l] add al, dl rcr al, 1 mov bl, al ; this is temporary interpolation value (L) add al, dl rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 4th interpolated sample (L) mov al, [next_val_r] add al, dh rcr al, 1 mov bh, al ; this is temporary interpolation value (R) add al, dh rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 4th interpolated sample (R) mov al, [next_val_l] add al, bl rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 5th interpolated sample (L) mov al, [next_val_r] add al, bh rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 5th interpolated sample (R) ; 8 kHZ stereo to 48 kHZ stereo conversion of the sample is OK jecxz lff8s_6 jmp lff8s_1 lff8s_6: jmp lff8s_3 load_8khz_mono_16_bit: ; 02/02/2025 ; 13/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff8m2_0 ; no stc retn lff8m2_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc lff8m2_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 1 jnz short lff8m2_8 jmp lff8_eof lff8m2_8: mov ecx, eax ; 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 ; 02/02/2025 mov ax, [esi] dec ecx jnz short lff8m2_2 xor eax, eax 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 lff8m2_7: lff8s2_7: jmp lff8m2_5 ; error load_8khz_stereo_16_bit: ; 02/02/2025 ; 16/11/2023 ; 15/11/2023 ; 13/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff8s2_0 ; no stc retn lff8s2_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff8s2_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 2 jnz short lff8s2_8 jmp lff8_eof lff8s2_8: mov ecx, eax ; 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 ; 02/02/2025 mov ax, [esi] mov dx, [esi+2] ; 16/11/2023 dec ecx jnz short lff8s2_2 xor edx, edx xor eax, eax 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 ; ..................... load_16khz_mono_8_bit: ; 02/02/2025 ; 14/11/2023 ; 13/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff16m_0 ; no stc retn lff16m_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff16m_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; and eax, eax jnz short lff16m_8 jmp lff16_eof lff16m_8: mov ecx, eax ; byte count lff16m_1: lodsb ;mov [previous_val], al mov bl, al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (left channel) stosw ; original sample (right channel) ;xor eax, eax ; 02/02/2025 mov al, [esi] dec ecx jnz short lff16m_2 ; 14/11/2023 mov al, 80h lff16m_2: ;mov [next_val], al mov bh, al ;add al, [previous_val] add al, bl rcr al, 1 mov dl, al ; this is interpolated middle (temp) sample ;add al, [previous_val] add al, bl rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 1st interpolated sample (L) stosw ; this is 1st interpolated sample (R) ;mov al, [next_val] mov al, bh add al, dl rcr al, 1 sub al, 80h shl ax, 8 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 lff16m_1 jmp lff16m_3 lff16m_7: lff16s_7: jmp lff16m_5 ; error load_16khz_stereo_8_bit: ; 02/02/2025 ; 14/11/2023 ; 13/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff16s_0 ; no stc retn lff16s_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff16s_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 1 jnz short lff16s_8 jmp lff16_eof lff16s_8: mov ecx, eax ; word count lff16s_1: lodsb mov [previous_val_l], al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (L) lodsb mov [previous_val_r], al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (R) ;xor eax, eax ; 02/02/2025 mov ax, [esi] dec ecx jnz short lff16s_2 ; convert 8 bit sample to 16 bit sample ; 14/11/2023 mov ax, 8080h lff16s_2: ;mov [next_val_l], al ;mov [next_val_r], ah mov ebx, eax add al, [previous_val_l] rcr al, 1 mov dl, al ; this is temporary interpolation value (L) add al, [previous_val_l] rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 1st interpolated sample (L) mov al, bh ; [next_val_r] add al, [previous_val_r] rcr al, 1 mov dh, al ; this is temporary interpolation value (R) add al, [previous_val_r] rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 1st interpolated sample (R) mov al, dl add al, bl ; [next_val_l] rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 2nd interpolated sample (L) mov al, dh add al, bh ; [next_val_r] rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is 2nd interpolated sample (R) ; 16 kHZ stereo to 48 kHZ stereo conversion of the sample is OK or ecx, ecx jnz short lff16s_1 jmp lff16s_3 load_16khz_mono_16_bit: ; 02/02/2025 ; 15/11/2023 ; 13/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff16m2_0 ; no stc retn lff16m2_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff16m2_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 1 jnz short lff16m2_8 jmp lff16_eof lff16m2_8: mov ecx, eax ; 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 ; 02/02/2025 mov ax, [esi] dec ecx jnz short lff16m2_2 xor eax, eax 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 lff16m2_7: lff16s2_7: jmp lff16m2_5 ; error load_16khz_stereo_16_bit: ; 02/02/2025 ; 16/11/2023 ; 15/11/2023 ; 13/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff16s2_0 ; no stc retn lff16s2_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff16s2_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 2 jnz short lff16s2_8 jmp lff16_eof lff16s2_8: mov ecx, eax ; 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 ; 02/02/2025 mov ax, [esi] mov dx, [esi+2] ; 16/11/2023 dec ecx jnz short lff16s2_2 xor edx, edx xor eax, eax 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 ; ..................... load_24khz_mono_8_bit: ; 02/02/2025 ; 15/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff24m_0 ; no stc retn lff24m_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff24m_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; and eax, eax jnz short lff24m_8 jmp lff24_eof lff24m_8: mov ecx, eax ; byte count lff24m_1: lodsb ;mov [previous_val], al mov bl, al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (left channel) stosw ; original sample (right channel) ;xor eax, eax ; 02/02/2025 mov al, [esi] dec ecx jnz short lff24m_2 mov al, 80h lff24m_2: ;;mov [next_val], al ;mov bh, al ;add al, [previous_val] add al, bl rcr al, 1 sub al, 80h shl ax, 8 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 lff24m_1 jmp lff24_3 lff24m_7: lff24s_7: jmp lff24_5 ; error load_24khz_stereo_8_bit: ; 02/02/2025 ; 15/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff24s_0 ; no stc retn lff24s_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff24s_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 1 jnz short lff24s_8 jmp lff24_eof lff24s_8: mov ecx, eax ; word count lff24s_1: lodsb mov [previous_val_l], al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (L) lodsb mov [previous_val_r], al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (R) ;xor eax, eax ; 02/02/2025 mov ax, [esi] dec ecx jnz short lff24s_2 ; convert 8 bit sample to 16 bit sample mov ax, 8080h lff24s_2: ;;mov [next_val_l], al ;;mov [next_val_r], ah ;mov bx, ax mov bh, ah add al, [previous_val_l] rcr al, 1 ;mov dl, al sub al, 80h shl ax, 8 stosw ; this is interpolated sample (L) mov al, bh ; [next_val_r] add al, [previous_val_r] rcr al, 1 ;mov dh, al sub al, 80h shl ax, 8 stosw ; this is interpolated sample (R) ; 24 kHZ stereo to 48 kHZ stereo conversion of the sample is OK or ecx, ecx jnz short lff24s_1 jmp lff24_3 load_24khz_mono_16_bit: ; 02/02/2025 ; 15/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff24m2_0 ; no stc retn lff24m2_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff24m2_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 1 jnz short lff24m2_8 jmp lff24_eof lff24m2_8: mov ecx, eax ; 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 ; 02/02/2025 mov bx, [esi] dec ecx jnz short lff24m2_2 ;xor eax, eax xor ebx, ebx lff24m2_2: ; 02/02/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 lff24m2_7: lff24s2_7: jmp lff24_5 ; error load_24khz_stereo_16_bit: ; 02/02/2025 ; 16/11/2023 ; 15/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff24s2_0 ; no stc retn lff24s2_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff24s2_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 2 jnz short lff24s2_8 jmp lff24_eof lff24s2_8: mov ecx, eax ; 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 ; 02/02/2025 mov ax, [esi] mov dx, [esi+2] ; 16/11/2023 dec ecx jnz short lff24s2_2 xor edx, edx xor eax, eax 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 ; ..................... load_32khz_mono_8_bit: ; 02/02/2025 ; 15/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff32m_0 ; no stc retn lff32m_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff32m_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; and eax, eax jnz short lff32m_8 jmp lff32_eof lff32m_8: mov ecx, eax ; byte count lff32m_1: lodsb ;mov [previous_val], al mov bl, al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (left channel) stosw ; original sample (right channel) ;xor eax, eax ; 02/02/2025 mov al, [esi] dec ecx jnz short lff32m_2 mov al, 80h lff32m_2: ;;mov [next_val], al ;mov bh, al ;add al, [previous_val] add al, bl rcr al, 1 sub al, 80h shl ax, 8 stosw ; this is interpolated sample (L) stosw ; this is interpolated sample (R) ; different than 8-16-24 kHZ ! ; 'original-interpolated-original' trio samples jecxz lff32m_3 lodsb sub al, 80h shl ax, 8 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 lff32m_1 lff32m_3: jmp lff32_3 lff32m_7: lff32s_7: jmp lff32_5 ; error load_32khz_stereo_8_bit: ; 02/02/2025 ; 15/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff32s_0 ; no stc retn lff32s_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff32s_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 1 jnz short lff32s_8 jmp lff32_eof lff32s_8: mov ecx, eax ; word count lff32s_1: lodsb mov [previous_val_l], al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (L) lodsb mov [previous_val_r], al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (R) ;xor eax, eax ; 02/02/2025 mov ax, [esi] dec ecx jnz short lff32s_2 ; convert 8 bit sample to 16 bit sample mov ax, 8080h lff32s_2: ;;mov [next_val_l], al ;;mov [next_val_r], ah ;mov bx, ax mov bh, ah add al, [previous_val_l] rcr al, 1 ;mov dl, al sub al, 80h shl ax, 8 stosw ; this is interpolated sample (L) mov al, bh ; [next_val_r] add al, [previous_val_r] rcr al, 1 ;mov dh, al sub al, 80h shl ax, 8 stosw ; this is interpolated sample (R) ; different than 8-16-24 kHZ ! ; 'original-interpolated-original' trio samples jecxz lff32s_3 lodsb sub al, 80h shl ax, 8 stosw ; original sample (left channel) lodsb sub al, 80h shl ax, 8 stosw ; original sample (right channel) ; 32 kHZ stereo to 48 kHZ stereo conversion of the sample is OK dec ecx jnz short lff32s_1 lff32s_3: jmp lff32_3 load_32khz_mono_16_bit: ; 02/02/2025 ; 15/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff32m2_0 ; no stc retn lff32m2_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff32m2_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 1 jnz short lff32m2_8 jmp lff32_eof lff32m2_8: mov ecx, eax ; 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 ; 02/02/2025 ;mov ax, [esi] mov bx, [esi] dec ecx jnz short lff32m2_2 xor ebx, ebx lff32m2_2: ; 02/02/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) ; 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 lff32m2_7: lff32s2_7: jmp lff32_5 ; error load_32khz_stereo_16_bit: ; 02/02/2025 ; 16/11/2023 ; 15/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff32s2_0 ; no stc retn lff32s2_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff32s2_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 2 jnz short lff32s2_8 jmp lff32_eof lff32s2_8: mov ecx, eax ; 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 ; 02/02/2025 mov ax, [esi] mov dx, [esi+2] ; 16/11/2023 dec ecx jnz short lff32s2_2 xor edx, edx xor eax, eax 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 ; ..................... load_22khz_mono_8_bit: ; 02/02/2025 ; 16/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff22m_0 ; no stc retn lff22m_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff22m_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; and eax, eax jnz short lff22m_8 jmp lff22_eof lff22m_8: mov ecx, eax ; byte count lff22m_9: mov ebp, 5 ; interpolation (one step) loop count mov byte [faz], 3 ; 3 steps/phases lff22m_1: ; 3:2:2:2:2:2::3:2:2:2:2::3:2:2:2:2:2 ; 37/17 lodsb ; 02/02/2025 mov dl, [esi] dec ecx jnz short lff22m_2_1 mov dl, 80h lff22m_2_1: ; al = [previous_val] ; dl = [next_val] call interpolating_3_8bit_mono ; 1 of 17 jecxz lff22m_3 lff22m_2_2: lodsb ; 02/02/2025 mov dl, [esi] dec ecx jnz short lff22m_2_3 mov dl, 80h lff22m_2_3: call interpolating_2_8bit_mono ; 2 of 17 .. 6 of 17 jecxz lff22m_3 dec ebp jnz short lff22m_2_2 mov al, [faz] dec al jz short lff22m_9 dec byte [faz] mov ebp, 4 dec al jnz short lff22m_1 ; 3:2:2:2:2 ; 7-11 of 17 inc ebp ; 5 jmp short lff22m_1 ; 3:2:2:2:2:2 ; 12-17 of 17 lff22m_3: lff22s_3: jmp lff22_3 ; padfill ; (put zeros in the remain words of the buffer) lff22m_7: lff22s_7: jmp lff22_5 ; error load_22khz_stereo_8_bit: ; 02/02/2025 ; 16/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff22s_0 ; no stc retn lff22s_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff22s_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 1 jnz short lff22s_8 jmp lff22_eof lff22s_8: mov ecx, eax ; word count lff22s_9: mov ebp, 5 ; interpolation (one step) loop count mov byte [faz], 3 ; 3 steps/phase lff22s_1: ; 3:2:2:2:2:2::3:2:2:2:2::3:2:2:2:2:2 ; 37/17 lodsw ; 02/02/2025 mov dx, [esi] dec ecx jnz short lff22s_2_1 mov dx, 8080h lff22s_2_1: ; al = [previous_val_l] ; ah = [previous_val_r] ; dl = [next_val_l] ; dh = [next_val_r] call interpolating_3_8bit_stereo ; 1 of 17 jecxz lff22s_3 lff22s_2_2: lodsw ; 02/02/2025 mov dx, [esi] dec ecx jnz short lff22s_2_3 mov dx, 8080h lff22s_2_3: call interpolating_2_8bit_stereo ; 2 of 17 .. 6 of 17 jecxz lff22s_3 dec ebp jnz short lff22s_2_2 mov al, [faz] dec al jz short lff22s_9 dec byte [faz] mov ebp, 4 dec al jnz short lff22s_1 ; 3:2:2:2:2 ; 7-11 of 17 inc ebp ; 5 jmp short lff22s_1 ; 3:2:2:2:2:2 ; 12-17 of 17 load_22khz_mono_16_bit: ; 02/02/2025 ; 16/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff22m2_0 ; no stc retn lff22m2_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff22m2_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 1 jnz short lff22m2_8 jmp lff22_eof lff22m2_8: mov ecx, eax ; 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 ; 02/02/2025 mov dx, [esi] dec ecx jnz short lff22m2_2_1 xor edx, edx lff22m2_2_1: ; ax = [previous_val] ; dx = [next_val] call interpolating_3_16bit_mono ; 1 of 17 jecxz lff22m2_3 lff22m2_2_2: lodsw ; 02/02/2025 mov dx, [esi] dec ecx jnz short lff22m2_2_3 xor edx, edx 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) lff22m2_7: lff22s2_7: jmp lff22_5 ; error load_22khz_stereo_16_bit: ; 16/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff22s2_0 ; no stc retn lff22s2_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff22s2_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 2 ; dword (left chan word + right chan word) jnz short lff22s2_8 jmp lff22_eof lff22s2_8: mov ecx, eax ; 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 ; ..................... load_11khz_mono_8_bit: ; 02/02/2025 ; 18/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff11m_0 ; no stc retn lff11m_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff11m_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; and eax, eax jnz short lff11m_8 jmp lff11_eof lff11m_8: mov ecx, eax ; byte count lff11m_9: mov ebp, 6 ; interpolation (one step) loop count lff11m_1: ; 5:4:4::5:4:4::5:4:4::5:4:4::5:4:4::5:4 ; 74/17 lodsb ; 02/02/2025 mov dl, [esi] dec ecx jnz short lff11m_2_1 mov dl, 80h lff11m_2_1: ; al = [previous_val] ; dl = [next_val] call interpolating_5_8bit_mono jecxz lff11m_3 lff11m_2_2: lodsb ; 02/02/2025 mov dl, [esi] dec ecx jnz short lff11m_2_3 mov dl, 80h lff11m_2_3: call interpolating_4_8bit_mono jecxz lff11m_3 dec ebp jz short lff11m_9 lodsb ; 02/02/2025 mov dl, [esi] dec ecx jnz short lff11m_2_4 mov dl, 80h lff11m_2_4: call interpolating_4_8bit_mono jecxz lff11m_3 jmp short lff11m_1 lff11m_7: lff11s_7: jmp lff11_5 ; error lff11m_3: lff11s_3: jmp lff11_3 ; padfill ; (put zeros in the remain words of the buffer) load_11khz_stereo_8_bit: ; 02/02/2025 ; 18/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff11s_0 ; no stc retn lff11s_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff11s_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 1 jnz short lff11s_8 jmp lff11_eof lff11s_8: mov ecx, eax ; word count lff11s_9: mov ebp, 6 ; interpolation (one step) loop count lff11s_1: ; 5:4:4::5:4:4::5:4:4::5:4:4::5:4:4::5:4 ; 74/17 lodsw ; 02/02/2025 mov dx, [esi] dec ecx jnz short lff11s_2_1 mov dx, 8080h lff11s_2_1: ; al = [previous_val_l] ; ah = [previous_val_r] ; dl = [next_val_l] ; dh = [next_val_r] call interpolating_5_8bit_stereo jecxz lff11s_3 lff11s_2_2: lodsw ; 02/02/2025 mov dx, [esi] dec ecx jnz short lff11s_2_3 mov dx, 8080h lff11s_2_3: call interpolating_4_8bit_stereo jecxz lff11s_3 dec ebp jz short lff11s_9 lodsw ; 02/02/2025 mov dx, [esi] dec ecx jnz short lff11s_2_4 mov dx, 8080h lff11s_2_4: call interpolating_4_8bit_stereo jecxz lff11s_3 jmp short lff11s_1 load_11khz_mono_16_bit: ; 02/02/2025 ; 18/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff11m2_0 ; no stc retn lff11m2_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff11m2_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 1 jnz short lff11m2_8 jmp lff11_eof lff11m2_8: mov ecx, eax ; 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 ; 02/02/2025 mov dx, [esi] dec ecx jnz short lff11m2_2_1 xor edx, edx lff11m2_2_1: ; ax = [previous_val] ; dx = [next_val] call interpolating_5_16bit_mono jecxz lff11m2_3 lff11m2_2_2: lodsw ; 02/02/2025 mov dx, [esi] dec ecx jnz short lff11m2_2_3 xor edx, edx lff11m2_2_3: call interpolating_4_16bit_mono jecxz lff11m2_3 dec ebp jz short lff11m2_9 lodsw ; 02/02/2025 mov dx, [esi] dec ecx jnz short lff11m2_2_4 xor edx, edx lff11m2_2_4: call interpolating_4_16bit_mono jecxz lff11m2_3 jmp short lff11m2_1 lff11m2_7: lff11s2_7: jmp lff11_5 ; error load_11khz_stereo_16_bit: ; 17/01/2025 ; 18/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff11s2_0 ; no stc retn lff11s2_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff11s2_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 2 ; dword (left chan word + right chan word) jnz short lff11s2_8 jmp lff11_eof lff11m2_3: lff11s2_3: jmp lff11_3 ; padfill ; (put zeros in the remain words of the buffer) lff11s2_8: mov ecx, eax ; 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] ; 17/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] ;;; ; 17/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] ; 17/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: ;;; ; 17/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] ; 17/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: ;;; ; 17/01/2025 (BugFix) mov [next_val_l], edx ;;; call interpolating_4_16bit_stereo jecxz lff11s2_3 jmp short lff11s2_1 ; ..................... load_44khz_mono_8_bit: ; 02/02/2025 ; 18/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff44m_0 ; no stc retn lff44m_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff44m_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; and eax, eax jnz short lff44m_8 jmp lff44_eof lff44m_8: mov ecx, eax ; byte count lff44m_9: mov ebp, 10 ; interpolation (one step) loop count mov byte [faz], 2 ; 2 steps/phases lff44m_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 lodsb ; 02/02/2025 mov dl, [esi] dec ecx jnz short lff44m_2_1 mov dl, 80h lff44m_2_1: ; al = [previous_val] ; dl = [next_val] call interpolating_2_8bit_mono jecxz lff44m_3 lff44m_2_2: lodsb sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; (L) stosw ; (R) dec ecx jz short lff44m_3 dec ebp jnz short lff44m_2_2 dec byte [faz] jz short lff44m_9 mov ebp, 11 jmp short lff44m_1 lff44m_3: lff44s_3: jmp lff44_3 ; padfill ; (put zeros in the remain words of the buffer) lff44m_7: lff44s_7: jmp lff44_5 ; error load_44khz_stereo_8_bit: ; 02/02/2025 ; 16/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff44s_0 ; no stc retn lff44s_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff44s_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 1 jnz short lff44s_8 jmp lff44_eof lff44s_8: mov ecx, eax ; word count lff44s_9: mov ebp, 10 ; interpolation (one step) loop count mov byte [faz], 2 ; 2 steps/phase lff44s_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 ; 02/02/2025 mov dx, [esi] dec ecx jnz short lff44s_2_1 mov dx, 8080h lff44s_2_1: ; al = [previous_val_l] ; ah = [previous_val_r] ; dl = [next_val_l] ; dh = [next_val_r] call interpolating_2_8bit_stereo jecxz lff44s_3 lff44s_2_2: lodsb sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; (L) lodsb sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; (R) dec ecx jz short lff44s_3 dec ebp jnz short lff44s_2_2 dec byte [faz] jz short lff44s_9 mov ebp, 11 jmp short lff44s_1 load_44khz_mono_16_bit: ; 02/02/2025 ; 18/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff44m2_0 ; no stc retn lff44m2_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff44m2_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 1 jnz short lff44m2_8 jmp lff44_eof lff44m2_8: mov ecx, eax ; 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 ; 02/02/2025 mov dx, [esi] dec ecx jnz short lff44m2_2_1 xor edx, edx 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 lff44_3 ; padfill ; (put zeros in the remain words of the buffer) lff44m2_7: lff44s2_7: jmp lff44_5 ; error load_44khz_stereo_16_bit: ; 18/11/2023 test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff44s2_0 ; no stc retn lff44s2_0: ; 01/12/2024 ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ;mov edx, [loadsize] ; esi = buffer address ;; edx = buffer size ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff44s2_7 ; error ! ; 01/12/2024 mov [count], eax ;;; ; 07/12/2024 ;mov edi, audio_buffer ;;; shr eax, 2 ; dword (left chan word + right chan word) jnz short lff44s2_8 jmp lff44_eof lff44s2_8: mov ecx, eax ; 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 dec ebp jnz short lff44s2_2_2 dec byte [faz] jz short lff44s2_9 mov ebp, 11 jmp short lff44s2_1 ; ..................... ; 02/02/2025 load_12khz_mono_8_bit: test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff12m_0 ; no stc retn lff12m_0: ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff12m_7 ; error ! mov [count], eax and eax, eax jnz short lff12m_8 jmp lff12_eof lff12m_8: mov ecx, eax ; byte count lff12m_1: ; original-interpolated-interpolated-interpolated lodsb ; 02/02/2025 mov dl, [esi] dec ecx jnz short lff12m_2 mov dl, 80h lff12m_2: ; al = [previous_val] ; dl = [next_val] call interpolating_4_8bit_mono jecxz lff12m_3 jmp short lff12m_1 ; 02/02/2025 load_12khz_stereo_8_bit: test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff12s_0 ; no stc retn lff12s_0: ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff12s_7 ; error ! mov [count], eax shr eax, 1 jnz short lff12s_8 jmp lff12_eof lff12m_7: lff12s_7: jmp lff12_5 ; error lff12s_8: mov ecx, eax ; word count lff12s_1: ; original-interpolated-interpolated-interpolated lodsw ; 02/02/2025 mov dx, [esi] dec ecx jnz short lff12s_2 mov dx, 8080h lff12s_2: ; al = [previous_val_l] ; ah = [previous_val_r] ; dl = [next_val_l] ; dh = [next_val_r] call interpolating_4_8bit_stereo jecxz lff12s_3 jmp short lff12s_1 lff12m_3: lff12s_3: jmp lff12_3 ; padfill ; (put zeros in the remain words of the buffer) ; 02/02/2025 load_12khz_mono_16_bit: test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff12m2_0 ; no stc retn lff12m2_0: ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff12m2_7 ; error ! mov [count], eax shr eax, 1 jnz short lff12m2_8 jmp lff12_eof lff12m2_8: mov ecx, eax ; word count lff12m2_1: ; original-interpolated-interpolated-interpolated lodsw ; 02/02/2025 mov dx, [esi] dec ecx jnz short lff12m2_2 xor edx, edx lff12m2_2: ; ax = [previous_val] ; dx = [next_val] call interpolating_4_16bit_mono jecxz lff12m_3 jmp short lff12m2_1 lff12m2_7: lff12s2_7: jmp lff12_5 ; error ; 02/02/2025 load_12khz_stereo_16_bit: test byte [flags], ENDOFFILE ; have we already read the ; last of the file? jz short lff12s2_0 ; no stc retn lff12s2_0: ; edi = audio buffer address mov esi, temp_buffer ; temporary buffer for wav data ; load file into memory sys _read, [filehandle], esi, [loadsize] jc short lff12s2_7 ; error ! mov [count], eax shr eax, 2 ; dword (left chan word + right chan word) jnz short lff12s2_8 jmp lff12_eof lff12m2_3: lff12s2_3: jmp lff12_3 ; padfill ; (put zeros in the remain words of the buffer) lff12s2_8: mov ecx, eax ; 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 ; 02/02/2025 mov [next_val_l], edx ; bx = [previous_val_l] ; ax = [previous_val_r] ; [next_val_l] ; [next_val_r] call interpolating_4_16bit_stereo jecxz lff12s2_3 jmp short lff12s2_1 ; ..................... interpolating_3_8bit_mono: ; 02/02/2025 ; 16/11/2023 ; al = [previous_val] ; dl = [next_val] ; original-interpolated-interpolated mov bl, al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (L) stosw ; original sample (R) mov al, bl add al, dl rcr al, 1 mov bh, al ; interpolated middle (temporary) add al, bl rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 1 (L) stosw ; interpolated sample 1 (R) mov al, bh add al, dl ; [next_val] rcr al, 1 ; 02/02/2025 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 2 (L) stosw ; interpolated sample 2 (R) retn interpolating_3_8bit_stereo: ; 02/02/2025 ; 16/11/2023 ; al = [previous_val_l] ; ah = [previous_val_r] ; dl = [next_val_l] ; dh = [next_val_r] ; original-interpolated-interpolated mov ebx, eax sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (L) mov al, bh sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (R) mov al, bl add al, dl ; [next_val_l] rcr al, 1 push eax ; * ; al = interpolated middle (L) (temporary) add al, bl ; [previous_val_l] rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 1 (L) mov al, bh add al, dh ; [next_val_r] rcr al, 1 push eax ; ** ; al = interpolated middle (R) (temporary) add al, bh ; [previous_val_r] rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 1 (R) pop ebx ; ** pop eax ; * add al, dl ; [next_val_l] rcr al, 1 ; 02/02/2025 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 2 (L) mov al, bl add al, dh ; [next_val_r] rcr al, 1 ; 02/02/2025 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 2 (R) retn interpolating_2_8bit_mono: ; 16/11/2023 ; al = [previous_val] ; dl = [next_val] ; original-interpolated mov bl, al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (L) stosw ; original sample (R) mov al, bl add al, dl rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample (L) stosw ; interpolated sample (R) retn interpolating_2_8bit_stereo: ; 16/11/2023 ; al = [previous_val_l] ; ah = [previous_val_r] ; dl = [next_val_l] ; dh = [next_val_r] ; original-interpolated mov ebx, eax sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (L) mov al, bh sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (R) mov al, bl ; [previous_val_l] add al, dl ; [next_val_l] rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample (L) mov al, bh add al, dh ; [next_val_r] rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample (R) retn 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 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 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 interpolating_2_16bit_stereo: ; 17/01/2025 ; 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 ; 17/01/2025 sub ah, 80h ; -32768 to +32767 format again ;push eax ; * ; interpolated sample (R) ; 17/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 ; 17/01/2025 ;stosw ; interpolated sample (L) ;pop eax ; * ;sub ah, 80h ; -32768 to +32767 format again ;stosw ; interpolated sample (R) ; 17/01/2025 stosd retn interpolating_5_8bit_mono: ; 17/11/2023 ; al = [previous_val] ; dl = [next_val] ; original-interpltd-interpltd-interpltd-interpltd mov bl, al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (L) stosw ; original sample (R) mov al, bl add al, dl rcr al, 1 mov bh, al ; interpolated middle (temporary) add al, bl ; [previous_val] rcr al, 1 mov dh, al ; interpolated 1st quarter (temporary) add al, bl rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 1 (L) stosw ; interpolated sample 1 (R) mov al, bh add al, dh rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 2 (L) stosw ; interpolated sample 2 (R) mov al, bh add al, dl ; [next_val] rcr al, 1 mov dh, al ; interpolated 3rd quarter (temporary) add al, bh rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 3 (L) stosw ; interpolated sample 3 (R) mov al, dh add al, dl rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 4 (L) stosw ; interpolated sample 4 (R) retn interpolating_5_8bit_stereo: ; 17/11/2023 ; al = [previous_val_l] ; ah = [previous_val_r] ; dl = [next_val_l] ; dh = [next_val_r] ; original-interpltd-interpltd-interpltd-interpltd mov ebx, eax sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (L) mov al, bh sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (R) push edx ; * mov al, bl add al, dl ; [next_val_l] rcr al, 1 push eax ; ** ; al = interpolated middle (L) (temporary) add al, bl ; [previous_val_l] rcr al, 1 xchg al, bl add al, bl ; bl = interpolated 1st quarter (L) (temp) rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 1 (L) mov al, bh add al, dh ; [next_val_r] rcr al, 1 push eax ; *** ; al = interpolated middle (R) (temporary) add al, bh ; [previous_val_r] rcr al, 1 xchg al, bh add al, bh ; bh = interpolated 1st quarter (R) (temp) rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 1 (R) pop edx ; *** pop eax ; ** ; al = interpolated middle (L) (temporary) xchg al, bl ; al = interpolated 1st quarter (L) (temp) add al, bl ; bl = interpolated middle (L) (temporary) rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 2 (L) mov al, dl ; interpolated middle (R) (temporary) xchg al, bh ; al = interpolated 1st quarter (R) (temp) add al, bh ; bh = interpolated middle (R) (temporary) rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 2 (R) pop edx ; * mov al, bl ; interpolated middle (L) (temporary) add al, dl ; [next_val_l] rcr al, 1 xchg al, bl ; al = interpolated middle (R) (temporary) add al, bl ; bl = interpolated 3rd quarter (L) (temp) rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 3 (L) mov al, bh add al, dh ; interpolated middle (R) + [next_val_r] rcr al, 1 xchg al, bh ; al = interpolated middle (R) add al, bh ; bh = interpolated 3rd quarter (R) (temp) rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 3 (R) mov al, bl add al, dl ; [next_val_l] rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 4 (L) mov al, bh add al, dh ; [next_val_r] rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 4 (R) retn interpolating_4_8bit_mono: ; 17/11/2023 ; al = [previous_val] ; dl = [next_val] ; original-interpolated-interpolated-interpolated mov bl, al sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (L) stosw ; original sample (R) mov al, bl add al, dl rcr al, 1 xchg al, bl ; al = [previous_val] add al, bl ; bl = interpolated middle (sample 2) rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 1 (L) stosw ; interpolated sample 1 (R) mov al, bl ; interpolated middle (sample 2) sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 2 (L) stosw ; interpolated sample 2 (R) mov al, bl add al, dl ; [next_val] rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 3 (L) stosw ; interpolated sample 3 (R) retn interpolating_4_8bit_stereo: ; 17/11/2023 ; al = [previous_val_l] ; ah = [previous_val_r] ; dl = [next_val_l] ; dh = [next_val_r] ; original-interpolated-interpolated-interpolated mov ebx, eax sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (L) mov al, bh sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; original sample (R) mov al, bl add al, dl ; [next_val_l] rcr al, 1 xchg al, bl ; al = [previous_val_l] add al, bl ; bl = interpolated middle (L) (sample 2) rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 1 (L) mov al, bh add al, dh ; [next_val_r] rcr al, 1 xchg al, bh ; al = [previous_val_h] add al, bh ; bh = interpolated middle (R) (sample 2) rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 1 (R) mov al, bl ; interpolated middle (L) (sample 2) sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 2 (L) mov al, bh ; interpolated middle (L) (sample 2) sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 2 (L) mov al, bl add al, dl ; [next_val_l] rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 3 (L) mov al, bh add al, dh ; [next_val_r] rcr al, 1 sub al, 80h shl ax, 8 ; convert 8 bit sample to 16 bit sample stosw ; interpolated sample 3 (R) retn 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 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 interpolating_4_16bit_mono: ; 18/11/2023 ; ax = [previous_val] ; dx = [next_val] ; 02/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 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 ; -------------------------------------------------------- ; -------------------------------------------------------- ; 07/12/2024 ; Ref: TRDOS 386 v2.0.9, trdosk8.s (18/09/2024) ; 'sysaudio' system call (23/08/2024) ; 18/11/2024 ; Ref: TRDOS 386 v2.0.9, audio.s, Erdogan Tan, 06/06/2024 ac97_stop: ; 18/11/2024 mov byte [stopped], 2 ; 07/12/2024 sys _audio, 0700h retn ac97_pause: ; 18/11/2024 mov byte [stopped], 1 ; paused ; 07/12/2024 sys _audio, 0500h retn ac97_play: ; continue to play (after pause) ; 18/11/2024 mov byte [stopped], 0 ; 07/12/2024 sys _audio, 0600h retn ; -------------------------------------------------------- ; 14/11/2024 - Erdogan Tan ; -------------------------------------------------------- ; 07/12/2024 ; 01/12/2024 (32bit registers) ; 29/11/2024 checkUpdateEvents: call check4keyboardstop jc short c4ue_ok ; 18/11/2024 push eax ; * or eax, eax jz c4ue_cpt ; 18/11/2024 cmp al, 20h ; SPACE (spacebar) ; pause/play jne short ch4ue_chk_s cmp byte [stopped], 0 ja short c4ue_chk_ps ; pause call ac97_pause ; 21/11/2024 mov al, [tLO] mov byte [tLP], al jmp c4ue_cpt c4ue_chk_ps: cmp byte [stopped], 1 ja short c4ue_replay ; continue to play (after a pause) call ac97_play jmp c4ue_cpt c4ue_replay: ; 19/11/2024 pop eax ; * pop eax ; return address ; 07/02/2024 ;mov al, [volume] ;call SetmasterVolume mov byte [stopped], 0 call move_to_beginning ;jmp PlayWav ; 07/12/2024 jmp RePlayWav ch4ue_chk_s: cmp al, 'S' ; stop jne short ch4ue_chk_fb cmp byte [stopped], 0 ja c4ue_cpt ; Already stopped/paused call ac97_stop ; 19/11/2024 mov byte [tLO], 0 ; 21/11/2024 mov byte [tLP], '0' jmp short c4ue_cpt ch4ue_chk_fb: ; 17/11/2024 cmp al, 'F' jne short c4ue_chk_b call Player_ProcessKey_Forwards jmp short c4ue_cpt ; 01/12/2024 ; 18/11/2024 c4ue_ok: retn c4ue_chk_b: cmp al, 'B' ;;jne short c4ue_cpt ; 19/11/2024 jne short c4ue_chk_h call Player_ProcessKey_Backwards jmp short c4ue_cpt c4ue_chk_h: ; 19/11/2024 cmp al, 'H' jne short c4ue_chk_cr mov byte [wleds], 0 call write_ac97_pci_dev_info mov dh, 24 mov dl, 79 call setCursorPosition c4ue_chk_cr: ; 19/11/2024 cmp al, 0Dh ; ENTER/CR key jne short c4ue_cpt ;inc byte [wleds] ;jnz short c4ue_cpt ;inc byte [wleds] ;;; ; 23/11/2024 xor ebx, ebx mov bl, [wleds] inc bl and bl, 0Fh jnz short c4ue_sc inc ebx c4ue_sc: mov [wleds], bl shr bl, 1 mov al, [ebx+colors] jnc short c4ue_sc_@ or al, 10h ; blue (dark) background c4ue_sc_@: mov [ccolor], al ;;; c4ue_cpt: ;push ds ;mov bx, 40h ;mov ds, bx ;mov bx, 6Ch ; counter (INT 08h, 18.2 ticks per sec) ;;cli ;mov ax, [bx] ;mov dx, [bx+2] ;;sti ;pop ds ; 01/12/2024 (TRDOS 386) sys _time, 4 ; get timer ticks (18.2 ticks/second) ; 18/11/2024 pop ecx ; * ;cmp dx, [timerticks+2] ;jne short c4ue_utt ;cmp ax, [timerticks] ; 01/12/2024 cmp eax, [timerticks] ;je short c4ue_ok ; 18/11/2024 je short c4ue_skip_utt c4ue_utt: ;mov [timerticks], ax ;mov [timerticks+2], dx ; 01/12/2024 mov [timerticks], eax jmp short c4ue_cpt_@ c4ue_skip_utt: ; 18/11/2024 and ecx, ecx jz short c4ue_ok c4ue_cpt_@: ; 18/11/2024 cmp byte [stopped], 0 ja short c4ue_ok call CalcProgressTime ;cmp ax, [ProgressTime] ; 01/12/2024 cmp eax, [ProgressTime] ;je short c4ue_ok ; same second, no need to update ; 23/11/2024 je short c4ue_uvb ;call UpdateProgressTime ;call UpdateProgressBar@ call UpdateProgressBar ; 23/11/2024 c4ue_uvb: cmp byte [wleds], 0 jna short c4ue_vb_ok call UpdateWaveLeds c4ue_vb_ok: retn ;clc ;c4ue_ok: ; retn ; -------------------------------------------------------- ; 19/05/2024 - (playwav4.asm) ich_wav4.asm ; -------------------------------------------------------- ; 07/12/2024 ; 01/12/2024 (TRDOS 386) ; 29/11/2024 check4keyboardstop: ; 19/05/2024 ; 08/11/2023 ; 04/11/2023 mov ah, 1 ;int 16h ; 01/12/2024 (TRDOS 386 keyboard interrupt) int 32h ;clc jz short _cksr xor ah, ah ;int 16h ; 01/12/2024 (TRDOS 386 keyboard interrupt) int 32h ;;; ; 19/05/2024 (change PCM out volume) cmp al, '+' jne short p_1 mov al, [volume] cmp al, 0 jna short p_3 dec al jmp short p_2 p_1: cmp al, '-' jne short p_4 mov al, [volume] cmp al, 31 jnb short p_3 inc al p_2: mov [volume], al ; 14/11/2024 ;call SetPCMOutVolume ; 15/11/2024 (QEMU) ; 07/12/2024 call SetMasterVolume ;call UpdateVolume ;;clc ;retn jmp UpdateVolume ;mov ah, al ;mov dx, [NAMBAR] ;;add dx, CODEC_MASTER_VOL_REG ;add dx, CODEC_PCM_OUT_REG ;out dx, ax ; ;call delay1_4ms ;call delay1_4ms ;call delay1_4ms ;call delay1_4ms _cksr: ; 19/05/2024 ; 18/12/2024 xor eax, eax ;clc p_3: retn p_4: ; 17/11/2024 cmp ah, 01h ; ESC je short p_q cmp al, 03h ; CTRL+C je short p_q ; 18/11/2024 cmp al, 20h je short p_r ; 19/11/2024 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 je short p_quit ; 29/11/2024 clc retn ;;; ;_cskr: p_q: p_quit: stc p_r: retn ; 29/05/2024 ; 19/05/2024 volume: db 02h ; -------------------------------------------------------- ; 14/11/2024 setCursorPosition: ; dh = Row ; dl = Column mov ax, 0500h ;int 10h ; 01/12/2024 (TRDOS 386 video interrupt) int 31h mov ah, 02h mov bh, 00h ;mov dh, setCursorPosition_Row ;mov dl, setCursorPosition_Column ;int 10h ; 01/12/2024 (TRDOS 386 video interrupt) int 31h retn ; -------------------------------------------------------- ; 14/11/2024 ; (Ref: player.asm, out_cs.asm, Matan Alfasi, 2017) ;; NAME: SetTotalTime ;; DESCRIPTION: Calculates the total time in seconds in file ;; INPUT: DATA_SubchunkSize, WAVE_SampleRate, WAVE_BlockAlign ;; OUTPUT: CurrentTotalTime=Total time in seconds in file, ;; Output on the screen of the total time in seconds ; 01/12/2024 (32 bit registers) SetTotalTime: ;; Calculate total seconds in file ;mov ax, [DATA_SubchunkSize] ;mov dx, [DATA_SubchunkSize + 2] ;mov bx, [WAVE_SampleRate] ;div bx ;xor dx, dx ; 01/12/2024 mov eax, [DATA_SubchunkSize] movzx ebx, word [WAVE_SampleRate] xor edx, edx div ebx ;mov bx, [WAVE_BlockAlign] ;div bx ; 01/12/2024 mov bx, [WAVE_BlockAlign] xor edx, edx div ebx ;mov [TotalTime], ax mov [TotalTime], eax mov bl, 60 div bl ;; al = minutes, ah = seconds push eax ; ** push eax ; * mov dh, 24 mov dl, 42 call setCursorPosition pop eax ; * xor ah, ah mov ebp, 2 call PrintNumber mov dh, 24 mov dl, 45 call setCursorPosition pop eax ; ** mov al, ah xor ah, ah ;mov bp, 2 ;jmp short PrintNumber ; -------------------------------------------------------- ; 01/12/2024 (32bit registers) PrintNumber: ; eax = binary number ; ebp = digits mov ebx, 10 xor ecx, ecx printNumber_CutNumber: inc ecx xor edx, edx div ebx push edx cmp ecx, ebp je short printNumber_printloop jmp printNumber_CutNumber printNumber_printloop: pop eax ;mov dl, '0' ;add dl, al ;mov ah, 02h ;int 21h ; 01/12/2024 mov ah, 0Eh ; write as TTY add al, '0' ;mov ebx, 07h ; light gray mov bl, 0Fh ; white ;int 10h int 31h ; TRDOS 386 video interrupt loop printNumber_printloop retn ; -------------------------------------------------------- ; 14/11/2024 - Erdogan Tan SetProgressTime: ;; Calculate playing/progress seconds in file call CalcProgressTime ; 01/12/2024 (32bit registers) UpdateProgressTime: ; eax = (new) progress time mov [ProgressTime], eax mov bl, 60 div bl ;; al = minutes, ah = seconds push eax ; ** push eax ; * mov dh, 24 mov dl, 33 call setCursorPosition pop eax ; * xor ah, ah mov ebp, 2 call PrintNumber mov dh, 24 mov dl, 36 call setCursorPosition pop eax ; ** mov al, ah xor ah, ah ;mov bp, 2 jmp short PrintNumber ; -------------------------------------------------------- ; 01/12/2024 (32bit registers) ; 17/11/2024 ; 14/11/2024 CalcProgressTime: ;mov ax, [LoadedDataBytes] ;mov dx, [LoadedDataBytes+2] ;mov bx, ax ;or bx, dx ;jz short cpt_ok ; 01/12/2024 mov eax, [LoadedDataBytes] or eax, eax jz short cpt_ok ;mov bx, [WAVE_SampleRate] ;div bx ;xor dx, dx ;mov bx, [WAVE_BlockAlign] ;div bx ; 01/12/2024 movzx ebx, word [WAVE_SampleRate] xor edx, edx div ebx xor edx, edx mov bx, [WAVE_BlockAlign] div ebx cpt_ok: ; eax = (new) progress time retn ; -------------------------------------------------------- ; 14/11/2024 ; (Ref: player.asm, out_cs.asm, Matan Alfasi, 2017) ;; DESCRIPTION: Update file information on template ;; PARAMS: WAVE parameters and other variables ;; REGS: AX(RW) ;; VARS: CurrentFileName, WAVE_SampleRate, ;; RETURNS: On-screen file info is updated. ; 01/12/2024 (32bit registers) UpdateFileInfo: ;; Print File Name mov dh, 9 mov dl, 23 call setCursorPosition mov esi, wav_file_name ;;; ; 14/11/2024 ; skip directory separators ; (note: asciiz string, max. 79 bytes except zero tail) mov ebx, esi chk4_nxt_sep: lodsb cmp al, '/' ; 14/12/2024 je short chg_fpos and al, al jz short chg_fpos_ok jmp short chk4_nxt_sep chg_fpos: mov ebx, esi jmp short chk4_nxt_sep chg_fpos_ok: mov esi, ebx ; file name (without its path/directory) ;;; call PrintString ;; Print Frequency mov dh, 10 mov dl, 23 call setCursorPosition movzx eax, word [WAVE_SampleRate] mov ebp, 5 call PrintNumber ;; Print BitRate mov dh, 9 mov dl, 57 call setCursorPosition mov ax, [WAVE_BitsPerSample] mov bp, 2 call PrintNumber ;; Print Channel Number mov dh, 10 mov dl, 57 call setCursorPosition mov ax, [WAVE_NumChannels] mov bp, 1 call PrintNumber ;call UpdateVolume ;retn ; -------------------------------------------------------- ; 14/11/2024 UpdateVolume: ;; Print Volume mov dh, 24 mov dl, 75 call setCursorPosition mov al, [volume] mov bl, 100 mul bl mov bl, 31 div bl ;neg ax ;add ax, 100 ; 01/12/2024 mov ah, 100 sub ah, al movzx eax, ah ;xor ah, ah ;mov bp, 3 mov ebp, 3 ;call PrintNumber ;retn jmp PrintNumber ; -------------------------------------------------------- ; 01/12/2024 ; 14/11/2024 PrintString: ; esi = string address mov bx, 0Fh ; white mov ah, 0Eh ; write as tty printstr_loop: lodsb or al, al jz short printstr_ok ;int 10h ; 01/12/2024 (TRDOS 386 video interrupt) int 31h jmp short printstr_loop printstr_ok: retn ; -------------------------------------------------------- ; 14/11/2024 ; (Ref: player.asm , Matan Alfasi, 2017) ; (Modification: Erdogan Tan, 14/11/2024) PROGRESSBAR_ROW equ 23 UpdateProgressBar: call SetProgressTime ; 14/11/2024 ; 01/12/2024 (32bit registers) mov eax, [ProgressTime] UpdateProgressBar@: mov edx, 80 mul edx mov ebx, [TotalTime] div ebx UpdateProgressBar@@: ;; Push for the 'Clean' part push eax ; ** push eax ; * ;; Set cursor position mov dh, PROGRESSBAR_ROW mov dl, 0 call setCursorPosition pop eax ; * or eax, eax jz short UpdateProgressBar_Clean UpdateProgressBar_DrawProgress: mov ecx, eax mov ah, 09h mov al, 223 mov ebx, 0Fh ;int 10h ; 01/12/2024 (TRDOS 386 video interrupt) int 31h UpdateProgressBar_DrawCursor: ;mov eax, ecx mov dh, PROGRESSBAR_ROW ;mov dl, al dec ecx mov dl, cl call setCursorPosition mov ah, 09h mov al, 223 mov ebx, 0Ch mov ecx, 1 ;int 10h ; 01/12/2024 (TRDOS 386 video interrupt) int 31h UpdateProgressBar_Clean: pop eax ; ** ; 05/12/2024 ;mov ecx, eax mov ecx, 80 sub cx, ax ; 07/12/2024 jz short UpdateProgressBar_ok mov dh, PROGRESSBAR_ROW mov dl, al call setCursorPosition ; 05/12/2024 ;neg ecx ;add ecx, 80 ; cf = 1 ; + ;; CX = No. of times to print a clean character ;mov cx, 80 ;sub cx, ax ;; 09h = Write character multiple times mov ah, 09h ;; 32 = Space ASCII code ;mov al, 32 ;mov bx, 0 ; 15/11/2024 mov al, 223 mov ebx, 8 ;int 10h ; 01/12/2024 (TRDOS 386 video interrupt) int 31h ; 14/11/2024 clc ; + UpdateProgressBar_ok: retn ; -------------------------------------------------------- ; 17/11/2024 Player_ProcessKey_Backwards: ;; In order to go backwards 5 seconds: ;; Update file pointer to the beginning, skip headers mov cl, 'B' jmp short Player_ProcessKey_B_or_F Player_ProcessKey_Forwards: ;; In order to fast-forward 5 seconds, set the file pointer ;; to CUR_SEEK + 5 * Freq mov cl, 'F' ;jmp short Player_ProcessKey_B_or_F ; 01/12/2024 (32bit regsisters) Player_ProcessKey_B_or_F: ; 17/11/2024 ; 04/11/2024 ; (Ref: player.asm, Matan Alfasi, 2017) ; 04/11/2024 mov eax, 5 movzx ebx, word [WAVE_BlockAlign] mul ebx mov bx, [WAVE_SampleRate] mul ebx ; eax = transfer byte count for 5 seconds ; 17/11/2024 cmp cl, 'B' ;mov bx, [LoadedDataBytes] ;mov cx, [LoadedDataBytes+2] ; 01/12/2024 mov ecx, [LoadedDataBytes] jne short move_forward ; cl = 'F' move_backward: ;sub bx, ax ;sbb cx, dx sub ecx, eax jnc short move_file_pointer move_to_beginning: ;xor cx, cx ; 0 ;xor bx, bx ; 0 xor ecx, ecx jmp short move_file_pointer move_forward: ;add bx, ax ;adc cx, dx add ecx, eax jc short move_to_end ;cmp cx, [DATA_SubchunkSize+2] ;ja short move_to_end ;jb short move_file_pointer ;cmp bx, [DATA_SubchunkSize] ;jna short move_file_pointer cmp ecx, [DATA_SubchunkSize] jna short move_file_pointer move_to_end: ;mov bx, [DATA_SubchunkSize] ;mov cx, [DATA_SubchunkSize+2] mov ecx, [DATA_SubchunkSize] move_file_pointer: ;mov dx, bx ;mov [LoadedDataBytes], dx ;mov [LoadedDataBytes+2], cx mov [LoadedDataBytes], ecx ;add dx, 44 ; + header ;adc cx, 0 add ecx, 44 ; seek ;mov bx, [filehandle] ;mov ax, 4200h ;int 21h ; 01/12/2024 xor edx, edx ; offset from beginning of the file ; ecx = offset ; ebx = file handle ; edx = 0 sys _seek, [filehandle] retn ; -------------------------------------------------------- ; 01/12/2024 (32bit registers) ; 23/11/2024 ; 19/11/2024 clear_window: xor eax, eax jmp short clear_window_@ reset_wave_leds: ; 23/11/2024 ;mov al, 254 ;mov ah, 8 ; gray (dark) ;mov ax, 08FEh ; 01/12/2024 mov eax, 08FE08FEh clear_window_@: ;push es ;mov di, 0B800h ;mov es, di ;mov di, 2080 ; 13*80*2 ;mov cx, 8*80 ; 8 rows ;rep stosw ;pop es ; 01/12/2024 mov edi, 0B8000h + 2080 mov ecx, 8*80/2 rep stosd xor eax, eax ; 0 retn ; -------------------------------------------------------- ; 09/12/2024 ; 19/11/2024 UpdateWaveLeds: ; 23/11/2024 call reset_wave_leds ; 09/12/2024 ;jmp short turn_on_leds ; -------------------------------------------------------- ; 23/01/2025 ; 09/12/2024 ; 01/12/2024 (TRDOS 386, 32bit registers, flat memory) ; 23/11/2024 (Retro DOS, 16bit registers, segmented) ; 21/11/2024, 22/11/2024 ; 19/11/2024 turn_on_leds: ; cmp byte [tLO],'2' ; jne short tol_buffer_1 ; ;tol_buffer_2: ; mov edx, WAVBUFFER_2 ; jmp short tol_@ ; ;tol_buffer_1: ; cmp byte [tLO],'1' ; jne short tol_clc_retn ; ; mov edx, WAVBUFFER_1 ; 09/12/2024 ; 07/12/2024 mov dl, [half_buffer] tol_@: ; calculate differential ;cmp [pbuf_s], edx ; 07/12/2024 cmp [pbuf_s], dl jne short tol_ns_buf mov ebx, [wleds_dif] mov esi, [pbuf_o] mov ecx, [buffersize] ; word ; 07/12/2024 ;shl ecx, 1 ; byte sub ecx, ebx ; sub ecx, [wleds_dif] add esi, ebx jc short tol_o_@ cmp esi, ecx jna short tol_s_buf tol_o_@: mov esi, ecx jmp short tol_s_buf tol_clc_retn: clc tol_retn: retn tol_ns_buf: ;mov [pbuf_s], edx ; 07/12/2024 mov [pbuf_s], dl xor esi, esi ; 0 tol_s_buf: mov [pbuf_o], esi tol_buf_@: ;mov esi, [pbuf_o] ; 07/12/2024 ;add esi, edx ; [pbuf_s] add esi, audio_buffer mov ecx, 80 xor eax, eax ; 0 mov ebx, wleds_addr tol_fill_c: lodsw ; left ;shr ax, 8 ; 23/01/2025 add ah, 80h mov edx, eax lodsw ; right ;shr ax, 8 ;;; ;add eax, edx ;shr eax, 8 ;;shr ax, 9 ;add al, 80h ;shr eax, 5 ;;; ;shr ax, 6 ;;; ; 09/12/2024 ;add ax, dx ;add ah, 80h ;shr eax, 13 ; 23/01/2025 add ah, 80h add eax, edx ; L+R shr eax, 14 ; 8 volume levels ;;; push ebx ;shl ax, 1 ; 01/12/2024 shl eax, 2 add ebx, eax ; 01/12/2024 (32bit address) mov edi, [ebx] mov ah, [ccolor] mov al, 254 mov [edi], ax pop ebx ;add ebx, 16 add ebx, 32 loop tol_fill_c retn ; -------------------------------------------------------- ; -------------------------------------------------------- ; DATA ; 30/05/2024 ;reset: db 0 Credits: db 'Tiny WAV Player for TRDOS 386 by Erdogan Tan. ' ;;db 'December 2024.', 10,13,0 ;db 'January 2025.', 10,13,0 db 'February 2025.', 10,13,0 ;;;db '18/12/2024', 10,13 ;;db '17/01/2025', 10,13 ;db '23/01/2025', 10,13 db '05/02/2025', 10,13 ; 15/11/2024 reset: db 0 msgAudioCardInfo: db 'for Intel AC97 (ICH) Audio Controller.', 10,13,0 ; 07/12/2024 msg_usage: db 'usage: playwav9 filename.wav',10,13,0 ; 24/11/2024 noDevMsg: db 'Error: Unable to find AC97 audio device!' db 10,13,0 noFileErrMsg: db 'Error: file not found.',10,13,0 ; 07/12/2024 trdos386_err_msg: db 'TRDOS 386 System call error !',10,13,0 ; 29/05/2024 ; 11/11/2023 msg_init_err: db CR, LF db "AC97 Controller/Codec initialization error !" db CR, LF, 0 ; 07/12/2024 ; 25/11/2023 msg_no_vra: db 10,13 db "No VRA support ! Only 48 kHZ sample rate supported !" db 10,13,0 ; 13/11/2024 ; ('<<' to 'shl' conversion for FASM) ; ; 29/05/2024 (TRDOS 386) ; 17/02/2017 ; Valid ICH device IDs valid_ids: ;dd (ICH_DID << 16) + INTEL_VID ; 8086h:2415h dd (ICH_DID shl 16) + INTEL_VID ; 8086h:2415h dd (ICH0_DID shl 16) + INTEL_VID ; 8086h:2425h dd (ICH2_DID shl 16) + INTEL_VID ; 8086h:2445h dd (ICH3_DID shl 16) + INTEL_VID ; 8086h:2485h dd (ICH4_DID shl 16) + INTEL_VID ; 8086h:24C5h dd (ICH5_DID shl 16) + INTEL_VID ; 8086h:24D5h dd (ICH6_DID shl 16) + INTEL_VID ; 8086h:266Eh dd (ESB6300_DID shl 16) + INTEL_VID ; 8086h:25A6h dd (ESB631X_DID shl 16) + INTEL_VID ; 8086h:2698h dd (ICH7_DID shl 16) + INTEL_VID ; 8086h:27DEh ; 03/11/2023 - Erdogan Tan dd (MX82440_DID shl 16) + INTEL_VID ; 8086h:7195h dd (SI7012_DID shl 16) + SIS_VID ; 1039h:7012h dd (NFORCE_DID shl 16) + NVIDIA_VID ; 10DEh:01B1h dd (NFORCE2_DID shl 16) + NVIDIA_VID ; 10DEh:006Ah dd (AMD8111_DID shl 16) + AMD_VID ; 1022h:746Dh dd (AMD768_DID shl 16) + AMD_VID ; 1022h:7445h dd (CK804_DID shl 16) + NVIDIA_VID ; 10DEh:0059h dd (MCP04_DID shl 16) + NVIDIA_VID ; 10DEh:003Ah dd (CK8_DID shl 16) + NVIDIA_VID ; 1022h:008Ah dd (NFORCE3_DID shl 16) + NVIDIA_VID ; 10DEh:00DAh dd (CK8S_DID shl 16) + NVIDIA_VID ; 10DEh:00EAh ;valid_id_count equ ($ - valid_ids)>>2 ; 05/11/2023 ; 13/11/2024 valid_id_count = ($ - valid_ids) shr 2 ; 05/11/2023 ; 19/11/2024 ; 03/06/2017 hex_chars db "0123456789ABCDEF", 0 msgAC97Info db 0Dh, 0Ah db " AC97 Audio Controller & Codec Info", 0Dh, 0Ah db " Vendor ID: " msgVendorId db "0000h Device ID: " msgDevId db "0000h", 0Dh, 0Ah db " Bus: " msgBusNo db "00h Device: " msgDevNo db "00h Function: " msgFncNo db "00h" db 0Dh, 0Ah db " NAMBAR: " msgNamBar db "0000h " db "NABMBAR: " msgNabmBar db "0000h IRQ: " msgIRQ dw 3030h db 0Dh, 0Ah, 0 ; 25/11/2023 msgVRAheader db " VRA support: " db 0 msgVRAyes db "YES", 0Dh, 0Ah, 0 msgVRAno db "NO ", 0Dh, 0Ah db " (Interpolated sample rate playing method)" db 0Dh, 0Ah, 0 ; -------------------------------------------------------- ; 14/11/2024 (Ref: player.asm, Matan Alfasi, 2017) SplashScreen: db 221, 219, 222, " ", 221, 219, 222 db 221, 219, 222, " ", 221, 219, 222 db 221, 219, 222, " ", 221, 219, 222 db 221, 219, 222, " ", 221, 219, 222 db 221, 219, 222, " _______ ______ _______. ", 221, 219, 222 db 221, 219, 222, " | \ / __ \ / | ", 221, 219, 222 db 221, 219, 222, " | .--. | | | | | (----` ", 221, 219, 222 db 221, 219, 222, " | | | | | | | \ \ ", 221, 219, 222 db 221, 219, 222, " | '--' | `--' | .----) | ", 221, 219, 222 db 221, 219, 222, " |_______/ \______/ |_______/ ", 221, 219, 222 db 221, 219, 222, " ", 221, 219, 222 db 221, 219, 222, " .______ __ ___ ____ ____ _______ .______ ", 221, 219, 222 db 221, 219, 222, " | _ \ | | / \ \ \ / / | ____|| _ \ ", 221, 219, 222 db 221, 219, 222, " | |_) | | | / ^ \ \ \/ / | |__ | |_) | ", 221, 219, 222 db 221, 219, 222, " | ___/ | | / /_\ \ \_ _/ | __| | / ", 221, 219, 222 db 221, 219, 222, " | | | `----./ _____ \ | | | |____ | |\ \----. ", 221, 219, 222 db 221, 219, 222, " | _| |_______/__/ \__\ |__| |_______|| _| `._____| ", 221, 219, 222 db 221, 219, 222, " ", 221, 219, 222 db 221, 219, 222, " ", 221, 219, 222 db 221, 219, 222, " ", 221, 219, 222 db 221, 219, 222, " WELCOME TO ", 221, 219, 222 db 221, 219, 222, " DOS PLAYER ", 221, 219, 222 db 221, 219, 222, " ", 221, 219, 222 db 221, 219, 222, " ", 221, 219, 222 db " " Template: db 201, 78 dup(205), 187 db 186, 33 dup(219), " DOS Player ", 33 dup(219), 186 db 204, 78 dup(205), 185 db 186, 33 dup(32), " User Guide ", 33 dup(32), 186 db 186, 6 dup(32), " Play/Pause ", 4 dup(32), " Hardware Info", 9 dup(32), 186 db 186, 6 dup(32), " Stop ", 4 dup(32), " Wave Lighting", 9 dup(32), 186 db 186, 6 dup(32), " Forwards ", 4 dup(32), "<+>/<-> Inc/Dec Volume", 8 dup(32), 186 db 186, 6 dup(32), " Backwards ", 4 dup(32), " Quit Program ", 9 dup(32), 186 db 204, 78 dup(205), 185 db 186, 6 dup(32), "File Name : ", 4 dup(32), "Bit-Rate : 0 Bits ", 9 dup(32), 186 db 186, 6 dup(32), "Frequency : 0 Hz ", 4 dup(32), "#-Channels: 0 ", 9 dup(32), 186 db 200, 78 dup(205), 188 db 80 dup(32) improper_samplerate_txt: ; 03/11/2024 read_error_txt: db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(32) db 80 dup(205) db 80 dup(32) db 33 dup(32), "00:00 ", 174, 175, " 00:00", 24 dup(32), "VOL 000%" ; 23/11/2024 colors: db 0Fh, 0Bh, 0Ah, 0Ch, 0Eh, 09h, 0Dh, 0Fh ; white, cyan, green, red, yellow, blue, magenta ccolor: db 0Bh ; cyan EOF: ; BSS ; 30/11/2024 (32bit address and pointers for TRDOS 386) align 4 ; 30/11/2024 ; 22/11/2024 ; wave volume leds address array ;wleds_addr: rw 80*8 ; rb 2*80*8 ; 01/12/2024 wleds_addr: rd 80*8 ; 32bit address ; 14/11/2024 ; 17/02/2017 bss_start: ; 13/11/2024 ; ('resb','resw','resd' to 'rb','rw','rd' conversions for FASM) ; 18/11/2024 stopped: rb 1 tLO: rb 1 ; 21/11/2024 tLP: rb 1 ; 19/11/2024 wleds: rb 1 wleds_dif: rd 1 ;pbuf_s: rd 1 pbuf_o: rd 1 ; 07/12/2024 pbuf_s: rb 1 ; 07/12/2024 ; 24/11/2024 half_buffer: rb 1 ; dma half buffer 1 or 2 (0 or 1) ; 30/05/2024 VRA: rb 1 ; Variable Rate Audio Support Status ; 30/11/2024 align 4 ;;;;;;;;;;;;;; ; 14/11/2024 ; (Ref: player.asm, Matan Alfasi, 2017) WAVFILEHEADERbuff: RIFF_ChunkID: rd 1 ; Must be equal to "RIFF" - big-endian ; 0x52494646 RIFF_ChunkSize: rd 1 ; Represents total file size, not ; including the first 2 fields ; (Total_File_Size - 8), little-endian RIFF_Format: rd 1 ; Must be equal to "WAVE" - big-endian ; 0x57415645 ;; WAVE header parameters ("Sub-chunk") WAVE_SubchunkID: rd 1 ; Must be equal to "fmt " - big-endian ; 0x666d7420 WAVE_SubchunkSize: rd 1 ; Represents total chunk size WAVE_AudioFormat: rw 1 ; PCM (Raw) - is 1, other - is a form ; of compression, not supported. WAVE_NumChannels: rw 1 ; Number of channels, Mono-1, Stereo-2 WAVE_SampleRate: rd 1 ; Frequency rate, in Hz (8000, 44100 ...) WAVE_ByteRate: rd 1 ; SampleRate * NumChannels * BytesPerSample WAVE_BlockAlign: rw 1 ; NumChannels * BytesPerSample ; Number of bytes for one sample. WAVE_BitsPerSample: rw 1 ; 8 = 8 bits, 16 = 16 bits, etc. ;; DATA header parameters DATA_SubchunkID: rd 1 ; Must be equal to "data" - big-endian ; 0x64617461 DATA_SubchunkSize: rd 1 ; NumSamples * NumChannels * BytesPerSample ; Number of bytes in the data. ;;;;;;;;;;;;;; ; 15/11/2024 cursortype: rw 1 flags: rb 1 ; 06/11/2023 ac97_int_ln_reg: rb 1 filehandle: rd 1 ; 30/05/2024 wav_file_name: rb 80 ; wave file, path name (<= 80 bytes) rw 1 ; 30/11/2024 ; 08/11/2023 ; 07/11/2023 fbs_shift: rb 1 ; 07/12/2024 SRB: rb 1 ; 12/11/2016 - Erdogan Tan bus_dev_fn: rd 1 dev_vendor: rd 1 ; 17/02/2017 ; NAMBAR: Native Audio Mixer Base Address Register ; (ICH, Audio D31:F5, PCI Config Space) Address offset: 10h-13h ; NABMBAR: Native Audio Bus Mastering Base Address register ; (ICH, Audio D31:F5, PCI Config Space) Address offset: 14h-17h NAMBAR: rw 1 ; BAR for mixer NABMBAR: rw 1 ; BAR for bus master regs ; 09/12/2024 ; 23/11/2024 ;turn_on_leds: rd 1 ; turn_on_leds procedure pointer (m8,m16,s8,s16) ; 15/11/2024 loadfromwavfile: rd 1 ; 'loadfromfile' or load+conversion proc address loadsize: rd 1 ; (.wav file) read count (bytes) per one time buffersize: rd 1 ; 16 bit samples (not bytes) ; 14/11/2024 TotalTime: rd 1 ; Total (WAV File) Playing Time in seconds ProgressTime: rd 1 count: rd 1 ; byte count of one (wav file) read LoadedDataBytes: rd 1 ; total read/load count timerticks: rd 1 ; (to eliminate excessive lookup of events in tuneloop) ; (in order to get the emulator/qemu to run correctly) ; 14/11/2024 bss_end: ; 02/12/2024 align 4096 ; 07/12/2024 ; 26/11/2023 audio_buffer: rb 65536 ; DMA Buffer Size / 2 ; 01/12/2024 ; 26/11/2023 temp_buffer: rb 65536 ; rb BUFFERSIZE ;alignb 16 ;bss_end: