DOSSEG .MODEL SMALL .STACK 200h .CODE .386 ASSUME CS:@CODE, DS:@CODE Ideal 컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 OldInt dd 0 ;for the old DMA interrupt BaseAddress dw 220h IrqNumber db 7 DMANumber db 1 SampleSeg dw 0 SampleSeg2 dw 0 SampleOff dw 0 FileName db "jamhot.sam",0 SamLength dw ? STRUC DMAInfo Page dw ?,? Length dw ?,? Offset dw ?,? Next dw 0,0 ;changes 2nd one to a "2" if 2 buffers are needed Current dw 0 ;0 or 1 ENDS DMAInfo DMA DMAInfo <> 컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ;================== ;==- Interrupts -== ;================== PROC DMAINT FAR pusha cli mov dx,[cs:BaseAddress] add dx,0eh in al,dx ;acknowledge interrupt xor [cs:DMA.Current],1 mov bx,[cs:DMA.Current] add bx,bx mov bx,[cs:bx + DMA.NEXT] mov ax,[cs:bx + DMA.Page] mov ah,al mov cx,[cs:bx + DMA.Length] mov dx,[cs:bx + DMA.Offset] call TransferDma mov al,20h out 20h,al ;end of hardware interrupt popa sti iret ENDP DMAINT ;====================== ;==- Start Transfer -== ;====================== PROC StartTransferDma NEAR pusha mov al,[cs:IrqNumber] add al,8 cbw shl al,2 mov bx,ax push es sub ax,ax mov es,ax mov ax,[es:bx] mov [WORD LOW cs:OldInt],ax ; Grab the current interrupt mov ax,[es:bx+2] mov [WORD HIGH cs:OldInt],ax ; so we can restore it later pop es mov ax,[cs:DMA.Page] mov ah,al mov cx,[cs:DMA.Length] mov dx,[cs:DMA.Offset] mov al,5 out 0ah,al ;Mask off channel 1 xor al,al out 0ch,al ;Clear byte pointer F/F to lowerbyte mov al,49h out 0bh,al ;Set transfer mode to DAC (ADC = 45h) mov al,dl ;LSB of BASE_ADDRESS out 2,al mov al,dh ;MSB of BASE_ADDRESS out 2,al mov al,ah out 83h,al ;Page Number mov al,cl out 3,al ;LSB of DATA_Length mov al,ch out 3,al ;MSB of DATA_Length mov al,1 out 0ah,al ;Enable Channel 1 mov ax,offset DMAInt call DoRealInt mov al,14h ;function 14h DMAmode 8-bit DAC call Sendcommand mov al,cl ;send LSB of DATALENGTH call SendCommand mov al,ch ;send MSB of DATALENGTH call SendCommand popa ret ENDP StartTransferDma ;ah= page number ;dx= BASE_ADDRESS ;cx= DATA_LENGTH (-1) PROC TransferDma NEAR pusha mov al,5 out 0ah,al ;Mask off channel 1 xor al,al out 0ch,al ;Clear byte pointer F/F to lowerbyte mov al,49h out 0bh,al ;Set transfer mode to DAC (ADC = 45h) mov al,dl ;LSB of BASE_ADDRESS out 2,al mov al,dh ;MSB of BASE_ADDRESS out 2,al mov al,ah out 83h,al ;Page Number mov al,cl out 3,al ;LSB of DATA_Length mov al,ch out 3,al ;MSB of DATA_Length mov al,1 out 0ah,al ;Enable Channel 1 mov al,14h ;function 14h DMAmode 8-bit DAC call Sendcommand mov al,cl ;send LSB of DATALENGTH call SendCommand mov al,ch ;send MSB of DATALENGTH call SendCommand popa ret ENDP TransferDMA ;ah= TC (Time Constant = 256 - 1,000,000/HZ) PROC SetTimeConstant NEAR mov al,40h call SendCommand mov al,ah call SendCommand ret ENDP SetTimeConstant PROC TurnOffSpeaker NEAR mov al,0d3h ;turn off speaker call Sendcommand ret ENDP TurnOffSpeaker PROC HaltDMA NEAR mov al,0d0h ;Halt DMA call SendCommand ret ENDP HaltDma ;al = command PROC SendCommand NEAR push dx push ax mov dx,[cs:BaseAddress] add dx,0ch @@Sendcommandloop: in al,dx or al,al js @@Sendcommandloop pop ax out dx,al pop dx ret ENDP SendCommand PROC TurnOnSpeaker NEAR mov al,0d1h call SendCommand ret ENDP TurnOnSpeaker ;input- none ;output al=0 successful ; al=1 unsuccessful ;DESTROYED: ax,dx,cx PROC DspReset NEAR mov dx,[cs:baseaddress] add dx,6 mov al,1 out dx,al in al,dx in al,dx in al,dx in al,dx mov al,0 out dx,al add dx,4 mov cx,100 @@NotYet: in al,dx cmp al,0AAh je @@Success loop @@NotYet mov ax,1 ret @@Success: mov ax,0 ret ENDP DspReset ;======================== ;==- Start Interrupts -== ;======================== ;cs:ax=location of interrupt PROC DoRealint NEAR push bx push cx push dx cli ; Disable interrupts mov dx,ax mov al,[cs:IrqNumber] add al,8 cbw ; Convrt byte to word shl ax,2 ; Shift w/zeros fill mov bx,ax push es sub ax,ax mov es,ax mov [es:bx],dx mov [es:bx+2],cs pop es mov cl,[cs:IrqNumber] mov ah,1 shl ah,cl ; Shift w/zeros fill not ah in al,21h ; port 21h, 8259-1 int IMR and al,ah out 21h,al ; port 21h, 8259-1 int comands pop dx pop cx pop bx sti ret ENDP DoRealint PROC UnDoREALint NEAR pusha cli mov al,[cs:IrqNumber] add al,8 cbw shl ax,2 mov bx,ax push es sub ax,ax mov es,ax mov ax,[WORD LOW cs:OldInt] mov [es:bx],ax mov ax,[WORD HIGH cs:OldInt] mov [es:bx+2],ax pop es mov cl,[cs:IrqNumber] mov ah,1 shl ah,cl in al,21h ; port 21h, 8259-1 int IMR or al,ah out 21h,al ; port 21h, 8259-1 int comands sti popa ret ENDP UnDoREALint ;Figgures the DMA buffer info PROC CalcForDMA NEAR pushad push ds mov ax,cs mov ds,ax mov [2 + DMA.Next],0 ;assume we do only 1 buffer movzx eax,[SampleSeg] movzx edx,[SampleOff] call MakePage cmp cx,[SamLength] ;is max less than needed? jb Skiplengthset ;yes, must do 2 buffers mov cx,[SamLength] mov [2 + DMA.NEXT],2 jmp NoMore Skiplengthset: mov bx,[SamLength] sub bx,cx sub bx,2 mov [2 + DMA.Length],bx mov [2 + DMA.Offset],0 mov [2 + DMA.Page],ax inc [2 + DMA.Page] NoMore: mov [DMA.Page],ax mov [DMA.Offset],dx sub cx,2 mov [DMA.Length],cx pop ds popad ret ENDP CalcForDMA ;input: eax=segment ; edx=offset ;output: ax=page ; dx=offset ; cx=MAX_LENGTH PROC MakePage NEAR shl eax,4 add edx,eax ;edx = 32bit absolute address ror edx,16 mov al,dl ;ax= page xor ah,ah ror edx,16 mov cx,dx neg cx ret ENDP MakePage ;al = selection#, ah= value PROC SetMixer NEAR push ax dx mov dx,224h out dx,al inc dx jmp $+2 jmp $+2 mov al,ah out dx,al pop dx ax ret ENDP SetMixer ; returns -1 if load not successful PROC LoadSample NEAR pusha push ds mov ax,cs mov ds,ax mov dx,offset FileName mov ax,3D00h ;open the file int 21h jc @@Error mov bx,ax xor dx,dx ;load at offset 0 mov cx,0ffffh ;read in a whole segments worth mov ds,[cs:SampleSeg] mov ax,3F00h ; Load in the sample int 21h mov [cs:SamLength],ax mov ax,3E00h ;close the file int 21h ;now fix the sam so it's playable on a SB & make one channel play forward ; and one in reverse - doesn't do it perfectly push es mov es,[cs:SampleSeg2] mov si,0 mov bp,0 mov cx,[cs:SamLength] add [cs:SamLength],cx mov di,[cs:SamLength] dec di cld FixItLoop: mov al,[ds:si] inc si add al,128 mov [es:bp],al mov [es:di],al sub di,2 add bp,2 loop FixItLoop mov [cs:SampleSeg],es pop es pop ds popa xor ax,ax ret @@Error: pop ds popa mov ax,-1 ret ENDP LoadSample 컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 START: mov ax,cs mov ds,ax mov es,ax mov bx,ss add bx,20h ;put sample right after stack mov [SampleSeg],bx add bx,1000h mov [SampleSeg2],bx call LoadSample call CalcForDMA call DspReset mov ah, 256- 1000000/16000 ; 256- 1000000/ HZ call SetTimeConstant mov ax,0130eh call SetMixer ;turn stereo ON mov ax,0FF22h call SetMixer ;set master volume to R= 0Fh, L= 0Fh mov ax,0FF04h call SetMixer ;set VOC volume to R= 0Fh, L= 0Fh call TurnOnSpeaker call StartTransferDMA mov ah,0 int 16h ;get keypress mov ax,0110eh call SetMixer ;turn stereo OFF call HaltDMA call TurnOffSpeaker call DSPReset call UnDoRealInt mov ax,4c00h int 21h END START