; **************************************************************************** ; tinyplay.s (for TRDOS 386) ; ---------------------------------------------------------------------------- ; TINYPLAY.PRG ! MOD PLAYER & VGA DEMO program ! by Erdogan TAN ; ; 03/03/2017 ; ; [ Last Modification: 07/10/2017 ] ; ; Derived from source code of 'PLAY.EXE' (TINYPLAY) by Carlos Hasan (1993) ; PLAY.EXE: PLAY.ASM, MODLOAD.ASM, MODPLAY.ASM, SB.ASM ; ; Assembler: NASM 2.11 ; ---------------------------------------------------------------------------- ; nasm tinyplay.s -l tinyplay.txt -o TINYPLAY.PRG ; **************************************************************************** ; TINYPLAY.ASM by Erdogan Tan (for MSDOS) (13/02/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) , , ; ---------------------------------------------------------------------------- ; Tiny MOD Player v0.1b by Carlos Hasan. ; July 14th, 1993. ;============================================================================= ; PLAY.ASM ;============================================================================= [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 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 a_2 ; then add a .MOD extension. SetExt: dec edi mov dword [edi], '.MOD' mov byte [edi+4], 0 a_2: ; Prints the Credits Text. sys _msg, Credits, 255, 0Ch call DetectSb ; Detect the SB Addr, Irq. LoadMod: mov edi, mod_file_name call LoadModule ; Load the MODule... ; 07/10/2017 jnc short PlayNow ; any error loading? ; yes, print error and Exit. sys _msg, ErrorMesg, 255, 0Fh jmp Exit PlayNow: ;; DIRECT MEMORY ACCESS (for Audio DMA) ;; ebx = DMA buffer address (virtual, user) ;; ecx = buffer size (in bytes) ;; edx = upper limit = 16MB ;_16MB equ 1024*1024*16 ;sys _alloc, DoubleBuffer, DmaBufSize, _16MB ;jc short error_exit ; 12/05/2017 sys _audio, 0D00h, DmaBufSize, DoubleBuffer jc short error_exit mov [DMA_phy_buff], eax ; physical address ; of the buffer ; (which is needed ; for DMA controller) ; 11/03/2017 (22000 -> 22050) ;mov word [MixSpeed], 22050 ; Mixing at 22 kHz ; 07/10/2017 mov word [MixSpeed], 22222 ; Mixing at 22 kHz ; call StartPlaying ; PLAY! call SbInit mov ecx, 128 ; Make a lookup table 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 ;cld ; DIRECT VGA MEMORY ACCESS ; bl = 0, bh = 5 ; Direct access/map to VGA memory (0A0000h) sys _video, 0500h cmp eax, 0A0000h je short start_scope error_exit: sys _msg, trdos386_err_msg, 255, 0Eh ;jmp short Exit jmp 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! start_scope: ; mov ax, 0A000h ; mov es, ax mov edi, eax ; 0A0000h ;mov byte [tLoop], 1 ; 11/03/2017 mov ax, 0013h ; Set Mode 320x200x256 int 31h ScopeLoop: ; ModPlay Polling! call SbPoll ;cmp byte [tLoop], 1 ;jb short _StopPlay mov esi, DmaBuffer ; get current samples ; to be drawed ... ; 12/03/2017 ; original tinyplay scope drawing code is for 1K buffer ; but now we have 32K buffer, following code is for that... GetDmaCount: ;in al, 03h mov dx, 03h mov ah, 0 ; inb int 34h mov cl, al ;in al, 03h ;mov ah, 0 ; inb int 34h mov ch, al mov dx, 65535 sub dx, cx ; 15/03/2017 sub dx, 160 add si, dx ; xor cx, cx xor dx, dx DrawLoop: mov bx, dx ; (save Index) mov di, [Scope+bx] ; get old SCOPE pixel address ;mov byte [es:di], 0 ; erase it! mov byte [edi], 0 ;lodsb ; get a sample (8-bit) ;mov bl, al ;15/03/2017 mov bl, [esi] ; calc new pixel address... inc si xor bh, bh shl bx, 1 mov di, [RowOfs+bx] add di, cx mov bx, dx ; (restore Index) mov [Scope+bx], di ; save new address... ;mov byte [es:di], 10 ; and DRAW. mov byte [edi], 10 add dx, 2 ; the next pixel... inc cx cmp cx, 320 ; 320 pixels drawed? jb short DrawLoop CheckAnyKey: mov ah, 1 ; any key pressed? int 32h ; no, Loop. jz short ScopeLoop mov ah, 0 ; flush key buffer... int 32h mov ax, 0003h ; Set Text Mode 80x25x16 int 31h ;call StopPlaying ; STOP! ;mov byte [tLoop], 0 _StopPlay: ; 11/03/2017 xor al, al ; Stop 8 bit (autoinitialized) DMA process ;out 0Ch, al ;retn mov dx, 0Ch mov ah, 1 ;outb int 34h call SbDone ; Deallocate DMA buffer (not necessary just before exit!) sys _dalloc, DoubleBuffer, DmaBufSize ;jc error_exit Exit: call FreeModule ; Free MODule core. sys _exit ; Bye! pmsg_usage: sys _msg, msg_usage, 255, 0Ah jmp short Exit DetectSb: pushad ScanPort: mov bx, 210h ; start scanning ports ; 210h, 220h, .. 260h ResetDSP: mov dx, bx ; try to reset the DSP. add dx, 06h mov al, 1 ;out dx, al mov ah, 1 ; outb int 34h ;in al, dx ;in al, dx ;in al, dx ;in al, dx mov ah, 0 ; inb int 34h ;mov ah, 0 ; inb int 34h xor al, al ;out dx, al mov ah, 1 ; outb int 34h add dx, 08h ;mov cx, 100 mov cx, 32 sub ah, ah ; 0 WaitID: ;in al, dx int 34h ;ah = 0 ; inb or al, al js short GetID loop WaitID jmp short NextPort GetID: sub dx, 04h ;in al, dx int 34h ;ah = 0 ; inb cmp al, 0AAh je short Found add dx, 04h loop WaitID NextPort: add bx, 10h ; if not response, cmp bx, 260h ; try the next port. jbe short ResetDSP jmp Fail Found: mov [SbAddr], bx ; SB Port Address Found! ScanIRQ: SetIrqs: ; LINK SIGNAL RESPONSE/RETURN BYTE TO REQUESTED IRQ sys _calbac, 102h, 2, SbIrq ; IRQ 2 ; Signal Response Byte ;jc short error_exit sys _calbac, 103h, 3, SbIrq ; IRQ 3 ; Signal Response Byte ;jc short error_exit sys _calbac, 104h, 4, SbIrq ; IRQ 4 ; Signal Response Byte ;jc short error_exit sys _calbac, 105h, 5, SbIrq ; IRQ 5 ; Signal Response Byte ;jc short error_exit sys _calbac, 107h, 7, SbIrq ; IRQ 7 ; Signal Response Byte ;jc short error_exit mov byte [SbIrq], 0 ; clear the IRQ level. mov dx, [SbAddr] ; tells to the SB to add dx, 0Ch ; generate a IRQ! WaitSb: ;in al, dx mov ah, 0 ; inb int 34h or al, al js short WaitSb mov al, 0F2h ;out dx, al mov ah,1 ; outb int 34h xor ecx, ecx ; wait until IRQ level WaitIRQ: cmp byte [SbIrq], 0 ; is changed or timeout. jne short IrqOk dec cx jnz short WaitIRQ jmp short RestoreIrqs IrqOk: mov dx, [SbAddr] add dx, 0Eh ;in al, dx ; SB acknowledge. mov ah, 0 ; inb int 34h ;mov al, 20h ;;out 20h, al ; Hardware acknowledge. ;mov ah,1 ; outb ;int 34h RestoreIrqs: ; UNLINK SIGNAL RESPONSE/RETURN BYTE FROM REQUESTED IRQ sys _calbac, 2 ; unlink IRQ 2 ; Signal Response Byte sys _calbac, 3 ; unlink IRQ 3 ; Signal Response Byte sys _calbac, 4 ; unlink IRQ 4 ; Signal Response Byte sys _calbac, 5 ; unlink IRQ 5 ; Signal Response Byte sys _calbac, 7 ; unlink IRQ 7 ; Signal Response Byte cmp byte [SbIrq], 0 ; IRQ level was changed? je short Fail ; no, fail. Success: mov dx, [SbAddr] ; Print Sucessful message. mov cl, [SbIrq] shr dl, 4 add dl, '0' mov [PortText], dl add cl, '0' mov [IrqText], cl sys _msg, MsgFound, 255, 0Fh popad ; Return to caller. retn Fail: ; Print Failed Message, ; and exit to MainProg. sys _msg, MsgNotFound, 255, 0Fh sys _exit here: jmp short here ;============================================================================= ; SB.ASM ;============================================================================= ; Sound Blaster DMA Driver v0.1b by Carlos Hasan. ; July 24th, 1993. ; EQUATES DmaBufSize equ 65536 ; 12/03/2016 ; MACROS %macro SbOut 1 %%Wait: ;in al, dx mov ah, 0 int 34h or al, al js short %%Wait mov al, %1 ;out dx, al mov ah, 1 int 34h %endmacro ; CODE ;-------------------------------------------------------------------------- ; SbIrqHandler: Sound Blaster IRQ handler. ;-------------------------------------------------------------------------- SbIrqHandler: ; SoundBlaster IRQ Callback service for TRDOS 386 ; 03/03/2017 ; 12/03/2017 ; 11/03/2017 mov dx, [SbAddr] add dx, 0Eh ;in al, dx ;mov ah, 0 sub ah, ah int 34h ;test byte [flags], ENDOFFILE ; end of file flag ;jz short a_3 ;sub dx, 02h ; 0Ch ; exit auto-initialize 8 bit transfer ;SbOut 0DAh ; exit auto-initialize transfer command ;jmp short a_5 a_3: xor al, al ; 0 mov [iStatus], al cmp [DmaFlag], al ja short a_4 inc al a_4: mov [DmaFlag], al ; a_5: sys _rele ; return from callback service ;-------------------------------------------------------------------------- ; SbPoll: Sound Blaster Polling. ;-------------------------------------------------------------------------- SbPoll: pushad ; 11/03/2017 cmp byte [iStatus], 0 ja short Bye mov byte [iStatus], 1 ; 1 = set before interrupt ; (for preventing data load ; without an interrupt) ;test byte [flags], ENDOFFILE ;jnz short sbPoll_stop mov edi, DmaBuffer mov ebx, DmaBufSize/2 test byte [DmaFlag], 1 jz short FirstHalf SecondHalf: add edi, ebx FirstHalf: call GetSamples Bye: popad retn ;sbPoll_stop: ; 11/03/2017 ; ; exit auto-initialize 8 bit transfer ; SbOut 0DAh ; exit auto-initialize transfer command ; ;mov byte [tLoop}, 0 ; jmp short Bye ;-------------------------------------------------------------------------- ; SbInit: Initializes the Sound Blaster Driver. ;-------------------------------------------------------------------------- SbInit: pushad call StartPlaying SetBuffer: ;mov byte [DmaFlag], 0 mov ebx, [DMA_phy_buff] ; physical addr of DMA buff mov ecx, DmaBufSize dec ecx ; 8 bit DMA buffer setting (DMA channel 1) mov al, 05h ; set mask bit for channel 1 (4+1) ;out 0Ah, al mov dx, 0Ah ; DMA mask register mov ah, 1 ;outb int 34h xor al, al ; stops all DMA processes on selected channel ;out 0Ch, al mov dl, 0Ch ; clear selected channel register ;mov ah, 1 ;outb int 34h mov al, bl ; byte 0 of DMA buffer address (physical) ;out 02h, al mov dl, 02h ; DMA channel 1 port number ;mov ah, 1 ;outb int 34h mov al, bh ; byte 1 of DMA buffer address (physical) ;out 02h, al ;mov dl, 02h ; DMA channel 1 port number ;mov ah, 1 ;outb int 34h shr ebx, 16 mov al, bl ; byte 2 of DMA buffer address (physical) ;out 83h, al mov dl, 83h ; page register port addr for channel 1 ;mov ah, 1 ;outb int 34h mov al, cl ; low byte of DMA count - 1 ;out 03h, al mov dl, 03h ; count register port addr for channel 1 ;mov ah, 1 ;outb int 34h mov al, ch ; high byte of DMA count - 1 ;out 03h, al ;mov dl, 03h ; count register port addr for channel 1 ;mov ah, 1 ;outb int 34h ; channel 1, read, autoinitialized, single mode mov al, 49h ;out 0Bh, al mov dl, 0Bh ; DMA mode register port address ;mov ah, 1 ;outb int 34h mov al, 01h ; clear mask bit for channel 1 ;out 0Ah, al mov dl, 0Ah ; DMA mask register port address ;mov ah, 1 ;outb int 34h ClearBuffer: mov edi, DmaBuffer ; virtual addr of DMA buff ;mov ecx, DmaBufSize inc ecx mov al, 80h ;cld rep stosb SetIrq: ; CALLBACK method mov bl, [SbIrq] ; IRQ number mov bh, 2 ; Link IRQ to user for callback service mov edx, SbIrqHandler sys _calbac ; SIGNAL RESPONSE BYTE method ; 04/03/2017 ;mov bl, [SbIrq] ;mov bh, 1 ; Signal Response Byte method ;movzx ecx, bl ; S.R.B. value = IRQ Number ;mov edx, SbSrb ; S.R.B. address ;sys _calbac ResetDsp: mov dx, [SbAddr] add dx, 06h mov al, 1 ;out dx, al mov ah, 1 ;outb int 34h ;in al, dx ;in al, dx ;in al, dx ;in al, dx dec ah ; ah = 0 ; inb int 34h ;mov ah, 0 int 34h xor al, al ;out dx, al inc ah ; ah = 1 ;outb int 34h mov cx, 100 sub ah, ah ; 0 WaitId: mov dx, [SbAddr] add dx, 0Eh ;in al, dx ;mov ah, 0 ;inb int 34h or al, al js short sb_GetId loop WaitId jmp sb_Exit sb_GetId: mov dx, [SbAddr] add dx, 0Ah ;in al, dx ;mov ah, 0 ;inb int 34h cmp al, 0AAh je short SbOk loop WaitId jmp sb_Exit SbOk: mov dx, [SbAddr] add dx, 0Ch SbOut 0D1h ; 11/03/2017 SbOut 41h ; 8 bit or 16 bit transfer mov bx, [sampling_rate] SbOut bh ; sampling rate high byte SbOut bl ; sampling rate low byte ; 22/04/2017 ;mov ah, 1 ;mov dx, [SbAddr] ;add dx, 4 ; Mixer chip address port sub dx, 0Ch-04h mov al, 22h ; master volume int 34h inc dx mov al, 0FFh ; maximum volume level int 34h add dx, 0Ch-05h StartDma: ; autoinitialized 8 bit DMA transfer mode ;mov bx, 0C6h ; 8 bit output (0C6h) ; PCM output (8 bit mono autoinitialized transfer) ;SbOut bl ; bCommand ;SbOut bh ; bMode SbOut 0C6h ; bCommand (C6h = 8 bit autoinitialzed) SbOut 0 ; bMode (0 = 8 bit mono) mov bx, DmaBufSize / 2 dec bx ; wBlkSize is one less than the actual size SbOut bl SbOut bh sb_Exit: popad retn ;-------------------------------------------------------------------------- ; SbDone: Shut Down the Sound Blaster Driver. ;-------------------------------------------------------------------------- SbDone: pushad mov bl, [SbIrq] ; IRQ number sub bh, bh ; 0 = Unlink IRQ from user sys _calbac mov dx, [SbAddr] add dx, 0Ch SbOut 0D0h SbOut 0D3h call StopPlaying popad retn ;============================================================================= ; 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: endstruc struc ModHeader .mhName: resb 20 .mhSamples: resb ModSample.size*31 .mhOrderLen: resb 1 .mhReStart: resb 1 .mhOrder: resb 128 .mhSign: resw 2 .size: 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: endstruc ; CODE LoadModule: ; edi = file name address pushad ;call ClearModInfo ; 07/10/2017 (not necessary.) 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: cmp dword [Header+ModHeader.mhSign], 'M.K.' je short IsModFile CheckFLT4: cmp dword [Header+ModHeader.mhSign], 'FLT4' je short IsModFile ; 07/10/2017 stc jmp CloseFile 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 NextOrder: inc ebx loop CopyOrder AllocPatterns: and edx, 0FFh ;inc dx inc dl ; 07/10/2017 ; dl = count of 1024 bytes ; count of patterns (04/07/2017) shl edx, 10 ; *1024 ; (count of patterns *64*16) 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 ; paterns 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 DefTempo equ 6 DefBpm equ 125 MidCRate equ 8448 MixBufSize equ 4096 ; STRUCTURES struc TrackInfo .Samples: resd 1 .Position: resd 1 .Len: resw 1 .Repeat: resw 1 .RepLen: resw 1 .Volume: resb 1 .Error: resb 1 .Period: resw 1 .Pitch: resw 1 .Effect: resw 1 .PortTo: resw 1 .PortParm: resb 1 .VibPos: resb 1 .VibParm: resb 1 .OldSampOfs: resb 1 .Arp: resw 3 .ArpIndex: resw 1 .size: endstruc ; CODE ;-------------------------------------------------------------------------- ; BeatTrack: Process the next beat in one track. ; In: ; ds:di - Track info Address. ;-------------------------------------------------------------------------- ; edi = Track info address BeatTrack: 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 None: retn 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 PortUp: xor dh, dh mov bx, [edi+TrackInfo.Period] sub bx, dx cmp bx, 113 jge short NotSmall mov bx, 113 NotSmall: mov [edi+TrackInfo.Period], bx add bx, bx mov ax, [PitchTable+bx] mov [edi+TrackInfo.Pitch], ax retn PortDown: xor dh, dh mov bx, [edi+TrackInfo.Period] add bx, dx cmp bx, 856 jle short NotBig mov bx, 856 NotBig: mov [edi+TrackInfo.Period], bx add bx, bx mov ax, [PitchTable+bx] mov [edi+TrackInfo.Pitch], ax retn TonePort: xor dh, dh mov ax, [edi+TrackInfo.PortTo] mov bx, [edi+TrackInfo.Period] 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 [edi+TrackInfo.Pitch], ax NoPort: retn Vibrato: mov dh, dl and dl, 0Fh shr dh, 4 shl dh, 2 add [edi+TrackInfo.VibPos], dh mov dh, [edi+TrackInfo.VibPos] mov bl, dh shr bl, 2 and bx, 1Fh mov al, [SinTable+bx] mul dl rol ax, 1 xchg al, ah and ah, 1 test dh, dh jns short VibUp neg ax VibUp: add ax, [edi+TrackInfo.Period] mov bx, ax cmp bx, 113 jge short NoLoVib mov bx, 113 NoLoVib: cmp bx, 856 jle short NoHiVib mov bx, 856 NoHiVib: add bx, bx mov ax, [PitchTable+bx] mov [edi+TrackInfo.Pitch], ax retn PortSlide: call VolSlide mov dl, [edi+TrackInfo.PortParm] jmp TonePort VibSlide: call VolSlide mov dl, [edi+TrackInfo.VibParm] jmp short Vibrato 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 ;-------------------------------------------------------------------------- ; 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 GetTrack: 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 and bl, 0F0h shr bh, 4 or bl, bh je 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 mov [edi+TrackInfo.Period], cx mov bx, cx add bx, bx mov ax, [PitchTable+bx] mov [edi+TrackInfo.Pitch], ax mov dword [edi+TrackInfo.Position], 0 SetEffect: test dx, dx jz 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 InitNone: retn InitTonePort: test dl, dl jnz short SetPortParm mov dl, [edi+TrackInfo.PortParm] SetPortParm: mov [edi+TrackInfo.PortParm], dl mov [edi+TrackInfo.Effect], dx retn InitVibrato: mov al, [edi+TrackInfo.VibParm] mov ah, al and al, 0Fh and ah, 0F0h 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 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 PosJump: mov [OrderPos], dl mov byte [Row], 64 retn SetVolume: cmp dl, 64 jbe short OkVol mov dl, 64 OkVol: mov [edi+TrackInfo.Volume], dl retn 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 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 InitArpeggio: mov dh, dl and dl, 0Fh shr dh, 4 mov cx, 36 xor ebx, ebx mov ax, [edi+TrackInfo.Period] gt_ScanPeriod: cmp ax, [PeriodTable+bx] jae short SetArp add bx, 2 loop gt_ScanPeriod SetArp: add dx, dx add dh, bl add dl, bl mov bx, [PeriodTable+bx] add bx, bx mov ax, [PitchTable+bx] mov [edi+TrackInfo.Arp], ax mov bl, dh xor bh, bh mov bx, [PeriodTable+bx] add bx, bx mov ax, [PitchTable+bx] mov [edi+TrackInfo.Arp+2], ax mov bl, dl xor bh, bh mov bx, [PeriodTable+bx] add bx, bx mov ax, [PitchTable+bx] mov [edi+TrackInfo.Arp+4], ax mov word [edi+TrackInfo.ArpIndex], 0 retn ;-------------------------------------------------------------------------- ; UpdateTracks: Main code to process the next tick to be played. ;-------------------------------------------------------------------------- UpdateTracks: dec byte [TempoWait] jz short GetTracks mov ecx, NumTracks 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] shl ebx, 10 ; *1024 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 mov edi, Tracks GetTracks_next: push ecx call GetTrack 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] mov al, [esi+TrackInfo.Volume] mov ah, [esi+TrackInfo.Error] mov esi, ebx 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] add [edi], bl inc edi add ah, al adc esi, edx 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] mov al, [esi+TrackInfo.Volume] mov ah, [esi+TrackInfo.Error] ;mov si, bx mov esi, ebx ; 04/09/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] add [edi], bl inc edi add ah, al adc esi, edx 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 ;-------------------------------------------------------------------------- ; GetSamples: Returns the next chunk of samples to be played. ; In: ; Buffer - Buffer Address. ; Count - Buffer Size. ;-------------------------------------------------------------------------- GetSamples: ; edi = buffer address ; ebx = count pushad ;cld NextChunk: cmp word [BufLen], 0 jne short CopyChunk push ebx push edi MixChunk: mov edi, MixBuffer movzx ecx, word [BpmSamples] ;mov cx, [BpmSamples] mov [BufPtr], edi mov [BufLen], cx mov al, 80h rep stosb mov cx, NumTracks mov esi, Tracks - TrackInfo.size GetSamples_next: push ecx add esi, TrackInfo.size mov cx, [BufLen] mov edi, [BufPtr] call MixTrack pop ecx loop GetSamples_next 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 rep movsb test ebx, ebx jnz short NextChunk 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 mov ecx, NumTracks*TrackInfo.size 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 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 loop PitchLoop MakeVolume: mov cx, 16640 mov ebx, ecx VolLoop: dec bx mov al, bl imul bh mov [VolTable+ebx], ah loop VolLoop popad ;retn ;-------------------------------------------------------------------------- ; StopPlaying: ShutDown the Sound System. ;-------------------------------------------------------------------------- StopPlaying: retn ;============================================================================= ; preinitialized data ;============================================================================= ;============================================================================= ; SB.ASM - DATA ;============================================================================= SbAddr: dw 220h SbIrq: db 7 ;Srbs: db 0 ;============================================================================= ; PLAY.ASM - DATA ;============================================================================= msg_usage: db 'Tiny MOD Player for TRDOS 386 by Erdogan Tan. ' db 'October 2017.',10,13 db 'usage: tinyplay filename.mod', 10, 13,0 db '07/10/2017' 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 ;============================================================================= ; MODPLAY.ASM - DATA ;============================================================================= ;Credits: db 'Amiga Module Player v0.3b by Carlos Hasan.' 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 PeriodTable: 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 bss_start: ABSOLUTE bss_start alignb 2 ;============================================================================= ; uninitialized data ;============================================================================= ; SB.ASM DmaFlag resb 1 ; 11/03/2017 iStatus: resb 1 ; MODLOAD.ASM FileHandle: resd 1 Header: resb ModHeader.size ; MODPLAY.ASM sampling_rate: ; 11/03/2017 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 VolTable: resb 16640 MixBuffer resb MixBufSize ; 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 alignb 16 ; PLAY.ASM Scope: resw 320 RowOfs: resw 256 ;03/03/2017 DMA_phy_buff: resd 1 mod_file_name: resb 16 ; 12/03/2017 alignb 65536 DmaBuffer: DoubleBuffer: resb 65536 ; DmaBufSize file_buffer: resb 65536*6 ; 13/03/2017 EOF: