
;--- implements midiStreamXXX()

        .386
if ?FLAT
        .MODEL FLAT, stdcall
else
        .MODEL SMALL, stdcall
endif
		option casemap:none
        option proc:private

        include winbase.inc
        include mmsystem.inc
        include macros.inc

        .CODE

midiStreamOpen proc public lphStream:ptr DWORD, puDeviceId:ptr DWORD, cMidi:DWORD,
		dwCallback:DWORD, dwInstance:DWORD, fdwOpen:DWORD
        
		mov eax, MMSYSERR_NODRIVER
		@strace <"midiStreamOpen(", lphStream, ", ", puDeviceId, ", ", cMidi, ", ", dwCallback, ", ", dwInstance, ", ", fdwOpen, ")=", eax, " *** unsupp ***">
		ret
        align 4
        
midiStreamOpen endp

midiStreamClose proc public hStream:DWORD
		mov eax, MMSYSERR_INVALHANDLE
		@strace <"midiStreamClose(", hStream, ")=", eax, " *** unsupp ***">
		ret
        align 4
midiStreamClose endp

midiStreamOut proc public hStream:DWORD, lpMidiHdr:LPMIDIHDR, cbMidiHdr:DWORD
		mov eax, MMSYSERR_INVALHANDLE
		@strace <"midiStreamOut(", hStream, ", ", lpMidiHdr, ", ", cbMidiHdr, ")=", eax, " *** unsupp ***">
		ret
        align 4
midiStreamOut endp

midiStreamStop proc public hStream:DWORD
		mov eax, MMSYSERR_INVALHANDLE
		@strace <"midiStreamStop(", hStream, ")=", eax, " *** unsupp ***">
		ret
        align 4
midiStreamStop endp

midiStreamRestart proc public hStream:DWORD
		mov eax, MMSYSERR_INVALHANDLE
		@strace <"midiStreamRestart(", hStream, ")=", eax, " *** unsupp ***">
		ret
        align 4
midiStreamRestart endp

midiStreamPause proc public hStream:DWORD
		mov eax, MMSYSERR_INVALHANDLE
		@strace <"midiStreamPause(", hStream, ")=", eax, " *** unsupp ***">
		ret
        align 4
midiStreamPause endp

midiStreamProperty proc public hStream:DWORD, lpPropData:DWORD, dwProperty:DWORD
		mov eax, MMSYSERR_INVALHANDLE
		@strace <"midiStreamProperty(", hStream, ", ", lpPropData, ", ", dwProperty, ")=", eax, " *** unsupp ***">
		ret
        align 4
midiStreamProperty endp

		end
