Atmega168 + Bascom - unvorhersehbares Verhalten

[Christian W. (Firma: www.360customs.de) (doctormord)]

Hallo zusammen,

ich habe gerade ein Programm von einem Atmega8 auf einen Atmega168 
gebracht und ein paar Probleme. Das Programm funktioniert in 11 von mir 
getesteten Atmega8 in vorgegebener Schaltung zuverlässig.

Angeschlossen sind ein 4x20 LCD im 4bit-Mode, ein Navilock-504TTL 
GPS-Empfänger sowie ein I²C-Modul von Maxim. Bascom ist 1.11.9.8.

Das regfile wurde passend auf "m168def.dat" geändert, alle vom Compiler 
erzeugten Files gelöscht und neu compiliert.

Auf dem 168er ergibt sich dann folgendes Bild.

Nach dem Start hängt sich der Controller gerne mal weg und kann das 
Display nicht initialisieren. Manchmal hängt sich sogar der Watchdog mit 
weg. Nach einem Reset läuft das Programm an, das Display zeigt aber 
nichts mehr an oder nur wirre Zeichen.

Beim Start des Programms läuft ein Counter in einer einfachen 
INCR-Schleife, welche knapp 2 Sekunden läuft und per Watchdog überwacht 
wird. In 50% der Fälle läuft diese Schleife allerdings mit nur 10% der 
Geschwindigkeit, der WD macht dann einen Reset.

Do
Start Watchdog
Incr Weiter
Waitms 100
Debounce Pinb.1 , 0 , Settings , Sub
Locate 1 , 1
Lcd Weiter ; "  "
Stop Watchdog
Loop Until Weiter = 20

Die Fuses sind auf internen Quarz gesetzt, ohne Prescaler. Ich habe mir 
den Takt an B.0 ausgeben lassen, auch wenn der Timer zu langsam läuft, 
liegt der Takt bei 8Mhz. Brown-Out ist mit 4.3V aktiviert.

Ein weiteres Problem ist das Senden von Strings per Hardware-UART. Ich 
sende 5x einen Befehl in einer Schleife und lasse mir den "Count" 
ausgeben. Manchmal dauert das nur 1 Sekunde, manchmal 10 Sekunden.

Compiliere ich das Programm wieder für einen Atmega8 und nutze den, 
funktioniert alles ohne Probleme.

Programm-Header:

$regfile = "m168def.dat"
$crystal = 8000000

$hwstack = 64
$swstack = 20
$framesize = 64

Config Lcd = 20 * 4 , Chipset = Ks077
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcdbus = 4

Deflcdchar 0 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 32        ' replace ? with number (0-7)
Deflcdchar 1 , 10 , 4 , 10 , 32 , 22 , 32 , 20 , 14         ' FIX
Deflcdchar 2 , 32 , 32 , 32 , 32 , 16 , 32 , 31 , 32        ' low
Deflcdchar 3 , 32 , 32 , 32 , 8 , 24 , 32 , 31 , 32         ' over low
Deflcdchar 4 , 32 , 32 , 4 , 12 , 28 , 32 , 31 , 32         ' medium
Deflcdchar 5 , 32 , 2 , 6 , 14 , 30 , 32 , 31 , 32          ' over medium
Deflcdchar 6 , 1 , 3 , 7 , 15 , 31 , 32 , 31 , 32           ' high
Deflcdchar 7 , 25 , 17 , 5 , 5 , 21 , 32 , 31 , 32          ' Dead Reconing


Cls
Cursor Off Noblink

Config Debounce = 20                                        ' Button entprellen
Config Watchdog = 2048

Config Scl = Portc.5                                        ' we need to provide the SCL pin name
Config Sda = Portc.4                                        ' we need to provide the SDA pin name
Const Pcf_write = &H70                                      ' Slaveadresse
Const Pcf_read = &H71

Config Timer0 = Timer , Prescale = 64                       ' Timer für PWM-Interrupt

Config Portb.0 = Output                                     ' Output PWM
Config Portc.3 = Output

Portb.1 = 1                                                 ' Set/Reset Button für Counter
Portb.2 = 1                                                 ' Set/Reset Button Spare

$baud = 9600
Waitms 100

'now set register Clkpr to 8 Mhz
'RTFM: First, set first *only* Clock Prescaler Change Enable...
Clkpr = &H80                                                'Clkpce
LDI     R24,&B0000                                          'Clkps1&Clkps0
STS     Clkpr,R24                                           '...then (max. 4 Clocks!) prescaler = 8, Inter RC 8Mhz / 8 = 1Mhz


'Config Lcd = 20 * 4
'Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5


I2cinit

On Timer0 Timer0_isr                                        ' Bei Timerüberlauf Interrupt auslösen und Timer0_isr ausführen
On Urxc Onrxd                                               'Interrupt-Routine setzen

Enable Timer0
Enable Urxc
Enable Interrupts

Baud = 9600

Hat jemand eine Idee, woran das liegen könnte?

Vielen Dank und liebe Grüße

Christian