Majus
13.06.2007, 17:55
Hallo Zusammen!
Ich habe ein Problem mit meinem aktuellen Projekt. Programm 1 läuft wunderbar, liefert die richtigen Werte und ist einfach toll. Programm 2 allerdings funktioniert nicht richtig. Hier empfange ich im Terminal nur viele "Enter". Ich habe es mal aufs wesentliche vereinfacht:
Programm1:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
Open "COMd.6:9600,8,N,2" For Output As #1
Dim I As Word
On Urxc Onrxd
Enable Urxc
Enable Interrupts
Do
nop
Waitms 100
Loop
End
OnRxD:
I = Udr
Printbin #1 , I
Return
Programm2:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
Open "COMd.6:9600,8,N,2" For Output As #1
Dim I As Word
On Urxc Onrxd
Enable Urxc
Enable Interrupts
Do
Printbin #1 , I
Waitms 100
Loop
End
OnRxD:
I = Udr
Return
Brauche unbedingt Hilfe!
Danke im Voraus!
Majus
Ich habe ein Problem mit meinem aktuellen Projekt. Programm 1 läuft wunderbar, liefert die richtigen Werte und ist einfach toll. Programm 2 allerdings funktioniert nicht richtig. Hier empfange ich im Terminal nur viele "Enter". Ich habe es mal aufs wesentliche vereinfacht:
Programm1:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
Open "COMd.6:9600,8,N,2" For Output As #1
Dim I As Word
On Urxc Onrxd
Enable Urxc
Enable Interrupts
Do
nop
Waitms 100
Loop
End
OnRxD:
I = Udr
Printbin #1 , I
Return
Programm2:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
Open "COMd.6:9600,8,N,2" For Output As #1
Dim I As Word
On Urxc Onrxd
Enable Urxc
Enable Interrupts
Do
Printbin #1 , I
Waitms 100
Loop
End
OnRxD:
I = Udr
Return
Brauche unbedingt Hilfe!
Danke im Voraus!
Majus