Source position: seqmid.inc line 101
procedure snd_seq_ev_set_source(
ev: Psnd_seq_event_t;
p: cuchar
);