public	_MidiBase,_LVOPutMidiStream

; void PutMidiStream (source,fillbuffer,buf,bufsize,cursize)
; struct MSource *source;
; ULONG (*fillbuffer)();
; UBYTE *buf;
; ULONG bufsize,cursize;

	public	_PutMidiStream
_PutMidiStream
	movem.l a2,-(sp)
	movem.l 8(sp),a0-a2
	movem.l 20(sp),d0-d1
	move.l	_MidiBase,a6
	jsr	_LVOPutMidiStream(a6)
	movem.l (sp)+,a2
	rts