Hallo und Danke für eure Antworten!
Ich habe mein Programm abgeändert.
Code:
'------------[Meta]-------------------------------------------------------------
$regfile = "m32def.dat"
$crystal = 11592000
$hwstack = 32
$swstack = 10
$framesize = 40
$baud = 9600
'------------[Lib für glcdKS108]------------------------------------------------
$lib "glcdKS108.lbx"
'------------[GLCD Config]------------------------------------------------------
Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Porta , Ce = 1 , Ce2 = 2 , Cd = 3 , Rd = 4 , Reset = 0 , Enable = 5
Cls
Setfont Font8x8
'------------[Programm]---------------------------------------------------------
On Urxc Onrxd
Dim I As Byte
Dim S As String * 100
Dim Flagset As Bit
Dim Lenstr As Integer
Ddrd.5 = 1
Enable Urxc
Enable Interrupts
Main:
If Flagset = 1 Then
Portd.5 = Not Portd.5 'Damit die LED blinkt..
S = S + Chr(i)
Reset Flagset
Lenstr = Len(s) * 8 : Lenstr = Lenstr - 7
Lcdat 1 , Lenstr , Chr(i)
Lcdat 3 , 1 , Lenstr
End If
Goto Main
Onrxd:
I = Udr
Set Flagset
' Udr = I 'Echo an UART
Return
'------------[Ende]-------------------------------------------------------------
End
$include "font8x8.font"
und hatte immer noch das gleiche Problem
..
PS: Fehler gefunden:
$crystal = 11592000 hatte ich falsch angegeben
Ich hab's geändert in:
$crystal = 11059200
MfG MaXX
Lesezeichen