Hallo, ich würde gerne beide Uart beim ATMega1284 nutzen, komme aber mit der angehängten Bascom-Routine nicht weiter.
Wenn ich alles mit Serial0 laufen lasse ist es ok. bei Serial1 bleibt es "vorm Input" hängen, heißt also das der Input nicht ausgeführt wird.
Ich habe schon input1 oder input#1 versucht,ergibt nur Fehlermeldungen.
Leider bringt mich die Bascom-Hilfe auch nicht wirklich weiter.
Alles anzeigen
Wenn ich alles mit Serial0 laufen lasse ist es ok. bei Serial1 bleibt es "vorm Input" hängen, heißt also das der Input nicht ausgeführt wird.
Ich habe schon input1 oder input#1 versucht,ergibt nur Fehlermeldungen.
Leider bringt mich die Bascom-Hilfe auch nicht wirklich weiter.
BASCOM-Quellcode
- $regfile = "m1284pdef.dat"
- $crystal = 16000000
- $hwstack = 48
- $swstack = 48
- $framesize = 48
- $baud = 9600
- $baud1 = 9600
- Dim Data_in As String * 31
- Dim Rx_str As Byte
- Rx_str = 0
- Config Serialin1 = Buffered , Size = 50 , Bytematch = 13
- Dim Rx_flag As Byte
- Rx_flag = 0
- Declare Sub Rx_data()
- Enable Interrupts
- Print "Start"
- Do
- If Rx_str > 0 Then
- Rx_str = 0
- Call Rx_data
- End If
- Loop
- Sub Rx_data()
- !nop
- End Sub
- Serial1charmatch:
- Print "vorm Input"
- Input Data_in Noecho
- Print "nach input"
- Rx_str = 1
- Return
Versuch macht klug !