//_________________________________________________________
void SendEvents1 (short refNum)
{
SlotPtr slot = 0;
MidiEvPtr e;
while ((e = MidiGetEv (refNum))) {
if (!slot || (Slot(slot->refNum) != Port(e)))
slot = FindSlot(gOutSlots, Port(e));
if (slot) {
if (!MS2MM (refNum, slot, e)) return;
}else{
MidiFreeEv(e);
}
}
}
//_________________________________________________________
void SendEvents2 (short refNum)
{
SlotPtr slot = 0;
MidiEvPtr e;
while ((e = MidiGetEv (refNum))) {
if (!slot || (Slot(slot->refNum) != Port(e)))
slot = FindSlot(gOutSlots, Port(e));
if (slot) {
if (!MS2MM (refNum, slot, e)) return; // A SysEx is sent
}else{
MidiFreeEv(e);
}
}
MidiSetRcvAlarm(refNum,RcvAlarm);
MidiSendIm(refNum, MidiNewEv(typeRestart));
}
//_________________________________________________________
void KOffTask (long date, short ref, long a1,long a2,long a3)
{
MidiEvPtr e = (MidiEvPtr)a1;
MS2MM (ref, (SlotPtr)a2, e);
}
