; **************************************************************************** ; tmodply3.s (for TRDOS 386) ; ---------------------------------------------------------------------------- ; TMODPLY3.PRG ! VIA VT8237R MOD PLAYER & VGA DEMO program by Erdogan TAN ; ; 28/10/2017 ; ; [ Last Modification: 24/08/2020 ] !!! STEREO MOD PLAYING !!! ; ; Derived from 'tmodplay.s' (TMODPLAY.PRG, SB16) source code by Erdogan Tan ; (27/10/2017). ((Stereo mod playing with TRDOS 386 audio system calls...)) ; ; note: ; ; For 640x480x16 display, 'TNYPL211' source code ('EX1A.ASM' and 'EX1B.ASM' ; by Carlos Hasan, 1994) is modified in order to use previous ('modplay7.s') ; scope method as stereo. (Track/channel scope method -in TNYPL211 files- ; is/was not applied because TRDOS 386 adaption of the tiny mod player uses ; dma buffer for immediate -synchronized- displaying of sound waves. ; So, stereo wave display -two waves, two scopes- is normally applicable.) ; ; Derived from source code of 'PLAY.EXE' (TINYPLAY) by Carlos Hasan (1993) ; PLAY.EXE: PLAY.ASM, MODLOAD.ASM, MODPLAY.ASM, SB.ASM ; ; Stereophonic mod playing code prototype: ; 'modplay6.s' (AC97) by Erdogan Tan (20/10/2017) ; ; Modified by using the source code of 'playmod6.s' ('PLAYMOD6.PRG') ; by Erdogan Tan (15/10/2017) ; ; Derived from source code of 'TINYPLAY.COM' ('TINYPLAY.ASM') ; by Erdogan Tan (04/03/2017) ; ; Assembler: NASM 2.11 ; ---------------------------------------------------------------------------- ; nasm tmodplay.s -l tmodplay.txt -o TMODPLAY.PRG ; **************************************************************************** ; PLAYMOD.ASM by Erdogan Tan (for MSDOS) (15/02/2017) ; TMODPLAY.ASM by Erdogan Tan (for MSDOS) (01/10/2017) ; 01/03/2017 ; 16/10/2016 ; 29/04/2016 ; TRDOS 386 system calls (temporary list!) _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 %macro sys 1-4 ; 29/04/2016 - TRDOS 386 (TRDOS v2.0) ; 03/09/2015 ; 13/04/2015 ; Retro UNIX 386 v1 system call. %if %0 >= 2 mov ebx, %2 %if %0 >= 3 mov ecx, %3 %if %0 = 4 mov edx, %4 %endif %endif %endif mov eax, %1 ;int 30h int 40h ; TRDOS 386 (TRDOS v2.0) %endmacro ; TRDOS 386 (and Retro UNIX 386 v1) system call format: ; sys systemcall (eax) , , ; 19/06/2017 BUFFERSIZE equ 32768 ; ---------------------------------------------------------------------------- ; Tiny MOD Player v0.1b by Carlos Hasan. ; July 14th, 1993. ;============================================================================= ; ;============================================================================= [BITS 32] [org 0] Start: ; clear bss mov ecx, EOF mov edi, bss_start sub ecx, edi shr ecx, 1 xor eax, eax rep stosw ; Detect (& Enable) VT8233 Audio Device call DetectVT8233 jnc short GetFileName _dev_not_ready: ; couldn't find the audio device! sys _msg, noDevMsg, 255, 0Fh jmp Exit GetFileName: mov esi, esp lodsd cmp eax, 2 ; two arguments ; (program file name & mod file name) jb pmsg_usage ; nothing to do lodsd ; program file name address lodsd ; mod file name address (file to be read) mov esi, eax mov edi, mod_file_name ScanName: lodsb test al, al je pmsg_usage cmp al, 20h je short ScanName ; scan start of name. stosb mov ah, 0FFh a_0: inc ah a_1: lodsb stosb cmp al, '.' je short a_0 and al, al jnz short a_1 or ah, ah ; if period NOT found, jnz short PrintPMesg ; then add a .MOD extension. SetExt: dec edi mov dword [edi], '.MOD' mov byte [edi+4], 0 PrintPMesg: ; Prints the Credits Text. sys _msg, Credits, 255, 0Fh _1: ; 19/06/2017 ; Allocate Audio Buffer (for user) sys _audio, 0200h, BUFFERSIZE, Audio_Buffer jc error_exit _2: ; 23/08/2020 ; Initialize Audio Device (bl = 1 -> Interrupt method) sys _audio, 0301h, 0, ac97_int_handler jc error_exit ; 20/10/2017 ; Initialize Audio Device (bl = 0 -> SRB method) ;sys _audio, 0300h, 1, srb ;jc error_exit LoadMod: mov edi, mod_file_name call LoadModule ; Load the MODule... ; 08/10/2017 jnc short _3 ; any error loading? ; yes, print error and Exit. sys _msg, ErrorMesg, 255, 0Fh jmp Exit _3: ; 10/06/2017 sys _audio, 0E00h ; get audio controller info jc error_exit ;cmp ah, 3 ; VT 8233? (VIA 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 = Base IO Addr (DX) for SB16 & VT8233 ; EDX = NABMBAR/NAMBAR (for AC97) ; (Low word, DX = NAMBAR address) mov [ac97_int_ln_reg], al mov [dev_vendor], ebx mov [bus_dev_fn], ecx mov [ac97_io_base], dx call write_audio_dev_info PlayNow: call StartPlaying ; 03/08/2020 ; load 32768 bytes into audio buffer ;mov edi, Audio_Buffer ; 19/10/2017 ;;mov ebx, BUFFERSIZE ;mov ebx, BUFFERSIZE/4 ; 16 bits, stereo sound buffer call GetSamples jc error_exit ; ;mov ecx, 128 ; Make a lookup table ; mov cl, 128 ; xor ebx, ebx ; for fastest pixel ; mov edx, 320*(100-64) ; addressing. ;MakeOfs: ; mov [RowOfs+ebx], dx ; mov [RowOfs+ebx+2], dx ; add dx, 320 ; add ebx, 4 ; loop MakeOfs ; 03/08/2020 ; bh = 16 : update (current) dma half buffer ; bl = 0 : then switch to the next half buffer sys _audio, 1000h ; 29/07/2020 ; 03/08/2020 ; load 32768 bytes into audio buffer ;mov edi, Audio_Buffer ; 19/10/2017 ;mov ebx, BUFFERSIZE/4 ; 16 bits, stereo sound buffer call GetSamples jc error_exit ; 27/10/2017 mov cx, 256 xor ebx, ebx mov edi, RowOfs MakeOfs: ; 29/10/2017 ;mov ax, 128 ;mul bx ;mov al, ah ;mov ah, 80 ;mul ah mov eax, ebx shl ax, 7 ; * 128 mov al, 80 mul ah stosw inc ebx loop MakeOfs ; 09/10/2017 (2*BUFFERSIZE, 64K) ; 23/06/2017 ; Map DMA buffer to user's memory space sys _audio, 0D00h, 2*BUFFERSIZE, DMA_Buffer ;jc error_exit ; 24/06/2017 ; Set Master Volume Level (BL=0 or 80h) ; for next playing (BL>=80h) ;sys _audio, 0B80h, 1D1Dh ; 23/08/2020 ; Set Master Volume Level (BL=0 or 80h) sys _audio, 0B00h, 1D1Dh ; 20/10/2017 ;mov byte [volume_level], 1Dh mov [volume_level], cl ; 03/08/2020 ;mov word [MixSpeed], 22050 ; Mixing at 22.050 kHz ; Start to play mov al, [bps] shr al, 4 ; 8 -> 0, 16 -> 1 shl al, 1 ; 16 -> 2, 8 -> 0 mov bl, [stmo] dec bl or bl, al mov cx, [MixSpeed] ; [Sample_Rate] ; Hz mov bh, 4 ; start to play sys _audio ;; SETUP SIGNAL RESPONSE BYTE ;; 06/03/2017 ;mov bl, [ac97_int_ln_reg] ; IRQ number ;mov bh, 1 ; Link IRQ to user for Signal Response Byte ;mov edx, srb ; Signal Response/Return Byte address ;mov ecx, 0FFh ; Signal Response/Return Byte value ;sys _calbac ;jc short error_exit ; DIRECT VGA MEMORY ACCESS ; bl = 0, bh = 5 ; Direct access/map to VGA memory (0A0000h) sys _video, 0500h cmp eax, 0A0000h je short _a3 error_exit: sys _msg, trdos386_err_msg, 255, 0Eh jmp short Exit ; Note: Normally IRQ 0 calls the ModPlay Polling at 18.2Hz thru ; the software interrupt 1Ch. If the IRQ 0 is disabled, then ; the INT 1Ch MUST BE CALLED at least MixSpeed/1024 times per ; second, or the module will sound "looped". ; Because we need better sync with the ModPlayer to draw the scope, ; the polling is called from my routine, and then the irq 0 must be ; disabled. The [DmaBuffer] points to the current buffer of 8-bit ; samples played by the Sound Blaster. Note that some samples are ; discarded in the next code, just for fun! _a3: ;mov ax, 0013h ; Set Mode 320x200x256 ;int 31h ; 21/10/2017 ;mov ax, 0012h ; Set Mode 640x480x16 ;int 31h ; 22/10/2017 call setgraphmode ; Set video mode to 640*480x16 ; 22/10/2017 ;call loadlbm ;jc short loadlbm_err mov esi, LOGO_ADDRESS call putlbm ;jnc short loadlbm_ok jnc short _a4 ; ;mov byte [error_color], 0Eh ; Yellow loadlbm_err: ; 21/10/2017 ;mov ax, 0003h ; Set Text Mode 80x25x16 ;int 31h ; 22/10/2017 call settextmode sys _msg, LOGO_ERROR_MSG, 255, [error_color] jmp short Exit ; 21/10/2017 error_color: db 0Ch ; Light Red loadlbm_ok: ; 21/10/2017 _a4: ; 24/06/2017 call PlayMod ; 13/02/2017 (ModPlay) _s_exit: call StopPlaying ; STOP! ; 22/10/2017 ;mov ax, 0003h ; Set Text Mode 80x25x16 ;int 31h call settextmode Exit: ;call FreeModule ; Free MODule core. sys _exit ; Bye ! here: jmp short here pmsg_usage: sys _msg, msg_usage, 255, 0Fh jmp short Exit DetectVT8233: ; Detect (BH=1) VT8233 (BL=3) Audio Controller sys _audio, 0103h retn noDevMsg: db "Error: Unable to find VIA VT8233 based audio device!",13,10,0 ac97_int_handler: ; 23/08/2020 ; 28/10/2017 ; 14/10/2017 ; 09/10/2017 ; 19/06/2017 mov byte [srb], 1 ; interrupt (or signal response byte) ;;mov ebx, BUFFERSIZE ;mov ebx, BUFFERSIZE/4 ; 16 bits, stereo sound buffer call GetSamples ;jc error_exit sys _rele ; return from callback service ; we must not come here ! sys _exit ;============================================================================= ; ;============================================================================= PlayMod: ; 24/08/2020 ; 03/08/2020 ; 27/10/2017 ; 19/10/2017 ; 23/06/2017 ; 21/06/2017 ; 19/06/2017 ; 05/03/2017 (TRDOS 386) ; 14/02/2017 ; 13/02/2017 ; 08/12/2016 ; 28/11/2016 ; 03/08/2020 ;jmp short modp_gs ; 23/06/2017 ; 24/08/2020 inc byte [counter] p_loop: cmp byte [srb], 0 jna short q_loop mov byte [srb], 0 modp_gs: ; 23/08/2020 ; 03/08/2020 ;mov edi, Audio_Buffer ; 19/10/2017 ;;;mov ebx, BUFFERSIZE ; 32768 bytes ; 14/03/2017 ;;mov ebx, BUFFERSIZE/4 ; 16 bits, stereo sound buffer ;call GetSamples ;jc error_exit ; 23/08/2020 jmp r_loop q_loop: ; 24/08/2020 test byte [counter], 63 jnz short r_loop k_loop: mov ah, 1 ; any key pressed? int 32h ; no, Loop. jz short r_loop mov ah, 0 ; flush key buffer... int 32h ; 19/10/2017 (modplay6.s) cmp al, 20h je short change_pan ; 09/10/2017 (playmod5.s) cmp al, '+' ; increase sound volume je short inc_volume_level cmp al, '-' je short dec_volume_level ; 19/10/2017 (modplay6.s) and al, 0DFh cmp al, 'P' jne short q_return change_pan: ; 19/10/2017 (modplay6.s) mov cl, [pan_shift] inc cl and cl, 3 mov [pan_shift], cl jmp short r_loop ; 09/10/2017 (playmod5.s) ; 24/06/2017 (wavplay2.s) inc_volume_level: mov cl, [volume_level] cmp cl, 1Fh ; 31 jnb short r_loop inc cl change_volume_level: mov [volume_level], cl mov ch, cl ; Set Master Volume Level sys _audio, 0B00h jmp short r_loop dec_volume_level: mov cl, [volume_level] cmp cl, 1 ; 1 jna short r_loop dec cl jmp short change_volume_level q_return: retn r_loop: ; 24/08/2020 inc byte [counter] jnz short q_loop ; 27/10/2017 ; Get Current DMA buffer Pointer ; 23/06/2017 ('modplay6.s') ; bh = 15, get current pointer (DMA buffer offset) ; bl = 0, for PCM OUT ; ecx = 0 ; sys _audio, 0F00h, 0 ; 28/10/2017 and al, 0FCh ; dword alignment (stereo, 16 bit) ; 23/06/2017 mov esi, DMA_Buffer add esi, eax ; add offset value ; 24/06/2017 mov ecx, DMA_Buffer + (65536 - (256*4)) cmp esi, ecx jna short _4 mov esi, ecx _4: ; 23/10/2017 ('tmodplay.s') call drawscopes jmp p_loop ;============================================================================= ; MODLOAD.ASM ;============================================================================= ; Amiga Module Loader v0.1b by Carlos Hasan. ; July 10th, 1993. ; STRUCTURES struc ModSample .msName: resb 22 .msLength: resw 1 .msFinetune: resb 1 .msVolume: resb 1 .msRepeat: resw 1 .msRepLen: resw 1 .size: ; 30 bytes endstruc struc ModHeader .mhName: resb 20 .mhSamples: resb ModSample.size*31 .mhOrderLen: resb 1 .mhReStart: resb 1 .mhOrder: resb 128 .mhSign: resw 2 .size: ; 1084 bytes endstruc struc ModInfoRec .OrderLen: resb 1 .ReStart: resb 1 .Order: resb 128 .Patterns: resd 1 .SampOfs: resw 31 .SampSeg: resw 31 .SampLen: resw 31 .SampRep: resw 31 .SampRepLen: resw 31 .SampVol: resw 31 .size: ; 506 bytes endstruc ; CODE ; modplay5.s ; 07/10/2017 ; tinyply3.s ; 06/10/2017 ; 04/10/2017 ; /* MOD FileFormat */ ID_MK equ 2E4B2E4Dh ; "M.K." ID_FLT4 equ 34544C46h ; "FLT4" ID_8CHN equ 4E484338h ; "8CHN" ID_FLT8 equ 34544C46h ; "FLT8" ; CODE LoadModule: ; edi = file name address pushad call ClearModInfo OpenFile: ; ebx = ASCIIZ file name address ; ecx = open mode (0 = open for read) sys _open, edi, 0 ; open for reading jc Failed mov [FileHandle], eax ReadHeader: ; ebx = File handle ; ecx = Buffer address ; edx = Byte count sys _read, [FileHandle], Header, ModHeader.size jc CloseFile CheckMK: ; 04/10/2017 mov eax, [Header+ModHeader.mhSign] cmp eax, ID_MK ; cmp eax, '.K.M' ;je short Is4chnMod je short IsModFile CheckFLT4: cmp eax, ID_FLT4 ; cmp eax, '4TLF' ;je short Is4chnMod je short IsModFile Check8CHN: cmp eax, ID_8CHN ; cmp eax, 'NHC8' je short Is8chnMod CheckFLT8: cmp eax, ID_FLT8 ; cmp eax, '8TLF' ; 06/10/2017 je short Is8chnMod stc jmp CloseFile Is8chnMod: mov byte [numtracks], 8 ; 8-CHANNEL-MOD mov byte [pattern_shift], 11 ; Pattern Size = 2048 bytes jmp short IsModFile ;Is4chnMod: ; mov byte [numtracks], 4 ; 4-CHANNEL-MOD ; mov byte [pattern_shift], 11 ; Pattern Size = 1024 bytes IsModFile: mov al, [Header+ModHeader.mhOrderLen] mov [ModInfo.OrderLen], al mov al, [Header+ModHeader.mhReStart] cmp al, [Header+ModHeader.mhOrderLen] jb short SetReStart mov al, 7Fh SetReStart: mov [ModInfo.ReStart], al ;mov ecx, 128 mov cx, 128 xor edx, edx xor ebx, ebx CopyOrder: mov dh, [Header+ModHeader.mhOrder+ebx] mov [ModInfo.Order+ebx], dh cmp dh, dl jb short NextOrder mov dl, dh ; Max. pattern number ; 04/10/2017 NextOrder: inc ebx loop CopyOrder AllocPatterns: and edx, 0FFh ; 04/10/2017 ;inx dx ; 12/03/2017 inc dl ; dl = number of patterns (04/07/2017) mov cl, [pattern_shift] ; 10 for 4 channels, 11 for 8 channels shl edx, cl ; 10 ; *1024 ; (byte count of patterns *64*4*4) ; *2048 ; (byte count of patterns *64*8*4) ; mov ebp, edx ; offset of samples (04/07/2017) ;mov ecx, 10000h ; next 64K (4096*16) mov ecx, file_buffer ; 12/03/2017 ; mov [ModInfo.Patterns], ecx ; add ebp, ecx ; next offset for samples ReadPatterns: ;mov ebx, [FileHandle] ; ebx = File handle ; ecx = Buffer address ; edx = Byte count sys _read, [FileHandle] jc CloseFile ; patterns have been loaded here... (04/07/2017) mov esi, Header+ModHeader.mhSamples xor edi, edi CopySamples: mov ax, [esi+ModSample.msLength] xchg al, ah shl ax, 1 mov [ModInfo.SampLen+edi], ax mov al, [esi+ModSample.msVolume] xor ah, ah mov [ModInfo.SampVol+edi], ax mov ax, [esi+ModSample.msRepeat] xchg al, ah shl ax, 1 mov [ModInfo.SampRep+edi], ax mov ax, [esi+ModSample.msRepLen] xchg al, ah shl ax, 1 mov [ModInfo.SampRepLen+edi], ax add esi, ModSample.size add di, 2 cmp di, 2*31 jb short CopySamples xor esi, esi AllocSamples: movzx edx, word [ModInfo.SampLen+esi] ; 07/10/2017 ;shr dx, 4 ; *** and edx, edx jz short NextSample ;inc dx ; number of paragraphs ; *** ;shl dx, 4 ; *** mov eax, ebp mov [ModInfo.SampOfs+esi], ax shr eax, 16 mov [ModInfo.SampSeg+esi], ax mov ecx, ebp add ebp, edx ; next offset for sample ReadSample: ;mov ebx, [FileHandle] ;movzx edx, [ModInfo.SampLen+esi] ;mov ecx, [ModInfo.SampOfs+esi] ; ebx = File handle ; ecx = Buffer address ; edx = Byte count sys _read, [FileHandle] jc short CloseFile NextSample: add si, 2 cmp si, 2*31 jb short AllocSamples CloseFile: pushf sys _close, [FileHandle] popf Failed: popad retn FreeModule: ; Erdogan Tan (13/02/2017) ; nothing to do here for memory de-allocation ClearModInfo: push edi mov edi, ModInfo mov ecx, ModInfoRec.size ;cld xor al, al rep stosb pop edi retn ;============================================================================= ; MODPLAY.ASM ;============================================================================= ; Amiga Module Loader v0.3b by Carlos Hasan. ; July 23th, 1993. ; EQUATES ;NumTracks equ 4 ; 07/10/2017 ([numtracks]) DefTempo equ 6 DefBpm equ 125 MidCRate equ 8448 ;MixBufSize equ 4096 ;;MixBufSize equ 7680 ; 17/10/2017 ; ((48000/50)*8) ; STRUCTURES struc TrackInfo ; 01/10/2017 (TMODPLAY.ASM) modif. by Erdogan Tan .Samples: resd 1 ;.Position: resw 1 .Position: resd 1 ; 01/10/2017 - TRDOS 386 modification ! .Len: resw 1 .Repeat: resw 1 .RepLen: resw 1 .Volume: resb 1 ; Volume .VolDiff: resb 1 ; 01/10/2017 ; Volume difference (Tremolo) ;.Error: resb 1 ;.Reserved: resb 1 ; 01/10/2017 .Period: resw 1 ; Period .Pitch: resw 1 .Effect: resw 1 ; Effect .PortTo: resw 1 ; Toneporta wanted period .PortParm: resb 1 ; Toneporta speed .VibPos: resb 1 ; Vibrato wave position .VibParm: resb 1 ; Vibrato depth/rate .TremPos: resb 1 ; 01/10/2017 ; Tremolo wave position .TremParm: resb 1 ; 01/10/2017 ; Tremolo depth/rate ;.OldSampOfs: resb 1 ; ******* ; 01/10/2017 .Error: resb 1 ; 01/10/2017 .Arp: resw 3 .ArpIndex: resw 1 .size: ; 38 bytes ; 01/10/2017 - TRDOS 386 endstruc ; CODE ;-------------------------------------------------------------------------- ; updatechannel - update the track using the current effect ;-------------------------------------------------------------------------- ; ;-------------------------------------------------------------------------- ; Track: Process the next in one track. ; In: ; ds:di - Track info Address. ;-------------------------------------------------------------------------- ; edi = Track info address updatechannel: BeatTrack: ; updatechannel ; 01/10/2017 (TMODPLAY.ASM) mov dx, [edi+TrackInfo.Effect] ;test dx, dx ;je short None ;cmp dh, 00h ;je short Arpeggio ;cmp dh, 01h ;je short PortUp ;cmp dh, 02h ;je short PortDown ;cmp dh, 03h ;je TonePort ;cmp dh, 04h ;je Vibrato ;cmp dh, 05h ;je PortSlide ;cmp dh, 06h ;je VibSlide ;cmp dh, 0Ah ;je VolSlide ;retn movzx eax, dh and al, 0Fh jmp dword [4*eax+efxtable2] ; TRDOS 386 ! (32 bits) efxnull: None: retn efxarpeggio2: ; 01/10/2017 test dl, dl jz short efxnull Arpeggio: movzx ebx, word [edi+TrackInfo.ArpIndex] mov ax, [edi+TrackInfo.Arp+ebx] mov [edi+TrackInfo.Pitch], ax add bx, 2 cmp bx, 6 jb short SetArpIndex xor ebx, ebx SetArpIndex: mov [edi+TrackInfo.ArpIndex], bx retn efxportaup: PortUp: xor dh, dh ;mov bx, [edi+TrackInfo.Period] movzx ebx, word [edi+TrackInfo.Period] ; 02/10/2017 sub bx, dx ;cmp bx, 113 cmp bx, 28 ; 01/10/2017 jge short NotSmall ;mov bx, 113 mov bx, 28 ; 01/10/2017 NotSmall: mov [edi+TrackInfo.Period], bx add bx, bx ;mov ax, [PitchTable+bx] mov ax, [PitchTable+ebx] ; 02/10/2017 mov [edi+TrackInfo.Pitch], ax retn efxportadown: PortDown: xor dh, dh ;mov bx, [edi+TrackInfo.Period] movzx ebx, word [edi+TrackInfo.Period] ; 02/10/2017 add bx, dx cmp bx, 3424 ; 01/10/2017 ;cmp bx, 856 jle short NotBig ;mov bx, 856 mov bx, 3424 ; 01/10/2017 NotBig: mov [edi+TrackInfo.Period], bx add bx, bx ;mov ax, [PitchTable+bx] mov ax, [PitchTable+ebx] ; 02/10/2017 mov [edi+TrackInfo.Pitch], ax retn efxtoneporta2: TonePort: xor dh, dh mov ax, [edi+TrackInfo.PortTo] ;mov bx, [edi+TrackInfo.Period] movzx ebx, word [edi+TrackInfo.Period] ; 02/10/2017 cmp bx, ax je short NoPort jg short PortToUp PortToDown: add bx, dx cmp bx, ax jle short SetPort FixPort: mov bx, ax jmp short SetPort PortToUp: sub bx, dx cmp bx, ax jl short FixPort SetPort: mov [edi+TrackInfo.Period], bx add bx, bx ;mov ax, [PitchTable+bx] mov ax, [PitchTable+ebx] ; 02/10/2017 mov [edi+TrackInfo.Pitch], ax NoPort: retn efxvibrato2: ; 01/10/2017 Vibrato: mov dh, dl ;and dl, 0Fh ;shr dh, 4 ;shl dh, 2 and dx, 0F00Fh shr dh, 2 ;add [edi+TrackInfo.VibPos], dh ;mov dh, [edi+TrackInfo.VibPos] ;mov bl, dh mov bl, [edi+TrackInfo.VibPos] ; 01/10/2017 add [edi+TrackInfo.VibPos], dh mov dh, bl ; 01/10/2017 shr bl, 2 ;and bx, 1Fh ;mov al, [SinTable+bx] and ebx, 1Fh mov al, [SinTable+ebx] mul dl ;rol ax, 1 ;xchg al, ah ;and ah, 1 shr ax, 7 test dh, dh jns short VibUp neg ax VibUp: add ax, [edi+TrackInfo.Period] mov bx, ax ;movzx ebx, ax cmp bx, 113 ;cmp bx, 113 cmp bx, 28 ; 01/10/2017 jge short NoLoVib ;mov bx, 113 mov bx, 28 ; 01/10/2017 jmp short NoHiVib ; 01/10/2017 NoLoVib: cmp bx, 3424 ; 01/10/2017 ;cmp bx, 856 jle short NoHiVib ;mov bx, 856 mov bx, 3424 ; 01/10/2017 NoHiVib: add bx, bx ;mov ax, [PitchTable+bx] mov ax, [PitchTable+ebx] ; 01/10/2017 mov [edi+TrackInfo.Pitch], ax retn efxtoneslide: PortSlide: call VolSlide mov dl, [edi+TrackInfo.PortParm] ; .tonespeed jmp TonePort ; efxtoneporta2 efxvibslide: VibSlide: call VolSlide mov dl, [edi+TrackInfo.VibParm] jmp short Vibrato ; efxvibrato2 efxvolslide: VolSlide: mov dh, dl and dl, 0Fh shr dh, 4 mov al, [edi+TrackInfo.Volume] sub al, dl jge short NoLoVol xor al, al NoLoVol: add al, dh cmp al, 64 jbe short NoHiVol mov al, 64 NoHiVol: mov [edi+TrackInfo.Volume], al retn efxtremolo2: ; 01/10/2017 (TMODPLAY.ASM) Tremolo: mov dh, dl and dx, 0F00Fh shr dh, 2 mov bl, [edi+TrackInfo.TremPos] add [edi+TrackInfo.TremPos], dh mov dh, bl shr bl, 2 ; 01/10/2017 - TRDOS 386 ;and bx, 1Fh and ebx, 1Fh ;mov al, [SinTable+bx] mov al, [SinTable+ebx] mul dl shr ax, 6 test dh, dh jge short Tremolo_1 ; efxtremolof2 neg ax efxtremolof2: Tremolo_1: mov ah, [edi+TrackInfo.Volume] add al, ah jge short Tremolo_2 ; efxtremolof3 xor al, al efxtremolof3: Tremolo_2: cmp al, 64 ; 40h jle short Tremolo_3 ; efxtremolof4 mov al, 64 ; 40h efxtremolof4: Tremolo_3: sub al, ah ; ****** mov [edi+TrackInfo.VolDiff], al retn ;-------------------------------------------------------------------------- ; readchannel - read the next note event from the pattern sheet ;-------------------------------------------------------------------------- ; ;-------------------------------------------------------------------------- ; GetTrack: Get the next Note from a pattern. ; In: ; ds:di - Track info Address. ; es:si - Pattern Note Address. ; Out: ; es:si - The Next Pattern Note address. ;-------------------------------------------------------------------------- ; esi = Pattern note address ; edi = Track info address readchannel: GetTrack: ; readchannel ; 01/10/2017 (TMODPLAY.ASM) lodsw xchg al, ah mov bl, ah and ah, 0Fh mov cx, ax lodsw xchg al, ah mov bh, ah and ah, 0Fh mov dx, ax mov [edi+TrackInfo.Effect], dx ; 01/10/2017 - TRDOS 386 ;and bl, 0F0h and ebx, 0FFF0h shr bh, 4 or bl, bh jz short SetPeriod SetSample: xor bh, bh ;and ebx, 0FFh dec bl add ebx, ebx mov ax, [ModInfo.SampVol+ebx] mov [edi+TrackInfo.Volume], al mov ax, [ModInfo.SampOfs+ebx] mov [edi+TrackInfo.Samples], ax mov ax, [ModInfo.SampSeg+ebx] mov [edi+TrackInfo.Samples+2], ax mov ax, [ModInfo.SampLen+ebx] mov [edi+TrackInfo.Len], ax mov ax, [ModInfo.SampRep+ebx] mov [edi+TrackInfo.Repeat], ax mov ax, [ModInfo.SampRepLen+ebx] mov [edi+TrackInfo.RepLen], ax SetPeriod: test cx, cx jz short SetEffect mov [edi+TrackInfo.PortTo], cx ; * cmp dh, 03h ;je short SetEffect je short efxtoneporta ; 01/10/2017 mov [edi+TrackInfo.Period], cx ;movzx ebx, cx mov bx, cx add bx, bx ;mov ax, [PitchTable+bx] mov ax, [PitchTable+ebx] ; 01/10/2017 mov [edi+TrackInfo.Pitch], ax mov dword [edi+TrackInfo.Position], 0 SetEffect: ;test dx, dx ;je short InitNone ;cmp dh, 00h ;je InitArpeggio ;cmp dh, 03h ;je short InitTonePort ;cmp dh, 04h ;je short InitVibrato ;cmp dh, 09h ;je short SampleOfs ;cmp dh, 0Bh ;je short PosJump ;cmp dh, 0Ch ;je short SetVolume ;cmp dh, 0Dh ;je short Break ;cmp dh, 0Fh ;je SetSpeed ;retn ; 01/10/2017 (TMODPLAY.ASM) ; dx = [di+TrackInfo.Effect] movzx eax, dh and al, 0Fh jmp dword [4*eax+efxtable] ; TRDOS 386 ! (32 bits) ;efxnull: ;InitNone: ; retn efxtoneporta: ; 01/10/2017 ; cx = period ;mov [edi+TrackInfo.PortTo], cx ; * InitTonePort: test dl, dl jnz short SetPortParm mov dl, [edi+TrackInfo.PortParm] ; .tonespeed SetPortParm: mov [edi+TrackInfo.PortParm], dl mov [edi+TrackInfo.Effect], dx retn efxvibrato: InitVibrato: mov al, [edi+TrackInfo.VibParm] mov ah, al ;and al, 0Fh ;and ah, 0F0h and ax, 0F00Fh test dl, 0Fh jne short OkDepth or dl, al OkDepth: test dl, 0F0h jnz short OkRate or dl, ah OkRate: mov [edi+TrackInfo.VibParm], dl mov [edi+TrackInfo.Effect], dx test cx, cx jz short OkPos mov byte [edi+TrackInfo.VibPos], 0 OkPos: retn efxsampoffset: ; 01/10/2017 ; ******* SampleOfs: ; test dl, dl ; jnz short SetSampleOfs ; mov dl, [edi+TrackInfo.OldSampOfs] ;SetSampleOfs: ; mov [edi+TrackInfo.OldSampOfs], dl mov dh, dl and edx, 0FF00h ; 05/03/2017 mov [edi+TrackInfo.Position], edx retn efxpattjump: PosJump: mov [OrderPos], dl mov byte [Row], 64 retn efxsetvolume: SetVolume: cmp dl, 64 jbe short OkVol mov dl, 64 OkVol: ; 01/10/2017 (TrackInfo.VolDiff, tremolo effect) xor dh, dh ; reset TrackInfo.VolDiff ; Not necessary !? ;mov [edi+TrackInfo.Volume], dl mov [edi+TrackInfo.Volume], dx retn efxbreak: Break: mov dh, dl and dl, 0Fh shr dh, 4 add dh, dh add dl, dh shl dh, 2 add dl, dh mov [BreakRow], dl mov byte [Row], 64 retn efxsetspeed: SetSpeed: test dl,dl je Skip cmp dl,31 ja short SetBpm SetTempo: mov [Tempo], dl mov [TempoWait], dl retn SetBpm: mov [Bpm], dl mov al, 103 mul dl mov bl, ah xor bh, bh mov ax, [MixSpeed] xor dx, dx div bx mov [BpmSamples], ax Skip: retn efxarpeggio: ; 01/10/2017 test dl, dl ;je efxnull je short Skip InitArpeggio: mov dh, dl and dl, 0Fh shr dh, 4 ; 01/10/2017 ;mov cx, 36 mov cx, 84 ; 84 notes/periods xor ebx, ebx mov ax, [edi+TrackInfo.Period] gt_ScanPeriod: ;cmp ax, [PeriodTable+bx] cmp ax, [PeriodTable+ebx] jae short SetArp add bx, 2 loop gt_ScanPeriod SetArp: add dx, dx add dh, bl add dl, bl ; 01/10/2017 ;mov bx, [PeriodTable+bx] mov bx, [PeriodTable+ebx] ;add bx, bx add ebx, ebx ;mov ax, [PitchTable+bx] mov ax, [PitchTable+ebx] mov [edi+TrackInfo.Arp], ax mov bl, dh xor bh, bh mov bx, [PeriodTable+ebx] ;add bx, bx add ebx, ebx ;mov ax, [PitchTable+bx] mov ax, [PitchTable+ebx] mov [edi+TrackInfo.Arp+2], ax mov bl, dl xor bh, bh mov bx, [PeriodTable+ebx] ;add bx, bx add ebx, ebx ;mov ax, [PitchTable+bx] mov ax, [PitchTable+ebx] mov [edi+TrackInfo.Arp+4], ax mov word [edi+TrackInfo.ArpIndex], 0 retn efxtremolo: ; 01/10/2017 (TMODPLAY.ASM) InitTremolo: mov al, [edi+TrackInfo.TremParm] mov ah, al and ax, 0F00Fh test dl, 0Fh jnz short InitTremolo_1 ; efxtremolof0 or dl, al efxtremolof0: InitTremolo_1: test dl, 0F0h jnz short InitTremolo_2 ; efxtremolof1 or dl, ah efxtremolof1: InitTremolo_2: mov [edi+TrackInfo.TremParm], dl mov [edi+TrackInfo.Effect], dx retn ;-------------------------------------------------------------------------- ; pollmodule - polls the module player ;-------------------------------------------------------------------------- ;-------------------------------------------------------------------------- ; UpdateTracks: Main code to process the next tick to be played. ;-------------------------------------------------------------------------- pollmodule: UpdateTracks: ; polmodule ; 01/10/2017 (TMODPLAY.ASM) dec byte [TempoWait] jz short GetTracks ;mov ecx, NumTracks movzx ecx, word [numtracks] ; 06/10/2017 mov edi, Tracks BeatTracks: call BeatTrack add edi, TrackInfo.size loop BeatTracks retn GetTracks: mov al, [Tempo] mov [TempoWait], al mov esi, [Note] cmp byte [Row], 64 jb short NoPattWrap mov esi, [ModInfo.Patterns] mov bl, [OrderPos] cmp bl, [ModInfo.OrderLen] jb short NoOrderWrap mov bl, [ModInfo.ReStart] mov [OrderPos], bl cmp bl, [ModInfo.OrderLen] jae short NoUpdate NoOrderWrap: ;xor bh, bh and ebx, 0FFh mov bl, [ModInfo.Order+ebx] ; 05/10/2017 ;shl ebx, 10 ; *1024 mov cl, [pattern_shift] ; 10 or 11 shl ebx, cl ; *1024 or *2048 ; add esi, ebx mov bl, [BreakRow] mov [Row], bl ;xor bh, bh and ebx, 0FFh mov [BreakRow], bh ; 0 shl bx, 4 add esi, ebx mov [Note], esi inc byte [OrderPos] NoPattWrap: inc byte [Row] ;cld ;mov ecx, NumTracks movzx ecx, word [numtracks] ; 06/10/2017 mov edi, Tracks GetTracks_next: push ecx call GetTrack ; readchannel pop ecx add edi, TrackInfo.size loop GetTracks_next mov [Note], esi NoUpdate: retn ;-------------------------------------------------------------------------- ; MixTrack: Mixes one track into a CLEAN buffer. ; In: ; ds:si - Track Info Address. ; ds:di - Buffer Address. ; cx - Buffer Size. ;-------------------------------------------------------------------------- ; esi = Track info address ; edi = Buffer address ; ecx = Buffer size MixTrack: cmp word [esi+TrackInfo.RepLen], 2 ja short MixLooped MixNonLooped: mov edx, [esi+TrackInfo.Samples] mov ebx, [esi+TrackInfo.Position] movzx ebp, word [esi+TrackInfo.Len] push edx push esi add ebx, edx add ebp, edx mov dx, [esi+TrackInfo.Pitch] ; 01/10/2017 ;mov al, [esi+TrackInfo.Volume] mov ax, [esi+TrackInfo.Volume] ; ah = [esi+TrackInfo.VolDiff] add al, ah ; ****** mov byte [esi+TrackInfo.VolDiff], 0 mov ah, [esi+TrackInfo.Error] mov esi, ebx xor ebx, ebx ; 01/10/2017 ; * mov bh, al mov al, dl mov dl, dh ;xor dh, dh and edx, 0FFh nlMixSamp: cmp esi, ebp jae short nlMixBye mov bl, [esi] ;mov bl, [VolTable+bx] mov bl, [VolTable+ebx] ; 01/10/2017 ; * ; 17/10/2017 add [edi], bl ; 18/10/2017 add ah, al adc esi, edx add edi, [numtracks] loop nlMixSamp nlMixBye: mov ebx, esi pop esi pop edx sub ebx, edx mov [esi+TrackInfo.Position], ebx mov [esi+TrackInfo.Error], ah retn MixLooped: mov edx, [esi+TrackInfo.Samples] mov ebx, [esi+TrackInfo.Position] movzx ebp, word [esi+TrackInfo.RepLen] mov [BufRep], ebp ;add ebp, [esi+TrackInfo.Repeat] ; BUG ! add bp, [esi+TrackInfo.Repeat] ; 07/10/2017 (BUGfix!) push edx push esi add ebx, edx add ebp, edx mov dx, [esi+TrackInfo.Pitch] ; 01/10/2017 ;mov al, [esi+TrackInfo.Volume] mov ax, [esi+TrackInfo.Volume] ; ah = [esi+TrackInfo.VolDiff] add al, ah ; ****** mov byte [esi+TrackInfo.VolDiff], 0 mov ah, [esi+TrackInfo.Error] ;mov si, bx mov esi, ebx ; 04/09/2017 xor ebx, ebx ; 01/10/2017 ; * mov bh, al mov al, dl mov dl, dh ;xor dh, dh and edx, 0FFh lpMixSamp: cmp esi, ebp jb short lpMixNow sub esi, [BufRep] lpMixNow: mov bl, [esi] ;mov bl, [VolTable+bx] mov bl, [VolTable+ebx] ; 01/10/2017 ; * ; 17/10/2017 add [edi], bl ; 18/10/2017 add ah, al adc esi, edx add edi, [numtracks] loop lpMixSamp lpMixBye: ; mov ebx, esi ; pop esi ; pop edx ; sub ebx, edx ; mov [esi+TrackInfo.Position], ebx ; mov [esi+TrackInfo.Error], ah ; retn jmp short nlMixBye ;-------------------------------------------------------------------------- ; mixpoll - updates the output buffer ;-------------------------------------------------------------------------- ; ;-------------------------------------------------------------------------- ; GetSamples: Returns the next chunk of samples to be played. ; In: ; Buffer - Buffer Address. ; Count - Buffer Size. ;-------------------------------------------------------------------------- mixpoll: GetSamples: ; mixpoll ; 01/10/2017 (TMODPLAY.ASM) ; 03/08/2020 mov edi, Audio_Buffer mov ebx, BUFFERSIZE/4 ; 16 bits, stereo sound buffer ; edi = buffer address ; ebx = count pushad ;cld ; 03/08/2020 ; clear audio buffer mov esi, edi mov ecx, BUFFERSIZE/16 mov eax, 80808080h rep stosd mov edi, esi NextChunk: cmp word [BufLen], 0 jne short CopyChunk push ebx push edi MixChunk: mov edi, MixBuffer ; 17/10/2017 movzx ecx, word [BpmSamples] ;mov cx, [BpmSamples] mov [BufPtr], edi mov [BufLen], cx cmp byte [numtracks], 4 jna short ch_silence shl cx, 1 ch_silence: mov eax, 80808080h rep stosd ;mov cx, NumTracks ;mov cl, NumTracks ; 01/10/2017 mov cl, [numtracks] ; 06/10/2017 mov esi, Tracks - TrackInfo.size GetSamples_next: push ecx add esi, TrackInfo.size mov cx, [BufLen] mov edi, [BufPtr] call MixTrack pop ecx inc dword [BufPtr] ; 18/10/2017 loop GetSamples_next ; 18/10/2017 mov ebx, [numtracks] sub dword [BufPtr], ebx call UpdateTracks pop edi pop ebx CopyChunk: ;mov cx, [BufLen] movzx ecx, word [BufLen] cmp ecx, ebx ;cmp cx, bx jbe short MoveChunk ;mov cx, bx mov ecx, ebx MoveChunk: mov esi, [BufPtr] add [BufPtr], ecx sub [BufLen], cx sub ebx, ecx ; 17/10/2017 ; STEREO MIXING ;rep movsb ; 18/10/2017 cmp byte [numtracks], 4 ;jna short _4_channels_mix jna short _4_channels_mix _8_channels_mix: ; 18/10/2017 lodsd mov edx, eax ; ch1 (al), ch2 (ah) shr edx, 16 ; ch3 (dl), ch4 (dh) add dh, al ; ch1 + ch4 add dl, ah ; ch2 + ch3 lodsd add dh, al ; ch1 + ch4 + ch5 add dl, ah ; ch2 + ch3 + ch6 shr eax, 16 ; ch7 (al), ch8 (ah) ; 19/10/2017 add dh, ah ; ch1 + ch4 + ch5 + ch8 add dl, al ; ch2 + ch3 + ch6 + ch7 ; L = ch1 + ch4 + ch5 + ch8 ; R = ch2 + ch3 + ch6 + ch7 add dx, 8080h ; 19/10/2017 mov ah, dh sub ah, 80h xor al, al stosw ; Left Channel mov ah, dl sub ah, 80h stosw ; Right Channel loop _8_channels_mix jmp short channel_mix_ok _4_channels_mix: ; 18/10/2017 lodsd mov edx, eax ; ch1 (al), ch2 (ah) ; 19/10/2017 shr eax, 16 ; ch3 (al), ch4 (ah) add dl, ah ; ch1 + ch4 add dh, al ; ch2 + ch3 ; L = ch1 + ch4 ; R = ch2 + ch3 ; 19/10/2017 add dx, 8080h ; 19/10/2017 mov ah, dl sub ah, 80h xor al, al stosw ; Left Channel mov ah, dh sub ah, 80h stosw ; Right Channel loop _4_channels_mix channel_mix_ok: test ebx, ebx ;jnz short NextChunk jnz NextChunk ; 17/10/2017 ; 20/10/2017 ; 19/10/2017 ; Pan Control mov cl, [pan_shift] or cl, cl jz short c_smpl_2 ; 20/10/2017 mov ebx, BUFFERSIZE/4 ; 8192 mov edi, Audio_Buffer mov ch, 8 shl ch, cl c_smpl_1: mov edx, [edi] mov ax, dx cmp ah, 80h jb short _cs1 add ah, ch jnc short _cs2 mov ah, 255 jmp short _cs2 _cs1: sub ah, ch jnc short _cs2 mov ah, 0 _cs2: ror edx, 16 ; dx = [edi+2] add ah, dh xchg dx, ax ; xchg [edi+2], ax cmp ah, 80h jb short _cs3 add ah, ch jnc short _cs4 mov ah, 255 jmp short _cs4 _cs3: sub ah, ch jnc short _cs4 mov ah, 0 _cs4: ror edx, 16 ; dx = [edi] add dh, ah mov [edi], edx _cs5: ; 20/10/2017 add edi, 4 dec ebx jnz short c_smpl_1 c_smpl_2: popad retn ;-------------------------------------------------------------------------- ; StartPlaying: Initializes the Sound System. ; In: ; Module Information Resources. ;-------------------------------------------------------------------------- StartPlaying: pushad SetModParms: mov byte [OrderPos], 0 mov byte [Tempo], DefTempo mov byte [TempoWait], DefTempo mov byte [Bpm], DefBpm mov byte [Row], 64 mov byte [BreakRow], 0 mov ax, [MixSpeed] xor edx, edx mov bx, 24*DefBpm/60 div bx mov [BpmSamples], ax ClearTracks: mov edi, Tracks ; 07/10/2017 ;mov ecx, NumTracks*TrackInfo.size mov eax, TrackInfo.size movzx ecx, word [numtracks] mul ecx mov ecx, eax xor eax, eax ;cld rep stosb mov [BufPtr], eax mov [BufLen], ax MakePitch: mov ax, MidCRate mov bx, 428 mul bx div word [MixSpeed] xor dh, dh mov dl, ah mov ah, al xor al, al mov cx, 857 ; 23/08/2020 ;mov cx, 3425 ; 01/10/2017 (TMODPLAY.ASM) xor ebx, ebx mov edi, PitchTable PitchLoop: push eax push edx cmp dx, bx jae short NoDiv div bx NoDiv: stosw pop edx pop eax ;inc bx inc ebx loop PitchLoop MakeVolume: mov cx, 16640 mov ebx, ecx VolLoop: dec bx mov al, bl imul bh ;mov [VolTable+bx], ah mov [VolTable+ebx], ah loop VolLoop popad retn ;-------------------------------------------------------------------------- ; StopPlaying: ShutDown the Sound System. ;-------------------------------------------------------------------------- StopPlaying: ; 19/06/2017 ; Stop Playing sys _audio, 0700h ; Cancel callback service (for user) sys _audio, 0900h ; Deallocate Audio Buffer (for user) sys _audio, 0A00h ; Disable Audio Device sys _audio, 0C00h retn ;============================================================================= ; ;============================================================================= ;dword2str: ; ; 13/11/2016 - Erdogan Tan ; ; eax = dword value ; ; ; call dwordtohex ; mov [dword_str], edx ; mov [dword_str+4], eax ; mov si, dword_str ; retn ; 05/03/2017 (TRDOS 386) ; trdos386.s (unix386.s) - 10/05/2015 ; Convert binary number to hexadecimal string ;bytetohex: ; ; INPUT -> ; ; AL = byte (binary number) ; ; OUTPUT -> ; ; AX = hexadecimal string ; ; ; push ebx ; movzx ebx, al ; shr bl, 4 ; mov bl, [ebx+hex_chars] ; xchg bl, al ; and bl, 0Fh ; mov ah, [ebx+hex_chars] ; pop ebx ; retn ;wordtohex: ; ; INPUT -> ; ; AX = word (binary number) ; ; OUTPUT -> ; ; EAX = hexadecimal string ; ; ; push ebx ; xor ebx, ebx ; xchg ah, al ; push eax ; mov bl, ah ; shr bl, 4 ; mov al, [ebx+hex_chars] ; mov bl, ah ; and bl, 0Fh ; mov ah, [ebx+hex_chars] ; shl eax, 16 ; pop eax ; pop ebx ; jmp short bytetohex ;dwordtohex: ; ; INPUT -> ; ; EAX = dword (binary number) ; ; OUTPUT -> ; ; EDX:EAX = hexadecimal string ; ; ; push eax ; shr eax, 16 ; call wordtohex ; mov edx, eax ; pop eax ; call wordtohex ; retn ; 19/06/2017 ; 05/03/2017 (TRDOS 386) ; 13/11/2016 - Erdogan Tan write_audio_dev_info: ; BUS/DEV/FN ; 00000000BBBBBBBBDDDDDFFF00000000 ; DEV/VENDOR ; DDDDDDDDDDDDDDDDVVVVVVVVVVVVVVVV mov esi, [dev_vendor] mov ax, si movzx ebx, 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 esi, 16 mov ax, si 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 esi, [bus_dev_fn] shr esi, 8 mov ax, si 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_io_base] mov bl, al mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgIOBaseAddr+3], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgIOBaseAddr+2], al mov bl, ah mov dl, bl and bl, 0Fh mov al, [ebx+hex_chars] mov [msgIOBaseAddr+1], al mov bl, dl shr bl, 4 mov al, [ebx+hex_chars] mov [msgIOBaseAddr], al ; 24/11/2016 xor ah, ah mov al, [ac97_int_ln_reg] mov cl, 10 div cl add [msgIRQ], ax and al, al jnz short _w_ac97imsg_ ; 19/06/2017 mov al, [msgIRQ+1] mov ah, ' ' mov [msgIRQ], ax _w_ac97imsg_: ; EBX = Message address ; ECX = Max. message length (or stop on ZERO character) ; (1 to 255) ; DL = Message color (07h = light gray, 0Fh = white) sys _msg, msgAC97Info, 255, 07h retn ;============================================================================= ; gfx.asm - draw scopes in VGA 640x480x16 mode ;============================================================================= ; EX1A.ASM (21/6/1994, Carlos Hasan; MSDOS, 'RUNME.EXE', 'TNYPL211') ;----------------------------------------------------------------------------- ; setgraphmode - setup the VGA 640x480x16 graphics mode ;----------------------------------------------------------------------------- ; 22/10/2017 setgraphmode: ;pushad mov ax,0012h ;int 10h int 31h mov dx,3C0h xor al,al setgraphmodel0: ;out dx,al mov ah, 1 ; outb int 34h ;out dx, al ;mov ah, 1 int 34h inc al cmp al, 10h jb short setgraphmodel0 mov al, 20h ;out dx, al ;mov ah, 1 int 34h ;popad retn ;----------------------------------------------------------------------------- ; settextmode - restore the VGA 80x25x16 text mode ;----------------------------------------------------------------------------- ; 22/10/2017 settextmode: ;pushad mov ax, 0003h ;int 10h int 31h ;popad retn ;----------------------------------------------------------------------------- ; drawscopes - draw the track voices sample scopes ; In: ; ESI = (current) sample buffer ;----------------------------------------------------------------------------- ; 29/10/2017 ; 28/10/2017 ; (ESI = Current DMA buffer offset) ; 27/10/2017 ; 26/10/2017 ; 23/10/2017 drawscopes: ;pushad ;mov esi, g_buff ;mov esi, edx xor ecx, ecx xor edx, edx xor edi, edi drawscope0: lodsw xor ah, 80h movzx ebx, ah ; Left Channel shl bx, 1 mov ax, [RowOfs+ebx] mov [NewScope_L+edi], ax xor bh, bh lodsw xor ah, 80h mov bl, ah ; Right Channel shl bx, 1 mov ax, [RowOfs+ebx] mov [NewScope_R+edi], ax add di, 2 inc cl jnz short drawscope0 mov dx, 3C4h ;mov ax, 0802h ;out dx, ax mov bx, 0802h mov ah, 3 ; outw int 34h mov dx, 3CEh mov al, 08h ;out dx, al mov ah, 1 ; outb int 34h inc dx ; 26/10/2017 xor esi, esi ;xor edi, edi mov ebx, 0A0645h drawscopel4: mov al, 80h drawscopel2: push eax ; * push edx ; ** ;out dx, al mov ah, 1 ; outb int 34h mov ah, 0FFh ;mov ecx, 32 mov cl, 32 sub al, al drawscopel3: ; 23/10/2017 mov dx, [OldScope_L+esi] cmp dx, [NewScope_L+esi] je short drawscopef3 mov [edx+ebx], al ; L mov dx, [NewScope_L+esi] mov [edx+ebx], ah ; L mov [OldScope_L+esi], dx drawscopef3: ; 27/10/2017 mov dx, [OldScope_R+esi] cmp dx, [NewScope_R+esi] je short drawscopef4 mov [edx+ebx+38], al ; R mov dx, [NewScope_R+esi] mov [edx+ebx+38], ah ; R mov [OldScope_R+esi], dx drawscopef4: add esi, 2*8 inc ebx loop drawscopel3 pop edx ; ** pop eax ; * sub esi, 2*256-2 sub ebx, 32 shr al, 1 jnz short drawscopel2 ;popad retn ;============================================================================= ; Load IFF/ILBM files for VGA 640x480x16 graphics mode ;============================================================================= ; EX1B.ASM (21/6/1994, Carlos Hasan; MSDOS, 'RUNME.EXE', 'TNYPL211') ; 21/10/2017 (TRDOS 386, 'tmodplay.s', Erdogan Tan, NASM syntax) ;----------------------------------------------------------------------------- ; EQUATES AND STRUCTURES ;----------------------------------------------------------------------------- ID_FORM equ 4D524F46h ; IFF/ILBM chunk IDs ID_ILBM equ 4D424C49h ID_BMHD equ 44484D42h ID_CMAP equ 50414D43h ID_BODY equ 59444F42h struc Form ; IFF/ILBM header file format .ID: resd 1 .Length: resd 1 .Type: resd 1 .size: endstruc struc Chunk ; IFF/ILBM header chunk format .ID: resd 1 .Length: resd 1 .size: endstruc struc BMHD ; IFF/ILBM BMHD chunk format .Width: resw 1 .Height: resw 1 .PosX: resw 1 .PosY: resw 1 .Planes: resb 1 .Masking: resb 1 .Compression: resb 1 .Pad: resb 1 .Transparent: resw 1 .AspectX resb 1 .AspectY: resb 1 .PageWidth: resw 1 .PageHeight: resw 1 .size: endstruc struc CMAP ; IFF/ILBM CMAP chunk format .Colors: resb 768 .size: endstruc ;LOGO_ADDRESS equ 100000h ; virtual address at the end of the 1st 1MB ;------------------------------------------------------------------------------ ; bswap - macro to reverse the byte order of a 32-bit register, converting ; a value in little/big endian form to big/little endian form. ;------------------------------------------------------------------------------ %macro bswap 1 xchg al, ah rol eax, 16 xchg al, ah %endmacro ;------------------------------------------------------------------------------ ; putlbm - draw the IFF/ILBM picture on VGA 640x480x16 graphics mode ; In: ; ESI = IFF/ILBM image file address ;------------------------------------------------------------------------------ putlbm: pushad ; check if this is a valid IFF/ILBM Deluxe Paint file cmp dword [esi+Form.ID], ID_FORM jne short putlbmd0 cmp dword [esi+Form.Type], ID_ILBM jne short putlbmd0 ; get the IFF/ILBM file length in bytes mov eax, [esi+Form.Length] bswap eax mov ecx, eax ; decrease the file length and update the file pointer sub ecx, 4 add esi, Form.size ; IFF/ILBM main parser body loop putlbml0: test ecx, ecx jle short putlbmd1 ; get the next chunk ID and length in bytes mov ebx, [esi+Chunk.ID] mov eax, [esi+Chunk.Length] bswap eax xchg ebx, eax add esi, Chunk.size ; word align the chunk length and decrease the file length counter inc ebx and bl, 0FEh ; ~1 sub ecx, Chunk.size sub ecx, ebx ; check for the BMHD/CMAP/BODY chunk headers cmp eax, ID_BMHD je short putlbmf0 cmp eax, ID_CMAP je short putlbmf1 cmp eax, ID_BODY je short putlbmf2 ; advance to the next IFF/ILBM chunk structure putlbmc0: add esi, ebx jmp short putlbml0 putlbmd0: stc popad retn ; process the BMHD bitmap header chunk putlbmf0: cmp byte [esi+BMHD.Planes], 4 jne short putlbmd0 cmp byte [esi+BMHD.Compression], 1 jne short putlbmd0 cmp byte [esi+BMHD.Pad], 0 jne short putlbmd0 movzx eax, word [esi+BMHD.Width] xchg al, ah add eax, 7 shr eax, 3 mov [picture.width], eax movzx eax, word [esi+BMHD.Height] xchg al, ah mov [picture.height], eax jmp short putlbmc0 putlbmd1: clc popad retn ; process the CMAP colormap chunk putlbmf1: mov dx, 3C8h xor al, al ;out dx, al mov ah, 1 ; outb int 34h inc dx putlbml1: mov al, [esi] shr al, 2 ;out dx, al ;mov ah, 1 ; outb int 34h ; IOCTL interrupt (IN/OUT) inc esi dec ebx jg short putlbml1 jmp putlbml0 ; process the BODY bitmap body chunk putlbmf2: pushad mov edi, 0A0000h ;cld mov dx, 3CEh ;mov ax, 0FF08h ;out dx, ax mov bx, 0FF08h mov ah, 3 ; outw int 34h ; IOCTL interrupt (IN/OUT) mov dx, 3C4h mov al, 02h ;out dx, al mov ah, 1 ; outb int 34h ; IOCTL interrupt (IN/OUT) inc dx mov ecx, [picture.height] putlbml2: push ecx mov al, 11h putlbml3: push eax push edi ;out dx, al mov ah, 1 ; outb int 34h ; IOCTL interrupt (IN/OUT) mov ebx, [picture.width] putlbml4: lodsb test al, al jl short putlbmf3 movzx ecx, al inc ecx sub ebx, ecx rep movsb jmp short putlbmc4 putlbmf3: neg al movzx ecx, al inc ecx sub ebx, ecx lodsb rep stosb putlbmc4: test ebx, ebx jg short putlbml4 pop edi pop eax add al, al jnc short putlbml3 add edi, 80 pop ecx loop putlbml2 popad jmp putlbmc0 ; EX1.C (Carlos Hasan, 21/06/1994) ;------------------------------------------------------------------------------ ; loadlbm - load the IFF/ILBM image file ("LOGO.LBM") at memory ; ESI = IFF/ILBM image file address ;------------------------------------------------------------------------------ ;if ((Logo = loadlbm("LOGO.LBM")) == NULL) { ; printf("Error loading the IFF/ILBM logo picture\n"); ; MODStopModule(); ; MODFreeModule(Song); ; return; ; } ; setgraphmode(); ; putlbm(Logo); ; while (!kbhit()) ; drawscopes(Song->NumTracks); ; settextmode(); ; free(Logo); ; MODStopModule(); ; MODFreeModule(Song); ;loadlbm: ; ; ebx = ASCIIZ file name address ; ; ecx = open mode (0 = open for read) ; sys _open, LOGO_FILE_NAME, 0 ; open for reading ; jc short loadlbm_retn ; ; mov [LBM_FileHandle], eax ; ; ; get file size by moving file pointer to the end of file ; ; ebx = file handle/number ; ; ecx : offset = 0 ; ; edx : switch = 2 (move fp to end of file + offset) ; sys _seek, eax, 0, 2 ; jc short loadlbm_cf ; ; mov [LBM_FileSize], eax ; ; ; move file pointer to the beginning of the file ; ; ecx = 0 ; ; edx = 0 ; ;xor ecx, ecx ; xor dl, dl ; ; ebx = [LBM_FileHandle] ; sys _seek ; ;jc short loadlbm_cf ; ; ; ebx = File handle ; ; ecx = Buffer address ; ; edx = Byte count ; ;sys _read, [LBM_FileHandle], LOGO_ADDRESS, [LBM_FileSize] ; mov ecx, LOGO_ADDRESS ; mov edx, [LBM_FileSize] ; sys _read ; jc short loadlbm_cf ; ; cmp eax, edx ; read count = file size ? ; ;jb short loadlbm_cf ;loadlbm_cf: ; pushf ; sys _close, [LBM_FileHandle] ; popf ;loadlbm_retn: ; retn ; ;LOGO_FILE_NAME: ; db "LOGO.LBM", 0 LOGO_ERROR_MSG: db "Error loading the IFF/ILBM logo picture !", 0Dh, 0Ah, 0 align 2 ; 22/10/2017 LOGO_ADDRESS: ;incbin "LOGO.LBM" ; 27/10/2017 incbin "TINYPLAY.LBM" ;============================================================================= ; preinitialized data ;============================================================================= ;============================================================================= ; Protracker effects stuff ;============================================================================= ;----------------------------------------------------------------------------- ; Effect jump tables ;----------------------------------------------------------------------------- align 4 efxtable: dd efxarpeggio ; 0 - arpeggio dd efxnull ; 1 - porta up dd efxnull ; 2 - porta down dd efxtoneporta ; 3 - tone porta dd efxvibrato ; 4 - vibrato dd efxnull ; 5 - tone+slide dd efxnull ; 6 - vibrato+slide dd efxtremolo ; 7 - tremolo dd efxnull ; 8 - unused dd efxsampoffset ; 9 - sample offset dd efxnull ; A - volume slide dd efxpattjump ; B - pattern jump dd efxsetvolume ; C - set volume dd efxbreak ; D - break pattern dd efxnull ; E - extra effects dd efxsetspeed ; F - set speed efxtable2: dd efxarpeggio2 ; 0 - arpeggio dd efxportaup ; 1 - porta up dd efxportadown ; 2 - porta down dd efxtoneporta2 ; 3 - tone porta dd efxvibrato2 ; 4 - vibrato dd efxtoneslide ; 5 - tone+slide dd efxvibslide ; 6 - vibrato+slide dd efxtremolo2 ; 7 - tremolo dd efxnull ; 8 - unused dd efxnull ; 9 - sample offset dd efxvolslide ; A - volume slide dd efxnull ; B - pattern jump dd efxnull ; C - set volume dd efxnull ; D - break pattern dd efxnull ; E - extra effects dd efxnull ; F - set speed ;----------------------------------------------------------------------------- ; Amiga period table ;----------------------------------------------------------------------------- ;PeriodTable0: ; dw 0 PeriodTable: dw 3424,3232,3048,2880,2712,2560,2416,2280,2152,2032,1920,1812 dw 1712,1616,1524,1440,1356,1280,1208,1140,1076,1016,960,906 dw 856,808,762,720,678,640,604,570,538,508,480,453 dw 428,404,381,360,339,320,302,285,269,254,240,226 dw 214,202,190,180,170,160,151,143,135,127,120,113 dw 107,101,95,90,85,80,75,71,67,63,60,56 dw 53,50,47,45,42,40,37,35,33,31,30,28 ;----------------------------------------------------------------------------- ; Sinus wave table ;----------------------------------------------------------------------------- SinTable: db 0,25,50,74,98,120,142,162,180,197,212,225 db 236,244,250,254,255,254,250,244,236,225 db 212,197,180,162,142,120,98,74,50,25 ;============================================================================= ; PLAY.ASM - DATA ;============================================================================= db 0 msg_usage: db 'Tiny MOD Player for TRDOS 386 by Erdogan Tan. ' db 'August 2020.',10,13 db 'usage: tmodplay filename.mod', 10,13,0 db '29/10/2017',10,13,0 db '24/08/2020',10,13,0 Credits: db 'Tiny MOD Player v0.1b by Carlos Hasan. July 1993.' db 10,13,0 ErrorMesg: db 'Error loading Module file.',10,13,0 ;MsgNotFound: db 'Sound Blaster not found or IRQ error.',10,13,0 ;MsgFound: db 'Sound Blaster found at Address 2' ;PortText: db 'x0h, IRQ ' ;IrqText: db 'x.',10,13,0 trdos386_err_msg: db 'TRDOS 386 System call error !', 10, 13,0 ; 07/10/2017 pattern_shift: db 10 ;numtracks: dw 4 ; 18/10/2017 numtracks: dd 4 ;============================================================================= ; PLAYER.ASM - DATA ;============================================================================= ;stmo: db 1 ; stereo (2) or mono (1) ;bps: db 8 ; bits per sample (8 or 16) ;19/10/2017 stmo: db 2 ; stereo (2) or mono (1) bps: db 16 ; bits per sample (8 or 16) Sample_Rate: MixSpeed: dw 22050 ; Hz ; 13/11/2016 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 "I/O Base Address: " msgIOBaseAddr: db "0000h IRQ: " msgIRQ: dw 3030h db 0Dh, 0Ah, 0 ;msgSampleRate: db "Sample Rate: " ;msgHertz: db "00000 Hz ", 0 ;msg8Bits: db "8 bits ", 0 ;msgMono: db "Mono", 0Dh, 0Ah, 0Dh, 0Ah, 0 ;msg16Bits: db "16 bits ", 0 ;msgStereo: db "Stereo", 0Dh, 0Ah, 0Dh, 0Ah, 0 ; ;; 13/11/2016 - Erdogan Tan (Ref: KolibriOS, codec.inc) ;codec_id: dd 0 ;codec_chip_id: dd 0 ;codec_vendor_ids: dw 0 ;codec_chip_ids: dw 0 ;dword_str: dd 30303030h, 30303030h ; db 'h', 0Dh, 0Ah, 0 ;============================================================================= ; uninitialized data ;============================================================================= bss_start: ABSOLUTE bss_start alignb 4 ;------------------------------------------------------------------------------ ; IFF/ILBM DATA ;------------------------------------------------------------------------------ LBM_FileHandle: resd 1 LBM_FileSize: resd 1 ; picture.width: resd 1 ; current picture width and height picture.height: resd 1 ;------------------------------------------------------------------------------ dev_vendor: resd 1 bus_dev_fn: resd 1 stats_cmd: resd 1 ac97_io_base: resw 1 ac97_int_ln_reg: resb 1 srb: resb 1 ; MODLOAD.ASM FileHandle: resd 1 Header: resb ModHeader.size ; MODPLAY.ASM ;MixSpeed: resw 1 ModInfo: ModInfo.OrderLen: resb 1 ModInfo.ReStart: resb 1 ModInfo.Order: resb 128 ModInfo.Patterns: resd 1 ModInfo.SampOfs: resw 31 ModInfo.SampSeg: resw 31 ModInfo.SampLen: resw 31 ModInfo.SampRep: resw 31 ModInfo.SampRepLen: resw 31 ModInfo.SampVol: resw 31 ; MODPLAY.ASM PitchTable: resw 857 ; 23/08/2020 ;resw 3425 ; 01/10/2017 (TMODPLAY.ASM) resw 3 ; 23/08/2020 VolTable: resb 16640 MixBuffer resb 8172 ; MixBufSize ; 7680 (960*8) ; 18/10/2017 ; MODPLAY.ASM OrderPos: resb 1 Tempo: resb 1 TempoWait: resb 1 Bpm: resb 1 Row: resb 1 BreakRow: resb 1 BpmSamples: resw 1 BufPtr: resd 1 BufLen: resw 1 BufRep: resd 1 Note: resd 1 ;Tracks: resb TrackInfo.size*NumTracks ; 07/10/2017 Tracks: resb TrackInfo.size*8 mod_file_name: resb 80 ; 24/08/2020 counter: resb 1 ; 23/08/2020 alignb 16 ; PLAY.ASM ;Scope: resw 320 RowOfs: resw 256 ; 23/10/2017 NewScope_L: resw 256 NewScope_R: resw 256 OldScope_L: resw 256 OldScope_R: resw 256 ; 20/10/2017 (modplay7.s, SB16) ; 19/10/2017 (modplay6.s, AC97) pan_shift: resb 1 volume_level: resb 1 alignb 4096 Audio_Buffer: resb BUFFERSIZE ; DMA Buffer Size / 2 (32768) ;temp_buffer: ; ;resb BUFFERSIZE / 4 ; 8192 ; resb BUFFERSIZE / 2 ; 17/10/2017 alignb 65536 DMA_Buffer: resb 2*BUFFERSIZE ; 65536 ; 09/10/2017 file_buffer: resb 65536*6 EOF: