Che Guevara
22.03.2012, 20:11
Hallo,
ich möchte mithilfe des Config Serialin Befehls eine Sub beim Eintreffen eines "CR" ausführen. Jedoch springt der XMEGA64A3 nie in die Sub. Weiß jemand, woran das liegen könnte?
Hier der Code:
$regfile = "xm64a3def.dat"
$crystal = 32000000
$hwstack = 64
$swstack = 40
$framesize = 40
$lib "xmega.lib"
$external _xmegafix_clear
$external _xmegafix_rol_r1014
Config Osc = Disabled , 32mhzosc = Enabled
Config Sysclock = 32mhz
Declare Sub Serial1charmatch()
Config Com2 = 38400 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Config Serialin1 = Buffered , Size = 100 , Bytematch = 13
Open "COM2:" For Binary As #1
Dim Datastring As String * 10
Config Priority = Static , Vector = Application , Lo = Enabled
Enable Interrupts
Do
!nop
Loop
End
Sub Serial1charmatch()
Input #1 , Datastring , Noecho
Print #1 , "Empfangen!"
End Sub
Vielen Dank & Gruß
Chris
ich möchte mithilfe des Config Serialin Befehls eine Sub beim Eintreffen eines "CR" ausführen. Jedoch springt der XMEGA64A3 nie in die Sub. Weiß jemand, woran das liegen könnte?
Hier der Code:
$regfile = "xm64a3def.dat"
$crystal = 32000000
$hwstack = 64
$swstack = 40
$framesize = 40
$lib "xmega.lib"
$external _xmegafix_clear
$external _xmegafix_rol_r1014
Config Osc = Disabled , 32mhzosc = Enabled
Config Sysclock = 32mhz
Declare Sub Serial1charmatch()
Config Com2 = 38400 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Config Serialin1 = Buffered , Size = 100 , Bytematch = 13
Open "COM2:" For Binary As #1
Dim Datastring As String * 10
Config Priority = Static , Vector = Application , Lo = Enabled
Enable Interrupts
Do
!nop
Loop
End
Sub Serial1charmatch()
Input #1 , Datastring , Noecho
Print #1 , "Empfangen!"
End Sub
Vielen Dank & Gruß
Chris