BBS 1

home *** CD-ROM | disk | FTP | other *** search

/ BBS 1 / BBS#1.iso / for-dos / exe2drv.arj / DISNEY.ASM < prev next >

Wrap

Assembly Source File | 1993-03-11 | 15.6 KB | 498 lines

;░▒▓█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█▓▒░ ;░▒▓█ ASIO package Driver for Disney Sound Source █▓▒░ ;░▒▓█ (C)opyright 1992 by FRIENDS software All rights reserved █▓▒░ ;░▒▓█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█▓▒░ .186 Driver Segment Byte Assume cs:Driver, ds:Driver ORG 0 dw offset DriverDescr ; Some info for EXE2DRV ORG 65*256-20-20-2-2-2-2-16*2 ; Driver header. Note that it isn't loaded into memory and must be ignored ; by driver itself. DriverDescr db 'Disney Sound Source',0 Programmer db 'Andrew Zabolotny',0,0,0,0 DeviceFlags dw 1100000000000001b MemoryNeed dw offset DriverEnd StartOffset dw 65*256 ; Preserve 16k of memory for ; volume table. FuncSupported dw 16 ; How many functions driver ; support OffsetTable dw offset Init ; 1 dw offset SetPorts ; 2 dw offset SetTempo ; 3 dw offset StartPlay ; 4 dw offset SetFreq ; 5 dw offset SetVolume ; 6 dw offset SetSample ; 7 dw offset SetGlobalVolume ; 8 dw offset GetSamples ; 9 dw offset StopPlay ; 10 dw offset SetOneSample ; 11 dw offset GetOneSample ; 12 dw offset StartOnePlay ; 13 dw offset SetADCport ; 14 dw offset StartDigitize ; 15 dw offset GetDigiByte ; 16 ;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ; ░░░░░▒▒▒▒▓▓▓██ Really driver starts here ██▓▓▓▒▒▒▒░░░░░ ;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ VolTable equ 0 ; Offset of volume table TimerFreq dw 04Bh ; Frequence of IRQ0 Samples dw 0,0 ; Four pointers dw 0,0 ; to samples for dw 0,0 ; each voice. dw 0,0 CFreq dw 0,0,0,0 InsFB dw 0,0,0,0 ; Offset of first byte ; in loop for each sample InsLB dw 0,0,0,0 ; 0FFFFh if no loop or offset ; of last byte in loop. ShutDown dw 0,0 ; Pointer to a array of flags ; that mean that sample are ; finished. GVolume db 64 ; Global volume Temp dw 0 DecTemp dw 0 ;█ Offsets of variables in self-modifying code █ ;█ Segment of this variables is CS: █ FreqOfs dw offset Freq1,offset Freq2 dw offset Freq3,offset Freq4 InsEOfs dw offset InsE1,offset InsE2 dw offset InsE3,offset InsE4 HWordOfs dw offset HiWord1,offset HiWord2 dw offset HiWord3,offset HiWord4 VolumeOfs dw offset Volume1,offset Volume2 dw offset Volume3,offset Volume4 OneSample dw 0,0 ; Pointer to sample for ; one-voice play. OneCFreq dw 0 OneInsS dw 0 Init proc far pusha push es mov word ptr cs:ShutDown,bx ; Save pointer to array of mov word ptr cs:ShutDown+2,es; flags... call InitTable clc ; I don't know how to detect pop es ; DSS, so, assume that it's popa ; all right. ret Init endp SetPorts proc far mov cs:DACport,bx retf SetPorts endp SetTempo proc far push cx mov byte ptr cs:TimerFreq,al mov cs:Temp,cx sub cx,cs:DecTemp add cs:DecTemp,cx jg @@T1 mov cs:DecTemp,1 @@T1: pop cx retf SetTempo endp StartPlay proc far mov cs:DecTemp,1 mov word ptr cs:Handler,dx mov word ptr cs:Handler+2,es push bx mov bx,offset IntProc call TimerInit pop bx retf StartPlay endp SetFreq proc far push bx push di xor bh,bh shl bx,1 mov di,cs:FreqOfs[bx] mov cs:[di],cx mov di,cs:HWordOfs[bx] mov cs:[di],dx pop di pop bx retf SetFreq endp SetVolume proc far push ax push bx xor bh,bh shl bx,1 mov al,cs:GVolume mul dl shr ax,6 cmp al,40h jbe @SV1 mov al,040h @SV1: mov bx,cs:VolumeOfs[bx] mov cs:[bx],al @SVret: pop bx pop ax retf SetVolume endp SetSample proc far push ax push bx push si push ds mov ax,cs mov ds,ax xor bh,bh shl bx,1 mov si,HWordOfs[bx] ; Don't change this sequence mov word ptr [si],0 ; becaule on low-speed mov si,FreqOfs[bx] ; machines can appear some mov word ptr [si],0 ; troubles shl bx,1 mov Samples[bx],di mov Samples[bx+2],es shr bx,1 mov InsLB[bx],cx mov InsFB[bx],dx cmp dx,0FFFFh jne @@O1 mov InsLB[bx],dx @@O1: mov si,InsEOfs[bx] mov [si],cx pop ds pop si pop bx pop ax retf SetSample endp SetGlobalVolume proc far mov cs:GVolume,al mov cs:OVolume,al retf SetGlobalVolume endp GetSamples proc far push cx push di push si push ds push cs pop ds cld mov si,offset Samples mov cx,4*4 rep movsb pop ds pop si pop di pop cx retf GetSamples endp StopPlay proc far retf ; Seem that DSS don't need StopPlay endp ; nothing to shut up. SetOneSample proc far push ds push cs pop ds jc @NoSet mov word ptr OneSample,di mov word ptr OneSample+2,es mov OneInsS,cx mov OneInsE,bx @NoSet: mov OFreq,ax mov OHiWord,dx pop ds retf SetOneSample endp GetOneSample proc far mov di,word ptr cs:OneSample mov es,word ptr cs:OneSample+2 retf GetOneSample endp StartOnePlay proc far push bx mov word ptr cs:StopOneVoice,dx mov word ptr cs:StopOneVoice+2,es mov bx,offset OnePlayEntry call TimerInit pop bx retf StartOnePlay endp SetADCport proc far retf SetADCport endp StartDigitize proc far retf StartDigitize endp GetDigiByte proc far retf GetDigiByte endp ;************** Initialize timer and set Int8 ************* ; In : BX = Interrupt procedure offset TimerInit proc near push es cli mov al,036h out 43h,al mov al,byte ptr cs:TimerFreq out 40h,al mov al,0 out 40h,al xor ax,ax mov es,ax mov word ptr es:[8*4],bx mov word ptr es:[8*4+2],cs pop es sti retn TimerInit endp ;************** Initialize volume table ************** InitTable proc near mov di,VolTable cld push cs pop es mov ch,0 @M1: mov cl,0 @M2: mov al,cl cmp al,0 jge @M3 cmp al,-125 jl @M3 sub al,3 @M3: imul ch mov al,ah stosb inc cl jne @M2 inc ch cmp ch,65 jb @M1 retn InitTable endp ;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ; ░░░░░▒▒▒▒▓▓▓██ Driver's "heart" -> interrupt procedures ██▓▓▓▒▒▒▒░░░░░ ;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ Int08Entry proc far @ResetV1: cmp word ptr InsLB[0],0FFFFh je @C1 mov bx,word ptr InsFB[0] mov word ptr Samples[0],bx jmp @L1 @C1: xor bx,bx mov byte ptr Volume1,bl mov word ptr Samples[0],bx les bx,dword ptr ShutDown mov byte ptr es:[bx],0 jmp @L1 @ResetV2: cmp word ptr InsLB[2],0FFFFh je @C2 mov bx,word ptr InsFB[2] mov word ptr Samples[4],bx jmp @L2 @C2: xor bx,bx mov byte ptr Volume2,bl mov word ptr Samples[4],bx les bx,dword ptr ShutDown mov byte ptr es:[bx+1],0 jmp @L2 IntProc: push ax push bx push dx push ds push es mov ax,cs mov ds,ax ; █ Voice 1 █ add word ptr CFreq[0],0DEADh Freq1 equ word ptr $-2 adc word ptr Samples[0],0DEADh HiWord1 equ word ptr $-2 les bx,dword ptr Samples[0] cmp bx,0DEADh InsE1 equ word ptr $-2 jae @ResetV1 @L1: mov bl,byte ptr es:[bx] mov bh,00h Volume1 equ byte ptr $-1 mov al,[bx] ; █ Voice 2 █ add word ptr CFreq[2],0DEADh Freq2 equ word ptr $-2 adc word ptr Samples[4],0DEADh HiWord2 equ word ptr $-2 les bx,dword ptr Samples[4] cmp bx,0DEADh InsE2 equ word ptr $-2 jae @ResetV2 @L2: mov bl,byte ptr es:[bx] mov bh,00h Volume2 equ byte ptr $-1 add al,[bx] ; █ Voice 3 █ add word ptr CFreq[4],0DEADh Freq3 equ word ptr $-2 adc word ptr Samples[8],0DEADh HiWord3 equ word ptr $-2 les bx,dword ptr Samples[8] cmp bx,0DEADh InsE3 equ word ptr $-2 jae @ResetV3 @L3: mov bl,byte ptr es:[bx] mov bh,00h Volume3 equ byte ptr $-1 add al,[bx] ; █ Voice 4 █ add word ptr CFreq[6],0DEADh Freq4 equ word ptr $-2 adc word ptr Samples[12],0DEADh HiWord4 equ word ptr $-2 les bx,dword ptr Samples[12] cmp bx,0DEADh InsE4 equ word ptr $-2 jae @ResetV4 @L4: mov bl,byte ptr es:[bx] mov bh,00h Volume4 equ byte ptr $-1 add al,[bx] xor al,80h mov dx,0378h DACport equ word ptr $-2 out dx,al ;░▒▓█ ??? Unchecked subroutine █▓▒░ inc dx inc dx mov al,12 out dx,al mov al,4 out dx,al dec word ptr DecTemp jz @DoHandler @Play: pop es pop ds pop dx pop bx mov al,020h out 020h,al pop ax iret @ResetV3: cmp word ptr InsLB[4],0FFFFh je @C3 mov bx,word ptr InsFB[4] mov word ptr Samples[8],bx jmp @L3 @C3: xor bx,bx mov byte ptr Volume3,bl mov word ptr Samples[8],bx les bx,dword ptr ShutDown mov byte ptr es:[bx+2],0 jmp @L3 @ResetV4: cmp word ptr InsLB[6],0FFFFh je @C4 mov bx,word ptr InsFB[6] mov word ptr Samples[12],bx jmp @L4 @C4: xor bx,bx mov byte ptr Volume4,bl mov word ptr Samples[12],bx les bx,dword ptr ShutDown mov byte ptr es:[bx+3],0 jmp @L4 @DoHandler: mov ax,Temp mov DecTemp,ax db 09Ah Handler dw 0,0 jmp @Play Int08Entry endp OnePlayEntry proc far push ax push bx push dx push ds push es mov ax,cs mov ds,ax add word ptr OneCFreq,0DEADh OFreq equ word ptr $-2 adc word ptr OneSample,0DEADh OHiWord equ word ptr $-2 les bx,dword ptr OneSample cmp bx,0DEADh OneInsE equ word ptr $-2 jae @OResetV @OL: mov bl,byte ptr es:[bx] mov bh,64 OVolume equ byte ptr $-1 mov al,[bx] xor al,080h mov dx,DACport out dx,al ;░▒▓█ ??? Unchecked subroutine █▓▒░ inc dx inc dx mov al,12 out dx,al mov al,4 out dx,al @OneEnd: mov al,20h out 20h,al pop es pop ds pop dx pop bx pop ax iret @OResetV: cmp word ptr OneInsS,0FFFFh je @OL1 mov bx,word ptr OneInsS mov word ptr OneSample,bx jmp @OL @OL1: db 09Ah StopOneVoice: dw 0,0 jmp @OneEnd OnePlayEntry endp DriverEnd label near Driver ends end