Marlic
08.09.2006, 12:26
Hallo ich bin neu hier und möchte doch so gleich mal das Forum hier testn.
Habe natürlich auch schon ein Problem mitgebracht. Ich möchte mit meinem AVR (Mega8515) per Midi mein Keyboard ansteuern. Habe dieses erstmal in Bascom versucht:
$crystal = 8000000
$baud = 31250
Print &H90 (9: note on / 0: kanal 1)
Print &H3C (3C: entspricht c mittlerer lage)
Print &H7F (7F: anschlag = 127)
ich bekomme nur drei merkwürdige töne zu hören und denke ich sollte die serielle ausgabe lieber in asm schreiben. das protokoll hab ich richtig gelesen denke ich .. es müssen drei bytes ausgegeben werden mit einem startbit und 1 stopbit.
http://www.serasidis.gr/circuits/MidiGenerator/MidiGenerator.htm
vllt kann mir jemand helfen wie ich hier fortsetzen kann!?
Dim B1 as Byte
Dim B2 as Byte
Dim B3 as Byte
B1=&H90
B1=&H3C
B1=&H7F
$asm
...
$end asm
Habe natürlich auch schon ein Problem mitgebracht. Ich möchte mit meinem AVR (Mega8515) per Midi mein Keyboard ansteuern. Habe dieses erstmal in Bascom versucht:
$crystal = 8000000
$baud = 31250
Print &H90 (9: note on / 0: kanal 1)
Print &H3C (3C: entspricht c mittlerer lage)
Print &H7F (7F: anschlag = 127)
ich bekomme nur drei merkwürdige töne zu hören und denke ich sollte die serielle ausgabe lieber in asm schreiben. das protokoll hab ich richtig gelesen denke ich .. es müssen drei bytes ausgegeben werden mit einem startbit und 1 stopbit.
http://www.serasidis.gr/circuits/MidiGenerator/MidiGenerator.htm
vllt kann mir jemand helfen wie ich hier fortsetzen kann!?
Dim B1 as Byte
Dim B2 as Byte
Dim B3 as Byte
B1=&H90
B1=&H3C
B1=&H7F
$asm
...
$end asm