Our pal George mailed me that there is a typing error in "send_MIDI_byte" in my posting.

MOV SBUF,#A ; send byte

of course must be:

MOV SBUF,A


Another note:
Before calling "send_MIDI_byte" for the first time make sure that TI = 1, otherwise JNB TI,$ waits until the end of this universe.