2fd
;=========================================================
; GMON Transmits universal GENERAL MIDI ON sysex message
;=========================================================

	INCLUDELIB MIDI
	INCLUDE MIDI.INC

	DOSSEG
	.MODEL SMALL
	.386
	.STACK

	.DATA


	.CODE
	.STARTUP

	call sbmidi_init

	call gm_on_xmit

	call sbmidi_exit
	.EXIT

gm_on_xmit PROC

	mov bl,0f0h
	call sbmidi_put
	call delay
	mov bl,07eh
	call sbmidi_put
	call delay
	mov bl,07fh
	call sbmidi_put
	call delay
	mov bl,09h
	call sbmidi_put
	call delay
	mov bl,01h
	call sbmidi_put
	call delay
	mov bl,0f7h
	call sbmidi_put	
	call delay
	ret

gm_on_xmit ENDP


delay PROC

	mov cx,0ffffh
dly: 
	loop dly
	ret

delay ENDP


	END
	
.

0