Hallo NG,
nachdem ich bereits DMX-512 Signale senden kann, kommt nun der Empfang dran.
Folgender erster Ansatz:
Code:
$regfile = "m8def.dat"
$crystal = 16000000
$baud = 250000
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 2 , Databits = 8
Dim Buffer(513)as Byte
Dim Kanal As Word
On Urxc Empfang
Enable Urxc
Enable Interrupts
Do
Loop
Empfang:
If ucsra.Fe = 1 Then
Kanal = 0
Else
If Kanal > 0 Then
Buffer(kanal) = Udr
End If
Incr Kanal
End If
Return
Ist der Code vom Ansatz her korrekt?
Günter
Lesezeichen